31 lines
344 B
Tal
31 lines
344 B
Tal
~esop-lib-macro.tal
|
|
|
|
|0100
|
|
;on-frame SETSCRVEC
|
|
#10 #12
|
|
BRK
|
|
|
|
@on-frame
|
|
LIT 'K ;putc JSR2
|
|
LIT 'O ;putc JSR2
|
|
LIT 'o ;putc JSR2
|
|
LIT 'L ;putc JSR2
|
|
SWP #10 SUB SWP
|
|
;&adv KP-A JMPKEY
|
|
;&back KP-B JMPKEY
|
|
BRK
|
|
&adv
|
|
#fa DBG
|
|
DEC
|
|
BRK
|
|
&back
|
|
#fb DBG
|
|
INC
|
|
BRK
|
|
|
|
|
|
|
|
( include ESOP stdlib routines )
|
|
|
|
~esop-lib-subs.tal
|