From e6fc45a7983e4c4856ba4de9b03cf026de27c441 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Mon, 23 Apr 2018 13:29:54 -0700
Subject: [PATCH] Network error messages and code cleanp

---
 src/libsrc/etherip.pla     |  2 ++
 src/libsrc/inet.pla        |  1 +
 src/vmsrc/apple/cmd.pla    |  4 ++--
 src/vmsrc/apple/cmdjit.pla |  2 +-
 src/vmsrc/apple/sossys.pla | 25 -------------------------
 5 files changed, 6 insertions(+), 28 deletions(-)

diff --git a/src/libsrc/etherip.pla b/src/libsrc/etherip.pla
index 3765486..ebd1c99 100644
--- a/src/libsrc/etherip.pla
+++ b/src/libsrc/etherip.pla
@@ -378,12 +378,14 @@ end
 // Open TCP socket in SERVER mode
 //
 def etherListenTCP(lclport, callback, param)
+    puts("TCP/IP not yet implented for this hardware.\n")
     return 0
 end
 //
 // Open TCP socket in CLIENT mode
 //
 def etherConnectTCP(remip, remport, lclport, callback, param)
+    puts("TCP/IP not yet implented for this hardware.\n")
     return 0
 end
 //
diff --git a/src/libsrc/inet.pla b/src/libsrc/inet.pla
index 9289351..e30c73c 100644
--- a/src/libsrc/inet.pla
+++ b/src/libsrc/inet.pla
@@ -213,6 +213,7 @@ def iNetInit
         fin
         driver = driver + ^driver + 1
     loop
+    puts("No network adapters found.\n")
     return NULL
 end
 
diff --git a/src/vmsrc/apple/cmd.pla b/src/vmsrc/apple/cmd.pla
index 39f6036..37bb434 100755
--- a/src/vmsrc/apple/cmd.pla
+++ b/src/vmsrc/apple/cmd.pla
@@ -1132,9 +1132,9 @@ def loadmod(mod)#1
     //
     initcode = 0
     if init
-        init  = init + defofst
+        init     = init + defofst
         initcode = adddef(init, @deflast)()
-        if initcide < modinitkeep
+        if initcode < modinitkeep
             //
             // Free init routine unless initkeep
             //
diff --git a/src/vmsrc/apple/cmdjit.pla b/src/vmsrc/apple/cmdjit.pla
index 379198c..52eeb25 100755
--- a/src/vmsrc/apple/cmdjit.pla
+++ b/src/vmsrc/apple/cmdjit.pla
@@ -1195,7 +1195,7 @@ def loadmod(mod)#1
     //
     initcode = 0
     if init
-        init  = init + defofst
+        init     = init + defofst
         initcode = adddef(deffirst, init, @deflast)()
         if initcode < modinitkeep
             //
diff --git a/src/vmsrc/apple/sossys.pla b/src/vmsrc/apple/sossys.pla
index c3584b8..c600a74 100755
--- a/src/vmsrc/apple/sossys.pla
+++ b/src/vmsrc/apple/sossys.pla
@@ -1190,31 +1190,6 @@ def loadmod(mod)#1
                 *addr = ^rld & $10 ?? *addr + lookupextern(esd, rld->3) :: lookupdef(fixup + codefix, deftbl)
                 rld   = rld + 4
             fin
-            //addr = rld=>1 + modfix
-            //if uword_isge(addr, modaddr) // Skip fixups to header
-            //    if type & $80 // WORD sized fixup.
-            //        fixup = *addr
-            //    else          // BYTE sized fixup.
-            //        fixup = ^addr
-            //    fin
-            //    if ^rld & $10 // EXTERN reference.
-            //        fixup = fixup + lookupextern(esd, rld->3)
-            //    else          // INTERN fixup.
-            //        fixup = fixup + modofst
-            //        if uword_isge(fixup, bytecode)
-            //            //
-            //            // Bytecode address - replace with call def directory.
-            //            //
-            //            fixup = lookupdef(fixup + codefix, deftbl)
-            //        fin
-            //    fin
-            //    if type & $80 // WORD sized fixup.
-            //        *addr = fixup
-            //    else          // BYTE sized fixup.
-            //        ^addr = fixup
-            //    fin
-            //fin
-            //rld = rld + 4
         loop
         //
         // Run through the External/Entry Symbol Directory.