1 <DEFINE LVAL-GVAL? (X "AUX" Y)
2 <OR <TYPE? .X LVAL GVAL>
5 <OR <==? <SET Y <1 .X>> LVAL> <==? .Y GVAL>>>>>
10 <OR <AND <==? <1 .X> LSH>
14 <AND <==? <1 .X> CHTYPE>
16 <LSH-LVAL? <2 .X>>>>>>
18 <DEFMAC PRINTBYTE ('BYT "OPT" (MSK1 *17*) (MSK2 *37*)
19 "AUX" (X '.RBYT) (PRE-LSH 0) PL)
20 <COND (<SET PL <LSH-LVAL? .BYT>>
21 <SET PRE-LSH <3 <SET BYT <CHTYPE .PL FORM>>>>
23 <COND (<LVAL-GVAL? .BYT> <SET X .BYT>)>
24 <FORM PROG <COND (<==? .BYT .X> ())
25 (ELSE ((RBYT .BYT)))> #DECL ((RBYT) FIX)
26 <FORM PUT '.OB 1 <FORM ASCII <FORM + <ASCII !\A>
32 '<COND (<EMPTY? <SET OB <REST .OB>>>
33 <CHANNEL-OP .OC WRITE-BUFFER <SET OB ,OUTPUT-BUFFER>>)>
34 <FORM PUT '.OB 1 <FORM ASCII <FORM + <ASCII !\A>
37 <COND (<==? .PRE-LSH 0> .X)
42 '<COND (<EMPTY? <SET OB <REST .OB>>>
43 <CHANNEL-OP .OC WRITE-BUFFER <SET OB ,OUTPUT-BUFFER>>)>>>