From: hachti <hachti>
Date: Tue, 6 Feb 2007 06:22:10 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?p=h316.git;a=commitdiff_plain;h=cca5539c72858363e5b3d4b862b59088fba8e93e

*** empty log message ***
---

diff --git a/bin/fboot b/bin/fboot
new file mode 100755
index 0000000..6a23624
--- /dev/null
+++ b/bin/fboot
@@ -0,0 +1,64 @@
+#!/bin/bash
+# FORTRAN IV simple loading routine
+
+if [ ! $1 ] ; then
+    echo "Argument missing!"
+    exit 2
+fi
+
+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
+run 36000
+go
+e p
+EOF
+
+for library in $LIBS; do
+    if [ ! -e "$library" ]; then
+	echo "Error: $library not found!"
+	exit 3;
+    fi
+    echo "at ptr $library" >> $locname.go
+    echo "go" >> $locname.go
+done
+
+cat >> $locname.go <<EOF
+!echo -e "\n************************"
+run 36002
+! echo -e "\n************************"
+set cpu history=65536
+set break 0-17
+at ptp /dev/lp0
+d p 37000
+d a 1000
+go
+d a 100
+go
+d a 37577
+go
+quit
+EOF
+    
+#cat $locname.go
+h316 $locname.go 
+rm -f $locname.go
+
+
+exit 0
+
+
+