--- /dev/null
+
+<PACKAGE "GETORD">
+
+<ENTRY GETORDER>
+
+"GETORDER FUNCTIONS"
+
+#WORD *11147245240*
+ <GFCN \1aCHECK ("VALUE" <OR ATOM FALSE> ATOM) ATM4>
+ <TEMP TEMP9>
+ <INTGO>
+ <NTHR ATM4 1 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG8) (DEAD-JUMP ATM4 TEMP9)>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG8 (DEAD-JUMP ATM4 TEMP9)>
+ <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP9 <TYPE-CODE UNBOUND> - TAG7 (DEAD-FALL ATM4)>
+ <DEAD TEMP9>
+TAG8
+ <RETURN %<>>
+TAG7
+ <GVAL ATM4 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FUNCTION> - TAG12 (DEAD-FALL ATM4)>
+ <DEAD TEMP9>
+ <RETURN 'FUNCTION>
+TAG12
+ <GVAL ATM4 = TEMP9>
+ <DEAD ATM4>
+ <TYPE? TEMP9 <TYPE-CODE MACRO> - TAG14>
+ <DEAD TEMP9>
+ <RETURN 'MACRO>
+TAG14
+ <RETURN %<>>
+ <END \1aCHECK>
+
+#WORD *20025145332*
+ <GFCN \1aPREV ("VALUE" LIST LIST LIST) LS4 SUBLS5>
+ <TEMP TEMP6:FIX TEMP7>
+ <INTGO>
+ <LENL LS4 = TEMP6 (TYPE FIX)>
+ <LENL SUBLS5 = TEMP7 (TYPE FIX)>
+ <DEAD SUBLS5>
+ <SUB TEMP6 TEMP7 = TEMP6 (TYPE FIX)>
+ <DEAD TEMP7>
+ <SUB TEMP6 1 = TEMP6 (TYPE FIX)>
+ <SET TEMP7 LS4>
+ <DEAD LS4>
+ <GRTR? TEMP6 0 - RESTL9 (TYPE FIX) (DEAD-JUMP TEMP6)>
+ <LOOP (TEMP7 VALUE) (TEMP6 VALUE)>
+RESTL8
+ <INTGO>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <SUB TEMP6 1 = TEMP6 (TYPE FIX)>
+ <GRTR? TEMP6 0 + RESTL8 (TYPE FIX) (DEAD-FALL TEMP6)>
+RESTL9
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aPREV>
+
+#WORD *30473025061*
+ <GFCN \1aSPLOUTEM ("VALUE" ATOM LIST ATOM) FL4 OU5>
+ <TEMP TEMP6 TEMP18>
+ <INTGO>
+ <LOOP>
+AGAIN10
+ <INTGO>
+ <EMPL? FL4 - PHRASE12 (TYPE LIST) (DEAD-FALL OU5 FL4)>
+ <RETURN 'T>
+PHRASE12
+ <NTHL FL4 1 = TEMP6>
+ <EMPTY? TEMP6 + PHRASE21 (DEAD-JUMP TEMP6)>
+ <LOOP (OU5 VALUE) (TEMP6 LENGTH VALUE TYPE)>
+TAG16
+ <NTH1 TEMP6 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17 (DEAD-JUMP TEMP18)>
+ <VEQUAL? TEMP18 OU5 + TAG15>
+ <DEAD TEMP18>
+TAG17
+ <REST1 TEMP6 = TEMP6>
+ <EMPTY? TEMP6 - TAG16 (DEAD-FALL TEMP6)>
+ <JUMP + PHRASE21>
+TAG15
+ <NTHL FL4 1 = TEMP18>
+ <EQUAL? TEMP18 TEMP6 - PHRASE20>
+ <DEAD TEMP18>
+ <RESTL TEMP6 1 = TEMP18 (TYPE LIST)>
+ <DEAD TEMP6>
+ <PUTL FL4 1 TEMP18>
+ <DEAD TEMP18>
+ <JUMP + PHRASE21>
+PHRASE20
+ <FRAME '\1aPREV>
+ <NTHL FL4 1 = STACK (TYPE LIST)>
+ <PUSH TEMP6>
+ <CALL '\1aPREV 2 = TEMP18>
+ <RESTL TEMP6 1 = TEMP6 (TYPE LIST)>
+ <PUTREST TEMP18 TEMP6>
+ <DEAD TEMP18 TEMP6>
+PHRASE21
+ <RESTL FL4 1 = FL4 (TYPE LIST)>
+ <RESTL FL4 1 = FL4 (TYPE LIST)>
+ <JUMP + AGAIN10>
+ <END \1aSPLOUTEM>
+
+#WORD *17757412215*
+ <GFCN \1aREVERSE ("VALUE" LIST LIST) LS4>
+ <TEMP RES8:LIST TEM9:LIST>
+ <INTGO>
+ <SET RES8 () (TYPE LIST)>
+ <LOOP>
+AGAIN10
+ <INTGO>
+ <EMPL? LS4 - PHRASE12 (TYPE LIST) (DEAD-FALL LS4)>
+ <RETURN RES8>
+ <DEAD RES8>
+PHRASE12
+ <RESTL LS4 1 = TEM9 (TYPE LIST)>
+ <PUTREST LS4 RES8>
+ <DEAD RES8>
+ <SET RES8 LS4>
+ <DEAD LS4>
+ <SET LS4 TEM9>
+ <DEAD TEM9>
+ <JUMP + AGAIN10>
+ <END \1aREVERSE>
+
+#WORD *1217422700*
+ <GFCN \1aORDEREM ("VALUE" <LIST [REST <OR ATOM LIST>]> LIST) FLIST4>
+ <TEMP RES9:LIST TEMP5 TEMP19 TEMP25 TEMP24:LIST TEMP43:LIST>
+ <INTGO>
+ <SET RES9 () (TYPE LIST)>
+ <LOOP>
+AGAIN10
+ <INTGO>
+ <EMPL? FLIST4 - PHRASE12 (TYPE LIST) (DEAD-FALL FLIST4)>
+ <FRAME '\1aREVERSE>
+ <PUSH RES9>
+ <DEAD RES9>
+ <CALL '\1aREVERSE 1 = TEMP5>
+ <RETURN TEMP5>
+ <DEAD TEMP5>
+PHRASE12
+ <SET TEMP5 FLIST4>
+ <LOOP (TEMP5 VALUE)>
+TAG17
+ <NTHL TEMP5 1 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE LIST> - TAG18 (DEAD-JUMP TEMP19)>
+ <VEQUAL? TEMP19 () + TAG16>
+ <DEAD TEMP19>
+TAG18
+ <RESTL TEMP5 1 = TEMP5 (TYPE LIST)>
+ <EMPL? TEMP5 - TAG17 (DEAD-FALL TEMP5)>
+ <JUMP + PHRASE14>
+TAG16
+ <RESTL TEMP5 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = TEMP19>
+ <CONS TEMP19 RES9 = RES9>
+ <DEAD TEMP19>
+ <VEQUAL? TEMP5 FLIST4 - PHRASE21 (DEAD-FALL TEMP5)>
+ <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
+ <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
+ <JUMP + PHRASE22>
+PHRASE21
+ <FRAME '\1aPREV>
+ <PUSH FLIST4>
+ <PUSH TEMP5>
+ <CALL '\1aPREV 2 = TEMP19>
+ <RESTL TEMP5 1 = TEMP25 (TYPE LIST)>
+ <DEAD TEMP5>
+ <RESTL TEMP25 1 = TEMP24 (TYPE LIST)>
+ <DEAD TEMP25>
+ <PUTREST TEMP19 TEMP24>
+ <DEAD TEMP19 TEMP24>
+PHRASE22
+ <FRAME '\1aSPLOUTEM>
+ <PUSH FLIST4>
+ <NTHL RES9 1 = STACK (TYPE ATOM)>
+ <CALL '\1aSPLOUTEM 2>
+ <JUMP + AGAIN10>
+PHRASE14
+ <SET TEMP24 () (TYPE LIST)>
+ <LOOP>
+AGAIN31
+ <INTGO>
+ <SET TEMP5 %<> (TYPE FALSE)>
+ <SET TEMP19 FLIST4>
+ <LOOP>
+AGAIN34
+ <INTGO>
+ <FRAME '\1aCALLME>
+ <RESTL TEMP19 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP25>
+ <PUSH FLIST4>
+ <CALL '\1aCALLME 2 = TEMP25>
+ <VEQUAL? TEMP25 0 - PHRASE40 (DEAD-FALL TEMP5)>
+ <DEAD TEMP25>
+ <SET TEMP5 'T (TYPE ATOM)>
+ <RESTL TEMP19 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = TEMP25>
+ <CONS TEMP25 TEMP24 = TEMP24>
+ <DEAD TEMP25>
+ <VEQUAL? FLIST4 TEMP19 - PHRASE39>
+ <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
+ <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
+ <JUMP + PHRASE40>
+PHRASE39
+ <FRAME '\1aPREV>
+ <PUSH FLIST4>
+ <PUSH TEMP19>
+ <CALL '\1aPREV 2 = TEMP25>
+ <RESTL TEMP19 1 = TEMP43 (TYPE LIST)>
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <PUTREST TEMP25 TEMP43>
+ <DEAD TEMP25 TEMP43>
+PHRASE40
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <EMPL? TEMP19 - AGAIN34 (TYPE LIST) (DEAD-FALL TEMP19)>
+ <VEQUAL? TEMP5 0 - AGAIN31>
+ <DEAD TEMP5>
+ <EMPL? FLIST4 + PHRASE47 (TYPE LIST)>
+ <FRAME '\1aCORDER>
+ <PUSH FLIST4>
+ <DEAD FLIST4>
+ <CALL '\1aCORDER 1 = FLIST4>
+PHRASE47
+ <FRAME '\1aREVERSE>
+ <PUSH RES9>
+ <CALL '\1aREVERSE 1 = TEMP5>
+ <EMPL? FLIST4 + RESTL58 (TYPE LIST) (DEAD-JUMP FLIST4)>
+ <EMPL? RES9 - PHRASE53 (TYPE LIST) (DEAD-FALL TEMP5 RES9)>
+ <SET TEMP5 FLIST4>
+ <SET RES9 FLIST4>
+ <DEAD FLIST4>
+ <LOOP (RES9 VALUE)>
+TAG54
+ <RESTL RES9 1 = TEMP25 (TYPE LIST)>
+ <EMPL? TEMP25 + RESTL58 (DEAD-JUMP TEMP25) (DEAD-FALL RES9)>
+ <SET RES9 TEMP25>
+ <DEAD TEMP25>
+ <JUMP + TAG54>
+PHRASE53
+ <PUTREST RES9 FLIST4>
+ <LENL FLIST4 = TEMP25 (TYPE FIX)>
+ <DEAD FLIST4>
+ <GRTR? TEMP25 0 - RESTL58 (TYPE FIX) (DEAD-JUMP TEMP25)>
+ <LOOP (RES9 VALUE) (TEMP25 VALUE)>
+RESTL57
+ <INTGO>
+ <RESTL RES9 1 = RES9 (TYPE LIST)>
+ <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
+ <GRTR? TEMP25 0 + RESTL57 (TYPE FIX) (DEAD-FALL TEMP25)>
+RESTL58
+ <EMPL? RES9 - PHRASE60 (TYPE LIST) (DEAD-FALL TEMP5 RES9)>
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+PHRASE60
+ <PUTREST RES9 TEMP24>
+ <DEAD RES9 TEMP24>
+ <RETURN TEMP5>
+ <DEAD TEMP5>
+ <END \1aORDEREM>
+
+#WORD *13623163050*
+ <GFCN \1aCALLME ("VALUE" <OR ATOM !<FALSE>> ATOM <LIST [REST <LIST [REST ATOM]> ATOM]>) ATM4 LST5>
+ <TEMP TEMP6 TEMP15:LIST>
+ <INTGO>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <EMPL? LST5 - BOOL10 (TYPE LIST) (DEAD-FALL LST5 ATM4)>
+ <RETURN %<>>
+BOOL10
+ <NTHL LST5 1 = TEMP15 (TYPE LIST)>
+ <EMPL? TEMP15 + BOOL11 (DEAD-JUMP TEMP15)>
+ <LOOP (ATM4 VALUE) (TEMP15 VALUE)>
+TAG13
+ <NTHL TEMP15 1 = TEMP6>
+ <VEQUAL? TEMP6 ATM4 + TAG12 (DEAD-JUMP LST5 ATM4 TEMP15)>
+ <DEAD TEMP6>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <EMPL? TEMP15 - TAG13 (DEAD-FALL TEMP15)>
+ <JUMP + BOOL11>
+TAG12
+ <RETURN 'T>
+BOOL11
+ <RESTL LST5 1 = LST5 (TYPE LIST)>
+ <RESTL LST5 1 = LST5 (TYPE LIST)>
+ <JUMP + AGAIN9>
+ <END \1aCALLME>
+
+#WORD *4524201334*
+ <GFCN \1aCORDER ("VALUE" LIST <LIST [REST <LIST [REST ATOM]> ATOM]>) LST4>
+ <TEMP (RES5:LIST ()) LS8:LIST TEMP12 SHORT18 LST20:LIST>
+ <INTGO>
+ <SET LS8 LST4>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <EMPL? LS8 + EXIT6 (TYPE LIST) (DEAD-JUMP LS8)>
+ <FRAME '\1aALLREACH>
+ <RESTL LS8 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12 (TYPE ATOM)>
+ <CONS TEMP12 () = STACK>
+ <DEAD TEMP12>
+ <NTHL LS8 1 = STACK (TYPE LIST)>
+ <PUSH LST4>
+ <CALL '\1aALLREACH 3 = TEMP12>
+ <PUTL LS8 1 TEMP12 (TYPE LIST)>
+ <DEAD TEMP12>
+ <RESTL LS8 1 = LS8 (TYPE LIST)>
+ <RESTL LS8 1 = LS8 (TYPE LIST)>
+ <JUMP + AGAIN9>
+EXIT6
+ <SET LS8 () (TYPE LIST)>
+ <LOOP>
+AGAIN15
+ <INTGO>
+ <SET SHORT18 %<CHTYPE <MIN> FIX> (TYPE FIX)>
+ <SET LST20 LST4>
+ <LOOP>
+AGAIN21
+ <INTGO>
+ <EMPL? LST20 + EXIT16 (TYPE LIST) (DEAD-JUMP LST20 SHORT18)>
+ <NTHL LST20 1 = TEMP12 (TYPE LIST)>
+ <LENL TEMP12 = TEMP12 (TYPE FIX)>
+ <LESS? TEMP12 SHORT18 - PHRASE24 (TYPE FIX) (DEAD-JUMP TEMP12) (DEAD-FALL SHORT18 LS8)>
+ <SET SHORT18 TEMP12>
+ <DEAD TEMP12>
+ <SET LS8 LST20>
+PHRASE24
+ <RESTL LST20 1 = LST20 (TYPE LIST)>
+ <RESTL LST20 1 = LST20 (TYPE LIST)>
+ <JUMP + AGAIN21>
+EXIT16
+ <NTHL LS8 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 + PHRASE27 (DEAD-JUMP TEMP12)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 - PHRASE27>
+ <DEAD TEMP12>
+ <NTHL LS8 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+ <JUMP + PHRASE28>
+PHRASE27
+ <NTHL LS8 1 = TEMP12 (TYPE LIST)>
+PHRASE28
+ <CONS TEMP12 RES5 = RES5>
+ <DEAD TEMP12>
+ <NTHL LS8 1 = LST20 (TYPE LIST)>
+ <LOOP>
+MAP30
+ <INTGO>
+ <EMPL? LST20 + MAPAP33 (DEAD-JUMP LST20)>
+ <NTHL LST20 1 = TEMP12>
+ <FRAME '\1aSPLOUTEM>
+ <PUSH LST4>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aSPLOUTEM 2>
+ <RESTL LST20 1 = LST20 (TYPE LIST)>
+ <JUMP + MAP30>
+MAPAP33
+ <LOOP>
+AGAIN44
+ <INTGO>
+ <SET TEMP12 LST4>
+ <EMPL? TEMP12 + EXIT42 (DEAD-JUMP TEMP12)>
+ <LOOP (TEMP12 VALUE)>
+TAG49
+ <NTHL TEMP12 1 = SHORT18>
+ <TYPE? SHORT18 <TYPE-CODE LIST> - TAG50 (DEAD-JUMP SHORT18)>
+ <VEQUAL? SHORT18 () + TAG48>
+ <DEAD SHORT18>
+TAG50
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 - TAG49 (DEAD-FALL TEMP12)>
+ <JUMP + EXIT42>
+TAG48
+ <VEQUAL? TEMP12 LST4 - PHRASE52 (DEAD-FALL LST4)>
+ <RESTL TEMP12 1 = LST20 (TYPE LIST)>
+ <DEAD TEMP12>
+ <RESTL LST20 1 = LST4 (TYPE LIST)>
+ <DEAD LST20>
+ <JUMP + AGAIN44>
+PHRASE52
+ <FRAME '\1aPREV>
+ <PUSH LST4>
+ <PUSH TEMP12>
+ <CALL '\1aPREV 2 = LST20>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = SHORT18 (TYPE LIST)>
+ <DEAD TEMP12>
+ <PUTREST LST20 SHORT18>
+ <DEAD LST20 SHORT18>
+ <JUMP + AGAIN44>
+EXIT42
+ <EMPL? LST4 - AGAIN15 (TYPE LIST) (DEAD-FALL LST4 LS8)>
+ <FRAME '\1aREVERSE>
+ <PUSH RES5>
+ <DEAD RES5>
+ <CALL '\1aREVERSE 1 = LST20>
+ <RETURN LST20>
+ <DEAD LST20>
+ <END \1aCORDER>
+
+#WORD *26374122245*
+ <GFCN \1aALLREACH ("VALUE" <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST <LIST [REST ATOM]> ATOM]>) LATM4 LST5 MLST6>
+ <TEMP TEMP13:LIST ATM18:ATOM TEMP23 TEMP24>
+ <INTGO>
+ <SET TEMP13 LST5 (TYPE LIST)>
+ <DEAD LST5>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP11 (DEAD-JUMP MLST6 TEMP13)>
+ <NTHL TEMP13 1 = ATM18>
+ <SET TEMP23 LATM4>
+ <EMPL? TEMP23 + TAG20 (DEAD-JUMP TEMP23)>
+ <LOOP (ATM18 VALUE) (TEMP23 VALUE)>
+TAG21
+ <NTHL TEMP23 1 = TEMP24>
+ <VEQUAL? TEMP24 ATM18 + PHRASE25 (DEAD-JUMP TEMP23 ATM18)>
+ <DEAD TEMP24>
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <EMPL? TEMP23 - TAG21 (DEAD-FALL TEMP23)>
+TAG20
+ <FRAME '\1aALLREACH>
+ <CONS ATM18 LATM4 = STACK>
+ <DEAD LATM4>
+ <SET TEMP23 MLST6>
+ <LOOP>
+AGAIN29
+ <INTGO>
+ <RESTL TEMP23 1 = TEMP24 (TYPE LIST)>
+ <NTHL TEMP24 1 = TEMP24 (TYPE ATOM)>
+ <VEQUAL? TEMP24 ATM18 - BOOL30 (DEAD-FALL ATM18)>
+ <DEAD TEMP24>
+ <NTHL TEMP23 1 = STACK (TYPE LIST)>
+ <DEAD TEMP23>
+ <JUMP + EXIT27>
+BOOL30
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <JUMP + AGAIN29>
+EXIT27
+ <PUSH MLST6>
+ <CALL '\1aALLREACH 3 = LATM4>
+PHRASE25
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN LATM4>
+ <DEAD LATM4>
+ <END \1aALLREACH>
+
+#WORD *7060447414*
+ <GFCN \1aREMEMIT ("VALUE" <OR ATOM <LIST ATOM [REST ATOM]>> ATOM) ATM4>
+ <TEMP TEMP8 TEMP6>
+ <INTGO>
+ <GEN-LVAL 'FUNC = TEMP8>
+ <VEQUAL? TEMP8 ATM4 - TAG7 (DEAD-FALL ATM4)>
+ <DEAD TEMP8>
+ <RETURN 'T>
+TAG7
+ <GEN-LVAL 'FUNCL = TEMP6>
+ <EMPL? TEMP6 + TAG12 (DEAD-JUMP TEMP6)>
+ <LOOP (ATM4 VALUE) (TEMP6 VALUE)>
+TAG13
+ <NTHL TEMP6 1 = TEMP8>
+ <VEQUAL? TEMP8 ATM4 + BOOL5 (DEAD-JUMP ATM4)>
+ <DEAD TEMP8>
+ <RESTL TEMP6 1 = TEMP6 (TYPE LIST)>
+ <EMPL? TEMP6 - TAG13 (DEAD-FALL TEMP6)>
+TAG12
+ <GEN-LVAL 'FUNCL = TEMP8>
+ <CONS ATM4 TEMP8 = TEMP6>
+ <DEAD ATM4 TEMP8>
+ <GEN-SET 'FUNCL TEMP6>
+BOOL5
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aREMEMIT>
+
+#WORD *2431076633*
+ <GFCN \1aFINDREC ("VALUE" ANY ANY) OBJ4>
+ <TEMP (FM5 <>) TEMP7 TEMP19>
+ <INTGO>
+ <MONAD? OBJ4 - TAG8>
+ <SET TEMP7 'T (TYPE ATOM)>
+ <JUMP + TAG9>
+TAG8
+ <SET TEMP7 %<> (TYPE FALSE)>
+TAG9
+ <VEQUAL? TEMP7 0 - MAP56 (DEAD-JUMP OBJ4) (DEAD-FALL TEMP7)>
+ <TYPE? OBJ4 <TYPE-CODE FORM> + TAG12>
+ <TYPE? OBJ4 <TYPE-CODE SEGMENT> - PHRASE10>
+TAG12
+ <CHTYPE OBJ4 <TYPE-CODE FORM> = FM5>
+ <EMPL? FM5 + PHRASE10 (TYPE FORM) (DEAD-JUMP FM5)>
+ <NTHL FM5 1 = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE ATOM> - PHRASE14 (DEAD-JUMP FM5)>
+ <DEAD TEMP7>
+ <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
+ <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE14) (DEAD-JUMP TEMP7 FM5)>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE14 (DEAD-JUMP TEMP7 FM5)>
+ <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP7 <TYPE-CODE UNBOUND> + PHRASE14 (DEAD-JUMP FM5)>
+ <DEAD TEMP7>
+ <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
+ <GVAL TEMP7 = TEMP19>
+ <DEAD TEMP7>
+ <TYPE? TEMP19 <TYPE-CODE FUNCTION> - BOOL18>
+ <DEAD TEMP19>
+ <FRAME '\1aREMEMIT>
+ <NTHL FM5 1 = STACK (TYPE ATOM)>
+ <CALL '\1aREMEMIT 1>
+BOOL18
+ <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
+ <GVAL TEMP19 = TEMP7>
+ <DEAD TEMP19>
+ <TYPE? TEMP7 <TYPE-CODE MACRO> - BOOL21>
+ <DEAD TEMP7>
+ <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
+ <GVAL TEMP7 = TEMP19>
+ <DEAD TEMP7>
+ <EMPTY? TEMP19 + BOOL21>
+ <DEAD TEMP19>
+ <FRAME '\1aFINDREC>
+ <FRAME '\1aEMACRO>
+ <PUSH FM5>
+ <CALL '\1aEMACRO 1 = STACK>
+ <CALL '\1aFINDREC 1>
+BOOL21
+ <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
+ <GVAL TEMP19 = TEMP7>
+ <DEAD TEMP19>
+ <GVAL 'MAPF = TEMP19>
+ <EQUAL? TEMP7 TEMP19 + BOOL25>
+ <DEAD TEMP7 TEMP19>
+ <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
+ <GVAL TEMP19 = TEMP7>
+ <DEAD TEMP19>
+ <GVAL 'MAPR = TEMP19>
+ <EQUAL? TEMP7 TEMP19 - MAP40 (DEAD-JUMP FM5)>
+ <DEAD TEMP7 TEMP19>
+BOOL25
+ <SET TEMP19 FM5>
+ <SET TEMP7 3 (TYPE FIX)>
+ <LOOP (TEMP19 VALUE) (TEMP7 VALUE)>
+TAG27
+ <EMPL? TEMP19 + MAP40 (DEAD-JUMP TEMP19 TEMP7 FM5)>
+ <SUB TEMP7 1 = TEMP7 (TYPE FIX)>
+ <LESS? TEMP7 0 + TAG28 (DEAD-JUMP TEMP19 TEMP7)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + TAG27>
+TAG28
+ <RESTL FM5 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FORM> - BOOL31>
+ <DEAD TEMP19>
+ <FRAME '\1aCHK-GVAL>
+ <RESTL FM5 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = STACK (TYPE FORM)>
+ <DEAD TEMP19>
+ <CALL '\1aCHK-GVAL 1>
+BOOL31
+ <RESTL FM5 1 = TEMP7 (TYPE LIST)>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FORM> - MAP40 (DEAD-JUMP FM5)>
+ <DEAD TEMP7>
+ <FRAME '\1aCHK-GVAL>
+ <RESTL FM5 1 = TEMP7 (TYPE LIST)>
+ <DEAD FM5>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = STACK (TYPE FORM)>
+ <DEAD TEMP7>
+ <CALL '\1aCHK-GVAL 1>
+ <JUMP + MAP40>
+PHRASE14
+ <FRAME '\1aSTRUCTURED?>
+ <NTHL OBJ4 1 = STACK>
+ <CALL '\1aSTRUCTURED? 1 = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + MAP40>
+ <DEAD TEMP7>
+ <NTHL OBJ4 1 = TEMP19>
+ <LOOP>
+MAP41
+ <INTGO>
+ <EMPTY? TEMP19 + MAP40 (DEAD-JUMP TEMP19)>
+ <FRAME '\1aFINDREC>
+ <NTH1 TEMP19 = STACK>
+ <CALL '\1aFINDREC 1>
+ <REST1 TEMP19 = TEMP19>
+ <JUMP + MAP41>
+MAP40
+ <RESTL OBJ4 1 = FM5 (TYPE LIST)>
+ <CHTYPE FM5 <TYPE-CODE LIST> = FM5>
+ <EMPL? FM5 - TAG48 (TYPE LIST) (DEAD-FALL OBJ4)>
+ <DEAD FM5>
+ <RETURN 'T>
+TAG48
+ <SET TEMP7 %<> (TYPE FALSE)>
+ <RESTL OBJ4 1 = FM5 (TYPE LIST)>
+ <DEAD OBJ4>
+ <CHTYPE FM5 <TYPE-CODE LIST> = FM5>
+ <LOOP>
+MAP51
+ <INTGO>
+ <EMPL? FM5 + MAP50 (DEAD-JUMP FM5) (DEAD-FALL TEMP7)>
+ <FRAME '\1aFINDREC>
+ <NTHL FM5 1 = STACK>
+ <CALL '\1aFINDREC 1 = TEMP7>
+ <RESTL FM5 1 = FM5 (TYPE LIST)>
+ <JUMP + MAP51>
+MAP50
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+PHRASE10
+ <SET TEMP7 %<> (TYPE FALSE)>
+ <SET TEMP19 OBJ4>
+ <DEAD OBJ4>
+ <LOOP>
+MAP57
+ <INTGO>
+ <EMPTY? TEMP19 + MAP56 (DEAD-JUMP TEMP19) (DEAD-FALL TEMP7)>
+ <FRAME '\1aFINDREC>
+ <NTH1 TEMP19 = STACK>
+ <CALL '\1aFINDREC 1 = TEMP7>
+ <REST1 TEMP19 = TEMP19>
+ <JUMP + MAP57>
+MAP56
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aFINDREC>
+
+#WORD *5465313554*
+ <GFCN \1aANONFEMACRO1 ("VALUE" ANY ANY "TUPLE" ANY) FR4>
+ <MAKTUP T5:TUPLE TEMP9 TEMP13:FIX = T5>
+ <INTGO>
+ <NTHR 'MACACT 1 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE7) (DEAD-JUMP TEMP9)>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE7 (DEAD-JUMP TEMP9)>
+ <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP9 <TYPE-CODE UNBOUND> + PHRASE7>
+ <DEAD TEMP9>
+ <FRAME '\1aLEGAL?>
+ <GVAL 'MACACT = STACK>
+ <CALL '\1aLEGAL? 1 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE7>
+ <DEAD TEMP9>
+ <FRAME '\1aDISMISS>
+ <SET TEMP13 0 (TYPE FIX)>
+ <SET TEMP9 T5>
+ <DEAD T5>
+ <LOOP (TEMP9 VALUE LENGTH) (TEMP13 VALUE)>
+TAG14
+ <INTGO>
+ <EMPUV? TEMP9 + TAG12 (DEAD-JUMP TEMP9)>
+ <NTHUV TEMP9 1 = STACK>
+ <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG14>
+TAG12
+ <UBLOCK <TYPE-CODE VECTOR> TEMP13 = STACK>
+ <DEAD TEMP13>
+ <GVAL 'MACACT = STACK (TYPE FRAME)>
+ <CALL '\1aDISMISS 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE7
+ <FRAME '\1aLISTEN>
+ <PUSH T5>
+ <DEAD T5>
+ <CALL '\1aLISTEN 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aANONFEMACRO1>
+ <GFCN \1aEMACRO ("VALUE" ANY ANY) OBJ5>
+ <TEMP ERR6 TEM7>
+ <INTGO>
+ <FRAME '\1aCLASS>
+ <PUSH "ERROR">
+ <CALL '\1aCLASS 1 = ERR6>
+ <TYPE? ERR6 <TYPE-CODE FALSE> + PHRASE10>
+ <FRAME '\1aOFF>
+ <PUSH ERR6>
+ <CALL '\1aOFF 1>
+PHRASE10
+ <FRAME '\1aON>
+ <FRAME '\1aHANDLER>
+ <PUSH "ERROR">
+ <GVAL 'ANONFEMACRO1 = STACK>
+ <PUSH 100>
+ <CALL '\1aHANDLER 3 = STACK>
+ <CALL '\1aON 1>
+ <ICALL EXIT16 = TEM7>
+ <TEMP TEMP17 TEMP20>
+ <INTGO>
+ <CFRAME = TEMP17>
+ <NTHR TEMP17 5 = TEMP17 (RECORD-TYPE FRAME)>
+ <CFRAME = TEMP20 (TYPE FRAME)>
+ <BBIND 'MACACT 'ANY 'FIX TEMP20>
+ <DEAD TEMP20>
+ <ACTIVATION>
+ <NTHR 'MACACT 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP20 1 = TEMP20 (RECORD-TYPE LBIND)>
+ <SETG 'MACACT TEMP20>
+ <DEAD TEMP20>
+ <FRAME '\1aEXPAND>
+ <SETLR TEMP20 TEMP17 OBJ5>
+ <PUSH TEMP20>
+ <DEAD TEMP20>
+ <CALL '\1aEXPAND 1 = TEMP20>
+ <CONS TEMP20 () = TEMP20 (DEAD-FALL OBJ5 TEMP17)>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+EXIT16
+ <TYPE? TEM7 <TYPE-CODE VECTOR> - PHRASE15>
+ <FRAME '\1aOFF>
+ <PUSH "ERROR">
+ <CALL '\1aOFF 1>
+ <TYPE? ERR6 <TYPE-CODE FALSE> + PHRASE27 (DEAD-JUMP ERR6)>
+ <FRAME '\1aON>
+ <PUSH ERR6>
+ <DEAD ERR6>
+ <CALL '\1aON 1>
+PHRASE27
+ <FRAME '\1aERROR>
+ <PUSH " MACRO EXPANSION LOSSAGE ">
+ <SET ERR6 1 (TYPE FIX)>
+ <LOOP (TEM7 VALUE LENGTH) (ERR6 VALUE)>
+TAG32
+ <INTGO>
+ <EMPUV? TEM7 + TAG29 (DEAD-JUMP TEM7)>
+ <NTHUV TEM7 1 = STACK>
+ <RESTUV TEM7 1 = TEM7 (TYPE VECTOR)>
+ <ADD ERR6 1 = ERR6 (TYPE FIX)>
+ <JUMP + TAG32>
+TAG29
+ <CALL '\1aERROR ERR6 = ERR6>
+ <RETURN ERR6>
+ <DEAD ERR6>
+PHRASE15
+ <FRAME '\1aOFF>
+ <PUSH "ERROR">
+ <CALL '\1aOFF 1>
+ <TYPE? ERR6 <TYPE-CODE FALSE> + BOOL36 (DEAD-JUMP ERR6)>
+ <FRAME '\1aON>
+ <PUSH ERR6>
+ <DEAD ERR6>
+ <CALL '\1aON 1>
+BOOL36
+ <NTH1 TEM7 = ERR6>
+ <DEAD TEM7>
+ <RETURN ERR6>
+ <DEAD ERR6>
+ <END \1aEMACRO>
+
+#WORD *25334577364*
+ <GFCN \1aCHK-GVAL ("VALUE" <OR ATOM FALSE <LIST ATOM [REST ATOM]>> FORM) FM4>
+ <TEMP TEMP9 TEMP13>
+ <INTGO>
+ <EMPL? FM4 + TAG8 (DEAD-JUMP FM4)>
+ <RESTL FM4 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 + TAG8 (DEAD-JUMP FM4 TEMP9)>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 + TAG7 (DEAD-FALL FM4)>
+ <DEAD TEMP9>
+TAG8
+ <RETURN %<>>
+TAG7
+ <NTHL FM4 1 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE ATOM> + TAG10 (DEAD-FALL FM4)>
+ <DEAD TEMP9>
+ <RETURN %<>>
+TAG10
+ <NTHL FM4 1 = TEMP9 (TYPE ATOM)>
+ <GVAL TEMP9 = TEMP13>
+ <DEAD TEMP9>
+ <GVAL 'GVAL = TEMP9>
+ <EQUAL? TEMP13 TEMP9 + TAG12 (DEAD-FALL FM4)>
+ <DEAD TEMP13 TEMP9>
+ <RETURN %<>>
+TAG12
+ <RESTL FM4 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE ATOM> + TAG14 (DEAD-FALL FM4)>
+ <DEAD TEMP9>
+ <RETURN %<>>
+TAG14
+ <RESTL FM4 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
+ <NTHR TEMP9 1 = TEMP13 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG17) (DEAD-JUMP FM4 TEMP13)>
+ <DEAD TEMP9>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG17 (DEAD-JUMP FM4 TEMP13)>
+ <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP13 <TYPE-CODE UNBOUND> - TAG16 (DEAD-FALL FM4)>
+ <DEAD TEMP13>
+TAG17
+ <RETURN %<>>
+TAG16
+ <RESTL FM4 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = TEMP13 (TYPE ATOM)>
+ <GVAL TEMP13 = TEMP9>
+ <DEAD TEMP13>
+ <TYPE? TEMP9 <TYPE-CODE FUNCTION> + TAG24>
+ <DEAD TEMP9>
+ <RESTL FM4 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
+ <GVAL TEMP9 = TEMP13>
+ <DEAD TEMP9>
+ <TYPE? TEMP13 <TYPE-CODE MACRO> + TAG21 (DEAD-FALL FM4)>
+ <DEAD TEMP13>
+ <RETURN %<>>
+TAG21
+ <RESTL FM4 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = TEMP13 (TYPE ATOM)>
+ <GVAL TEMP13 = TEMP9>
+ <DEAD TEMP13>
+ <EMPTY? TEMP9 - TAG23 (DEAD-FALL FM4)>
+ <DEAD TEMP9>
+ <RETURN %<>>
+TAG23
+ <RESTL FM4 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
+ <GVAL TEMP9 = TEMP13>
+ <DEAD TEMP9>
+ <NTH1 TEMP13 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FUNCTION> + TAG24 (DEAD-FALL FM4)>
+ <DEAD TEMP13>
+ <RETURN %<>>
+TAG24
+ <FRAME '\1aREMEMIT>
+ <RESTL FM4 1 = TEMP13 (TYPE LIST)>
+ <DEAD FM4>
+ <NTHL TEMP13 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP13>
+ <CALL '\1aREMEMIT 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aCHK-GVAL>
+
+#WORD *22203463771*
+ <GFCN \1aFINDEM ("VALUE" <LIST [REST ATOM]> ATOM) FUNC4>
+ <TEMP TEMP3:LBIND TEMP7>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'FUNC 'ATOM %<> FUNC4>
+ <DEAD FUNC4>
+ <FIXBIND>
+ <BBIND 'FUNCL <LIST [REST ATOM]> 'FIX ()>
+ <FRAME '\1aFINDREC>
+ <NTHR 'FUNC 2 = TEMP7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE LBIND)>
+ <GVAL TEMP7 = STACK>
+ <DEAD TEMP7>
+ <CALL '\1aFINDREC 1>
+ <NTHR 'FUNCL 2 = TEMP7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE LBIND)>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -18>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aFINDEM>
+
+#WORD *13403552100*
+ <GFCN
\1aFINDEMALL ("VALUE" <LIST <LIST [REST ATOM]> ATOM> <<PRIMTYPE VECTOR> [REST ATOM]>) ATM4>
+ <TEMP TD8:LIST TEMP12:LIST TEMP13 CURDO16:LIST TEMP27 TEMP28>
+ <INTGO>
+ <SET TD8 () (TYPE LIST)>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <EMPUV? ATM4 + EXIT6 (DEAD-JUMP ATM4)>
+ <FRAME '\1aFINDEM>
+ <NTHUV ATM4 1 = STACK (TYPE ATOM)>
+ <CALL '\1aFINDEM 1 = TEMP12>
+ <CONS TEMP12 () = TEMP12>
+ <NTHUV ATM4 1 = TEMP13 (TYPE ATOM)>
+ <CONS TEMP13 () = TEMP13>
+ <PUTREST TEMP12 TEMP13>
+ <PUTREST TEMP13 TD8>
+ <DEAD TEMP13 TD8>
+ <SET TD8 TEMP12>
+ <DEAD TEMP12>
+ <RESTUV ATM4 1 = ATM4 (TYPE VECTOR)>
+ <CHTYPE ATM4 <TYPE-CODE VECTOR> = ATM4>
+ <JUMP + AGAIN9>
+EXIT6
+ <SET TEMP12 TD8>
+ <NTHL TD8 1 = CURDO16 (TYPE LIST)>
+ <LOOP>
+AGAIN17
+ <INTGO>
+ <EMPL? CURDO16 - PHRASE22 (TYPE LIST) (DEAD-FALL CURDO16)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 - PHRASE21 (TYPE LIST) (DEAD-FALL TEMP12)>
+ <RETURN TD8>
+ <DEAD TD8>
+PHRASE21
+ <NTHL TEMP12 1 = CURDO16 (TYPE LIST)>
+ <JUMP + AGAIN17>
+PHRASE22
+ <NTHL CURDO16 1 = TEMP13 (TYPE ATOM)>
+ <SET TEMP27 TD8>
+ <LOOP (TEMP13 VALUE) (TEMP27 VALUE)>
+TAG24
+ <NTHL TEMP27 1 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE ATOM> - TAG25 (DEAD-JUMP TEMP28)>
+ <VEQUAL? TEMP28 TEMP13 + PHRASE29 (DEAD-JUMP TEMP27 TEMP13)>
+ <DEAD TEMP28>
+TAG25
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <EMPL? TEMP27 - TAG24 (DEAD-FALL TEMP27 TEMP13)>
+ <SET TEMP27 TEMP12>
+ <LOOP (TEMP27 VALUE)>
+TAG30
+ <RESTL TEMP27 1 = TEMP13 (TYPE LIST)>
+ <EMPL? TEMP13 + TAG31 (DEAD-JUMP TEMP13) (DEAD-FALL TEMP27)>
+ <SET TEMP27 TEMP13>
+ <DEAD TEMP13>
+ <JUMP + TAG30>
+TAG31
+ <FRAME '\1aFINDEM>
+ <NTHL CURDO16 1 = STACK (TYPE ATOM)>
+ <CALL '\1aFINDEM 1 = TEMP13>
+ <CONS TEMP13 () = TEMP13>
+ <NTHL CURDO16 1 = TEMP28 (TYPE ATOM)>
+ <CONS TEMP28 () = TEMP28>
+ <PUTREST TEMP13 TEMP28>
+ <DEAD TEMP28>
+ <PUTREST TEMP27 TEMP13>
+ <DEAD TEMP27 TEMP13>
+PHRASE29
+ <RESTL CURDO16 1 = CURDO16 (TYPE LIST)>
+ <JUMP + AGAIN17>
+ <END \1aFINDEMALL>
+
+#WORD *15613554253*
+ <GFCN \1aGETORDER ("VALUE" ANY "TUPLE" <TUPLE [REST ATOM]>)>
+ <MAKTUP ATMS4:TUPLE TEMP13 TEMP14 TEMP12 TEMP17 = ATMS4>
+ <INTGO>
+ <SET TEMP13 () (TYPE LIST)>
+ <SET TEMP14 () (TYPE LIST)>
+ <CHTYPE ATMS4 <TYPE-CODE VECTOR> = TEMP12>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPUV? TEMP12 + MAP10 (DEAD-JUMP TEMP12 TEMP14)>
+ <FRAME '\1aCHECK>
+ <NTHUV TEMP12 1 = STACK>
+ <CALL '\1aCHECK 1 = TEMP17>
+ <CONS TEMP17 () = TEMP17 (TYPE LIST)>
+ <EMPL? TEMP13 - TAG18 (DEAD-FALL TEMP14 TEMP13)>
+ <SET TEMP13 TEMP17 (TYPE LIST)>
+ <JUMP + TAG19>
+TAG18
+ <PUTREST TEMP14 TEMP17>
+ <DEAD TEMP14>
+TAG19
+ <SET TEMP14 TEMP17 (TYPE LIST)>
+ <DEAD TEMP17>
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <JUMP + MAP11>
+MAP10
+ <SET TEMP12 TEMP13>
+ <DEAD TEMP13>
+ <EMPL? TEMP12 + TAG7 (DEAD-JUMP TEMP12)>
+ <LOOP (TEMP12 VALUE)>
+TAG8
+ <NTHL TEMP12 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - TAG9 (DEAD-JUMP TEMP17)>
+ <VEQUAL? TEMP17 %<> + PHRASE6 (DEAD-JUMP TEMP12 ATMS4)>
+ <DEAD TEMP17>
+TAG9
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 - TAG8 (DEAD-FALL TEMP12)>
+TAG7
+ <FRAME '\1aORDEREM>
+ <FRAME '\1aFINDEMALL>
+ <PUSH ATMS4>
+ <DEAD ATMS4>
+ <CALL '\1aFINDEMALL 1 = STACK>
+ <CALL '\1aORDEREM 1 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE6
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-ARG>
+ <PUSH 'GETORDER>
+ <CALL '\1aERROR 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aGETORDER>
+
+<SET LIST_OF_FUNCTIONS '(CHECK PREV SPLOUTEM REVERSE ORDEREM REMEMIT FINDREC FINDEM FINDEMALL GETORDER)>
+
+<ENDPACKAGE>
projects / pdp10-muddle.git / blobdiff