48 lines
984 B
Fennel
48 lines
984 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)
|
|
(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)
|