changed interface to CSA and CSB

diff --git a/mach/m68k4/libem/csa.s b/mach/m68k4/libem/csa.s
index 490c22c..657b4c8 100644 (file)
--- a/mach/m68k4/libem/csa.s
+++ b/mach/m68k4/libem/csa.s
@@ -6,8 +6,8 @@
 
        .sect .text
 .csa:
-       move.l  (sp)+,a0        ! case descriptor
-       move.l  (sp)+,d0        ! index
+       ! case descriptor in a0
+       ! index in d0
        move.l  (a0)+,a1        ! default address
        sub.l   (a0)+,d0        ! index - lower bound
        blt     1f

diff --git a/mach/m68k4/libem/csb.s b/mach/m68k4/libem/csb.s
index c97afab..ac623d9 100644 (file)
--- a/mach/m68k4/libem/csb.s
+++ b/mach/m68k4/libem/csb.s
@@ -6,8 +6,8 @@
 
        .sect .text
 .csb:
-       move.l  (sp)+,a0        ! case descriptor
-       move.l  (sp)+,d0        ! index
+       ! case descriptor in a0
+       ! index in d0
        move.l  (a0)+,a1        ! default jump address
        move.l  (a0)+,d1        ! # entries
        beq     2f