Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-28 10:52:33 +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
bPause .BS 1
bDummy .BS 1
bStdout .BS 1
bIsTTY .BS 1
ArgIndex .BS 1
hBuf .BS 1
hFile .BS 1
@ -56,7 +56,7 @@ CS.INIT clc
rts
*--------------------------------------
CS.RUN
.1 stz bStdout
.1 stz bIsTTY
inc ArgCount
lda ArgCount
@ -124,8 +124,7 @@ CS.RUN
cmp #S.FD.T.PIPE
beq CS.RUN.LOOP
lda #$ff
sta bStdout
inc bIsTTY
>PUSHW L.MSG.INIT
>PUSHBI 0
@ -186,7 +185,7 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
cmp #C.CR
bne CS.RUN.LOOP
lda bStdout
lda bIsTTY
beq CS.RUN.LOOP
lda #C.LF