mirror of
https://github.com/catseye/SixtyPical.git
synced 2024-11-25 23:49:17 +00:00
26 lines
394 B
Plaintext
26 lines
394 B
Plaintext
// Demonstrates vector tables.
|
|
// Include `support/${PLATFORM}.60p` before this source
|
|
// Should print YN
|
|
|
|
define main routine
|
|
trashes a, x, y, z, n, c, v
|
|
{
|
|
ld a, 0
|
|
if z {
|
|
ld a, 89
|
|
call chrout
|
|
} else {
|
|
ld a, 78
|
|
call chrout
|
|
}
|
|
|
|
ld a, 1
|
|
if z {
|
|
ld a, 89
|
|
call chrout
|
|
} else {
|
|
ld a, 78
|
|
call chrout
|
|
}
|
|
}
|