X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=bin%2Ffrtn;h=31195a86fa1ce3f45aca2eb10db739fbe243e930;hb=7ced2dbeb1a104912fbdd041ce18b0e29a72d893;hp=cf401857456b1c1ed8c553a4164293649befc53b;hpb=b0031f2a6627a315bfefbd4de7c237719a17c54b;p=h316.git

diff --git a/bin/frtn b/bin/frtn
index cf40185..31195a8 100755
--- a/bin/frtn
+++ b/bin/frtn
@@ -1,20 +1,59 @@
 #!/bin/sh
 # FORTRAN IV compiler wrapper for simh h316
 
+if [ "$FRTN_ORIGINAL" ]; then
+    LOGNAME="FORTRAN IV COMPILER (Original):"
+else
+    LOGNAME="FORTRAN IV COMPILER:"
+fi
+
 if [ ! $1 ] ; then
-    echo "Argument missing!"
+    echo "$LOGNAME Input file missing!"
     exit 2
 fi
 
 name=`basename $1 .f`
+if [ ! -f "$1" ]; then 
+    echo "$LOGNAME Input file \"$name\" not found!"
+    exit 2
+fi
+
+
 listfile=$name.lst
 
 cat $1 | tab | paron > $name.par
 rm  -f $name.lst
 rm  -f $name.obj
 
+echo -n "$LOGNAME Compiling \"$1\":"
+
+if [ "$FRTN_ORIGINAL" ]; then
+
+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
+
+
+else
+
 cat > $name.go <<EOF
-rest $H316/sys/frtn.sys" > $name.go
+rest $H316/sys/frtn.sys
 r
 at ptr $name.par
 at ptp $name.obj
@@ -22,6 +61,7 @@ at tty3 $listfile
 set tty3 uascii
 set tty3 start
 d a 311
+;d a 310
 d p 1000
 d ss1 0
 d ss2 1
@@ -31,21 +71,24 @@ go
 quit
 EOF
 
+fi
+
 h316 $name.go > /dev/null
-rm -f $name.par
-rm -f $name.go
 
 if cat $name.lst | egrep "[*]{36,40}">/dev/null 2>&1; then
 	cat $name.lst
-	echo -e "\n\nFORTRAN IV compilation FAILED!"
+	echo -e " 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."
+echo " Success."
 exit 0