) (BRANCH <>) (DIR <>) EX1 EX2 "AUX" RLEN COMPLFORM (DIR1 .DIR) (FLS <==? .WHERE FLUSHED>) (B2 )>) (TTYPE > TEMPLATE-DATA>) DEST (NORMUSE <1 .TTYPE>) (RESTUSE <2 .TTYPE>) (RX >) RUSE LENCOMB PC TYPER PCA BITR IDX AC1 AC2) #DECL ((B2 TYPER) ATOM (AC1 AC2) (NNUM RLEN LENCOMB PC PCA IDX) FIX (DEST) > (RX RUSE) DATUM (TTYPE) (RESTUSE NORMUSE) (COMPLFORM) (STRN NOD) NODE) >> > > )> > <4 .TTYPE>>>> > <2 .COMPLFORM> <3 .COMPLFORM> <+ <4 .COMPLFORM> <* <7 .TTYPE> > <4 .TTYPE>> 1> 0> <- > <4 .TTYPE>> 1>) (ELSE 0)>>> <5 .COMPLFORM>)>) (ELSE >)> >> > > > > >)> > > >> ANY-AC> >) (ELSE .RUSE>)> >>)> 1>> .RX> ]>> > `O >>) (ELSE <6 .TTYPE>>>)> > > >>> ANY-AC> >) (ELSE .RUSE>)> >>)> >)> .RUSE>>) (ELSE > > >)>)> )>> `O '>> )> > )>) (> > >> >) (ELSE >) (ELSE >)> <- .PCA>) (ELSE <* -2 .PCA>)>>>)>) (<==? .LENCOMB 54> > .DEST>>) (ELSE .DEST>> >)> >> ) (<==? .LENCOMB 36> .RX .TYP>>) (<==? .LENCOMB 18> .FLS>) ( `HLRE ) (<==? .TYPER FLOAT> `HLLZ ) (ELSE `HLRZ )>) (ELSE `HRRE ) (<==? .TYPER FLOAT> `HRLZ ) (ELSE `HRRZ )>)> .AC2 .IDX .DEST>>)> >)> > )>)>) (<1? .LENCOMB> > <- .PC 19>) (ELSE <- .PC 1>)>>> > > >> > .RUSE>>)> >) (ELSE >)> > ) (ELSE )> > >> .RUSE>)> )> )>) (ELSE .LENCOMB .IDX .DEST>>>)> > <1? .LENCOMB> <==? .LENCOMB 36>>> )> > >> ) (ELSE .WHERE)>> \ > TEMPLATE-DATA>) (NORMUSE <1 .TTYPE>) (RESTUSE <2 .TTYPE>) (RX >) LENCOMB PC TYPER PCA BITR IDX AC1 AC2 TT) #DECL ((PCA NNUM PC IDX LENCOMB RLEN) FIX (TYPER) ATOM (AC1 AC2) (DEST) > (RX XDAT YDAT VDAT) DATUM (RESTUSE NORMUSE) (TTYPE) (COMPLFORM) (SNOD VNOD NOD) NODE) > > )> > <4 .TTYPE>>>> > <2 .COMPLFORM> <3 .COMPLFORM> <+ <4 .COMPLFORM> <* <7 .TTYPE> > <4 .TTYPE>> 1> 0> <- > <4 .TTYPE>> 1>) (ELSE 0)>>> <5 .COMPLFORM>)>) (ELSE >)> > > > > >)> > 1>> > ,ACPROT T> > > > >>> ,ACPROT <>>)>) (ELSE <6 .TTYPE>>>)> >> > > ANY-AC) (ELSE .XTP)> ANY-AC>>> > >>> <1? .LENCOMB>>> )>) (ELSE > .TYPER>>> >> >> )>)>)> >)> >> .RX> ]>> > `O >>)> > >>)> > .IDX .DEST>> .VDAT> .DEST>>) (> > > .PCA>> )> >) (ELSE >>> <- .PCA>) (ELSE <* -2 .PCA>)>>> )> `HRLM ) (ELSE `HRRM )> .AC2 .IDX .DEST>>)>) (<==? .LENCOMB 54> > > <+ .IDX 1> .DEST>> .VDAT>) (ELSE .DEST>> > .IDX .DEST>> .VDAT>)> .VDAT>) (<==? .LENCOMB 36> >) (<==? .LENCOMB 18> `HLLM ) (ELSE `HRLM )>) (ELSE `HLRM ) (ELSE `HRRM )>)> .AC2 .IDX .DEST>>) (<1? .LENCOMB> >> > > >)> .RX> ]>> > `O >>)> > ,ACPROT T> > ,ACPROT <>> >>) (ELSE )> > `ANDCAM ) (ELSE `IORM )> .TT .IDX .DEST>>) (ELSE > .VDAT T > > > >)>) (ELSE .LENCOMB .IDX .DEST>>>)> > )> > ) ( ) (ELSE )>> "ROUTINE TO FIND THE LENGTH OF A TEMPLATE" )) #DECL ((NM) ATOM (TD) > (NDAT) AC>) )> > ) (ELSE .NDAT)>> >>>) (ELSE ) (ELSE .NDAT)>> ! )>>>> ) (ELSE .NDAT)>> ( ) (ELSE .NDAT)>>) > 0) (ELSE -1)>>>)>> <* .SIZE 64>>) !.LOC>]>