14 lines
281 B
Fennel
14 lines
281 B
Fennel
(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 |