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