mirror of
https://github.com/catseye/SixtyPical.git
synced 2024-11-22 17:32:01 +00:00
37 lines
507 B
Plaintext
37 lines
507 B
Plaintext
|
// Include `support/${PLATFORM}.60p` before this source
|
||
|
|
// Should print YY
|
||
|
|
|
||
|
|
word score
|
||
|
|
|
||
|
|
define main routine
|
||
|
|
inputs a, score
|
||
|
|
outputs score
|
||
|
|
trashes a, c, z, n, v
|
||
|
|
{
|
||
|
|
ld a, 3
|
||
|
|
st off, c
|
||
|
|
add a, 4
|
||
|
|
|
||
|
|
cmp a, 7
|
||
|
|
if z {
|
||
|
|
ld a, 89
|
||
|
|
call chrout
|
||
|
|
} else {
|
||
|
|
ld a, 78
|
||
|
|
call chrout
|
||
|
|
}
|
||
|
|
|
||
|
|
copy 999, score
|
||
|
|
st off, c
|
||
|
|
add score, 1999
|
||
|
|
|
||
|
|
cmp score, 2998
|
||
|
|
if z {
|
||
|
|
ld a, 89
|
||
|
|
call chrout
|
||
|
|
} else {
|
||
|
|
ld a, 78
|
||
|
|
call chrout
|
||
|
|
}
|
||
|
|
}
|