4 ; Coroutine handling for Termite Script
9 ;----- Overview -------------------------------------------------------------
17 [ :LNOT::DEF:termScript__dfn
24 ; On exit: R0, R1, R2 == event and arguments from Termite
26 ; Use: Waits for some multitasking and gets something from Termite.
32 ; On entry: R0 == pointer to script to chain, 0 to just end, or -1 for
35 ; On exit: Doesn't, hopefully
37 ; Use: Ends the script, optionally starting up another one.
43 ; On entry: R0 == pointer to error block
45 ; On exit: Doesn't, probably
47 ; Use: Returns an error to Termite.
51 ; --- Event codes returned by tsc_wait ---
55 tscEvent_poll # 1 ;Nothing interesting happened
57 tscEvent_serial # 1 ;Serial input received
58 ;R1 == address of block
61 tscEvent_key # 1 ;User pressed a key
62 ;R1 == key number (from WIMP)
66 ;----- That's all, folks ----------------------------------------------------