19 lines
183 B
ArmAsm
19 lines
183 B
ArmAsm
f = r5
|
|
i = r3
|
|
.globl j
|
|
.globl jget,iget
|
|
.globl char
|
|
.globl succ,fail
|
|
|
|
char:
|
|
jsr pc,jget
|
|
bne 1f
|
|
tst (i)+
|
|
jmp fail
|
|
1:
|
|
mov r0,-(sp)
|
|
jsr pc,iget
|
|
mov (sp)+,(r0)
|
|
inc j(f)
|
|
jmp succ
|