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

  (const screen 0xe12000)
  (const screen-size 0x9d00)

  (global word screen-offset 0)
  (getter screen-cursor (+ screen screen-offset))
  (setter screen-cursor (pixels)
    (word! screen-cursor pixels)
    (set! screen-offset (+ screen-offset 2)))

  (global word UserID)
  (fn main ()
    (TLStartUp)
    (set! UserID (MMStartUp))
    (IMStartUp)
    (TextStartUp)
    (MTStartUp)

    (GrafOn)
    (set! screen-offset 0)
    (while (< screen-offset screen-size)
      (set! screen-cursor (+ 0x2345 screen-offset)))

    (GrafOff)

    (MTShutDown)
    (TextShutDown)
    (IMShutDown)
    (MMShutDown UserID)
    (TLShutDown)))


(ssc:assemble)