perm filename CYCOMG.LAP[1,LMM] blob sn#034833 filedate 1973-04-12 generic text, type T, neo UTF8
(LAP LLUNCLASS SUBR) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE LUNCLASS)) 
	(JCALL 2 (E MAPCAR)) 
	NIL 

(LAP PERMRADS SUBR) 
	(PUSH P 1) 
	(MOVE 1 2) 
	(PUSH P 2) 
	(PUSH P 3) 
	(CALL 1 (E CLCREATE)) 
	(MOVEM 1 -1 P) 
	(MOVE 1 -2 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG6) 
	(MOVE 2 -1 P) 
	(MOVE 1 -2 P) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG5) 
TAG6 	(HLRZ@ 1 -2 P) 
	(CAIE 1 (QUOTE FORM)) 
	(JRST 0 TAG7) 
	(MOVE 1 -2 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE NIL)) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG5) 
TAG7 	(MOVE 1 -1 P) 
	(CALL 1 (E CDRLIST)) 
	(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)) 
	(MOVE 2 -4 P) 
	(JUMPE 2 TAG14) 
	(MOVEI 2 (QUOTE 1)) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 1) 
	(JRST 0 TAG13) 
TAG14 	(MOVE 2 -3 P) 
TAG15 
TAG13 	(MOVE 1 -6 P) 
	(CALL 2 (E LABELFV)) 
	(MOVEM 1 -1 P) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(MOVE 1 -4 P) 
	(JUMPE 1 TAG19) 
	(HLRZ@ 1 -2 P) 
	(CALL 1 (E CAAR)) 
	(JRST 0 TAG18) 
TAG19 	(MOVEI 1 (QUOTE NIL)) 
TAG20 
TAG18 	(MOVEM 1 -3 P) 
	(HRRZ@ 1 -2 P) 
	(HRRZ@ 1 1) 
	(PUSH P 1) 
	(MOVE 2 -5 P) 
	(JUMPE 2 TAG23) 
	(HLRZ@ 2 -3 P) 
	(HRRZ@ 2 2) 
	(JRST 0 TAG22) 
TAG23 	(HLRZ@ 2 -3 P) 
TAG24 
TAG22 	(POP P 1) 
	(CALL 2 (E CONS)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -5 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG2 
TAG3 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(SUB P (C 0 0 4 4)) 
TAG8 
TAG5 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP LABEEDGES 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)) 
	(HRRZ@ 2 1) 
	(HLRZ@ 2 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)) 
TAG1 	(MOVE 2 -4 P) 
	(JUMPE 2 TAG7) 
	(HLRZ@ 2 2) 
	(MOVEM 2 -3 P) 
	(HRRZ@ 2 2) 
	(HRRZ@ 2 2) 
	(HRRZ@ 2 2) 
	(MOVEM 2 -1 P) 
TAG2 	(MOVE 2 -1 P) 
	(JUMPE 2 TAG5) 
	(HLRZ@ 2 2) 
	(MOVEM 2 -2 P) 
	(HRRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E LEQ)) 
	(JUMPE 1 TAG4) 
	(MOVE 2 -2 P) 
	(HRRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG3 
TAG4 	(HRRZ@ 2 -1 P) 
	(MOVEM 2 -1 P) 
	(JRST 0 TAG2) 
TAG5 
TAG6 	(HRRZ@ 2 -4 P) 
	(MOVEM 2 -4 P) 
	(JRST 0 TAG1) 
TAG7 	(MOVE 2 0 P) 
	(MOVEI 1 (QUOTE ?)) 
	(CALL 2 (E CONS)) 
	(MOVE 3 -9 P) 
	(MOVE 2 -8 P) 
	(CALL 3 (E LABELM)) 
	(SUB P (C 0 0 5 5)) 
	(MOVEM 1 -1 P) 
TAG8 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG11) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E LUNCLASS)) 
	(HRRZ@ 2 -2 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG9 
TAG10 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG8) 
TAG11 	(MOVE 1 0 P) 
	(SUB P (C 0 0 5 5)) 
	(POPJ P) 
	NIL 

(LAP LABELFV SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CALL 1 (E COLLECTFV)) 
	(MOVEI 2 (QUOTE ?)) 
	(CALL 2 (E XCONS)) 
	(MOVE 3 -1 P) 
	(MOVE 2 0 P) 
	(CALL 3 (E LABELM)) 
	(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 LUNCLASS)) 
	(HRRZ@ 2 -1 P) 
	(CALL 2 (E CONS)) 
	(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 5 5)) 
	(POPJ P) 
	NIL 

(LAP STRUCTURESWITHATOMS SUBR) 
	(PUSH P 1) 
	(PUSH P 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)) 
	(HLRZ@ 3 -1 P) 
	(MOVE 2 -4 P) 
	(CALL 3 (E INSERTMARKERS)) 
	(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 5 5)) 
	(POPJ P) 
	NIL 

(LAP ATTACHFVS SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(EXCH 2 1) 
	(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)) 
	(HLRZ@ 2 -1 P) 
	(CALL 2 (E PUTFVS)) 
	(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 5 5)) 
	(POPJ P) 
	NIL 

(LAP ATTACHBIVALENTS SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(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)) 
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 CARLIST)) 
	(HLRZ@ 3 -2 P) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 3 (E PUTBIVS)) 
	(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 5 5)) 
	(POPJ P) 
	NIL 

(LAP LLABELNODES SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CALL 1 (E LISTBYVALENCE)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE MAKEUNCLASSED)) 
	(CALL 2 (E MAPCAR)) 
	(MOVE 3 -1 P) 
	(MOVE 2 0 P) 
	(CALL 3 (E LLABEL)) 
	(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 LLUNCLASS)) 
	(HRRZ@ 2 -1 P) 
	(CALL 2 (E CONS)) 
	(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 5 5)) 
	(POPJ P) 
	NIL 

(LAP MAKEUNCLASSED SUBR) 
	(PUSH P 1) 
	(JUMPE 1 TAG1) 
	(MOVE 2 0 P) 
	(MOVEI 1 (QUOTE ?)) 
	(CALL 2 (E CONS)) 
TAG2 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL