mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 07:54:37 +00:00
1107 lines
18 KiB
Plaintext
1107 lines
18 KiB
Plaintext
|
NEW
|
|||
|
PREFIX
|
|||
|
AUTO 4,1
|
|||
|
.LIST OFF
|
|||
|
*--------------------------------------
|
|||
|
* Input : CMD.IntCmd,ZPArgVBuf
|
|||
|
*--------------------------------------
|
|||
|
CORE.Exec jsr CORE.StkGet IF,WHILE,FOR ?
|
|||
|
bcs .3 no particular context, exec...
|
|||
|
tax
|
|||
|
|
|||
|
>LDA.G CORE.IntCmd
|
|||
|
bmi .2 external ...
|
|||
|
|
|||
|
and #$3F
|
|||
|
cmp #C.FOR
|
|||
|
bcs .3 FOR...FI : always execute
|
|||
|
|
|||
|
.2 txa
|
|||
|
bpl .8 context is FALSE, skip line
|
|||
|
asl
|
|||
|
bpl .8 parent context is FALSE, skip line
|
|||
|
|
|||
|
.3 >LDA.G CMD.IntCmd
|
|||
|
bpl .80 Internal
|
|||
|
|
|||
|
>PUSHB.G CORE.PSFlags
|
|||
|
>LDYA ZPArgVBuf
|
|||
|
>SYSCALL execv
|
|||
|
bcs .9
|
|||
|
|
|||
|
tax CPID
|
|||
|
|
|||
|
>LDA.G CMD.PSFlags
|
|||
|
and #S.PS.F.HOLD
|
|||
|
bne .4
|
|||
|
|
|||
|
txa
|
|||
|
>PUSHA
|
|||
|
>PUSHBI 1
|
|||
|
>LDYA L.MSG.PID
|
|||
|
>SYSCALL printf
|
|||
|
rts
|
|||
|
|
|||
|
.4 >SLEEP Suspend this PID
|
|||
|
|
|||
|
sec
|
|||
|
ldy #S.PS.RC CPID will update S.PS.RC
|
|||
|
lda (pPs),y
|
|||
|
bne .9
|
|||
|
|
|||
|
.8 clc
|
|||
|
.9 rts
|
|||
|
|
|||
|
.80 tax
|
|||
|
jmp (J.CORE.INT,x)
|
|||
|
*--------------------------------------
|
|||
|
* STARTPROC : intcmd = 0
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.STARTPROC
|
|||
|
clc
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.SHIFT lda #1
|
|||
|
jmp ShiftA
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.PWD ldy #S.PS.hPREFIX
|
|||
|
lda (pPs),y
|
|||
|
>SYSCALL GetMemPtr
|
|||
|
>SYSCALL puts
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.PUSHD >LDA.G PUSHD.STACK
|
|||
|
cmp #PUSHD.STACK+PUSHD.STACK.MAX
|
|||
|
beq CORE.INT.POPD.CSYN
|
|||
|
|
|||
|
ldy #S.PS.hPREFIX
|
|||
|
lda (pPs),y
|
|||
|
>SYSCALL GetMemPtr
|
|||
|
>SYSCALL strdup
|
|||
|
bcs CORE.INT.POPD.CSYN
|
|||
|
|
|||
|
>INC.G PUSHD.STACK
|
|||
|
tay
|
|||
|
txa
|
|||
|
sta (pData),y
|
|||
|
|
|||
|
ldx #1
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcc CORE.INT.CD.1
|
|||
|
|
|||
|
.8 clc
|
|||
|
.9 rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.POPD >LDA.G PUSHD.STACK
|
|||
|
cmp #PUSHD.STACK
|
|||
|
beq CORE.INT.POPD.CSYN
|
|||
|
|
|||
|
tay
|
|||
|
lda (pData),y
|
|||
|
jsr CORE.SetPrefixA
|
|||
|
|
|||
|
>DEC.G PUSHD.STACK
|
|||
|
clc
|
|||
|
CORE.INT.POPD.RTS
|
|||
|
rts
|
|||
|
|
|||
|
CORE.INT.POPD.CSYN
|
|||
|
jmp Cmd.Exec.CSYN
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.CD ldx #1
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcc CORE.INT.CD.1
|
|||
|
|
|||
|
CORE.INT.CD.HOME >LDYA L.ENV.HOME
|
|||
|
>SYSCALL GetEnv
|
|||
|
bcc CORE.INT.CD.1
|
|||
|
|
|||
|
>LDYA L.ENV.ROOT
|
|||
|
>SYSCALL GetEnv
|
|||
|
bcc CORE.INT.CD.1
|
|||
|
|
|||
|
jmp CORE.INT.PWD
|
|||
|
|
|||
|
CORE.INT.CD.1.9 pla
|
|||
|
>SYSCALL freemem
|
|||
|
bra CORE.INT.POPD.CSYN
|
|||
|
|
|||
|
CORE.INT.CD.1 >SYSCALL realpath
|
|||
|
bcs CORE.INT.POPD.RTS
|
|||
|
>STYA ZPPtr1
|
|||
|
phx
|
|||
|
|
|||
|
ldy #1
|
|||
|
lda (ZPPtr1),y
|
|||
|
beq CORE.SetPrefixPHA we have '/'
|
|||
|
|
|||
|
>PUSHEA.G CMD.Stat
|
|||
|
>LDYA ZPPtr1
|
|||
|
>SYSCALL STAT
|
|||
|
|
|||
|
bcs CORE.INT.CD.1.9
|
|||
|
|
|||
|
>LDA.G CMD.Stat+S.STAT.P.TYPE
|
|||
|
cmp #S.FI.T.DIR
|
|||
|
bne CORE.INT.CD.1.9
|
|||
|
|
|||
|
ldy #$ff
|
|||
|
|
|||
|
.1 iny
|
|||
|
lda (ZPPtr1),y
|
|||
|
bne .1
|
|||
|
|
|||
|
dey
|
|||
|
lda (ZPPtr1),y
|
|||
|
cmp #'/'
|
|||
|
beq CORE.SetPrefixPHA already ends witrh a /
|
|||
|
|
|||
|
iny
|
|||
|
iny
|
|||
|
lda #0
|
|||
|
>SYSCALL getmem
|
|||
|
bcs CORE.INT.CD.1.9
|
|||
|
>STYA ZPPtr2
|
|||
|
|
|||
|
ldy #$ff
|
|||
|
|
|||
|
.2 iny
|
|||
|
lda (ZPPtr1),y
|
|||
|
lda (ZPPtr2),y
|
|||
|
bne .2
|
|||
|
|
|||
|
iny
|
|||
|
sta (ZPPtr2),y
|
|||
|
dey
|
|||
|
lda #'/'
|
|||
|
sta (ZPPtr2),y
|
|||
|
pla
|
|||
|
phx
|
|||
|
>SYSCALL freemem
|
|||
|
pla
|
|||
|
*--------------------------------------
|
|||
|
CORE.SetPrefixA pha
|
|||
|
CORE.SetPrefixPHA
|
|||
|
ldy #S.PS.hPREFIX
|
|||
|
lda (pPs),y
|
|||
|
>SYSCALL FreeMem
|
|||
|
|
|||
|
pla
|
|||
|
|
|||
|
ldy #S.PS.hPREFIX
|
|||
|
sta (pPs),y
|
|||
|
lda #0
|
|||
|
* clc
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.Exec.CSYN lda #E.CSYN
|
|||
|
sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.Exec.SSYN lda #E.SSYN
|
|||
|
sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.SET ldx #1
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcc CORE.INT.SET.1
|
|||
|
|
|||
|
* No arg, print all ENV
|
|||
|
|
|||
|
ldy #S.PS.hENV
|
|||
|
lda (pPs),y
|
|||
|
>SYSCALL GetMemPtr
|
|||
|
>STYA ZPPTR1
|
|||
|
|
|||
|
.1 lda (ZPPTR1)
|
|||
|
beq .8 Ending 0 ?
|
|||
|
|
|||
|
ldy #$ff
|
|||
|
|
|||
|
.2 iny
|
|||
|
lda (ZPPTR1),y
|
|||
|
bne .2
|
|||
|
|
|||
|
tya
|
|||
|
sec
|
|||
|
adc ZPPTR1
|
|||
|
sta ZPPTR2
|
|||
|
lda #0
|
|||
|
adc ZPPTR1+1
|
|||
|
sta ZPPTR2+1
|
|||
|
|
|||
|
>PUSHW ZPPTR2 Push value
|
|||
|
>PUSHW ZPPTR1 Push name
|
|||
|
jsr CORE.INT.SET.PRINT
|
|||
|
|
|||
|
bcs .9
|
|||
|
|
|||
|
ldy #$ff
|
|||
|
|
|||
|
.3 iny
|
|||
|
lda (ZPPTR2),y
|
|||
|
bne .3
|
|||
|
|
|||
|
tya
|
|||
|
sec
|
|||
|
adc ZPPTR2
|
|||
|
sta ZPPTR1
|
|||
|
lda #0
|
|||
|
adc ZPPTR2+1
|
|||
|
sta ZPPTR1+1
|
|||
|
bra .1
|
|||
|
|
|||
|
.8 clc
|
|||
|
.9 rts
|
|||
|
*--------------------------------------
|
|||
|
* SET +X VAR = VALUE1 op VALUE2 op VALUE3 ...
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.SET.1 >STZ.G CORE.Varname
|
|||
|
|
|||
|
lda #1
|
|||
|
>STA.G CORE.ArgIndex
|
|||
|
|
|||
|
.1 tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .8
|
|||
|
|
|||
|
jsr CORE.IsSwitch
|
|||
|
bcs .6
|
|||
|
|
|||
|
cmp #'C'
|
|||
|
bne .2
|
|||
|
|
|||
|
>LDA.G bSET.C
|
|||
|
bra .5
|
|||
|
|
|||
|
.2 cmp #'X'
|
|||
|
bne .99
|
|||
|
|
|||
|
>LDA.G bSET.X
|
|||
|
|
|||
|
.5 eor #$ff
|
|||
|
sta (pData),y
|
|||
|
>INC.G CORE.ArgIndex
|
|||
|
bra .1
|
|||
|
|
|||
|
.6 >LDA.G CORE.ArgIndex
|
|||
|
>STA.G CORE.Varname
|
|||
|
|
|||
|
>INC.G CORE.ArgIndex
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs CORE.INT.SET.GET
|
|||
|
|
|||
|
>STYA ZPPTR1
|
|||
|
|
|||
|
lda (ZPPTR1)
|
|||
|
|
|||
|
cmp #'='
|
|||
|
bne .99
|
|||
|
|
|||
|
ldy #1
|
|||
|
lda (ZPPTR1),y
|
|||
|
bne .99
|
|||
|
|
|||
|
>INC.G CORE.ArgIndex
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs CORE.INT.SET.UNSET
|
|||
|
|
|||
|
jsr CORE.GetEXP
|
|||
|
|
|||
|
bcs .99
|
|||
|
|
|||
|
>PUSHYA
|
|||
|
>LDA.G CORE.Varname
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
>SYSCALL SetEnv
|
|||
|
rts
|
|||
|
|
|||
|
.8 clc
|
|||
|
rts
|
|||
|
|
|||
|
.99 jmp CORE.Exec.CSYN
|
|||
|
|
|||
|
CORE.INT.SET.UNSET
|
|||
|
>LDA.G CORE.Varname
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
>SYSCALL UnsetEnv
|
|||
|
rts
|
|||
|
|
|||
|
CORE.INT.SET.GET
|
|||
|
>LDA.G CORE.Varname
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
>SYSCALL GetEnv
|
|||
|
bcc .1
|
|||
|
clc
|
|||
|
rts
|
|||
|
|
|||
|
.1 >PUSHYA push value
|
|||
|
>LDA.G CORE.Varname
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
>PUSHYA push name
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.SET.PRINT
|
|||
|
>PUSHBI 4
|
|||
|
>LDYA L.MSG.PRINTENV
|
|||
|
>SYSCALL printf
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.DATE sec
|
|||
|
.HS 90 bcc
|
|||
|
CORE.INT.TIME clc
|
|||
|
php
|
|||
|
>LEA.G CORE.Time
|
|||
|
>SYSCALL Time
|
|||
|
|
|||
|
>PUSHEA.G CORE.Time
|
|||
|
|
|||
|
plp
|
|||
|
bcc .1
|
|||
|
>PUSHW L.FMT.DATE
|
|||
|
bra .2
|
|||
|
.1 >PUSHW L.FMT.TIME
|
|||
|
|
|||
|
.2 >LDYA ZPCLBuf
|
|||
|
>SYSCALL StrFTime
|
|||
|
|
|||
|
>LDYA ZPCLBuf
|
|||
|
>SYSCALL puts
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.ECHO >STZ.G bECHO.N
|
|||
|
|
|||
|
lda #1
|
|||
|
>STA.G CORE.ArgIndex
|
|||
|
|
|||
|
.1 tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .7
|
|||
|
|
|||
|
jsr CORE.IsSwitch
|
|||
|
bcs .2
|
|||
|
|
|||
|
cmp #'N'
|
|||
|
bne .99
|
|||
|
|
|||
|
lda #$ff
|
|||
|
>EOR.G bECHO.N
|
|||
|
sta (pData),y
|
|||
|
>INC.G CORE.ArgIndex
|
|||
|
bra .1
|
|||
|
|
|||
|
.2 pha
|
|||
|
>PUSHBI 0
|
|||
|
pla
|
|||
|
>SYSCALL printf
|
|||
|
bcs .9
|
|||
|
|
|||
|
>INC.G CORE.ArgIndex
|
|||
|
tax
|
|||
|
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .7
|
|||
|
|
|||
|
.6 lda #C.SPACE
|
|||
|
>SYSCALL putchar
|
|||
|
bcs .9
|
|||
|
|
|||
|
>PUSHBI 0
|
|||
|
|
|||
|
>LDA.G CORE.ArgIndex
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
|
|||
|
>SYSCALL printf
|
|||
|
bcs .9
|
|||
|
|
|||
|
>INC.G CORE.ArgIndex
|
|||
|
tax
|
|||
|
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcc .6
|
|||
|
|
|||
|
.7 >LDA.G bECHO.N
|
|||
|
bmi .8
|
|||
|
|
|||
|
>PUSHBI 0
|
|||
|
>LDYA L.MSG.ECHOCRLF
|
|||
|
>SYSCALL printf
|
|||
|
rts
|
|||
|
|
|||
|
.8 clc
|
|||
|
.9 rts
|
|||
|
|
|||
|
.99 lda #E.CSYN
|
|||
|
sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.GETKEY ldx #1
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .99
|
|||
|
|
|||
|
>SYSCALL getchar
|
|||
|
bcc .1
|
|||
|
tay
|
|||
|
bne .9
|
|||
|
|
|||
|
.1 >PUSHA
|
|||
|
>PUSHBI 1
|
|||
|
>PUSHW L.FMT.GETKEY
|
|||
|
>LEA.G M32.BUF
|
|||
|
>SYSCALL sprintf
|
|||
|
bcs .9
|
|||
|
|
|||
|
>PUSHEA.G M32.BUF
|
|||
|
|
|||
|
ldx #1
|
|||
|
jsr Cmd.GetArgX
|
|||
|
>SYSCALL SetEnv
|
|||
|
.9 rts
|
|||
|
|
|||
|
.99 jmp CORE.Exec.CSYN
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.READ lda #1
|
|||
|
>STA.G CORE.ArgIndex
|
|||
|
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .9
|
|||
|
|
|||
|
.1 jsr CORE.IsSwitch
|
|||
|
bcs .4
|
|||
|
cmp #'S'
|
|||
|
bne .2
|
|||
|
|
|||
|
lda #$ff
|
|||
|
>STA.G bREAD.S
|
|||
|
|
|||
|
bra .7
|
|||
|
|
|||
|
.2 cmp #'P'
|
|||
|
bne .9
|
|||
|
|
|||
|
>INC.G CORE.ArgIndex
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .9
|
|||
|
pha
|
|||
|
>PUSHBI 0
|
|||
|
pla
|
|||
|
>SYSCALL printf
|
|||
|
bcs .99
|
|||
|
bra .7
|
|||
|
|
|||
|
.4 >SYSCALL strdup
|
|||
|
txa
|
|||
|
>STA.G hVarName
|
|||
|
|
|||
|
.7 >INC.G CMD.ArgIndex
|
|||
|
tax
|
|||
|
jsr Cmd.GetArgX
|
|||
|
bcc .1
|
|||
|
|
|||
|
>LDA.G hVarName
|
|||
|
beq .9
|
|||
|
clc
|
|||
|
.99 rts
|
|||
|
|
|||
|
.9 jmp CORE.Exec.CSYN
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.SLEEP ldx #1
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .9
|
|||
|
|
|||
|
>SYSCALL AToL
|
|||
|
bcs .9
|
|||
|
|
|||
|
>PULLL.G Sleep
|
|||
|
clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 jmp CORE.Exec.CSYN
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.PAUSE lda #$FF
|
|||
|
>STA.G bPause
|
|||
|
clc
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.EXIT ldx #1
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .8 no arg, exit 0
|
|||
|
|
|||
|
>SYSCALL AToL
|
|||
|
bcs .9
|
|||
|
|
|||
|
>PULLL.G M32.ACC
|
|||
|
|
|||
|
lda #$FF
|
|||
|
>STA.G bExit
|
|||
|
|
|||
|
>LDA.G M32.ACC
|
|||
|
clc
|
|||
|
rts
|
|||
|
|
|||
|
.8 lda #$FF
|
|||
|
>STA.G bExit
|
|||
|
inc
|
|||
|
clc
|
|||
|
.9 rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.MD ldx #1
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .9
|
|||
|
|
|||
|
>SYSCALL MKDir
|
|||
|
rts
|
|||
|
|
|||
|
.9 jmp CORE.Exec.CSYN
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.REN ldx #2
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .9
|
|||
|
>PUSHYA
|
|||
|
ldx #1
|
|||
|
jsr CORE.GetArgX
|
|||
|
|
|||
|
>SYSCALL Rename
|
|||
|
rts
|
|||
|
|
|||
|
.9 jmp CORE.Exec.CSYN
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.RD ldx #1
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .9
|
|||
|
phy
|
|||
|
pha
|
|||
|
>PUSHEA.G CORE.Stat
|
|||
|
pla
|
|||
|
ply
|
|||
|
>SYSCALL STAT
|
|||
|
bcs .99
|
|||
|
|
|||
|
>LDA.G CORE.Stat+S.STAT.P.TYPE
|
|||
|
cmp #S.FI.T.DIR
|
|||
|
bne .9
|
|||
|
|
|||
|
ldx #1
|
|||
|
jsr CORE.GetArgX
|
|||
|
>SYSCALL Remove
|
|||
|
.99 rts
|
|||
|
|
|||
|
.9 jmp CORE.Exec.CSYN
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.BREAK
|
|||
|
.9 jmp CORE.Exec.SSYN
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.CONTINUE
|
|||
|
.9 jmp CORE.Exec.SSYN
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.FOR
|
|||
|
.9 jmp CORE.Exec.SSYN
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.NEXT
|
|||
|
.9 jmp CORE.Exec.SSYN
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.WHILE
|
|||
|
CORE.INT.IF jsr CORE.StkGet
|
|||
|
bcs .1 no context...
|
|||
|
|
|||
|
and #$80 get current..
|
|||
|
lsr becomes parent
|
|||
|
bra .2
|
|||
|
|
|||
|
.1 lda #$40 ...set Parent = true
|
|||
|
|
|||
|
.2 >STA.G CORE.Test
|
|||
|
|
|||
|
bit #$40 Parent is true ?
|
|||
|
beq .3
|
|||
|
|
|||
|
jsr CORE.Eval
|
|||
|
bcs .9
|
|||
|
|
|||
|
.3 >LDA.G CORE.IntCmd
|
|||
|
cmp #C.WHILE
|
|||
|
bne .8
|
|||
|
|
|||
|
jsr CORE.StkPushPtr
|
|||
|
bcs .9
|
|||
|
|
|||
|
.8 >LDA.G CORE.Test
|
|||
|
>ORA.G CORE.IntCmd
|
|||
|
jmp CORE.StkPush
|
|||
|
|
|||
|
clc
|
|||
|
.9 rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.ELSE jsr CORE.StkGet
|
|||
|
bcs .9
|
|||
|
|
|||
|
bit #$40 parent is true ?
|
|||
|
beq .8 no, skip
|
|||
|
|
|||
|
tax
|
|||
|
and #$3F
|
|||
|
cmp #C.IF
|
|||
|
bne .9
|
|||
|
txa
|
|||
|
eor #$80 toggle and store at stack ptr
|
|||
|
sta (pData),y
|
|||
|
|
|||
|
.8 clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 lda #E.NOIF
|
|||
|
sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.FI jsr CORE.StkPull
|
|||
|
bcs .9
|
|||
|
|
|||
|
and #$3F
|
|||
|
cmp #C.IF
|
|||
|
bne .9
|
|||
|
|
|||
|
clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 lda #E.NOIF
|
|||
|
sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.INT.LOOP jsr CORE.StkPull
|
|||
|
bcs .9
|
|||
|
tax
|
|||
|
and #$3F
|
|||
|
cmp #C.WHILE
|
|||
|
bne .9
|
|||
|
|
|||
|
txa
|
|||
|
bpl .1
|
|||
|
|
|||
|
jmp CORE.StkPullPtr
|
|||
|
|
|||
|
.1 jsr CORE.StkPull
|
|||
|
bcs .99
|
|||
|
jmp CORE.StkPull
|
|||
|
|
|||
|
.9 lda #E.NOWHILE
|
|||
|
sec
|
|||
|
.99 rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.Eval ldx #1
|
|||
|
jsr CORE.GetArgX
|
|||
|
beq .9
|
|||
|
|
|||
|
>PUSHYA
|
|||
|
>LDYA L.CORE.Eval.TOKEN1
|
|||
|
jsr Lookup
|
|||
|
|
|||
|
bcs .9
|
|||
|
|
|||
|
cpx #4 [ or ![
|
|||
|
bcs .9
|
|||
|
dex
|
|||
|
dex 1 or $ff
|
|||
|
|
|||
|
txa
|
|||
|
|
|||
|
and #$80 true or false
|
|||
|
>ORA.G CORE.Test
|
|||
|
sta (pData),y
|
|||
|
|
|||
|
ldx #2
|
|||
|
jsr CORE.GetArgX
|
|||
|
beq .9
|
|||
|
|
|||
|
>PUSHYA
|
|||
|
>LDYA L.CORE.Eval.TOKEN2 -d -e -f ?
|
|||
|
jsr Lookup
|
|||
|
|
|||
|
bcs .1
|
|||
|
|
|||
|
txa
|
|||
|
>STA.G CORE.Operator
|
|||
|
|
|||
|
jsr CORE.Eval.UNARY
|
|||
|
bcs .9
|
|||
|
|
|||
|
>EOR.G CORE.Test
|
|||
|
sta (pData),y
|
|||
|
|
|||
|
ldx #4 go check ]
|
|||
|
bra .8
|
|||
|
|
|||
|
.9 lda #E.ESYN
|
|||
|
sec
|
|||
|
.99 rts
|
|||
|
|
|||
|
.1 ldx #3
|
|||
|
jsr CORE.GetArgX
|
|||
|
beq .9
|
|||
|
|
|||
|
>PUSHYA
|
|||
|
>LDYA L.CORE.Eval.TOKEN3 -eq -ne .... ?
|
|||
|
jsr Lookup
|
|||
|
bcs .9
|
|||
|
txa
|
|||
|
>STA.G CORE.Operator
|
|||
|
|
|||
|
jsr CORE.Eval.BINARY
|
|||
|
bcs .9
|
|||
|
|
|||
|
>EOR.G CORE.Test
|
|||
|
sta (pData),y
|
|||
|
|
|||
|
ldx #5 go check ]
|
|||
|
|
|||
|
.8 jsr CORE.GetArgX
|
|||
|
beq .9
|
|||
|
|
|||
|
>STYA ZPPTR1
|
|||
|
|
|||
|
lda (ZPPTR1)
|
|||
|
cmp #']'
|
|||
|
bne .9
|
|||
|
|
|||
|
ldy #1
|
|||
|
lda (ZPPTR1),y
|
|||
|
bne .9
|
|||
|
clc
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.Eval.UNARY ldx #3
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .9 we need one arg
|
|||
|
|
|||
|
>LDA.G CORE.Operator
|
|||
|
tax
|
|||
|
jmp (J.CORE.Eval.TOKEN2,x)
|
|||
|
|
|||
|
.9 lda #E.ESYN
|
|||
|
sec
|
|||
|
rts
|
|||
|
|
|||
|
CORE.Eval.D jsr CORE.Eval.DEF.7
|
|||
|
bcs CORE.Eval.DEF.9
|
|||
|
>LDA.G CORE.Stat+S.STAT.P.TYPE
|
|||
|
cmp #S.FI.T.DIR
|
|||
|
bne CORE.Eval.DEF.9
|
|||
|
bra CORE.Eval.DEF.8
|
|||
|
|
|||
|
CORE.Eval.E jsr CORE.Eval.DEF.7
|
|||
|
bcs CORE.Eval.DEF.9
|
|||
|
bra CORE.Eval.DEF.8 DIR or FILE exist
|
|||
|
|
|||
|
CORE.Eval.F jsr CORE.Eval.DEF.7
|
|||
|
bcs CORE.Eval.DEF.9
|
|||
|
|
|||
|
>LDA.G CORE.Stat+S.STAT.P.TYPE
|
|||
|
cmp #S.FI.T.DIR
|
|||
|
beq CORE.Eval.DEF.9
|
|||
|
bra CORE.Eval.DEF.8
|
|||
|
|
|||
|
CORE.Eval.DEF.7 >PUSHEA.G CORE.Stat
|
|||
|
ldx #3
|
|||
|
jsr CORE.GetArgX
|
|||
|
>SYSCALL STAT
|
|||
|
rts
|
|||
|
|
|||
|
CORE.Eval.DEF.8 lda #$80 true
|
|||
|
clc
|
|||
|
rts
|
|||
|
|
|||
|
CORE.Eval.DEF.9 lda #0 false
|
|||
|
clc
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.Eval.BINARY ldx #2
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .9
|
|||
|
|
|||
|
ldx #4
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .9
|
|||
|
|
|||
|
>LDA.G CORE.Operator
|
|||
|
beq .1 =
|
|||
|
|
|||
|
cmp #2 !=
|
|||
|
bne CORE.Eval.BINARY.NUM
|
|||
|
lda #$80
|
|||
|
>STA.G CORE.Operator
|
|||
|
|
|||
|
.1 ldx #2
|
|||
|
jsr CORE.GetArgX
|
|||
|
>PUSHYA
|
|||
|
ldx #4
|
|||
|
jsr CORE.GetArgX
|
|||
|
>SYSCALL strcmp
|
|||
|
ror CS if !=
|
|||
|
and #$80
|
|||
|
eor #$80
|
|||
|
>EOR.G CORE.Operator
|
|||
|
clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 lda #E.ESYN
|
|||
|
sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.Eval.BINARY.NUM
|
|||
|
ldx #2
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .9
|
|||
|
|
|||
|
>SYSCALL AToL
|
|||
|
bcs .9
|
|||
|
|
|||
|
>PULLL.G M32.ACC
|
|||
|
|
|||
|
ldx #4
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcs .9
|
|||
|
|
|||
|
>SYSCALL AToL
|
|||
|
bcs .9
|
|||
|
|
|||
|
>PULLL.G M32.ARG
|
|||
|
|
|||
|
jsr M32.Cmp
|
|||
|
pha
|
|||
|
|
|||
|
>LDA.G CORE.Operator
|
|||
|
lsr
|
|||
|
tax
|
|||
|
pla
|
|||
|
and CORE.Eval.TOKEN3.BITS,x
|
|||
|
beq .80
|
|||
|
|
|||
|
lda #$80 true
|
|||
|
clc
|
|||
|
rts
|
|||
|
|
|||
|
.80 lda #0 false
|
|||
|
clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 lda #E.ESYN
|
|||
|
sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.GetEXP >LDA.G CORE.ArgIndex
|
|||
|
inc
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
bcc .1
|
|||
|
|
|||
|
>LDA.G CORE.ArgIndex no op, return text value
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
rts
|
|||
|
|
|||
|
.1 >LDA.G CORE.ArgIndex
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
>SYSCALL AToL
|
|||
|
bcs .99
|
|||
|
|
|||
|
>PULLL.G M32.ACC
|
|||
|
|
|||
|
jsr CORE.GetEXP.GetNext
|
|||
|
|
|||
|
.2 >PUSHYA
|
|||
|
>LDYA L.CORE.Eval.TOKEN4 + - .... ?
|
|||
|
jsr Lookup
|
|||
|
|
|||
|
bcs .9
|
|||
|
txa
|
|||
|
>STA.G CORE.Operator
|
|||
|
|
|||
|
jsr M32.ACC2ARG
|
|||
|
|
|||
|
jsr CORE.GetEXP.GetNext get next argument in ACC
|
|||
|
.99 bcs .9
|
|||
|
|
|||
|
>SYSCALL AToL
|
|||
|
bcs .9
|
|||
|
|
|||
|
>PULLL.G M32.ACC
|
|||
|
jsr CORE.GetEXP.Op
|
|||
|
bcs .9
|
|||
|
|
|||
|
jsr CORE.GetEXP.GetNext another op ?
|
|||
|
bcc .2
|
|||
|
|
|||
|
.8 >PUSHL.G M32.ACC
|
|||
|
>PUSHBI 4
|
|||
|
>PUSHW L.M32.Printf
|
|||
|
>LEA.G M32.BUF
|
|||
|
>SYSCALL sprintf
|
|||
|
bcs .9
|
|||
|
|
|||
|
>LEA.G M32.Buf
|
|||
|
|
|||
|
rts
|
|||
|
|
|||
|
.9 lda #E.BADEXP
|
|||
|
rts
|
|||
|
|
|||
|
CORE.GetEXP.Op >LDA.G CORE.Operator
|
|||
|
tax
|
|||
|
jmp (J.CORE.Eval.TOKEN4,x)
|
|||
|
*--------------------------------------
|
|||
|
CORE.GetEXP.GetNext
|
|||
|
>INC.G CORE.ArgIndex
|
|||
|
tax
|
|||
|
jsr CORE.GetArgX
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.GetArgX >LDYA ZPArgVBuf
|
|||
|
|
|||
|
dex
|
|||
|
bmi .8
|
|||
|
|
|||
|
>STYA ZPPtr1
|
|||
|
|
|||
|
.1 lda (ZPPtr1)
|
|||
|
beq .9
|
|||
|
|
|||
|
.2 inc ZPPtr1
|
|||
|
bne .3
|
|||
|
inc ZPPtr1+1
|
|||
|
.3 lda (ZPPtr1)
|
|||
|
bne .2
|
|||
|
|
|||
|
inc ZPPtr1
|
|||
|
bne .4
|
|||
|
inc ZPPtr1+1
|
|||
|
|
|||
|
.4 lda (ZPPtr1)
|
|||
|
beq .9
|
|||
|
|
|||
|
dex
|
|||
|
bpl .1
|
|||
|
|
|||
|
>LDYA ZPPtr1
|
|||
|
|
|||
|
.8 clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.IsSwitch >STYA ZPPtr1
|
|||
|
lda (ZPPtr1)
|
|||
|
cmp #'-'
|
|||
|
bne .9
|
|||
|
|
|||
|
ldy #1
|
|||
|
lda (ZPPtr1),y
|
|||
|
beq .9
|
|||
|
|
|||
|
iny
|
|||
|
lda (ZPPtr1),y
|
|||
|
bne .9
|
|||
|
|
|||
|
dey
|
|||
|
lda (ZPPtr1),y
|
|||
|
cmp #'a'
|
|||
|
bcc .8
|
|||
|
cmp #'z'+1
|
|||
|
bcs .8
|
|||
|
eor #$20
|
|||
|
|
|||
|
.8 clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 >LDYA ZPPtr1
|
|||
|
sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.StkPushPtr lda ZPInputBufPtrBak
|
|||
|
jsr CORE.StkPush
|
|||
|
bcs CORE.StkPullPtr.9
|
|||
|
lda ZPInputBufPtrBak+1
|
|||
|
bra CORE.StkPush
|
|||
|
.9 rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.StkPullPtr jsr CORE.StkPull
|
|||
|
bcs CORE.StkPullPtr.9
|
|||
|
sta ZPInputBufPtr+1
|
|||
|
jsr CORE.StkPull
|
|||
|
bcs CORE.StkPullPtr.9
|
|||
|
sta ZPInputBufPtr
|
|||
|
CORE.StkPullPtr.9
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.StkGetPtr lda (pData) StackPtr
|
|||
|
beq .9
|
|||
|
dec
|
|||
|
beq .9
|
|||
|
|
|||
|
tay
|
|||
|
|
|||
|
lda (pData),y
|
|||
|
sta ZPInputBufPtr
|
|||
|
iny
|
|||
|
lda (pData),y
|
|||
|
sta ZPInputBufPtr+1
|
|||
|
|
|||
|
clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 lda #E.SSYN
|
|||
|
sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.StkPush pha
|
|||
|
lda (pData) StackPtr
|
|||
|
inc
|
|||
|
cmp #CORE.STACK.MAX
|
|||
|
beq .9
|
|||
|
sta (pData) StackPtr
|
|||
|
tay
|
|||
|
pla
|
|||
|
sta (pData),y
|
|||
|
* clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 pla
|
|||
|
lda #E.STKOVERFLOW
|
|||
|
* sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.StkPull jsr CORE.StkGet
|
|||
|
bcs .9
|
|||
|
|
|||
|
dey
|
|||
|
pha
|
|||
|
tya
|
|||
|
sta (pData) StackPtr
|
|||
|
pla
|
|||
|
|
|||
|
.9 rts
|
|||
|
*--------------------------------------
|
|||
|
CORE.StkGet lda (pData) StackPtr
|
|||
|
beq .9
|
|||
|
tay
|
|||
|
lda (pData),y
|
|||
|
clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 lda #E.SSYN
|
|||
|
sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
MAN
|
|||
|
SAVE USR/SRC/BIN/SHELL.S.CORE
|
|||
|
LOAD USR/SRC/BIN/SHELL.S
|
|||
|
ASM
|