honeylisp/neutgs/init.fnl

(local Ssc (require :ssc))
(import-macros {:sss ! : compile} :ssc.macros)

(local ssc (Ssc {:boot-org 0xc00}))
(compile ssc
  (require :ssc.iigs.toolbox)

  (asm pascalhex (db 5) hexbuf (bytes "     "))
  (fn printnum (num)
    (long! (ref hexbuf) (HexIt num))
    (WriteString (far-ref pascalhex)))

  (fn add (lhs rhs) (+ lhs rhs))
  (fn main ()
    (TLStartUp)
    (let (userid (MMStartUp))
      (IMStartUp)
      (TextStartUp)

      (printnum (add 1 2))

      (TextShutDown)
      (IMShutDown)
      (MMShutDown userid)
      (TLShutDown)))
)

(ssc:assemble)