14 lines
281 B
Plaintext
14 lines
281 B
Plaintext
|
(local program (require "asm"))
|
||
|
|
(local {: stream : kvstream : one} (require "stream"))
|
||
|
|
|
||
|
|
(local prg (program))
|
||
|
|
|
||
|
|
(prg:block :print-chars-forever 0x0c00
|
||
|
|
:start
|
||
|
|
[:dex]
|
||
|
|
[:txa]
|
||
|
|
[:jsr :0xfded]
|
||
|
|
[:jmp :start])
|
||
|
|
(prg:assemble)
|
||
|
|
(set prg.start-symbol :print-chars-forever)
|
||
|
|
prg
|