mirror of
https://github.com/catseye/SixtyPical.git
synced 2024-11-25 07:32:16 +00:00
24 lines
258 B
Plaintext
24 lines
258 B
Plaintext
// Should print AB
|
|
|
|
include "chrout.60p"
|
|
|
|
byte foo
|
|
|
|
define print routine
|
|
inputs foo
|
|
trashes a, z, n
|
|
{
|
|
ld a, foo
|
|
call chrout
|
|
}
|
|
|
|
define main routine
|
|
trashes a, y, z, n, foo
|
|
{
|
|
ld y, 65
|
|
st y, foo
|
|
call print
|
|
inc foo
|
|
call print
|
|
}
|