'(THIS IS THE LAP FOR ((DSK MACRAK) COPY /5)) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /86 MAKLAP /80 INITIA /120) 

;COMPILED ON TUESDAY, DECEMBER 3, 1902, AT 1:08 AM

(FLUSH-MACROMEMOS 'WHILE 'FLUSH-MACROMEMOS)
(DEFPROP WHILE |WHILE MACRO| MACRO)
(LAP |WHILE MACRO| SUBR) 
(ARGS |WHILE MACRO| (()  . 1)) 
(COMMENT ARGLIST = (A &REST B)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIL 7 2) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(EXCH 1 2) 
(JSP T %NCONS) 
(MOVEI 2 'NOT) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %CONS) 
(MOVEI 2 '() ) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'WHILE) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP COPYR SUBR) 
(ARGS COPYR (()  . 1)) 
(PUSH P 1) 
(JSP T PDLNMK) 
(JUMPE 1 G0001) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(HRRZ 1 @ -1 P) 
(CALL 1 'COPYR) 
(POP P 2) 
(JSP T %XCONS) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP COPYI0 SUBR) 
(ARGS COPYI0 (()  . 1)) 
(PUSH P 1) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(PUSH P 1) 
(HRRZ 1 @ -1 P) 
(PUSH P 0 P) 
(PUSH P 1) 
G0003 
(SKIPE 0 0 P) 
(JRST 0 G0007) 
(MOVE 1 -2 P) 
(JRST 0 G0009) 
G0007 
(HRRZ 1 @ 0 P) 
(PUSH P 1) 
(HLRZ 1 @ -1 P) 
(JSP T %NCONS) 
(HRRM 1 @ -2 P) 
(MOVE 5 -2 P) 
(MOVEM 5 -2 P) 
(POP P -1 P) 
(JRST 0 G0003) 
G0009 
(SUB P (% 0 0 4 4)) 
(POPJ P) 
()  


(LAP COPYI2 SUBR) 
(ARGS COPYI2 (()  . 1)) 
(PUSH P 1) 
(JSP T PDLNMK) 
(PUSH P 1) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(PUSH P 1) 
(PUSH P 1) 
G0004 
(HRRZ 1 @ -2 P) 
(MOVEM 1 -2 P) 
(JUMPE 1 G0009) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(HRRM 1 @ 0 P) 
(MOVE 5 0 P) 
(MOVEM 5 0 P) 
(JRST 0 G0004) 
G0009 
(MOVE 1 -1 P) 
(SUB P (% 0 0 4 4)) 
(POPJ P) 
()  


(LAP COPYI4 SUBR) 
(ARGS COPYI4 (()  . 1)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(PUSH P 1) 
G0005 
(SKIPN 0 0 P) 
(JRST 0 G0008) 
(HLRZ 1 @ 0 P) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0005) 
G0008 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 3 3)) 
(POPJ P) 
()  


(LAP COPYI3 SUBR) 
(ARGS COPYI3 (()  . 1)) 
(JSP T PDLNMK) 
(PUSH P (% 0 0 '() )) 
(PUSH P 1) 
G0003 
(SKIPE 0 0 P) 
(JRST 0 G0005) 
(MOVE 1 -1 P) 
(CALL 1 'NREVERSE) 
(JRST 0 G0008) 
G0005 
(MOVE 2 -1 P) 
(HLRZ 1 @ 0 P) 
(JSP T %CONS) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0003) 
G0008 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
()  


(LAP COPYIB SUBR) 
(ARGS COPYIB (()  . 1)) 
(PUSH P 1) 
(JUMPE 1 G0005) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(PUSH P 1) 
(PUSH P 1) 
G0003 
(HRRZ 1 @ -2 P) 
(MOVEM 1 -2 P) 
(JUMPE 1 G0009) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(MOVE 5 -1 P) 
(MOVEM 5 -1 P) 
(JRST 0 G0003) 
G0009 
(POP P 1) 
(SUB P (% 0 0 1 1)) 
G0005 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()