63 lines
859 B
ArmAsm
63 lines
859 B
ArmAsm
.equ ADDR_BASE, 0xBF88
|
|
.equ TRISE, 0x6100
|
|
.equ LATE, 0x6120
|
|
.equ TRISD, 0x60C0
|
|
.equ LATD, 0x60E0
|
|
|
|
.equ READ_CORE_TIMER, 11
|
|
.equ RESET_CORE_TIMER, 12
|
|
|
|
.data
|
|
.text
|
|
.globl main
|
|
|
|
main:
|
|
lui $t7, ADDR_BASE
|
|
|
|
lw $t0, TRISE($t7)
|
|
andi $t0, $t0, 0xFFFE
|
|
sw $t0, TRISE($t7)
|
|
|
|
lw $t0, TRISD($t7)
|
|
andi $t0, $t0, 0xFFFE
|
|
sw $t0, TRISD($t7)
|
|
|
|
li $t0, 0x0000
|
|
|
|
loop:
|
|
lw $t1, LATE($t7)
|
|
andi $t1, $t1, 0xFFFE
|
|
or $t1, $t1, $t0
|
|
sw $t1, LATE($t7)
|
|
|
|
lw $t1, LATD($t7)
|
|
andi $t1, $t1, 0xFFFE
|
|
or $t1, $t1, $t0
|
|
sw $t1, LATD($t7)
|
|
|
|
addi $sp, $sp, -8
|
|
sw $ra, 0($sp)
|
|
sw $t0, 4($sp)
|
|
|
|
li $a0, 500
|
|
jal delay
|
|
|
|
lw $ra, 0($sp)
|
|
lw $t0, 4($sp)
|
|
addi $sp, $sp, 8
|
|
|
|
xori $t0, $t0, 0x0001
|
|
j loop
|
|
|
|
# ----------- DELAY FUNCTION ------------
|
|
|
|
delay: li $v0, RESET_CORE_TIMER
|
|
syscall
|
|
|
|
wait: li $v0, READ_CORE_TIMER
|
|
syscall
|
|
mul $t0, $a0, 20000
|
|
blt $v0, $t0, wait
|
|
|
|
jr $ra
|