Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-07-13 13:29:04 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.92+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-02-18 16:23:10 +00:00
parent 872652853d
commit 62dd710604
2 changed files with 15 additions and 6 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.

21
BIN/SH.S.CORE.txt
View File

@ -61,9 +61,14 @@ CORE.Run >LDYA ZPInputBufPtr Save Actual cmd for looping
>STA.G CORE.IntCmd assume external
jsr CORE.GetCharNB
bcs .9 Ending 0, CS,A=0
bcc .11
jsr IO.Reset
lda #0
sec
rts Ending 0, CS,A=0
cmp #C.CR
.11 cmp #C.CR
beq .80 empty line ?
.10 cmp #'#' commented line?
@ -71,23 +76,27 @@ CORE.Run >LDYA ZPInputBufPtr Save Actual cmd for looping
.1 jsr CORE.GetNextCharNB
bcs .8 EOF
cmp #C.CR
bne .1 EOL
.80 jsr CORE.GetNextChar skip CR...
.8 lda #0
.8 jsr IO.Reset
lda #0
clc
.9 rts EOL, CS,A=0
rts EOL, CS,A=0
.2 cmp #'|'
bne .21
jsr CORE.GetNextCharNB
bcs CORE.Run.CSYN
jsr IO.Pipe.In
bcs CORE.Run.RTS
jsr CORE.GetNextCharNB
bcs CORE.Run.CSYN
bra .3
.21 jsr IO.Reset