perm filename CYCOME.LAP[DEN,LMM]1 blob
sn#034863 filedate 1973-04-13 generic text, type T, neo UTF8
(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 NIL) 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