8321626c |
1 | #!/bin/bash |
2 | # FORTRAN IV simple executor |
3 | |
4 | if [ ! $1 ] ; then |
5 | echo "Argument fehlt!" |
6 | exit 2 |
7 | fi |
8 | |
9 | name=`basename $1 .obj` |
10 | |
11 | echo "rest $H316/sys/super2.sys" > $name.go |
12 | echo "at ptr $name.obj" >> $name.go |
13 | echo "go" >> $name.go |
14 | echo "go" >> $name.go |
15 | echo "at ptr $H316/lib/fortran/original/flib1" >> $name.go |
16 | echo "go" >> $name.go |
17 | echo "at ptr $H316/lib/fortran/original/flib2" >> $name.go |
18 | echo "go" >> $name.go |
19 | echo "at ptr $H316/lib/fortran/original/flib3" >> $name.go |
20 | echo "go" >> $name.go |
21 | if [ -e $H316/lib/iolib/io.lib ]; then |
22 | echo "at ptr $H316/lib/iolib/io.lib" >> $name.go |
23 | else |
24 | echo "io.lib nicht gefunden!" |
25 | exit 3 |
26 | fi |
27 | echo "go" >> $name.go |
28 | echo "r" >> $name.go |
29 | echo "! echo -e \"\\n************************\"" >> $name.go |
30 | echo "run 1000" >> $name.go |
31 | echo "! echo -e \"************************\"" >> $name.go |
32 | echo "quit" >> $name.go |
33 | #cat $name.go |
34 | h316 $name.go |
35 | |
36 | rm -f $name.par |
37 | rm -f $name.go |
38 | |
39 | exit 0 |
40 | |
41 | |
42 | |