Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-08-10 16:29:28 +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 >STA.G CORE.IntCmd assume external
jsr CORE.GetCharNB 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 ? beq .80 empty line ?
.10 cmp #'#' commented line? .10 cmp #'#' commented line?
@ -71,23 +76,27 @@ CORE.Run >LDYA ZPInputBufPtr Save Actual cmd for looping
.1 jsr CORE.GetNextCharNB .1 jsr CORE.GetNextCharNB
bcs .8 EOF bcs .8 EOF
cmp #C.CR cmp #C.CR
bne .1 EOL bne .1 EOL
.80 jsr CORE.GetNextChar skip CR... .80 jsr CORE.GetNextChar skip CR...
.8 lda #0 .8 jsr IO.Reset
lda #0
clc clc
.9 rts EOL, CS,A=0 rts EOL, CS,A=0
.2 cmp #'|' .2 cmp #'|'
bne .21 bne .21
jsr CORE.GetNextCharNB
bcs CORE.Run.CSYN
jsr IO.Pipe.In jsr IO.Pipe.In
bcs CORE.Run.RTS bcs CORE.Run.RTS
jsr CORE.GetNextCharNB
bcs CORE.Run.CSYN
bra .3 bra .3
.21 jsr IO.Reset .21 jsr IO.Reset