mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-25 18:29:36 +00:00
Kernel version 0.8 : BUGFIX in #3 "CAT -S -N FILE1 mis-formats."
This commit is contained in:
parent
ab7fe523e8
commit
c261913cb2
BIN
A2OSX.BOOT.po
BIN
A2OSX.BOOT.po
Binary file not shown.
BIN
A2OSX.SRC.po
BIN
A2OSX.SRC.po
Binary file not shown.
|
@ -159,30 +159,18 @@ CS.RUN ldy #bCANCEL
|
||||||
CS.RUN.PRINT sty BytesRead Y,A = Bytes read
|
CS.RUN.PRINT sty BytesRead Y,A = Bytes read
|
||||||
stz ByteIndex
|
stz ByteIndex
|
||||||
|
|
||||||
ldy #bLineNum
|
|
||||||
lda (pData),y
|
|
||||||
bpl .10
|
|
||||||
|
|
||||||
ldy #LineNum
|
ldy #LineNum
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
clc
|
clc
|
||||||
adc #1
|
adc #1
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
pha
|
bcc .10
|
||||||
|
|
||||||
iny
|
iny
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
adc #0
|
inc
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
ply
|
|
||||||
|
|
||||||
>PUSHYA
|
|
||||||
>LDYA L.MSG.LINENUM
|
|
||||||
>SYSCALL PrintFYA
|
|
||||||
bcc .10
|
|
||||||
rts
|
|
||||||
* bcs .9
|
|
||||||
|
|
||||||
.10 lda BytesRead
|
.10 lda BytesRead
|
||||||
beq .12
|
beq .12
|
||||||
dec
|
dec
|
||||||
|
@ -209,6 +197,9 @@ CS.RUN.PRINT sty BytesRead Y,A = Bytes read
|
||||||
lda #0
|
lda #0
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
|
|
||||||
|
jsr CS.RUN.PRINTNUM
|
||||||
|
bcs .9
|
||||||
|
|
||||||
.20 ldx ByteIndex
|
.20 ldx ByteIndex
|
||||||
lda UsrBuf256,x
|
lda UsrBuf256,x
|
||||||
cmp #' '
|
cmp #' '
|
||||||
|
@ -254,6 +245,24 @@ CS.RUN.PRINT sty BytesRead Y,A = Bytes read
|
||||||
|
|
||||||
.9 rts
|
.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
|
CS.RUN.OPEN >SYSCALL GetFullPathYA
|
||||||
bcs .9
|
bcs .9
|
||||||
stx hFullPath
|
stx hFullPath
|
||||||
|
|
Loading…
Reference in New Issue
Block a user