ack/mach/pdp/libem/ciu.s
1984-07-19 12:51:00 +00:00

14 lines
139 B
ArmAsm

.text
.globl cuu~
cuu~:
mov (sp)+,r1
mov (sp)+,r0
sub (sp)+,r0
ble 1f
asr r0
2: clr -(sp)
sob r0,2b
jmp (r1)
1: sub r0,sp
jmp (r1)