84a1533f |
1 | #!/bin/bash |
2 | # FORTRAN IV simple loading routine |
3 | |
4 | if [ ! $1 ] ; then |
5 | echo "Argument missing!" |
6 | exit 2 |
7 | fi |
8 | |
9 | objname=$1 |
10 | locname=`basename $1 .obj` |
11 | |
12 | echo $locname |
13 | echo $objname |
14 | |
15 | LIBS="$H316/lib/fortran/lib/flib1.lib\ |
16 | $H316/lib/fortran/lib/flib2.lib\ |
17 | $H316/lib/fortran/lib/flib3.lib\ |
18 | $H316/lib/iolib/lib/io.lib\ |
19 | " |
20 | |
21 | cat > $locname.go <<EOF |
6c110227 |
22 | rest $H316/sys/super2.sys |
84a1533f |
23 | at ptr $objname |
24 | go 36000 |
25 | go |
26 | e p |
27 | EOF |
28 | |
29 | for library in $LIBS; do |
30 | if [ ! -e "$library" ]; then |
31 | echo "Error: $library not found!" |
32 | exit 3; |
33 | fi |
34 | echo "at ptr $library" >> $locname.go |
35 | echo "go" >> $locname.go |
36 | done |
37 | |
38 | cat >> $locname.go <<EOF |
39 | r |
e8baeca7 |
40 | !echo -e "\n************************" |
41 | run 36002 |
84a1533f |
42 | ! echo -e "\n************************" |
43 | EOF |
44 | |
45 | #cat $locname.go |
46 | h316 $locname.go |
47 | rm -f $locname.go |
48 | |
49 | exit 0 |
50 | |
51 | |
52 | |