X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=bin%2Ffload;h=ab3bf41ae65bbdc88e3016a42a64a737188d52ea;hb=d6a1a234777d52614885de62fd64d1f3119d238b;hp=f94bc6e11b177bead7d0b2dc66a5c5db048a537a;hpb=84a1533f9c01d51509366c44048e90802d76910a;p=h316.git

diff --git a/bin/fload b/bin/fload
index f94bc6e..ab3bf41 100755
--- a/bin/fload
+++ b/bin/fload
@@ -1,43 +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/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************************"
+set cpu history=65536
+set break 0-17
 EOF
     
 #cat $locname.go