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

diff --git a/bin/asm b/bin/asm
index 883225d..0fabd8d 100755
--- a/bin/asm
+++ b/bin/asm
@@ -1,43 +1,61 @@
-#!/bin/bash
+#!/bin/sh
 # Assembler wrapper for simh h316
 
 if [ ! $1 ] ; then
-    echo "Argument fehlt!"
+    echo -e "Assembler: Input file missing!"
     exit 2
 fi
 
+echo -en "Assembler: Translating \"$1\":"
+
+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
-
-rm -f $name.par
-rm -f $name.go
+cat > $name.go <<EOF
+rest  $H316/sys/dap.sys
+r
+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
+
 
 if cat $name.lst | grep "NO ERRORS IN ABOVE ASSEMBLY">/dev/null 2>&1; then
 	if [ !  $2  ]; then
 		rm $name.lst
+		rm -f $name.par
+		rm -f $name.go
 	fi
-	echo "DAP-16 assembly successfull :-)"
+	echo " Success."
 	exit 0
 fi
 cat $name.lst
-echo -e "\nDAP-16 assembly FAILED!"
+echo -e " FAILED!"
 rm -f $name.obj
 exit 77