37 lines
773 B
Tal
37 lines
773 B
Tal
( test program to verify the correctness of graphics and input on ESOP )
|
|
|
|
~esop-lib-macro.tal
|
|
|
|
|0100
|
|
;on-frame SETSCRVEC
|
|
#1a #20 ( mv-x mv-y )
|
|
BRK
|
|
|
|
@on-frame
|
|
DATETIME-COMPAT ( get datetime info into #00c0 )
|
|
#10 #12 ( year-x year-y -- )
|
|
.DateTime/year LDZ2 ( year-x year-y year* -- )
|
|
;print-dec JSR2 ( mv-x mv-y year-x year-y -- )
|
|
POP2 ( mv-x mv-y -- )
|
|
;moveme ;draw-str JSR2
|
|
( drawing static strings should always end with POP2 )
|
|
#02 #2b ;addr ;draw-str JSR2 POP2
|
|
SWP #20 SUB SWP ( restore x coord between frames )
|
|
;&adv KP-A JMPKEY
|
|
;&back KP-B JMPKEY
|
|
BRK
|
|
&adv
|
|
SWP INC DBGBYTE SWP
|
|
BRK
|
|
&back
|
|
SWP DEC DBGBYTE SWP
|
|
BRK
|
|
|
|
@moveme "MOVE 20 "ME! 00
|
|
|
|
@addr "SR.HT/~LUXFERRE/ESOP 00
|
|
|
|
( include ESOP stdlib routines )
|
|
|
|
~esop-lib-subs.tal
|