108 lines
1.3 KiB
ArmAsm
108 lines
1.3 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 UP, 1
|
||
|
|
.equ DOWN, 0
|
||
|
|
|
||
|
|
.data
|
||
|
|
.text
|
||
|
|
.globl main
|
||
|
|
|
||
|
|
# Mapa de registos
|
||
|
|
# $t0 → state
|
||
|
|
# $t1 → cnt
|
||
|
|
# $t2 → c
|
||
|
|
|
||
|
|
main:
|
||
|
|
li $t0, 0
|
||
|
|
li $t1, 0
|
||
|
|
|
||
|
|
do:
|
||
|
|
li $a0, '\r'
|
||
|
|
li $v0, PUTCHAR
|
||
|
|
syscall
|
||
|
|
|
||
|
|
move $a0, $t1
|
||
|
|
li $a1, 3
|
||
|
|
sll $a1, $a1, 16
|
||
|
|
ori $a1, $a1, 10
|
||
|
|
li $v0, PRINT_INT
|
||
|
|
syscall
|
||
|
|
|
||
|
|
li $a0, '\t'
|
||
|
|
li $v0, PUTCHAR
|
||
|
|
syscall
|
||
|
|
|
||
|
|
move $a0, $t1
|
||
|
|
li $a1, 8
|
||
|
|
sll $a1, $a1, 16
|
||
|
|
ori $a1, $a1, 2
|
||
|
|
li $v0, PRINT_INT
|
||
|
|
syscall
|
||
|
|
|
||
|
|
addi $sp, $sp, -16
|
||
|
|
sw $ra, 0($sp)
|
||
|
|
sw $t0, 4($sp)
|
||
|
|
sw $t1, 8($sp)
|
||
|
|
sw $t2, 12($sp)
|
||
|
|
li $a0, 5
|
||
|
|
jal wait
|
||
|
|
lw $ra, 0($sp)
|
||
|
|
lw $t0, 4($sp)
|
||
|
|
lw $t1, 8($sp)
|
||
|
|
lw $t2, 12($sp)
|
||
|
|
addi $sp, $sp, 16
|
||
|
|
|
||
|
|
li $v0, INKEY
|
||
|
|
syscall
|
||
|
|
move $t2, $v0
|
||
|
|
|
||
|
|
beq $t2, '+', if_plus
|
||
|
|
beq $t2, '-', if_minus
|
||
|
|
beq $t2, 'S', if_stop
|
||
|
|
j if
|
||
|
|
if_plus:
|
||
|
|
li $t0, UP
|
||
|
|
j if
|
||
|
|
if_minus:
|
||
|
|
li $t0, DOWN
|
||
|
|
j if
|
||
|
|
if_stop:
|
||
|
|
li $v0, INKEY
|
||
|
|
syscall
|
||
|
|
move $t2, $v0
|
||
|
|
bne $t2, 'R', if_stop
|
||
|
|
|
||
|
|
if:
|
||
|
|
bne $t0, UP, else
|
||
|
|
addi $t1, $t1, 1
|
||
|
|
andi $t1, $t1, 0xFF
|
||
|
|
j endif
|
||
|
|
else:
|
||
|
|
addi $t1, $t1, -1
|
||
|
|
andi $t1, $t1, 0xFF
|
||
|
|
endif:
|
||
|
|
bne $t2, 'q', do
|
||
|
|
jr $ra
|
||
|
|
|
||
|
|
|
||
|
|
wait:
|
||
|
|
li $t0, 0
|
||
|
|
mul $t1, $a0, 515000
|
||
|
|
wait_loop:
|
||
|
|
bge $t0, $t1, wait_return
|
||
|
|
addi $t0, $t0, 1
|
||
|
|
j wait_loop
|
||
|
|
wait_return:
|
||
|
|
jr $ra
|