X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=bin%2Ffrtn_original;h=2dfeede35cbf84b238a56befe6c03955fe1e1fd4;hb=3c5f7d028c961fc369ae184e4ab585166219dc7c;hp=eb0faa9a4c5daace940a4e8091c752e9ff25c604;hpb=fa105a9b1957e54e3a63fdcda359fd0abc453a44;p=h316.git

diff --git a/bin/frtn_original b/bin/frtn_original
index eb0faa9..2dfeede 100755
--- a/bin/frtn_original
+++ b/bin/frtn_original
@@ -1,59 +1,7 @@
-#!/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
+#!/bin/bash
+export FRTN_ORIGINAL=1
+frtn $@
+exit $?