103 lines
1.4 KiB
ArmAsm
103 lines
1.4 KiB
ArmAsm
.equ INKEY, 1
|
|
.equ GETCHAR, 2
|
|
.equ PUTCHAR, 3
|
|
.equ READ_INT, 4
|
|
.equ READ_INT10, 5
|
|
.equ PRINT_INT, 6
|
|
.equ PRINT_INT10, 7
|
|
.equ PRINT_STR, 8
|
|
.equ READ_STR, 9
|
|
.equ EXIT, 10
|
|
.equ READ_CORE_TIMER, 11
|
|
.equ RESET_CORE_TIMER, 12
|
|
|
|
.equ ADDR_BASE, 0xBF88
|
|
.equ TRISE, 0x6100
|
|
.equ LATE, 0x6120
|
|
|
|
.data
|
|
.text
|
|
.globl main
|
|
|
|
main:
|
|
lui $t7, ADDR_BASE
|
|
|
|
lw $t0, TRISE($t7)
|
|
andi $t0, $t0, 0xFFF0
|
|
sw $t0, TRISE($t7)
|
|
|
|
lw $t0, LATE($t7)
|
|
andi $t0, $t0, 0xFFF0
|
|
sw $t0, LATE($t7)
|
|
|
|
loop:
|
|
li $v0, INKEY
|
|
syscall
|
|
move $t0, $v0
|
|
beq $t0, 0, loop
|
|
|
|
beq $t0, '0', sw_0
|
|
beq $t0, '1', sw_1
|
|
beq $t0, '2', sw_2
|
|
beq $t0, '3', sw_3
|
|
|
|
lw $t0, LATE($t7)
|
|
andi $t0, $t0, 0xFFF0
|
|
ori $t0, $t0, 0x000F
|
|
sw $t0, LATE($t7)
|
|
|
|
li $a0, 1000
|
|
move $s0, $ra
|
|
jal delay
|
|
move $ra, $s0
|
|
|
|
lw $t0, LATE($t7)
|
|
andi $t0, $t0, 0xFFF0
|
|
sw $t0, LATE($t7)
|
|
|
|
j end
|
|
|
|
sw_0:
|
|
lw $t0, LATE($t7)
|
|
andi $t0, $t0, 0xFFF0
|
|
ori $t0, $t0, 0x0001
|
|
sw $t0, LATE($t7)
|
|
j end
|
|
|
|
sw_1:
|
|
lw $t0, LATE($t7)
|
|
andi $t0, $t0, 0xFFF0
|
|
ori $t0, $t0, 0x0002
|
|
sw $t0, LATE($t7)
|
|
j end
|
|
|
|
sw_2:
|
|
lw $t0, LATE($t7)
|
|
andi $t0, $t0, 0xFFF0
|
|
ori $t0, $t0, 0x0004
|
|
sw $t0, LATE($t7)
|
|
j end
|
|
|
|
sw_3:
|
|
lw $t0, LATE($t7)
|
|
andi $t0, $t0, 0xFFF0
|
|
ori $t0, $t0, 0x0008
|
|
sw $t0, LATE($t7)
|
|
j end
|
|
|
|
end:
|
|
j loop
|
|
jr $ra
|
|
|
|
delay:
|
|
mul $t0, $a0, 20000
|
|
li $v0, RESET_CORE_TIMER
|
|
syscall
|
|
|
|
delay_loop:
|
|
li $v0, READ_CORE_TIMER
|
|
syscall
|
|
move $t1, $v0
|
|
blt $t1, $t0, delay_loop
|
|
jr $ra
|