perm filename MORE.LAP[DEN,LMM] blob sn#044074 filedate 1973-05-19 generic text, type T, neo UTF8
(DEFPROP MOREFNS (MOREFNS *MIN *MAX FIX+ FILELST D CONDEVAL COLLECT (SETQ CURRENTFILE NIL)) VALUE) 

(LAP *MIN SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (CALL 2. (E *GREAT) S) 
       (JUMPE 1. TAG2) 
       (MOVE 1. 0. P) 
       (JRST 0. TAG1) 
 TAG2  (MOVE 1. -1. P) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP *MAX SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (CALL 2. (E *LESS) S) 
       (JUMPE 1. TAG2) 
       (MOVE 1. 0. P) 
       (JRST 0. TAG1) 
 TAG2  (MOVE 1. -1. P) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP FIX+ SUBR) 
       (MOVEI 2. (QUOTE 0.99999899) S) 
       (CALL 2. (E *PLUS) S) 
       (JCALL 1. (E FIX) S) 
       NIL 

(DEFPROP FILELST (FILELST FORSM DUMMY INIT FORLSP MORE CYCPRE CYCOMA CYCOMB CYCOMD CYCOME CYCOMF CYCOMG CYCOMH E→
XPAND STRGEN CYCDRJ CRESOR CRECYC CRELAP ARGLISTS FOROUT) VALUE) 

(LAP D FSUBR) 
       (PUSH P 1.) 
       (CALL 15. (E DE) S) 
       (MOVEM 1. 0. P) 
       (MOVEM 1. (SPECIAL LASTWORD) S) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (MOVE 1. (SPECIAL CURRENTFILE) S) 
       (JUMPE 1. TAG2) 
       (CALL 1. (E FILEFNS) S) 
       (MOVEM 1. -3. P) 
       (MOVE 1. (SPECIAL CURRENTFILE) S) 
       (CALL 1. (E FILEFNS) S) 
       (CALL 1. (E CONDEVAL) S) 
       (MOVE 2. -4. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (EXCH 1. -3. P) 
       (CALL 2. (E SET) S) 
       (JUMPN 1. TAG1) 
 TAG2 
 TAG1  (MOVE 1. 0. P) 
       (SUB P (C 5. 0. 5. 0.)) 
       (POPJ P) 
       NIL 

(LAP CONDEVAL SUBR) 
       (PUSH P 1.) 
       (MOVEI 2. (QUOTE VALUE) S) 
       (CALL 2. (E GET) S) 
       (JUMPN 1. TAG1) 
       (MOVEI 1. (QUOTE (NIL)) S) 
 TAG1  (HRRZ@ 1. 1.) 
       (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(LAP COLLECT SUBR) 
       (PUSH P 1.) 
       (MOVE 1. 0. P) 
       (MOVEM 1. (SPECIAL CURRENTFILE) S) 
       (MOVE 1. 0. P) 
       (JUMPE 1. TAG5) 
       (MOVE 2. (SPECIAL FILELST) S) 
       (CALL 2. (E DREMOVE) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEM 1. (SPECIAL FILELST) S) 
       (JUMPN 1. TAG4) 
 TAG5  (TDZA 1. 1.) 
 TAG4  (MOVEI 1. (QUOTE T) S) 
       (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(SETQ CURRENTFILE NIL)