From 668e4c9cffdf2da118a564d56cc718cf151debc3 Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Sun, 6 Mar 2016 01:36:52 -0500
Subject: [PATCH] set argptr; increment argc by four

---
 src/other/sh.s | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/src/other/sh.s b/src/other/sh.s
index cb26485..e57e282 100644
--- a/src/other/sh.s
+++ b/src/other/sh.s
@@ -28,6 +28,8 @@ newcom:
    dzm argv0			" clear out argv0 for chdir comparison
    dzm argv0+1
    dzm argv0+2
+   lac argcptr
+   dac argptr
    lac iopt			" reset output pointer
    dac opt
    dac nextarg
@@ -106,7 +108,9 @@ eoname:
    sza
     jmp 1f			" last name was a redirect file, skip increment
 
-   isz argc			" increment argc
+   lac argc			" increment argc
+   tad d4
+   dac argc
    lac nextarg
    tad d4			" advance nextarg
    dac nextarg
@@ -242,19 +246,16 @@ error:			" here for error in child: filename pointer in AC
   lac d1; sys write; qmsp; 1
   lac d1; sys write; 1: 0; 4
   lac d1; sys write; nl; 1
-" XXX smes to parent???
   lac d2; sys close
   sys exit
 
 " end code from init.s
 " ================
 
+" here in parent, child pid in AC
 parent:
-   dac pid
-1: sys rmes
-   sad pid
-    jmp newline
-   jmp 1b
+"  sys smes		" hangs until child exits
+   jmp newline
 
 " chdir command:
 changedir:
@@ -389,6 +390,8 @@ outfilep: outfile
 outfile: .=.+4			" buffer for output redirect file name
 infile: .=.+4			" buffer for input redirect file name
 
+argcptr: argc
+
 " leave room for maxargs items of 4 words each
 maxargs=8