#!/bin/bash
# FORTRAN IV simple loading routine
+
if [ ! $1 ] ; then
echo "Argument missing!"
exit 2
fi
+if [ ! "$H316" ]; then
+ echo "H316 variable not set!"
+ exit 2
+fi
+
+if [ ! -e "$H316/config/libs.config" ]; then
+ echo "H316/config/libs.config not found!"
+ exit 2
+fi
+
+source "$H316/config/libs.config"
+
+#LOAD_LIBS="$H316/lib/fortran/lib/math.lib\
+# $H316/lib/fortran/lib/flib1.lib\
+# $H316/lib/fortran/lib/flib2.lib\
+# $H316/lib/fortran/lib/flib3.lib\
+# $H316/lib/iolib/lib/io.lib"
+
+
objname=$1
locname=`basename $1 .obj`
echo $locname
echo $objname
-LIBS="$H316/lib/fortran/lib/flib1.lib\
- $H316/lib/fortran/lib/flib2.lib\
- $H316/lib/fortran/lib/flib3.lib\
- $H316/lib/iolib/lib/io.lib\
-"
-
cat > $locname.go <<EOF
-rest $H316/sys/super2.sys
+rest $H316/sys/super3.sys
at ptr $objname
-go 36000
+run 36000
go
e p
EOF
-for library in $LIBS; do
+for library in $LOAD_LIBS; do
if [ ! -e "$library" ]; then
echo "Error: $library not found!"
exit 3;
fi
echo "at ptr $library" >> $locname.go
echo "go" >> $locname.go
+ echo "! echo loading $library" >> $locname.go
done
cat >> $locname.go <<EOF
-r
-!echo -e "\n************************"
- run 36002
! echo -e "\n************************"
+run 36002
+! echo -e "\n************************"
+set cpu history=65536
+set break 0-17
EOF
#cat $locname.go