(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)