perm filename CYCOME.LAP[1,LMM] blob sn#034828 filedate 1973-04-12 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)) 
	(JRST 0 TAG12) 
TAG13 	(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 TAG11) 
	(HLRZ@ 1 1) 
	(MOVE 2 1) 
	(MOVEM 1 -6 P) 
	(MOVE 1 -9 P) 
	(CALL 2 (E CLDIFF)) 
	(HRRZ@ 2 -8 P) 
	(CALL 2 (E CLPARTITIONSL)) 
	(MOVEI 3 (QUOTE 1)) 
	(HLRZ@ 2 -8 P) 
	(MOVEM 1 -5 P) 
	(MOVE 1 -6 P) 
	(CALL 3 (E CLPARTLP1)) 
	(MOVEM 1 -3 P) 
TAG2 	(MOVE 1 -3 P) 
	(JUMPE 1 TAG8) 
	(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) 
TAG8 
TAG9 
TAG10 	(HRRZ@ 1 -7 P) 
	(MOVEM 1 -7 P) 
	(JRST 0 TAG1) 
TAG11 	(MOVE 1 0 P) 
	(SUB P (C 0 0 8 8)) 
TAG14 
TAG12 	(SUB P (C 0 0 2 2)) 
	(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)) 
	(JRST 0 TAG12) 
TAG13 	(HLRZ@ 1 2) 
	(CAIE 1 (QUOTE 0)) 
	(JRST 0 TAG14) 
	(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 TAG12) 
TAG14 	(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 TAG11) 
	(HLRZ@ 1 1) 
	(MOVE 2 1) 
	(MOVEM 1 -6 P) 
	(MOVE 1 -10 P) 
	(CALL 2 (E CLDIFF)) 
	(PUSH P 1) 
	(HRRZ@ 1 -10 P) 
	(PUSH P 1) 
	(MOVE 1 -10 P) 
	(CALL 1 (E ADD1)) 
	(MOVE 3 1) 
	(POP P 2) 
	(POP P 1) 
	(CALL 3 (E CLPARTLP1)) 
	(MOVE 3 -8 P) 
	(HLRZ@ 2 -9 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 TAG8) 
	(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) 
TAG8 
TAG9 
TAG10 	(HRRZ@ 1 -7 P) 
	(MOVEM 1 -7 P) 
	(JRST 0 TAG1) 
TAG11 	(MOVE 1 0 P) 
	(SUB P (C 0 0 8 8)) 
TAG15 
TAG12 	(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 TAG9) 
	(MOVE 1 2) 
	(CALL 1 (E NOLOOPEDRINGS)) 
	(JRST 0 TAG8) 
TAG9 	(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 TAG17 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 14 (E NCONC)) 
TAG17 	(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)) 
TAG10 
TAG8 	(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 TAG13) 
	(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 TAG12) 
TAG13 	(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 TAG11) 
	(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 TAG9) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(HRRZ@ 1 1) 
	(HRRZ@ 1 1) 
	(CALL 1 (E COPYSTRUC)) 
	(PUSH P 1) 
	(MOVE 1 -8 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 
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 0 0 5 5)) 
TAG18 
TAG12 	(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 -14 P) 
	(JUMPE 1 TAG18) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -12 P) 
	(MOVE 1 -13 P) 
	(JUMPE 1 TAG18) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -11 P) 
	(MOVE 1 -12 P) 
	(MOVEM 1 -9 P) 
	(MOVE 1 -11 P) 
	(MOVEM 1 -7 P) 
TAG2 	(MOVE 1 -9 P) 
	(JUMPE 1 TAG15) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -10 P) 
	(MOVE 1 -7 P) 
	(JUMPE 1 TAG15) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -8 P) 
	(MOVEM 1 -5 P) 
TAG3 	(MOVE 1 -5 P) 
	(JUMPE 1 TAG12) 
	(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 TAG10) 
	(MOVE 1 -10 P) 
	(MOVEM 1 -1 P) 
TAG5 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG8) 
	(HLRZ@ 1 1) 
	(HLRZ@ 3 -6 P) 
	(MOVE 2 1) 
	(MOVEM 1 -2 P) 
	(MOVE 1 -17 P) 
	(CALL 3 (E PUTBIVN)) 
	(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)) 
	(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 0 P) 
	(EXCH 1 -17 P) 
	(SUB P (C 0 0 18 18)) 
	(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 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)) 
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 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 TAG8) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -4 P) 
	(MOVE 1 -5 P) 
	(JUMPE 1 TAG8) 
	(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 -9 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) 
TAG8 	(MOVE 1 0 P) 
	(EXCH 1 -9 P) 
	(SUB P (C 0 0 10 10)) 
	(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 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)) 
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 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 14 (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 TAG8) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(MOVEI 2 (QUOTE 999999)) 
	(MOVE 1 -4 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG8) 
	(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) 
TAG8 	(MOVE 1 -5 P) 
	(SUB P (C 0 0 8 8)) 
	(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 TAG13) 
	(MOVE 2 -3 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG12) 
TAG13 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG14) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG14) 
	(MOVE 2 -4 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 -4 P) 
	(JRST 0 TAG12) 
TAG14 	(MOVE 2 -5 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 -5 P) 
TAG16 
TAG12 
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 TAG18 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 TAG19 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 TAG21) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE SOMETHINGā†ELSE)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG20) 
TAG21 	(MOVEI 1 (QUOTE NIL)) 
TAG22 
TAG20 	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG19 	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG18 	(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