# FORTRAN IV compiler wrapper for simh h316
if [ ! $1 ] ; then
- echo "Argument mssing!"
+ echo "Argument missing!"
exit 2
fi
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
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
if [ ! $2 ]; then
rm $name.lst
+ rm -f $name.go
+ rm -f $name.par
+
fi
echo "FORTRAN IV compilation successfull."
exit 0