|
|
1.1 root 1: PLS=$1
2: MPXH=$2
3: TEMPLATE=$3
4: AS=$4
5: if test $# -lt 4
6: then
7: echo usage makelocore Pl.s jpx.h Pl.template mas
8: exit 1
9: fi
10: qed - -x makelocore.q -e $MPXH
11: sed "1,/Ken/d
12: s/.*'\(.*\)'.*/ long \1/
13: " < $MPXH > /tmp/x$$
14: sed "/defont/r /tmp/x$$" < $TEMPLATE > $PLS
15: cat > notsolow.s <<!
16: bra.b _start
17: global Drect
18: global mouse
19: global Jdisplayp
20: Drect: short 0; short 0; short 0; short 0
21: mouse: short 0; short 0; short 0; short 0; short 0
22: Jdisplayp: long 0
23: argv: long 0 # not global
24: argc: short 0 # not global
25: _start:
26: mov.l `grep jinit $MPXH | sed 's/[^0-9]//g'` * 4 + 0406, %a0
27: jsr (%a0)
28: mov.l argv, -(%sp)
29: mov.w argc, -(%sp)
30: jsr main
31: mov.l `grep exit $MPXH | sed 's/[^0-9]//g'` * 4 + 0406, %a0
32: jsr (%a0)
33: !
34: echo echo $AS -o /usr/jerq/lib/notsolow.o notsolow.s
35: rm -f /tmp/x$$
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.