X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=bin%2Ffrtn;h=1f8bd7c5f273e16840efa54a4711f987df48266e;hb=6ad6bd16506f180bf1a9214233bae33ccf25a299;hp=a7a8fa65e55c03af4d1d2769bcabda486323fa97;hpb=30773ad6a7189c3d7f50ce2a9ca2f2db228f619a;p=h316.git

diff --git a/bin/frtn b/bin/frtn
index a7a8fa6..1f8bd7c 100755
--- a/bin/frtn
+++ b/bin/frtn
@@ -2,7 +2,7 @@
 # FORTRAN IV compiler wrapper for simh h316
 
 if [ ! $1 ] ; then
-    echo "Argument mssing!"
+    echo "Argument missing!"
     exit 2
 fi
 
@@ -14,7 +14,7 @@ rm  -f $name.lst
 rm  -f $name.obj
 
 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,18 +22,17 @@ 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
+;quit
 EOF
 
 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
@@ -44,6 +43,9 @@ fi
 
 if [ !  $2  ]; then
 	rm $name.lst
+	rm -f $name.go
+	rm -f $name.par
+
 fi
 echo "FORTRAN IV compilation successfull."
 exit 0