ack/mach/m68k2/libem/cuu.s
1984-12-14 15:41:14 +00:00

22 lines
233 B
ArmAsm

.define .ciu
.define .cui
.define .cuu
.text
.ciu:
.cui:
.cuu:
move.l (sp)+,a0 ! return address
move (sp)+,d0 ! destination size
sub (sp)+,d0
bgt 1f
sub d0,sp
jmp (a0)
1:
asr #1,d0
2:
clr -(sp)
sub #1,d0
bgt 2b
jmp (a0)