Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-29 02:49:54 +00:00
Code Issues Projects Releases Wiki Activity

CAT: minor cleanup. Ready to merge.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-07-04 15:07:56 -04:00
parent cc3624079f
commit f8e107fbf9
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
BIN/CAT.S.txt
View File

@ -21,7 +21,7 @@ ArgCount .BS 1
FileCount .BS 1 FileCount .BS 1
bPause .BS 1 bPause .BS 1
bDummy .BS 1 bDummy .BS 1
bStdout .BS 1 bIsTTY .BS 1
ArgIndex .BS 1 ArgIndex .BS 1
hBuf .BS 1 hBuf .BS 1
hFile .BS 1 hFile .BS 1
@ -56,7 +56,7 @@ CS.INIT clc
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN CS.RUN
.1 stz bStdout .1 stz bIsTTY
inc ArgCount inc ArgCount
lda ArgCount lda ArgCount
@ -124,8 +124,7 @@ CS.RUN
cmp #S.FD.T.PIPE cmp #S.FD.T.PIPE
beq CS.RUN.LOOP beq CS.RUN.LOOP
lda #$ff inc bIsTTY
sta bStdout
>PUSHW L.MSG.INIT >PUSHW L.MSG.INIT
>PUSHBI 0 >PUSHBI 0
@ -186,7 +185,7 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
cmp #C.CR cmp #C.CR
bne CS.RUN.LOOP bne CS.RUN.LOOP
lda bStdout lda bIsTTY
beq CS.RUN.LOOP beq CS.RUN.LOOP
lda #C.LF lda #C.LF