honeylisp/test.fnl

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