perm filename CYCOME.LAP[4,LMM] blob
sn#042530 filedate 1973-05-06 generic text, type T, neo UTF8
(DEFPROP CYCOMEFNS (CYCOMEFNS CLPARTITIONSL CLPARTLP1 KLOOPEDRINGS ATTACHBIVS&LOOPS PUTLOOPS PUTBIVN PUTBIVS PUT→
BIVE COMBINE CLASSES CLASSES2 CLASSIFY3 CLASSIFYNODES CLASSIFYEDGES NODEMARK) VALUE)
(LAP CLPARTITIONSL SUBR)
(PUSH P 1.)
(PUSH P 2.)
(JUMPN 2. TAG13)
(MOVEI 1. (QUOTE NIL))
(CALL 1. (E NCONS) S)
(JRST 0. TAG12)
TAG13 (HLRZ@ 1. 0. P)
(CALL 1. (E PLUSLIST) S)
(MOVE 2. 1.)
(MOVE 1. -1. P)
(CALL 2. (E CLPARTS) 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.))
(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.)
(MOVEM 1. -6. P)
(MOVE 1. -9. P)
(CALL 2. (E CLDIFF) S)
(HRRZ@ 2. -8. P)
(CALL 2. (E CLPARTITIONSL) S)
(MOVEI 3. (QUOTE 1.))
(HLRZ@ 2. -8. P)
(MOVEM 1. -5. P)
(MOVE 1. -6. P)
(CALL 3. (E CLPARTLP1) S)
(MOVEM 1. -3. P)
TAG2 (MOVE 1. -3. P)
(JUMPE 1. TAG8)
(HLRZ@ 1. -3. P)
(MOVE 2. -5. P)
(MOVEM 2. -1. P)
(MOVEM 1. -4. P)
TAG3 (MOVE 1. -1. P)
(JUMPE 1. TAG6)
(HLRZ@ 1. -1. P)
(MOVE 2. -4. P)
(MOVEM 1. -2. P)
(CALL 2. (E XCONS) S)
(MOVE 2. 0. P)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG4
TAG5 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG3)
TAG6
TAG7 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG2)
TAG8
TAG9
TAG10 (HRRZ@ 1. -7. P)
(MOVEM 1. -7. P)
(JRST 0. TAG1)
TAG11 (MOVE 1. 0. P)
(SUB P (C 8. 0. 8. 0.))
TAG12 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP CLPARTLP1 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(JUMPN 2. TAG13)
(MOVEI 1. (QUOTE NIL))
(CALL 1. (E NCONS) S)
(JRST 0. TAG12)
TAG13 (HLRZ@ 1. 2.)
(CAIE 1. (QUOTE 0.))
(JRST 0. TAG15)
(HRRZ@ 1. 2.)
(PUSH P 1.)
(MOVE 1. 3.)
(CALL 1. (E ADD1) S)
(MOVE 3. 1.)
(POP P 2.)
(MOVE 1. -2. P)
(CALL 3. (E CLPARTLP1) S)
(JRST 0. TAG12)
TAG15 (HLRZ@ 2. -1. P)
(MOVE 1. 0. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(MOVE 1. -2. P)
(CALL 2. (E CLPARTS) 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.))
(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.)
(MOVEM 1. -6. P)
(MOVE 1. -10. P)
(CALL 2. (E CLDIFF) S)
(PUSH P 1.)
(HRRZ@ 1. -10. P)
(PUSH P 1.)
(MOVE 1. -10. P)
(CALL 1. (E ADD1) S)
(MOVE 3. 1.)
(POP P 2.)
(POP P 1.)
(CALL 3. (E CLPARTLP1) S)
(MOVE 3. -8. P)
(HLRZ@ 2. -9. P)
(MOVEM 1. -5. P)
(MOVE 1. -6. P)
(CALL 3. (E CL=PARTS) S)
(MOVEM 1. -3. P)
TAG2 (MOVE 1. -3. P)
(JUMPE 1. TAG8)
(HLRZ@ 1. -3. P)
(MOVE 2. -5. P)
(MOVEM 2. -1. P)
(MOVEM 1. -4. P)
TAG3 (MOVE 1. -1. P)
(JUMPE 1. TAG6)
(HLRZ@ 1. -1. P)
(MOVEM 1. -2. P)
(MOVE 1. -4. P)
(CALL 1. (E CLCREATE) S)
(MOVE 2. -2. P)
(CALL 2. (E *APPEND) S)
(MOVE 2. 0. P)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG4
TAG5 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG3)
TAG6
TAG7 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG2)
TAG8
TAG9
TAG10 (HRRZ@ 1. -7. P)
(MOVEM 1. -7. P)
(JRST 0. TAG1)
TAG11 (MOVE 1. 0. P)
(SUB P (C 8. 0. 8. 0.))
TAG12 (SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP KLOOPEDRINGS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(CAIE 1. (QUOTE 0.))
(JRST 0. TAG9)
(MOVE 1. 2.)
(CALL 1. (E NOLOOPEDRINGS) S)
(JRST 0. TAG8)
TAG9 (PUSH P (C 0. 0. (QUOTE NIL) 0.))
(MOVE 2. -1. P)
(MOVE 1. -2. P)
(CALL 2. (E LOOPPARTITIONS) 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. TAG19 0.))
(PUSH P -5. P)
(HRRZ@ 1. -4. P)
(MOVE 3. -3. P)
(HRRZ@ 2. 1.)
(HLRZ@ 1. 1.)
(CALL 3. (E ATTACHBIVS&LOOPS) 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 ATTACHBIVS&LOOPS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(JUMPN 1. TAG13)
(MOVE 1. 2.)
(CALL 1. (E LCDRLIST) S)
(MOVE 2. 1.)
(MOVE 1. 0. P)
(CALL 2. (E LLABELNODES) S)
(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)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(CALL 1. (E COPYSTRUC) S)
(PUSH P 1.)
(MOVE 1. -5. P)
(CALL 1. (E LCARLIST) S)
(HLRZ@ 3. -2. P)
(MOVE 2. 1.)
(POP P 1.)
(CALL 3. (E PUTLOOPS) S)
(MOVE 2. 0. P)
(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 3. 0. 3. 0.))
(JRST 0. TAG12)
TAG13 (MOVE 1. -2. P)
(CALL 1. (E CDRLIST) S)
(MOVE 2. 1.)
(MOVE 1. 0. P)
(CALL 2. (E LABELEDGES) 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.))
TAG5 (MOVE 1. -4. P)
(JUMPE 1. TAG11)
(HLRZ@ 1. -4. P)
(MOVEM 1. -3. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(MOVE 1. -7. P)
(CALL 1. (E LCDRLIST) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E LLABELNODES) S)
(MOVEM 1. -1. P)
TAG6 (MOVE 1. -1. P)
(JUMPE 1. TAG9)
(HLRZ@ 1. -1. P)
(MOVEM 1. -2. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(CALL 1. (E COPYSTRUC) S)
(PUSH P 1.)
(MOVE 1. -8. P)
(CALL 1. (E CARLIST) S)
(HLRZ@ 3. -4. P)
(MOVE 2. 1.)
(POP P 1.)
(CALL 3. (E PUTBIVS) S)
(PUSH P 1.)
(MOVE 1. -7. P)
(CALL 1. (E LCARLIST) S)
(HLRZ@ 3. -3. P)
(MOVE 2. 1.)
(POP P 1.)
(CALL 3. (E PUTLOOPS) S)
(MOVE 2. 0. P)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG7
TAG8 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG6)
TAG9
TAG10 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG5)
TAG11 (MOVE 1. 0. P)
(SUB P (C 5. 0. 5. 0.))
TAG12 (SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP PUTLOOPS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(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.))
(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. -14. P)
(JUMPE 1. TAG18)
(HLRZ@ 1. -14. P)
(MOVEM 1. -12. P)
(MOVE 1. -13. P)
(JUMPE 1. TAG18)
(HLRZ@ 1. -13. P)
(MOVE 2. -12. P)
(MOVE 3. 1.)
(MOVEM 3. -7. P)
(MOVEM 2. -9. P)
(MOVEM 1. -11. P)
TAG2 (MOVE 1. -9. P)
(JUMPE 1. TAG15)
(HLRZ@ 1. -9. P)
(MOVEM 1. -10. P)
(MOVE 1. -7. P)
(JUMPE 1. TAG15)
(HLRZ@ 1. -7. P)
(MOVE 2. 1.)
(MOVEM 2. -5. P)
(MOVEM 1. -8. P)
TAG3 (MOVE 1. -5. P)
(JUMPE 1. TAG12)
(HLRZ@ 1. -5. P)
(HRRZ@ 2. 1.)
(MOVEI 3. (QUOTE 1.))
(MOVEM 3. -4. P)
(MOVEM 2. -3. P)
(MOVEM 1. -6. P)
TAG4 (MOVE 2. -3. P)
(MOVE 1. -4. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG10)
(MOVE 1. -10. P)
(MOVEM 1. -1. P)
TAG5 (MOVE 1. -1. P)
(JUMPE 1. TAG8)
(HLRZ@ 1. -1. P)
(HLRZ@ 3. -6. P)
(MOVE 2. 1.)
(MOVEM 1. -2. P)
(MOVE 1. -17. P)
(CALL 3. (E PUTBIVN) S)
(MOVEM 1. -17. P)
TAG6
TAG7 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG5)
TAG8
TAG9 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -4. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -4. P)
(JRST 0. TAG4)
TAG10
TAG11 (HRRZ@ 1. -5. P)
(MOVEM 1. -5. P)
(JRST 0. TAG3)
TAG12
TAG13 (HRRZ@ 1. -7. P)
(MOVEM 1. -7. P)
TAG14 (HRRZ@ 1. -9. P)
(MOVEM 1. -9. P)
(JRST 0. TAG2)
TAG15
TAG16 (HRRZ@ 1. -13. P)
(MOVEM 1. -13. P)
TAG17 (HRRZ@ 1. -14. P)
(MOVEM 1. -14. P)
(JRST 0. TAG1)
TAG18 (MOVE 1. -17. P)
(SUB P (C 18. 0. 18. 0.))
(POPJ P)
NIL
(LAP PUTBIVN SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(CAIE 3. (QUOTE 0.))
(JRST 0. TAG2)
(JRST 0. TAG1)
TAG2 (MOVE 1. 0. P)
(CALL 1. (E BIVCHAIN) S)
(PUSH P 1.)
(HRRZ@ 1. -3. P)
(PUSH P 1.)
(HRRZ@ 1. -1. P)
(HLRZ@ 1. 1.)
(HLRZ@ 1. 1.)
(HLRZ@ 2. 0. P)
(MOVEM 1. 0. P)
(MOVE 1. -3. P)
(CALL 2. (E FINDCTE) S)
(MOVE 2. 1.)
(EXCH 1. 0. P)
(CALL 2. (E CONNECT) S)
(POP P -3. P)
(HRRZ@ 1. 0. P)
(HLRZ@ 1. 1.)
(CALL 1. (E LAST) S)
(MOVE 2. -2. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONNECT) S)
(PUSH P (C 0. 0. TAG8 0.))
(HRRZ@ 1. -4. P)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG8 (HRRZ@ 1. -3. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 2. 0. P)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(HRLM@ 2. 1.)
(MOVE 1. -3. P)
(SUB P (C 1. 0. 1. 0.))
TAG1 (SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP PUTBIVS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(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.))
TAG1 (MOVE 1. -6. P)
(JUMPE 1. TAG8)
(HLRZ@ 1. -6. P)
(MOVEM 1. -4. P)
(MOVE 1. -5. P)
(JUMPE 1. TAG8)
(HLRZ@ 1. -5. P)
(MOVE 2. -4. P)
(MOVEM 2. -1. P)
(MOVEM 1. -3. P)
TAG2 (MOVE 1. -1. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. -1. P)
(MOVE 3. -3. P)
(MOVE 2. 1.)
(MOVEM 1. -2. P)
(MOVE 1. -9. P)
(CALL 3. (E PUTBIVE) S)
TAG3
TAG4 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG2)
TAG5
TAG6 (HRRZ@ 1. -5. P)
(MOVEM 1. -5. P)
TAG7 (HRRZ@ 1. -6. P)
(MOVEM 1. -6. P)
(JRST 0. TAG1)
TAG8 (MOVE 1. -9. P)
(SUB P (C 10. 0. 10. 0.))
(POPJ P)
NIL
(LAP PUTBIVE SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(CAIE 3. (QUOTE 0.))
(JRST 0. TAG2)
(JRST 0. TAG1)
TAG2 (MOVE 1. 0. P)
(CALL 1. (E BIVCHAIN) S)
(PUSH P 1.)
(HRRZ@ 1. -3. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P 1.)
(HRRZ@ 1. -3. P)
(HLRZ@ 1. 1.)
(HLRZ@ 1. 1.)
(HLRZ@ 2. 0. P)
(MOVEM 1. 0. P)
(HLRZ@ 1. -5. P)
(CALL 2. (E FINDCTE) S)
(MOVE 2. 1.)
(EXCH 1. 0. P)
(CALL 2. (E CONNECT) S)
(POP P -1. P)
(HRRZ@ 1. -2. P)
(HLRZ@ 1. 1.)
(CALL 1. (E LAST) S)
(PUSH P 1.)
(HRRZ@ 1. -6. P)
(PUSH P 1.)
(HLRZ@ 1. -1. P)
(HLRZ@ 2. 0. P)
(MOVEM 1. -1. P)
(HRRZ@ 1. -6. P)
(CALL 2. (E FINDCTE) S)
(MOVE 2. 1.)
(EXCH 1. -1. P)
(CALL 2. (E CONNECT) S)
(SUB P (C 1. 0. 1. 0.))
(POP P -2. P)
(MOVE 2. -1. P)
(MOVE 1. 0. P)
(CALL 2. (E DISCONNECT) S)
(PUSH P (C 0. 0. TAG8 0.))
(HRRZ@ 1. -6. P)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(HRRZ@ 1. -4. P)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG8 (HRRZ@ 1. -5. P)
(HRRZ@ 1. 1.)
(HRRZ@ 1. 1.)
(HRRZ@ 2. -2. P)
(HRRZ@ 2. 2.)
(HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(HRLM@ 2. 1.)
(MOVE 1. -5. P)
(SUB P (C 3. 0. 3. 0.))
TAG1 (SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP COMBINE SUBR)
(PUSH P 1.)
(PUSH P 2.)
(JUMPN 1. TAG2)
(MOVE 1. 2.)
(JRST 0. TAG1)
TAG2 (JUMPN 2. TAG4)
(JRST 0. TAG1)
TAG4 (MOVE 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. (E CONS) S)
(MOVEI 2. (QUOTE BOTH) S)
(CALL 2. (E XCONS) S)
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP CLASSES SUBR)
(PUSH P 1.)
(PUSH P 2.)
(HLRZ@ 1. 1.)
(CAIE 1. (QUOTE BOTH) S)
(JRST 0. TAG2)
(PUSH P (C 0. 0. TAG3 0.))
(HRRZ@ 1. -2. P)
(HLRZ@ 1. 1.)
(CALL 1. (E CLASSES) S)
(PUSH P 1.)
(HRRZ@ 1. -3. P)
(HRRZ@ 1. 1.)
(CALL 1. (E CLASSES) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG3 (JRST 0. TAG1)
TAG2 (HLRZ@ 1. -1. P)
(CAIN 1. (QUOTE ?) S)
(JRST 0. TAG4)
(MOVE 1. -1. P)
(CALL 1. (E NCONS) S)
(JRST 0. TAG1)
TAG4 (MOVE 2. 0. P)
(HRRZ@ 1. -1. P)
(CALL 2. (E CLASSES2) S)
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP CLASSES2 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(CALL 1. (E GROUPCOUNT) S)
(MOVEM 1. -1. P)
(MOVE 2. 0. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CLASSIFY3) S)
(HRRZ@ 2. -1. P)
(PUSH P (C 0. 0. (QUOTE 2.) 0.))
(PUSH P 2.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NI∪) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -4. P)
(JUMPE 1. TAG8)
(HLRZ@ 1. -4. P)
(MOVEM 1. -2. P)
(MOVEI 2. (QUOTE 999999.) S)
(MOVE 1. -5. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG8)
(MOVE 2. -6. P)
(MOVE 1. -2. P)
(CALL 2. (E CLASSIFY3) S)
(MOVEM 1. 0. P)
TAG2 (MOVE 1. 0. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. 0. P)
(MOVE 2. 1.)
(MOVEM 1. -1. P)
(MOVE 1. -5. P)
(CALL 2. (E MAKEMULT) S)
(MOVE 2. -3. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -3. P)
TAG3
TAG4 (HRRZ@ 1. 0. P)
(MOVEM 1. 0. P)
(JRST 0. TAG2)
TAG5
TAG6 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -5. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -5. P)
TAG7 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG1)
TAG8 (MOVE 1. -3. P)
(SUB P (C 8. 0. 8. 0.))
(POPJ P)
NIL
(LAP CLASSIFY3 SUBR)
(PUSH P 1.)
(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 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 NUMBERP) S)
(JUMPE 1. TAG14)
(MOVE 2. -3. P)
(MOVE 1. -1. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -3. P)
(JRST 0. TAG13)
TAG14 (HLRZ@ 1. -1. P)
(CALL 1. (E NUMBERP) S)
(JUMPE 1. TAG15)
(HRRZ@ 1. -1. P)
(CALL 1. (E NUMBERP) S)
(JUMPE 1. TAG15)
(MOVE 2. -4. P)
(MOVE 1. -1. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -4. P)
(JRST 0. TAG13)
TAG15 (MOVE 2. -5. P)
(MOVE 1. -1. P)
(CALL 2. (E CONS) S)
(MOVEM 1. -5. P)
TAG13
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (SUB P (C 3. 0. 3. 0.))
(PUSH P (C 0. 0. TAG20 0.))
(PUSH P (C 0. 0. TAG21 0.))
(MOVEI D (QUOTE MAKENODES) S)
(PUSH P D)
(MOVE 2. -6. P)
(MOVE 1. -3. P)
(CALL 2. (E CLASSIFYNODES) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E MAPCAR) S)
TAG21 (PUSH P 1.)
(PUSH P (C 0. 0. TAG22 0.))
(PUSH P (C 0. 0. TAG23 0.))
(MOVEI D (QUOTE MAKEEDGES) S)
(PUSH P D)
(MOVE 2. -8. P)
(MOVE 1. -6. P)
(CALL 2. (E CLASSIFYEDGES) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E MAPCAR) S)
TAG23 (PUSH P 1.)
(MOVE 1. -6. P)
(JUMPE 1. TAG25)
(CALL 1. (E NCONS) S)
(MOVEI 2. (QUOTE SOMETHING←ELSE) S)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(JRST 0. TAG24)
TAG25 (MOVEI 1. (QUOTE NIL))
TAG24 (PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG22 (PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG20 (SUB P (C 5. 0. 5. 0.))
(POPJ P)
NIL
(LAP CLASSIFYNODES SUBR)
(JSP 6. SPECBIND)
(0. 2. (SPECIAL SSTRUC) S)
(EXCH 2. 1.)
(MOVEI 1. (QUOTE NODEMARK) S)
(CALL 2. (E GROUPBY) S)
(CALL 1. (E CDRLIST) S)
(JRST 0. SPECSTR)
NIL
(LAP CLASSIFYEDGES SUBR)
(JSP 6. SPECBIND)
(0. 2. (SPECIAL SSTRUC) S)
(EXCH 2. 1.)
(MOVEI 1. (QUOTE EDGEMARK) S)
(CALL 2. (E GROUPBY) S)
(CALL 1. (E CDRLIST) S)
(JRST 0. SPECSTR)
NIL
(LAP NODEMARK SUBR)
(MOVE 2. (SPECIAL SSTRUC) S)
(PUSH P 1.)
(CALL 2. (E FINDCTE) S)
(MOVEM 1. 0. P)
(CALL 1. (E NODEVALENCE) S)
(HRRZ@ 2. 0. P)
(HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(SUB P (C 1. 0. 1. 0.))
(JCALL 2. (E CONS) S)
NIL