A2osX/SBIN/SHELL.S.txt

536 lines
9.5 KiB
Plaintext
Raw Normal View History

2015-03-14 21:48:35 +00:00
PR#3
2015-06-03 18:30:57 +00:00
PREFIX /A2OSX.SRC
2015-03-14 21:48:35 +00:00
NEW
INC 1
AUTO 6
2015-10-19 20:35:00 +00:00
.LIST OFF
2015-03-14 21:48:35 +00:00
.OP 65C02
.OR $2000
2015-06-03 18:30:57 +00:00
.TF /A2OSX.BOOT/SBIN/SHELL
2015-03-14 21:48:35 +00:00
*--------------------------------------
.INB /A2OSX.DEV/INC/MACROS.I
.INB /A2OSX.DEV/INC/PRODOS.I
.INB /A2OSX.DEV/INC/A2OSX.I
2015-03-14 21:48:35 +00:00
*--------------------------------------
ZPPTR1 .EQ ZPBIN
ZPPTR2 .EQ ZPBIN+2
ZPPTR3 .EQ ZPBIN+4
*--------------------------------------
CmdLine.MAX .EQ 127
VarLen.MAX .EQ 15
2015-03-14 21:48:35 +00:00
*--------------------------------------
2015-06-03 18:30:57 +00:00
* File Header (16 Bytes)
2015-03-14 21:48:35 +00:00
*--------------------------------------
CS.START cld
jmp (.1,x)
2015-06-03 18:30:57 +00:00
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
.DA 0
.DA CS.END-CS.START Code Length To Relocate
.DA DS.END-DS.START Data Segment to Allocate
.DA 0
.DA 0
*--------------------------------------
* Relocation Table
2015-10-19 20:35:00 +00:00
*--------------------------------------
2015-03-14 21:48:35 +00:00
.1 .DA CS.INIT
.DA CS.RUN
.DA CS.DOEVENT
.DA CS.QUIT
*--------------------------------------
L.MSG.GREETINGS .DA MSG.GREETINGS
L.MSG.PROMPT .DA MSG.PROMPT
L.MSG.ECHO .DA MSG.ECHO
L.MSG.ERROR .DA MSG.ERROR
L.MSG.PRINTENV .DA MSG.PRINTENV
2015-10-19 20:35:00 +00:00
L.ENV.PATH .DA ENV.PATH
L.ENV.PWD .DA ENV.PWD
L.ENV.PS1 .DA ENV.PS1
2016-08-17 06:25:58 +00:00
L.CMD .DA CMD
L.ARGS .DA ARGS
L.TIME .DA TIME
L.STAT .DA STAT
L.FMT.DATE .DA FMT.DATE
L.FMT.TIME .DA FMT.TIME
2016-08-17 06:25:58 +00:00
L.CMDS .DA CMDS
J.INTCMDS .DA Cmd.Exec.CD
.DA Cmd.Exec.DATE
.DA Cmd.Exec.ECHO
.DA Cmd.Exec.EXIT
.DA Cmd.Exec.PAUSE
.DA Cmd.Exec.PWD
2016-08-17 06:25:58 +00:00
.DA Cmd.Exec.READ
.DA Cmd.Exec.SET
.DA Cmd.Exec.STARTPROC
.DA Cmd.Exec.TIME
L.ERR.Codes .DA ERR.Codes
L.ERR.Messages .DA ERR.Messages
2015-03-14 21:48:35 +00:00
.DA 0
*--------------------------------------
CS.INIT jsr SetPWD
>SYSCALL GetArgC
2016-08-17 06:25:58 +00:00
cmp #1
2015-10-19 20:35:00 +00:00
2016-08-17 06:25:58 +00:00
beq CS.INIT.INTERACTIVE no arg, continue starting interactive
lda #1
>SYSCALL GetArgA
2016-08-17 06:25:58 +00:00
jsr TXT.OpenFileYA
bcs .9
2015-10-19 20:35:00 +00:00
ldy #bExitOnEOF
lda #$FF
sta (pData),y
2015-10-19 20:35:00 +00:00
clc
.9 rts
*--------------------------------------
CS.INIT.INTERACTIVE
2016-08-17 06:25:58 +00:00
jsr HIS.Init
2015-10-19 20:35:00 +00:00
bcs .9
>LDYA L.MSG.GREETINGS
>SYSCALL CPrintFYA
2015-03-14 21:48:35 +00:00
2015-06-03 18:30:57 +00:00
lda (pPs)
2015-03-14 21:48:35 +00:00
ora #S.PS.F.EVENT Now accept events
2015-06-03 18:30:57 +00:00
sta (pPs)
2015-10-19 20:35:00 +00:00
2015-03-14 21:48:35 +00:00
clc
2015-10-19 20:35:00 +00:00
.9 rts
2015-03-14 21:48:35 +00:00
*--------------------------------------
CS.RUN ldy #bPause
lda (pData),y
bmi .8
2015-03-14 21:48:35 +00:00
ldy #VarBuffer READ Command ?
lda (pData),y
bne CS.RUN.READ
ldy #hInputFile batch mode ?
lda (pData),y
beq .10
jmp CS.RUN.BATCH
.10 lda #0
sta (pData)
ldy #bSecureRead
sta (pData),y
jsr PrintPrompt
bcs CS.RUN.EXIT.RTS
.1 >SYSCALL Sleep
2017-01-12 17:43:45 +00:00
>SYSCALL GetC
bcs .1 no char
jsr CS.CHARIN
2015-06-24 20:41:38 +00:00
lda (pData)
bpl .1
2017-01-12 17:43:45 +00:00
and #$7F
2015-06-03 18:30:57 +00:00
sta (pData)
jsr CmdBuffer.Normalize
2016-08-17 06:25:58 +00:00
lda (pData)
beq .8 Empty line
2016-08-17 06:25:58 +00:00
jsr HIS.Add
>LDYA pData
2016-08-17 06:25:58 +00:00
jsr Cmd.ExecYA
ldy #S.PS.RC
sta (pPs),y
2016-08-17 06:25:58 +00:00
bcc .8
2016-01-10 22:19:11 +00:00
tay
2016-08-17 06:25:58 +00:00
beq .8
jsr ERR.Print
bcs CS.RUN.EXIT.RTS
2015-03-14 21:48:35 +00:00
.8 ldy #bEXIT
2015-06-03 18:30:57 +00:00
lda (pData),y
bne CS.RUN.EXIT
2015-06-03 18:30:57 +00:00
2015-03-14 21:48:35 +00:00
clc
rts
CS.RUN.EXIT lda #0
CS.RUN.EXIT.ERR sec
CS.RUN.EXIT.RTS rts
*--------------------------------------
CS.RUN.READ lda #0
sta (pData)
.1 >SYSCALL Sleep
>SYSCALL GetC
bcs .1 no char
jsr CS.CHARIN
lda (pData)
bpl .1
and #$7F
sta (pData)
>PUSHW pData
lda #VarBuffer
clc
adc pData
tay
lda pData+1
adc #0
>PUSHYA
>SYSCALL SetEnv
php
pha
ldy #VarBuffer
lda #0
sta (pData),y
pla
plp
rts
*--------------------------------------
CS.RUN.BATCH jsr TXT.ReadFile
bcs .9
jsr CmdBuffer.Normalize
lda (pData)
beq .8 Empty line
jsr HIS.Add
>LDYA pData
jsr Cmd.ExecYA
ldy #S.PS.RC
sta (pPs),y
clc
rts
.9 jsr TXT.CloseFile
ldy #bExitOnEOF
lda (pData),y
bne CS.RUN.EXIT
.8 clc
rts
2015-03-14 21:48:35 +00:00
*--------------------------------------
2017-01-12 17:43:45 +00:00
CS.DOEVENT sec
2015-12-13 21:29:51 +00:00
rts
2017-01-12 17:43:45 +00:00
*--------------------------------------
CS.CHARIN tax
ldy #hInputFile Batch mode ?
lda (pData),y
beq .10
2015-12-13 21:29:51 +00:00
* Batch Mode
cpx #3 test Ctrl-c
bne .12
2016-08-17 06:25:58 +00:00
jsr TXT.CloseFile
ldy #bExitOnEOF
lda (pData),y
ldy #bExit
sta (pData),y
clc
rts
.12 cpx #19 test Ctrl-s
bne .8
ldy #bPause
lda #$80
sta (pData),y
2015-12-13 21:29:51 +00:00
clc
rts
* interactive mode
.10 ldy #bEscMode
lda (pData),y
beq .13
cpx #'['
beq .8
lda #0
sta (pData),y
txa
ldx EscChars
.17 cmp EscChars,x
beq .18
dex
bne .17
bra .8
2015-12-13 21:29:51 +00:00
.18 lda EscAscii,x
tax
.13 cpx #$20
2015-06-03 18:30:57 +00:00
bcs .1
2017-01-12 17:43:45 +00:00
jsr CS.CHARIN.CTRL
2015-03-14 21:48:35 +00:00
bra .8
2015-06-03 18:30:57 +00:00
.1 cpx #$7f
2015-03-14 21:48:35 +00:00
bne .2
jsr CmdBuffer.DEL
2015-12-13 21:29:51 +00:00
clc
rts
2015-03-14 21:48:35 +00:00
2015-06-03 18:30:57 +00:00
.2 lda (pData) CmdBuffer
cmp #CmdLine.MAX
2015-03-14 21:48:35 +00:00
beq .8
2015-06-03 18:30:57 +00:00
inc
sta (pData)
tay
txa
sta (pData),y
tax
ldy #bSecureRead
lda (pData),y
bne .8
txa
2017-01-12 17:43:45 +00:00
>SYSCALL PutCA
2015-03-14 21:48:35 +00:00
2015-06-03 18:30:57 +00:00
.8 clc
2015-03-14 21:48:35 +00:00
rts
*--------------------------------------
2017-01-12 17:43:45 +00:00
CS.CHARIN.CTRL cpx #13 CR
2015-03-14 21:48:35 +00:00
bne .10
txa
2017-01-12 17:43:45 +00:00
>SYSCALL PutCA
2015-06-03 18:30:57 +00:00
lda (pData) CmdBuffer
2015-03-14 21:48:35 +00:00
ora #$80
2015-06-03 18:30:57 +00:00
sta (pData)
2015-03-14 21:48:35 +00:00
clc
rts
2015-12-13 21:29:51 +00:00
.10 cpx #$1B esc
bne .11
ldy #bEscMode
lda #$ff
sta (pData),y
clc
rts
.11 cpx #3 Ctrl-C
2015-03-14 21:48:35 +00:00
bne .1
2015-03-14 21:48:35 +00:00
jsr CmdBuffer.CLR
clc
rts
.1 cpx #8 BS (left arrow)
2015-03-14 21:48:35 +00:00
bne .2
jsr CmdBuffer.DEL
clc
rts
.2 cpx #10 LF (down arrow)
2015-03-14 21:48:35 +00:00
bne .3
2016-09-22 06:19:49 +00:00
jsr HIS.GetNext
2015-03-14 21:48:35 +00:00
clc
rts
.3 cpx #11 VT (up arrow)
2015-03-14 21:48:35 +00:00
bne .4
2016-09-22 06:19:49 +00:00
jsr HIS.GetPrev
2015-03-14 21:48:35 +00:00
clc
rts
.4 cpx #21 NAK (right arrow)
2015-03-14 21:48:35 +00:00
bne .8
clc
rts
.8 clc
2015-03-14 21:48:35 +00:00
rts
*--------------------------------------
2016-08-17 06:25:58 +00:00
CS.QUIT jsr HIS.Quit
ldy #hInputFile
lda (pData),y
beq .1
>SYSCALL FCloseA
.1
2016-08-17 06:25:58 +00:00
.8 clc
2015-03-14 21:48:35 +00:00
rts
*--------------------------------------
* PRIVATE
*--------------------------------------
SetPWD ldy #S.PS.hPREFIX
lda (pPs),y
>SYSCALL GetMemPtrA
>PUSHYA
>PUSHW L.ENV.PWD
>SYSCALL SetEnv
rts
*--------------------------------------
PrintPrompt >LDYA L.ENV.PS1
>SYSCALL GetEnvYA
>SYSCALL ExpandPStrYA
phx
>PUSHYA
pla
>SYSCALL FreeMemA
>LDYA L.MSG.PROMPT
>SYSCALL CPrintFYA
.9 rts
*--------------------------------------
2016-08-17 06:25:58 +00:00
* Remove extra SPACE & comment
*--------------------------------------
CmdBuffer.Normalize
>LDYA pData
>STYA ZPPtr1
lda (pData) empty line...quit
beq .9
tax Char count
ldy #0
.1 jsr CmdBuffer.Normalize.Next
beq .8 no more char, exit
cmp #' ' skip leading spaces
beq .1
cmp #'#' Comment ?
beq .8 ignore remaining chars
.3 iny add char to buffer
sta (pData),y
jsr CmdBuffer.Normalize.Next
beq .8
cmp #' '
bne .3
iny add One SPACE to buffer
sta (pData),y
.5 jsr CmdBuffer.Normalize.Next
beq .8
cmp #' '
beq .5 skip additional spaces
bne .3 no more space, add next word...
.8 tya
sta (pData)
.9 rts
CmdBuffer.Normalize.Next
txa
beq .8
dex
inc ZPPtr1
bne .1
inc ZPPtr1+1
.1 lda (ZPPtr1)
.8 rts
*--------------------------------------
2015-06-03 18:30:57 +00:00
CmdBuffer.PRINT ldy #0
.1 iny
lda (pData),y
2017-01-12 17:43:45 +00:00
>SYSCALL PutCA
2015-06-03 18:30:57 +00:00
tya
cmp (pData)
2015-03-14 21:48:35 +00:00
bne .1
rts
*--------------------------------------
CmdBuffer.CLR jsr CmdBuffer.DEL
bne CmdBuffer.CLR
2015-10-19 20:35:00 +00:00
rts
2015-03-14 21:48:35 +00:00
*--------------------------------------
2015-06-03 18:30:57 +00:00
CmdBuffer.DEL lda (pData)
2015-03-14 21:48:35 +00:00
beq .9
lda #8
2017-01-12 17:43:45 +00:00
>SYSCALL PutCA
2015-06-03 18:30:57 +00:00
lda (pData)
dec
sta (pData)
2015-03-14 21:48:35 +00:00
.9 rts
2015-10-19 20:35:00 +00:00
*--------------------------------------
.INB SBIN/SHELL.S.CMD
.INB SBIN/SHELL.S.ERR
2015-10-19 20:35:00 +00:00
.INB SBIN/SHELL.S.HIS
2016-08-17 06:25:58 +00:00
.INB SBIN/SHELL.S.TXT
2015-03-14 21:48:35 +00:00
*--------------------------------------
CS.END
*--------------------------------------
ENV.PATH >PSTR "PATH"
ENV.PWD >PSTR "PWD"
ENV.PS1 >PSTR "PS1"
CMDS >PSTR "CD"
>PSTR "DATE"
>PSTR "ECHO"
>PSTR "EXIT"
>PSTR "PAUSE"
>PSTR "PWD"
>PSTR "READ"
>PSTR "SET"
>PSTR "STARTPROC"
>PSTR "TIME"
2015-10-19 20:35:00 +00:00
.HS 00
2015-03-14 21:48:35 +00:00
*--------------------------------------
2017-01-12 17:43:45 +00:00
MSG.GREETINGS >CSTR "\nA2osX-Shell\n\n"
MSG.PROMPT >CSTR "%S$ "
MSG.ECHO >CSTR ">%S\n"
MSG.ERROR >CSTR "%S ($%h)\n"
FMT.DATE >PSTR "%A, %B %d %Y"
FMT.TIME >PSTR "%H:%M:%S (%I:%M:%S%p)"
MSG.PRINTENV >CSTR "%S=%S\n"
*--------------------------------------
.INB X.ERRORS.S
*--------------------------------------
EscChars >PSTR "DBAC"
2015-12-13 21:29:51 +00:00
EscAscii .HS 04080A0B15
2016-08-17 06:25:58 +00:00
CMD .BS 256
ARGS .BS 256
TIME .BS S.TIME
STAT .BS S.STAT
2015-06-03 18:30:57 +00:00
hNEWPATH .BS 1
2016-08-17 06:25:58 +00:00
hCmdLine .BS 1
Cmd.Exec.Mode .BS 1
hFullPath .BS 1
hTextFile .BS 1
2015-03-14 21:48:35 +00:00
*--------------------------------------
2015-06-03 18:30:57 +00:00
.DUMMY
.OR 0
2015-03-14 21:48:35 +00:00
DS.START
CmdBuffer .BS CmdLine.MAX+1 (pData)
VarBuffer .BS VarLen.MAX+1
2015-12-13 21:29:51 +00:00
bEscMode .BS 1
bPause .BS 1
bExit .BS 1
2016-01-10 22:19:11 +00:00
bEcho .BS 1
bSecureRead .BS 1
2015-12-13 21:29:51 +00:00
bExitOnEOF .BS 1
2015-06-24 20:41:38 +00:00
hCmdHistory .BS 1
2015-10-19 20:35:00 +00:00
CmdHistory.IDX .BS 1
2015-12-13 21:29:51 +00:00
CmdHistory.END .BS 1
hInputFile .BS 1
2015-03-14 21:48:35 +00:00
DS.END
2015-06-03 18:30:57 +00:00
.ED
2015-03-14 21:48:35 +00:00
*--------------------------------------
MAN
SAVE SBIN/SHELL.S
ASM