From 24fbd7ddb137223e18b3fe1de2ada7ef7d392e5d Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Sun, 4 Jul 2021 15:59:46 -0400
Subject: [PATCH] OD: Add CS.RUN.ISATTY and use it to control CR/CRLF

---
 BIN/OD.S.txt | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/BIN/OD.S.txt b/BIN/OD.S.txt
index 2369ac9e..71b325a4 100644
--- a/BIN/OD.S.txt
+++ b/BIN/OD.S.txt
@@ -1,3 +1,5 @@
+NEW
+  AUTO 3,1
                                 .LIST OFF
                                 .OP     65C02
                                 .OR     $2000
@@ -22,6 +24,7 @@ char                    .BS 1
 ByteCount               .BS 3
 bPause                  .BS 1
 bPipe                   .BS 1
+bIsTTY                  .BS 1
 bTemp                   .BS 1
 bDummy                  .BS 1
 
@@ -57,6 +60,8 @@ CS.INIT                 clc
                         rts
 *--------------------------------------
 CS.RUN                  stz bPipe
+                        stz bIsTTY
+                        jsr CS.RUN.ISATTY
                         jsr CS.RUN.CheckArgs
                         bcs CS.RUN.LOOP.RTS
 
@@ -209,6 +214,19 @@ CS.RUN.OPEN             >PUSHYA
                         sta hFile
 .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
                         beq .1
                         >SYSCALL FClose
@@ -287,6 +305,8 @@ CS.RUN.PRINTASCII
 
                 lda #C.CR
                 >SYSCALL PutChar
+                lda bIsTTY
+                beq .9
                 lda #C.LF
                 >SYSCALL PutChar
 .9              rts
@@ -328,3 +348,6 @@ MSG.HEXBYTE             .AZ "%h "
 DS.START
 DS.END                  .ED
 *--------------------------------------
+MAN
+SAVE usr/src/bin/od.s
+ASM