2021-08-02 23:40:31 +00:00
|
|
|
(local Ssc (require :ssc))
|
|
|
|
(import-macros {:sss ! : compile} :ssc.macros)
|
|
|
|
|
2021-08-09 01:58:49 +00:00
|
|
|
(local ssc (Ssc {:boot-org 0xc00}))
|
2021-08-02 23:40:31 +00:00
|
|
|
(compile ssc
|
2021-08-06 01:30:08 +00:00
|
|
|
(require :ssc.iigs.toolbox)
|
|
|
|
|
2021-08-09 01:58:49 +00:00
|
|
|
(asm pascalhex (db 5) hexbuf (bytes " "))
|
2021-08-10 04:33:54 +00:00
|
|
|
|
2021-08-06 01:30:08 +00:00
|
|
|
(fn printnum (num)
|
2021-08-09 18:43:24 +00:00
|
|
|
(long! (ref hexbuf) (HexIt num))
|
|
|
|
(WriteString (far-ref pascalhex)))
|
2021-08-06 01:30:08 +00:00
|
|
|
|
2021-08-02 23:40:31 +00:00
|
|
|
(fn add (lhs rhs) (+ lhs rhs))
|
2021-08-10 17:23:09 +00:00
|
|
|
|
|
|
|
(global word UserID)
|
2021-08-02 23:40:31 +00:00
|
|
|
(fn main ()
|
2021-08-06 01:30:08 +00:00
|
|
|
(TLStartUp)
|
2021-08-10 17:23:09 +00:00
|
|
|
(set! UserID (MMStartUp))
|
|
|
|
(IMStartUp)
|
|
|
|
(TextStartUp)
|
|
|
|
|
2021-08-12 03:54:37 +00:00
|
|
|
(printnum (& (- 10) 0xff))
|
|
|
|
(printnum (| 10 0x8000))
|
2021-08-12 03:59:04 +00:00
|
|
|
(printnum (^ 0xff00 0x0ff0))
|
2021-08-10 17:23:09 +00:00
|
|
|
(TextShutDown)
|
|
|
|
(IMShutDown)
|
|
|
|
(MMShutDown UserID)
|
|
|
|
(TLShutDown)))
|
|
|
|
|
2021-08-02 23:40:31 +00:00
|
|
|
|
|
|
|
(ssc:assemble)
|