Some more bug fixes

diff --git a/mach/mantra/int/mloop0 b/mach/mantra/int/mloop0
index 5f7bf96..d64ad12 100644 (file)
--- a/mach/mantra/int/mloop0
+++ b/mach/mantra/int/mloop0
@@ -121,6 +121,7 @@ lblbuf:             sub.l   #2048,sp
 datloop:       cmp.l   a4,a1   ;       bhi     9f      !Go on filling data
                bsr     blshift         !shift block down , read next block
 9:             sub.l   #1,ndata ;      blt     finito
+               clr.l   d1
                move.b  (a4)+,d1 ;      beq     dat0    !type byte in d1
                move.l  a3,a2   ;       move.b  (a4)+,d2  !count byte in d2
                asl.l   #2,d1   ;       move.l  -4(a6,d1),a0

diff --git a/mach/mantra/int/mloop9 b/mach/mantra/int/mloop9
index 4dcbe99..2d82950 100644 (file)
--- a/mach/mantra/int/mloop9
+++ b/mach/mantra/int/mloop9
@@ -200,7 +200,7 @@ rck_1W:             move.l  (sp)+,a0
 
 !--------------------------------------------------------------------------
 nop_z:
-lblnop:                lea     nopln+16,a0 ;   move.l  (a6),d1
+lblnop:                lea     nopln+16,a0 ;   clr.l   d1; mov (a6),d1
                bsr     itoa    
                lea     nopln+33,a0 ;   move.l  sp,d1
                bsr     itoa
@@ -244,7 +244,7 @@ fil_l:              adroff          ;       move.w  (a5),d0
 0:             jmp     (a4)
 
 !-----------------------------------------------------------------------------
-lni_z:         add.l   #1,(a6)
+lni_z:         add     #1,(a6)
 #if    count+flow+prof
                add.l   #1,countptr
 #if    prof
@@ -255,8 +255,8 @@ lni_z:              add.l   #1,(a6)
 lin_l:         adroff          ;       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.l   (a6),d0 ;       beq     9f
-               move.l  d0,(a6)
+1:             cmp     (a6),d0 ;       beq     9f
+               mov     d0,(a6)
 #if    count+flow+prof
                move.l  countfld,d1
                add.l   d0,d1
@@ -271,7 +271,7 @@ lin_s0:             move.l  #0,d0   ;       move.b  (a3)+,d0
 #if    last
                bsr     nexttab ;
                move.l  4(a6),(a1)+     !store new line
-               move.l  (a6),(a1)               !number in buffer lasttable
+               mov     (a6),(a1)               !number in buffer lasttable
 #endif
 #if    count
                move.l  countptr,d1     !LINE NUMBER IN d1

diff --git a/mach/mantra/int/mloopa b/mach/mantra/int/mloopa
index 41c0dc4..38ea8d8 100644 (file)
--- a/mach/mantra/int/mloopa
+++ b/mach/mantra/int/mloopa
@@ -114,7 +114,8 @@ notrap1:    comp    #29,d0                  !ERROR NUMBER STILL IN d0
                bsr     _Xwrite
                add.l   wrd+4,sp
 !NEXT INFORMATION ABOUT THE LINE NUMBER
-               move.l  (a6),d1
+               clr.l   d1
+               mov     (a6),d1
                lea     emess+14,a0
                bsr     itoa
                move.l  #30,-(sp)