perm filename CYCOMB.LAP[DEN,LMM]1 blob
sn#034860 filedate 1973-04-13 generic text, type T, neo UTF8
(LAP MOLECULES SUBR)
(PUSH P 1.)
(PUSH P 2.)
(CAIE 2. (QUOTE 0.))
(JRST 0. TAG9)
(CALL 1. (E GENMOL) S)
(JRST 0. TAG8)
TAG9 (PUSH P (C 0. 0. (QUOTE NIL) 0.))
(MOVE 2. -1. P)
(MOVE 1. -2. P)
(CALL 2. (E SUPERATOMPARTITIONS) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -3. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. -3. P)
(MOVEM 1. -2. P)
(HLRZ@ 1. 1.)
(CALL 1. (E SUPERATOMS) S)
(MOVEM 1. 0. P)
TAG2 (MOVE 1. 0. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. 0. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG19 0.))
(PUSH P -5. P)
(CALL 1. (E CLCREATE) S)
(HRRZ@ 2. -4. P)
(CALL 2. (E *APPEND) S)
(CALL 1. (E GENMOL) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG19 (MOVEM 1. -4. P)
TAG3
TAG4 (HRRZ@ 1. 0. P)
(MOVEM 1. 0. P)
(JRST 0. TAG2)
TAG5
TAG6 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG1)
TAG7 (MOVE 1. -4. P)
(SUB P (C 5. 0. 5. 0.))
TAG8 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP SUPERATOMPARTITIONS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(HLRZ@ 1. 1.)
(CALL 1. (E VALENCE) S)
(MOVEI 2. (QUOTE 1.))
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG3)
(PUSH P (C 0. 0. TAG37 0.))
(PUSH P -1. P)
(MOVE 1. -3. P)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG37 (MOVEM 1. 0. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 3. 0. 3. 0.))
(MOVE 2. 1.)
(MOVEM 1. 0. P)
(MOVE 1. -2. P)
(CALL 2. (E CLDIFF) S)
(MOVEM 1. -2. P)
(CALL 1. (E CLCOUNT) S)
(PUSH P (C 0. 0. (QUOTE 2.) 0.))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG5 (MOVE 2. -12. P)
(MOVE 1. -13. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG26)
(MOVE 2. -13. P)
(MOVE 1. -16. P)
(CALL 2. (E CLPARTS) S)
(MOVEM 1. -10. P)
TAG6 (MOVE 1. -10. P)
(JUMPE 1. TAG24)
(HLRZ@ 1. -10. P)
(MOVE 2. 1.)
(MOVEM 1. -11. P)
(MOVE 1. -16. P)
(CALL 2. (E CLDIFF) S)
(MOVE 2. 1.)
(MOVE 1. -14. P)
(CALL 2. (E *APPEND) S)
(MOVEI 2. (QUOTE 2.))
(MOVEM 1. -9. P)
(MOVE 1. -13. P)
(CALL 2. (E *QUO) S)
(MOVEI 2. (QUOTE 1.))
(MOVEM 2. -8. P)
(MOVEM 1. -7. P)
TAG7 (MOVE 2. -7. P)
(MOVE 1. -8. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG21)
(MOVEI 4. (QUOTE 9999999.) S)
(MOVEI 3. (QUOTE 2.))
(MOVE 2. -8. P)
(MOVE 1. -11. P)
(CALL 4. (E CLPARTITIONSN) S)
(MOVEM 1. -5. P)
TAG8 (MOVE 1. -5. P)
(JUMPE 1. TAG19)
(HLRZ@ 1. -5. P)
(MOVEM 1. -6. P)
(CALL 1. (E CLCREATE) S)
(MOVEM 1. -4. P)
(CALL 1. (E MAXUNSATL) S)
(MOVEM 1. -3. P)
(JUMPE 1. TAG16)
(PUSH P (C 0. 0. TAG49 0.))
(MOVEI D (QUOTE CDR) S)
(PUSH P D)
(PUSH P -6. P)
(MOVNI 6. 2.)
(JCALL 14. (E MAPCAR) S)
TAG49 (MOVE 4. 1.)
(MOVE 3. -3. P)
(MOVEI 2. (QUOTE 1.))
(MOVE 1. -15. P)
(CALL 4. (E NUMPARTITIONS*) S)
(MOVEM 1. -1. P)
TAG9 (MOVE 1. -1. P)
(JUMPE 1. TAG15)
(HLRZ@ 1. -1. P)
(MOVEM 1. -2. P)
(PUSH P -4. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG10 (MOVE 1. -5. P)
(JUMPN 1. TAG56)
(MOVE 1. -3. P)
(JRST 0. TAG52)
TAG56 (HLRZ@ 1. -5. P)
(HLRZ@ 1. 1.)
(HLRZ@ 2. -5. P)
(HRRZ@ 2. 2.)
(HRRZ@ 3. -5. P)
(MOVEM 3. -5. P)
(MOVEM 2. -1. P)
(MOVEM 1. 0. P)
TAG11 (MOVEI 1. (QUOTE 0.))
(MOVEM 1. -2. P)
TAG12 (MOVE 1. -2. P)
(CALL 1. (E ADD1) S)
(MOVEM 1. -2. P)
(MOVE 1. -1. P)
(CALL 1. (E SUB1) S)
(HLRZ@ 2. -8. P)
(HRRZ@ 3. -8. P)
(MOVEM 1. -1. P)
(MOVEM 2. -4. P)
(MOVEM 3. -8. P)
(CAIN 1. (QUOTE 0.))
(JRST 0. TAG60)
(HLRZ@ 2. 3.)
(MOVE 1. -4. P)
(CALL 2. (E EQUAL) S)
(JUMPN 1. TAG12)
TAG60 (MOVE 2. 0. P)
(MOVE 1. -4. P)
(CALL 2. (E CONS) S)
(MOVE 2. -2. P)
(CALL 2. (E CONS) S)
(MOVE 2. -3. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -3. P)
(MOVE 1. -1. P)
(CAIN 1. (QUOTE 0.))
(JRST 0. TAG10)
(JRST 0. TAG11)
TAG52 (MOVE 2. -15. P)
(CALL 2. (E CONS) S)
(MOVE 2. -6. P)
(CALL 2. (E CONS) S)
(SUB P (C 6. 0. 6. 0.))
(MOVEM 1. 0. P)
TAG13
TAG14 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG9)
TAG15
TAG16
TAG17
TAG18 (HRRZ@ 1. -5. P)
(MOVEM 1. -5. P)
(JRST 0. TAG8)
TAG19
TAG20 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -8. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -8. P)
(JRST 0. TAG7)
TAG21
TAG22
TAG23 (HRRZ@ 1. -10. P)
(MOVEM 1. -10. P)
(JRST 0. TAG6)
TAG24
TAG25 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -13. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -13. P)
(JRST 0. TAG5)
TAG26 (MOVE 1. 0. P)
(SUB P (C 17. 0. 17. 0.))
(POPJ P)
NIL
(LAP MAXUNSATL SUBR)
(PUSH P 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG8)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG14 0.))
(PUSH P -1. P)
(MOVEI 1. (QUOTE 0.))
(PUSH P 1.)
(PUSH P 1.)
(PUSH P 1.)
(HLRZ@ 1. -6. P)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG2 (MOVE 1. -2. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. -2. P)
(HRRZ@ 2. 1.)
(MOVEM 1. -1. P)
(MOVE 1. -4. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -4. P)
(HRRZ@ 1. -1. P)
(PUSH P 1.)
(HLRZ@ 1. -2. P)
(CALL 1. (E VALENCE) S)
(POP P 2.)
(CALL 2. (E *TIMES) S)
(MOVE 2. -3. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -3. P)
(HLRZ@ 1. -1. P)
(CALL 1. (E VALENCE) S)
(MOVE 2. 1.)
(MOVE 1. -5. P)
(CALL 2. (E MAX) S)
(MOVEM 1. -5. P)
TAG3
TAG4 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG2)
TAG5 (SUB P (C 3. 0. 3. 0.))
(MOVE 2. 0. P)
(MOVEI 1. (QUOTE 2.))
(CALL 2. (E *PLUS) S)
(MOVE 2. -1. P)
(PUSH P 1.)
(MOVEI 1. (QUOTE -2.))
(CALL 2. (E *TIMES) S)
(MOVE 2. 0. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. 0. P)
(MOVE 1. -3. P)
(CALL 1. (E TWICE) S)
(MOVE 2. 1.)
(MOVE 1. -1. P)
(CALL 2. (E *DIF) S)
(MOVE 2. 1.)
(MOVEI 1. (QUOTE -1.))
(CALL 2. (E MIN) S)
(MOVE 2. 0. P)
(CALL 2. (E *PLUS) S)
(MOVEI 2. (QUOTE 0.5) S)
(CALL 2. (E *TIMES) S)
(CALL 1. (E FIX) S)
(CALL 1. (E NCONS) S)
(SUB P (C 4. 0. 4. 0.))
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG14 (MOVEM 1. 0. P)
TAG6
TAG7 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG8 (MOVE 1. 0. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP SUPERATOMS SUBR)
(PUSH P 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG10 0.))
(PUSH P -1. P)
(HLRZ@ 2. 1.)
(HRRZ@ 2. 2.)
(CALL 1. (E CAAR) S)
(CALL 2. (E RINGS) S)
(HRRZ@ 2. -3. P)
(CALL 2. (E CONS) S)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG10 (MOVEM 1. 0. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 4. 0. 4. 0.))
(JCALL 1. (E GROUPRADS) S)
NIL
(LAP COMPUTEFV SUBR)
(PUSH P 1.)
(PUSH P 2.)
(MOVEI 1. (QUOTE 0.))
(PUSH P 1.)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(HLRZ@ 1. 1.)
(CALL 1. (E VALENCE) S)
(HRRZ@ 2. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -4. P)
(CALL 2. (E *PLUS) S)
(MOVE 2. -3. P)
(MOVEM 1. -4. P)
(HRRZ@ 1. -1. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -3. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (SUB P (C 3. 0. 3. 0.))
(MOVE 2. -1. P)
(MOVEI 1. (QUOTE 2.))
(CALL 2. (E *PLUS) S)
(MOVE 2. -3. P)
(PUSH P 1.)
(MOVE 1. -1. P)
(CALL 2. (E *PLUS) S)
(MOVEI 2. (QUOTE -2.))
(CALL 2. (E *TIMES) S)
(MOVE 2. 0. P)
(SUB P (C 5. 0. 5. 0.))
(JCALL 2. (E *PLUS) S)
NIL
(LAP SUBFUN1CLBYVALENCE SUBR)
(HLRZ@ 1. 1.)
(JCALL 1. (E VALENCE) S)
NIL
(LAP CLBYVALENCE SUBR)
(MOVE 2. 1.)
(PUSH P 1.)
(MOVEI 1. (QUOTE SUBFUN1CLBYVALENCE) S)
(CALL 2. (E GROUPBY) S)
(MOVEM 1. 0. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. TAG8 0.))
(MOVEI D (QUOTE CAR) S)
(PUSH P D)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E MAPCAR) S)
TAG8 (CALL 1. (E MAXLIST) S)
(MOVEI 2. (QUOTE 2.))
(MOVEM 2. -2. P)
(MOVEM 1. -1. P)
TAG1 (MOVE 2. -1. P)
(MOVE 1. -2. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG4)
(PUSH P (C 0. 0. TAG10 0.))
(PUSH P -1. P)
(MOVEI 3. (QUOTE NIL))
(MOVE 2. -5. P)
(MOVE 1. -4. P)
(CALL 3. (E LMASSOC) S)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG10 (MOVEM 1. 0. P)
TAG2
TAG3 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -2. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP RINGS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(CALL 2. (E COMPUTEFV) S)
(PUSH P 1.)
(MOVE 1. -1. P)
(CALL 1. (E CLBYVALENCE) S)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. TAG11 0.))
(MOVEI D (QUOTE CLCOUNT) S)
(PUSH P D)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E MAPCAR) S)
TAG11 (MOVE 2. 1.)
(MOVE 1. -3. P)
(CALL 2. (E RINGSKELETONS) S)
(MOVEM 1. 0. P)
TAG1 (MOVE 1. 0. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. 0. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG14 0.))
(PUSH P -3. P)
(MOVE 2. 1.)
(MOVE 1. -6. P)
(CALL 2. (E STRUCTURESWITHATOMS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG14 (MOVEM 1. -2. P)
TAG2
TAG3 (HRRZ@ 1. 0. P)
(MOVEM 1. 0. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -2. P)
(SUB P (C 6. 0. 6. 0.))
(POPJ P)
NIL
(LAP FVPARTITIONS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(MOVEI 3. (QUOTE 1.))
(HRRZ@ 2. 2.)
(CALL 3. (E FVPARTITION1) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -3. P)
(JUMPE 1. TAG11)
(HLRZ@ 1. -3. P)
(MOVEM 1. -2. P)
(CALL 1. (E ROWS) S)
(MOVEM 1. -1. P)
(MOVE 2. -2. P)
(PUSH P 1.)
(MOVEI 1. (QUOTE NIL))
(CALL 2. (E CONS) S)
(PUSH P -5. P)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG2 (MOVE 1. -6. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. -6. P)
(MOVEM 1. -3. P)
(MOVE 1. -4. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. -4. P)
(MOVEM 1. -2. P)
(MOVE 1. -5. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. -5. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG26 0.))
(PUSH P -1. P)
(MOVE 1. -5. P)
(CALL 1. (E PLUSLIST) S)
(MOVE 2. -3. P)
(CALL 2. (E *PLUS) S)
(PUSH P 1.)
(MOVE 1. -5. P)
(CALL 1. (E PLUSLIST) S)
(CALL 1. (E MINUS) S)
(POP P 2.)
(CALL 2. (E *PLUS) S)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG26 (MOVEM 1. 0. P)
TAG3
TAG4 (HRRZ@ 1. -5. P)
(MOVEM 1. -5. P)
TAG5 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
TAG6 (HRRZ@ 1. -6. P)
(MOVEM 1. -6. P)
(JRST 0. TAG2)
TAG7 (MOVE 1. 0. P)
(MOVE 2. -8. P)
(CALL 2. (E CONS) S)
(MOVE 2. -7. P)
(CALL 2. (E CONS) S)
(SUB P (C 7. 0. 7. 0.))
(MOVEM 1. 0. P)
TAG8
TAG9
TAG10 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG1)
TAG11 (MOVE 1. 0. P)
(SUB P (C 6. 0. 6. 0.))
(POPJ P)
NIL
(LAP RINGSKELETONS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(CALL 2. (E FVPARTITIONS) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -3. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. -3. P)
(MOVEM 1. -2. P)
(HLRZ@ 1. 1.)
(CALL 1. (E NOFV-RINGS) S)
(MOVEM 1. 0. P)
TAG2 (MOVE 1. 0. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. 0. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG15 0.))
(PUSH P -5. P)
(MOVE 2. 1.)
(HRRZ@ 1. -4. P)
(CALL 2. (E ATTACHFVS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG15 (MOVEM 1. -4. P)
TAG3
TAG4 (HRRZ@ 1. 0. P)
(MOVEM 1. 0. P)
(JRST 0. TAG2)
TAG5
TAG6 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG1)
TAG7 (MOVE 1. -4. P)
(SUB P (C 7. 0. 7. 0.))
(POPJ P)
NIL
(LAP NOFV-RINGS SUBR)
(PUSH P 1.)
(HRRZ@ 1. 1.)
(CALL 1. (E PLUSLIST) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(CAIE 1. (QUOTE 0.))
(JRST 0. TAG9)
(HLRZ@ 1. -3. P)
(CALL 1. (E SINGLERINGS) S)
(JRST 0. TAG5)
TAG9 (MOVEI 2. (QUOTE 1.))
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG10)
(MOVE 1. -3. P)
(CALL 1. (E DAISIES) S)
(JRST 0. TAG5)
TAG10 (MOVE 1. -3. P)
(CALL 1. (E MINLOOPS) S)
(MOVEM 1. 0. P)
(MOVE 1. -3. P)
(CALL 1. (E MAXLOOPS) S)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P -1. P)
TAG1 (MOVE 2. -3. P)
(MOVE 1. 0. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG4)
(PUSH P (C 0. 0. TAG15 0.))
(PUSH P -2. P)
(MOVE 2. -7. P)
(MOVE 1. -2. P)
(CALL 2. (E KLOOPEDRINGS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG15 (MOVEM 1. -1. P)
TAG2
TAG3 (MOVEI 2. (QUOTE 1.))
(MOVE 1. 0. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. 0. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -1. P)
(SUB P (C 2. 0. 2. 0.))
TAG5 (SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP DAISIES SUBR)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(HLRZ@ 1. 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P 1.)
(HRRZ@ 1. -4. P)
(PUSH P (C 0. 0. (QUOTE 3.) 0.))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPN 1. TAG17)
(JRST 0. TAG5)
TAG17 (HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(MOVEI 2. (QUOTE 99999.) S)
(MOVE 1. -3. P)
(CALL 2. (E *GREAT) S)
(JUMPE 1. TAG20)
(JRST 0. TAG5)
TAG20 (MOVE 1. -3. P)
(MOVEM 1. 0. P)
TAG2
TAG3 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -3. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -3. P)
(MOVE 1. -1. P)
(CAIN 1. (QUOTE 0.))
(JRST 0. TAG22)
(JRST 0. TAG5)
TAG22
TAG4 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG5 (MOVE 1. 0. P)
(MOVEI 2. (QUOTE 2.))
(CALL 2. (E *QUO) S)
(MOVEI 4. (QUOTE 99999999.) S)
(MOVEI 3. (QUOTE 1.))
(MOVE 2. 1.)
(EXCH 1. -4. P)
(CALL 4. (E NUMPARTITIONS) S)
(SUB P (C 5. 0. 5. 0.))
(MOVEM 1. 0. P)
TAG6 (MOVE 1. 0. P)
(JUMPE 1. TAG9)
(HLRZ@ 1. 0. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG26 0.))
(PUSH P -3. P)
(CALL 1. (E CLCREATE) S)
(CALL 1. (E DAISY) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG26 (MOVEM 1. -2. P)
TAG7
TAG8 (HRRZ@ 1. 0. P)
(MOVEM 1. 0. P)
(JRST 0. TAG6)
TAG9 (MOVE 1. -2. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP NOLOOPEDRINGS SUBR)
(PUSH P 1.)
(HLRZ@ 1. 1.)
(CAIE 1. (QUOTE 0.))
(JRST 0. TAG9)
(HRRZ@ 1. 0. P)
(CALL 1. (E CATALOG) S)
(JRST 0. TAG8)
TAG9 (MOVE 1. 0. P)
(CALL 1. (E BIVALENTPARTITIONS) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(HRRZ@ 1. -2. P)
(CALL 1. (E CATALOG) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -3. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. -3. P)
(MOVE 2. -5. P)
(MOVEM 2. 0. P)
(MOVEM 1. -2. P)
TAG2 (MOVE 1. 0. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. 0. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG22 0.))
(PUSH P -5. P)
(CALL 1. (E CLCREATE) S)
(MOVE 2. -4. P)
(CALL 2. (E ATTACHBIVALENTS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG22 (MOVEM 1. -4. P)
TAG3
TAG4 (HRRZ@ 1. 0. P)
(MOVEM 1. 0. P)
(JRST 0. TAG2)
TAG5
TAG6 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG1)
TAG7 (MOVE 1. -4. P)
(SUB P (C 6. 0. 6. 0.))
TAG8 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP ROWS SUBR)
(PUSH P 1.)
(JUMPN 1. TAG2)
(MOVEI 1. (QUOTE (NIL)) S)
(JRST 0. TAG1)
TAG2 (MOVE 1. 0. P)
(CALL 1. (E CARLIST) S)
(PUSH P 1.)
(HRRZ@ 1. -1. P)
(CALL 1. (E CDRLIST) S)
(CALL 1. (E ROWS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP BIVALENTPARTITIONS SUBR)
(PUSH P 1.)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE 0.) 0.))
(PUSH P (C 0. 0. (QUOTE 3.) 0.))
(HRRZ@ 1. -3. P)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVEI 2. (QUOTE 9999.))
(MOVE 1. -2. P)
(CALL 2. (E *GREAT) S)
(JUMPE 1. TAG10)
(JRST 0. TAG5)
TAG10 (MOVE 1. -1. P)
(JUMPN 1. TAG12)
(JRST 0. TAG5)
TAG12 (HLRZ@ 1. -1. P)
(MOVE 2. -2. P)
(MOVEM 1. 0. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -3. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -3. P)
TAG2
TAG3 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
TAG4 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -2. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG5 (MOVE 1. -3. P)
(MOVEI 2. (QUOTE 2.))
(CALL 2. (E *QUO) S)
(HLRZ@ 4. -5. P)
(MOVEI 3. (QUOTE 0.))
(MOVE 2. 1.)
(EXCH 1. -4. P)
(SUB P (C 6. 0. 6. 0.))
(JCALL 4. (E NUMPARTITIONS) S)
NIL
(COMMENT THESE FNS KNOW WHAT STRUCTURES ARE)
(LAP FREEVALENCESIZE SUBR)
(PUSH P 1.)
(HLRZ@ 1. 1.)
(CAIE 1. (QUOTE STRUC) S)
(JRST 0. TAG17)
(PUSH P (C 0. 0. (QUOTE 0.) 0.))
(HRRZ@ 1. -1. P)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -3. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. -3. P)
(HRRZ@ 2. 1.)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(MOVEM 2. 0. P)
(MOVEM 1. -2. P)
TAG2 (MOVE 1. 0. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. 0. P)
(MOVEM 1. -1. P)
(CAIE 1. (QUOTE FV) S)
(JRST 0. TAG4)
(MOVE 2. -4. P)
(MOVEI 1. (QUOTE 1.))
(CALL 2. (E *PLUS) S)
(MOVEM 1. -4. P)
TAG3
TAG4 (HRRZ@ 1. 0. P)
(MOVEM 1. 0. P)
(JRST 0. TAG2)
TAG5
TAG6 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG1)
TAG7 (MOVE 1. -4. P)
(SUB P (C 5. 0. 5. 0.))
(JRST 0. TAG16)
TAG17 (HLRZ@ 1. 0. P)
(CAIE 1. (QUOTE FORM) S)
(JRST 0. TAG27)
(HRRZ@ 1. 0. P)
(HLRZ@ 1. 1.)
(CAIE 1. (QUOTE ATTACHFVS) S)
(JRST 0. TAG29)
(PUSH P (C 0. 0. (QUOTE 0.) 0.))
(HRRZ@ 1. -1. P)
(CALL 1. (E CADR) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG8 (MOVE 1. -4. P)
(JUMPE 1. TAG15)
(HLRZ@ 1. -4. P)
(MOVE 2. 1.)
(MOVEI 3. (QUOTE 1.))
(MOVEM 3. 0. P)
(MOVEM 2. -1. P)
(MOVEM 1. -3. P)
TAG9 (MOVE 1. -1. P)
(JUMPE 1. TAG13)
(HLRZ@ 1. -1. P)
(MOVEM 1. -2. P)
(MOVEI 2. (QUOTE 999999.) S)
(MOVE 1. 0. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG13)
(MOVE 2. -2. P)
(MOVE 1. 0. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -5. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -5. P)
TAG10
TAG11 (MOVEI 2. (QUOTE 1.))
(MOVE 1. 0. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. 0. P)
TAG12 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG9)
TAG13
TAG14 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG8)
TAG15 (MOVE 1. -5. P)
(SUB P (C 6. 0. 6. 0.))
(JRST 0. TAG28)
TAG29 (HRRZ@ 1. 0. P)
(CALL 1. (E CADDR) S)
(CALL 1. (E FREEVALENCESIZE) S)
TAG28 (JRST 0. TAG16)
TAG27 (MOVEI 1. (QUOTE NIL))
TAG16 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP NODES SUBR)
(HRRZ@ 2. 1.)
(HLRZ@ 2. 2.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -3. P)
(JUMPE 1. TAG6)
(HLRZ@ 1. -3. P)
(HRRZ@ 2. 1.)
(HLRZ@ 2. 2.)
(MOVE 1. 2.)
(CALL 1. (E NCONS) S)
(MOVEM 1. -2. P)
(MOVE 1. -1. P)
(JUMPE 1. TAG10)
(MOVE 1. -2. P)
(HRRM@ 1. -1. P)
(HRRZ@ 2. -1. P)
(JRST 0. TAG9)
TAG10 (MOVE 2. -2. P)
(MOVEM 2. 0. P)
TAG9 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(MOVEM 2. -1. P)
(JRST 0. TAG1)
TAG6 (MOVE 1. 0. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP COLLECTFV SUBR)
(PUSH P 1.)
(HRRZ@ 1. 1.)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -4. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. -4. P)
(HRRZ@ 2. 1.)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(MOVEM 2. -1. P)
(MOVEM 1. -3. P)
TAG2 (MOVE 1. -1. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. -1. P)
(MOVEM 1. -2. P)
(CAIE 1. (QUOTE FV) S)
(JRST 0. TAG4)
(MOVE 2. 0. P)
(HRRZ@ 1. -3. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG3
TAG4 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG2)
TAG5
TAG6 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG1)
TAG7 (MOVE 1. 0. P)
(SUB P (C 6. 0. 6. 0.))
(POPJ P)
NIL
(LAP TRIMZEROS SUBR)
(PUSH P 1.)
(JUMPE 1. TAG4)
(CALL 1. (E PLUSLIST) S)
(CAIE 1. (QUOTE 0.))
(JRST 0. TAG5)
(MOVEI 1. (QUOTE NIL))
(JRST 0. TAG4)
TAG5 (HLRZ@ 1. 0. P)
(PUSH P 1.)
(HRRZ@ 1. -1. P)
(CALL 1. (E TRIMZEROS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
TAG4 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP CATALOG SUBR)
(PUSH P 1.)
(CALL 1. (E TRIMZEROS) S)
(MOVEM 1. 0. P)
(CALL 1. (E PLUSLIST) S)
(MOVEI 2. (QUOTE 2.))
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG2)
(MOVE 1. 0. P)
(CALL 1. (E LAST) S)
(MOVEI 2. (QUOTE 2.))
(HLRZ@ 1. 1.)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG2)
(MOVE 1. 0. P)
(CALL 1. (E LENGTH) S)
(MOVEI 2. (QUOTE 2.))
(CALL 2. (E *PLUS) S)
(CALL 1. (E STRUCWITH2NODES) S)
(CALL 1. (E NCONS) S)
(JRST 0. TAG1)
TAG2 (MOVE 1. 0. P)
(CALL 1. (E CATALOG3) S)
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP STRUCWITH2NODES SUBR)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE 1.) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 2. -2. P)
(MOVE 1. -1. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG4)
(MOVE 2. 0. P)
(MOVEI 1. (QUOTE 2.))
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG2
TAG3 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -1. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 2. 0. P)
(MOVEI 1. (QUOTE (NIL)) S)
(CALL 2. (E CONS) S)
(MOVEI 2. (QUOTE 1.))
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE CTE) S)
(CALL 2. (E XCONS) S)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. (QUOTE 1.) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG5 (MOVE 2. -4. P)
(MOVE 1. -1. P)
(CALL 2. (E *GREAT) S)
(JUMPE 1. TAG17)
(JRST 0. TAG8)
TAG17 (MOVE 2. 0. P)
(MOVEI 1. (QUOTE 1.))
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG6
TAG7 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -1. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -1. P)
(JRST 0. TAG5)
TAG8 (MOVE 2. 0. P)
(MOVEI 1. (QUOTE (NIL)) S)
(CALL 2. (E CONS) S)
(MOVEI 2. (QUOTE 2.))
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE CTE) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVE 2. -3. P)
(CALL 2. (E XCONS) S)
(MOVE 2. -4. P)
(MOVEM 1. -4. P)
(MOVEI 1. (QUOTE MBONDS) S)
(CALL 2. (E CONS) S)
(MOVEI 2. (QUOTE (NIL)) S)
(MOVEM 1. -3. P)
(MOVEI 1. (QUOTE 2.))
(CALL 2. (E CONS) S)
(MOVE 2. -3. P)
(CALL 2. (E XCONS) S)
(MOVE 2. -4. P)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE STRUC) S)
(SUB P (C 5. 0. 5. 0.))
(JCALL 2. (E XCONS) S)
NIL
(LAP CATALOG3 SUBR)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(HRRZ@ 1. 1.)
(CALL 1. (E PLUSLIST) S)
(CAIE 1. (QUOTE 0.))
(TDZA 1. 1.)
(MOVEI 1. (QUOTE T) S)
(JUMPE 1. TAG4)
(MOVEI 2. (QUOTE 2.))
(HLRZ@ 1. -1. P)
(PUSH P (SPECIAL CATALOG-LIST) S)
(CALL 2. (E *QUO) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E NTH) S)
(MOVEM 1. 0. P)
TAG4 (MOVE 1. 0. P)
(JUMPE 1. TAG8)
(HLRZ@ 1. 1.)
(JUMPE 1. TAG8)
(HLRZ@ 1. 0. P)
(JRST 0. TAG7)
TAG8 (MOVE 2. -1. P)
(MOVEI 1. (QUOTE CATALOG) S)
(CALL 2. (E CONS) S)
(MOVEI 2. (QUOTE FORM) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
TAG7 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP DAISY SUBR)
(PUSH P 1.)
(MOVEI 1. (QUOTE 1.))
(MOVEM 1. (SPECIAL LASTNODE) S)
(MOVEI 1. (QUOTE (NIL)) S)
(CALL 1. (E NCONS) S)
(MOVE 2. (SPECIAL LASTNODE) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE CTE) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVE 2. 0. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P 1.)
(MOVEI 1. (QUOTE DAISY) S)
(CALL 2. (E CONS) S)
(MOVEI 2. (QUOTE (NIL)) S)
(PUSH P 1.)
(MOVE 1. (SPECIAL LASTNODE) S)
(CALL 2. (E CONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE STRUC) S)
(CALL 2. (E XCONS) S)
(MOVE 2. (SPECIAL LASTNODE) S)
(MOVEM 1. 0. P)
(MOVEM 2. -1. P)
(PUSH P -2. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -4. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. -4. P)
(HRRZ@ 2. 1.)
(MOVEI 3. (QUOTE 1.))
(MOVEM 3. -2. P)
(MOVEM 2. -1. P)
(MOVEM 1. -3. P)
TAG2 (MOVE 2. -1. P)
(MOVE 1. -2. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG5)
(HLRZ@ 3. -3. P)
(MOVE 2. -6. P)
(MOVE 1. -5. P)
(CALL 3. (E PUTBIVN) S)
(MOVEM 1. -5. P)
(MOVEM 1. 0. P)
TAG3
TAG4 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -2. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -2. P)
(JRST 0. TAG2)
TAG5
TAG6 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG1)
TAG7 (MOVE 1. 0. P)
(SUB P (C 8. 0. 8. 0.))
(JCALL 1. (E NCONS) S)
NIL
(LAP SINGLERING SUBR)
(PUSH P 1.)
(MOVEI 1. (QUOTE 0.))
(MOVEM 1. (SPECIAL LASTNODE) S)
(MOVE 1. 0. P)
(CALL 1. (E BIVCHAIN) S)
(PUSH P 1.)
(HRRZ@ 1. 1.)
(HLRZ@ 1. 1.)
(CALL 1. (E LAST) S)
(PUSH P 1.)
(HRRZ@ 1. -1. P)
(HLRZ@ 1. 1.)
(HLRZ@ 2. 0. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONNECT) S)
(SUB P (C 1. 0. 1. 0.))
(MOVE 2. -1. P)
(MOVEI 1. (QUOTE SINGLERING) S)
(CALL 2. (E CONS) S)
(HRRZ@ 2. 0. P)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(CALL 2. (E CONS) S)
(HRRZ@ 2. 0. P)
(HLRZ@ 2. 2.)
(CALL 2. (E XCONS) S)
(HLRZ@ 2. 0. P)
(SUB P (C 2. 0. 2. 0.))
(JCALL 2. (E XCONS) S)
NIL
(LAP BIVCHAIN SUBR)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE 1.) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 2. -3. P)
(MOVE 1. -2. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG6)
TAG7 (MOVE 1. -1. P)
(CALL 1. (E PUTNEWNODE) S)
(MOVEM 1. -1. P)
(MOVEM 1. 0. P)
TAG3
TAG4
TAG5 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -2. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG6 (MOVE 1. 0. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP CONNECT SUBR)
(PUSH P 1.)
(PUSH P 2.)
(HRRZ@ 2. 1.)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(HRRZ@ 1. 0. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS) S)
(HRRZ@ 2. -1. P)
(HRRZ@ 2. 2.)
(HRRM@ 1. 2.)
(MOVE 1. -1. P)
(CAMN 1. 0. P)
(JRST 0. TAG5)
(HRRZ@ 2. 0. P)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(HRRZ@ 1. 1.)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS) S)
(HRRZ@ 2. 0. P)
(HRRZ@ 2. 2.)
(HRRM@ 1. 2.)
TAG5 (MOVEI 1. (QUOTE NIL))
(SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP COPYSTRUC SUBR)
(HRRZ@ 2. 1.)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(MOVEM 2. (SPECIAL LASTNODE) S)
(JCALL 1. (E COPY) S)
NIL
(LAP DISCONNECT SUBR)
(PUSH P 1.)
(PUSH P 2.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(HRRZ@ 1. 2.)
(PUSH P 1.)
(HRRZ@ 1. -3. P)
(HRRZ@ 1. 1.)
(HRRZ@ 2. -1. P)
(MOVEM 1. -1. P)
(HLRZ@ 1. 0. P)
(CALL 2. (E DELETE) S)
(HRRM@ 1. -1. P)
(SUB P (C 2. 0. 2. 0.))
(HRRZ@ 1. 0. P)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(HRRZ@ 1. 1.)
(HRRZ@ 2. -1. P)
(MOVEM 1. -1. P)
(HLRZ@ 1. 0. P)
(CALL 2. (E DELETE) S)
(HRRM@ 1. -1. P)
(MOVEI 1. (QUOTE NIL))
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP FINDCTE SUBR)
(PUSH P 1.)
(PUSH P 2.)
(CALL 1. (E NUMBERP) S)
(JUMPE 1. TAG6)
(HLRZ@ 1. 0. P)
(CAIE 1. (QUOTE STRUC) S)
(JRST 0. TAG8)
(HRRZ@ 1. 0. P)
(HLRZ@ 1. 1.)
(MOVEM 1. 0. P)
(JRST 0. TAG7)
TAG8
TAG7 (PUSH P 0. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(HRRZ@ 1. 1.)
(MOVE 2. -4. P)
(HLRZ@ 1. 1.)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG3)
(MOVE 1. -1. P)
(JRST 0. TAG11)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
TAG11 (SUB P (C 3. 0. 3. 0.))
(JRST 0. TAG5)
TAG6 (MOVE 1. 0. P)
(CALL 1. (E NUMBERP) S)
(JUMPE 1. TAG18)
(MOVE 2. -1. P)
(MOVE 1. 0. P)
(CALL 2. (E FINDCTE) S)
(JRST 0. TAG5)
TAG18 (MOVEI 1. (QUOTE (BAD ARGUMENTS TO FINDCTE)) S)
(CALL 1. (E ERROR) S)
TAG5 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP FIRSTOFNODES SUBR)
(CALL 1. (E NODES) S)
(HLRZ@ 1. 1.)
(POPJ P)
NIL
(LAP LASTOFNODES SUBR)
(CALL 1. (E NODES) S)
(CALL 1. (E LAST) S)
(HLRZ@ 1. 1.)
(POPJ P)
NIL
(LAP LISTBYVALENCE SUBR)
(PUSH P 1.)
(CALL 1. (E NODES) S)
(CALL 1. (E LENGTH) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE 2.) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVEI 2. (QUOTE 999.))
(MOVE 1. -1. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG4)
(MOVEI 2. (QUOTE 0.))
(MOVE 1. -3. P)
(CALL 2. (E *GREAT) S)
(JUMPE 1. TAG4)
(MOVE 2. -1. P)
(MOVE 1. -4. P)
(CALL 2. (E VALENCETYPE) S)
(MOVEM 1. -2. P)
(CALL 1. (E LENGTH) S)
(MOVE 2. 1.)
(MOVE 1. -3. P)
(CALL 2. (E *DIF) S)
(MOVEM 1. -3. P)
(PUSH P (C 0. 0. TAG14 0.))
(PUSH P -1. P)
(MOVE 1. -4. P)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG14 (MOVEM 1. 0. P)
TAG2
TAG3 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -1. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 5. 0. 5. 0.))
(POPJ P)
NIL
(LAP PUTFVN SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(HRRZ@ 1. 1.)
(HLRZ@ 2. 1.)
(MOVE 1. -1. P)
(CALL 2. (E FINDCTE) S)
(MOVEM 1. -1. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. TAG8 0.))
(HRRZ@ 1. -3. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE 1.) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 2. -5. P)
(MOVE 1. -1. P)
(CALL 2. (E *GREAT) S)
(JUMPE 1. TAG13)
(JRST 0. TAG4)
TAG13 (MOVE 2. 0. P)
(MOVEI 1. (QUOTE FV) S)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG2
TAG3 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -1. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 2. 0. 2. 0.))
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG8 (HRRM@ 1. 0. P)
(SUB P (C 1. 0. 1. 0.))
(MOVE 1. -2. P)
(SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP PUTFVS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -7. P)
(JUMPE 1. TAG11)
(HLRZ@ 1. -7. P)
(MOVE 2. 1.)
(MOVEI 3. (QUOTE 1.))
(MOVEM 3. -3. P)
(MOVEM 2. -4. P)
(MOVEM 1. -6. P)
TAG2 (MOVE 1. -4. P)
(JUMPE 1. TAG9)
(HLRZ@ 1. -4. P)
(MOVEM 1. -5. P)
(MOVEI 2. (QUOTE 10.))
(MOVE 1. -3. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG9)
(MOVE 1. -5. P)
(MOVEM 1. -1. P)
TAG3 (MOVE 1. -1. P)
(JUMPE 1. TAG6)
(HLRZ@ 1. -1. P)
(MOVE 3. -3. P)
(MOVE 2. 1.)
(MOVEM 1. -2. P)
(MOVE 1. -9. P)
(CALL 3. (E PUTFVN) S)
(MOVE 2. 1.)
(MOVEM 2. 0. P)
(MOVEM 1. -9. P)
TAG4
TAG5 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG3)
TAG6
TAG7 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -3. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -3. P)
TAG8 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG2)
TAG9
TAG10 (HRRZ@ 1. -7. P)
(MOVEM 1. -7. P)
(JRST 0. TAG1)
TAG11 (MOVE 1. 0. P)
(SUB P (C 10. 0. 10. 0.))
(POPJ P)
NIL
(LAP PUTNEWNODE SUBR)
(PUSH P 1.)
(JUMPE 1. TAG2)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HLRZ@ 1. 1.)
(CALL 1. (E ADD1) S)
(MOVEM 1. (SPECIAL LASTNODE) S)
(MOVEI 1. (QUOTE (NIL)) S)
(CALL 1. (E NCONS) S)
(MOVE 2. (SPECIAL LASTNODE) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE CTE) S)
(CALL 2. (E XCONS) S)
(PUSH P 1.)
(HRRZ@ 1. -1. P)
(PUSH P 1.)
(HLRZ@ 1. -2. P)
(HLRZ@ 2. 0. P)
(EXCH 1. -1. P)
(CALL 2. (E PUTNEWNODEINCT) S)
(HRRZ@ 2. -2. P)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(MOVEM 1. 0. P)
(MOVE 1. (SPECIAL LASTNODE) S)
(CALL 2. (E CONS) S)
(HRRZ@ 2. -2. P)
(HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(CALL 2. (E XCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(JRST 0. TAG1)
TAG2 (MOVE 1. (SPECIAL LASTNODE) S)
(CALL 1. (E ADD1) S)
(MOVEM 1. (SPECIAL LASTNODE) S)
(MOVEI 1. (QUOTE (NIL)) S)
(CALL 1. (E NCONS) S)
(MOVE 2. (SPECIAL LASTNODE) S)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE CTE) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE (NIL)) S)
(PUSH P 1.)
(MOVE 1. (SPECIAL LASTNODE) S)
(CALL 2. (E CONS) S)
(MOVEI 2. (QUOTE NIL))
(CALL 2. (E XCONS) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(MOVEI 2. (QUOTE STRUC) S)
(CALL 2. (E XCONS) S)
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP PUTNEWNODEINCT SUBR)
(PUSH P 1.)
(PUSH P 2.)
(HLRZ@ 1. 2.)
(HRRZ@ 2. 1.)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS) S)
(HRRZ@ 2. 0. P)
(HRRZ@ 2. 2.)
(HRRM@ 1. 2.)
(HRRZ@ 2. -2. P)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(HRRZ@ 1. 0. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS) S)
(HRRZ@ 2. -2. P)
(HRRZ@ 2. 2.)
(HRRM@ 1. 2.)
(MOVE 2. -1. P)
(MOVE 1. -2. P)
(SUB P (C 3. 0. 3. 0.))
(JCALL 2. (E CONS) S)
NIL
(LAP NODEVALENCE SUBR)
(PUSH P 1.)
(JUMPN 1. TAG2)
(MOVEI 1. (QUOTE (NULL NODE GIVEN TO NODEVALENCE)) S)
(CALL 1. (E ERROR) S)
(JRST 0. TAG1)
TAG2 (HLRZ@ 1. 1.)
(CAIE 1. (QUOTE CTE) S)
(JRST 0. TAG4)
(HRRZ@ 1. 0. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(CALL 1. (E LENGTH) S)
(JRST 0. TAG1)
TAG4 (HRRZ@ 2. 0. P)
(HLRZ@ 1. 0. P)
(CALL 2. (E FINDCTE) S)
(CALL 1. (E NODEVALENCE) S)
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP VALENCETYPE SUBR)
(PUSH P 1.)
(PUSH P 2.)
(HRRZ@ 1. 1.)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(CALL 1. (E NODEVALENCE) S)
(MOVE 2. -3. P)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG3)
(MOVE 2. 0. P)
(HRRZ@ 1. -1. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 5. 0. 5. 0.))
(POPJ P)
NIL
(LAP SINGLERINGS SUBR)
(CALL 1. (E SINGLERING) S)
(JCALL 1. (E NCONS) S)
NIL
(LAP INSERTMARKERS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 3.)
(PUSH P 2.)
(PU∪H P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -9. P)
(JUMPE 1. TAG12)
(HLRZ@ 1. -9. P)
(MOVEM 1. -8. P)
(MOVE 1. -10. P)
(JUMPE 1. TAG12)
(HLRZ@ 1. -10. P)
(MOVE 2. -8. P)
(MOVE 3. 1.)
(MOVEM 3. -3. P)
(MOVEM 2. -5. P)
(MOVEM 1. -7. P)
TAG2 (MOVE 1. -5. P)
(JUMPE 1. TAG9)
(HLRZ@ 1. -5. P)
(MOVEM 1. -6. P)
(MOVE 1. -3. P)
(JUMPE 1. TAG9)
(HLRZ@ 1. -3. P)
(MOVE 2. 1.)
(MOVEM 2. -1. P)
(MOVEM 1. -4. P)
TAG3 (MOVE 1. -1. P)
(JUMPE 1. TAG6)
(HLRZ@ 1. -1. P)
(MOVE 2. -13. P)
(MOVEM 1. -2. P)
(CALL 2. (E FINDCTE) S)
(HRRZ@ 2. 1.)
(HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(HLRZ@ 1. -6. P)
(HRLM@ 1. 2.)
TAG4
TAG5 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG3)
TAG6
TAG7 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
TAG8 (HRRZ@ 1. -5. P)
(MOVEM 1. -5. P)
(JRST 0. TAG2)
TAG9
TAG10 (HRRZ@ 1. -10. P)
(MOVEM 1. -10. P)
TAG11 (HRRZ@ 1. -9. P)
(MOVEM 1. -9. P)
(JRST 0. TAG1)
TAG12 (SUB P (C 11. 0. 11. 0.))
(MOVE 1. -2. P)
(SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP DELETE SUBR)
(PUSH P 1.)
(PUSH P 2.)
(MOVE 1. 2.)
(JUMPE 1. TAG1)
(MOVE 2. -1. P)
(HLRZ@ 1. 1.)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG2)
(HRRZ@ 1. 0. P)
(JRST 0. TAG1)
TAG2 (HLRZ@ 1. 0. P)
(HRRZ@ 2. 0. P)
(PUSH P 1.)
(MOVE 1. -2. P)
(CALL 2. (E DELETE) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL