30 lines
406 B
Tal
30 lines
406 B
Tal
( test program to verify the correctness of graphics and input on ESOP )
|
|
|
|
~esop-lib-macro.tal
|
|
|
|
|0100
|
|
;on-frame SETSCRVEC
|
|
#10 #12
|
|
BRK
|
|
|
|
@on-frame
|
|
;moveme ;draw-str JSR2
|
|
NIP #10 SWP ( reset x coordinate )
|
|
;&adv KP-A JMPKEY
|
|
;&back KP-B JMPKEY
|
|
BRK
|
|
&adv
|
|
#fa DBG
|
|
DEC
|
|
BRK
|
|
&back
|
|
#fb DBG
|
|
INC
|
|
BRK
|
|
|
|
@moveme "MOVE 20 "ME! 00
|
|
|
|
( include ESOP stdlib routines )
|
|
|
|
~esop-lib-subs.tal
|