Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-25 18:29:36 +00:00
Code Issues Projects Releases Wiki Activity

Suppress Echo while exec A2osX.Startup

Browse Source
This commit is contained in:
Rémy GIBERT 2016-01-10 23:19:11 +01:00
parent 258acd604e
commit a9b3fc6487
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
SBIN/SHELL.S.txt
View File

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