X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=bin%2Fasm;h=cbf6847c4dca428d68350a5c927b0636c909e9cb;hb=e109d6992ce8e3a5f80cdc1a93a3d736bf52f5d7;hp=883225d8930618cd5604f50ac2c3ed84c8ded430;hpb=c08e22bbb226696a64764be9b466a02a3ab0d93f;p=h316.git

diff --git a/bin/asm b/bin/asm
index 883225d..cbf6847 100755
--- a/bin/asm
+++ b/bin/asm
@@ -1,30 +1,45 @@
-#!/bin/bash
+#!/bin/sh
 # Assembler wrapper for simh h316
 
 if [ ! $1 ] ; then
-    echo "Argument fehlt!"
+    echo "Argument missing!"
     exit 2
 fi
 
+for n in $*; do
+  if [ $n == "/v" ]; then
+    VERBOSE=yes
+  fi
+done
+
 name=`basename $1 .asm`
 listfile=$name.lst
 
 cat $1 | tab | paron > $name.par
+
 rm  -f $name.lst
 rm  -f $name.obj
 
-echo "rest  $H316/sys/dap.sys" > $name.go
-echo "d a 120420" >> $name.go
-echo "at ptr $name.par" >> $name.go
-echo "at ptp $name.obj" >> $name.go
-echo "at tty3 $listfile" >> $name.go
-echo "set tty3 uascii" >> $name.go
-echo "set tty3 start" >> $name.go
-echo "go" >> $name.go
-echo "d ptr pos 0" >> $name.go
-echo "go" >> $name.go
-echo "quit" >> $name.go
-h316 $name.go > /dev/null
+cat > $name.go <<EOF
+rest  $H316/sys/dap.sys
+d a 120420
+d p 1000 
+at ptr $name.par 
+at ptp $name.obj 
+at tty3 $listfile 
+set tty3 uascii 
+set tty3 start 
+go 
+d ptr pos 0 
+go 
+quit 
+EOF
+
+if [ "$VERBOSE" == "yes" ]; then
+  h316 $name.go 
+else
+  h316 $name.go > /dev/null
+fi
 
 rm -f $name.par
 rm -f $name.go