2018-01-18 06:49:41 +00:00
|
|
|
|
NEW
|
2017-03-29 15:48:15 +00:00
|
|
|
|
PREFIX /A2OSX.BUILD
|
2018-01-18 06:49:41 +00:00
|
|
|
|
AUTO 4,1
|
2015-10-19 20:35:00 +00:00
|
|
|
|
.LIST OFF
|
|
|
|
|
*--------------------------------------
|
2018-10-19 15:26:21 +00:00
|
|
|
|
CMD.Init >LDYAI 256
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL GetMem
|
2017-09-07 15:32:27 +00:00
|
|
|
|
bcs .9
|
2017-09-21 06:35:44 +00:00
|
|
|
|
>STYA ZPCMDBuf
|
2017-09-07 15:32:27 +00:00
|
|
|
|
txa
|
2018-10-29 08:41:10 +00:00
|
|
|
|
>STA.G CMD.hCmdBuf
|
|
|
|
|
|
|
|
|
|
>LDYAI 256
|
|
|
|
|
>SYSCALL GetMem
|
|
|
|
|
bcs .9
|
|
|
|
|
>STYA ZPArgVBuf
|
|
|
|
|
txa
|
|
|
|
|
>STA.G CMD.hArgVBuf
|
|
|
|
|
|
2018-11-12 16:19:44 +00:00
|
|
|
|
lda #CMD.IF.PTR
|
|
|
|
|
tay
|
|
|
|
|
sta (pData),y
|
|
|
|
|
|
2017-09-07 15:32:27 +00:00
|
|
|
|
.9 rts
|
2017-07-17 05:59:30 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-29 08:41:10 +00:00
|
|
|
|
CMD.Quit >LDA.G CMD.hArgVBuf
|
|
|
|
|
beq .1
|
|
|
|
|
>SYSCALL FreeMem
|
|
|
|
|
|
|
|
|
|
.1 >LDA.G CMD.hCmdBuf
|
2017-09-22 06:38:22 +00:00
|
|
|
|
beq .9
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL FreeMem
|
2017-09-22 06:38:22 +00:00
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
2018-11-09 15:59:04 +00:00
|
|
|
|
* Input : ZPArgVBuf
|
|
|
|
|
*--------------------------------------
|
2018-10-29 08:41:10 +00:00
|
|
|
|
Cmd.Exec >LDA.G CMD.IntCmd
|
|
|
|
|
bmi .1
|
2018-10-21 20:54:07 +00:00
|
|
|
|
tax
|
|
|
|
|
jmp (J.CMD.INT,x)
|
2018-10-23 15:36:57 +00:00
|
|
|
|
|
|
|
|
|
.1 >PUSHB.G CMD.PSFlags
|
|
|
|
|
>LDYA ZPArgVBuf
|
2018-10-25 15:31:41 +00:00
|
|
|
|
>SYSCALL execv
|
2018-10-23 15:36:57 +00:00
|
|
|
|
rts
|
2017-09-13 15:34:26 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-21 20:54:07 +00:00
|
|
|
|
* STARTPROC : intcmd = 0
|
2015-10-19 20:35:00 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-21 20:54:07 +00:00
|
|
|
|
Cmd.INT.STARTPROC
|
|
|
|
|
clc
|
2018-10-19 15:26:21 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-10-15 06:25:40 +00:00
|
|
|
|
Cmd.INT.PWD ldy #S.PS.hPREFIX
|
2015-10-19 20:35:00 +00:00
|
|
|
|
lda (pPs),y
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL GetMemPtr
|
2018-08-22 15:23:27 +00:00
|
|
|
|
>SYSCALL puts
|
2018-11-08 14:23:06 +00:00
|
|
|
|
Cmd.INT.PWD.RTS rts
|
|
|
|
|
*--------------------------------------
|
2018-10-21 20:54:07 +00:00
|
|
|
|
Cmd.INT.CD ldx #1
|
|
|
|
|
jsr Cmd.GetArgX
|
|
|
|
|
bcc .1
|
2018-08-11 10:57:57 +00:00
|
|
|
|
|
2017-09-28 15:39:12 +00:00
|
|
|
|
>LDYA L.ENV.HOME
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL GetEnv
|
2018-10-15 06:25:40 +00:00
|
|
|
|
bcs Cmd.INT.PWD
|
2017-09-18 15:43:00 +00:00
|
|
|
|
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL ExpandStr
|
2018-11-08 14:23:06 +00:00
|
|
|
|
bcs Cmd.INT.PWD.RTS
|
2017-09-28 15:39:12 +00:00
|
|
|
|
bra .4
|
2015-10-19 20:35:00 +00:00
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
.1 >SYSCALL RealPath
|
2017-09-28 15:39:12 +00:00
|
|
|
|
bcs .9
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
2018-11-08 14:23:06 +00:00
|
|
|
|
.4 >STYA ZPPtr1
|
2017-09-28 15:39:12 +00:00
|
|
|
|
txa
|
2018-11-08 14:23:06 +00:00
|
|
|
|
>STA.G CMD.hCmdLine
|
2018-10-21 20:54:07 +00:00
|
|
|
|
|
2017-09-28 15:39:12 +00:00
|
|
|
|
ldy #1
|
2018-11-08 14:23:06 +00:00
|
|
|
|
lda (ZPPtr1),y
|
2017-09-28 15:39:12 +00:00
|
|
|
|
beq .8 we have '/'
|
2018-10-26 14:46:11 +00:00
|
|
|
|
|
2017-09-25 15:50:33 +00:00
|
|
|
|
>PUSHEA.G CMD.Stat
|
2018-11-08 14:23:06 +00:00
|
|
|
|
>LDYA ZPPtr1
|
2016-10-24 15:54:43 +00:00
|
|
|
|
>SYSCALL STAT
|
2018-10-26 14:46:11 +00:00
|
|
|
|
bcs .90
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
>LDA.G CMD.Stat+S.STAT.P.TYPE
|
2018-10-22 15:46:09 +00:00
|
|
|
|
cmp #S.FI.T.DIR
|
2016-10-24 15:54:43 +00:00
|
|
|
|
bne Cmd.Exec.ERRSYN
|
2016-09-26 16:02:14 +00:00
|
|
|
|
|
2018-10-29 08:41:10 +00:00
|
|
|
|
ldy #0
|
|
|
|
|
|
|
|
|
|
.5 iny
|
2018-11-08 14:23:06 +00:00
|
|
|
|
lda (ZPPtr1),y
|
2018-10-29 08:41:10 +00:00
|
|
|
|
bne .5
|
|
|
|
|
|
|
|
|
|
dey
|
|
|
|
|
lda #'/'
|
2018-11-08 14:23:06 +00:00
|
|
|
|
cmp (ZPPtr1),y
|
2018-10-29 08:41:10 +00:00
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
iny
|
2018-11-08 14:23:06 +00:00
|
|
|
|
sta (ZPPtr1),y
|
2018-10-29 08:41:10 +00:00
|
|
|
|
iny
|
|
|
|
|
lda #0
|
2018-11-08 14:23:06 +00:00
|
|
|
|
sta (ZPPtr1),y
|
2018-10-29 08:41:10 +00:00
|
|
|
|
|
2018-11-08 14:23:06 +00:00
|
|
|
|
.8 >LDYA ZPPtr1
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL NewStr
|
2018-10-26 14:46:11 +00:00
|
|
|
|
bcs .90
|
2016-03-13 21:53:55 +00:00
|
|
|
|
phx
|
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
ldy #S.PS.hPREFIX
|
|
|
|
|
lda (pPs),y
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL FreeMem
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
2016-03-13 21:53:55 +00:00
|
|
|
|
pla
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
|
|
|
|
ldy #S.PS.hPREFIX
|
|
|
|
|
sta (pPs),y
|
2018-11-08 14:23:06 +00:00
|
|
|
|
jsr SetPWD.I
|
2018-10-26 14:46:11 +00:00
|
|
|
|
|
|
|
|
|
.90 php
|
2018-11-08 14:23:06 +00:00
|
|
|
|
pha
|
2018-10-26 14:46:11 +00:00
|
|
|
|
>LDA.G CMD.hCmdLine
|
|
|
|
|
>SYSCALL FreeMem
|
|
|
|
|
pla
|
|
|
|
|
plp
|
2018-10-15 06:25:40 +00:00
|
|
|
|
.9 rts
|
2016-08-17 06:25:58 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-21 20:54:07 +00:00
|
|
|
|
Cmd.Exec.ERRSYN lda #E.SYN
|
2016-10-24 15:54:43 +00:00
|
|
|
|
sec
|
2018-10-15 06:25:40 +00:00
|
|
|
|
rts
|
2016-10-24 15:54:43 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-22 15:46:09 +00:00
|
|
|
|
Cmd.INT.SET ldx #1
|
2018-10-21 20:54:07 +00:00
|
|
|
|
jsr Cmd.GetArgX
|
|
|
|
|
bcc Cmd.INT.SETVAR
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2017-09-11 06:11:57 +00:00
|
|
|
|
* No arg, print all ENV
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2015-10-19 20:35:00 +00:00
|
|
|
|
ldy #S.PS.hENV
|
|
|
|
|
lda (pPs),y
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL GetMemPtr
|
2015-10-19 20:35:00 +00:00
|
|
|
|
>STYA ZPPTR1
|
2017-09-11 06:11:57 +00:00
|
|
|
|
|
2015-10-19 20:35:00 +00:00
|
|
|
|
.1 lda (ZPPTR1)
|
|
|
|
|
beq .8 Ending 0 ?
|
2016-10-17 15:47:50 +00:00
|
|
|
|
|
2017-09-11 06:11:57 +00:00
|
|
|
|
ldy #$ff
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2017-09-11 06:11:57 +00:00
|
|
|
|
.2 iny
|
|
|
|
|
lda (ZPPTR1),y
|
|
|
|
|
bne .2
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2017-09-11 06:11:57 +00:00
|
|
|
|
tya
|
2016-08-17 06:25:58 +00:00
|
|
|
|
sec
|
2017-09-11 06:11:57 +00:00
|
|
|
|
adc ZPPTR1
|
2016-10-17 15:47:50 +00:00
|
|
|
|
sta ZPPTR2
|
2017-09-11 06:11:57 +00:00
|
|
|
|
lda #0
|
|
|
|
|
adc ZPPTR1+1
|
2016-10-17 15:47:50 +00:00
|
|
|
|
sta ZPPTR2+1
|
|
|
|
|
|
|
|
|
|
>PUSHW ZPPTR2 Push value
|
|
|
|
|
>PUSHW ZPPTR1 Push name
|
2018-10-15 06:25:40 +00:00
|
|
|
|
jsr Cmd.INT.SET.PRINT
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
|
|
|
|
bcs .9
|
2015-10-19 20:35:00 +00:00
|
|
|
|
|
2017-09-11 06:11:57 +00:00
|
|
|
|
ldy #$ff
|
|
|
|
|
|
|
|
|
|
.3 iny
|
|
|
|
|
lda (ZPPTR2),y
|
|
|
|
|
bne .3
|
|
|
|
|
|
|
|
|
|
tya
|
2015-10-19 20:35:00 +00:00
|
|
|
|
sec
|
2017-09-11 06:11:57 +00:00
|
|
|
|
adc ZPPTR2
|
2015-10-19 20:35:00 +00:00
|
|
|
|
sta ZPPTR1
|
2017-09-11 06:11:57 +00:00
|
|
|
|
lda #0
|
|
|
|
|
adc ZPPTR2+1
|
2016-10-17 15:47:50 +00:00
|
|
|
|
sta ZPPTR1+1
|
2015-10-19 20:35:00 +00:00
|
|
|
|
bra .1
|
2016-10-17 15:47:50 +00:00
|
|
|
|
|
2015-10-19 20:35:00 +00:00
|
|
|
|
.8 clc
|
2018-10-15 06:25:40 +00:00
|
|
|
|
.9 rts
|
2018-09-14 13:08:30 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-21 20:54:07 +00:00
|
|
|
|
Cmd.INT.SETVAR >STYA ZPPTR1
|
2018-10-26 14:46:11 +00:00
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
lda (ZPPTR1)
|
|
|
|
|
cmp #'=' string is '=value' ?
|
2018-09-14 13:08:30 +00:00
|
|
|
|
beq .99 syntax error
|
2015-10-19 20:35:00 +00:00
|
|
|
|
|
2018-09-14 13:08:30 +00:00
|
|
|
|
ldy #0
|
2017-09-08 14:49:23 +00:00
|
|
|
|
|
2018-09-14 13:08:30 +00:00
|
|
|
|
.1 iny
|
2018-10-21 20:54:07 +00:00
|
|
|
|
lda (ZPPTR1),y
|
2016-08-17 06:25:58 +00:00
|
|
|
|
beq .3 no =, GetEnv
|
2015-11-22 22:30:06 +00:00
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
cmp #'=' ARGS contains =, PutEnv
|
|
|
|
|
bne .1
|
2015-10-19 20:35:00 +00:00
|
|
|
|
|
2018-09-14 13:08:30 +00:00
|
|
|
|
iny
|
2018-10-21 20:54:07 +00:00
|
|
|
|
lda (ZPPTR1),y
|
2017-09-08 14:49:23 +00:00
|
|
|
|
beq .2 "VAR=" go UnsetEnv
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
>LDYA ZPPTR1 String is VAR=VALUE...
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL PutEnv
|
2018-10-15 06:25:40 +00:00
|
|
|
|
rts
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
2018-09-14 13:08:30 +00:00
|
|
|
|
.2 dey String is "VAR=", Remove ending '='
|
|
|
|
|
lda #0
|
2018-10-21 20:54:07 +00:00
|
|
|
|
sta (ZPPTR1),y
|
2018-09-14 13:08:30 +00:00
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
>LDYA ZPPTR1 String is "VAR"...
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL UnsetEnv
|
2018-10-15 06:25:40 +00:00
|
|
|
|
rts
|
2016-10-17 15:47:50 +00:00
|
|
|
|
|
2016-10-24 15:54:43 +00:00
|
|
|
|
* Print requested VAR
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
.3 >LDYA ZPPTR1
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL GetEnv
|
2016-08-17 06:25:58 +00:00
|
|
|
|
bcs .8
|
|
|
|
|
|
2016-10-17 15:47:50 +00:00
|
|
|
|
>PUSHYA push value
|
2018-10-21 20:54:07 +00:00
|
|
|
|
>PUSHW ZPPTR1 push name
|
2018-10-15 06:25:40 +00:00
|
|
|
|
jsr Cmd.INT.SET.PRINT
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
2016-10-17 15:47:50 +00:00
|
|
|
|
.8 clc
|
2018-10-15 06:25:40 +00:00
|
|
|
|
.9 rts
|
2016-10-24 15:54:43 +00:00
|
|
|
|
|
2017-01-26 16:28:52 +00:00
|
|
|
|
.99 jmp Cmd.Exec.ERRSYN
|
2015-10-19 20:35:00 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-15 06:25:40 +00:00
|
|
|
|
Cmd.INT.SET.PRINT
|
2018-09-14 13:08:30 +00:00
|
|
|
|
>PUSHBI 4
|
|
|
|
|
>LDYA L.MSG.PRINTENV
|
|
|
|
|
>SYSCALL printf
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-10-15 06:25:40 +00:00
|
|
|
|
Cmd.INT.DATE sec
|
2016-10-17 15:47:50 +00:00
|
|
|
|
.HS 90 bcc
|
2018-10-15 06:25:40 +00:00
|
|
|
|
Cmd.INT.TIME clc
|
2016-10-17 15:47:50 +00:00
|
|
|
|
php
|
2017-09-15 15:16:04 +00:00
|
|
|
|
>LEA.G CMD.Time
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL Time
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
2018-10-11 15:23:06 +00:00
|
|
|
|
>PUSHEA.G CMD.Time
|
|
|
|
|
|
2016-10-17 15:47:50 +00:00
|
|
|
|
plp
|
|
|
|
|
bcc .1
|
2016-09-05 16:00:11 +00:00
|
|
|
|
>PUSHW L.FMT.DATE
|
2016-10-17 15:47:50 +00:00
|
|
|
|
bra .2
|
|
|
|
|
.1 >PUSHW L.FMT.TIME
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
2018-10-11 15:23:06 +00:00
|
|
|
|
.2 >LDYA ZPCMDBuf
|
2017-08-22 06:37:03 +00:00
|
|
|
|
>SYSCALL StrFTime
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
2017-11-06 16:25:40 +00:00
|
|
|
|
>LDYA ZPCMDBuf
|
2018-08-22 15:23:27 +00:00
|
|
|
|
>SYSCALL puts
|
2018-10-15 06:25:40 +00:00
|
|
|
|
rts
|
2015-10-19 20:35:00 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-21 20:54:07 +00:00
|
|
|
|
Cmd.INT.ECHO ldx #1
|
|
|
|
|
jsr Cmd.GetArgX
|
|
|
|
|
bcs .71
|
|
|
|
|
|
|
|
|
|
>PUSHYA
|
2018-10-16 15:48:03 +00:00
|
|
|
|
ldy #S.PS.hStdOut
|
|
|
|
|
lda (pPs),y
|
|
|
|
|
>SYSCALL fputs
|
|
|
|
|
bcs .9
|
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
ldx #2
|
|
|
|
|
|
2018-10-16 15:48:03 +00:00
|
|
|
|
.1 phx
|
2018-10-21 20:54:07 +00:00
|
|
|
|
jsr Cmd.GetArgX
|
2018-10-16 15:48:03 +00:00
|
|
|
|
bcs .7
|
|
|
|
|
>PUSHYA
|
|
|
|
|
|
|
|
|
|
lda #C.SPACE
|
|
|
|
|
>SYSCALL putchar
|
|
|
|
|
|
|
|
|
|
ldy #S.PS.hStdOut
|
|
|
|
|
lda (pPs),y
|
|
|
|
|
>SYSCALL fputs
|
|
|
|
|
plx
|
|
|
|
|
inx
|
|
|
|
|
bcc .1
|
2018-10-21 20:54:07 +00:00
|
|
|
|
clc
|
2018-10-16 15:48:03 +00:00
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.7 plx
|
2018-10-21 20:54:07 +00:00
|
|
|
|
.71 >LDA.G bECHO.N
|
2018-10-16 15:48:03 +00:00
|
|
|
|
bmi .8
|
|
|
|
|
|
2018-10-29 08:41:10 +00:00
|
|
|
|
>PUSHBI 0
|
|
|
|
|
>LDYA L.MSG.ECHOCRLF
|
|
|
|
|
>SYSCALL printf
|
|
|
|
|
rts
|
2018-10-16 15:48:03 +00:00
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
.9 rts
|
2015-10-19 20:35:00 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-25 15:31:41 +00:00
|
|
|
|
Cmd.INT.READ ldx #1
|
|
|
|
|
jsr Cmd.GetArgX
|
2017-01-26 16:28:52 +00:00
|
|
|
|
beq .9
|
|
|
|
|
|
|
|
|
|
lda #0
|
2017-09-08 14:49:23 +00:00
|
|
|
|
>STA.G bSecureRead
|
2018-09-17 06:16:45 +00:00
|
|
|
|
>STA.G CMD.VarName.LEN
|
|
|
|
|
|
2017-01-26 16:28:52 +00:00
|
|
|
|
lda pData
|
2015-11-22 22:30:06 +00:00
|
|
|
|
clc
|
2017-09-07 15:32:27 +00:00
|
|
|
|
adc #CMD.VarName
|
2017-01-26 16:28:52 +00:00
|
|
|
|
sta ZPPTR1
|
|
|
|
|
lda pData+1
|
|
|
|
|
adc #0
|
|
|
|
|
sta ZPPTR1+1
|
|
|
|
|
|
2018-09-17 06:16:45 +00:00
|
|
|
|
.1 lda (ZPPtr2)
|
2017-01-26 16:28:52 +00:00
|
|
|
|
beq .8
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
2017-01-26 16:28:52 +00:00
|
|
|
|
cmp #' '
|
2018-09-17 06:16:45 +00:00
|
|
|
|
bne .11
|
2018-10-15 06:25:40 +00:00
|
|
|
|
jsr Cmd.NextCharPtr2
|
2018-09-17 06:16:45 +00:00
|
|
|
|
bra .1
|
|
|
|
|
|
|
|
|
|
.11 cmp #'-'
|
2017-01-26 16:28:52 +00:00
|
|
|
|
bne .7
|
|
|
|
|
|
2018-10-15 06:25:40 +00:00
|
|
|
|
jsr Cmd.NextCharPtr2
|
2017-01-26 16:28:52 +00:00
|
|
|
|
beq .9
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
2017-01-26 16:28:52 +00:00
|
|
|
|
cmp #'S'
|
|
|
|
|
bne .2
|
|
|
|
|
|
|
|
|
|
lda #$80
|
2017-09-08 14:49:23 +00:00
|
|
|
|
>STA.G bSecureRead
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
2018-10-15 06:25:40 +00:00
|
|
|
|
jsr Cmd.NextCharPtr2
|
2018-09-17 06:16:45 +00:00
|
|
|
|
beq .8
|
|
|
|
|
cmp #' '
|
|
|
|
|
bne .9
|
|
|
|
|
|
2017-01-26 16:28:52 +00:00
|
|
|
|
bra .1
|
|
|
|
|
|
|
|
|
|
.2 cmp #'P'
|
|
|
|
|
bne .9
|
|
|
|
|
|
2018-10-15 06:25:40 +00:00
|
|
|
|
jsr Cmd.NextCharPtr2
|
2017-01-26 16:28:52 +00:00
|
|
|
|
beq .9
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
2017-01-26 16:28:52 +00:00
|
|
|
|
cmp #' '
|
|
|
|
|
bne .9
|
|
|
|
|
|
2018-10-15 06:25:40 +00:00
|
|
|
|
jsr Cmd.NextCharPtr2
|
2017-01-26 16:28:52 +00:00
|
|
|
|
beq .9
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
2017-01-26 16:28:52 +00:00
|
|
|
|
cmp #'"'
|
|
|
|
|
bne .9
|
|
|
|
|
|
2018-10-15 06:25:40 +00:00
|
|
|
|
.3 jsr Cmd.NextCharPtr2
|
2017-01-26 16:28:52 +00:00
|
|
|
|
beq .9
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
2017-01-26 16:28:52 +00:00
|
|
|
|
cmp #'"'
|
|
|
|
|
beq .1
|
2017-09-08 14:49:23 +00:00
|
|
|
|
|
2018-07-13 14:38:24 +00:00
|
|
|
|
>SYSCALL PutChar
|
2017-01-26 16:28:52 +00:00
|
|
|
|
bcs .99
|
|
|
|
|
bra .3
|
|
|
|
|
|
|
|
|
|
.9 jmp Cmd.Exec.ERRSYN
|
|
|
|
|
|
2018-09-17 06:16:45 +00:00
|
|
|
|
.7 >LDA.G CMD.VarName.LEN
|
2017-01-26 16:28:52 +00:00
|
|
|
|
cmp #VarLen.MAX
|
|
|
|
|
beq .9
|
2018-09-17 06:16:45 +00:00
|
|
|
|
pha
|
|
|
|
|
|
2017-01-26 16:28:52 +00:00
|
|
|
|
inc
|
2018-09-17 06:16:45 +00:00
|
|
|
|
sta (pData),y
|
|
|
|
|
|
|
|
|
|
ply
|
|
|
|
|
lda (ZPPtr2)
|
|
|
|
|
sta (ZPPTR1),y
|
|
|
|
|
iny
|
|
|
|
|
lda #0
|
2017-01-26 16:28:52 +00:00
|
|
|
|
sta (ZPPTR1),y
|
|
|
|
|
|
2018-10-15 06:25:40 +00:00
|
|
|
|
jsr Cmd.NextCharPtr2
|
2018-09-17 06:16:45 +00:00
|
|
|
|
beq .1
|
|
|
|
|
cmp #' '
|
|
|
|
|
beq .1
|
|
|
|
|
|
|
|
|
|
bra .7
|
|
|
|
|
|
|
|
|
|
.8 >LDA.G CMD.VarName.LEN No var name ? SYNERR
|
2017-01-26 16:28:52 +00:00
|
|
|
|
beq .9
|
|
|
|
|
|
2018-09-17 06:16:45 +00:00
|
|
|
|
lda #$ff
|
|
|
|
|
>STA.G bReadMode
|
|
|
|
|
|
2017-01-26 16:28:52 +00:00
|
|
|
|
clc
|
2018-10-15 06:25:40 +00:00
|
|
|
|
.99 rts
|
2015-11-22 22:30:06 +00:00
|
|
|
|
*--------------------------------------
|
2018-11-09 13:29:23 +00:00
|
|
|
|
Cmd.INT.SLEEP ldx #1
|
|
|
|
|
jsr Cmd.GetArgX
|
|
|
|
|
bcs .9
|
2017-07-17 05:59:30 +00:00
|
|
|
|
|
2017-10-09 15:30:48 +00:00
|
|
|
|
>SYSCALL AToL
|
2017-07-17 05:59:30 +00:00
|
|
|
|
bcs .9
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
|
|
|
|
>PULLL.G Sleep
|
2018-10-15 06:25:40 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
2018-11-10 14:30:09 +00:00
|
|
|
|
.9 jmp Cmd.Exec.ERRSYN
|
2017-07-17 05:59:30 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-15 06:25:40 +00:00
|
|
|
|
Cmd.INT.PAUSE lda #$FF
|
2017-09-08 14:49:23 +00:00
|
|
|
|
>STA.G bPause
|
2015-11-22 22:30:06 +00:00
|
|
|
|
clc
|
2018-10-15 06:25:40 +00:00
|
|
|
|
rts
|
2015-11-22 22:30:06 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-15 06:25:40 +00:00
|
|
|
|
Cmd.INT.EXIT lda #$FF
|
2017-09-08 14:49:23 +00:00
|
|
|
|
>STA.G bExit
|
2015-10-19 20:35:00 +00:00
|
|
|
|
clc
|
2018-10-15 06:25:40 +00:00
|
|
|
|
rts
|
2015-10-19 20:35:00 +00:00
|
|
|
|
*--------------------------------------
|
2018-11-10 14:30:09 +00:00
|
|
|
|
Cmd.INT.MD ldx #1
|
|
|
|
|
jsr Cmd.GetArgX
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
>SYSCALL MKDir
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.9 jmp Cmd.Exec.ERRSYN
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
Cmd.INT.RD ldx #1
|
|
|
|
|
jsr Cmd.GetArgX
|
|
|
|
|
bcs .9
|
|
|
|
|
phy
|
|
|
|
|
pha
|
|
|
|
|
>PUSHEA.G CMD.Stat
|
|
|
|
|
pla
|
|
|
|
|
ply
|
|
|
|
|
>SYSCALL STAT
|
|
|
|
|
bcs .99
|
|
|
|
|
|
|
|
|
|
>LDA.G CMD.Stat+S.STAT.P.TYPE
|
|
|
|
|
cmp #S.FI.T.DIR
|
|
|
|
|
bne .9
|
|
|
|
|
|
|
|
|
|
ldx #1
|
|
|
|
|
jsr Cmd.GetArgX
|
|
|
|
|
>SYSCALL Remove
|
|
|
|
|
.99 rts
|
|
|
|
|
|
|
|
|
|
.9 jmp Cmd.Exec.ERRSYN
|
|
|
|
|
*--------------------------------------
|
2018-11-10 17:43:20 +00:00
|
|
|
|
Cmd.INT.IF >LDA.G CMD.IF.PTR
|
|
|
|
|
cmp #CMD.IF.PTR+CMD.IF.STACK.MAX
|
|
|
|
|
beq .90
|
|
|
|
|
inc
|
|
|
|
|
sta (pData),y
|
|
|
|
|
|
|
|
|
|
ldx #1
|
2018-11-09 15:59:04 +00:00
|
|
|
|
jsr Cmd.GetArgX
|
2018-09-17 06:16:45 +00:00
|
|
|
|
beq .9
|
|
|
|
|
|
2018-11-09 15:59:04 +00:00
|
|
|
|
>PUSHYA
|
|
|
|
|
>LDYA L.CMD.IF.TOKEN1
|
2018-11-10 14:30:09 +00:00
|
|
|
|
jsr Lookup
|
2018-11-09 15:59:04 +00:00
|
|
|
|
|
|
|
|
|
bcs .9
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
2018-11-09 15:59:04 +00:00
|
|
|
|
cpx #4 [ or ![
|
|
|
|
|
bcs .9
|
|
|
|
|
dex
|
|
|
|
|
dex 1 or $ff
|
2018-11-10 17:43:20 +00:00
|
|
|
|
|
|
|
|
|
>LDA.G CMD.IF.PTR
|
|
|
|
|
tay
|
2018-11-09 15:59:04 +00:00
|
|
|
|
txa
|
2018-11-10 17:43:20 +00:00
|
|
|
|
sta (pData),y true or false
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
2018-11-09 15:59:04 +00:00
|
|
|
|
ldx #2
|
|
|
|
|
jsr Cmd.GetArgX
|
2018-09-17 06:16:45 +00:00
|
|
|
|
beq .9
|
|
|
|
|
|
2018-11-09 15:59:04 +00:00
|
|
|
|
>PUSHYA
|
|
|
|
|
>LDYA L.CMD.IF.TOKEN2 -d -e -f ?
|
2018-11-10 14:30:09 +00:00
|
|
|
|
jsr Lookup
|
2018-11-10 17:43:20 +00:00
|
|
|
|
|
2018-11-09 15:59:04 +00:00
|
|
|
|
bcs .1
|
2018-11-10 17:43:20 +00:00
|
|
|
|
|
|
|
|
|
jsr CMD.IF.UNARY
|
|
|
|
|
bcs .99
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
2018-11-10 17:43:20 +00:00
|
|
|
|
>LDA.G CMD.IF.PTR
|
|
|
|
|
tay
|
|
|
|
|
txa
|
|
|
|
|
eor #$ff
|
|
|
|
|
eor (pData),y
|
|
|
|
|
sta (pData),y
|
|
|
|
|
|
|
|
|
|
ldx #4
|
|
|
|
|
jsr Cmd.GetArgX
|
|
|
|
|
beq .9
|
|
|
|
|
|
|
|
|
|
>STYA ZPPTR1
|
|
|
|
|
|
|
|
|
|
lda (ZPPTR1)
|
|
|
|
|
cmp #']'
|
|
|
|
|
bne .9
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
2018-11-10 17:43:20 +00:00
|
|
|
|
ldy #1
|
|
|
|
|
lda (ZPPTR1),y
|
|
|
|
|
bne .9
|
2018-11-09 15:59:04 +00:00
|
|
|
|
.1
|
2018-09-17 06:16:45 +00:00
|
|
|
|
|
2018-11-09 15:59:04 +00:00
|
|
|
|
clc
|
2018-11-10 17:43:20 +00:00
|
|
|
|
.99 rts
|
2018-10-15 06:25:40 +00:00
|
|
|
|
|
2018-11-10 17:43:20 +00:00
|
|
|
|
.9 >LDA.G CMD.IF.PTR
|
|
|
|
|
.90 jmp Cmd.Exec.ERRSYN
|
2018-09-17 06:16:45 +00:00
|
|
|
|
*--------------------------------------
|
2018-11-10 17:43:20 +00:00
|
|
|
|
CMD.IF.UNARY jmp (J.CMD.IF.TOKEN2,x)
|
|
|
|
|
|
2018-11-09 15:59:04 +00:00
|
|
|
|
CMD.IF.D
|
|
|
|
|
CMD.IF.E
|
|
|
|
|
CMD.IF.F
|
2018-11-10 17:43:20 +00:00
|
|
|
|
ldx #1 true
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
Cmd.INT.ELSE >LDA.G CMD.IF.PTR
|
2018-11-12 16:19:44 +00:00
|
|
|
|
>DEBUG
|
2018-11-10 17:43:20 +00:00
|
|
|
|
cmp #CMD.IF.PTR
|
|
|
|
|
beq .9
|
|
|
|
|
|
|
|
|
|
tay
|
|
|
|
|
lda (pData),y
|
|
|
|
|
eor #$ff
|
|
|
|
|
sta (pData),y
|
|
|
|
|
|
2018-11-06 16:31:13 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
2018-11-10 17:43:20 +00:00
|
|
|
|
|
|
|
|
|
.9 lda #E.SYN
|
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
Cmd.INT.FI >LDA.G CMD.IF.PTR
|
|
|
|
|
cmp #CMD.IF.PTR
|
|
|
|
|
beq .9
|
|
|
|
|
|
|
|
|
|
dec
|
|
|
|
|
>STA.G CMD.IF.PTR
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.9 lda #E.SYN
|
|
|
|
|
sec
|
|
|
|
|
rts
|
2018-11-06 16:31:13 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-21 20:54:07 +00:00
|
|
|
|
Cmd.GetArgX >LDYA ZPArgVBuf
|
2018-10-16 15:48:03 +00:00
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
dex
|
2018-10-16 15:48:03 +00:00
|
|
|
|
bmi .8
|
|
|
|
|
|
|
|
|
|
>STYA ZPPtr1
|
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
.1 jsr Cmd.NextArgPtr1
|
|
|
|
|
bcs .9
|
|
|
|
|
dex
|
|
|
|
|
bpl .1
|
2018-10-16 15:48:03 +00:00
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
>LDYA ZPPtr1
|
2018-10-19 06:13:04 +00:00
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
.8 clc
|
|
|
|
|
.9 rts
|
2018-10-16 15:48:03 +00:00
|
|
|
|
*--------------------------------------
|
2018-10-21 20:54:07 +00:00
|
|
|
|
Cmd.NextArgPtr1 lda (ZPPtr1)
|
2018-10-16 15:48:03 +00:00
|
|
|
|
beq .9
|
2018-10-19 06:13:04 +00:00
|
|
|
|
|
|
|
|
|
.1 inc ZPPtr1
|
|
|
|
|
bne .2
|
|
|
|
|
inc ZPPtr1+1
|
|
|
|
|
.2 lda (ZPPtr1)
|
|
|
|
|
bne .1
|
2018-10-16 15:48:03 +00:00
|
|
|
|
|
2018-10-19 06:13:04 +00:00
|
|
|
|
inc ZPPtr1
|
2018-10-21 20:54:07 +00:00
|
|
|
|
bne .3
|
2018-10-19 06:13:04 +00:00
|
|
|
|
inc ZPPtr1+1
|
2018-10-16 15:48:03 +00:00
|
|
|
|
|
2018-10-21 20:54:07 +00:00
|
|
|
|
.3 lda (ZPPtr1)
|
2018-10-16 15:48:03 +00:00
|
|
|
|
beq .9
|
2018-10-21 20:54:07 +00:00
|
|
|
|
|
|
|
|
|
.8 clc
|
2018-10-16 15:48:03 +00:00
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.9 sec
|
2017-09-15 15:16:04 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-10-15 06:25:40 +00:00
|
|
|
|
Cmd.NextCharPtr2NB
|
|
|
|
|
.1 jsr Cmd.NextCharPtr2
|
2018-09-17 06:16:45 +00:00
|
|
|
|
beq .9
|
|
|
|
|
cmp #C.SPACE
|
|
|
|
|
beq .1
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
2018-10-15 06:25:40 +00:00
|
|
|
|
Cmd.NextCharPtr2
|
2018-09-17 06:16:45 +00:00
|
|
|
|
inc ZPPtr2
|
|
|
|
|
bne .1
|
|
|
|
|
inc ZPPtr2+1
|
|
|
|
|
.1 lda (ZPPtr2)
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2015-10-19 20:35:00 +00:00
|
|
|
|
MAN
|
2017-03-29 15:48:15 +00:00
|
|
|
|
SAVE /A2OSX.SRC/SBIN/SHELL.S.CMD
|
|
|
|
|
LOAD /A2OSX.SRC/SBIN/SHELL.S
|
2015-10-19 20:35:00 +00:00
|
|
|
|
ASM
|