mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-19 20:29:34 +00:00
Kernel 0.93
This commit is contained in:
parent
058026fea0
commit
8abd020cb2
Binary file not shown.
|
@ -50,8 +50,10 @@ L.MSG.OK .DA MSG.OK
|
||||||
L.MSG.ERR .DA MSG.ERR
|
L.MSG.ERR .DA MSG.ERR
|
||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.INIT
|
CS.INIT clc
|
||||||
.1 >INC.G ArgIndex
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN >INC.G ArgIndex
|
||||||
>SYSCALL ArgV
|
>SYSCALL ArgV
|
||||||
bcs .8
|
bcs .8
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
|
@ -70,30 +72,30 @@ CS.INIT
|
||||||
dex
|
dex
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
.99 >PUSHBI 0
|
.9 >PUSHBI 0
|
||||||
>LDYA L.MSG.USAGE
|
>LDYA L.MSG.USAGE
|
||||||
>SYSCALL printf
|
>SYSCALL printf
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
.99 rts
|
||||||
|
|
||||||
.3 ldy OptionVars-1,x
|
.3 ldy OptionVars-1,x
|
||||||
lda #$80
|
lda #$80
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
bra .1
|
bra CS.RUN
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.4 >LDA.G ArcName
|
.4 >LDA.G ArcName
|
||||||
bne .5
|
bne .5
|
||||||
|
|
||||||
bcc .1
|
bcc CS.RUN
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.5 >LDA.G hSrcFullPath
|
.5 >LDA.G hSrcFullPath
|
||||||
bne .99
|
bne .9
|
||||||
|
|
||||||
>LDYA ZPPtr1
|
>LDYA ZPPtr1
|
||||||
jsr InitSrcDirYA
|
jsr InitSrcDirYA
|
||||||
bcc .1
|
bcc CS.RUN
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.8 >LDYAI 256
|
.8 >LDYAI 256
|
||||||
|
@ -102,11 +104,8 @@ CS.INIT
|
||||||
>STYA ZPFullPath
|
>STYA ZPFullPath
|
||||||
txa
|
txa
|
||||||
>STA.G hSrcFullPath
|
>STA.G hSrcFullPath
|
||||||
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN ldy #S.PS.hStdIn
|
CS.RUN.LOOP ldy #S.PS.hStdIn
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
>SYSCALL feof
|
>SYSCALL feof
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
|
@ -645,7 +645,6 @@ CMD.CALL.YAX stx M32.ACC X=Code to Execute
|
||||||
lda #$C0
|
lda #$C0
|
||||||
jsr CORE.StkPush
|
jsr CORE.StkPush
|
||||||
|
|
||||||
>INC.G bBatchMode
|
|
||||||
clc
|
clc
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -664,7 +663,7 @@ CMD.EXIT lda (ZPArgVBufPtr)
|
||||||
inc pStack
|
inc pStack
|
||||||
|
|
||||||
CMD.EXIT.A sta M32.ACC
|
CMD.EXIT.A sta M32.ACC
|
||||||
>DEBUG
|
|
||||||
.1 jsr CORE.StkPull
|
.1 jsr CORE.StkPull
|
||||||
bcs CMD.EXIT.RTS
|
bcs CMD.EXIT.RTS
|
||||||
|
|
||||||
|
@ -672,11 +671,10 @@ CMD.EXIT.A sta M32.ACC
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
and #$3F
|
and #$3F
|
||||||
ldx #1
|
|
||||||
cmp #C.IF
|
cmp #C.IF
|
||||||
beq .3
|
beq .1
|
||||||
|
|
||||||
.2 ldx #3
|
.2 ldx #2
|
||||||
cmp #C.WHILE
|
cmp #C.WHILE
|
||||||
bne CMD.EXIT.99
|
bne CMD.EXIT.99
|
||||||
|
|
||||||
|
@ -686,7 +684,7 @@ CMD.EXIT.A sta M32.ACC
|
||||||
dex
|
dex
|
||||||
bne .4
|
bne .4
|
||||||
|
|
||||||
sta (pData)
|
.5 sta (pData)
|
||||||
bra .1
|
bra .1
|
||||||
|
|
||||||
.8 jsr CORE.StkPull
|
.8 jsr CORE.StkPull
|
||||||
|
@ -711,13 +709,8 @@ CMD.EXIT.A sta M32.ACC
|
||||||
|
|
||||||
jsr CORE.StkPull
|
jsr CORE.StkPull
|
||||||
sta ZPInputBuf
|
sta ZPInputBuf
|
||||||
|
|
||||||
>DEC.G bBatchMode
|
lda M32.ACC
|
||||||
|
|
||||||
pha
|
|
||||||
lda #$FF
|
|
||||||
>STA.G bExit
|
|
||||||
pla
|
|
||||||
clc
|
clc
|
||||||
CMD.EXIT.RTS rts
|
CMD.EXIT.RTS rts
|
||||||
|
|
||||||
|
|
|
@ -271,7 +271,7 @@ CS.RUN.LOOP >SLEEP
|
||||||
cmp #3 Ctrl-C
|
cmp #3 Ctrl-C
|
||||||
bne CS.RUN.LOOP
|
bne CS.RUN.LOOP
|
||||||
|
|
||||||
>LDA.G bBatchMode batch mode ?
|
lda (pData) batch mode ?
|
||||||
beq CS.RUN.LOOP
|
beq CS.RUN.LOOP
|
||||||
|
|
||||||
>LDA.G bSET.C
|
>LDA.G bSET.C
|
||||||
|
@ -287,7 +287,7 @@ CS.RUN.LOOP >SLEEP
|
||||||
.5 cmp #3 Ctrl-C
|
.5 cmp #3 Ctrl-C
|
||||||
bne .60
|
bne .60
|
||||||
|
|
||||||
>LDA.G bBatchMode batch mode ?
|
lda (pData) batch mode ?
|
||||||
beq .61
|
beq .61
|
||||||
|
|
||||||
>LDA.G bSET.C
|
>LDA.G bSET.C
|
||||||
|
@ -303,7 +303,7 @@ CS.RUN.LOOP >SLEEP
|
||||||
.6 >LDA.G bReadMode read mode ?
|
.6 >LDA.G bReadMode read mode ?
|
||||||
bne .7
|
bne .7
|
||||||
|
|
||||||
.62 >LDA.G bBatchMode batch mode ?
|
.62 lda (pData) batch mode ?
|
||||||
beq CS.RUN.INTERACTIVE
|
beq CS.RUN.INTERACTIVE
|
||||||
jmp CS.RUN.BATCH
|
jmp CS.RUN.BATCH
|
||||||
.7 jmp CS.RUN.READ
|
.7 jmp CS.RUN.READ
|
||||||
|
@ -463,7 +463,7 @@ CS.RUN.LOOP.END ldy #S.PS.RC
|
||||||
bcc CS.RUN.LOOP.8
|
bcc CS.RUN.LOOP.8
|
||||||
tay
|
tay
|
||||||
beq CS.RUN.LOOP.8
|
beq CS.RUN.LOOP.8
|
||||||
>LDA.G bBatchMode batch mode ?
|
lda (pData) batch mode ?
|
||||||
beq .1
|
beq .1
|
||||||
|
|
||||||
>LDA.G bSET.E
|
>LDA.G bSET.E
|
||||||
|
@ -710,7 +710,6 @@ PUSHD.STACK .BS PUSHD.STACK.MAX+1
|
||||||
hFuncList .BS 1
|
hFuncList .BS 1
|
||||||
|
|
||||||
bReadMode .BS 1
|
bReadMode .BS 1
|
||||||
bBatchMode .BS 1
|
|
||||||
bFuncMode .BS 1
|
bFuncMode .BS 1
|
||||||
bExitOnEOF .BS 1
|
bExitOnEOF .BS 1
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user