ldc2: Cosmetic fixes and support for compiler orverride

[h316.git] / bin / fload

diff --git a/bin/fload b/bin/fload
index 351f8d81eb66aa7695c79419c2d5d8061bd37c5b..ab3bf41ae65bbdc88e3016a42a64a737188d52ea 100755 (executable)
--- a/bin/fload
+++ b/bin/fload
@@ -1,45 +1,61 @@
 #!/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