(ARRAY NODEARRAY T 45) 

(ARRAY CONNARRAY T 25) 

(ARRAY TMPARRAY T 25) 

(LAP LAYOUT SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE 1) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVEI 2 (QUOTE 40)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG4) 
	(MOVE 1 -1 P) 
	(CALL 1 (E NODEARRAY)) 
	(MOVEI 1 (QUOTE 0)) 
	(PUSHJ P NSTR) 
TAG2 
TAG3 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(SUB P (C 0 0 2 2)) 
	(PUSH P (C 0 0 (QUOTE 1) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG5 	(MOVEI 2 (QUOTE 20)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG10) 
	(MOVE 1 -1 P) 
	(CALL 1 (E CONNARRAY)) 
	(MOVEI 1 (QUOTE NIL)) 
	(PUSHJ P NSTR) 
TAG6 
TAG7 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG5) 
TAG10 	(MOVE 1 0 P) 
	(SUB P (C 0 0 2 2)) 
	(MOVE 1 0 P) 
	(CALL 1 (E ANALIN)) 
	(CALL 0 (E SORTLN)) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 2 (E FINDNDS)) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 0 (E OUTNDS)) 
	NIL 

(LAP ANALIN SUBR) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(MOVEM 1 (SPECIAL TITLE)) 
	(CLEARM 1 (SPECIAL LINE)) 
	(CLEARM 1 (SPECIAL LABELL)) 
	(HRRZ@ 1 0 P) 
	(CALL 1 (E LENGTH)) 
	(MOVEM 1 (SPECIAL NLN)) 
	(MOVEI 1 (QUOTE 0)) 
	(MOVEM 1 (SPECIAL NMX)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(HRRZ@ 1 -1 P) 
	(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)) 
TAG1 	(MOVE 1 -5 P) 
	(JUMPE 1 TAG12) 
	(HLRZ@ 1 1) 
	(MOVE 2 (SPECIAL NMX)) 
	(MOVEM 1 -4 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E MAX)) 
	(MOVEM 1 (SPECIAL NMX)) 
	(HLRZ@ 1 -4 P) 
	(HRRZ@ 2 -4 P) 
	(HLRZ@ 2 2) 
	(MOVEM 1 -3 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 (SPECIAL LABELL)) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL LABELL)) 
	(HRRZ@ 1 -4 P) 
	(HRRZ@ 1 1) 
	(MOVEM 1 -1 P) 
TAG2 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG5) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG4) 
	(MOVE 2 -2 P) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *LESS)) 
	(JUMPE 1 TAG25) 
	(MOVE 2 -2 P) 
	(MOVE 1 -3 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 (SPECIAL LINE)) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 -6 P) 
	(JUMPN 1 TAG27) 
	(MOVE 2 -2 P) 
	(MOVE 1 -3 P) 
	(CALL 2 (E CONS)) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 (SPECIAL LINE)) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL LINE)) 
	(JRST 0 TAG26) 
TAG27 	(HRRZ@ 1 -6 P) 
	(PUSH P 1) 
	(HRRZ@ 1 -7 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E ADD1)) 
	(HRLM@ 1 0 P) 
	(SUB P (C 0 0 1 1)) 
TAG30 
TAG26 
TAG25 	(MOVE 1 -3 P) 
	(CALL 1 (E CONNARRAY)) 
	(MOVE 2 1) 
	(MOVE 1 -2 P) 
	(CALL 2 (E MEMBER)) 
	(JUMPN 1 TAG32) 
	(MOVE 1 -3 P) 
	(CALL 1 (E CONNARRAY)) 
	(MOVE 2 -2 P) 
	(CALL 2 (E XCONS)) 
	(PUSH P 1) 
	(MOVE 1 -4 P) 
	(CALL 1 (E CONNARRAY)) 
	(POP P 1) 
	(PUSHJ P NSTR) 
	(JUMPN 1 TAG32) 
TAG32 
TAG3 
TAG4 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG2) 
TAG5 
TAG6 
TAG7 
TAG10 
TAG11 	(HRRZ@ 1 -5 P) 
	(MOVEM 1 -5 P) 
	(JRST 0 TAG1) 
TAG12 	(MOVE 1 0 P) 
	(SUB P (C 0 0 6 6)) 
	(MOVE 1 (SPECIAL LINE)) 
	(CALL 1 (E LENGTH)) 
	(MOVEM 1 (SPECIAL LLN)) 
	(MOVE 1 (SPECIAL LINE)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP SORTLN SUBR) 
	(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 1) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 2 (SPECIAL NMX)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG4) 
	(MOVE 1 -1 P) 
	(CALL 1 (E CONNARRAY)) 
	(CALL 1 (E LENGTH)) 
	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(CALL 1 (E TMPARRAY)) 
	(POP P 1) 
	(PUSHJ P NSTR) 
TAG2 
TAG3 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(SUB P (C 0 0 2 2)) 
	(MOVEI 2 (QUOTE 10)) 
	(MOVE 1 (SPECIAL NMX)) 
	(CALL 2 (E *TIMES)) 
	(MOVEM 1 -6 P) 
TAG5 	(MOVEI 1 (QUOTE 0)) 
	(CLEARM 1 -3 P) 
	(MOVEM 1 -2 P) 
	(PUSH P (SPECIAL LINE)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG6 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG11) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -3 P) 
	(MOVE 2 -2 P) 
	(CALL 2 (E MEMBER)) 
	(JUMPN 1 TAG10) 
	(HLRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E TMPARRAY)) 
	(PUSH P 1) 
	(HLRZ@ 1 -4 P) 
	(HRRZ@ 1 1) 
	(CALL 1 (E TMPARRAY)) 
	(POP P 2) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -6 P) 
	(MOVE 2 -4 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG27) 
	(MOVE 1 -6 P) 
	(MOVEM 1 -4 P) 
	(MOVE 1 -3 P) 
	(MOVEM 1 -5 P) 
TAG27 
TAG7 
TAG10 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG6) 
TAG11 	(MOVE 1 0 P) 
	(SUB P (C 0 0 2 2)) 
	(MOVE 1 -5 P) 
	(JUMPE 1 TAG31) 
	(MOVE 2 1) 
	(HLRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E MEMBER)) 
	(JUMPN 1 TAG31) 
	(HLRZ@ 2 -3 P) 
	(HLRZ@ 2 2) 
	(HLRZ@ 1 -3 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(HRLM@ 1 -3 P) 
TAG31 	(MOVE 3 -6 P) 
	(MOVE 2 -5 P) 
	(HLRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CALL 3 (E SRTLNA)) 
	(MOVE 3 -6 P) 
	(MOVE 2 1) 
	(MOVEM 1 -5 P) 
	(HLRZ@ 1 -3 P) 
	(HRRZ@ 1 1) 
	(CALL 3 (E SRTLNA)) 
	(MOVEI 2 (QUOTE -10)) 
	(MOVEM 1 -5 P) 
	(MOVE 1 -6 P) 
	(CALL 2 (E *PLUS)) 
	(MOVE 2 0 P) 
	(MOVEM 1 -6 P) 
	(MOVE 1 -3 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
	(CALL 1 (E LENGTH)) 
	(MOVE 2 (SPECIAL LLN)) 
	(CALL 2 (E *LESS)) 
	(JUMPN 1 TAG5) 
	(MOVE 1 0 P) 
	(CALL 1 (E REVERSE)) 
	(MOVEM 1 (SPECIAL LINE)) 
	(SUB P (C 0 0 7 7)) 
	(POPJ P) 
	NIL 

(LAP SRTLNA SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(CALL 2 (E MEMBER)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 -1 P) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 -2 P) 
	(CALL 1 (E TMPARRAY)) 
	(MOVE 2 0 P) 
	(CALL 2 (E *PLUS)) 
	(PUSH P 1) 
	(MOVE 1 -3 P) 
	(CALL 1 (E TMPARRAY)) 
	(POP P 1) 
	(PUSHJ P NSTR) 
	(MOVE 2 -1 P) 
	(MOVE 1 -2 P) 
	(CALL 2 (E CONS)) 
TAG3 
TAG1 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL