perm filename MORE.LAP[4,LMM] blob
sn#040783 filedate 1973-05-06 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 C→
YCMR1 CYCCAT CYCMR2 EXPAND STRGEN CYCDRJ CRESOR CRECYC CRELAP) 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)
(MOVE 2. 1.)
(MOVEM 2. (SPECIAL CURRENTFILE) S)
(PUSH P 1.)
(JUMPE 1. TAG2)
(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. TAG1)
TAG2 (TDZA 1. 1.)
TAG1 (MOVEI 1. (QUOTE T) S)
(SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(SETQ CURRENTFILE NIL)