(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