ack/mach/pdp/libem/dvu2.s
1984-07-19 13:34:12 +00:00

17 lines
173 B
ArmAsm

/ $Header$
.text
.globl dvu2~
dvu2~:
clr r0
mov 04(sp),r1
tst 02(sp)
blt 1f
div 02(sp),r0
2: mov (sp)+,r1
add $04,sp
jmp (r1)
1: cmp 02(sp),r1
bhi 2b
inc r0
br 2b