mirror of
https://github.com/catseye/SixtyPical.git
synced 2024-11-28 12:51:10 +00:00
30 lines
393 B
Plaintext
30 lines
393 B
Plaintext
// Include `support/${PLATFORM}.60p` before this source
|
|
// Should print AB
|
|
|
|
vector routine
|
|
trashes a, z, n
|
|
print
|
|
|
|
define printa routine
|
|
trashes a, z, n
|
|
{
|
|
ld a, 65
|
|
call chrout
|
|
}
|
|
|
|
define printb routine
|
|
trashes a, z, n
|
|
{
|
|
ld a, 66
|
|
call chrout
|
|
}
|
|
|
|
define main routine
|
|
trashes print, a, z, n
|
|
{
|
|
copy printa, print
|
|
call print
|
|
copy printb, print
|
|
call print
|
|
}
|