mirror of
https://github.com/catseye/SixtyPical.git
synced 2024-11-22 17:32:01 +00:00
65 lines
978 B
Plaintext
65 lines
978 B
Plaintext
|
// Include `support/${PLATFORM}.60p` before this source
|
||
|
// Should print ENGGL
|
||
|
|
||
|
word w1
|
||
|
|
||
|
define main routine
|
||
|
outputs w1
|
||
|
trashes a, x, y, z, n, c, v
|
||
|
{
|
||
|
copy 4000, w1
|
||
|
|
||
|
cmp w1, 4000
|
||
|
if z {
|
||
|
ld a, 69 // E
|
||
|
call chrout
|
||
|
} else {
|
||
|
ld a, 78 // N
|
||
|
call chrout
|
||
|
}
|
||
|
|
||
|
copy 4000, w1
|
||
|
|
||
|
cmp w1, 4001
|
||
|
if z {
|
||
|
ld a, 69 // E
|
||
|
call chrout
|
||
|
} else {
|
||
|
ld a, 78 // N
|
||
|
call chrout
|
||
|
}
|
||
|
|
||
|
copy 20002, w1
|
||
|
|
||
|
cmp w1, 20001 // 20002 >= 20001
|
||
|
if c {
|
||
|
ld a, 71 // G
|
||
|
call chrout
|
||
|
} else {
|
||
|
ld a, 76 // L
|
||
|
call chrout
|
||
|
}
|
||
|
|
||
|
copy 20001, w1
|
||
|
|
||
|
cmp w1, 20001 // 20001 >= 20001
|
||
|
if c {
|
||
|
ld a, 71 // G
|
||
|
call chrout
|
||
|
} else {
|
||
|
ld a, 76 // L
|
||
|
call chrout
|
||
|
}
|
||
|
|
||
|
copy 20000, w1
|
||
|
|
||
|
cmp w1, 20001 // 20000 < 20001
|
||
|
if c {
|
||
|
ld a, 71 // G
|
||
|
call chrout
|
||
|
} else {
|
||
|
ld a, 76 // L
|
||
|
call chrout
|
||
|
}
|
||
|
}
|