fixed

diff --git a/mach/m68k4/libem/cuu.s b/mach/m68k4/libem/cuu.s
index f6587e7..ce8bdd6 100644 (file)
--- a/mach/m68k4/libem/cuu.s
+++ b/mach/m68k4/libem/cuu.s
@@ -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)