2 # FORTRAN IV compiler wrapper for simh h316
12 cat $1 | tab | paron
> $name.par
16 echo "rest $H316/sys/frtn.sys" > $name.go
19 echo "at ptr $name.par" >> $name.go
20 echo "at ptp $name.obj" >> $name.go
21 echo "at tty3 $listfile" >> $name.go
22 echo "set tty3 uascii" >> $name.go
23 echo "set tty3 start" >> $name.go
25 echo "d a 311" >> $name.go
26 echo "d p 1000" >> $name.go
27 echo "d ss1 0" >> $name.go
28 echo "d ss2 1" >> $name.go
29 echo "d ss3 0" >> $name.go
30 echo "d ss4 0" >> $name.go
32 echo "quit" >> $name.go
33 h316
$name.go
> /dev
/null
34 #h316 $name.go > /dev/null
38 if cat $name.lst |
egrep "[*]{36,40}">/dev
/null
2>&1; then
40 echo -e "\n\nFORTRAN IV compilation FAILED!"
48 echo "FORTRAN IV compilation successfull."