diff --git a/mach/m68k4/libem/csa.s b/mach/m68k4/libem/csa.s
index 490c22c9..657b4c86 100644
--- 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 c97afab3..ac623d9f 100644
--- 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