URL
https://opencores.org/ocsvn/klc32/klc32/trunk
Subversion Repositories klc32
[/] [klc32/] [trunk/] [software/] [bootrom.lst] - Rev 11
Compare with Previous | Blame | View Log
KEYBD EQU $FFDC0000KEYBDSTAT EQU $FFDC0002FFFF0000 ORG $FFFF0000FFFF0000 24018000 ORI R1,R0,#$FFD00000FFFF0004 FFD00000FFFF0008 24020005 ORI R2,R0,#5FFFF000C 24030020 ORI R3,R0,#32FFFF0010 EC221800 PUSH R1/R2/R3FFFF0014 57FF0060 JSR $FFFF0060FFFF0018 D4620800 POP R3/R2/R1FFFF001C 00000035 STOPFFFF0060 ORG $FFFF0060FFFF0060 DBDE0018 LINK R30,#24FFFF0064 24018000 ORI R1,R0,#$FFD00000FFFF0068 FFD00000FFFF006C 24020005 ORI R2,R0,#5FFFF0070 24030020 ORI R3,R0,#32FFFF0074 J1:FFFF0074 E4230000 SH R3,0(R1)FFFF0078 10210002 ADDI R1,R1,#2FFFF007C 14420001 SUBI R2,R2,#1FFFF0080 4006FFF0 BNE CR0,J1FFFF0084 07DE0018 UNLK R30FFFF0088 00000022 RTS #0,#0FFFF008C CheckForKey:FFFF008C C8018000 LB R1,KEYBDFFFF0090 FFDC0000FFFF0094 480B0800 SMI CR0,R1FFFF0098 00000022 RTSFFFF009C GetKey:FFFF009C C8018000 LB R1,KEYBDFFFF00A0 FFDC0000FFFF00A4 C8008000 LB R0,KEYBDSTAT ; clear keyboard strobeFFFF00A8 FFDC0002FFFF00AC 00000022 RTS