From 75a8a6cc644ec80f52688b2d08f54e94fe1dea99 Mon Sep 17 00:00:00 2001 From: ceriel Date: Thu, 2 Apr 1987 14:04:17 +0000 Subject: [PATCH] some bug fixes --- mach/mantra/int/mloopa | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/mach/mantra/int/mloopa b/mach/mantra/int/mloopa index 848716948..41c0dc4ee 100644 --- a/mach/mantra/int/mloopa +++ b/mach/mantra/int/mloopa @@ -263,6 +263,7 @@ lhalt: mov d6,-(sp) bsr _Xwrite add.l wrd+4,sp + lea lasttable,a1 move.l (a1),d7 move.l d7,a0 !keep file pointer in d7 clr.l (a1)+ !this will stop the printing @@ -270,19 +271,23 @@ lhalt: 3: add.l #1,d1 tst.b (a0)+ bne 3b + move.l a1,-(sp) move.l d1,-(sp) move.l d7,-(sp) mov d6,-(sp) bsr _Xwrite add.l wrd+4,sp + move.l (sp)+,a1 4: move.l (a1),d1 !next print line numbers lea mess3,a0 bsr itoa + move.l a1,-(sp) move.l #12,-(sp) pea mess3 mov d6,-(sp) bsr _Xwrite add.l wrd+4,sp + move.l (sp)+,a1 bsr nexttab tst.l (a1) !in case 0 no more lines beq 9f -- 2.34.1