This commit is contained in:
ceriel 1987-03-27 09:06:28 +00:00
parent 9c8b34c47d
commit cf8d769c73

View file

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