mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-26 13:49:18 +00:00
Kernel version 0.8 : CAT,BUGFIX #3 #11 suppressing unwanted CR and no more resetting linecounter between files..
This commit is contained in:
parent
e816f33bf1
commit
0048e92a4a
BIN
A2OSX.BOOT.po
BIN
A2OSX.BOOT.po
Binary file not shown.
BIN
A2OSX.SRC.po
BIN
A2OSX.SRC.po
Binary file not shown.
@ -205,6 +205,9 @@ CS.RUN.PRINT sty BytesRead Y,A = Bytes read
|
||||
cmp #' '
|
||||
bcs .6
|
||||
|
||||
cmp #13 Allow printing of CR even if not bPrintAll
|
||||
beq .6
|
||||
|
||||
ldy #bPrintAll
|
||||
lda (pData),y
|
||||
bpl .7
|
||||
@ -240,8 +243,7 @@ CS.RUN.PRINT sty BytesRead Y,A = Bytes read
|
||||
dec BytesRead
|
||||
bne .20
|
||||
|
||||
.8 lda #13
|
||||
>SYSCALL COutA
|
||||
.8 clc
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
@ -280,13 +282,8 @@ CS.RUN.OPEN >SYSCALL GetFullPathYA
|
||||
jsr .99
|
||||
|
||||
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
|
||||
|
||||
pla
|
||||
|
Loading…
Reference in New Issue
Block a user