Kernel version 0.8 : CAT,BUGFIX #3 #11 suppressing unwanted CR and no more resetting linecounter between files..

This commit is contained in:
Rémy GIBERT 2016-11-04 11:53:21 +01:00
parent e816f33bf1
commit 0048e92a4a
3 changed files with 6 additions and 9 deletions

Binary file not shown.

Binary file not shown.

View File

@ -205,6 +205,9 @@ CS.RUN.PRINT sty BytesRead Y,A = Bytes read
cmp #' ' cmp #' '
bcs .6 bcs .6
cmp #13 Allow printing of CR even if not bPrintAll
beq .6
ldy #bPrintAll ldy #bPrintAll
lda (pData),y lda (pData),y
bpl .7 bpl .7
@ -240,8 +243,7 @@ CS.RUN.PRINT sty BytesRead Y,A = Bytes read
dec BytesRead dec BytesRead
bne .20 bne .20
.8 lda #13 .8 clc
>SYSCALL COutA
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
@ -280,13 +282,8 @@ CS.RUN.OPEN >SYSCALL GetFullPathYA
jsr .99 jsr .99
pha pha
ldy #LineNum
lda #0
sta (pData),y
iny
sta (pData),y
ldy #bPrintedBlankLine ldy #bPrintedBlankLine Reset this flag for the new file
sta (pData),y sta (pData),y
pla pla