INTCOUNT FIX INTMAX FIX> ) > > >> NODE> > >> >> > ) (MAX 80) (FLAT <>) "AUX" (OUTC .OUTCHAN) NCHS (OUTCHAN ) (.OUTC)> 0 .MAX>)) #DECL ((MAX) FIX (NCHS) ANY (OUTCHAN) (LOSER) >) 2>> ) <>> > >) (ELSE >>)> > .NCHS> > ) (INO )) #DECL ((CHAN) CHANNEL) 1>> > ) (ELSE )>) ( > WRITE-BYTE .CHR> 1>>)>> ) "AUX" (D ) (INO )) #DECL ((STR) STRING (CHAN) CHANNEL (N) FIX) <+ .N>>>> > )>) (>> > >> ) ( > >> >)>> ) TC (FLG <==? .N .LOSER>)) #DECL ((N) NODE (COD TC) FIX) > <==? .COD ,MFCN-CODE>> <>> > ">) (<==? .COD ,PROG-CODE> > T> > ">) (<==? .COD ,MFIRST-CODE> >>) (<==? .COD ,MPSBR-CODE> > some-subr> >>>>) (<==? .COD ,COPY-CODE> '[TUPLE UVECTOR VECTOR LIST]>>>>> > >) ( <==? .COD ,SEGMENT-CODE>> >> >>)>) (<==? .COD ,BRANCH-CODE> > >> >)> ) (<==? .COD ,QUOTE-CODE> VECTOR UVECTOR LIST FORM> > >) ( <==? .COD ,FSET-CODE>> > ">) ( ,LVAL> > ,GVAL> >>>> <==? .COD ,FLVAL-CODE>> ) (ELSE )> SYMTAB> >>) (ELSE > some-atom> >>>)>) (<==? INTH> > >>> > >>> ">) (ELSE > > ">)> >> > "]> (LGV) > ) > > >>> > .L>)>)>> ) "AUX" (INOPT <>) (DC ()) (FIRST T)) #DECL ((B) (DC) LIST) )) #DECL ((SYM) SYMTAB (COD) FIX) > > >) ( )> > > ) (ELSE >)>) (<==? .COD 4> >) (<==? .COD 5> >) ( )> > > > ) (ELSE > >)>) (<==? .COD 10> >) (<==? .COD 11> >) (ELSE > >)> ANY> ) !.DC)>)>> .B> > )> > >)>>