Abort loadngo apple2, if the SixtyPical program couldn't compile.
Chris Pressey
3 years ago
|
0 |
byte ds_graphics @ $C050
|
|
1 |
byte ds_text @ $C051
|
|
2 |
byte ds_full @ $C052
|
|
3 |
byte ds_split @ $C053
|
|
4 |
byte ds_page1 @ $C054
|
|
5 |
byte ds_page2 @ $C055
|
|
6 |
byte ds_lores @ $C056
|
|
7 |
byte ds_hires @ $C057
|
|
8 |
|
|
9 |
routine main
|
|
10 |
inputs a
|
|
11 |
outputs ds_lores, ds_page1, ds_split, ds_graphics
|
|
12 |
trashes a, z, n
|
|
13 |
{
|
|
14 |
ld a, 0
|
|
15 |
st a, ds_lores
|
|
16 |
st a, ds_page1
|
|
17 |
st a, ds_split
|
|
18 |
st a, ds_graphics
|
|
19 |
}
|
| 23 | 23 |
elif [ "X$arch" = "Xapple2" ]; then
|
| 24 | 24 |
src="$1"
|
| 25 | 25 |
out=/tmp/a-out.bin
|
| 26 | |
bin/sixtypical --traceback --origin=0x2000 --output-format=raw $src > $out
|
|
26 |
bin/sixtypical --traceback --origin=0x2000 --output-format=raw $src > $out || exit 1
|
| 27 | 27 |
ls -la $out
|
| 28 | 28 |
cp ~/scratchpad/linapple/res/Master.dsk sixtypical.dsk
|
| 29 | 29 |
# TODO: replace HELLO with something that does like
|