Kernel version 0.8 : BUGFIX in #3 "CAT -S -N FILE1 mis-formats."

This commit is contained in:
Rémy GIBERT 2016-11-03 12:00:00 +01:00
parent ab7fe523e8
commit c261913cb2
3 changed files with 23 additions and 14 deletions

Binary file not shown.

Binary file not shown.

View File

@ -159,30 +159,18 @@ CS.RUN ldy #bCANCEL
CS.RUN.PRINT sty BytesRead Y,A = Bytes read
stz ByteIndex
ldy #bLineNum
lda (pData),y
bpl .10
ldy #LineNum
lda (pData),y
clc
adc #1
sta (pData),y
pha
bcc .10
iny
lda (pData),y
adc #0
inc
sta (pData),y
ply
>PUSHYA
>LDYA L.MSG.LINENUM
>SYSCALL PrintFYA
bcc .10
rts
* bcs .9
.10 lda BytesRead
beq .12
dec
@ -209,6 +197,9 @@ CS.RUN.PRINT sty BytesRead Y,A = Bytes read
lda #0
sta (pData),y
jsr CS.RUN.PRINTNUM
bcs .9
.20 ldx ByteIndex
lda UsrBuf256,x
cmp #' '
@ -254,6 +245,24 @@ CS.RUN.PRINT sty BytesRead Y,A = Bytes read
.9 rts
*--------------------------------------
CS.RUN.PRINTNUM clc
ldy #bLineNum
lda (pData),y
bpl .8
ldy #LineNum
lda (pData),y
pha
iny
lda (pData),y
ply
>PUSHYA
>LDYA L.MSG.LINENUM
>SYSCALL PrintFYA
.8 rts
*--------------------------------------
CS.RUN.OPEN >SYSCALL GetFullPathYA
bcs .9
stx hFullPath