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 |
22 | rest $H316/sys/super3.sys |
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 |
40 | ! echo -e "\n************************" |
41 | EOF |
42 | |
43 | #cat $locname.go |
44 | h316 $locname.go |
45 | rm -f $locname.go |
46 | |
47 | exit 0 |
48 | |
49 | |
50 | |