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

some bug fixes

Browse source
This commit is contained in:
ceriel 1987-04-02 14:04:17 +00:00
parent 1fdfb2b738
commit 75a8a6cc64
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
mach/mantra/int/mloopa
View file

@ -263,6 +263,7 @@ lhalt:
mov d6,-(sp) mov d6,-(sp)
bsr _Xwrite bsr _Xwrite
add.l wrd+4,sp add.l wrd+4,sp
lea lasttable,a1
move.l (a1),d7 move.l (a1),d7
move.l d7,a0 !keep file pointer in d7 move.l d7,a0 !keep file pointer in d7
clr.l (a1)+ !this will stop the printing clr.l (a1)+ !this will stop the printing
@ -270,19 +271,23 @@ lhalt:
3: add.l #1,d1 3: add.l #1,d1
tst.b (a0)+ tst.b (a0)+
bne 3b bne 3b
move.l a1,-(sp)
move.l d1,-(sp) move.l d1,-(sp)
move.l d7,-(sp) move.l d7,-(sp)
mov d6,-(sp) mov d6,-(sp)
bsr _Xwrite bsr _Xwrite
add.l wrd+4,sp add.l wrd+4,sp
move.l (sp)+,a1
4: move.l (a1),d1 !next print line numbers 4: move.l (a1),d1 !next print line numbers
lea mess3,a0 lea mess3,a0
bsr itoa bsr itoa
move.l a1,-(sp)
move.l #12,-(sp) move.l #12,-(sp)
pea mess3 pea mess3
mov d6,-(sp) mov d6,-(sp)
bsr _Xwrite bsr _Xwrite
add.l wrd+4,sp add.l wrd+4,sp
move.l (sp)+,a1
bsr nexttab bsr nexttab
tst.l (a1) !in case 0 no more lines tst.l (a1) !in case 0 no more lines
beq 9f beq 9f