Bug fix

diff --git a/mach/m68k4/libem/inn.s b/mach/m68k4/libem/inn.s
index 2e74528..2bc4c6e 100644 (file)
--- a/mach/m68k4/libem/inn.s
+++ b/mach/m68k4/libem/inn.s
@@ -15,13 +15,11 @@
        move.l  sp,a0
        add.l   #4,a0
        move.l  d1,d2
-       asr.l   #4,d2
-       !bchg.l #0,d2
+       asr.l   #3,d2
        cmp.l   d0,d2
        bcc     1f
        add.l   d2,a0
-       move.l  (a0),d2
-       btst    d1,d2   !eigenlijk .l
+       btst    d1,(a0)
        beq     1f
        move.l  #1,d0
        bra     2f
@@ -30,5 +28,4 @@
 2:
        move.l  (sp)+,d1
        add.l   d1,sp
-       move.l  a1,-(sp)
-       rts
+       jmp     (a1)

diff --git a/mach/m68k4/libem/set.s b/mach/m68k4/libem/set.s
index 4091243..7a92877 100644 (file)
--- a/mach/m68k4/libem/set.s
+++ b/mach/m68k4/libem/set.s
@@ -18,15 +18,12 @@
        bgt     1b
        move.l  sp,a1           ! set base
        move.l  d1,d2
-       asr.l   #4,d2
-       !bchg   #0,d2
+       asr.l   #3,d2
        cmp.l   d0,d2
        bcs     1f
        move.w  #ESET,-(sp)
        jsr     .trp
 1:
        add.l   d2,a1
-       move.l  (a1),d2
-       bset    d1,d2
-       move.l  d2,(a1)
+       bset    d1,(a1)
        jmp     (a0)