@@ -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