(LAP NODEPICK1 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 (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. TAG10 0.)) 
       (MOVEI D (QUOTE FNODLST) S) 
       (PUSH P D) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E MAPCAR) S) 
 TAG10 (MOVEM 1. 0. P) 
       (PUSH P -4. P) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -1. P) 
       (JUMPE 1. TAG6) 
       (HLRZ@ 1. -1. P) 
       (HRRZ@ 2. 1.) 
       (CLEARM 0. -4. P) 
       (MOVEM 1. -3. P) 
       (MOVEM 2. -5. P) 
       (JUMPE 2. TAG3) 
       (MOVE 2. -2. P) 
       (HLRZ@ 1. -5. P) 
       (CALL 2. (E ASSOC) S) 
       (HRRZ@ 1. 1.) 
       (MOVEM 1. -4. P) 
 TAG2  (HRRZ@ 1. -5. P) 
       (MOVEM 1. -5. P) 
       (JUMPE 1. TAG3) 
       (MOVE 2. -2. P) 
       (HLRZ@ 1. -5. P) 
       (CALL 2. (E ASSOC) S) 
       (HRRZ@ 2. 1.) 
       (MOVE 1. -4. P) 
       (CALL 2. (E INTERSECTION) S) 
       (MOVEM 1. -4. P) 
       (JRST 0. TAG2) 
 TAG3  (PUSH P (C 0. 0. TAG20 0.)) 
       (PUSH P -1. P) 
       (MOVE 2. -6. P) 
       (HLRZ@ 1. -5. P) 
       (CALL 2. (E CONS) S) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG20 (MOVEM 1. 0. P) 
 TAG4 
 TAG5  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG1) 
 TAG6  (MOVE 1. 0. P) 
       (SUB P (C 8. 0. 8. 0.)) 
       (POPJ P) 
       NIL 

(LAP INTERSECTION SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (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. -2. P) 
       (MOVEM 1. -1. P) 
       (MOVE 2. -3. P) 
       (CALL 2. (E MEMBER) S) 
       (JUMPE 1. TAG3) 
       (PUSH P (C 0. 0. TAG12 0.)) 
       (PUSH P -1. P) 
       (MOVE 1. -3. P) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG12 (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 5. 0. 5. 0.)) 
       (POPJ P) 
       NIL 

(LAP PAUSE SUBR) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVEI 1. (QUOTE READY?) S) 
       (CALL 1. (E PRINT) S) 
       (CALL 0. (E READ) S) 
       (MOVEM 1. 0. P) 
       (CALL 1. (E ATOM) S) 
       (JUMPN 1. TAG3) 
       (MOVE 1. 0. P) 
       (CALL 1. (E *EVAL) S) 
       (CALL 1. (E PRINT) S) 
       (JRST 0. TAG1) 
 TAG3  (MOVEI 1. (QUOTE NIL)) 
       (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL