some fixes

diff --git a/mach/mantra/int/mloop0 b/mach/mantra/int/mloop0
index d5cec5f..8b4f495 100644 (file)
--- a/mach/mantra/int/mloop0
+++ b/mach/mantra/int/mloop0
@@ -179,6 +179,7 @@ atof:               tst.b   (a4)+   ;       bne     atof
                rts
 
 blshift:       move.l  a1,a0   ;       move.l  #1024,d0
+               move.l  d1,-(sp)
                tst.l   -(sp)
                sub.l   d0,a0   ;       move.l  d0,-(sp)
                sub.l   d0,a4                   !update pointer
@@ -191,6 +192,7 @@ blshift:    move.l  a1,a0   ;       move.l  #1024,d0
                testen  (sp)+   ;       bne     badarg
                move.l  (sp)+,d0
                move.l  (sp)+,a1
+               move.l  (sp)+,d1
                cmp.l   #1024,d0 ;      beq     1f
                add.l   d0,a1
 1:             rts

diff --git a/mach/mantra/int/mloop9 b/mach/mantra/int/mloop9
index 70bbc52..b267ffc 100644 (file)
--- a/mach/mantra/int/mloop9
+++ b/mach/mantra/int/mloop9
@@ -248,7 +248,7 @@ fil_l:              adroff          ;       move.w  (a5),d0
 0:             jmp     (a4)
 
 !-----------------------------------------------------------------------------
-lni_z:         add     #1,(a6)
+lni_z:         ad      #1,(a6)
 #if    count+flow+prof
                add.l   #1,countptr
 #if    prof
@@ -256,7 +256,8 @@ lni_z:              add     #1,(a6)
 #endif
 #endif
                bra     8f
-lin_l:         adroff          ;       move.w  (a5),d0 ;       bra 1f
+lin_l:         adroff          ;       clr.l   d0
+               move.w  (a5),d0 ;       bra 1f
 lin_q:         move.l  (sp)+,d0 ;      bra     1f
 lin_s0:                move.l  #0,d0   ;       move.b  (a3)+,d0
 1:             cmp     (a6),d0 ;       beq     9f