1: .globl putch,obuild 2: .globl putdec 3: 4: putdec: 5: tst r0 6: bge 1f 7: cmp r0,$100000 8: beq 2f 9: mov r0,-(sp) 10: mov $'-,r0 11: jsr pc,putch 12: mov (sp)+,r0 13: neg r0 14: 1: 15: alsc $-16.,r0 16: dvd $10.,r0 17: beq 1f 18: mov r1,-(sp) 19: jsr pc,1b 20: mov (sp)+,r1 21: 1: 22: mov r1,r0 23: add $'0,r0 24: jmp putch 25: 2: 26: mov $1f,r0 27: jmp obuild 28: 1: 29: <-32768\0>;.even