d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Some more bug fixes

Browse source
This commit is contained in:
ceriel 1987-04-06 17:59:57 +00:00
parent a30cbae14d
commit a71813b911
3 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
mach/mantra/int/mloop0
View file

@ -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

10
mach/mantra/int/mloop9
View file

@ -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

3
mach/mantra/int/mloopa
View file

@ -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)