projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[h316.git]
/
bin
/
frtn
diff --git
a/bin/frtn
b/bin/frtn
index cf401857456b1c1ed8c553a4164293649befc53b..f89f7d150e4bb0a88e59f451425509193f0bbbc6 100755
(executable)
--- a/
bin/frtn
+++ b/
bin/frtn
@@
-14,7
+14,7
@@
rm -f $name.lst
rm -f $name.obj
cat > $name.go <<EOF
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
r
at ptr $name.par
at ptp $name.obj
@@
-22,6
+22,7
@@
at tty3 $listfile
set tty3 uascii
set tty3 start
d a 311
set tty3 uascii
set tty3 start
d a 311
+;d a 310
d p 1000
d ss1 0
d ss2 1
d p 1000
d ss1 0
d ss2 1
@@
-32,8
+33,6
@@
quit
EOF
h316 $name.go > /dev/null
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 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
if [ ! $2 ]; then
rm $name.lst
+ rm -f $name.go
+ rm -f $name.par
+
fi
echo "FORTRAN IV compilation successfull."
exit 0
fi
echo "FORTRAN IV compilation successfull."
exit 0