A2osX/BIN/SH.S.CORE.txt

564 lines
10 KiB
Plaintext
Raw Normal View History

2019-01-28 16:33:30 +00:00
NEW
PREFIX
AUTO 4,1
.LIST OFF
*--------------------------------------
2019-02-01 16:32:29 +00:00
CORE.Init >LDYAI 256
2019-01-31 16:34:02 +00:00
>SYSCALL GetMem
bcs .9
>STYA ZPArgVBuf
txa
>STA.G CORE.hArgVBuf
.9 rts
*--------------------------------------
2019-02-01 16:32:29 +00:00
CORE.Quit >LDA.G CORE.hArgVBuf
beq .9
2019-01-28 16:33:30 +00:00
>SYSCALL FreeMem
2019-02-01 16:32:29 +00:00
.9 rts
2019-01-28 16:33:30 +00:00
*--------------------------------------
2019-02-14 14:51:24 +00:00
* http://heirloom.sourceforge.net/sh/sh.1.html
*--------------------------------------
2019-02-03 21:58:26 +00:00
* Input : ZPArgVBuf (String)
* Tokenize ZPArgVBuf
2019-02-01 16:32:29 +00:00
* :LOOP
* if CmdSep=| :
* set hStdIn = hStdOut
* set hStdOut = Std
* GetCmd from line until | or EOL
* if CmdSep=| :
* create PIPE
* set hStdOut -> PIPE
* CORE.Exec &
* :LOOP
* else CORE.Exec
*--------------------------------------
* SET VAR = `cmd args`, FOR VAR IN `cmd args`
* create PIPE
* set hStdOut -> PIPE
* CORE.Exec `cmd args` &
* set READMODE
* set hStdIn = hStdOut
* set hStdOut = Std
*--------------------------------------
2019-02-11 06:58:33 +00:00
CORE.Run.CSYN lda #E.CSYN
sec
rts
2019-01-28 16:33:30 +00:00
2019-02-07 16:52:25 +00:00
CORE.Run >LDYA ZPInputBufPtr Save Actual cmd for looping
>STYA ZPInputCmdPtr
2019-02-08 16:13:43 +00:00
>LDYA ZPArgVBuf
>STYA ZPArgVBufPtr
2019-02-11 16:44:56 +00:00
lda #0 Reset ArgV Buffer
sta (ZPArgVBuf)
lda #S.PS.F.HOLD+S.PS.F.DUPENV
>STA.G CORE.PSFlags
2019-02-11 06:58:33 +00:00
lda #$ff
>STA.G CORE.IntCmd assume external
2019-02-08 16:13:43 +00:00
2019-02-07 16:52:25 +00:00
jsr CORE.GetCharNB
2019-02-18 16:23:10 +00:00
bcc .11
jsr IO.Reset
lda #0
sec
rts Ending 0, CS,A=0
2019-02-07 16:52:25 +00:00
2019-02-19 11:30:45 +00:00
.11 cmp #'|'
bne .21
jsr IO.Pipe.In
bcs .9
jsr CORE.GetNextCharNB Skip |
bcs CORE.Run.CSYN
bra .3
.21 pha
jsr IO.Reset
pla
.3 cmp #C.CR
2019-02-14 14:51:24 +00:00
beq .80 empty line ?
.10 cmp #'#' commented line?
2019-02-07 16:52:25 +00:00
bne .2
2019-02-19 11:30:45 +00:00
.12 jsr CORE.GetNextCharNB
2019-02-14 14:51:24 +00:00
bcs .8 EOF
2019-02-18 16:23:10 +00:00
2019-02-14 14:51:24 +00:00
cmp #C.CR
2019-02-19 11:30:45 +00:00
bne .12 EOL
2019-02-14 14:51:24 +00:00
.80 jsr CORE.GetNextChar skip CR...
2019-02-11 16:44:56 +00:00
2019-02-18 16:23:10 +00:00
.8 jsr IO.Reset
lda #0
2019-02-14 14:51:24 +00:00
clc
2019-02-19 11:30:45 +00:00
.9 rts EOL, CS,A=0
2019-02-11 06:58:33 +00:00
2019-02-19 11:30:45 +00:00
.2 cmp #'.'
2019-02-11 06:58:33 +00:00
bne .4
2019-02-07 16:52:25 +00:00
ldy #1
lda (ZPInputBufPtr),y
cmp #C.SPACE
2019-02-11 06:58:33 +00:00
bne .4
2019-02-07 16:52:25 +00:00
>LDA.G CORE.PSFlags yes, child process will run in same ENV
and #$ff^S.PS.F.DUPENV
sta (pData),y
jsr CORE.GetNextCharNB skip ". "
bcs CORE.Run.RTS nothing to execute...
2019-02-11 06:58:33 +00:00
.4 >LDYA L.CMD internal command ?
2019-02-11 16:44:56 +00:00
jsr CORE.LookupInputBuf
bcs .6 no...assume external...no IO token Expected
jsr CORE.SkipCharsA
2019-02-11 06:58:33 +00:00
txa
>STA.G CORE.IntCmd
bra .7 internal, do not add token
2019-02-07 16:52:25 +00:00
2019-02-11 06:58:33 +00:00
.5 >LDYA L.CORE.IO
2019-02-11 16:44:56 +00:00
jsr CORE.LookupInputBuf
2019-02-11 06:58:33 +00:00
bcs .6
2019-02-18 12:52:10 +00:00
2019-02-11 16:44:56 +00:00
jsr CORE.SkipCharsA
2019-02-11 06:58:33 +00:00
jsr CORE.IO.JMP
bcs CORE.Run.RTS
bra .7
.6 jsr CORE.ArgV.Add
2019-02-07 16:52:25 +00:00
2019-02-11 06:58:33 +00:00
.7 jsr CORE.GetCharNB
2019-02-11 16:44:56 +00:00
bcs CORE.ExecCmd.1 Nothing to skip
2019-02-07 16:52:25 +00:00
2019-02-11 06:58:33 +00:00
jsr CORE.IsEndCmd
bcs .5
2019-02-11 16:44:56 +00:00
cmp #'|'
bne CORE.ExecCmd skip CR, ;
2019-02-11 06:58:33 +00:00
jsr IO.Pipe.Out
bcs CORE.Run.RTS
2019-02-18 12:52:10 +00:00
jsr CORE.IO.AMP run in background
2019-02-11 06:58:33 +00:00
2019-02-11 16:44:56 +00:00
bra CORE.ExecCmd.1 Do not skip |
2019-02-07 16:52:25 +00:00
CORE.Run.RTS rts
*--------------------------------------
2019-02-11 06:58:33 +00:00
* Input : ZPArgVBuf
*--------------------------------------
2019-02-11 16:44:56 +00:00
CORE.ExecCmd jsr CORE.GetNextCharNB Skip EoL char
CORE.ExecCmd.1 lda #0
sta (ZPArgVBufPtr)
2019-02-14 14:51:24 +00:00
jsr CORE.StkGet IF,WHILE,FOR ?
bcs .3 no particular context, exec...
tax
2019-02-11 16:44:56 +00:00
2019-02-14 14:51:24 +00:00
>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 >LDYA ZPArgVBuf
2019-02-11 16:44:56 +00:00
>STYA ZPArgVBufPtr
2019-02-11 06:58:33 +00:00
>LDA.G CORE.IntCmd
bmi CORE.ExecExtCmd
tax
jmp (J.CMD,x)
2019-02-14 14:51:24 +00:00
.8 clc
rts
2019-02-03 21:58:26 +00:00
CORE.ExecExtCmd >PUSHB.G CORE.PSFlags
2019-02-18 12:52:10 +00:00
>LDYA ZPArgVBuf
2019-02-01 16:32:29 +00:00
>SYSCALL execv
2019-02-15 16:38:17 +00:00
CORE.ExecExtCmd.Exit
2019-01-28 16:33:30 +00:00
bcs .9
2019-02-01 16:32:29 +00:00
tax CPID
2019-01-28 16:33:30 +00:00
2019-02-01 16:32:29 +00:00
>LDA.G CORE.PSFlags
and #S.PS.F.HOLD
bne .4
txa
>PUSHA
>PUSHBI 1
>LDYA L.MSG.PID
>SYSCALL printf
rts
.4 >SLEEP Suspend this PID
2019-01-28 16:33:30 +00:00
2019-02-01 16:32:29 +00:00
sec
ldy #S.PS.RC CPID will update S.PS.RC
lda (pPs),y
bne .9
2019-01-28 16:33:30 +00:00
2019-02-01 16:32:29 +00:00
.8 clc
.9 rts
*--------------------------------------
2019-02-11 16:44:56 +00:00
* search ZPInputBufPtr/ZPArgVBufPtr in Y,A table
2019-02-07 16:52:25 +00:00
*--------------------------------------
2019-02-11 16:44:56 +00:00
CORE.LookupInputBuf
>STYA ZPPtr1
>LDYA ZPInputBufPtr
bra CORE.Lookup
CORE.LookupArgVBuf
>STYA ZPPtr1
>LDYA ZPArgVBufPtr
CORE.Lookup >STYA ZPPtr2
2019-02-07 16:52:25 +00:00
ldx #0
2019-02-11 16:44:56 +00:00
.1 ldy #$ff
2019-02-07 16:52:25 +00:00
.2 iny
2019-02-11 16:44:56 +00:00
lda (ZPPtr2),y
2019-02-07 16:52:25 +00:00
beq .3 Src Keyword end
2019-02-08 16:13:43 +00:00
jsr CORE.IsSpaceOrEndCmd
2019-02-07 16:52:25 +00:00
bcc .3 Src Keyword end
lda (ZPPtr1),y
beq .4 Table Keyword end
2019-02-12 16:47:34 +00:00
lda (ZPPtr2),y
cmp #'a'
bcc .21
cmp #'z'+1
bcs .21
eor #$20
.21 cmp (ZPPtr1),y
2019-02-07 16:52:25 +00:00
beq .2
bra .4
.3 lda (ZPPtr1),y
bne .4
2019-02-11 16:44:56 +00:00
tya Keyword Len
clc
2019-02-07 16:52:25 +00:00
.8 rts
.4 inc ZPPtr1
bne .5
inc ZPPtr1+1
.5 lda (ZPPtr1)
bne .4
inc ZPPtr1
bne .6
inc ZPPtr1+1
2019-02-11 16:44:56 +00:00
.6 inx
2019-02-07 16:52:25 +00:00
inx
lda (ZPPtr1) Array Ending 0, must be an external Cmd....
bne .1
lda #E.CSYN
2019-02-12 16:47:34 +00:00
sec
2019-02-11 06:58:33 +00:00
rts
*--------------------------------------
* ArgV
*--------------------------------------
2019-02-12 16:47:34 +00:00
CORE.ArgV.Add >LDYA ZPArgVBufPtr
>STYA ZPArgVBufPrev Save String start of Expand
2019-02-11 16:44:56 +00:00
2019-02-15 16:38:17 +00:00
lda #C.SPACE
sta TmpByte
2019-02-12 16:47:34 +00:00
jsr CORE.GetCharNB
bcs .9
2019-02-15 16:38:17 +00:00
cmp #'"'
bne .10
sta TmpByte
2019-02-18 16:05:40 +00:00
2019-02-15 16:38:17 +00:00
bra .1
2019-02-12 16:47:34 +00:00
2019-02-15 16:38:17 +00:00
.10 cmp #'`'
bne .11
sta TmpByte
2019-02-11 06:58:33 +00:00
2019-02-15 16:38:17 +00:00
.11 jsr CORE.ArgV.PutChar
2019-02-11 06:58:33 +00:00
2019-02-15 16:38:17 +00:00
.1 jsr CORE.GetNextChar
bcs .5
2019-02-11 06:58:33 +00:00
2019-02-15 16:38:17 +00:00
.2 jsr CORE.IsEndCmd
2019-02-12 16:47:34 +00:00
bcc .5
2019-02-15 16:38:17 +00:00
cmp TmpByte
2019-02-18 16:05:40 +00:00
bne .3
jsr CORE.GetNextChar
bra .5
2019-02-11 06:58:33 +00:00
2019-02-18 16:05:40 +00:00
.3 jsr CORE.ArgV.PutChar
2019-02-11 06:58:33 +00:00
.4 jsr CORE.GetNextChar
2019-02-15 16:38:17 +00:00
bcc .2
2019-02-11 06:58:33 +00:00
2019-02-12 16:47:34 +00:00
.5 lda #0
jsr CORE.ArgV.PutChar
>LDYA ZPArgVBufPrev
>SYSCALL ExpandStr
bcs .9
phx
>STYA ZPPtr1
>LDYA ZPArgVBufPrev
>STYA ZPArgVBufPtr
ldy #$ff
2019-02-15 16:38:17 +00:00
.7 iny
2019-02-12 16:47:34 +00:00
lda (ZPPtr1),y
jsr CORE.ArgV.PutChar
lda (ZPPtr1),y
2019-02-15 16:38:17 +00:00
bne .7
2019-02-12 16:47:34 +00:00
pla
>SYSCALL freemem
.9 rts
2019-02-11 06:58:33 +00:00
*--------------------------------------
CORE.ArgV.PutChar
sta (ZPArgVBufPtr)
CORE.ArgV.NextChar
inc ZPArgVBufPtr
bne .8
2019-02-11 16:44:56 +00:00
inc ZPArgVBufPtr+1
2019-02-11 06:58:33 +00:00
.8 rts
*--------------------------------------
CORE.ArgV.Next lda (ZPArgVBufPtr)
beq .8
2019-02-14 14:51:24 +00:00
>LDYA ZPArgVBufPtr
>STYA ZPArgVBufPrev
2019-02-11 06:58:33 +00:00
.1 jsr CORE.ArgV.NextChar
lda (ZPArgVBufPtr)
bne .1
jsr CORE.ArgV.NextChar
lda (ZPArgVBufPtr)
.8 rts
*--------------------------------------
* IO
*--------------------------------------
CORE.IO.JMP jmp (J.CORE.IO,x)
CORE.IO.AMP >LDA.G CORE.PSFlags
and #$ff^S.PS.F.HOLD
sta (pData),y
clc
CORE.IO.RTS rts
CORE.IO.IN lda #O.RDONLY+O.TEXT
jsr CORE.IO.Open
bcs CORE.IO.RTS
jmp IO.Set.In
CORE.IO.OUTA
CORE.IO.1OUTA lda #O.WRONLY+O.APPEND+O.CREATE+O.TEXT
bra CORE.IO.OUT.1
CORE.IO.OUT
CORE.IO.1OUT lda #O.WRONLY+O.TRUNC+O.CREATE+O.TEXT
CORE.IO.OUT.1 jsr CORE.IO.Open
bcs CORE.IO.RTS
jmp IO.Set.Out
CORE.IO.2OUTA lda #O.WRONLY+O.APPEND+O.CREATE+O.TEXT
bra CORE.IO.2OUT.1
CORE.IO.2OUT lda #O.WRONLY+O.TRUNC+O.CREATE+O.TEXT
CORE.IO.2OUT.1 jsr CORE.IO.Open
bcs CORE.IO.RTS
jmp IO.Set.Err
*--------------------------------------
CORE.IO.Open pha Open Mode
jsr CORE.GetCharNB
bcs .9 no arg left....
2019-02-18 12:52:10 +00:00
jsr CORE.ArgV.Add Get Filename
2019-02-11 06:58:33 +00:00
>PUSHWI 0 Aux type
>PUSHBI S.FI.T.TXT ftype
pla
>PUSHA flags
2019-02-18 12:52:10 +00:00
>LDYA ZPArgVBufPrev
>STYA ZPArgVBufPtr Discard filename
2019-02-11 06:58:33 +00:00
>SYSCALL fopen
2019-02-07 16:52:25 +00:00
rts
2019-02-11 06:58:33 +00:00
.9 pla
lda #E.CSYN
sec
rts
*--------------------------------------
* Input Buffer
2019-02-07 16:52:25 +00:00
*--------------------------------------
2019-02-08 16:13:43 +00:00
CORE.IsSpaceOrEndCmd
cmp #C.SPACE
beq CORE.IsEndCmd.8
CORE.IsEndCmd cmp #C.CR
beq CORE.IsEndCmd.8
2019-02-07 16:52:25 +00:00
cmp #';'
2019-02-08 16:13:43 +00:00
beq CORE.IsEndCmd.8
2019-02-07 16:52:25 +00:00
cmp #'|'
2019-02-08 16:13:43 +00:00
beq CORE.IsEndCmd.8
2019-02-07 16:52:25 +00:00
sec
rts
2019-02-08 16:13:43 +00:00
CORE.IsEndCmd.8 clc
2019-02-07 16:52:25 +00:00
rts
*--------------------------------------
CORE.GetCharNB jsr CORE.GetChar
bcs CORE.GetNextCharNB.RTS
jsr CORE.CheckCharNB
bcc CORE.GetNextCharNB.RTS
*--------------------------------------
CORE.GetNextCharNB
jsr CORE.GetNextChar
bcs CORE.GetNextCharNB.RTS
jsr CORE.CheckCharNB
bcs CORE.GetNextCharNB
CORE.GetNextCharNB.RTS
rts
*--------------------------------------
CORE.CheckCharNB
cmp #C.SPACE
beq .9
cmp #C.LF
beq .9
cmp #C.TAB
beq .9
clc
.9 rts
*--------------------------------------
CORE.GetNextChar
inc ZPInputBufPtr
bne CORE.GetChar
inc ZPInputBufPtr+1
*--------------------------------------
CORE.GetChar lda (ZPInputBufPtr)
beq .9
clc
rts
2019-01-28 16:33:30 +00:00
.9 sec
rts
*--------------------------------------
2019-02-11 16:44:56 +00:00
CORE.SkipCharsA clc
adc ZPInputBufPtr
sta ZPInputBufPtr
bcc .8
inc ZPInputBufPtr+1
.8 rts
*--------------------------------------
2019-02-11 06:58:33 +00:00
* Stack
*--------------------------------------
2019-02-06 16:20:51 +00:00
CORE.StkPushPtr lda ZPInputCmdPtr
2019-01-28 16:33:30 +00:00
jsr CORE.StkPush
bcs CORE.StkPullPtr.9
2019-02-06 16:20:51 +00:00
lda ZPInputCmdPtr+1
2019-02-12 16:47:34 +00:00
bra CORE.StkPush
2019-01-28 16:33:30 +00:00
*--------------------------------------
CORE.StkPullPtr jsr CORE.StkPull
bcs CORE.StkPullPtr.9
2019-02-04 14:29:52 +00:00
sta ZPInputBufPtr+1
2019-01-28 16:33:30 +00:00
jsr CORE.StkPull
bcs CORE.StkPullPtr.9
2019-02-04 14:29:52 +00:00
sta ZPInputBufPtr
2019-01-28 16:33:30 +00:00
CORE.StkPullPtr.9
rts
*--------------------------------------
CORE.StkGetPtr lda (pData) StackPtr
2019-02-12 16:47:34 +00:00
beq CORE.StkErr
2019-01-28 16:33:30 +00:00
dec
2019-02-12 16:47:34 +00:00
beq CORE.StkErr
2019-01-28 16:33:30 +00:00
tay
lda (pData),y
2019-02-04 14:29:52 +00:00
sta ZPInputBufPtr
2019-01-28 16:33:30 +00:00
iny
lda (pData),y
2019-02-04 14:29:52 +00:00
sta ZPInputBufPtr+1
2019-01-28 16:33:30 +00:00
clc
rts
2019-02-12 16:47:34 +00:00
CORE.StkErr lda #E.STACKERROR
2019-01-28 16:33:30 +00:00
sec
rts
*--------------------------------------
2019-01-31 16:34:02 +00:00
CORE.StkPush pha
2019-01-28 16:33:30 +00:00
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
*--------------------------------------
2019-01-31 16:34:02 +00:00
CORE.StkPull jsr CORE.StkGet
2019-01-28 16:33:30 +00:00
bcs .9
dey
pha
tya
sta (pData) StackPtr
pla
.9 rts
*--------------------------------------
CORE.StkGet lda (pData) StackPtr
2019-02-12 16:47:34 +00:00
beq CORE.StkErr
2019-01-28 16:33:30 +00:00
tay
lda (pData),y
clc
rts
*--------------------------------------
MAN
2019-02-08 16:13:43 +00:00
SAVE USR/SRC/BIN/SH.S.CORE
LOAD USR/SRC/BIN/SH.S
2019-01-28 16:33:30 +00:00
ASM