honeylisp/neutgs/init.fnl

22 lines
445 B
Plaintext
Raw Normal View History

(local Ssc (require :ssc))
(import-macros {:sss ! : compile} :ssc.macros)
(local ssc (Ssc))
(set ssc.prg.start-symbol :boot)
(compile ssc
(org 0xc00)
(asm
boot
(clc) (xce) (rep 0x30) ; disable emulation mode, 16-bit index registers
(jsr main)
(sec) (xce) ;re-enter emulation mode
(rts))
(fn printnum (num) ; TODO
)
(fn add (lhs rhs) (+ lhs rhs))
(fn main ()
(printnum (add 1 2)))
)
(ssc:assemble)