2016-08-17 06:25:58 +00:00
|
|
|
|
PR#3
|
2017-03-29 15:48:15 +00:00
|
|
|
|
PREFIX /A2OSX.BUILD
|
2016-08-17 06:25:58 +00:00
|
|
|
|
NEW
|
|
|
|
|
INC 1
|
|
|
|
|
AUTO 6
|
|
|
|
|
.LIST OFF
|
|
|
|
|
*--------------------------------------
|
2017-07-10 15:50:32 +00:00
|
|
|
|
TXT.Exec jsr TXT.GetBuffer
|
|
|
|
|
jsr TXT.GetChar
|
2016-08-17 06:25:58 +00:00
|
|
|
|
bcs .9
|
|
|
|
|
|
2017-07-10 15:50:32 +00:00
|
|
|
|
.11 cmp #' '
|
|
|
|
|
bne .10
|
|
|
|
|
|
|
|
|
|
jsr TXT.GetNextChar
|
|
|
|
|
bcc .11
|
2016-08-17 06:25:58 +00:00
|
|
|
|
bcs .9
|
|
|
|
|
|
2017-07-10 15:50:32 +00:00
|
|
|
|
.10 ldy #0
|
|
|
|
|
|
2016-08-17 06:25:58 +00:00
|
|
|
|
cmp #$0D
|
2017-07-10 15:50:32 +00:00
|
|
|
|
beq .2
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
2017-07-10 15:50:32 +00:00
|
|
|
|
.1 iny
|
|
|
|
|
sta (pData),y
|
|
|
|
|
|
|
|
|
|
cpy #CmdLine.MAX
|
2016-08-17 06:25:58 +00:00
|
|
|
|
beq .2
|
2017-07-10 15:50:32 +00:00
|
|
|
|
|
|
|
|
|
jsr TXT.GetNextChar
|
|
|
|
|
bcs .3
|
|
|
|
|
cmp #$0D
|
2016-08-17 06:25:58 +00:00
|
|
|
|
bne .1
|
|
|
|
|
|
2017-07-10 15:50:32 +00:00
|
|
|
|
.2 jsr TXT.GetNextChar Skip CR
|
|
|
|
|
|
|
|
|
|
.3 tya
|
|
|
|
|
sta (pData)
|
|
|
|
|
|
|
|
|
|
ldy #bEcho
|
2016-08-17 06:25:58 +00:00
|
|
|
|
lda (pData),y
|
|
|
|
|
beq .8
|
|
|
|
|
|
2016-10-17 06:21:04 +00:00
|
|
|
|
>PUSHW pData
|
|
|
|
|
>LDYA L.MSG.ECHO
|
2017-04-03 06:01:52 +00:00
|
|
|
|
>SYSCALL PPrintFYA
|
2016-08-17 06:25:58 +00:00
|
|
|
|
.8 clc
|
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
2017-07-10 15:50:32 +00:00
|
|
|
|
TXT.GetBuffer ldy #hBatchFile
|
2016-08-17 06:25:58 +00:00
|
|
|
|
lda (pData),y
|
2017-07-10 15:50:32 +00:00
|
|
|
|
>SYSCALL GetMemPtrA
|
|
|
|
|
>STYA ZPBufBase
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
2017-07-10 15:50:32 +00:00
|
|
|
|
ldy #BatchFileLen
|
|
|
|
|
lda (pData),y
|
|
|
|
|
clc
|
|
|
|
|
adc ZPBufBase
|
|
|
|
|
sta ZPBufEnd
|
2016-09-26 16:02:14 +00:00
|
|
|
|
|
2017-07-10 15:50:32 +00:00
|
|
|
|
iny
|
|
|
|
|
lda (pData),y
|
|
|
|
|
adc ZPBufBase+1
|
|
|
|
|
sta ZPBufEnd+1
|
|
|
|
|
|
|
|
|
|
TXT.SetBufPtr ldy #BatchFilePtr
|
|
|
|
|
lda (pData),y
|
|
|
|
|
clc
|
|
|
|
|
adc ZPBufBase
|
|
|
|
|
sta ZPBufPtr
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
lda (pData),y
|
|
|
|
|
adc ZPBufBase+1
|
|
|
|
|
sta ZPBufPtr+1
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
TXT.PushPtr
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
TXT.GetNextChar phy
|
|
|
|
|
ldy #BatchFilePtr
|
|
|
|
|
lda (pData),y
|
|
|
|
|
inc
|
2016-08-17 06:25:58 +00:00
|
|
|
|
sta (pData),y
|
2017-07-10 15:50:32 +00:00
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
lda (pData),y
|
|
|
|
|
inc
|
|
|
|
|
sta (pData),y
|
|
|
|
|
|
|
|
|
|
.1 ply
|
|
|
|
|
|
|
|
|
|
inc ZPBufPtr
|
|
|
|
|
bne TXT.GetChar
|
|
|
|
|
inc ZPBufPtr+1
|
|
|
|
|
|
|
|
|
|
TXT.GetChar lda ZPBufPtr
|
|
|
|
|
eor ZPBufEnd
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
lda ZPBufPtr+1
|
|
|
|
|
eor ZPBufEnd+1
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
lda #MLI.ERR.EOF
|
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.1 lda (ZPBufPtr)
|
|
|
|
|
clc
|
2016-08-17 06:25:58 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
2017-03-29 15:48:15 +00:00
|
|
|
|
SAVE /A2OSX.SRC/SBIN/SHELL.S.TXT
|
|
|
|
|
LOAD /A2OSX.SRC/SBIN/SHELL.S
|
2016-08-17 06:25:58 +00:00
|
|
|
|
ASM
|