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:
.cuu:
move.l (sp)+,a0 ! return address
move (sp)+,d0 ! destination size
sub (sp)+,d0
move.l (sp)+,d0 ! destination size
sub.l (sp)+,d0
bgt 1f
sub d0,sp
sub.l d0,sp
jmp (a0)
1:
asr #1,d0
asr.l #2,d0
2:
clr -(sp)
clr.l -(sp)
dbf d0,2b
jmp (a0)