X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=bin%2Fasm;h=d686a53d59d10ca60e046d5dace361ee35084626;hb=ec6239e900c4637a58f3bb76da5d276bc805a419;hp=b7321f5f095e60667ad8af0de9f906d51f3dedc8;hpb=b0031f2a6627a315bfefbd4de7c237719a17c54b;p=h316.git

diff --git a/bin/asm b/bin/asm
index b7321f5..d686a53 100755
--- a/bin/asm
+++ b/bin/asm
@@ -2,10 +2,18 @@
 # Assembler wrapper for simh h316
 
 if [ ! $1 ] ; then
-    echo "Argument mising!"
+    echo "Argument missing!"
     exit 2
 fi
 
+echo -e "\nAssembler: Translating \"$1\":"
+
+for n in $*; do
+  if [ $n == "/v" ]; then
+    VERBOSE=yes
+  fi
+done
+
 name=`basename $1 .asm`
 listfile=$name.lst
 
@@ -16,7 +24,9 @@ rm  -f $name.obj
 
 cat > $name.go <<EOF
 rest  $H316/sys/dap.sys
-d a 120420 
+r
+d a 120420
+d p 1000 
 at ptr $name.par 
 at ptp $name.obj 
 at tty3 $listfile 
@@ -28,20 +38,24 @@ go
 quit 
 EOF
 
-h316 $name.go > /dev/null
+if [ "$VERBOSE" == "yes" ]; then
+  h316 $name.go 
+else
+  h316 $name.go > /dev/null
+fi
 
-rm -f $name.par
-rm -f $name.go
 
 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 "Assembler: Success."
 	exit 0
 fi
 cat $name.lst
-echo -e "\nDAP-16 assembly FAILED!"
+echo -e "Assembler: Failed."
 rm -f $name.obj
 exit 77