From: hachti <hachti>
Date: Mon, 3 Apr 2006 12:07:20 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=e5cd2df3e3ca464c2e29e94045082d8c30c53940;p=h316.git

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

diff --git a/bin/frtn b/bin/frtn
index cf40185..42a6ce8 100755
--- a/bin/frtn
+++ b/bin/frtn
@@ -14,7 +14,7 @@ rm  -f $name.lst
 rm  -f $name.obj
 
 cat > $name.go <<EOF
-rest $H316/sys/frtn.sys" > $name.go
+rest $H316/sys/frtn.sys
 r
 at ptr $name.par
 at ptp $name.obj
diff --git a/bin/frun b/bin/frun
index 1a4d2d7..3816857 100755
--- a/bin/frun
+++ b/bin/frun
@@ -2,11 +2,15 @@
 # FORTRAN IV simple executor
 
 if [ ! $1 ] ; then
-    echo "Argument fehlt!"
+    echo "Argument missing!"
     exit 2
 fi
 
-name=`basename $1 .obj`
+objname=$1
+locname=`basename $1 .obj`
+
+echo $locname
+echo $objname
 
 LIBS="$H316/lib/fortran/lib/flib1.lib\
 	$H316/lib/fortran/lib/flib2.lib\
@@ -14,31 +18,35 @@ LIBS="$H316/lib/fortran/lib/flib1.lib\
 	$H316/lib/iolib/lib/io.lib\
 "
 
-echo "rest $H316/sys/super2.sys" > $name.go
-echo "at ptr $name.obj" >> $name.go
-echo "go" >> $name.go
-echo "go" >> $name.go
+cat > $locname.go <<EOF
+rest $H316/sys/super2.sys
+at ptr $objname
+go 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" >> $name.go
-    echo "go" >> $name.go
+    echo "at ptr $library" >> $locname.go
+    echo "go" >> $locname.go
 done
-echo "r" >> $name.go
-echo "! echo -e \"\\n************************\"" >> $name.go
-echo "run 1000" >> $name.go
-echo "! echo -e \"************************\"" >> $name.go
-#echo "quit" >> $name.go
-    
+
+cat >> $locname.go <<EOF
+r
+! echo -e "\n************************"
+run 1000
+! echo   -e "************************"
+;quit
+EOF
     
-#cat $name.go
-h316 $name.go 
+#cat $locname.go
+h316 $locname.go 
 
-rm -f $name.par
-rm -f $name.go
+rm -f $locname.go
 
 exit 0