30 lines
309 B
ArmAsm
30 lines
309 B
ArmAsm
.globl putch,obuild
|
|
.globl putdec
|
|
|
|
putdec:
|
|
tst r0
|
|
bge 1f
|
|
cmp r0,$100000
|
|
beq 2f
|
|
mov r0,-(sp)
|
|
mov $'-,r0
|
|
jsr pc,putch
|
|
mov (sp)+,r0
|
|
neg r0
|
|
1:
|
|
alsc $-16.,r0
|
|
dvd $10.,r0
|
|
beq 1f
|
|
mov r1,-(sp)
|
|
jsr pc,1b
|
|
mov (sp)+,r1
|
|
1:
|
|
mov r1,r0
|
|
add $'0,r0
|
|
jmp putch
|
|
2:
|
|
mov $1f,r0
|
|
jmp obuild
|
|
1:
|
|
<-32768\0>;.even
|