Suppress Echo while exec A2osX.Startup

This commit is contained in:
Rémy GIBERT 2016-01-10 23:19:11 +01:00
parent 258acd604e
commit a9b3fc6487

View File

@ -127,14 +127,7 @@ CS.RUN lda #0
lda (pData),y
bne .32
ldy #bEchoOff
lda (pData),y
beq .31
>LDYA pData
>SYSCALL SYS.PSTROutYA
.31 jsr History.Add
jsr History.Add
.32 >LDYA pData
>SYSCALL SYS.NewPStrYA
@ -144,7 +137,8 @@ CS.RUN lda #0
sta (pData),y
jsr EXEC.CMD
bcc .4
tay
beq .4
jsr PrintError
.4 ldy #hCmdLine
@ -432,7 +426,11 @@ ReadTxtFile >PUSHWI 127
dey
bne .1
.2 lda #'>'
.2 ldy #bEcho
lda (pData),y
beq .8
lda #'>'
>SYSCALL SYS.COutA
lda #'"'
>SYSCALL SYS.COutA
@ -443,7 +441,7 @@ ReadTxtFile >PUSHWI 127
lda #13
>SYSCALL SYS.COutA
clc
.8 clc
.9 rts
*--------------------------------------
CloseTxtFile ldy #hInputArgs
@ -510,7 +508,7 @@ CmdBuffer .BS CmdBuffer.MAX+1 (pData)
bEscMode .BS 1
bPause .BS 1
bExit .BS 1
bEchoOff .BS 1
bEcho .BS 1
bExitOnEOF .BS 1
hCmdLine .BS 1
hCmdHistory .BS 1