cca5539c |
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\ |
1f281d48 |
18 | $H316/lib/iolib/lib/io.lib |
cca5539c |
19 | " |
20 | |
21 | |
22 | cat > $locname.go <<EOF |
23 | rest $H316/sys/super3.sys |
24 | at ptr $objname |
25 | run 36000 |
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 |
37 | done |
38 | |
39 | cat >> $locname.go <<EOF |
40 | !echo -e "\n************************" |
41 | run 36002 |
42 | ! echo -e "\n************************" |
1f281d48 |
43 | |
44 | r |
cca5539c |
45 | at ptp /dev/lp0 |
46 | d p 37000 |
47 | d a 1000 |
48 | go |
49 | d a 100 |
50 | go |
51 | d a 37577 |
52 | go |
53 | quit |
54 | EOF |
55 | |
56 | #cat $locname.go |
57 | h316 $locname.go |
58 | rm -f $locname.go |
59 | |
60 | |
61 | exit 0 |
62 | |
63 | |
64 | |