URL https://opencores.org/ocsvn/klc32/klc32/trunk

Subversion Repositories klc32

[/] [klc32/] [trunk/] [software/] [bootrom.s] - Blame information for rev 12

Go to most recent revision | Details | Compare with Previous | View Log


KEYBD           EQU             $FFDC0000
KEYBDSTAT       EQU             $FFDC0002
 
        ORG     $FFFF0000
 
        ORI     R1,R0,#$FFD00000
        ORI     R2,R0,#5
        ORI     R3,R0,#32
        PUSH    R1/R2/R3
        JSR             $FFFF0060
        POP             R3/R2/R1
        STOP
 
        ORG $FFFF0060
        LINK    R30,#24
        ORI     R1,R0,#$FFD00000
        ORI     R2,R0,#5
        ORI     R3,R0,#32
J1:
        SH              R3,0(R1)
        ADDI    R1,R1,#2
        SUBI    R2,R2,#1
        BNE             CR0,J1
        UNLK    R30
        RTS             #0,#0
 
CheckForKey:
        LB              R1,KEYBD
        SMI             CR0,R1
        RTS
 
GetKey:
        LB              R1,KEYBD
        LB              R0,KEYBDSTAT    ; clear keyboard strobe
        RTS
 

Line No.	Rev	Author	Line
1	11	robfinch	`KEYBD EQU $FFDC0000`
2			`KEYBDSTAT EQU $FFDC0002`
3
4			`ORG $FFFF0000`
5
6			`ORI R1,R0,#$FFD00000`
7			`ORI R2,R0,#5`
8			`ORI R3,R0,#32`
9			`PUSH R1/R2/R3`
10			`JSR $FFFF0060`
11			`POP R3/R2/R1`
12			`STOP`
13
14			`ORG $FFFF0060`
15			`LINK R30,#24`
16			`ORI R1,R0,#$FFD00000`
17			`ORI R2,R0,#5`
18			`ORI R3,R0,#32`
19			`J1:`
20			`SH R3,0(R1)`
21			`ADDI R1,R1,#2`
22			`SUBI R2,R2,#1`
23			`BNE CR0,J1`
24			`UNLK R30`
25			`RTS #0,#0`
26
27			`CheckForKey:`
28			`LB R1,KEYBD`
29			`SMI CR0,R1`
30			`RTS`
31
32			`GetKey:`
33			`LB R1,KEYBD`
34			`LB R0,KEYBDSTAT ; clear keyboard strobe`
35			`RTS`
36

Browse

Tools

Subversion Repositories klc32

[/] [klc32/] [trunk/] [software/] [bootrom.s] - Blame information for rev 12