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

OD: Add CS.RUN.ISATTY and use it to control CR/CRLF

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-07-04 15:59:46 -04:00
parent b539462726
commit 24fbd7ddb1
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
BIN/OD.S.txt
View File

@ -1,3 +1,5 @@
NEW
AUTO 3,1
.LIST OFF .LIST OFF
.OP 65C02 .OP 65C02
.OR $2000 .OR $2000
@ -22,6 +24,7 @@ char .BS 1
ByteCount .BS 3 ByteCount .BS 3
bPause .BS 1 bPause .BS 1
bPipe .BS 1 bPipe .BS 1
bIsTTY .BS 1
bTemp .BS 1 bTemp .BS 1
bDummy .BS 1 bDummy .BS 1
@ -57,6 +60,8 @@ CS.INIT clc
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN stz bPipe CS.RUN stz bPipe
stz bIsTTY
jsr CS.RUN.ISATTY
jsr CS.RUN.CheckArgs jsr CS.RUN.CheckArgs
bcs CS.RUN.LOOP.RTS bcs CS.RUN.LOOP.RTS
@ -209,6 +214,19 @@ CS.RUN.OPEN >PUSHYA
sta hFile sta hFile
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.ISATTY ldy #S.PS.hStdOut
lda (pPS),y
tax
lsr
bcc .9
lda Nod.Table.hFD-2,x
>SYSCALL GetMemPtr
>STYA ZPPtr1
lda (ZPPtr1)
beq .9
inc bIsTTY
.9 rts
*--------------------------------------
CS.QUIT lda hFile CS.QUIT lda hFile
beq .1 beq .1
>SYSCALL FClose >SYSCALL FClose
@ -287,6 +305,8 @@ CS.RUN.PRINTASCII
lda #C.CR lda #C.CR
>SYSCALL PutChar >SYSCALL PutChar
lda bIsTTY
beq .9
lda #C.LF lda #C.LF
>SYSCALL PutChar >SYSCALL PutChar
.9 rts .9 rts
@ -328,3 +348,6 @@ MSG.HEXBYTE .AZ "%h "
DS.START DS.START
DS.END .ED DS.END .ED
*-------------------------------------- *--------------------------------------
MAN
SAVE usr/src/bin/od.s
ASM