Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-10-01 22:57:43 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.92

Browse Source
This commit is contained in:
Rémy GIBERT 2018-11-29 21:47:28 +01:00
parent 693da619ee
commit f6b67a093f
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

16
BIN/SHELL.S.CL.txt
View File

@ -267,7 +267,7 @@ CL.GetLine >LDYA ZPFileBufPtr
lda (ZPFileBufPtr) lda (ZPFileBufPtr)
beq .9 beq .9
>STZ.G CL.bInQuote ldx #0 not in "
ldy #0 ldy #0
@ -280,20 +280,20 @@ CL.GetLine >LDYA ZPFileBufPtr
cmp #'"' cmp #'"'
bne .2 bne .2
phy txa
>EOR.G CL.bInQuote eor #$80 toggle " switch
sta (pData),y tax
ply
lda #'"'
bra .5 bra .5
.2 cmp #';' .2 cmp #';'
bne .5 bne .5
phy txa
>LDA.G CL.bInQuote
beq .6 beq .6
ply
lda #';'
.5 sta (ZPCLBuf),y .5 sta (ZPCLBuf),y
iny iny