perm filename CYCOMB.LAP[1,LMM]1 blob
sn#031691 filedate 1973-03-28 generic text, type T, neo UTF8
(LAP MOLECULES SUBR)
(PUSH P 1)
(PUSH P 2)
(CAIE 2 (QUOTE 0))
(JRST 0 TAG11)
(CALL 1 (E GENMOL))
(JRST 0 TAG10)
TAG11 (PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E SUPERATOMPARTITIONS))
(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 1)
(MOVEM 1 -2 P)
(HLRZ@ 1 1)
(CALL 1 (E SUPERATOMS))
(MOVEM 1 0 P)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG21 0))
(PUSH P -5 P)
(CALL 1 (E CLCREATE))
(HRRZ@ 2 -4 P)
(CALL 2 (E *APPEND))
(CALL 1 (E GENMOL))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG21 (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 0 0 5 5))
TAG12
TAG10 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP SUPERATOMPARTITIONS SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL SZ))
(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 1)
(MOVEM 1 -1 P)
(HLRZ@ 1 1)
(CALL 1 (E VALENCE))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG3)
(PUSH P (C 0 0 TAG43 0))
(PUSH P -1 P)
(MOVE 1 -3 P)
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG43 (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 0 0 3 3))
(MOVE 2 1)
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(CALL 2 (E CLDIFF))
(MOVEM 1 -2 P)
(CALL 1 (E CLCOUNT))
(MOVEM 1 (SPECIAL SZ))
(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 -14 P)
(MOVE 1 -15 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG32)
(MOVE 2 -15 P)
(MOVE 1 -20 P)
(CALL 2 (E CLPARTS))
(MOVEM 1 -12 P)
TAG6 (MOVE 1 -12 P)
(JUMPE 1 TAG30)
(HLRZ@ 1 1)
(MOVE 2 1)
(MOVEM 1 -13 P)
(MOVE 1 -20 P)
(CALL 2 (E CLDIFF))
(MOVE 2 1)
(MOVE 1 -16 P)
(CALL 2 (E *APPEND))
(MOVEI 2 (QUOTE 2))
(MOVEM 1 -11 P)
(MOVE 1 -15 P)
(CALL 2 (E *QUO))
(MOVEM 1 -7 P)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 -10 P)
TAG7 (MOVE 2 -7 P)
(MOVE 1 -10 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG25)
(MOVEI 4 (QUOTE 12222221))
(MOVEI 3 (QUOTE 2))
(MOVE 2 -10 P)
(MOVE 1 -13 P)
(CALL 4 (E CLPARTITIONSN))
(MOVEM 1 -5 P)
TAG10 (MOVE 1 -5 P)
(JUMPE 1 TAG23)
(HLRZ@ 1 1)
(MOVEM 1 -6 P)
(CALL 1 (E CLCREATE))
(MOVEM 1 -4 P)
(CALL 1 (E MAXUNSATL))
(MOVEM 1 -3 P)
(JUMPE 1 TAG20)
(MOVE 2 -4 P)
(MOVEI 1 (QUOTE CDR))
(CALL 2 (E MAPCAR))
(MOVE 4 1)
(MOVE 3 -3 P)
(MOVEI 2 (QUOTE 1))
(MOVE 1 -17 P)
(CALL 4 (E NUMPARTITIONS*))
(MOVEM 1 -1 P)
TAG11 (MOVE 1 -1 P)
(JUMPE 1 TAG17)
(HLRZ@ 1 1)
(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))
TAG12 (MOVE 1 -5 P)
(JUMPN 1 TAG61)
(MOVE 1 -3 P)
(JRST 0 TAG55)
TAG61 (HLRZ@ 1 -5 P)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(HLRZ@ 1 -5 P)
(HRRZ@ 1 1)
(MOVEM 1 -1 P)
(HRRZ@ 1 -5 P)
(MOVEM 1 -5 P)
TAG13 (MOVEI 1 (QUOTE 0))
(MOVEM 1 -2 P)
TAG14 (MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEM 1 -2 P)
(MOVE 1 -1 P)
(CALL 1 (E SUB1))
(MOVEM 1 -1 P)
(HLRZ@ 1 -10 P)
(MOVEM 1 -4 P)
(HRRZ@ 1 -10 P)
(MOVEM 1 -10 P)
(MOVE 1 -1 P)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG63)
(HLRZ@ 2 -10 P)
(MOVE 1 -4 P)
(CALL 2 (E EQUAL))
(JUMPN 1 TAG14)
TAG63 (MOVE 2 0 P)
(MOVE 1 -4 P)
(CALL 2 (E CONS))
(MOVE 2 -2 P)
(CALL 2 (E CONS))
(MOVE 2 -3 P)
(CALL 2 (E CONS))
(MOVEM 1 -3 P)
(MOVE 1 -1 P)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG12)
(JRST 0 TAG13)
TAG55 (MOVE 2 -17 P)
(CALL 2 (E CONS))
(MOVE 2 -6 P)
(CALL 2 (E CONS))
(SUB P (C 0 0 6 6))
(MOVEM 1 0 P)
TAG15
TAG16 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG11)
TAG17
TAG20
TAG21
TAG22 (HRRZ@ 1 -5 P)
(MOVEM 1 -5 P)
(JRST 0 TAG10)
TAG23
TAG24 (MOVEI 2 (QUOTE 1))
(MOVE 1 -10 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -10 P)
(JRST 0 TAG7)
TAG25
TAG26
TAG27 (HRRZ@ 1 -12 P)
(MOVEM 1 -12 P)
(JRST 0 TAG6)
TAG30
TAG31 (MOVEI 2 (QUOTE 1))
(MOVE 1 -15 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -15 P)
(JRST 0 TAG5)
TAG32 (MOVE 1 0 P)
(SUB P (C 0 0 21 21))
(JRST 0 SPECSTR)
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 TAG10)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG15 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 1)
(HRRZ@ 2 1)
(MOVEM 1 -1 P)
(MOVE 1 -4 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -4 P)
(HRRZ@ 1 -1 P)
(PUSH P 1)
(HLRZ@ 1 -2 P)
(CALL 1 (E VALENCE))
(POP P 2)
(CALL 2 (E *TIMES))
(MOVE 2 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
(HLRZ@ 1 -1 P)
(CALL 1 (E VALENCE))
(MOVE 2 1)
(MOVE 1 -5 P)
(CALL 2 (E MAX))
(MOVEM 1 -5 P)
TAG3
TAG4 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG2)
TAG5 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(MOVE 2 0 P)
(MOVEI 1 (QUOTE 2))
(CALL 2 (E *PLUS))
(MOVE 2 -1 P)
(PUSH P 1)
(MOVEI 1 (QUOTE -2))
(CALL 2 (E *TIMES))
(POP P 2)
(CALL 2 (E *PLUS))
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E TWICE))
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVEI 1 (QUOTE -1))
(CALL 2 (E MIN))
(POP P 2)
(CALL 2 (E *PLUS))
(MOVEI 2 (QUOTE 0.5))
(CALL 2 (E *TIMES))
(CALL 1 (E FIX))
(CALL 1 (E NCONS))
(SUB P (C 0 0 3 3))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG15 (MOVEM 1 0 P)
TAG6
TAG7 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG10 (MOVE 1 0 P)
(SUB P (C 0 0 4 4))
(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 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG11 0))
(PUSH P -1 P)
(HLRZ@ 2 1)
(HRRZ@ 2 2)
(CALL 1 (E CAAR))
(CALL 2 (E RINGS))
(HRRZ@ 2 -3 P)
(CALL 2 (E CONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG11 (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 0 0 4 4))
(JCALL 1 (E GROUPRADS))
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 1)
(MOVEM 1 -1 P)
(HLRZ@ 1 1)
(CALL 1 (E VALENCE))
(HRRZ@ 2 -1 P)
(CALL 2 (E *TIMES))
(MOVE 2 -4 P)
(CALL 2 (E *PLUS))
(MOVE 2 -3 P)
(MOVEM 1 -4 P)
(HRRZ@ 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE 2))
(CALL 2 (E *PLUS))
(MOVE 2 -3 P)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEI 2 (QUOTE -2))
(CALL 2 (E *TIMES))
(POP P 2)
(SUB P (C 0 0 4 4))
(JCALL 2 (E *PLUS))
NIL
(LAP SUBFUN1CLBYVALENCE SUBR)
(HLRZ@ 1 1)
(JCALL 1 (E VALENCE))
NIL
(LAP CLBYVALENCE SUBR)
(MOVE 2 1)
(PUSH P 1)
(MOVEI 1 (QUOTE SUBFUN1CLBYVALENCE))
(CALL 2 (E GROUPBY))
(MOVEM 1 0 P)
(MOVE 2 1)
(MOVEI 1 (QUOTE CAR))
(CALL 2 (E MAPCAR))
(CALL 1 (E MAXLIST))
(PUSH P (C 0 0 (QUOTE 2) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG4)
(PUSH P (C 0 0 TAG11 0))
(PUSH P -1 P)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 -5 P)
(MOVE 1 -4 P)
(CALL 3 (E LMASSOC))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG11 (MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP RINGS SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 2 (E COMPUTEFV))
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E CLBYVALENCE))
(MOVEM 1 -1 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 2 1)
(MOVEI 1 (QUOTE CLCOUNT))
(CALL 2 (E MAPCAR))
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E RINGSKELETONS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(PUSH P (C 0 0 TAG14 0))
(PUSH P -3 P)
(MOVE 2 1)
(MOVE 1 -6 P)
(CALL 2 (E STRUCTURESWITHATOMS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG14 (MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
(SUB P (C 0 0 6 6))
(POPJ P)
NIL
(LAP FVPARTITIONS SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVEI 3 (QUOTE 1))
(HRRZ@ 2 2)
(CALL 3 (E FVPARTITION1))
(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 TAG13)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(CALL 1 (E ROWS))
(MOVEM 1 -1 P)
(MOVE 2 -2 P)
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS))
(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 1)
(MOVEM 1 -3 P)
(MOVE 1 -4 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(MOVE 1 -5 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG26 0))
(PUSH P -1 P)
(MOVE 1 -5 P)
(CALL 1 (E PLUSLIST))
(MOVE 2 -3 P)
(CALL 2 (E *PLUS))
(PUSH P 1)
(MOVE 1 -5 P)
(CALL 1 (E PLUSLIST))
(CALL 1 (E MINUS))
(POP P 2)
(CALL 2 (E *PLUS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
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 -10 P)
(CALL 2 (E CONS))
(MOVE 2 -7 P)
(CALL 2 (E CONS))
(SUB P (C 0 0 7 7))
(MOVEM 1 0 P)
TAG10
TAG11
TAG12 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG13 (MOVE 1 0 P)
(SUB P (C 0 0 6 6))
(POPJ P)
NIL
(LAP RINGSKELETONS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 2 (E FVPARTITIONS))
(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 1)
(MOVEM 1 -2 P)
(HLRZ@ 1 1)
(CALL 1 (E NOFV-RINGS))
(MOVEM 1 0 P)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(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))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
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 0 0 7 7))
(POPJ P)
NIL
(LAP NOFV-RINGS SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(CALL 1 (E PLUSLIST))
(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 TAG11)
(HLRZ@ 1 -3 P)
(CALL 1 (E SINGLERINGS))
(JRST 0 TAG5)
TAG11 (MOVEI 2 (QUOTE 1))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG12)
(MOVE 1 -3 P)
(CALL 1 (E DAISIES))
(JRST 0 TAG5)
TAG12 (MOVE 1 -3 P)
(CALL 1 (E MINLOOPS))
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(CALL 1 (E MAXLOOPS))
(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))
(JUMPN 1 TAG4)
(PUSH P (C 0 0 TAG17 0))
(PUSH P -2 P)
(MOVE 2 -7 P)
(MOVE 1 -2 P)
(CALL 2 (E KLOOPEDRINGS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG17 (MOVEM 1 -1 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E *PLUS))
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -1 P)
(SUB P (C 0 0 2 2))
TAG5 (SUB P (C 0 0 4 4))
(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 TAG21)
(JRST 0 TAG5)
TAG21 (HLRZ@ 1 -2 P)
(MOVEM 1 -1 P)
(MOVEI 2 (QUOTE 122221))
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG23)
(JRST 0 TAG5)
TAG23 (MOVE 1 -3 P)
(MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
(MOVE 1 -1 P)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG25)
(JRST 0 TAG5)
TAG25
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))
(MOVEI 4 (QUOTE 122222221))
(MOVEI 3 (QUOTE 1))
(MOVE 2 1)
(EXCH 1 -4 P)
(CALL 4 (E NUMPARTITIONS))
(SUB P (C 0 0 5 5))
(MOVEM 1 0 P)
TAG6 (MOVE 1 0 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG27 0))
(PUSH P -3 P)
(CALL 1 (E CLCREATE))
(CALL 1 (E DAISY))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG27 (MOVEM 1 -2 P)
TAG7
TAG10 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG6)
TAG11 (MOVE 1 -2 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP NOLOOPEDRINGS SUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG11)
(HRRZ@ 1 0 P)
(CALL 1 (E CATALOG))
(JRST 0 TAG10)
TAG11 (MOVE 1 0 P)
(CALL 1 (E BIVALENTPARTITIONS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HRRZ@ 1 -2 P)
(CALL 1 (E CATALOG))
(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 1)
(MOVEM 1 -2 P)
(MOVE 1 -5 P)
(MOVEM 1 0 P)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG24 0))
(PUSH P -5 P)
(CALL 1 (E CLCREATE))
(MOVE 2 -4 P)
(CALL 2 (E ATTACHBIVALENTS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG24 (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 0 0 6 6))
TAG12
TAG10 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP ROWS SUBR)
(PUSH P 1)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE (NIL)))
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E CARLIST))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E CDRLIST))
(CALL 1 (E ROWS))
(POP P 2)
(CALL 2 (E XCONS))
TAG3
TAG1 (SUB P (C 0 0 1 1))
(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 12221))
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG12)
(JRST 0 TAG5)
TAG12 (MOVE 1 -1 P)
(JUMPN 1 TAG14)
(JRST 0 TAG5)
TAG14 (HLRZ@ 1 -1 P)
(MOVE 2 -2 P)
(MOVEM 1 0 P)
(CALL 2 (E *TIMES))
(MOVE 2 -3 P)
(CALL 2 (E *PLUS))
(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))
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG5 (MOVE 1 -3 P)
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *QUO))
(HLRZ@ 4 -5 P)
(MOVEI 3 (QUOTE 0))
(MOVE 2 1)
(EXCH 1 -4 P)
(SUB P (C 0 0 6 6))
(JCALL 4 (E NUMPARTITIONS))
NIL
(COMMENT THESE FNS KNOW WHAT STRUCTURES ARE)
(LAP FREEVALENCESIZE SUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE STRUC))
(JRST 0 TAG21)
(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 1)
(MOVEM 1 -2 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CAIE 1 (QUOTE FV))
(JRST 0 TAG4)
(MOVE 2 -4 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E *PLUS))
(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 0 0 5 5))
(JRST 0 TAG20)
TAG21 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE FORM))
(JRST 0 TAG30)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE ATTACHFVS))
(JRST 0 TAG32)
(PUSH P (C 0 0 (QUOTE 0) 0))
(HRRZ@ 1 -1 P)
(CALL 1 (E CADR))
(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))
TAG10 (MOVE 1 -4 P)
(JUMPE 1 TAG17)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 0 P)
TAG11 (MOVE 1 -1 P)
(JUMPE 1 TAG15)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(MOVEI 2 (QUOTE 1222221))
(MOVE 1 0 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG15)
(MOVE 2 -2 P)
(MOVE 1 0 P)
(CALL 2 (E *TIMES))
(MOVE 2 -5 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -5 P)
TAG12
TAG13 (MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E *PLUS))
(MOVEM 1 0 P)
TAG14 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG11)
TAG15
TAG16 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG10)
TAG17 (MOVE 1 -5 P)
(SUB P (C 0 0 6 6))
(JRST 0 TAG31)
TAG32 (HRRZ@ 1 0 P)
(CALL 1 (E CADDR))
(CALL 1 (E FREEVALENCESIZE))
TAG41
TAG31 (JRST 0 TAG20)
TAG30 (MOVEI 1 (QUOTE NIL))
TAG20 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP NODES SUBR)
(HRRZ@ 1 1)
(HLRZ@ 2 1)
(MOVEI 1 (QUOTE NODENUM))
(JCALL 2 (E MAPCAR))
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 1)
(MOVEM 1 -3 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(MOVEM 1 -1 P)
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(CAIE 1 (QUOTE FV))
(JRST 0 TAG4)
(MOVE 2 0 P)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(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 0 0 6 6))
(POPJ P)
NIL
(LAP TRIMZEROS SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL N))
(PUSH P 1)
(JUMPE 1 TAG4)
(CALL 1 (E PLUSLIST))
(MOVEM 1 (SPECIAL N))
(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))
(POP P 2)
(CALL 2 (E XCONS))
TAG6
TAG4 (SUB P (C 0 0 1 1))
(JRST 0 SPECSTR)
NIL
(LAP CATALOG SUBR)
(PUSH P 1)
(CALL 1 (E TRIMZEROS))
(MOVEM 1 0 P)
(CALL 1 (E PLUSLIST))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(CALL 1 (E LAST))
(MOVEI 2 (QUOTE 2))
(HLRZ@ 1 1)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *PLUS))
(CALL 1 (E STRUCWITH2NODES))
(CALL 1 (E NCONS))
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E CATALOG3))
TAG4
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP STRUCWITH2NODES SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL N))
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 (SPECIAL N))
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG4)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE 2))
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 2 0 P)
(MOVEI 1 (QUOTE (NIL)))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE CTE))
(CALL 2 (E XCONS))
(MOVEM 1 -1 P)
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG5 (MOVE 2 (SPECIAL N))
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG21)
(JRST 0 TAG10)
TAG21 (MOVE 2 0 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG6
TAG7 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG5)
TAG10 (MOVE 2 0 P)
(MOVEI 1 (QUOTE (NIL)))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE CTE))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(MOVE 2 -3 P)
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL N))
(MOVEM 1 -3 P)
(MOVEI 1 (QUOTE MBONDS))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE (NIL)))
(MOVEM 1 -2 P)
(MOVEI 1 (QUOTE 2))
(CALL 2 (E CONS))
(MOVE 2 -2 P)
(CALL 2 (E XCONS))
(MOVE 2 -3 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE STRUC))
(SUB P (C 0 0 4 4))
(CALL 2 (E XCONS))
(JRST 0 SPECSTR)
NIL
(LAP CATALOG3 SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HRRZ@ 1 1)
(CALL 1 (E PLUSLIST))
(CAIN 1 (QUOTE 0))
(JRST 0 TAG5)
(JRST 0 TAG4)
TAG5 (MOVEI 2 (QUOTE 2))
(HLRZ@ 1 -1 P)
(PUSH P (SPECIAL CATALOG-LIST))
(CALL 2 (E *QUO))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E NTH))
(MOVEM 1 0 P)
TAG6
TAG4 (MOVE 1 0 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(JUMPE 1 TAG11)
(HLRZ@ 1 0 P)
(JRST 0 TAG10)
TAG11 (MOVE 2 -1 P)
(MOVEI 1 (QUOTE CATALOG))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE FORM))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
TAG13
TAG10 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP DAISY SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 (SPECIAL LASTNODE))
(MOVEI 1 (QUOTE (NIL)))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL LASTNODE))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE CTE))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (NIL)))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(MOVE 1 (SPECIAL LASTNODE))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE STRUC))
(CALL 2 (E XCONS))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL LASTNODE))
(MOVEM 1 -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 1)
(MOVEM 1 -3 P)
(HRRZ@ 1 1)
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 -2 P)
TAG2 (MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG5)
(HLRZ@ 3 -3 P)
(MOVE 2 -6 P)
(MOVE 1 -5 P)
(CALL 3 (E PUTBIVN))
(MOVEM 1 -5 P)
(MOVEM 1 0 P)
TAG3
TAG4 (MOVEI 2 (QUOTE 1))
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(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 0 0 10 10))
(JCALL 1 (E NCONS))
NIL
(LAP SINGLERING SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL N))
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL LASTNODE))
(MOVE 1 (SPECIAL N))
(CALL 1 (E BIVCHAIN))
(PUSH P 1)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(CALL 1 (E LAST))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(HLRZ@ 2 0 P)
(HLRZ@ 1 1)
(CALL 2 (E CONNECT))
(SUB P (C 0 0 1 1))
(MOVE 2 (SPECIAL N))
(MOVEI 1 (QUOTE SINGLERING))
(CALL 2 (E CONS))
(HRRZ@ 2 0 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(CALL 2 (E CONS))
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(CALL 2 (E XCONS))
(HLRZ@ 2 0 P)
(SUB P (C 0 0 1 1))
(CALL 2 (E XCONS))
(JRST 0 SPECSTR)
NIL
(LAP BIVCHAIN SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL N))
(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 (SPECIAL N))
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG6)
TAG7 (MOVE 1 -1 P)
(CALL 1 (E PUTNEWNODE))
(MOVEM 1 -1 P)
(MOVEM 1 0 P)
TAG3
TAG4
TAG5 (MOVEI 2 (QUOTE 1))
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG6 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(JRST 0 SPECSTR)
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))
(PUSH P 1)
(HRRZ@ 1 -2 P)
(HRRZ@ 1 1)
(POP P 2)
(HRRM@ 2 1)
(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))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(POP P 2)
(HRRM@ 2 1)
TAG5 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP COPYSTRUC SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL LASTNODE))
(POP P 1)
(JCALL 1 (E COPY))
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))
(HRRM@ 1 -1 P)
(SUB P (C 0 0 2 2))
(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))
(HRRM@ 1 -1 P)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP FINDCTE SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL N))
(PUSH P 2)
(CALL 1 (E NUMBERP))
(JUMPE 1 TAG6)
(HLRZ@ 1 0 P)
(CAIE 1 (QUOTE STRUC))
(JRST 0 TAG10)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(JRST 0 TAG7)
TAG10
TAG11
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 1)
(MOVEM 1 -1 P)
(HRRZ@ 1 1)
(MOVE 2 (SPECIAL N))
(HLRZ@ 1 1)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG3)
(MOVE 1 -1 P)
(JRST 0 TAG13)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
TAG13 (SUB P (C 0 0 3 3))
(JRST 0 TAG5)
TAG6 (MOVE 1 0 P)
(CALL 1 (E NUMBERP))
(JUMPE 1 TAG20)
(MOVE 2 (SPECIAL N))
(MOVE 1 0 P)
(CALL 2 (E FINDCTE))
(JRST 0 TAG5)
TAG20 (MOVEI 1 (QUOTE (BAD ARGUMENTS TO FINDCTE)))
(CALL 1 (E ERROR))
TAG21
TAG5 (SUB P (C 0 0 1 1))
(JRST 0 SPECSTR)
NIL
(LAP FIRSTOFNODES SUBR)
(CALL 1 (E NODES))
(HLRZ@ 1 1)
(POPJ P)
NIL
(LAP LASTOFNODES SUBR)
(CALL 1 (E NODES))
(CALL 1 (E LAST))
(HLRZ@ 1 1)
(POPJ P)
NIL
(LAP LISTBYVALENCE SUBR)
(PUSH P 1)
(CALL 1 (E NODES))
(CALL 1 (E LENGTH))
(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 1221))
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG4)
(MOVEI 2 (QUOTE 0))
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG4)
(MOVE 2 -1 P)
(MOVE 1 -4 P)
(CALL 2 (E VALENCETYPE))
(MOVEM 1 -2 P)
(CALL 1 (E LENGTH))
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 2 (E *DIF))
(MOVEM 1 -3 P)
(PUSH P (C 0 0 TAG15 0))
(PUSH P -1 P)
(MOVE 1 -4 P)
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG15 (MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 5 5))
(POPJ P)
NIL
(LAP PUTFVN SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL N))
(PUSH P 1)
(PUSH P 3)
(HRRZ@ 1 1)
(HLRZ@ 2 1)
(MOVE 1 (SPECIAL N))
(CALL 2 (E FINDCTE))
(MOVEM 1 (SPECIAL N))
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 TAG10 0))
(HRRZ@ 1 (SPECIAL N))
(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))
(JUMPE 1 TAG15)
(JRST 0 TAG4)
TAG15 (MOVE 2 0 P)
(MOVEI 1 (QUOTE FV))
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG10 (HRRM@ 1 0 P)
(SUB P (C 0 0 1 1))
(MOVE 1 -1 P)
(SUB P (C 0 0 2 2))
(JRST 0 SPECSTR)
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 TAG13)
(HLRZ@ 1 1)
(MOVEM 1 -6 P)
(MOVEM 1 -4 P)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 -3 P)
TAG2 (MOVE 1 -4 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVEM 1 -5 P)
(MOVEI 2 (QUOTE 10))
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG11)
(MOVE 1 -5 P)
(MOVEM 1 -1 P)
TAG3 (MOVE 1 -1 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(MOVE 3 -3 P)
(MOVE 2 1)
(MOVEM 1 -2 P)
(MOVE 1 -11 P)
(CALL 3 (E PUTFVN))
(MOVEM 1 -11 P)
(MOVEM 1 0 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))
(MOVEM 1 -3 P)
TAG10 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG2)
TAG11
TAG12 (HRRZ@ 1 -7 P)
(MOVEM 1 -7 P)
(JRST 0 TAG1)
TAG13 (MOVE 1 0 P)
(SUB P (C 0 0 12 12))
(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))
(MOVEM 1 (SPECIAL LASTNODE))
(MOVEI 1 (QUOTE (NIL)))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL LASTNODE))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE CTE))
(CALL 2 (E XCONS))
(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))
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL LASTNODE))
(CALL 2 (E CONS))
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL LASTNODE))
(CALL 1 (E ADD1))
(MOVEM 1 (SPECIAL LASTNODE))
(MOVEI 1 (QUOTE (NIL)))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL LASTNODE))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE CTE))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (NIL)))
(PUSH P 1)
(MOVE 1 (SPECIAL LASTNODE))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE STRUC))
(CALL 2 (E XCONS))
TAG3
TAG1 (SUB P (C 0 0 1 1))
(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))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(POP P 2)
(HRRM@ 2 1)
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(PUSH P 1)
(HRRZ@ 1 -3 P)
(HRRZ@ 1 1)
(POP P 2)
(HRRM@ 2 1)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(SUB P (C 0 0 3 3))
(JCALL 2 (E CONS))
NIL
(LAP NODEVALENCE SUBR)
(PUSH P 1)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE (NULL NODE GIVEN TO NODEVALENCE)))
(CALL 1 (E ERROR))
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 1)
(CAIE 1 (QUOTE CTE))
(JRST 0 TAG3)
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(CALL 1 (E LENGTH))
(JRST 0 TAG1)
TAG3 (HRRZ@ 2 0 P)
(HLRZ@ 1 0 P)
(CALL 2 (E FINDCTE))
(CALL 1 (E NODEVALENCE))
TAG4
TAG1 (SUB P (C 0 0 1 1))
(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 1)
(MOVEM 1 -1 P)
(CALL 1 (E NODEVALENCE))
(MOVE 2 -3 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG3)
(MOVE 2 0 P)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(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 0 0 5 5))
(POPJ P)
NIL
(LAP SINGLERINGS SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL N))
(CALL 1 (E SINGLERING))
(CALL 1 (E NCONS))
(JRST 0 SPECSTR)
NIL
(LAP INSERTMARKERS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JSP 6 SPECBIND)
(0 0 (SPECIAL N))
(PUSH P 3)
(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))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -10 P)
(JUMPE 1 TAG14)
(HLRZ@ 1 1)
(MOVEM 1 -7 P)
(MOVE 1 -11 P)
(JUMPE 1 TAG14)
(HLRZ@ 1 1)
(MOVEM 1 -6 P)
(MOVE 1 -7 P)
(MOVEM 1 -4 P)
(MOVE 1 -6 P)
(MOVEM 1 -2 P)
TAG2 (MOVE 1 -4 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVEM 1 -5 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(MOVEM 1 -1 P)
TAG3 (MOVE 1 -1 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL N))
(MOVE 2 -14 P)
(CALL 2 (E FINDCTE))
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(HLRZ@ 2 -5 P)
(HRLM@ 2 1)
TAG4
TAG5 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG3)
TAG6
TAG7 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
TAG10 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG2)
TAG11
TAG12 (HRRZ@ 1 -11 P)
(MOVEM 1 -11 P)
TAG13 (HRRZ@ 1 -10 P)
(MOVEM 1 -10 P)
(JRST 0 TAG1)
TAG14 (MOVE 1 0 P)
(PUSHJ P SPECSTR)
(SUB P (C 0 0 12 12))
(MOVE 1 -2 P)
(SUB P (C 0 0 3 3))
(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))
(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))
(POP P 2)
(CALL 2 (E XCONS))
TAG3
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL