From a71813b911ac6a2ddcda2b80f692238e113b2fb2 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 6 Apr 1987 17:59:57 +0000
Subject: [PATCH] Some more bug fixes

---
 mach/mantra/int/mloop0 |  1 +
 mach/mantra/int/mloop9 | 10 +++++-----
 mach/mantra/int/mloopa |  3 ++-
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/mach/mantra/int/mloop0 b/mach/mantra/int/mloop0
index 5f7bf9626..d64ad1219 100644
--- 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 4dcbe998f..2d8295038 100644
--- 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 41c0dc4ee..38ea8d800 100644
--- 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)
-- 
2.34.1