boot-maker: Fix warnings (missing header file)
[h316.git] / bin / fload
index 8dbd25774c10169267b4d008af794faa2652d15b..ab3bf41ae65bbdc88e3016a42a64a737188d52ea 100755 (executable)
--- a/bin/fload
+++ b/bin/fload
@@ -1,24 +1,37 @@
 #!/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/super3.sys
 at ptr $objname
@@ -27,17 +40,18 @@ 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
-!echo -e "\n************************"
+! echo -e "\n************************"
 run 36002
 ! echo -e "\n************************"
 set cpu history=65536