mirror of
https://github.com/catseye/SixtyPical.git
synced 2024-11-29 03:51:35 +00:00
27 lines
329 B
Plaintext
27 lines
329 B
Plaintext
|
routine chrout
|
||
|
inputs a
|
||
|
trashes a
|
||
|
@ 65490
|
||
|
|
||
|
routine main
|
||
|
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
|
||
|
}
|
||
|
}
|