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 | |
040533c5 |
21 | |
84a1533f |
22 | cat > $locname.go <<EOF |
040533c5 |
23 | rest $H316/sys/super3.sys |
84a1533f |
24 | at ptr $objname |
040533c5 |
25 | run 36000 |
84a1533f |
26 | go |
27 | e p |
28 | EOF |
29 | |
30 | for library in $LIBS; do |
31 | if [ ! -e "$library" ]; then |
32 | echo "Error: $library not found!" |
33 | exit 3; |
34 | fi |
35 | echo "at ptr $library" >> $locname.go |
36 | echo "go" >> $locname.go |
1f281d48 |
37 | echo "! echo loading $library" >> $locname.go |
84a1533f |
38 | done |
39 | |
40 | cat >> $locname.go <<EOF |
1f281d48 |
41 | ! echo -e "\n************************" |
040533c5 |
42 | run 36002 |
84a1533f |
43 | ! echo -e "\n************************" |
040533c5 |
44 | set cpu history=65536 |
45 | set break 0-17 |
84a1533f |
46 | EOF |
47 | |
48 | #cat $locname.go |
49 | h316 $locname.go |
50 | rm -f $locname.go |
51 | |
52 | exit 0 |
53 | |
54 | |
55 | |