perm filename MILLAP[1,VDS] blob sn#027386 filedate 1973-04-10 generic text, type T, neo UTF8
(LAP TFX SUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL V)) 
	(PUSH P 1) 
	(MOVEI 2 (QUOTE TF)) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(CALL 2 (E GET)) 
	(HLRZ@ 3 (SPECIAL SUBTREE)) 
	(HLRZ@ 2 1) 
	(MOVEM 1 -1 P) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 3 (E MATCH)) 
	(MOVEM 1 (SPECIAL V)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(JUMPE 1 TAG3) 
	(HRRZ@ 1 -2 P) 
	(HRRZ@ 1 1) 
	(JUMPE 1 TAG1) 
	(HRRZ@ 2 -2 P) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(MOVE 1 (SPECIAL V)) 
	(CALL 2 (E SUBSTITUTE)) 
	(MOVEM 1 0 P) 
	(CALL 1 (E *EVAL)) 
	(JUMPE 1 TAG3) 
TAG1 	(HRRZ@ 2 -2 P) 
	(HLRZ@ 2 2) 
	(MOVE 1 (SPECIAL V)) 
	(CALL 2 (E SUBSTITUTE)) 
	(MOVEM 1 0 P) 
	(HRLM@ 1 (SPECIAL SUBTREE)) 
	(MOVE 1 (SPECIAL TREE-TRACE)) 
	(JUMPE 1 TAG10) 
	(MOVE 1 -1 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE APPLY)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E PRINT)) 
	(MOVE 1 (SPECIAL TREE)) 
	(CALL 1 (E PRINTREE)) 
	(JRST 0 TAG7) 
TAG10 	(MOVE 1 (SPECIAL TF-TRACE)) 
	(JUMPE 1 TAG11) 
	(MOVE 1 -1 P) 
	(CALL 1 (E PRINT)) 
TAG11 
TAG7 	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG2) 
TAG3 	(MOVEI 1 (QUOTE NIL)) 
TAG2 	(SUB P (C 0 0 3 3)) 
	(JRST 0 SPECSTR) 
	NIL (LAP SUBSTITUTE SUBR) 
	(JSP 6 SPECBIND) 
	(0 1 (SPECIAL V)) 
	(0 0 (SPECIAL Y)) 
	(PUSH P 2) 
	(MOVE 1 2) 
	(SUB P (C 0 0 1 1)) 
	(CALL 1 (E SUBS)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP SUBS SUBR) 
	(PUSH P 1) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG2) 
	(MOVE 2 (SPECIAL V)) 
	(MOVE 1 0 P) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 (SPECIAL Y)) 
	(JUMPE 1 TAG4) 
	(HRRZ@ 1 1) 
	(JRST 0 TAG3) 
TAG4 	(MOVE 1 0 P) 
TAG5 
TAG3 	(JRST 0 TAG1) 
TAG2 	(MOVE 1 0 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG7) 
	(MOVE 1 0 P) 
	(JRST 0 TAG1) 
TAG7 	(HLRZ@ 1 0 P) 
	(CALL 1 (E SUBS)) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E SUBS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
TAG10 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL (LAP MATCH SUBR) 
	(JSP 6 SPECBIND) 
	(0 1 (SPECIAL V)) 
	(0 0 (SPECIAL X)) 
	(PUSH P 2) 
	(PUSH P 3) 
	(MOVE 2 3) 
	(MOVE 1 -1 P) 
	(CALL 2 (E MACH)) 
	(JUMPE 1 TAG4) 
	(MOVE 1 (SPECIAL V)) 
	(JUMPE 1 TAG5) 
	(JRST 0 TAG4) 
TAG5 	(MOVEI 1 (QUOTE T)) 
TAG6 
TAG4 	(SUB P (C 0 0 2 2)) 
	(JRST 0 SPECSTR) 
	NIL 

(LAP MACH SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CAME 1 2) 
	(JRST 0 TAG2) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG1) 
TAG2 	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG3) 
	(MOVE 1 -1 P) 
	(CAIE 1 (QUOTE 0)) 
	(JRST 0 TAG5) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG4) 
TAG5 	(MOVE 2 (SPECIAL V)) 
	(CALL 2 (E ASSOC)) 
	(MOVEM 1 (SPECIAL X)) 
	(JUMPE 1 TAG6) 
	(MOVE 2 0 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E EQUAL)) 
	(JRST 0 TAG4) 
TAG6 	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 (SPECIAL V)) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL V)) 
	(MOVEI 1 (QUOTE T)) 
TAG7 
TAG4 	(JRST 0 TAG1) 
TAG3 	(MOVE 1 -1 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG11) 
	(MOVEI 1 (QUOTE NIL)) 
	(JRST 0 TAG1) 
TAG11 	(MOVE 1 0 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG12) 
	(MOVEI 1 (QUOTE NIL)) 
	(JRST 0 TAG1) 
TAG12 	(HLRZ@ 2 0 P) 
	(HLRZ@ 1 -1 P) 
	(CALL 2 (E MACH)) 
	(JUMPE 1 TAG16) 
	(HRRZ@ 2 0 P) 
	(HRRZ@ 1 -1 P) 
	(CALL 2 (E MACH)) 
	(JUMPN 1 TAG15) 
TAG16 	(TDZA 1 1) 
TAG15 	(MOVEI 1 (QUOTE T)) 
TAG13 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL (LAP PARSE SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVEI 2 (QUOTE PRULE)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E GET)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG5) 
	(MOVE 1 -3 P) 
	(CALL 1 (E NCONS)) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(HLRZ@ 1 3) 
	(HRRZ@ 1 1) 
	(POP P 2) 
	(HRRM@ 2 1) 
	(HLRZ@ 2 3) 
	(HRRZ@ 2 2) 
	(HRRZ@ 2 2) 
	(HLRZ@ 1 3) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(HRRZ@ 2 3) 
	(CALL 2 (E CONS)) 
	(HLRZ@ 2 3) 
	(HRRZ@ 2 2) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CALL 2 (E XCONS)) 
	(EXCH 3 1) 
	(HRRZ@ 2 0 P) 
	(MOVE 1 -4 P) 
	(CALL 3 (E PAR)) 
	(JRST 0 TAG1) 
TAG5 	(MOVEI 2 (QUOTE SET)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E GET)) 
	(MOVEM 1 -1 P) 
	(JUMPE 1 TAG6) 
	(EXCH 2 1) 
	(HLRZ@ 1 -4 P) 
	(CALL 2 (E MEMQ)) 
	(JUMPE 1 TAG10) 
	(HLRZ@ 1 -4 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(HLRZ@ 1 -3 P) 
	(HRRZ@ 1 1) 
	(POP P 2) 
	(HRRM@ 2 1) 
	(JRST 0 TAG7) 
TAG10 	(JRST 0 TAG2) 
TAG7 	(JRST 0 TAG4) 
TAG6 	(HLRZ@ 1 -4 P) 
	(CAME 1 -3 P) 
	(JRST 0 TAG12) 
	(MOVE 1 -3 P) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(HLRZ@ 1 3) 
	(HRRZ@ 1 1) 
	(POP P 2) 
	(HRRM@ 2 1) 
	(JRST 0 TAG4) 
TAG12 	(JRST 0 TAG2) 
TAG4 	(HLRZ@ 2 -2 P) 
	(HRRZ@ 2 2) 
	(HRRZ@ 2 2) 
	(HLRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(HRRZ@ 2 -2 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 1) 
	(HRRZ@ 1 -4 P) 
	(CALL 2 (E NEXT)) 
TAG2 	(MOVEI 1 (QUOTE NIL)) 
TAG1 	(SUB P (C 0 0 5 5)) 
	(POPJ P) 
	NIL 

(LAP PAR SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(JUMPE 2 TAG2) 
	(TDZA 1 1) 
TAG2 	(MOVEI 1 (QUOTE T)) 
	(JUMPN 1 TAG1) 
	(HLRZ@ 1 -1 P) 
	(JUMPN 1 TAG3) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(HLRZ@ 1 -1 P) 
	(POP P 2) 
	(HRRM@ 2 1) 
	(HRRZ@ 2 0 P) 
	(MOVE 1 -2 P) 
	(CALL 2 (E NEXT)) 
	(JRST 0 TAG1) 
TAG3 	(HLRZ@ 2 0 P) 
	(HLRZ@ 1 -1 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(HRRZ@ 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVE 3 1) 
	(HLRZ@ 2 -1 P) 
	(HLRZ@ 2 2) 
	(MOVE 1 -2 P) 
	(CALL 3 (E PARSE)) 
	(MOVE 3 0 P) 
	(HRRZ@ 2 -1 P) 
	(MOVE 1 -2 P) 
	(CALL 3 (E PAR)) 
TAG4 
TAG1 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP NEXT SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(JUMPN 1 TAG2) 
	(HRRZ@ 1 2) 
	(JUMPN 1 TAG2) 
	(HLRZ@ 3 0 P) 
	(HRRZ@ 3 3) 
	(HLRZ@ 3 3) 
	(MOVEI 2 (QUOTE 0)) 
	(MOVEI 1 (QUOTE 0)) 
	(CALL 3 (E SUBST)) 
	(MOVE 2 (SPECIAL TREE)) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 (SPECIAL TREE)) 
	(JRST 0 TAG1) 
TAG2 	(HRRZ@ 1 0 P) 
	(JUMPE 1 TAG4) 
	(TDZA 1 1) 
TAG4 	(MOVEI 1 (QUOTE T)) 
	(JUMPN 1 TAG1) 
	(HLRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(JUMPN 1 TAG5) 
	(HRRZ@ 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E NEXT)) 
	(JRST 0 TAG1) 
TAG5 	(HLRZ@ 2 0 P) 
	(HRRZ@ 2 2) 
	(HLRZ@ 1 0 P) 
	(CALL 1 (E CDAR)) 
	(CALL 2 (E CONS)) 
	(HRRZ@ 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVE 3 1) 
	(HLRZ@ 2 0 P) 
	(HLRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(MOVE 1 -1 P) 
	(CALL 3 (E PARSE)) 
TAG6 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL (LAP FINDNODE1 SUBR) 
	(PUSH P 1) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG2) 
	(MOVEI 1 (QUOTE NIL)) 
	(JRST 0 TAG1) 
TAG2 	(HLRZ@ 1 0 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG3) 
	(HRRZ@ 1 0 P) 
	(CALL 1 (E FINDNODE1)) 
	(JRST 0 TAG1) 
TAG3 	(HLRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CAME 1 (SPECIAL N)) 
	(JRST 0 TAG4) 
	(MOVE 1 0 P) 
	(JRST 0 TAG1) 
TAG4 	(HLRZ@ 1 0 P) 
	(CALL 1 (E FINDNODE1)) 
	(MOVEM 1 (SPECIAL Y)) 
	(JUMPE 1 TAG5) 
	(JRST 0 TAG1) 
TAG5 	(HRRZ@ 1 0 P) 
	(CALL 1 (E FINDNODE1)) 
TAG6 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL