*** empty log message ***

[h316.git] / bin / asm_original

diff --git a/bin/asm_original b/bin/asm_original
new file mode 100755 (executable)
index 0000000..7e2080d
--- /dev/null
+++ b/bin/asm_original
@@ -0,0 +1,62 @@
+#!/bin/sh
+# Assembler wrapper for simh h316
+
+if [ ! $1 ] ; then
+    echo "Argument missing!"
+    exit 2
+fi
+
+echo "Assembling $1 with original DAP 8K SLST!"
+
+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
+
+cat > $name.go <<EOF
+at ptr $H316/honeywell/slst/dap_8k.slst
+boot ptr
+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 :-)"
+       exit 0
+fi
+cat $name.lst
+echo -e "\nDAP-16 assembly FAILED!"
+rm -f $name.obj
+exit 77
+