From: hachti <hachti>
Date: Sun, 2 Apr 2006 22:07:50 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?p=h316.git;a=commitdiff_plain;h=30773ad6a7189c3d7f50ce2a9ca2f2db228f619a

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

diff --git a/bin/frtn b/bin/frtn
index af46cd6..a7a8fa6 100755
--- a/bin/frtn
+++ b/bin/frtn
@@ -1,8 +1,8 @@
-#!/bin/bash
+#!/bin/sh
 # FORTRAN IV compiler wrapper for simh h316
 
 if [ ! $1 ] ; then
-    echo "Argument fehlt!"
+    echo "Argument mssing!"
     exit 2
 fi
 
@@ -13,25 +13,25 @@ cat $1 | tab | paron > $name.par
 rm  -f $name.lst
 rm  -f $name.obj
 
-echo "rest $H316/sys/frtn.sys" > $name.go
-echo "r" >> $name.go
-
-echo "at ptr $name.par" >> $name.go
-echo "at ptp $name.obj" >> $name.go
-echo "at tty3 $listfile" >> $name.go
-echo "set tty3 uascii" >> $name.go
-echo "set tty3 start" >> $name.go
-
-echo "d a 311" >> $name.go
-echo "d p 1000" >> $name.go
-echo "d ss1 0" >> $name.go
-echo "d ss2 1" >> $name.go
-echo "d ss3 0" >> $name.go
-echo "d ss4 0" >> $name.go
-echo "go" >> $name.go
-echo "quit" >> $name.go
+cat > $name.go <<EOF
+rest $H316/sys/frtn.sys" > $name.go
+r
+at ptr $name.par
+at ptp $name.obj
+at tty3 $listfile
+set tty3 uascii
+set tty3 start
+d a 311
+d p 1000
+d ss1 0
+d ss2 1
+d ss3 0
+d ss4 0
+go
+quit
+EOF
+
 h316 $name.go > /dev/null
-#h316 $name.go > /dev/null
 rm -f $name.par
 rm -f $name.go