More conversion. I think that's the last of it.
Chris Pressey
6 years ago
0 | |
routine chrout
|
|
0 |
define chrout routine
|
1 | 1 |
inputs a
|
2 | 2 |
trashes a
|
3 | 3 |
@ 65490
|
4 | 4 |
|
5 | |
routine main
|
|
5 |
define main routine
|
6 | 6 |
trashes a, x, y, z, n, c, v
|
7 | 7 |
{
|
8 | 8 |
ld a, 0
|
2 | 2 |
define main routine
|
3 | 3 |
inputs lives
|
4 | 4 |
outputs lives
|
5 | |
trashes a, x
|
|
5 |
trashes a, x, z, n, c, v
|
6 | 6 |
{
|
7 | 7 |
ld a, 0
|
8 | 8 |
st a, lives
|
0 | 0 |
define main routine
|
1 | 1 |
inputs a
|
2 | 2 |
outputs a
|
|
3 |
trashes z, n, c
|
3 | 4 |
{
|
4 | 5 |
cmp a, 42
|
5 | 6 |
if z {
|
0 | 0 |
byte table[8] message : "WHAT?"
|
1 | 1 |
|
2 | |
routine main
|
|
2 |
define main routine
|
3 | 3 |
inputs message
|
4 | 4 |
outputs x, a, z, n
|
5 | 5 |
{
|
0 | 0 |
// This will not compile on its own, because there is no `main`.
|
1 | 1 |
// But this and `vector-main.60p` together will compile.
|
2 | 2 |
|
3 | |
routine chrout
|
|
3 |
define chrout routine
|
4 | 4 |
inputs a
|
5 | 5 |
trashes a
|
6 | 6 |
@ 65490
|
10 | 10 |
trashes a, z, n)
|
11 | 11 |
table[32] vectors
|
12 | 12 |
|
13 | |
routine chrout
|
|
13 |
define chrout routine
|
14 | 14 |
inputs a
|
15 | 15 |
trashes a
|
16 | 16 |
@ 65490
|
17 | 17 |
|
18 | |
routine printa
|
|
18 |
define printa routine
|
19 | 19 |
trashes a, z, n
|
20 | 20 |
{
|
21 | 21 |
ld a, 65
|
22 | 22 |
call chrout
|
23 | 23 |
}
|
24 | 24 |
|
25 | |
routine printb
|
|
25 |
define printb routine
|
26 | 26 |
trashes a, z, n
|
27 | 27 |
{
|
28 | 28 |
ld a, 66
|
29 | 29 |
call chrout
|
30 | 30 |
}
|
31 | 31 |
|
32 | |
routine main
|
|
32 |
define main routine
|
33 | 33 |
inputs vectors
|
34 | 34 |
outputs vectors
|
35 | 35 |
trashes print, a, x, z, n, c
|
1 | 1 |
trashes a, z, n
|
2 | 2 |
print
|
3 | 3 |
|
4 | |
routine chrout
|
|
4 |
define chrout routine
|
5 | 5 |
inputs a
|
6 | 6 |
trashes a
|
7 | 7 |
@ 65490
|
8 | 8 |
|
9 | |
routine printa
|
|
9 |
define printa routine
|
10 | 10 |
trashes a, z, n
|
11 | 11 |
{
|
12 | 12 |
ld a, 65
|
13 | 13 |
call chrout
|
14 | 14 |
}
|
15 | 15 |
|
16 | |
routine printb
|
|
16 |
define printb routine
|
17 | 17 |
trashes a, z, n
|
18 | 18 |
{
|
19 | 19 |
ld a, 66
|
20 | 20 |
call chrout
|
21 | 21 |
}
|
22 | 22 |
|
23 | |
routine main
|
|
23 |
define main routine
|
24 | 24 |
trashes print, a, z, n
|
25 | 25 |
{
|
26 | 26 |
copy printa, print
|