*** empty log message ***

[h316.git] / bin / frtn_original

diff --git a/bin/frtn_original b/bin/frtn_original
new file mode 100755 (executable)
index 0000000..eb0faa9
--- /dev/null
+++ b/bin/frtn_original
@@ -0,0 +1,59 @@
+#!/bin/sh
+# FORTRAN IV compiler wrapper for simh h316
+
+if [ ! $1 ] ; then
+    echo "Argument missing!"
+    exit 2
+fi
+
+echo "Compiling $1 with original FORTRAN 8K!"
+
+name=`basename $1 .f`
+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/frtn_8k.slst
+boot ptr
+
+r
+at ptr $name.par
+at ptp $name.obj
+at tty3 $listfile
+set tty3 uascii
+set tty3 start
+d a 311
+;d a 310
+d p 1000
+d ss1 0
+d ss2 1
+d ss3 0
+d ss4 0
+go
+;quit
+EOF
+
+h316 $name.go 
+#> /dev/null
+
+if cat $name.lst | egrep "[*]{36,40}">/dev/null 2>&1; then
+       cat $name.lst
+       echo -e "\n\nFORTRAN IV compilation FAILED!"
+       rm -f $name.obj
+       exit 77
+fi
+
+if [ !  $2  ]; then
+       rm $name.lst
+       rm -f $name.go
+       rm -f $name.par
+
+fi
+echo "FORTRAN IV compilation successfull."
+exit 0
+
+
+