ceriel преди 37 години
родител
ревизия
a71813b911
променени са 3 файла, в които са добавени 8 реда и са изтрити 6 реда
  1. 1 0
      mach/mantra/int/mloop0
  2. 5 5
      mach/mantra/int/mloop9
  3. 2 1
      mach/mantra/int/mloopa

+ 1 - 0
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

+ 5 - 5
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

+ 2 - 1
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)