# HG changeset patch
# User Boisy Pitre <boisy.pitre@nuance.com>
# Date 1343327869 18000
# Node ID 06d492093592c47c6574f3903f31c635a9014c66
# Parent  482a547d515590fbd52218c4ada6e863571ee00d
Fixed echo problem with TCPOpen now always turning echo off

diff -r 482a547d5155 -r 06d492093592 level1/cmds/inetd.a
--- a/level1/cmds/inetd.a	Thu Jul 26 12:19:43 2012 -0500
+++ b/level1/cmds/inetd.a	Thu Jul 26 13:37:49 2012 -0500
@@ -83,7 +83,6 @@
                lbsr      TCPOpen
                lbcs      errex
                sta       netpath,u
-
                leax      SetupPorts,pcr
                lbsr      ProcInetd
                lbcs      errex
@@ -421,7 +420,7 @@
                fcb       $00
                puls      d
                ENDC
-               lbsr      SetEcho
+               lbsr      SetEchoOn
                lbcs      ret
                lbsr      SetAutoLF
                lbcs      ret
diff -r 482a547d5155 -r 06d492093592 lib/net.a
--- a/lib/net.a	Thu Jul 26 12:19:43 2012 -0500
+++ b/lib/net.a	Thu Jul 26 13:37:49 2012 -0500
@@ -34,13 +34,13 @@
                os9       I$SetStt
                rts
             
-* Set Echo
+* Set Echo On
 *
 * Entry: A = path to network device
 * Exit:
 *        Success: CC carry clear 
 *        Failure: CC carry set, B = error code
-SetEcho:       pshs      a,x
+SetEchoOn:     pshs      a,x
                bsr       getopts
                bcs       rawex           
                ldb       #1
@@ -49,6 +49,21 @@
                puls      a,x,pc
 
 
+* Set Echo Off
+*
+* Entry: A = path to network device
+* Exit:
+*        Success: CC carry clear 
+*        Failure: CC carry set, B = error code
+SetEchoOff:    pshs      a,x
+               bsr       getopts
+               bcs       rawex           
+               clrb
+               stb       PD.EKO-PD.OPT,x
+               bsr       setopts
+               puls      a,x,pc
+
+
 * Set Auto Linefeed
 *
 * Entry: A = path to network device
@@ -92,6 +107,9 @@
                lda       #UPDAT.
                leax      devnam,pcr
                os9       I$Open
+               bcs       openerr
+               bsr       SetEchoOff
+openerr
                puls      x,y,pc