> )> = LBIND > 1>> > ,BQ+1>> WORD> >>) (ELSE >>>)>)> > > #WORD *17227751330* OPT4 OPT5> OPT4 OPT5 + PHRASE14 (DEAD-JUMP O8) (DEAD-FALL X6)> PHRASE14 PHRASE21 WORD> 0>> ) ( FIX> >> T ,BQ-RD <>]>)> > #WORD *27225372751* - PEEP68> BOOL12 PHRASE8 PEEP68 PHRASE24 = TEMP6> AGAIN37 TAG41 TAG40 = STACK> PHRASE39 = STACK> PEEP65 PHRASE51 PHRASE58 #WORD *16134143374* + PHRASE8 (DEAD-JUMP TEMP6)> + PHRASE8> + PHRASE8> PHRASE8 = TEMP6> AGAIN20 TAG24 TAG23 = STACK> PHRASE22 = STACK> PHRASE35 PHRASE42 )> >>> FIX>> FIX>> "Type specification for NODE." FIX ANY ANY ANY [OPTIONAL LIST ANY ANY LIST SYMTAB ANY ANY ANY ANY ANY LIST FIX FIX]>> "Offsets into pass 1 structure entities and functions to create same." > > > > > > > > > > > > > > > > > > > > > NODE>> NODE>> NODE>> NODE>> NODE>> NODE>> NODE>> NODE>> " Definitions associated with compiler symbol tables." "Offsets for variable description blocks" ATOM FIX ANY ANY ANY>> ATOM FIX ANY ANY ANY FIX LIST ANY ANY ANY>> > > > > > > > > > > > > > '> > > > > > "How a variable is used in a loop." #WORD *15631065707* > 6 = TEMP10> = TEMP10> "Create a function node with all its hair." #WORD *23371000733* > > > > > > > 21 = TEMP16> = TEMP16> "Create a PROG/REPEAT node with nearly as much hair." #WORD *11135071643* > > > > > > > 19 = TEMP14> = TEMP14> "Create a COND node." #WORD *11170042227* > > 8 = TEMP10> = TEMP10> "Create a node for a COND clause." #WORD *11751756122* > > 8 = TEMP10> = TEMP10> "Create a node for a SUBR call etc." #WORD *33557455354* > > 9 = TEMP11> = TEMP11> #WORD *30012051121* > > > > 19 = TEMP13> = TEMP13> "Some specialized decl stuff." ) <> <>> <>> <>> .VARTBL>> >)> [REST CHARACTER]>>) (ELSE [REST CHARACTER]>>)> "Codes for the node types in the tree built by pass1 and modified by other passes." "Give symbolic codes arbitrary increasing values." > .ATM> '[FUNCTION-CODE QUOTE-CODE SEGMENT-CODE FORM-CODE PROG-CODE SUBR-CODE COND-CODE BRANCH-CODE RSUBR-CODE LVAL-CODE SET-CODE OR-CODE AND-CODE RETURN-CODE COPY-CODE GO-CODE AGAIN-CODE ARITH-CODE 0-TST-CODE NOT-CODE 1?-CODE TEST-CODE EQ-CODE TY?-CODE LNTH-CODE MT-CODE NTH-CODE REST-CODE PUT-CODE PUTR-CODE FLVAL-CODE FSET-CODE FGVAL-CODE FSETG-CODE MIN-MAX-CODE STACKFORM-CODE CHTYPE-CODE ABS-CODE FIX-CODE FLOAT-CODE MOD-CODE ID-CODE ASSIGNED?-CODE ISTRUC-CODE ISTRUC2-CODE BITS-CODE BITL-CODE FGETBITS-CODE FPUTBITS-CODE MAP-CODE MFCN-CODE ISUBR-CODE READ-EOF-CODE READ-EOF2-CODE EOF-CODE GET-CODE GET2-CODE IPUT-CODE IREMAS-CODE IRSUBR-CODE MARGS-CODE MPSBR-CODE MAPLEAVE-CODE MAPRET-STOP-CODE UNWIND-CODE GVAL-CODE SETG-CODE SEG-CODE LENGTH?-CODE TAG-CODE MFIRST-CODE PRINT-CODE MEMQ-CODE FORM-F-CODE INFO-CODE OBLIST?-CODE AS-NXT-CODE AS-IT-IND-VAL-CODE ALL-REST-CODE CASE-CODE SUBSTRUC-CODE BACK-CODE TOP-CODE COPY-LIST-CODE PUT-SAME-CODE ROT-CODE LSH-CODE BIT-TEST-CODE ADECL-CODE CALL-CODE MONAD-CODE GASSIGNED?-CODE APPLY-CODE MULTI-RETURN-CODE =?-STRING-CODE TYPE-C-CODE VALID-CODE STACK-CODE CHANNEL-OP-CODE ATOM-PART-CODE OFFSET-PART-CODE PUT-GET-DECL-CODE MULTI-SET-CODE SPARE1-CODE SPARE2-CODE SPARE3-CODE SPARE4-CODE]>> > "Build a dispatch table based on node types." #WORD *15575416236* [REST ]>) DEFAULT4> 108 = TT6> ISTR8 ISTRE9 AGAIN13 PHRASE15 = PAIRS5> > > [,0-TST-CODE ,1?-CODE ,NOT-CODE ,TEST-CODE ,EQ-CODE ,TY?-CODE ,MT-CODE ,ASSIGNED?-CODE ,MEMQ-CODE ,LENGTH?-CODE ,OBLIST?-CODE ,AS-NXT-CODE ,BIT-TEST-CODE ,GASSIGNED?-CODE ,VALID-CODE ,=?-STRING-CODE]> > [,OR-CODE ,AND-CODE ,COND-CODE]> "Predicate: does this type have special predicate code?" " Assign codes to differen types of argument in argument list" >> '(ARGL-ACT ARGL-IAUX ARGL-AUX ARGL-TUPLE ARGL-ARGS ARGL-QIOPT ARGL-IOPT ARGL-QOPT ARGL-OPT ARGL-CALL ARGL-BIND ARGL-QUOTE ARGL-ARG)>> ]>]>>) (ELSE ]>]>>)> >) (ELSE >)> > > > >>> FIX DATUM ATOM>> ,MANIFEST ,CODVEC> ATOM FIX ANY >> > "TYPE OF COMMON (ATOM)" > "POINTER TO OR COMMON SYMTAB" > "3RD ARGUMENT TO NTH,REST,PUT ETC." > "PRIMTYPE OF OBJECT IN COMMON" > "DATUM FOR THIS COMMON" NODE >> > > > > > > FIX> POPWR2.FBIN">)>