honeylisp/neutgs/init.fnl

30 lines
553 B
Fennel

(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)
(HexIt num (& hexbuf))
(WriteString 0 (& 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)