Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50075/mutils.mac
There are 2 other files named mutils.mac in the archive. Click here to see a list.
     
00010	
00020	
00030	
00040	(DEFPROP &FOR 
00050	 (LAMBDA (X) (&FOR1 (F2 (F2 X)) (F2 (F3 X)) (F4 X) (F5 X) (F6 X))) 
00060	MACRO)
00070	
00080	(DEFPROP &DOUNTIL 
00090	 (LAMBDA (X) (&LOOP1 (F1 X) (F2 (F2 X)) (F2 (F3 X)))) 
00100	MACRO)
00110	
00120	(DEFPROP &LISTUNTIL 
00130	 (LAMBDA (X) (&LOOP1 (F1 X) (F2 (F2 X)) (F2 (F3 X)))) 
00140	MACRO)
00150	
00160	(DEFPROP &WHILEDO 
00170	 (LAMBDA (X) (&LOOP1 (F1 X) (F2 (F2 X)) (F2 (F3 X)))) 
00180	MACRO)
00190	
00200	(DEFPROP &WHILELIST 
00210	 (LAMBDA (X) (&LOOP1 (F1 X) (F2 (F2 X)) (F2 (F3 X)))) 
00220	MACRO)
00230	
00240	(DEFPROP &FORLOOP 
00250	 (LAMBDA (X) (&FORLOOP1 (F2 (F2 X)) (F2 (F3 X)) (F4 X) (F5 X) (F6 X))) 
00260	MACRO)
00270	
00280	(DEFPROP F1 
00290	 (LAMBDA (X) (CONS (QUOTE CAR) (CDR X))) 
00300	MACRO)
00310	
00320	(DEFPROP F2 
00330	 (LAMBDA (X) (CONS (QUOTE CADR) (CDR X))) 
00340	MACRO)
00350	
00360	(DEFPROP F3 
00370	 (LAMBDA (X) (CONS (QUOTE CADDR) (CDR X))) 
00380	MACRO)
00390	
00400	(DEFPROP F4 
00410	 (LAMBDA (X) (CONS (QUOTE CADDDR) (CDR X))) 
00420	MACRO)
     
00010	
00020	(LAP &FOR1 SUBR) 
00030		(PUSH P 1)(PUSH P 2)(PUSH P 3)(PUSH P 4)(PUSH P 5)(PUSH P (C 0 0 (QUOTE NIL)))(CALL 1 (E ATOM))
00040		(MOVEM 1 0 P)(JUMPN 1 G0005)(HLRZ@ 1 -5 P)(MOVEM 1 -5 P)
00050	G0005 (MOVE 1 0 P)(JUMPE 1 G0010)(MOVEI 1 (QUOTE (&LST &V)))(JRST 0 G0009)
00060	G0010 (MOVE 1 -5 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE &V))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE &LST))
00070		(CALL 2 (E XCONS))
00080	G0011 
00090	G0009 (PUSH P 1)(MOVE 1 -4 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE &LST))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))
00100		(CALL 2 (E XCONS))(MOVE 2 -1 P)(PUSH P 1)(MOVE 1 -7 P)(CALL 2 (E &FOR2))(CALL 1 (E NCONS))
00110		(MOVEI 2 (QUOTE (NULL &LST)))(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE COND))
00120		(CALL 2 (E XCONS))(PUSH P 1)(HLRZ@ 2 -7 P)(JUMPE 2 G0026)(MOVEI 1 (QUOTE (CAR &LST)))
00130		(JRST 0 G0025)
00140	G0026 (MOVEI 1 (QUOTE &LST))
00150	G0028 
00160	G0025 (CALL 1 (E NCONS))(MOVE 2 -10 P)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))(CALL 2 (E XCONS))
00170		(PUSH P 1)(MOVE 1 -6 P)(JUMPE 1 G0035)(HRRZ@ 2 -10 P)(JUMPE 2 G0037)(CALL 1 (E CADR))
00180		(JRST 0 G0036)
00190	G0037 (HRRZ@ 1 -6 P)(HLRZ@ 1 1)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE &V))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE APPEND))
00200		(CALL 2 (E XCONS))
00210	G0040 
00220	G0036 (CALL 1 (E NCONS))(MOVEI 2 (QUOTE &V))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))(CALL 2 (E XCONS))
00230		(CALL 1 (E NCONS))
00240	G0035 (PUSH P 1)(MOVE 1 -6 P)(JUMPE 1 G0053)(MOVEI 1 (QUOTE (RETURN &V)))(CALL 1 (E NCONS))
00250		(HRRZ@ 2 -6 P)(HLRZ@ 2 2)(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE COND))
00260		(CALL 2 (E XCONS))(CALL 1 (E NCONS))
00270	G0053 (MOVEI 2 (QUOTE ((SETQ &LST (CDR &LST)) (GO L))))(CALL 2 (E *APPEND))(MOVE 2 1)(POP P 1)
00280		(CALL 2 (E *APPEND))(POP P 2)(CALL 2 (E XCONS))(POP P 2)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE L))
00290		(CALL 2 (E XCONS))(POP P 2)(CALL 2 (E XCONS))(POP P 2)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE PROG))
00300		(SUB P (C 0 0 6 6))(JCALL 2 (E XCONS))
00310	NIL 
00320	
00330	
00340	(LAP &FOR2 SUBR) 
00350		(PUSH P 1)(PUSH P 2)(JUMPE 2 G0002)(MOVEI 1 (QUOTE NIL))(CALL 1 (E NCONS))(MOVE 2 -1 P)
00360		(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))(CALL 2 (E XCONS))(PUSH P 1)(MOVEI 1 (QUOTE &V))
00370		(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE PROG2))(CALL 2 (E XCONS))
00380		(CALL 1 (E NCONS))(MOVEI 2 (QUOTE RETURN))(CALL 2 (E XCONS))(JRST 0 G0001)
00390	G0002 (MOVEI 1 (QUOTE (RETURN &V)))
00400	G0011 
00410	G0001 (SUB P (C 0 0 2 2))(POPJ P)
00420	NIL 
00430	
00440	
00450	(LAP &FORLOOP1 SUBR) 
00460		(PUSH P 1)(HLRZ@ 1 2)(PUSH P 1)(HRRZ@ 1 2)(HLRZ@ 1 1)(PUSH P 1)(HRRZ@ 1 2)(CALL 1 (E CADR))
00470		(PUSH P 1)(PUSH P 3)(PUSH P 4)(PUSH P 5)(PUSH P (C 0 0 (QUOTE NIL)))(MOVE 1 -7 P)
00480		(CALL 1 (E ATOM))(MOVEM 1 0 P)(JUMPN 1 G0008)(HLRZ@ 1 -7 P)(MOVEM 1 -7 P)
00490	G0008 (MOVE 1 -5 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0013)(MOVEI 1 (QUOTE NIL))(JRST 0 G0012)
00500	G0013 (MOVEI 1 (QUOTE (&UPPER)))
00510	G0015 
00520	G0012 (PUSH P 1)(MOVE 1 -5 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0019)(MOVEI 1 (QUOTE (&V)))(JRST 0 G0018)
00530	G0019 (MOVEI 1 (QUOTE (&V &INC &POS)))
00540	G0021 
00550	G0018 (PUSH P 1)(MOVE 2 -2 P)(JUMPE 2 G0025)(MOVEI 2 (QUOTE NIL))(JRST 0 G0024)
00560	G0025 (MOVE 1 -11 P)(CALL 1 (E NCONS))(MOVE 2 1)
00570	G0026 
00580	G0024 (POP P 1)(CALL 2 (E *APPEND))(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))(PUSH P 1)(MOVE 1 -7 P)
00590		(CALL 1 (E NCONS))(MOVE 2 -10 P)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))(CALL 2 (E XCONS))
00600		(PUSH P 1)(MOVE 1 -7 P)(CALL 1 (E NUMBERP))(JUMPN 1 G0036)(MOVE 1 -7 P)(CALL 1 (E NCONS))
00610		(MOVEI 2 (QUOTE &UPPER))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))(CALL 2 (E XCONS))
00620		(CALL 1 (E NCONS))(JRST 0 G0035)
00630	G0036 (MOVEI 1 (QUOTE NIL))
00640	G0035 (PUSH P 1)(MOVE 1 -7 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0045)(MOVE 1 -7 P)(CALL 1 (E ZEROP))
00650		(JUMPE 1 G0044)
00660	G0045 (MOVE 1 -7 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE &INC))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))
00670		(CALL 2 (E XCONS))(PUSH P 1)(MOVEI 1 (QUOTE "RUN ERROR IN FOR-LOOP: ZERO INCREMENT;  CONTROL VARIABLE IS~
00680	 "))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE QUOTE))(CALL 2 (E XCONS))(PUSH P 1)(MOVE 1 -14 P)(CALL 1 (E NCONS))
00690		(MOVEI 2 (QUOTE QUOTE))(CALL 2 (E XCONS))(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))
00700		(MOVEI 2 (QUOTE CAT))(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE PRINTSTR))
00710		(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE RETURN))(CALL 2 (E XCONS))(CALL 1 (E NCONS))
00720		(MOVEI 2 (QUOTE (ZEROP &INC)))(CALL 2 (E XCONS))(PUSH P 1)(MOVEI 1 (QUOTE ((GREATERP &INC 0) (SETQ &POS ~
00730	T))))(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE COND))(CALL 2 (E XCONS))
00740		(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))
00750	G0044 (PUSH P 1)(MOVE 1 -10 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0071)(MOVEI 2 (QUOTE 0))(MOVE 1 -10 P)
00760		(CALL 2 (E *GREAT))(JUMPE 1 G0074)(MOVEI 1 (QUOTE GREATERP))(JRST 0 G0073)
00770	G0074 (MOVEI 1 (QUOTE LESSP))
00780	G0076 
00790	G0073 (PUSH P 1)(MOVE 1 -12 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0080)(MOVE 1 -12 P)(JRST 0 G0079)
00800	G0080 (MOVEI 1 (QUOTE &UPPER))
00810	G0082 
00820	G0079 (CALL 1 (E NCONS))(MOVE 2 -14 P)(CALL 2 (E XCONS))(POP P 2)(CALL 2 (E XCONS))(MOVE 2 -4 P)
00830		(PUSH P 1)(MOVE 1 -14 P)(CALL 2 (E &FOR2))(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))
00840		(CALL 1 (E NCONS))(MOVEI 2 (QUOTE COND))(CALL 2 (E XCONS))(JRST 0 G0070)
00850	G0071 (MOVE 1 -11 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0096)(MOVE 1 -11 P)(JRST 0 G0095)
00860	G0096 (MOVEI 1 (QUOTE &UPPER))
00870	G0098 
00880	G0095 (CALL 1 (E NCONS))(MOVE 2 -13 P)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE GREATERP))(CALL 2 (E XCONS))
00890		(MOVE 2 -4 P)(PUSH P 1)(MOVE 1 -14 P)(CALL 2 (E &FOR2))(CALL 1 (E NCONS))(POP P 2)
00900		(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE COND))(CALL 2 (E XCONS))(CALL 1 (E NCONS))
00910		(MOVEI 2 (QUOTE &POS))(CALL 2 (E XCONS))(PUSH P 1)(MOVE 1 -12 P)(CALL 1 (E NUMBERP))
00920		(JUMPE 1 G0112)(MOVE 1 -12 P)(JRST 0 G0111)
00930	G0112 (MOVEI 1 (QUOTE &UPPER))
00940	G0114 
00950	G0111 (CALL 1 (E NCONS))(MOVE 2 -14 P)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE LESSP))(CALL 2 (E XCONS))
00960		(MOVE 2 -5 P)(PUSH P 1)(MOVE 1 -15 P)(CALL 2 (E &FOR2))(CALL 1 (E NCONS))(POP P 2)
00970		(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE COND))(CALL 2 (E XCONS))(CALL 1 (E NCONS))
00980		(MOVEI 2 (QUOTE T))(CALL 2 (E XCONS))(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))
00990		(MOVEI 2 (QUOTE COND))(CALL 2 (E XCONS))
01000	G0093 
01010	G0070 (PUSH P 1)(MOVE 1 -7 P)(JUMPE 1 G0132)(MOVE 1 -10 P)(JUMPE 1 G0134)(HRRZ@ 1 -7 P)(HLRZ@ 1 1)
01020		(JRST 0 G0133)
01030	G0134 (HRRZ@ 1 -7 P)(HLRZ@ 1 1)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE &V))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE APPEND))
01040		(CALL 2 (E XCONS))
01050	G0136 
01060	G0133 (CALL 1 (E NCONS))(MOVEI 2 (QUOTE &V))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))(CALL 2 (E XCONS))
01070		(CALL 1 (E NCONS))
01080	G0132 (PUSH P 1)(MOVE 1 -7 P)(JUMPE 1 G0149)(MOVEI 1 (QUOTE (RETURN &V)))(CALL 1 (E NCONS))
01090		(HRRZ@ 2 -7 P)(HLRZ@ 2 2)(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE COND))
01100		(CALL 2 (E XCONS))(CALL 1 (E NCONS))
01110	G0149 (PUSH P 1)(MOVEI 2 (QUOTE 1))(MOVE 1 -13 P)(CALL 2 (E EQUAL))(JUMPE 1 G0158)(MOVE 1 -16 P)
01120		(CALL 1 (E NCONS))(MOVEI 2 (QUOTE ADD1))(CALL 2 (E XCONS))(JRST 0 G0157)
01130	G0158 (MOVE 1 -13 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0165)(MOVE 1 -13 P)(JRST 0 G0164)
01140	G0165 (MOVEI 1 (QUOTE &INC))
01150	G0167 
01160	G0164 (CALL 1 (E NCONS))(MOVE 2 -16 P)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE PLUS))(CALL 2 (E XCONS))
01170	G0162 
01180	G0157 (CALL 1 (E NCONS))(MOVE 2 -16 P)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))(CALL 2 (E XCONS))
01190		(MOVEI 2 (QUOTE ((GO L))))(CALL 2 (E CONS))(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))
01200		(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))(POP P 2)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE L))
01210		(CALL 2 (E XCONS))(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))
01220		(POP P 2)(CALL 2 (E XCONS))(POP P 2)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE PROG))(SUB P (C 0 0 10 10))
01230		(JCALL 2 (E XCONS))
01240	NIL 
01250	
01260	
01270	(LAP &LOOP1 SUBR) 
01280		(PUSH P 1)(PUSH P 2)(PUSH P 3)(CAIE 1 (QUOTE &DOUNTIL))(JRST 0 G0002)(EXCH 1 2)(CALL 1 (E NCONS))
01290		(MOVEI 2 (QUOTE &V))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))(CALL 2 (E XCONS))(PUSH P 1)
01300		(MOVEI 1 (QUOTE (RETURN &V)))(CALL 1 (E NCONS))(MOVE 2 3)(CALL 2 (E XCONS))(CALL 1 (E NCONS))
01310		(MOVEI 2 (QUOTE COND))(CALL 2 (E XCONS))(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))
01320		(JRST 0 G0001)
01330	G0002 (CAIE 1 (QUOTE &LISTUNTIL))(JRST 0 G0012)(EXCH 1 2)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE &V))
01340		(CALL 2 (E XCONS))(MOVEI 2 (QUOTE APPEND))(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE &V))
01350		(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))(CALL 2 (E XCONS))(PUSH P 1)(MOVEI 1 (QUOTE (RETURN &V)))
01360		(CALL 1 (E NCONS))(MOVE 2 3)(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE COND))
01370		(CALL 2 (E XCONS))(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))(JRST 0 G0001)
01380	G0012 (CAIE 1 (QUOTE &WHILEDO))(JRST 0 G0025)(EXCH 1 3)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE &V))
01390		(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVE 2 -1 P)
01400		(CALL 2 (E XCONS))(PUSH P 1)(MOVEI 1 (QUOTE (T (RETURN &V))))(CALL 1 (E NCONS))(POP P 2)
01410		(CALL 2 (E XCONS))(MOVEI 2 (QUOTE COND))(CALL 2 (E XCONS))(CALL 1 (E NCONS))(JRST 0 G0001)
01420	G0025 (CAIE 1 (QUOTE &WHILELIST))(JRST 0 G0035)(EXCH 1 3)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE &V))
01430		(CALL 2 (E XCONS))(MOVEI 2 (QUOTE APPEND))(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE &V))
01440		(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVE 2 -1 P)
01450		(CALL 2 (E XCONS))(PUSH P 1)(MOVEI 1 (QUOTE (T (RETURN &V))))(CALL 1 (E NCONS))(POP P 2)
01460		(CALL 2 (E XCONS))(MOVEI 2 (QUOTE COND))(CALL 2 (E XCONS))(CALL 1 (E NCONS))(JRST 0 G0001)
01470	G0035 (MOVEI 1 (QUOTE NIL))
01480	G0001 (MOVEI 2 (QUOTE ((GO L))))(CALL 2 (E *APPEND))(MOVEI 2 (QUOTE L))(CALL 2 (E XCONS))
01490		(MOVEI 2 (QUOTE (&V)))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE PROG))(SUB P (C 0 0 3 3))
01500		(JCALL 2 (E XCONS))
01510	NIL 
01520	
     
00010	
00020	(LAP F5 SUBR) 
00030		(CALL 1 (E CDDDDR))(HLRZ@ 1 1)(POPJ P)
00040	NIL 
00050	
00060	
00070	(LAP F6 SUBR) 
00080		(CALL 1 (E CDDDDR))(JCALL 1 (E CADR))
00090	NIL 
00100	
00110	
00120	(LAP F7 SUBR) 
00130		(CALL 1 (E CDDDDR))(JCALL 1 (E CADDR))
00140	NIL 
00150	
00160	
00170	(LAP F8 SUBR) 
00180		(CALL 1 (E CDDDDR))(JCALL 1 (E CADDDR))
00190	NIL 
00200	
00210	
00220	(LAP F9 SUBR) 
00230		(CALL 1 (E CDDDDR))(CALL 1 (E CDDDDR))(HLRZ@ 1 1)(POPJ P)
00240	NIL 
00250	
00260	
00270	(LAP STR SUBR) 
00280		(PUSH P (SPECIAL DBQUOTE))(CALL 1 (E EXPLODEC))(PUSH P 1)(MOVE 1 (SPECIAL DBQUOTE))
00290		(CALL 1 (E NCONS))(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))(POP P 2)(CALL 2 (E XCONS))
00300		(JCALL 1 (E READLIST))
00310	NIL 
00320	
00330	
00340	(LAP AT SUBR) 
00350		(CALL 1 (E EXPLODEC))(JCALL 1 (E READLIST))
00360	NIL 
00370	
00380	
00390	(LAP CAT SUBR) 
00400		(PUSH P (SPECIAL DBQUOTE))(PUSH P 2)(CALL 1 (E EXPLODEC))(EXCH 1 0 P)(CALL 1 (E EXPLODEC))
00410		(PUSH P 1)(MOVE 1 (SPECIAL DBQUOTE))(CALL 1 (E NCONS))(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))
00420		(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))(POP P 2)(CALL 2 (E XCONS))(JCALL 1 (E READLIST))
00430	NIL 
00440	
00450	
00460	(LAP SUBSTR SUBR) 
00470		(PUSH P (SPECIAL DBQUOTE))(PUSH P 1)(PUSH P 2)(PUSH P 3)(EXCH 1 3)(CALL 1 (E NUMBERP))
00480		(JUMPE 1 G0002)(EXCH 1 3)(CALL 1 (E EXPLODEC))(PUSH P 1)(MOVE 1 -2 P)(CALL 1 (E SUB1))
00490		(MOVE 2 1)(POP P 1)(CALL 2 (E SUFLIST))(MOVE 2 0 P)(CALL 2 (E PRELIST))(JRST 0 G0001)
00500	G0002 (MOVE 1 -2 P)(CALL 1 (E EXPLODEC))(PUSH P 1)(MOVE 1 -2 P)(CALL 1 (E SUB1))(MOVE 2 1)
00510		(POP P 1)(CALL 2 (E SUFLIST))
00520	G0008 
00530	G0001 (MOVEM 1 0 P)(MOVE 1 (SPECIAL DBQUOTE))(CALL 1 (E NCONS))(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))
00540		(MOVE 2 -2 P)(CALL 2 (E XCONS))(SUB P (C 0 0 3 3))(JCALL 1 (E READLIST))
00550	NIL 
00560	
00570	
00580	(LAP PRELIST SUBR) 
00590		(PUSH P 1)(PUSH P 2)(MOVEI 2 (QUOTE 0))(MOVE 1 0 P)(CALL 2 (E EQUAL))(JUMPN 1 G0003)
00600		(MOVE 1 -1 P)(JUMPN 1 G0002)
00610	G0003 (MOVEI 1 (QUOTE NIL))(JRST 0 G0001)
00620	G0002 (HLRZ@ 1 -1 P)(PUSH P 1)(HRRZ@ 1 -2 P)(PUSH P 1)(MOVE 1 -2 P)(CALL 1 (E SUB1))(MOVE 2 1)
00630		(POP P 1)(CALL 2 (E PRELIST))(POP P 2)(CALL 2 (E XCONS))
00640	G0005 
00650	G0001 (SUB P (C 0 0 2 2))(POPJ P)
00660	NIL 
00670	
00680	
00690	(LAP SUFLIST SUBR) 
00700		(PUSH P 1)(PUSH P 2)(MOVEI 2 (QUOTE 0))(MOVE 1 0 P)(CALL 2 (E EQUAL))(JUMPN 1 G0003)
00710		(MOVE 1 -1 P)(JUMPN 1 G0002)
00720	G0003 (MOVE 1 -1 P)(JRST 0 G0001)
00730	G0002 (HRRZ@ 1 -1 P)(PUSH P 1)(MOVE 1 -1 P)(CALL 1 (E SUB1))(MOVE 2 1)(POP P 1)(CALL 2 (E SUFLIST))
00740	G0005 
00750	G0001 (SUB P (C 0 0 2 2))(POPJ P)
00760	NIL 
00770	
00780	
00790	(LAP PRINTSTR SUBR) 
00800		(CALL 1 (E PRINC))(MOVEI 1 (QUOTE NIL))(JCALL 1 (E TERPRI))
00810	NIL 
00820	
00830	
00840	(LAP NEQ SUBR) 
00850		(CAME 1 2)(JRST 0 G0001)(TDZA 1 1)
00860	G0001 (MOVEI 1 T)(POPJ P)
00870	NIL 
00880	
00890	
00900	(LAP NEQUAL SUBR) 
00910		(CALL 2 (E EQUAL))(JUMPE 1 G0001)(TDZA 1 1)
00920	G0001 (MOVEI 1 T)(POPJ P)
00930	NIL 
00940	
00950	
00960	(LAP SEQ SUBR) 
00970		(PUSH P 2)(CALL 1 (E EXPLODE))(EXCH 1 0 P)(CALL 1 (E EXPLODE))(POP P 2)(JCALL 2 (E EQUAL))
00980	NIL 
00990	
     
00010	
00020	(SETQ IBASE (ADD1 7)) 
00030	(DEFPROP COMPLR (NIL SPVARS MACROS SPFL LOCVARS CLIST EFFS %NACS NINUM0 %PROGBRK LDLST SPLDLST LO HI NO ARGNO %P~
00040	ROGBRK BVARS DATA CHAN RSL RSSL PRSSL CTAG VGO VGOL EXIT EXITN PVR LOUT LIS END G2 SFLG SLOTLIST CNT GL PVRL PRO~
00050	GSW IVAR LSUBRF VL RNL P1SCNT P1STCNT P1SCV P1LL HLAC %FLAG %NAME %EXP %INCR COMPL DEVP %ONEPASS OFL IFL LISTING~
00060	 %LSTDEV COMPILE %COM1 %CMP %COM2 %CMP1 %FREEZE %CWORLD %COMP1 %COMP %COMPE %COMPW %NACS1 %NACS %LOAD %P1BUG %CL~
00070	RACS %OPUSH %OPOP %OPUSHS %P1CDC %LOCATE %RESTORE %R1 %BARF %DVP %COMSTO %COMPFUNC %COMPLC %P2LAM %CRET %CSTQ %C~
00080	SPLD3 %CSPLD2 %CSPLD1 %CSFUN %CSPLD %CSPVAR %P1A %P1LMB %P1LAM %P1 %GFY %P1PSTP %P1PROG %OUTG %CPROG %CPVRL %INI~
00090	TZ %VARB LOSERFLAG %LOSERP %LOAD1 %LOC %ILOC %ILOC1 %CARCDR %CSTEP %COPT %PHASE2 %NPDL %LMB %CONT %CONTENTS %OUT~
00100	PT %OUT1 %ADD %CPUSH %SPECIALP %REMOVL %REMOVS %REMOVE %REM1 %BOOL1 %RSLSET %BOOL2 %BOOL3 %FRAC1 %RST %ASSOCR %B~
00110	OOL4 %ITER %OUTJ %ADR %FREAC %OUTTAG %COMARG %COMSETARG %INDEX %FIND %SPUSH %SPOP %PLOC %PRINTTY %DOCOND SPECIAL~
00120	 %CLEAR %CLEAR1) VALUE) 
00130	(DEFPROP %NACS (NIL . 5) VALUE) 
00140	(DEFPROP NINUM0 (NIL . -577777) VALUE) 
00150	(DEFPROP %PROGBRK (NIL . 0) VALUE) 
00160	(DEFPROP %PROGBRK (NIL . 0) VALUE) 
00170	(LAP COMPL FSUBR) 
00180		(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(MOVE 1 (SPECIAL LISTING))
00190		(JUMPE 1 G0006)(MOVEI 2 (QUOTE LST))(CALL 2 (E XCONS))(CALL 17 (E OUTPUT))
00200	G0006 (MOVEM 1 (SPECIAL %LSTDEV))(MOVE 2 (SPECIAL %ONEPASS))(MOVE 3 -2 P)(MOVEI 4 (QUOTE 0))
00210		(MOVEM 4 (SPECIAL %PROGBRK))(MOVEM 2 0 P)(MOVEM 3 -1 P)
00220	G0001 (MOVE 1 -1 P)(JUMPN 1 G0011)(MOVE 1 0 P)(JUMPE 1 G0013)(MOVEI 2 (QUOTE NIL))(MOVE 1 (SPECIAL %LSTDEV))
00230		(CALL 2 (E OUTC))(CLEARM 1 (SPECIAL %LSTDEV))(MOVEI 2 (QUOTE T))(MOVEI 1 (QUOTE NIL))
00240		(CALL 2 (E OUTC))(MOVEI 2 (QUOTE (PROGRAM BREAK)))(MOVE 1 (SPECIAL %PROGBRK))(CALL 2 (E CONS))
00250		(JRST 0 G0002)
00260	G0013 (MOVEI 1 (QUOTE T))(MOVE 2 -2 P)(MOVEM 1 0 P)(MOVEM 2 -1 P)
00270	G0018 
00280	G0011 (HLRZ@ 1 -1 P)(CALL 1 (E DEVP))(JUMPE 1 G0023)(HLRZ@ 1 -1 P)(MOVEM 1 (SPECIAL IFL))
00290		(HRRZ@ 1 -1 P)(MOVEM 1 -1 P)
00300	G0023 (HLRZ@ 1 -1 P)(CALL 1 (E NCONS))(MOVE 2 (SPECIAL IFL))(CALL 2 (E XCONS))(CALL 17 (E INPUT))
00310		(PUSH P (SPECIAL OFL))(HLRZ@ 1 -2 P)(CALL 1 (E ATOM))(JUMPE 1 G0034)(HLRZ@ 1 -2 P)
00320		(JRST 0 G0033)
00330	G0034 (HLRZ@ 1 -2 P)(HLRZ@ 1 1)
00340	G0038 
00350	G0033 (MOVEI 2 (QUOTE LAP))(CALL 2 (E CONS))(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))
00360		(CALL 17 (E OUTPUT))(MOVEI 2 (QUOTE NIL))(MOVEI 1 (QUOTE T))(CALL 2 (E INC))(MOVE 1 0 P)
00370		(JUMPE 1 G0048)(MOVEI 2 (QUOTE T))(MOVE 1 2)(CALL 2 (E OUTC))(JUMPN 1 G0047)
00380	G0048 
00390	G0047 (MOVE 1 0 P)(CALL 1 (E %CMP1))(MOVEI 2 (QUOTE T))(MOVEI 1 (QUOTE NIL))(CALL 2 (E OUTC))
00400		(MOVEI 2 (QUOTE T))(MOVEI 1 (QUOTE NIL))(CALL 2 (E INC))(HLRZ@ 1 -1 P)(CALL 1 (E PRINT))
00410		(HRRZ@ 1 -1 P)(MOVEM 1 -1 P)(JRST 0 G0001)
00420	G0002 (SUB P (C 0 0 3 3))(POPJ P)
00430	NIL 
00440	
00450	
00460	(LAP DEVP SUBR) 
00470		(PUSH P 1)(CALL 1 (E EXPLODE))(CALL 1 (E LAST))(HLRZ@ 2 1)(CAIN 2 (QUOTE :))(JRST 0 G0001)
00480		(MOVE 1 0 P)(CALL 1 (E ATOM))(JUMPN 1 G0006)(HRRZ@ 1 0 P)(CALL 1 (E ATOM))(JUMPE 1 G0001)
00490	G0006 (TDZA 1 1)
00500	G0001 (MOVEI 1 T)(SUB P (C 0 0 1 1))(POPJ P)
00510	NIL 
00520	
00530	
00540	(DEFPROP %ONEPASS (NIL . T) VALUE) 
00550	(DEFPROP OFL (NIL . DSK:) VALUE) 
00560	(DEFPROP IFL (NIL . DSK:) VALUE) 
00570	(DEFPROP LISTING (NIL) VALUE) 
00580	(DEFPROP %LSTDEV (NIL) VALUE) 
00590	(LAP COMPILE#1 SUBR) 
00600		(PUSH P 1)(MOVEI 2 (QUOTE (EXPR FEXPR)))(CALL 2 (E GETL))(MOVEM 1 (SPECIAL DATA))
00610		(JUMPE 1 G0003)(HRRZ@ 3 1)(HLRZ@ 3 3)(HLRZ@ 2 1)(MOVE 1 0 P)(CALL 3 (E %COM1))
00620	G0003 (SUB P (C 0 0 1 1))(POPJ P)
00630	NIL 
00640	
00650	
00660	(LAP COMPILE FSUBR) 
00670		(JSP 6 SPECBIND)(0 0 (SPECIAL DATA))(PUSH P 1)
00680	G0001 (MOVE 2 0 P)(MOVEI 1 (QUOTE COMPILE#1))(CALL 2 (E MAPCAR))(MOVEM 1 (SPECIAL DATA))(CALL 1 (E %PRINTTY))
00690		(SUB P (C 0 0 1 1))(JRST 0 SPECSTR)
00700	NIL 
00710	
00720	
00730	(LAP %COM1#1 SUBR) 
00740		(MOVE 3 (SPECIAL %EXP))(MOVE 2 (SPECIAL %FLAG))(MOVE 1 (SPECIAL %NAME))(JCALL 3 (E %COM2))
00750	NIL 
00760	
00770	
00780	(LAP %COM1 SUBR) 
00790		(JSP 6 SPECBIND)(0 1 (SPECIAL %NAME))(0 2 (SPECIAL %FLAG))(0 3 (SPECIAL %EXP))(PUSH P (SPECIAL %NAME))
00800		(MOVEM 1 (SPECIAL %NAME))(MOVEI 4 (QUOTE 0))(MOVEM 4 (SPECIAL %G0CNT))(MOVEI 1 (QUOTE (G0000)))
00810		(CALL 17 (E CSYM))(MOVEI 1 (QUOTE ((%COM1#1))))(CALL 17 (E ERRSET))(CALL 1 (E ATOM))
00820		(JUMPE 1 G0007)(MOVEI 1 (QUOTE ***LOSE))(JRST 0 G0006)
00830	G0007 (MOVE 1 (SPECIAL %NAME))
00840	G0010 
00850	G0006 (SUB P (C 0 0 1 1))(JRST 0 SPECSTR)
00860	NIL 
00870	
00880	
00890	(LAP %CMP FSUBR) 
00900		(MOVEI 3 (QUOTE EXPR))(HLRZ@ 2 1)(MOVEI 1 (QUOTE TRY))(CALL 3 (E PUTPROP))(MOVEI 1 (QUOTE (TRY)))
00910		(JCALL 17 (E COMPILE))
00920	NIL 
00930	
00940	
00950	(LAP %COM2 SUBR) 
00960		(JSP 6 SPECBIND)(0 0 (SPECIAL LOUT))(0 0 (SPECIAL SPVARS))(0 0 (SPECIAL LOCVARS))
00970		(0 0 (SPECIAL CNT))(0 0 (SPECIAL LSUBRF))(PUSH P 1)(PUSH P 2)(PUSH P 3)(PUSH P (C 0 0 (QUOTE NIL)))
00980		(CAIE 2 (QUOTE EXPR))(JRST 0 G0006)(MOVEI 2 (QUOTE SUBR))(MOVEM 2 -2 P)(JRST 0 G0005)
00990	G0006 (CAIE 2 (QUOTE FEXPR))(JRST 0 G0007)(MOVEI 2 (QUOTE FSUBR))(MOVEM 2 -2 P)
01000	G0007 
01010	G0005 (MOVE 1 -1 P)(CALL 1 (E %P1A))(CLEARM 1 (SPECIAL DATA))(MOVEM 1 -1 P)(MOVE 1 (SPECIAL LSUBRF))
01020		(JUMPE 1 G0011)(MOVEI 1 (QUOTE LSUBR))(JRST 0 G0010)
01030	G0011 (MOVE 1 -2 P)
01040	G0012 
01050	G0010 (CALL 1 (E NCONS))(MOVE 2 -3 P)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE LAP))(CALL 2 (E XCONS))
01060		(CALL 1 (E PRINT))(CALL 0 (E TERPRI))(MOVEI 1 (QUOTE 11))(CALL 1 (E TYO))(MOVEI 2 (QUOTE %FOO))
01070		(MOVEM 2 (SPECIAL LOUT))(MOVE 3 (SPECIAL CNT))(EXCH 1 -1 P)(MOVEM 3 0 P)(CALL 1 (E %PHASE2))
01080		(MOVEI 1 (QUOTE NIL))(CALL 1 (E %OUTPT))(CALL 1 (E %OUTPT))(CALL 0 (E TERPRI))(CALL 0 (E TERPRI))
01090		(MOVE 1 (SPECIAL CNT))(CAMN 1 0 P)(JRST 0 G0027)(CALL 1 (E NCONS))(MOVE 2 0 P)(CALL 2 (E XCONS))
01100		(CALL 1 (E %PRINTTY))
01110	G0027 
01120	G0001 (MOVE 1 -3 P)(SUB P (C 0 0 4 4))(JRST 0 SPECSTR)
01130	NIL 
01140	
01150	
01160	(LAP %CMP1#1 SUBR) 
01170		(JCALL 0 (E READ))
01180	NIL 
01190	
01200	
01210	(LAP %CMP1 SUBR) 
01220		(JSP 6 SPECBIND)(0 0 (SPECIAL DATA))(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
01230	G0001 (MOVEI 1 (QUOTE ((%CMP1#1) T)))(CALL 17 (E ERRSET))(MOVEM 1 (SPECIAL DATA))(CALL 1 (E ATOM))
01240		(JUMPE 1 G0007)(MOVEI 1 (QUOTE T))(JRST 0 G0003)
01250	G0007 (HLRZ@ 1 (SPECIAL DATA))(MOVEM 1 (SPECIAL DATA))(CALL 1 (E ATOM))(JUMPN 1 G0006)(HLRZ@ 1 (SPECIAL DATA))
01260		(CAIE 1 (QUOTE DEFPROP))(JRST 0 G0013)(HRRZ@ 1 (SPECIAL DATA))(CALL 1 (E CADDR))(MOVEI 2 (QUOTE ((EXPR .~
01270	 *EXPR) (FEXPR . *FEXPR))))(MOVEM 1 -1 P)(CALL 2 (E ASSOC))(MOVEM 1 0 P)(JUMPE 1 G0013)(HRRZ@ 1 0 P)
01280		(CAIE 1 (QUOTE *FEXPR))(JRST 0 G0019)(MOVEI 2 (QUOTE *EXPR))(HRRZ@ 1 (SPECIAL DATA))
01290		(HLRZ@ 1 1)(CALL 2 (E GET))(JUMPE 1 G0019)(MOVEI 1 (QUOTE (ILLEGAL FORWARD REFERENCE TO FEXPR)))
01300		(CALL 1 (E %PRINTTY))
01310	G0019 (HRRZ@ 3 0 P)(MOVEI 2 (QUOTE T))(HRRZ@ 1 (SPECIAL DATA))(HLRZ@ 1 1)(CALL 3 (E PUTPROP))
01320		(MOVE 1 -2 P)(JUMPE 1 G0030)(HRRZ@ 1 (SPECIAL DATA))(HLRZ@ 1 1)(HRRZ@ 3 (SPECIAL DATA))
01330		(HRRZ@ 3 3)(HLRZ@ 3 3)(MOVE 2 -1 P)(MOVEM 1 0 P)(CALL 3 (E %COM1))(MOVE 1 0 P)(CALL 1 (E %PRINTTY))
01340	G0030 (JRST 0 G0006)
01350	G0013 (HLRZ@ 1 (SPECIAL DATA))(CAIE 1 (QUOTE DEFPROP))(JRST 0 G0036)(MOVEI 2 (QUOTE (MACRO SPECIAL)))
01360		(HRRZ@ 1 (SPECIAL DATA))(CALL 1 (E CADDR))(CALL 2 (E MEMQ))(JUMPE 1 G0036)(MOVE 1 (SPECIAL DATA))
01370		(CALL 1 (E *EVAL))(JRST 0 G0006)
01380	G0036 (HRRZ@ 1 (SPECIAL DATA))(HLRZ@ 1 1)(CAIE 1 (QUOTE IBASE))(JRST 0 G0042)(MOVE 1 (SPECIAL DATA))
01390		(CALL 1 (E *EVAL))(MOVE 2 (SPECIAL IBASE))(MOVEM 2 (SPECIAL BASE))(MOVE 1 (SPECIAL DATA))
01400		(CALL 1 (E PRINT))(JRST 0 G0006)
01410	G0042 (MOVE 1 -2 P)(JUMPE 1 G0046)(MOVE 1 (SPECIAL DATA))(CALL 1 (E PRINT))
01420	G0046 
01430	G0006 (JRST 0 G0001)
01440	G0003 (SUB P (C 0 0 3 3))(JRST 0 SPECSTR)
01450	NIL 
01460	
01470	
01480	(LAP %FREEZE SUBR) 
01490		(PUSH P (SPECIAL SLOTLIST))(PUSH P 1)
01500	G0001 (MOVE 1 -1 P)(JUMPE 1 G0003)(CALL 1 (E CAAR))(CAME 1 0 P)(JRST 0 G0006)(HLRZ@ 2 -1 P)
01510		(HRRZ@ 2 2)(JUMPN 2 G0009)(MOVE 2 (SPECIAL CNT))(MOVE 1 0 P)(CALL 2 (E CONS))(HRLM@ 1 -1 P)
01520		(JRST 0 G0008)
01530	G0009 (CAIE 2 (QUOTE DUP))(JRST 0 G0012)(HRRZS@ 0 -1 P)
01540	G0012 
01550	G0008 
01560	G0006 (HRRZ@ 1 -1 P)(MOVEM 1 -1 P)(JRST 0 G0001)
01570	G0003 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 2 2))(POPJ P)
01580	NIL 
01590	
01600	
01610	(LAP %CWORLD SUBR) 
01620		(PUSH P (C 0 0 (QUOTE 0)))
01630	G0001 (MOVE 1 0 P)(CAMN 1 (SPECIAL %NACS))(JRST 0 G0003)(MOVE 1 0 P)(CALL 1 (E ADD1))(MOVEM 1 0 P)
01640		(CALL 1 (E %CPUSH))(JRST 0 G0001)
01650	G0003 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 1 1))(POPJ P)
01660	NIL 
01670	
01680	
01690	(LAP %COMP1 SUBR) 
01700		(JSP 6 SPECBIND)(0 2 (SPECIAL ARGNO))(CALL 1 (E %COMP))(JRST 0 SPECSTR)
01710	NIL 
01720	
01730	
01740	(LAP %COMP SUBR) 
01750		(MOVEI 2 (QUOTE NIL))(JCALL 2 (E %COMPW))
01760	NIL 
01770	
01780	
01790	(LAP %COMPE SUBR) 
01800		(MOVEI 2 (QUOTE T))(CALL 2 (E %COMPW))(JCALL 1 (E %REMOVE))
01810	NIL 
01820	
01830	
01840	(LAP %COMPW SUBR) 
01850		(JSP 6 SPECBIND)(0 2 (SPECIAL EFFS))(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))(CALL 1 (E ATOM))
01860		(JUMPN 1 G0001)(HLRZ@ 1 -1 P)(CALL 1 (E ATOM))(JUMPE 1 G0008)(MOVEI 2 (QUOTE OPEN))
01870		(HLRZ@ 1 -1 P)(CALL 2 (E GET))(JUMPE 1 G0008)(CALL 0 (E GENSYM))(MOVEM 1 0 P)(HLRZ@ 1 -1 P)
01880		(PUSH P 1)(HRRZ@ 1 -2 P)(HLRZ@ 1 1)(CALL 1 (E %COMP))(POP P 2)(CALL 2 (E XCONS))(MOVE 2 0 P)
01890		(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEM 1 -1 P)(PUSH P (C 0 0 G0021))(PUSH P (SPECIAL SPLDLST))
01900		(PUSH P 1)(MOVNI 6 2)(JCALL 16 (E NCONC))
01910	G0021 (MOVEM 1 (SPECIAL SPLDLST))(MOVE 1 0 P)(CALL 1 (E NCONS))(MOVEM 1 0 P)(JRST 0 G0002)
01920	G0008 (MOVE 3 (SPECIAL ARGNO))(HRRZ@ 2 -1 P)(HLRZ@ 1 -1 P)(CALL 3 (E %COMPFUNC))(MOVEM 1 0 P)
01930		(JRST 0 G0002)
01940	G0025 
01950	G0001 (MOVE 1 (SPECIAL CNT))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL CNT))(MOVE 2 -1 P)(CALL 2 (E XCONS))
01960		(MOVEM 1 0 P)(MOVE 1 -1 P)(CALL 1 (E %SPECIALP))(JUMPE 1 G0035)(PUSH P (C 0 0 G0037))
01970		(PUSH P (SPECIAL SPLDLST))(MOVE 1 -2 P)(CALL 1 (E NCONS))(PUSH P 1)(MOVNI 6 2)(JCALL 16 (E NCONC))
01980	G0037 (MOVEM 1 (SPECIAL SPLDLST))
01990	G0035 
02000	G0002 (MOVE 2 (SPECIAL LDLST))(MOVE 1 0 P)(CALL 2 (E CONS))(MOVEM 1 (SPECIAL LDLST))(MOVE 1 0 P)
02010		(SUB P (C 0 0 2 2))(JRST 0 SPECSTR)
02020	NIL 
02030	
02040	
02050	(LAP %NACS1 SUBR) 
02060		(HRRZ@ 1 (SPECIAL SLOTLIST))(JCALL 1 (E CDDDR))
02070	NIL 
02080	
02090	
02100	(DEFPROP %NACS (NIL . 5) VALUE) 
02110	(LAP %LOAD SUBR) 
02120		(JSP 6 SPECBIND)(0 0 (SPECIAL HLAC))(PUSH P 1)(CALL 1 (E LENGTH))(MOVE 2 1)(MOVEM 2 (SPECIAL HLAC))
02130		(PUSH P 1)
02140	G0001 (MOVE 1 0 P)(CALL 1 (E ZEROP))(JUMPN 1 G0003)(HLRZ@ 2 -1 P)(MOVE 1 0 P)(CALL 2 (E %LOAD1))
02150		(HRRZ@ 1 -1 P)(MOVEM 1 -1 P)(MOVE 1 0 P)(CALL 1 (E SUB1))(MOVEM 1 0 P)(JRST 0 G0001)
02160	G0003 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 2 2))(JRST 0 SPECSTR)
02170	NIL 
02180	
02190	
02200	(LAP %P1BUG#1 SUBR) 
02210		(PUSH P 1)(MOVE 2 (SPECIAL LO))(HRRZ@ 1 1)(CALL 2 (E *GREAT))(JUMPE 1 G0002)(MOVE 1 (SPECIAL HI))
02220		(HRRM@ 1 0 P)(MOVE 1 0 P)
02230	G0002 (SUB P (C 0 0 1 1))(POPJ P)
02240	NIL 
02250	
02260	
02270	(LAP %P1BUG SUBR) 
02280		(JSP 6 SPECBIND)(0 1 (SPECIAL LO))(0 2 (SPECIAL HI))(EXCH 2 3)(MOVEI 1 (QUOTE %P1BUG#1))
02290		(CALL 2 (E MAPC))(JRST 0 SPECSTR)
02300	NIL 
02310	
02320	
02330	(LAP %CLRACS SUBR) 
02340		(PUSH P (SPECIAL %NACS))(CALL 0 (E %CSPLD))
02350	G0001 (MOVE 1 0 P)(CALL 1 (E ZEROP))(JUMPN 1 G0003)(MOVE 1 0 P)(CALL 1 (E %CPUSH))(MOVEI 2 (QUOTE NIL))
02360		(MOVE 1 0 P)(CALL 2 (E %CONT))(MOVE 1 0 P)(CALL 1 (E SUB1))(MOVEM 1 0 P)(JRST 0 G0001)
02370	G0003 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 1 1))(POPJ P)
02380	NIL 
02390	
02400	
02410	(LAP %OPUSH SUBR) 
02420		(MOVE 3 1)(MOVEI 2 (QUOTE P))(MOVEI 1 (QUOTE PUSH))(CALL 3 (E %OUT1))(CALL 0 (E %SPUSH))
02430		(MOVEI 1 (QUOTE NIL))(POPJ P)
02440	NIL 
02450	
02460	
02470	(LAP %OPOP SUBR) 
02480		(MOVE 3 1)(MOVEI 2 (QUOTE P))(MOVEI 1 (QUOTE POP))(CALL 3 (E %OUT1))(JCALL 0 (E %SPOP))
02490	NIL 
02500	
02510	
02520	(LAP %OPUSHS SUBR) 
02530		(PUSH P 1)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE SPECIAL))(CALL 2 (E XCONS))(CALL 1 (E %OPUSH))
02540		(POP P 1)(CALL 1 (E NCONS))(MOVE 2 1)(MOVEI 1 (QUOTE 0))(CALL 2 (E %CONT))(MOVEI 1 (QUOTE NIL))
02550		(POPJ P)
02560	NIL 
02570	
02580	
02590	(LAP %P1CDC#1 SUBR) 
02600		(MOVE 2 1)(MOVEI 1 (QUOTE %P1))(JCALL 2 (E MAPCAR))
02610	NIL 
02620	
02630	
02640	(LAP %P1CDC SUBR) 
02650		(JSP 6 SPECBIND)(0 0 (SPECIAL P1SCV))(MOVE 2 1)(MOVEI 1 (QUOTE %P1CDC#1))(CALL 2 (E MAPCAR))
02660		(PUSH P 1)(MOVE 2 (SPECIAL P1SCV))(CALL 2 (E XCONS))(SUB P (C 0 0 1 1))(JRST 0 SPECSTR)
02670	NIL 
02680	
02690	
02700	(LAP %LOCATE SUBR) 
02710		(PUSH P 1)(PUSH P 2)(CALL 1 (E %LOC))(PUSH P 1)
02720	G0001 (MOVE 1 0 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0006)(MOVEI 2 (QUOTE 0))(MOVE 1 0 P)(CALL 2 (E *GREAT))
02730		(JUMPE 1 G0008)(MOVE 1 -2 P)(CALL 1 (E %REMOVE))(MOVE 1 0 P)(CALL 1 (E %CPUSH))(MOVE 1 0 P)
02740		(JRST 0 G0002)
02750	G0008 
02760	G0006 (MOVE 1 -1 P)(MOVE 2 -2 P)(MOVEM 1 0 P)(CALL 2 (E %LOAD1))(JRST 0 G0001)
02770	G0002 (SUB P (C 0 0 3 3))(POPJ P)
02780	NIL 
02790	
02800	
02810	(LAP %RESTORE SUBR) 
02820		(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
02830		(PUSH P (C 0 0 (QUOTE NIL)))(JUMPE 1 G0008)
02840	G0001 (MOVEI 1 (QUOTE 0))(MOVEM 1 0 P)
02850	G0002 (MOVE 1 -4 P)(CALL 1 (E LENGTH))(PUSH P 1)(MOVE 1 (SPECIAL SLOTLIST))(CALL 1 (E LENGTH))
02860		(POP P 2)(CAME 1 2)(JRST 0 G0013)(MOVE 1 0 P)(CALL 1 (E %R1))(JRST 0 G0007)
02870	G0013 (CALL 0 (E %NACS1))(CALL 1 (E CADR))(MOVEM 1 -2 P)(CALL 1 (E %DVP))(JUMPN 1 G0003)(MOVE 1 0 P)
02880		(CALL 1 (E ADD1))(MOVEM 1 0 P)(CALL 0 (E %SPOP))(JRST 0 G0002)
02890	G0003 (MOVE 1 0 P)(CALL 1 (E %R1))
02900	G0004 (HRRZ@ 1 -4 P)(CALL 1 (E CDDDDR))(MOVE 2 (SPECIAL %NACS))(MOVEM 2 0 P)(MOVEM 1 -1 P)
02910	G0005 (MOVE 1 -1 P)(JUMPN 1 G0029)(CALL 0 (E %FREAC))(MOVEM 1 -1 P)(CALL 1 (E %OPOP))(MOVE 2 -2 P)
02920		(MOVE 1 -1 P)(CALL 2 (E %CONT))(JRST 0 G0001)
02930	G0029 (HLRZ@ 2 1)(JUMPE 2 G0034)(HLRZ@ 1 -2 P)(HLRZ@ 3 2)(CAME 3 1)(JRST 0 G0034)(MOVE 1 0 P)
02940		(CALL 1 (E MINUS))(PUSH P 1)(MOVE 1 -5 P)(CALL 1 (E LENGTH))(PUSH P 1)(MOVE 1 (SPECIAL SLOTLIST))
02950		(CALL 1 (E LENGTH))(MOVE 2 1)(POP P 1)(PUSH P (SPECIAL %NACS))(CALL 2 (E *DIF))(POP P 2)
02960		(CALL 2 (E *PLUS))(POP P 2)(CALL 2 (E *PLUS))(MOVEM 1 -3 P)(CALL 1 (E %CONTENTS))
02970		(CALL 1 (E %DVP))(JUMPE 1 G0006)
02980	G0034 (MOVE 1 0 P)(CALL 1 (E ADD1))(MOVEM 1 0 P)(HRRZ@ 1 -1 P)(JRST 0 (G0005 -1))
02990	G0006 (MOVE 2 -2 P)(MOVE 1 -3 P)(CALL 2 (E %CONT))(MOVE 1 -3 P)(CALL 1 (E %OPOP))(JRST 0 G0001)
03000	G0008 (MOVEI 1 (QUOTE NIL))
03010	G0007 (SUB P (C 0 0 5 5))(POPJ P)
03020	NIL 
03030	
03040	
03050	(LAP %R1 SUBR) 
03060		(PUSH P 1)(CALL 1 (E ZEROP))(JUMPN 1 G0002)(MOVE 1 (SPECIAL %PROGBRK))(CALL 1 (E ADD1))
03070		(MOVEM 1 (SPECIAL %PROGBRK))(MOVE 1 0 P)(CALL 1 (E NCONS))(MOVE 2 0 P)(CALL 2 (E XCONS))
03080		(MOVEI 2 (QUOTE 0))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE 0))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE C))
03090		(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE P))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SUB))
03100		(CALL 2 (E XCONS))(CALL 1 (E %OUTPT))(JRST 0 G0001)
03110	G0002 (MOVEI 1 (QUOTE NIL))
03120	G0001 (SUB P (C 0 0 1 1))(POPJ P)
03130	NIL 
03140	
03150	
03160	(LAP %BARF FSUBR) 
03170		(CALL 1 (E %PRINTTY))(JCALL 0 (E ERR))
03180	NIL 
03190	
03200	
03210	(LAP %DVP SUBR) 
03220		(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))(JUMPE 1 G0005)(HLRZ@ 1 1)(CAIE 1 (QUOTE QUOTE))
03230		(JRST 0 G0006)(MOVEI 1 (QUOTE NIL))(JRST 0 G0005)
03240	G0006 (HRRZ@ 1 -1 P)(CAIE 1 (QUOTE TAKEN))(JRST 0 G0008)(MOVEI 1 (QUOTE T))(JRST 0 G0005)
03250	G0008 (CAIE 1 (QUOTE DUP))(JRST 0 G0010)(MOVEI 1 (QUOTE NIL))(JRST 0 G0005)
03260	G0010 (HLRZ@ 1 -1 P)(CALL 1 (E %SPECIALP))(JUMPE 1 G0012)(HRRZ@ 2 -1 P)(JUMPN 2 G0012)(MOVEI 1 (QUOTE NIL))
03270		(JRST 0 G0005)
03280	G0012 (MOVE 2 (SPECIAL LOCVARS))(HLRZ@ 1 -1 P)(CALL 2 (E ASSOC))(MOVEM 1 0 P)(JUMPE 1 G0018)
03290		(HRRZ@ 2 -1 P)(JUMPN 2 G0018)(HRRZ@ 2 1)(MOVE 1 (SPECIAL CNT))(CALL 2 (E *LESS))(JUMPN 1 G0017)
03300	G0018 (TDZA 1 1)
03310	G0017 (MOVEI 1 T)(JUMPN 1 G0005)(PUSH P (SPECIAL LDLST))
03320	G0001 (MOVE 1 0 P)(JUMPN 1 G0031)(MOVE 2 (SPECIAL VL))(HLRZ@ 1 -2 P)(CALL 2 (E ASSOC))(MOVEM 1 0 P)
03330		(JUMPE 1 G0033)(HRRZ@ 2 -2 P)(HRRZ@ 1 1)(CALL 2 (E CONS))(CALL 1 (E %DVP))(JRST 0 G0032)
03340	G0033 (MOVEI 1 (QUOTE NIL))
03350	G0040 
03360	G0032 (JRST 0 G0027)
03370	G0031 (HLRZ@ 1 -2 P)(HLRZ@ 2 0 P)(HLRZ@ 2 2)(CAME 2 1)(JRST 0 G0044)(HRRZ@ 1 -2 P)(CALL 1 (E NUMBERP))
03380		(JUMPE 1 G0049)(MOVE 1 -2 P)(JRST 0 G0048)
03390	G0049 (MOVE 2 (SPECIAL CNT))(HLRZ@ 1 -2 P)(CALL 2 (E CONS))
03400	G0052 
03410	G0048 (CALL 1 (E %LOC))(PUSH P 1)(HLRZ@ 1 -1 P)(CALL 1 (E %LOC))(POP P 2)(MOVEM 1 -1 P)(CALL 2 (E EQUAL))
03420		(JUMPE 1 G0044)(MOVE 1 -1 P)(JUMPE 1 G0044)(MOVEI 1 (QUOTE T))(JRST 0 G0027)
03430	G0044 (HRRZ@ 1 0 P)(MOVEM 1 0 P)(JRST 0 G0001)
03440	G0027 (SUB P (C 0 0 1 1))
03450	G0025 
03460	G0005 (SUB P (C 0 0 2 2))(POPJ P)
03470	NIL 
03480	
03490	
03500	(LAP %COMSTO SUBR) 
03510		(HRRZ@ 1 2)(HLRZ@ 1 1)(PUSH P 2)(CALL 1 (E %COMP))(PUSH P 1)(CALL 1 (E %LOC))(HLRZ@ 1 -1 P)
03520		(CALL 1 (E %COMPE))(POP P 2)(MOVEI 1 (QUOTE 1))(CALL 2 (E %LOAD1))(MOVEI 1 (QUOTE (PUSHJ P NSTR)))
03530		(CALL 1 (E %OUTPT))(MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 1 1))(POPJ P)
03540	NIL 
03550	
03560	
03570	(LAP %COMPFUNC SUBR) 
03580		(JSP 6 SPECBIND)(0 3 (SPECIAL NO))(0 0 (SPECIAL ARGNO))(MOVEM 3 (SPECIAL ARGNO))(PUSH P (C 0 0 (QUOTE 1)~
03590	))(PUSH P 1)(PUSH P 2)(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
03600		(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
03610		(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(CALL 1 (E ATOM))(JUMPE 1 G0034)
03620		(TDZA 1 1)
03630	G0034 (MOVEI 1 T)(MOVEM 1 -5 P)(JUMPE 1 G0032)(HRRZ@ 1 -11 P)(CAIE 1 (QUOTE SUBR))(JRST 0 G0032)
03640		(MOVE 1 -10 P)(CALL 1 (E %COMP))(MOVE 2 1)(MOVEI 1 (QUOTE 1))(CALL 2 (E %LOAD1))(HLRZ@ 1 -11 P)
03650		(MOVEM 1 -11 P)(JRST 0 G0002)
03660	G0032 (MOVE 1 -5 P)(JUMPE 1 G0042)(HLRZ@ 1 -11 P)(CAIE 1 (QUOTE LAMBDA))(JRST 0 G0042)(MOVEI 1 (QUOTE T))
03670		(MOVEM 1 -2 P)(JRST 0 G0013)
03680	G0042 (MOVE 1 -5 P)(JUMPE 1 G0046)(MOVE 1 -11 P)(CALL 1 (E %COMP))(CLEARM 1 -11 P)(MOVEM 1 -2 P)
03690		(JRST 0 G0013)
03700	G0046 (MOVE 1 (SPECIAL LSUBRF))(JUMPE 1 G0049)(MOVE 1 -11 P)(CAIE 1 (QUOTE ARG))(JRST 0 G0049)
03710		(HLRZ@ 1 -10 P)(CALL 1 (E %COMP))(CALL 1 (E %COMARG))(JRST 0 G0012)
03720	G0049 (MOVE 1 (SPECIAL LSUBRF))(JUMPE 1 G0055)(MOVE 1 -11 P)(CAIE 1 (QUOTE SETARG))(JRST 0 G0055)
03730		(MOVE 1 -10 P)(CALL 1 (E %COMSETARG))(JRST 0 G0012)
03740	G0055 (MOVEI 2 (QUOTE (AND OR NULL EQ)))(MOVE 1 -11 P)(CALL 2 (E MEMQ))(JUMPN 1 G0011)(MOVE 1 -11 P)
03750		(CAIE 1 (QUOTE PROG2))(JRST 0 G0060)(HLRZ@ 1 -10 P)(CALL 1 (E %COMPE))(HRRZ@ 1 -10 P)
03760		(HLRZ@ 1 1)(CALL 1 (E %COMP))(HRRZ@ 2 -10 P)(HRRZ@ 2 2)(MOVEM 1 -5 P)(MOVEI 1 (QUOTE %COMPE))
03770		(CALL 2 (E MAPCAR))(MOVE 1 -5 P)(JRST 0 G0028)
03780	G0060 (MOVEI 2 (QUOTE *FEXPR))(CALL 2 (E GET))(JUMPN 1 G0001)(MOVE 1 -11 P)(CAIE 1 (QUOTE STORE))
03790		(JRST 0 G0069)(MOVE 2 -10 P)(CALL 2 (E %COMSTO))(JRST 0 G0012)
03800	G0069 (CAIN 1 (QUOTE RETURN))(JRST 0 G0027)(MOVEI 2 (QUOTE (SUBR EXPR *EXPR)))(CALL 2 (E GETL))
03810		(JUMPN 1 G0013)(MOVE 2 (SPECIAL SPVARS))(MOVE 1 -11 P)(CALL 2 (E MEMQ))(JUMPN 1 G0076)
03820		(MOVE 2 (SPECIAL LOCVARS))(MOVE 1 -11 P)(CALL 2 (E ASSOC))(JUMPE 1 G0075)
03830	G0076 (MOVE 1 -11 P)(CALL 1 (E %COMP))(MOVEM 1 -2 P)
03840	G0075 (JUMPN 1 G0013)(MOVE 1 -11 P)(CAIN 1 (QUOTE COND))(JRST 0 G0004)(CAIN 1 (QUOTE PROG))
03850		(JRST 0 G0025)(CAIN 1 (QUOTE SETQ))(JRST 0 G0024)(CAIE 1 (QUOTE QUOTE))(JRST 0 G0081)
03860		(MOVE 2 -10 P)(CALL 2 (E CONS))(JRST 0 G0028)
03870	G0081 (CAIN 1 (QUOTE GO))(JRST 0 G0026)(MOVEI 2 (QUOTE LSUBR))(CALL 2 (E GET))(JUMPN 1 G0003)
03880		(MOVEI 2 (QUOTE (FSUBR FEXPR)))(MOVE 1 -11 P)(CALL 2 (E GETL))(JUMPN 1 G0085)(MOVEI 1 (QUOTE UNDEFINED))
03890		(CALL 1 (E NCONS))(MOVE 2 -11 P)(CALL 2 (E XCONS))(CALL 1 (E %PRINTTY))(MOVEI 3 (QUOTE *EXPR))
03900		(MOVEI 2 (QUOTE T))(MOVE 1 -11 P)(CALL 3 (E PUTPROP))(JRST 0 G0013)
03910	G0085 
03920	G0001 (CALL 0 (E %CSPLD))(MOVE 1 -10 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE QUOTE))(CALL 2 (E XCONS))
03930		(MOVE 2 1)(MOVEI 1 (QUOTE 1))(CALL 2 (E %LOAD1))
03940	G0002 (MOVEI 1 (QUOTE 1))(MOVEI 2 (QUOTE 17))(MOVEM 1 -4 P)(MOVEM 2 -6 P)(JRST 0 G0018)
03950	G0003 (MOVE 1 -11 P)(CAIE 1 (QUOTE EVAL))(JRST 0 G0099)(HRRZ@ 2 -10 P)(JUMPN 2 G0099)(MOVEI 1 (QUOTE *EVAL))
03960		(MOVEM 1 -11 P)(JRST 0 G0013)
03970	G0099 (MOVE 2 -10 P)(MOVE 1 -11 P)(CALL 2 (E %COMPLC))(JRST 0 G0022)
03980	G0004 (HLRZ@ 1 -10 P)(MOVEM 1 -5 P)
03990	G0005 (MOVE 1 -5 P)(JUMPE 1 G0007)(MOVE 2 (SPECIAL LDLST))(HLRZ@ 1 1)(CALL 2 (E ASSOC))(JUMPN 1 G0008)
04000	G0006 (HRRZ@ 1 -5 P)(JRST 0 (G0005 -1))
04010	G0007 (CALL 0 (E %CLEAR1))(MOVE 2 (SPECIAL NO))(MOVEM 2 -12 P)(HRRZ@ 1 -10 P)(CALL 2 (E %DOCOND))
04020		(MOVEI 2 (QUOTE 2))(MOVE 1 (SPECIAL CNT))(CALL 2 (E *PLUS))(MOVEM 1 (SPECIAL CNT))
04030		(JRST 0 G0022)
04040	G0008 (MOVE 2 (SPECIAL CNT))(HLRZ@ 1 -5 P)(CALL 2 (E CONS))(CALL 1 (E %LOC))(MOVEM 1 -1 P)
04050		(CALL 1 (E NUMBERP))(JUMPE 1 G0009)(MOVE 1 -1 P)(CALL 1 (E %CONTENTS))(CALL 1 (E %DVP))
04060		(JUMPN 1 G0123)(MOVE 2 (SPECIAL CNT))(HLRZ@ 1 -5 P)(CALL 2 (E CONS))(MOVE 2 1)(MOVE 1 -1 P)
04070		(CALL 2 (E %CONT))(JRST 0 G0005)
04080	G0123 
04090	G0009 (MOVE 1 -1 P)(CALL 1 (E %OPUSH))
04100	G0010 (MOVE 2 (SPECIAL CNT))(HLRZ@ 1 -5 P)(CALL 2 (E CONS))(MOVE 2 1)(MOVEI 1 (QUOTE 0))(CALL 2 (E %CONT))
04110		(JRST 0 G0006)
04120	G0011 (MOVE 2 -10 P)(MOVE 1 -11 P)(CALL 2 (E CONS))(CALL 1 (E %BOOL4))
04130	G0012 (MOVE 1 (SPECIAL NO))(MOVEM 1 -12 P)(JRST 0 G0023)
04140	G0013 (MOVEI 1 (QUOTE 0))(MOVEM 1 (SPECIAL ARGNO))
04150	G0014 (MOVE 1 -10 P)(JUMPE 1 G0016)(MOVE 1 (SPECIAL ARGNO))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL ARGNO))
04160	G0015 (HLRZ@ 1 -10 P)(CALL 1 (E %COMP))(MOVE 2 -1 P)(CALL 2 (E CONS))(MOVEM 1 -1 P)(HRRZ@ 1 -10 P)
04170		(MOVEM 1 -10 P)(JRST 0 G0014)
04180	G0016 (MOVE 1 -2 P)(CAIE 1 (QUOTE T))(JRST 0 G0148)(MOVE 2 -1 P)(MOVE 1 -11 P)(CALL 2 (E %P2LAM))
04190		(JRST 0 G0028)
04200	G0148 (MOVEI 2 (QUOTE (RPLACD RPLACA)))(MOVE 1 -11 P)(CALL 2 (E MEMQ))(JUMPE 1 G0151)(MOVE 2 (SPECIAL NO))
04210		(HRRZ@ 1 -1 P)(HLRZ@ 1 1)(CALL 2 (E %ILOC1))(HLRZ@ 1 -1 P)(CALL 1 (E %LOC))(HRRZ@ 1 -1 P)
04220		(HLRZ@ 1 1)(CALL 1 (E %REMOVS))(HLRZ@ 1 -1 P)(CALL 1 (E %REMOVS))(CALL 0 (E %CSPLD))
04230		(MOVEI 2 (QUOTE (QUOTE NIL)))(HLRZ@ 1 -1 P)(CALL 2 (E EQUAL))(JUMPE 1 G0163)(MOVEI 2 (QUOTE INSTN))
04240		(MOVE 1 -11 P)(CALL 2 (E GET))(PUSH P 1)(HRRZ@ 1 -2 P)(HLRZ@ 1 1)(CALL 1 (E %LOC))
04250		(MOVE 3 1)(MOVEI 2 (QUOTE 0))(POP P 1)(CALL 3 (E %OUT1))(HLRZ@ 1 -1 P)(CALL 1 (E %REMOVE))
04260		(JRST 0 G0162)
04270	G0163 (MOVEI 2 (QUOTE INST))(MOVE 1 -11 P)(CALL 2 (E GET))(PUSH P 1)(HLRZ@ 1 -2 P)(PUSH P 1)
04280		(CALL 0 (E %FRAC1))(MOVE 2 1)(POP P 1)(CALL 2 (E %LOCATE))(PUSH P 1)(HRRZ@ 1 -3 P)
04290		(HLRZ@ 1 1)(CALL 1 (E %LOC))(MOVE 3 1)(POP P 2)(POP P 1)(CALL 3 (E %OUT1))
04300	G0172 
04310	G0162 (HRRZ@ 1 -1 P)(HLRZ@ 1 1)(JRST 0 G0028)
04320	G0151 (MOVE 1 -11 P)(CAIE 1 (QUOTE CONS))(JRST 0 G0017)(MOVEI 2 (QUOTE (QUOTE NIL)))(HLRZ@ 1 -1 P)
04330		(CALL 2 (E EQUAL))(JUMPE 1 G0184)(HLRZ@ 1 -1 P)(CALL 1 (E %REMOVE))(HRRZ@ 1 -1 P)
04340		(MOVEI 2 (QUOTE NCONS))(MOVEM 1 -1 P)(MOVEM 2 -11 P)
04350	G0184 
04360	G0017 (MOVE 1 -1 P)(CALL 1 (E LENGTH))(MOVEM 1 -4 P)(CAIE 1 (QUOTE 2))(JRST 0 G0193)(HLRZ@ 1 -1 P)
04370		(CALL 1 (E %ILOC))(CAIE 1 (QUOTE 1))(JRST 0 G0193)(MOVEI 2 (QUOTE COMMU))(MOVE 1 -11 P)
04380		(CALL 2 (E GET))(MOVEM 1 0 P)(JUMPE 1 G0193)(MOVE 1 -1 P)(CALL 1 (E REVERSE))(MOVE 2 0 P)
04390		(MOVEM 1 -1 P)(MOVEM 2 -11 P)
04400	G0193 (MOVEI 2 (QUOTE ACS))(MOVE 1 -11 P)(CALL 2 (E GET))(MOVEM 1 0 P)(JUMPN 1 G0200)(MOVE 1 (SPECIAL SPLDLST))
04410		(JUMPE 1 G0202)(MOVE 1 -1 P)(CALL 1 (E %CSPLD3))
04420	G0202 
04430	G0200 (MOVE 1 -1 P)(CALL 1 (E %LOAD))(MOVE 1 0 P)(JUMPN 1 G0206)(MOVE 1 (SPECIAL SPLDLST))
04440		(JUMPE 1 G0207)(CALL 0 (E %CSPLD))
04450	G0207 
04460	G0206 
04470	G0018 
04480	G0019 (MOVE 1 -2 P)(JUMPE 1 G0211)(CALL 1 (E %LOC))(MOVEI 2 (QUOTE 0))(CALL 2 (E *GREAT))
04490		(JUMPE 1 G0211)(MOVE 1 -2 P)(CALL 1 (E %LOC))(MOVEM 1 -7 P)(MOVE 1 -2 P)(CALL 1 (E %REMOVE))
04500	G0211 (MOVEI 2 (QUOTE ACS))(MOVE 1 -11 P)(CALL 2 (E GET))(JUMPN 1 G0218)(MOVEI 1 (QUOTE 37))
04510	G0220 
04520	G0218 (MOVEM 1 (SPECIAL ARGNO))(MOVEI 2 (QUOTE 0))(MOVEM 2 -3 P)
04530	G0020 (MOVE 1 -3 P)(CALL 1 (E ADD1))(MOVEM 1 -3 P)(MOVE 1 (SPECIAL ARGNO))(CALL 1 (E ZEROP))
04540		(JUMPN 1 G0021)(PUSH P (C 0 0 G0227))(PUSH P (C 0 0 (QUOTE 1)))(PUSH P (C 0 0 (QUOTE 1)))
04550		(PUSH P (SPECIAL ARGNO))(MOVNI 6 3)(JCALL 16 (E BOOLE))
04560	G0227 (CALL 1 (E ZEROP))(JUMPN 1 G0226)(MOVE 1 -3 P)(CALL 1 (E %CONTENTS))(CALL 1 (E %DVP))
04570		(JUMPE 1 G0231)(MOVE 1 -3 P)(CALL 1 (E %CPUSH))
04580	G0231 (MOVEI 2 (QUOTE NIL))(MOVE 1 -3 P)(CALL 2 (E %CONT))
04590	G0226 (MOVEI 2 (QUOTE -1))(MOVE 1 (SPECIAL ARGNO))(CALL 2 (E LSH))(MOVEM 1 (SPECIAL ARGNO))
04600		(JRST 0 G0020)
04610	G0021 (MOVE 1 -2 P)(JUMPE 1 G0241)(MOVE 3 -7 P)(JUMPN 3 G0242)(MOVE 1 -2 P)(CALL 1 (E %LOC))
04620		(MOVE 3 1)
04630	G0243 
04640	G0242 (MOVE 2 -4 P)(MOVEI 1 (QUOTE CALLF@))(CALL 3 (E %OUT1))(MOVE 1 -2 P)(CALL 1 (E %REMOVE))
04650		(JRST 0 G0240)
04660	G0241 (MOVE 1 -6 P)(JUMPN 1 G0251)(MOVE 1 -4 P)
04670	G0252 
04680	G0251 (PUSH P 1)(MOVE 1 -12 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE E))(CALL 2 (E XCONS))(CALL 1 (E NCONS))
04690		(POP P 2)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE CALL))(CALL 2 (E XCONS))(CALL 1 (E %OUTPT))
04700	G0249 
04710	G0240 
04720	G0022 
04730	G0023 (CALL 0 (E GENSYM))(CALL 1 (E NCONS))(MOVE 2 1)(MOVE 1 -12 P)(CALL 2 (E %CONT))(HLRZ@ 1 1)
04740		(JRST 0 G0028)
04750	G0024 (MOVE 1 -10 P)(CALL 1 (E %CSTQ))(JRST 0 G0028)
04760	G0025 (MOVEI 2 (QUOTE NIL))(HRRZ@ 1 -10 P)(CALL 1 (E CADR))(CALL 2 (E %LMB))(CLEARM 1 (SPECIAL SFLG))
04770		(MOVEM 1 0 P)(HLRZ@ 1 -10 P)(PUSH P 1)(MOVE 1 (SPECIAL CNT))(CALL 1 (E ADD1))(POP P 2)
04780		(CAME 1 2)(JRST 0 G0272)(CALL 0 (E %CLEAR1))
04790	G0272 (MOVE 2 0 P)(MOVE 1 -10 P)(CALL 2 (E %CPROG))(JRST 0 G0012)
04800	G0026 (CALL 0 (E %CPVRL))(HLRZ@ 1 -10 P)(CALL 1 (E ATOM))(JUMPE 1 G0281)(HLRZ@ 1 -10 P)(CALL 1 (E %ADR))
04810		(MOVE 3 1)(MOVEI 2 (QUOTE 0))(MOVEI 1 (QUOTE JRST))(CALL 3 (E %OUTJ))(JRST 0 G0280)
04820	G0281 (HLRZ@ 1 -10 P)(CALL 1 (E %COMP))(MOVE 2 1)(MOVEI 1 (QUOTE 1))(CALL 2 (E %LOAD1))(MOVE 3 (SPECIAL VGO))
04830		(MOVEI 2 (QUOTE 0))(MOVEI 1 (QUOTE JRST))(CALL 3 (E %OUTJ))
04840	G0287 
04850	G0280 (JRST 0 G0022)
04860	G0027 (MOVE 1 -10 P)(CALL 1 (E %CRET))(JRST 0 G0022)
04870	G0028 (SUB P (C 0 0 13 13))(JRST 0 SPECSTR)
04880	NIL 
04890	
04900	
04910	(LAP %COMPLC SUBR) 
04920		(PUSH P 1)(PUSH P 2)(CALL 0 (E %CLEAR1))(MOVE 1 0 P)(CALL 1 (E LENGTH))(PUSH P 1)
04930		(MOVE 1 (SPECIAL %PROGBRK))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL %PROGBRK))(CALL 0 (E GENSYM))
04940		(PUSH P 1)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE 0))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE 0))
04950		(CALL 2 (E XCONS))(MOVEI 2 (QUOTE C))(CALL 2 (E XCONS))(CALL 1 (E %OPUSH))(PUSH P (C 0 0 (QUOTE NIL)))
04960		(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
04970	G0001 (MOVEI 2 (QUOTE (NIL . TAKEN)))(MOVEI 1 (QUOTE 0))(CALL 2 (E %CONT))(MOVE 1 -5 P)(JUMPE 1 G0002)
04980		(MOVEI 2 (QUOTE NIL))(MOVE 1 (SPECIAL SLOTLIST))(CALL 2 (E *APPEND))(MOVEM 1 0 P)
04990		(HLRZ@ 1 -5 P)(CALL 1 (E %COMP))(MOVEM 1 -1 P)(MOVE 1 0 P)(CALL 1 (E %RESTORE))(MOVE 1 -1 P)
05000		(CALL 1 (E %LOC))(CALL 1 (E %OPUSH))(MOVE 1 -1 P)(CALL 1 (E %REMOVE))(HRRZ@ 1 -5 P)
05010		(MOVEM 1 -5 P)(JRST 0 G0001)
05020	G0002 (MOVE 1 (SPECIAL SLOTLIST))(CALL 1 (E LENGTH))(MOVEM 1 -2 P)(CALL 0 (E %CWORLD))(MOVE 1 (SPECIAL SLOTLIST)~
05030	)(CALL 1 (E LENGTH))(CAMN 1 -2 P)(JRST 0 G0031)(MOVEI 1 (QUOTE (LSLOSSAGE)))(CALL 17 (E %BARF))
05040	G0031 (MOVE 1 -4 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE 6))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE MOVNI))
05050		(CALL 2 (E XCONS))(CALL 1 (E %OUTPT))(MOVE 1 -6 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE E))
05060		(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE 16))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE JCALL))
05070		(CALL 2 (E XCONS))(CALL 1 (E %OUTPT))(MOVE 1 -3 P)(CALL 1 (E %OUTPT))
05080	G0003 (CALL 0 (E %SPOP))(MOVE 1 -4 P)(CALL 1 (E ZEROP))(JUMPE 1 G0048)(CALL 0 (E %CLRACS))
05090		(MOVEI 1 (QUOTE NIL))(JRST 0 G0004)
05100	G0048 (MOVE 1 -4 P)(CALL 1 (E SUB1))(MOVEM 1 -4 P)(JRST 0 G0003)
05110	G0004 (SUB P (C 0 0 7 7))(POPJ P)
05120	NIL 
05130	
05140	
05150	(LAP %P2LAM SUBR) 
05160		(PUSH P 1)(CALL 1 (E CADR))(PUSH P 1)(MOVE 1 2)(PUSH P 2)(CALL 1 (E REVERSE))(MOVEM 1 0 P)
05170		(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
05180	G0001 (MOVE 1 -4 P)(JUMPE 1 G0002)(HLRZ@ 1 -3 P)(PUSH P 1)(CALL 0 (E %FREAC))(MOVE 2 1)(POP P 1)
05190		(CALL 2 (E %ILOC1))(MOVEM 1 -1 P)(HLRZ@ 1 -3 P)(CALL 1 (E %REMOVE))(HLRZ@ 1 -4 P)
05200		(CALL 1 (E %SPECIALP))(JUMPE 1 G0020)(MOVEI 2 (QUOTE T))(MOVEM 2 0 P)(MOVE 1 -1 P)
05210		(CALL 1 (E NUMBERP))(JUMPE 1 G0025)(MOVEI 2 (QUOTE 1))(MOVE 1 -1 P)(CALL 2 (E *LESS))
05220		(JUMPE 1 G0024)
05230	G0025 (CALL 0 (E %FREAC))(HLRZ@ 2 -3 P)(MOVEM 1 -1 P)(CALL 2 (E %LOAD1))
05240	G0024 (JRST 0 G0019)
05250	G0020 (MOVE 1 -1 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0033)(MOVE 1 -1 P)(CALL 1 (E %CONTENTS))
05260		(CALL 1 (E %DVP))(JUMPE 1 G0032)
05270	G0033 (MOVE 1 -1 P)(CALL 1 (E %OPUSH))(MOVEI 2 (QUOTE 0))(MOVEM 2 -1 P)
05280	G0032 
05290	G0019 (MOVEI 2 (QUOTE TAKEN))(HLRZ@ 1 -4 P)(CALL 2 (E CONS))(MOVE 2 1)(MOVE 1 -1 P)(CALL 2 (E %CONT))
05300		(MOVE 2 -2 P)(MOVE 1 -1 P)(CALL 2 (E CONS))(MOVEM 1 -2 P)(HRRZ@ 1 -3 P)(MOVEM 1 -3 P)
05310		(HRRZ@ 1 -4 P)(MOVEM 1 -4 P)(JRST 0 G0001)
05320	G0002 (MOVE 1 0 P)(JUMPE 1 G0047)(MOVEI 1 (QUOTE (JSP 6 SPECBIND)))(CALL 1 (E %OUTPT))(JRST 0 G0046)
05330	G0047 (JRST 0 G0005)
05340	G0046 (HRRZ@ 1 -5 P)(HLRZ@ 1 1)(MOVEM 1 -4 P)
05350	G0003 (MOVE 1 -4 P)(JUMPE 1 G0005)(HLRZ@ 1 1)(CALL 1 (E %SPECIALP))(JUMPE 1 G0053)(PUSH P (SPECIAL SLOTLIST))
05360	G0004 (MOVE 1 0 P)(JUMPE 1 G0057)(HLRZ@ 2 1)(JUMPE 2 G0060)(TDZA 1 1)
05370	G0060 (MOVEI 1 T)(JUMPN 1 G0059)(HLRZ@ 1 -5 P)(HLRZ@ 2 0 P)(HLRZ@ 2 2)(CAME 2 1)(JRST 0 G0063)
05380		(HLRZ@ 3 0 P)(HRRZ@ 3 3)(JUMPN 3 G0063)(HRRZS@ 0 0 P)
05390	G0063 
05400	G0059 (HRRZ@ 1 0 P)(MOVEM 1 0 P)(JRST 0 G0004)
05410	G0057 (MOVEI 1 (QUOTE NIL))(MOVE 2 (SPECIAL CNT))(HLRZ@ 1 -5 P)(CALL 2 (E CONS))(CALL 1 (E %ILOC))
05420		(MOVEM 1 0 P)(HLRZ@ 1 -5 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE SPECIAL))(CALL 2 (E XCONS))
05430		(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE 0))(CALL 2 (E XCONS))
05440		(CALL 1 (E %OUTPT))
05450	G0053 (HRRZ@ 1 -4 P)(JRST 0 (G0003 -1))
05460	G0005 (MOVE 1 -2 P)(JUMPE 1 G0006)(HLRZ@ 1 -2 P)(CALL 1 (E %CONTENTS))(HLLZS@ 0 1)(HRRZ@ 1 -2 P)
05470		(MOVEM 1 -2 P)(JRST 0 G0005)
05480	G0006 (HRRZ@ 1 -5 P)(CALL 1 (E CADR))(CALL 1 (E %COMP))(MOVEM 1 -4 P)(MOVE 1 0 P)(JUMPE 1 G0094)
05490		(MOVEI 1 (QUOTE (PUSHJ P SPECSTR)))(CALL 1 (E %OUTPT))
05500	G0094 (MOVE 1 (SPECIAL CNT))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL CNT))(MOVE 1 -4 P)(SUB P (C 0 0 6 6))
05510		(POPJ P)
05520	NIL 
05530	
05540	
05550	(LAP %CRET SUBR) 
05560		(PUSH P 1)(CALL 0 (E %CPVRL))(MOVE 2 (SPECIAL PVR))(MOVEM 2 (SPECIAL ARGNO))(MOVEI 2 (QUOTE (QUOTE NIL))~
05570	)(MOVE 1 0 P)(CALL 2 (E EQUAL))(JUMPE 1 G0006)(MOVE 3 (SPECIAL EXITN))(MOVEI 2 (QUOTE 0))
05580		(MOVEI 1 (QUOTE JRST))(CALL 3 (E %OUTJ))(JRST 0 G0005)
05590	G0006 (HLRZ@ 1 0 P)(PUSH P (SPECIAL PVR))(CALL 1 (E %COMP))(MOVE 2 1)(POP P 1)(CALL 2 (E %LOAD1))
05600		(MOVE 3 (SPECIAL EXIT))(MOVEI 2 (QUOTE 0))(MOVEI 1 (QUOTE JRST))(CALL 3 (E %OUTJ))
05610	G0009 
05620	G0005 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 1 1))(POPJ P)
05630	NIL 
05640	
05650	
05660	(LAP %CSTQ#1 SUBR) 
05670		(HLRZ@ 2 1)(CAME 2 (SPECIAL DATA))(TDZA 1 1)(MOVEI 1 T)(POPJ P)
05680	NIL 
05690	
05700	
05710	(LAP %CSTQ SUBR) 
05720		(JSP 6 SPECBIND)(0 0 (SPECIAL DATA))(PUSH P 1)(CALL 1 (E CADR))(CALL 1 (E %COMP))
05730		(MOVE 2 (SPECIAL NO))(PUSH P 1)(CALL 2 (E %ILOC1))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)~
05740	))(PUSH P (C 0 0 (QUOTE NIL)))(MOVE 2 (SPECIAL SPLDLST))(HLRZ@ 1 -4 P)(CALL 2 (E ASSOC))(JUMPN 1 G0003)
05750	G0001 (MOVE 1 -3 P)(CALL 1 (E %REMOVE))(HLRZ@ 1 -4 P)(CALL 1 (E %FREEZE))(MOVE 1 -3 P)(CALL 1 (E %LOC))
05760		(MOVEM 1 0 P)(HLRZ@ 1 -4 P)(CALL 1 (E %SPECIALP))(JUMPE 1 G0021)(MOVEI 1 (QUOTE T))
05770		(JRST 0 G0020)
05780	G0021 (MOVE 2 (SPECIAL CNT))(HLRZ@ 1 -4 P)(CALL 2 (E CONS))(MOVEM 1 -2 P)(CALL 1 (E %ILOC))
05790		(JUMPE 1 G0020)(MOVE 1 -2 P)(CALL 1 (E %LOC))(CALL 1 (E %CONTENTS))(CALL 1 (E %DVP))
05800		(JUMPE 1 G0029)(TDZA 1 1)
05810	G0029 (MOVEI 1 T)
05820	G0027 
05830	G0020 (MOVEM 1 -1 P)(MOVE 1 (SPECIAL CNT))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL CNT))(MOVE 1 (SPECIAL EFFS))
05840		(JUMPE 1 G0037)(MOVE 1 -1 P)(JUMPN 1 G0037)(HLRZ@ 1 -4 P)(CALL 1 (E %SPECIALP))(JUMPN 1 G0037)
05850		(MOVE 1 0 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0042)(MOVE 1 0 P)(CALL 1 (E %CONTENTS))
05860		(CALL 1 (E %DVP))(JUMPN 1 G0042)(HLRZ@ 1 -4 P)(CALL 1 (E NCONS))(MOVE 2 1)(MOVE 1 0 P)
05870		(CALL 2 (E %CONT))(MOVEI 1 (QUOTE NIL))(JRST 0 G0006)
05880	G0042 (MOVE 1 0 P)(CALL 1 (E %OPUSH))(HLRZ@ 1 -4 P)(CALL 1 (E NCONS))(MOVE 2 1)(MOVEI 1 (QUOTE 0))
05890		(CALL 2 (E %CONT))(MOVEI 1 (QUOTE NIL))(JRST 0 G0006)
05900	G0051 
05910	G0037 (MOVE 1 -1 P)(JUMPE 1 G0061)(MOVEI 2 (QUOTE (QUOTE NIL)))(HRRZ@ 1 -4 P)(HLRZ@ 1 1)(CALL 2 (E EQUAL))
05920		(JUMPE 1 G0061)(MOVEI 1 (QUOTE T))(MOVEM 1 -2 P)(MOVE 1 (SPECIAL EFFS))(JUMPN 1 G0067)
05930		(MOVE 1 (SPECIAL NO))(CALL 1 (E %CONTENTS))(CALL 1 (E %DVP))(JUMPE 1 G0066)
05940	G0067 (CLEARM 1 -2 P)(MOVEI 1 (QUOTE CLEARM))(JRST 0 G0065)
05950	G0066 (MOVEI 1 (QUOTE CLEARB))
05960	G0070 
05970	G0065 (PUSH P (SPECIAL NO))(PUSH P 1)(HLRZ@ 1 -6 P)(CALL 1 (E %SPECIALP))(JUMPE 1 G0074)(HLRZ@ 1 -6 P)
05980		(CALL 1 (E NCONS))(MOVEI 2 (QUOTE SPECIAL))(CALL 2 (E XCONS))(MOVE 3 1)(JRST 0 G0073)
05990	G0074 (HLRZ@ 1 -6 P)(PUSH P 1)(MOVE 1 (SPECIAL CNT))(CALL 1 (E SUB1))(POP P 2)(CALL 2 (E XCONS))
06000		(CALL 1 (E %ILOC))(MOVE 3 1)
06010	G0080 
06020	G0073 (MOVEM 3 -5 P)(MOVE 2 -1 P)(POP P 1)(CALL 3 (E %OUT1))(MOVE 1 -4 P)(CALL 1 (E NUMBERP))
06030		(JUMPE 1 G0089)(HLRZ@ 1 -5 P)(CALL 1 (E NCONS))(MOVE 2 1)(MOVE 1 -4 P)(CALL 2 (E %CONT))
06040	G0089 (MOVE 1 -3 P)(JUMPE 1 G0096)(HLRZ@ 1 -5 P)(PUSH P (SPECIAL NO))(MOVEM 1 -1 P)(MOVE 1 -5 P)
06050		(CALL 1 (E NUMBERP))(JUMPE 1 G0099)(MOVEI 2 (QUOTE DUP))(JRST 0 G0098)
06060	G0099 (MOVEI 2 (QUOTE NIL))
06070	G0101 
06080	G0098 (MOVE 1 -1 P)(CALL 2 (E CONS))(MOVE 2 1)(POP P 1)(CALL 2 (E %CONT))
06090	G0096 (SUB P (C 0 0 1 1))(JRST 0 G0002)
06100	G0061 (MOVE 1 0 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0111)(MOVEI 2 (QUOTE 0))(MOVE 1 0 P)(CALL 2 (E *LESS))
06110		(JUMPN 1 G0111)(MOVE 1 0 P)(CALL 1 (E %CONTENTS))(CALL 1 (E %DVP))(JUMPE 1 G0110)
06120	G0111 (MOVE 1 (SPECIAL EFFS))(JUMPE 1 G0117)(CALL 0 (E %FREAC))(JRST 0 G0116)
06130	G0117 (MOVE 1 (SPECIAL NO))
06140	G0119 
06150	G0116 (MOVEM 1 (SPECIAL NO))(MOVE 2 -3 P)(CALL 2 (E %LOAD1))(MOVE 2 (SPECIAL NO))(MOVEM 2 0 P)
06160	G0110 (HLRZ@ 1 -4 P)(CALL 1 (E NCONS))(MOVE 2 1)(MOVE 1 0 P)(CALL 2 (E %CONT))(HLRZ@ 1 -4 P)
06170		(CALL 1 (E %SPECIALP))(JUMPE 1 G0128)(MOVE 1 0 P)(CALL 1 (E ZEROP))(JUMPE 1 G0132)
06180		(HLRZ@ 1 -4 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE SPECIAL))(CALL 2 (E XCONS))(CALL 1 (E %OPOP))
06190		(JRST 0 G0131)
06200	G0132 (HLRZ@ 1 -4 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE SPECIAL))(CALL 2 (E XCONS))(CALL 1 (E NCONS))
06210		(MOVE 2 0 P)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE MOVEM))(CALL 2 (E XCONS))(CALL 1 (E %OUTPT))
06220	G0138 
06230	G0131 
06240	G0128 
06250	G0002 (MOVE 1 (SPECIAL EFFS))(JUMPN 1 G0007)(MOVE 1 (SPECIAL CNT))(CALL 1 (E SUB1))(MOVEM 1 (SPECIAL CNT))
06260		(HLRZ@ 1 -4 P)(CALL 1 (E %COMP))(JRST 0 G0006)
06270	G0003 (HLRZ@ 1 -4 P)(MOVEM 1 (SPECIAL DATA))(CALL 1 (E %OPUSHS))(MOVEI 2 (QUOTE SPLDLST))
06280		(MOVEI 1 (QUOTE %CSTQ#1))(CALL 2 (E %REMOVL))(JRST 0 G0001)
06290	G0007 (MOVEI 1 (QUOTE NIL))
06300	G0006 (SUB P (C 0 0 5 5))(JRST 0 SPECSTR)
06310	NIL 
06320	
06330	
06340	(LAP %CSPLD3#1 SUBR) 
06350		(PUSH P 1)(HRRZ@ 1 1)(CALL 1 (E ATOM))(JUMPN 1 G0002)(MOVE 2 (SPECIAL DATA))(HLRZ@ 1 0 P)
06360		(CALL 2 (E ASSOC))(JUMPN 1 G0002)(MOVEI 2 (QUOTE 1))(MOVE 1 0 P)(CALL 2 (E %CSFUN))
06370		(MOVEI 1 (QUOTE NIL))(JRST 0 G0001)
06380	G0002 (MOVEI 1 (QUOTE NIL))
06390	G0009 
06400	G0001 (SUB P (C 0 0 1 1))(POPJ P)
06410	NIL 
06420	
06430	
06440	(LAP %CSPLD3 SUBR) 
06450		(JSP 6 SPECBIND)(0 1 (SPECIAL DATA))(MOVEI 2 (QUOTE SPLDLST))(MOVEI 1 (QUOTE %CSPLD3#1))
06460		(CALL 2 (E %REMOVL))(JRST 0 SPECSTR)
06470	NIL 
06480	
06490	
06500	(LAP %CSPLD2#1 SUBR) 
06510		(PUSH P 1)(HRRZ@ 1 1)(CALL 1 (E ATOM))(JUMPN 1 G0002)(MOVE 2 (SPECIAL DATA))(MOVE 1 0 P)
06520		(CALL 2 (E %CSFUN))(MOVE 1 (SPECIAL LO))(JRST 0 G0001)
06530	G0002 (MOVE 1 0 P)(CALL 1 (E %CSPVAR))(MOVEI 1 (QUOTE T))
06540	G0006 
06550	G0001 (SUB P (C 0 0 1 1))(POPJ P)
06560	NIL 
06570	
06580	
06590	(LAP %CSPLD2 SUBR) 
06600		(JSP 6 SPECBIND)(0 1 (SPECIAL DATA))(0 2 (SPECIAL LO))(MOVEI 2 (QUOTE SPLDLST))(MOVEI 1 (QUOTE %CSPLD2#1~
06610	))(CALL 2 (E %REMOVL))(MOVEI 1 (QUOTE NIL))(JRST 0 SPECSTR)
06620	NIL 
06630	
06640	
06650	(LAP %CSPLD1#1 SUBR) 
06660		(PUSH P 1)(HRRZ@ 1 1)(CALL 1 (E ATOM))(JUMPE 1 G0001)(MOVE 1 0 P)(CALL 1 (E %CSPVAR))
06670		(MOVEI 1 (QUOTE T))
06680	G0004 
06690	G0001 (SUB P (C 0 0 1 1))(POPJ P)
06700	NIL 
06710	
06720	
06730	(LAP %CSPLD1 SUBR) 
06740		(MOVEI 2 (QUOTE SPLDLST))(MOVEI 1 (QUOTE %CSPLD1#1))(JCALL 2 (E %REMOVL))
06750	NIL 
06760	
06770	
06780	(LAP %CSFUN SUBR) 
06790		(PUSH P 1)(PUSH P 2)(PUSH P (C 0 0 (QUOTE NIL)))(MOVE 2 (SPECIAL LDLST))(HLRZ@ 1 1)
06800		(CALL 2 (E ASSOC))(MOVEM 1 0 P)(JUMPE 1 G0005)(CALL 1 (E %ILOC))(JUMPN 1 G0005)(MOVE 2 -1 P)
06810		(MOVE 1 -2 P)(CALL 2 (E %CARCDR))
06820	G0005 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 3 3))(POPJ P)
06830	NIL 
06840	
06850	
06860	(LAP %CSPLD SUBR) 
06870		(MOVEI 2 (QUOTE T))(MOVEI 1 (QUOTE 1))(JCALL 2 (E %CSPLD2))
06880	NIL 
06890	
06900	
06910	(LAP %CSPVAR SUBR) 
06920		(PUSH P 1)(MOVE 2 (SPECIAL CNT))(HLRZ@ 1 1)(CALL 2 (E CONS))(CALL 1 (E %ILOC))(CALL 1 (E NUMBERP))
06930		(JUMPN 1 G0005)(HLRZ@ 1 0 P)(CALL 1 (E %OPUSHS))(MOVE 2 (SPECIAL CNT))(HLRZ@ 1 0 P)
06940		(CALL 2 (E CONS))(MOVE 2 1)(MOVEI 1 (QUOTE 0))(CALL 2 (E %CONT))
06950	G0005 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 1 1))(POPJ P)
06960	NIL 
06970	
06980	
06990	(LAP %P1A SUBR) 
07000		(JSP 6 SPECBIND)(0 0 (SPECIAL BVARS))(0 0 (SPECIAL RNL))(0 0 (SPECIAL P1SCNT))(0 0 (SPECIAL P1STCNT))
07010		(0 0 (SPECIAL P1SCV))(MOVEI 2 (QUOTE 1))(MOVEM 2 (SPECIAL CNT))(CLEARM 1 (SPECIAL SPVARS))
07020		(MOVE 3 (SPECIAL SPVARS))(MOVEM 3 (SPECIAL LOCVARS))(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))
07030		(PUSH P (C 0 0 (QUOTE NIL)))(HLRZ@ 1 1)(CAIN 1 (QUOTE LAMBDA))(JRST 0 G0006)(MOVEI 1 (QUOTE (NOT A FUNCT~
07040	ION DEFINITION)))(CALL 17 (E %BARF))(JRST 0 G0005)
07050	G0006 (HRRZ@ 4 -2 P)(HLRZ@ 4 4)(JUMPE 4 G0009)(EXCH 1 4)(CALL 1 (E ATOM))(JUMPE 1 G0009)(MOVEI 1 (QUOTE T))
07060		(MOVEM 1 (SPECIAL LSUBRF))(HRRZ@ 1 -2 P)(HLRZ@ 1 1)(CALL 1 (E NCONS))(HRRZ@ 2 -2 P)
07070		(HRRZ@ 2 2)(CALL 2 (E CONS))(HLRZ@ 2 -2 P)(CALL 2 (E XCONS))(MOVEM 1 -2 P)
07080	G0009 
07090	G0005 (HRRZ@ 1 -2 P)(HLRZ@ 1 1)(MOVEM 1 0 P)(CALL 1 (E %P1LMB))(MOVEM 1 -1 P)(MOVE 1 0 P)
07100		(CALL 1 (E LENGTH))(MOVE 2 (SPECIAL %NACS))(CALL 2 (E *GREAT))(JUMPE 1 G0024)(MOVEI 1 (QUOTE (TOO MANY L~
07110	AMBDA ARGUMENTS)))(CALL 17 (E %BARF))
07120	G0024 
07130	G0001 (HLRZ@ 1 -2 P)(MOVEM 1 0 P)(HRRZ@ 1 -2 P)(CALL 1 (E CADR))(CALL 1 (E %P1))(CALL 1 (E NCONS))
07140		(MOVE 2 -1 P)(CALL 2 (E XCONS))(POP P 2)(CALL 2 (E XCONS))(SUB P (C 0 0 2 2))(JRST 0 SPECSTR)
07150	NIL 
07160	
07170	
07180	(LAP %P1LMB#1 SUBR) 
07190		(PUSH P 1)(CALL 1 (E %LOSERP))(JUMPE 1 G0006)(MOVE 2 (SPECIAL SPVARS))(MOVE 1 0 P)
07200		(CALL 2 (E %ADD))(MOVEM 1 (SPECIAL SPVARS))(JRST 0 G0001)
07210	G0006 (MOVE 2 (SPECIAL BVARS))(MOVE 1 0 P)(CALL 2 (E MEMQ))(JUMPE 1 G0010)(CALL 0 (E GENSYM))
07220		(POP P 2)(PUSH P 1)(CALL 2 (E XCONS))(MOVE 2 (SPECIAL RNL))(CALL 2 (E CONS))(MOVEM 1 (SPECIAL RNL))
07230	G0010 (MOVEI 2 (QUOTE 0))(MOVE 1 0 P)(CALL 2 (E %PLOC))
07240	G0001 (MOVE 2 (SPECIAL BVARS))(MOVE 1 0 P)(CALL 2 (E %ADD))(MOVEM 1 (SPECIAL BVARS))(MOVE 1 0 P)
07250		(SUB P (C 0 0 1 1))(POPJ P)
07260	NIL 
07270	
07280	
07290	(LAP %P1LMB SUBR) 
07300		(MOVE 2 1)(MOVEI 1 (QUOTE %P1LMB#1))(JCALL 2 (E MAPCAR))
07310	NIL 
07320	
07330	
07340	(LAP %P1LAM SUBR) 
07350		(JSP 6 SPECBIND)(0 2 (SPECIAL RNL))(HRRZ@ 2 1)(PUSH P 1)(MOVEI 1 (QUOTE %P1))(CALL 2 (E MAPCAR))
07360		(PUSH P 1)(HLRZ@ 1 -1 P)(CALL 1 (E CADR))(CALL 1 (E %P1LMB))(PUSH P 1)(MOVE 1 (SPECIAL CNT))
07370		(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL CNT))(HLRZ@ 1 -2 P)(CALL 1 (E CADDR))(CALL 1 (E %P1))
07380		(CALL 1 (E NCONS))(MOVE 2 0 P)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE LAMBDA))(CALL 2 (E XCONS))
07390		(MOVE 2 -1 P)(SUB P (C 0 0 3 3))(CALL 2 (E CONS))(JRST 0 SPECSTR)
07400	NIL 
07410	
07420	
07430	(LAP %P1 SUBR) 
07440		(JSP 6 SPECBIND)(0 0 (SPECIAL IVAR))(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
07450		(PUSH P (C 0 0 (QUOTE NIL)))(CALL 1 (E ATOM))(JUMPN 1 G0001)(HLRZ@ 1 -3 P)(CALL 1 (E ATOM))
07460		(JUMPN 1 G0003)(HLRZ@ 1 -3 P)(HLRZ@ 1 1)(CAIE 1 (QUOTE LAMBDA))(JRST 0 G0015)(MOVE 2 (SPECIAL RNL))
07470		(MOVE 1 -3 P)(CALL 2 (E %P1LAM))(JRST 0 G0008)
07480	G0015 (CAIE 1 (QUOTE LABEL))(JRST 0 G0019)(HLRZ@ 1 -3 P)(CALL 1 (E CADR))(CALL 1 (E NCONS))
07490		(PUSH P 1)(HLRZ@ 1 -4 P)(CALL 1 (E CADDR))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE FUNCTION))
07500		(CALL 2 (E XCONS))(PUSH P 1)(HLRZ@ 1 -5 P)(CALL 1 (E CADR))(EXCH 1 0 P)(CALL 1 (E %P1))
07510		(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE SETQ))(CALL 2 (E XCONS))
07520		(HRRZ@ 2 -4 P)(PUSH P 1)(HLRZ@ 1 -5 P)(CALL 1 (E CADR))(CALL 2 (E CONS))(CALL 1 (E NCONS))
07530		(MOVEI 2 (QUOTE RETURN))(CALL 2 (E XCONS))(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))
07540		(POP P 2)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE PROG))(CALL 2 (E XCONS))(CALL 1 (E %P1))
07550		(JRST 0 G0008)
07560	G0019 (MOVE 2 -3 P)(MOVEI 1 (QUOTE %P1))(CALL 2 (E MAPCAR))(JRST 0 G0008)
07570	G0042 
07580	G0001 (MOVE 1 -3 P)(CALL 1 (E NUMBERP))(JUMPN 1 G0049)(MOVEI 2 (QUOTE (T NIL)))(MOVE 1 -3 P)
07590		(CALL 2 (E MEMQ))(JUMPE 1 G0048)
07600	G0049 (MOVE 1 -3 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE QUOTE))(CALL 2 (E XCONS))(JRST 0 G0008)
07610	G0048 (MOVE 2 (SPECIAL RNL))(MOVE 1 -3 P)(CALL 2 (E ASSOC))(MOVEM 1 0 P)(JUMPE 1 G0055)(HRRZ@ 1 1)
07620		(CALL 1 (E %P1))(JRST 0 G0008)
07630	G0055 (MOVE 1 -3 P)(CALL 1 (E %LOSERP))(JUMPE 1 G0060)(MOVE 2 (SPECIAL SPVARS))(MOVE 1 -3 P)
07640		(CALL 2 (E %ADD))(MOVEM 1 (SPECIAL SPVARS))(JRST 0 G0047)
07650	G0060 (MOVE 1 -3 P)(CALL 1 (E %VARB))(JUMPN 1 G0002)(MOVE 1 (SPECIAL CNT))(CALL 1 (E ADD1))
07660		(MOVE 2 1)(MOVE 1 -3 P)(CALL 2 (E %PLOC))
07670	G0064 
07680	G0047 
07690	G0002 (MOVE 1 (SPECIAL CNT))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL CNT))(MOVE 1 -3 P)(JRST 0 G0008)
07700	G0003 (MOVE 2 (SPECIAL RNL))(HLRZ@ 1 -3 P)(CALL 2 (E ASSOC))(MOVEM 1 0 P)(JUMPE 1 G0072)(HRRZ@ 2 -3 P)
07710		(HRRZ@ 1 1)(CALL 2 (E CONS))(CALL 1 (E %P1))(JRST 0 G0008)
07720	G0072 (MOVEI 2 (QUOTE MACRO))(HLRZ@ 1 -3 P)(CALL 2 (E GET))(MOVEM 1 0 P)(JUMPE 1 G0080)(MOVE 1 -3 P)
07730		(CALLF@ 1 0 P)(CALL 1 (E %P1))(JRST 0 G0008)
07740	G0080 (HLRZ@ 1 -3 P)(CAIN 1 (QUOTE SETQ))(JRST 0 G0005)(CAIE 1 (QUOTE LIST))(JRST 0 G0087)
07750		(MOVEI 1 (QUOTE NIL))(CALL 1 (E NCONS))(MOVE 2 1)(HRRZ@ 1 -3 P)(CALL 2 (E *APPEND))
07760		(MOVE 2 1)(MOVEI 1 (QUOTE CONS))(CALL 2 (E %ITER))(JRST 0 G0008)
07770	G0087 (HRRZ@ 1 -3 P)(CALL 1 (E LENGTH))(CAIE 1 (QUOTE 2))(JRST 0 G0094)(MOVEI 2 (QUOTE ((GREATERP . *GREAT) (LES~
07780	SP . *LESS) (PLUS . *PLUS) (APPEND . *APPEND) (DIFFERENCE . *DIF) (TIMES . *TIMES) (QUOTIENT . *QUO))))
07790		(HLRZ@ 1 -3 P)(CALL 2 (E ASSOC))(MOVEM 1 0 P)(JUMPE 1 G0094)(HRRZ@ 2 -3 P)(HRRZ@ 1 0 P)
07800		(CALL 2 (E CONS))(MOVEM 1 -3 P)(JRST 0 G0071)
07810	G0094 (HLRZ@ 1 -3 P)(CAIE 1 (QUOTE PROG))(JRST 0 G0103)(CALL 0 (E %P1PSTP))(MOVE 2 (SPECIAL RNL))
07820		(HRRZ@ 1 -3 P)(CALL 2 (E %P1PROG))(JRST 0 G0008)
07830	G0103 (CAIE 1 (QUOTE NOT))(JRST 0 G0109)(HRRZ@ 2 -3 P)(MOVEI 1 (QUOTE NULL))(CALL 2 (E CONS))
07840		(MOVEM 1 -3 P)(JRST 0 G0071)
07850	G0109 (CAIN 1 (QUOTE COND))(JRST 0 G0006)(CAIE 1 (QUOTE ERRSET))(JRST 0 G0114)(HRRZ@ 1 -3 P)
07860		(HLRZ@ 1 1)(CALL 1 (E ATOM))(JUMPN 1 G0114)(HRRZ@ 1 -3 P)(HLRZ@ 1 1)(CALL 1 (E NCONS))
07870		(MOVEI 2 (QUOTE NIL))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE LAMBDA))(CALL 2 (E XCONS))
07880		(PUSH P 1)(HLRZ@ 1 -4 P)(EXCH 1 0 P)(CALL 1 (E %GFY))(CALL 1 (E NCONS))(HRRZ@ 2 -4 P)
07890		(HRRZ@ 2 2)(CALL 2 (E CONS))(POP P 2)(CALL 2 (E XCONS))(JRST 0 G0008)
07900	G0114 (HLRZ@ 1 -3 P)(CAIE 1 (QUOTE GO))(JRST 0 G0130)(CALL 0 (E %P1PSTP))(MOVE 1 -3 P)(JRST 0 G0008)
07910	G0130 (CAIE 1 (QUOTE RETURN))(JRST 0 G0134)(CALL 0 (E %P1PSTP))(JRST 0 G0071)
07920	G0134 (MOVEI 2 (QUOTE ((FUNCTION . QUOTE) (*FUNCTION . *FUNCTION))))(CALL 2 (E ASSOC))(MOVEM 1 0 P)
07930		(JUMPE 1 G0137)(HRRZ@ 1 1)(PUSH P 1)(HRRZ@ 1 -4 P)(HLRZ@ 1 1)(CALL 1 (E %GFY))(CALL 1 (E NCONS))
07940		(POP P 2)(CALL 2 (E XCONS))(JRST 0 G0008)
07950	G0137 (MOVEI 2 (QUOTE (AND OR)))(HLRZ@ 1 -3 P)(CALL 2 (E MEMQ))(JUMPE 1 G0146)(MOVE 2 (SPECIAL LOCVARS))
07960		(MOVE 3 (SPECIAL CNT))(MOVEM 2 -2 P)(HRRZ@ 2 -3 P)(MOVEI 1 (QUOTE %P1))(MOVEM 3 -1 P)
07970		(CALL 2 (E MAPCAR))(MOVEM 1 0 P)(JRST 0 G0007)
07980	G0146 (MOVEI 2 (QUOTE (EXPR SUBR *EXPR)))(HLRZ@ 1 -3 P)(CALL 2 (E GETL))(JUMPN 1 G0071)(HLRZ@ 1 -3 P)
07990		(CAIE 1 (QUOTE STORE))(JRST 0 G0154)(HRRZ@ 1 -3 P)(CALL 1 (E CADR))(CALL 1 (E %P1))
08000		(MOVEM 1 0 P)(HLRZ@ 1 -3 P)(PUSH P 1)(HRRZ@ 1 -4 P)(HLRZ@ 1 1)(CALL 1 (E %P1))(PUSH P 1)
08010		(MOVE 1 -2 P)(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))(POP P 2)(CALL 2 (E XCONS))
08020		(JRST 0 G0008)
08030	G0154 (MOVEI 2 (QUOTE (FEXPR FSUBR *FEXPR)))(CALL 2 (E GETL))(JUMPE 1 G0165)(MOVE 1 -3 P)
08040		(JRST 0 G0008)
08050	G0165 (MOVEI 2 (QUOTE SPECIAL))(MOVE 1 -3 P)(CALL 2 (E GET))(JUMPN 1 G0170)(MOVE 2 (SPECIAL BVARS))
08060		(HLRZ@ 1 -3 P)(CALL 2 (E MEMQ))(JUMPE 1 G0169)
08070	G0170 (HLRZ@ 1 -3 P)(CALL 1 (E %P1))(HRRZ@ 2 -3 P)(CALL 2 (E CONS))(MOVEM 1 -3 P)
08080	G0169 
08090	G0071 (HRRZ@ 2 -3 P)(MOVEI 1 (QUOTE %P1))(CALL 2 (E MAPCAR))(MOVEM 1 0 P)(HLRZ@ 1 -3 P)(CAIE 1 (QUOTE EVAL))
08100		(JRST 0 G0182)(HRRZ@ 2 -3 P)(HRRZ@ 2 2)(JUMPN 2 G0182)(HLRZ@ 1 0 P)(HLRZ@ 1 1)(CAIE 1 (QUOTE CONS))
08110		(JRST 0 G0182)(HLRZ@ 1 0 P)(CALL 1 (E CAADR))(CAIE 1 (QUOTE QUOTE))(JRST 0 G0182)
08120		(HLRZ@ 1 0 P)(CALL 1 (E CADADR))(MOVEI 2 (QUOTE (FEXPR FSUBR *FEXPR)))(MOVEM 1 -2 P)
08130		(CALL 2 (E GETL))(JUMPE 1 G0182)(MOVEI 2 (QUOTE SUBR))(MOVE 1 -2 P)(CALL 2 (E CONS))
08140		(HLRZ@ 2 0 P)(HRRZ@ 2 2)(HRRZ@ 2 2)(HLRZ@ 2 2)(CALL 2 (E CONS))(JRST 0 G0008)
08150	G0182 
08160	G0004 (MOVE 2 0 P)(HLRZ@ 1 -3 P)(CALL 2 (E CONS))(JRST 0 G0008)
08170	G0005 (MOVE 2 (SPECIAL RNL))(HRRZ@ 1 -3 P)(HLRZ@ 1 1)(CALL 2 (E ASSOC))(MOVEM 1 0 P)(JUMPE 1 G0200)
08180		(HRRZ@ 1 1)(JRST 0 G0199)
08190	G0200 (HRRZ@ 1 -3 P)(HLRZ@ 1 1)
08200	G0204 
08210	G0199 (MOVEM 1 -1 P)(CALL 1 (E %VARB))(MOVE 2 (SPECIAL P1SCV))(MOVE 1 -1 P)(CALL 2 (E CONS))
08220		(MOVEM 1 (SPECIAL P1SCV))(HRRZ@ 1 -3 P)(CALL 1 (E CADR))(CALL 1 (E %P1))(MOVEM 1 0 P)
08230		(MOVE 1 (SPECIAL CNT))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL CNT))(MOVE 1 0 P)(CALL 1 (E NCONS))
08240		(MOVE 2 -1 P)(CALL 2 (E XCONS))(HLRZ@ 2 -3 P)(CALL 2 (E XCONS))(JRST 0 G0008)
08250	G0006 (MOVE 1 (SPECIAL LOCVARS))(MOVE 2 (SPECIAL CNT))(MOVEM 1 -2 P)(HRRZ@ 1 -3 P)(MOVEM 2 -1 P)
08260		(CALL 1 (E %P1CDC))(MOVEM 1 0 P)
08270	G0007 (MOVE 1 (SPECIAL CNT))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL CNT))(MOVE 3 -2 P)(MOVE 2 1)
08280		(MOVE 1 -1 P)(CALL 3 (E %P1BUG))(MOVE 1 (SPECIAL CNT))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL CNT))
08290		(JRST 0 G0004)
08300	G0008 (SUB P (C 0 0 4 4))(JRST 0 SPECSTR)
08310	NIL 
08320	
08330	
08340	(LAP %GFY SUBR) 
08350		(PUSH P 1)(CALL 1 (E ATOM))(JUMPE 1 G0002)(MOVE 1 0 P)(JRST 0 G0001)
08360	G0002 (PUSH P (C 0 0 G0006))(MOVE 1 (SPECIAL %NAME))(CALL 1 (E EXPLODE))(PUSH P 1)(PUSH P (C 0 0 (QUOTE (#))))
08370		(MOVE 1 (SPECIAL %G0CNT))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL %G0CNT))(CALL 1 (E EXPLODE))
08380		(PUSH P 1)(MOVNI 6 3)(JCALL 16 (E APPEND))
08390	G0006 (CALL 1 (E MAKNAM))(MOVE 3 0 P)(MOVEI 2 (QUOTE EXPR))(CALL 3 (E %COM2))
08400	G0004 
08410	G0001 (SUB P (C 0 0 1 1))(POPJ P)
08420	NIL 
08430	
08440	
08450	(LAP %P1PSTP SUBR) 
08460		(MOVE 1 (SPECIAL P1SCNT))(CALL 1 (E NUMBERP))(JUMPE 1 G0002)(MOVE 1 (SPECIAL P1SCNT))
08470		(CALL 1 (E ZEROP))(JUMPE 1 G0002)(MOVE 1 (SPECIAL P1STCNT))(MOVEM 1 (SPECIAL P1SCNT))
08480		(JRST 0 G0001)
08490	G0002 (MOVEI 1 (QUOTE NIL))
08500	G0001 (POPJ P)
08510	NIL 
08520	
08530	
08540	(LAP %P1PROG#1 SUBR) 
08550		(PUSH P 1)(MOVE 1 (SPECIAL CNT))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL CNT))(MOVEM 1 (SPECIAL P1STCNT))
08560		(MOVE 1 0 P)(CALL 1 (E ATOM))(JUMPE 1 G0003)(CALL 0 (E %P1PSTP))(CALL 0 (E GENSYM))
08570		(MOVE 2 0 P)(CALL 2 (E XCONS))(MOVE 2 (SPECIAL GL))(CALL 2 (E CONS))(MOVEM 1 (SPECIAL GL))
08580		(MOVE 1 0 P)(JRST 0 G0002)
08590	G0003 (MOVE 1 0 P)(CALL 1 (E %P1))
08600	G0009 
08610	G0002 (SUB P (C 0 0 1 1))(POPJ P)
08620	NIL 
08630	
08640	
08650	(LAP %P1PROG#2 SUBR) 
08660		(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))(MOVE 2 (SPECIAL LOCVARS))(CALL 2 (E ASSOC))
08670		(MOVEM 1 0 P)(JUMPE 1 G0017)(HRRZ@ 1 1)(CALL 1 (E ZEROP))
08680	G0017 (SUB P (C 0 0 2 2))(POPJ P)
08690	NIL 
08700	
08710	
08720	(LAP %P1PROG SUBR) 
08730		(JSP 6 SPECBIND)(0 2 (SPECIAL RNL))(0 0 (SPECIAL GL))(0 0 (SPECIAL P1SCNT))(0 0 (SPECIAL P1LL))
08740		(0 0 (SPECIAL P1STCNT))(PUSH P 1)(HLRZ@ 1 1)(CALL 1 (E %P1LMB))(MOVEM 1 (SPECIAL P1LL))
08750		(PUSH P (SPECIAL LOCVARS))(MOVEI 2 (QUOTE 0))(MOVEM 2 (SPECIAL P1SCNT))(MOVE 3 (SPECIAL CNT))
08760		(MOVEM 3 (SPECIAL P1STCNT))(HRRZ@ 2 -1 P)(MOVEI 1 (QUOTE %P1PROG#1))(CALL 2 (E MAPCAR))
08770		(MOVEM 1 -1 P)(MOVE 1 (SPECIAL CNT))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL CNT))(MOVE 1 (SPECIAL P1SCNT))
08780		(CALL 1 (E ZEROP))(JUMPN 1 G0032)(MOVE 3 0 P)(MOVE 2 (SPECIAL CNT))(MOVE 1 (SPECIAL P1SCNT))
08790		(CALL 3 (E %P1BUG))
08800	G0032 (MOVEI 2 (QUOTE P1LL))(MOVEI 1 (QUOTE %P1PROG#2))(CALL 2 (E %REMOVL))(MOVE 1 (SPECIAL CNT))
08810		(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL CNT))(MOVE 1 -1 P)(CALL 1 (E NCONS))(MOVE 2 (SPECIAL P1LL))
08820		(CALL 2 (E XCONS))(MOVE 2 (SPECIAL GL))(CALL 2 (E XCONS))(MOVE 2 (SPECIAL P1SCNT))
08830		(CALL 2 (E XCONS))(MOVEI 2 (QUOTE PROG))(SUB P (C 0 0 2 2))(CALL 2 (E XCONS))(JRST 0 SPECSTR)
08840	NIL 
08850	
08860	
08870	(LAP %OUTG SUBR) 
08880		(PUSH P 1)(HLRZ@ 1 1)(CALL 1 (E %OUTPT))
08890	G0001 (HRRZ@ 1 0 P)(MOVEM 1 0 P)(JUMPN 1 G0009)(MOVEI 1 (QUOTE (PUSHJ P *UDT)))(CALL 1 (E %OUTPT))
08900		(JRST 0 G0002)
08910	G0009 (HLRZ@ 1 0 P)(HLRZ@ 1 1)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE QUOTE))(CALL 2 (E XCONS))
08920		(CALL 1 (E NCONS))(MOVEI 2 (QUOTE 1))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE CAIN))(CALL 2 (E XCONS))
08930		(CALL 1 (E %OUTPT))(HLRZ@ 1 0 P)(HRRZ@ 1 1)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE 0))(CALL 2 (E XCONS))
08940		(MOVEI 2 (QUOTE JRST))(CALL 2 (E XCONS))(JRST 0 (G0001 -1))
08950	G0002 (SUB P (C 0 0 1 1))(POPJ P)
08960	NIL 
08970	
08980	
08990	(LAP %CPROG SUBR) 
09000		(JSP 6 SPECBIND)(0 0 (SPECIAL GL))(0 0 (SPECIAL EXIT))(0 0 (SPECIAL EXITN))(0 0 (SPECIAL PVR))
09010		(0 0 (SPECIAL PRSSL))(0 0 (SPECIAL PROGSW))(0 0 (SPECIAL VGO))(PUSH P 1)(HLRZ@ 1 1)
09020		(PUSH P 1)(HRRZ@ 1 -1 P)(MOVEI 3 (QUOTE T))(MOVEM 3 (SPECIAL PROGSW))(MOVE 4 (SPECIAL NO))
09030		(MOVEM 4 (SPECIAL PVR))(MOVEM 1 -1 P)(PUSH P 2)(CALL 0 (E GENSYM))(MOVEM 1 (SPECIAL EXIT))
09040		(CALL 0 (E GENSYM))(MOVEM 1 (SPECIAL EXITN))(CALL 0 (E GENSYM))(MOVEM 1 (SPECIAL VGO))
09050		(MOVE 2 (SPECIAL EXIT))(MOVEI 1 (QUOTE NIL))(CALL 2 (E CONS))(MOVE 2 (SPECIAL EXITN))
09060		(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P 1)(MOVEI 1 (QUOTE NIL))(CALL 2 (E CONS))(MOVE 2 (SPECIAL VGO))
09070		(PUSH P 1)(MOVEI 1 (QUOTE NIL))(CALL 2 (E CONS))(HLRZ@ 2 -5 P)(CALL 2 (E CONS))(POP P 2)
09080		(CALL 2 (E XCONS))(POP P 2)(CALL 2 (E XCONS))(MOVEM 1 (SPECIAL GL))(HRRZ@ 1 -3 P)
09090		(HLRZ@ 1 1)(MOVEM 1 0 P)
09100	G0001 (MOVE 1 0 P)(JUMPE 1 G0002)(HLRZ@ 1 1)(CALL 1 (E %SPECIALP))(JUMPN 1 G0022)(MOVE 2 (SPECIAL PVRL))
09110		(HLRZ@ 1 0 P)(CALL 2 (E CONS))(MOVEM 1 (SPECIAL PVRL))
09120	G0025 
09130	G0022 (HRRZ@ 1 0 P)(JRST 0 (G0001 -1))
09140	G0002 (HRRZ@ 1 -3 P)(CALL 1 (E CADR))(MOVEM 1 -3 P)
09150	G0003 (MOVE 1 (SPECIAL PROGSW))(JUMPN 1 G0034)(MOVE 1 (SPECIAL SLOTLIST))(CALL 1 (E LENGTH))
09160		(PUSH P 1)(MOVE 1 (SPECIAL PRSSL))(CALL 1 (E LENGTH))(POP P 2)(CALL 2 (E *LESS))(JUMPE 1 G0034)
09170		(MOVE 1 (SPECIAL PRSSL))(CALL 1 (E %RESTORE))
09180	G0034 (MOVE 1 -3 P)(JUMPE 1 G0004)(MOVE 1 (SPECIAL CNT))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL CNT))
09190		(CAME 1 -2 P)(JRST 0 G0042)(CALL 0 (E %CLEAR1))
09200	G0042 (HLRZ@ 1 -3 P)(CALL 1 (E ATOM))(JUMPE 1 G0047)(CALL 0 (E %CLRACS))(CALL 0 (E %CPVRL))
09210		(MOVE 1 (SPECIAL PRSSL))(CALL 1 (E %RESTORE))(HLRZ@ 1 -3 P)(CALL 1 (E %ADR))(MOVEM 1 0 P)
09220		(MOVE 1 (SPECIAL LOUT))(CALL 1 (E ATOM))(JUMPN 1 G0056)(MOVEI 3 (QUOTE PREVI))(MOVE 2 (SPECIAL LOUT))
09230		(MOVE 1 0 P)(CALL 3 (E PUTPROP))
09240	G0056 (MOVE 1 0 P)(CALL 1 (E %OUTPT))(JRST 0 G0046)
09250	G0047 (HRRZ@ 2 -3 P)(JUMPN 2 G0061)(HLRZ@ 1 -3 P)(HLRZ@ 1 1)(CAIE 1 (QUOTE RETURN))(JRST 0 G0061)
09260		(HLRZ@ 1 -3 P)(HRRZ@ 1 1)(JUMPE 1 G0067)(HLRZ@ 2 1)(JUMPN 2 G0066)
09270	G0067 (MOVEI 3 (QUOTE USED))(MOVEI 2 (QUOTE T))(MOVE 1 (SPECIAL EXITN))(CALL 3 (E PUTPROP))
09280		(JRST 0 G0004)
09290	G0066 (HLRZ@ 1 -3 P)(CALL 1 (E CADR))(PUSH P (SPECIAL PVR))(CALL 1 (E %COMP))(MOVE 2 1)(POP P 1)
09300		(CALL 2 (E %LOAD1))(MOVEI 2 (QUOTE USED))(MOVE 1 (SPECIAL EXITN))(CALL 2 (E GET))
09310		(JUMPE 1 G0078)(MOVE 3 (SPECIAL EXIT))(MOVEI 2 (QUOTE 0))(MOVEI 1 (QUOTE JRST))(CALL 3 (E %OUTJ))
09320		(JRST 0 G0004)
09330	G0078 (JRST 0 G0005)
09340	G0072 (JRST 0 G0046)
09350	G0061 (HLRZ@ 1 -3 P)(CALL 1 (E %COMPE))
09360	G0085 
09370	G0046 (HRRZ@ 1 -3 P)(JRST 0 (G0003 -1))
09380	G0004 (MOVE 1 (SPECIAL EXITN))(CALL 1 (E %OUTTAG))(HLRZ@ 1 (SPECIAL LOUT))(CAIE 1 (QUOTE JRST))
09390		(JRST 0 G0095)(MOVEI 2 (QUOTE USED))(MOVE 1 (SPECIAL EXITN))(CALL 2 (E GET))(JUMPE 1 G0094)
09400	G0095 (MOVEI 1 (QUOTE (QUOTE NIL)))(CALL 1 (E NCONS))(MOVE 2 (SPECIAL PVR))(CALL 2 (E XCONS))
09410		(MOVEI 2 (QUOTE MOVEI))(CALL 2 (E XCONS))(CALL 1 (E %OUTPT))
09420	G0094 
09430	G0005 (MOVE 1 (SPECIAL EXIT))(CALL 1 (E %OUTTAG))(MOVE 1 -1 P)(JUMPE 1 G0105)(MOVEI 1 (QUOTE (PUSHJ P SPECSTR)))
09440		(CALL 1 (E %OUTPT))
09450	G0105 (MOVE 2 (SPECIAL CNT))(MOVEI 1 (QUOTE 2))(CALL 2 (E *PLUS))(MOVEM 1 (SPECIAL CNT))(MOVEI 2 (QUOTE USED))
09460		(MOVE 1 (SPECIAL VGO))(CALL 2 (E GET))(JUMPE 1 G0110)(HRRZ@ 2 (SPECIAL GL))(HRRZ@ 2 2)
09470		(HRRZ@ 2 2)(MOVE 1 (SPECIAL VGO))(CALL 2 (E CONS))(MOVE 2 (SPECIAL VGOL))(CALL 2 (E CONS))
09480		(MOVEM 1 (SPECIAL VGOL))
09490	G0110 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 4 4))(JRST 0 SPECSTR)
09500	NIL 
09510	
09520	
09530	(LAP %CPVRL SUBR) 
09540		(MOVE 1 (SPECIAL PROGSW))(JUMPE 1 G0003)(CLEARM 1 (SPECIAL PROGSW))
09550	G0001 (MOVE 1 (SPECIAL PVRL))(JUMPN 1 G0008)(MOVE 2 1)(MOVE 1 (SPECIAL SLOTLIST))(CALL 2 (E *APPEND))
09560		(MOVEM 1 (SPECIAL PRSSL))(MOVEI 1 (QUOTE NIL))(JRST 0 G0002)
09570	G0008 (MOVE 2 (SPECIAL CNT))(HLRZ@ 1 1)(CALL 2 (E CONS))(CALL 1 (E %ILOC))(JUMPN 1 G0011)
09580		(HLRZ@ 1 (SPECIAL PVRL))(CALL 1 (E %INITZ))
09590	G0011 (HRRZ@ 1 (SPECIAL PVRL))(MOVEM 1 (SPECIAL PVRL))(JRST 0 G0001)
09600	G0003 (MOVEI 1 (QUOTE NIL))
09610	G0002 (POPJ P)
09620	NIL 
09630	
09640	
09650	(LAP %INITZ SUBR) 
09660		(PUSH P 1)(MOVEI 1 (QUOTE ((QUOTE NIL))))(CALL 1 (E %OPUSH))(POP P 1)(CALL 1 (E NCONS))
09670		(MOVE 2 1)(MOVEI 1 (QUOTE 0))(CALL 2 (E %CONT))(MOVEI 1 (QUOTE NIL))(POPJ P)
09680	NIL 
09690	
09700	
09710	(LAP %VARB SUBR) 
09720		(PUSH P 1)(MOVE 2 (SPECIAL BVARS))(CALL 2 (E MEMQ))(JUMPN 1 G0003)(MOVE 1 0 P)(CALL 1 (E %LOSERP))
09730		(JUMPN 1 G0001)(MOVEI 1 (QUOTE UNDECLARED))(CALL 1 (E NCONS))(MOVE 2 0 P)(CALL 2 (E XCONS))
09740		(CALL 1 (E %PRINTTY))(MOVEI 3 (QUOTE SPECIAL))(MOVEI 2 (QUOTE T))(MOVE 1 0 P)(CALL 3 (E PUTPROP))
09750	G0001 (MOVE 2 (SPECIAL SPVARS))(MOVE 1 0 P)(CALL 2 (E %ADD))(MOVEM 1 (SPECIAL SPVARS))(MOVE 2 (SPECIAL BVARS))
09760		(MOVE 1 0 P)(CALL 2 (E %ADD))(MOVEM 1 (SPECIAL BVARS))(MOVEI 1 (QUOTE T))(JRST 0 G0002)
09770	G0003 (MOVEI 1 (QUOTE NIL))
09780	G0002 (SUB P (C 0 0 1 1))(POPJ P)
09790	NIL 
09800	
09810	
09820	(DEFPROP LOSERFLAG (NIL) VALUE) 
09830	(LAP %LOSERP SUBR) 
09840		(PUSH P 1)(MOVEI 2 (QUOTE SPECIAL))(CALL 2 (E GET))(JUMPN 1 G0001)(MOVE 1 (SPECIAL LOSERFLAG))
09850		(JUMPN 1 G0001)(TDZA 1 1)
09860	G0001 (MOVEI 1 T)(SUB P (C 0 0 1 1))(POPJ P)
09870	NIL 
09880	
09890	
09900	(LAP %LOAD1 SUBR) 
09910		(PUSH P 1)(MOVE 1 2)(PUSH P 2)(CALL 1 (E %REMOVE))(MOVE 2 -1 P)(MOVE 1 0 P)(CALL 2 (E %ILOC1))
09920		(PUSH P 1)(MOVE 1 -2 P)(CALL 1 (E %CONTENTS))(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))
09930		(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(MOVE 1 -4 P)(CALL 1 (E NUMBERP))
09940		(JUMPE 1 G0013)(MOVE 1 -4 P)(CALL 1 (E %CONTENTS))
09950	G0015 
09960	G0013 (MOVEM 1 0 P)(MOVE 1 -3 P)(CALL 1 (E %DVP))(MOVEM 1 -1 P)(MOVE 1 0 P)(CALL 1 (E %DVP))
09970		(MOVEM 1 -2 P)(MOVE 1 -6 P)(CAME 1 -4 P)(JRST 0 G0022)(MOVE 1 -1 P)(JUMPE 1 G0024)
09980		(MOVE 1 -6 P)(CALL 1 (E %CPUSH))
09990	G0024 (MOVEI 1 (QUOTE NIL))(JRST 0 G0007)
     
00010	G0022 (MOVE 1 -4 P)(CAIE 1 (QUOTE 0))(JRST 0 G0028)(MOVE 1 -2 P)(JUMPN 1 G0028)(MOVE 1 -1 P)
00020		(JUMPE 1 G0004)
00030	G0028 (MOVE 1 -2 P)(JUMPN 1 G0029)(MOVE 1 -3 P)(JUMPE 1 G0029)(MOVE 1 -4 P)(CALL 1 (E NUMBERP))
00040		(JUMPE 1 G0029)(MOVEI 2 (QUOTE 1))(MOVE 1 -4 P)(CALL 2 (E *LESS))(JUMPN 1 G0001)(MOVE 2 (SPECIAL HLAC))
00050		(MOVE 1 -4 P)(CALL 2 (E *GREAT))(JUMPN 1 G0001)(MOVE 2 -6 P)(MOVE 1 -4 P)(CALL 2 (E *LESS))
00060		(JUMPN 1 G0001)
00070	G0029 (MOVE 1 -1 P)(JUMPE 1 G0003)(JRST 0 G0002)
00080	G0001 (MOVE 2 -3 P)(MOVE 1 -4 P)(CALL 2 (E %CONT))(MOVE 3 -4 P)(MOVE 2 -6 P)(MOVEI 1 (QUOTE EXCH))
00090		(CALL 3 (E %OUT1))(JRST 0 G0005)
00100	G0002 (MOVE 1 -6 P)(CALL 1 (E %CPUSH))(MOVE 1 -5 P)(CALL 1 (E %LOC))(MOVEM 1 -4 P)
00110	G0003 (MOVE 1 -4 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0006)(MOVE 3 -4 P)(MOVE 2 -6 P)(MOVEI 1 (QUOTE MOVE))
00120		(CALL 3 (E %OUT1))(HRRZ@ 2 0 P)(JUMPN 2 G0047)(MOVEI 2 (QUOTE DUP))(HLRZ@ 1 0 P)(CALL 2 (E CONS))
00130		(MOVE 2 1)(JRST 0 G0046)
00140	G0047 (MOVEI 2 (QUOTE NIL))
00150	G0046 (MOVE 1 -6 P)(CALL 2 (E %CONT))(JRST 0 G0007)
00160	G0004 (MOVE 1 -6 P)(CALL 1 (E %OPOP))
00170	G0005 (MOVE 2 0 P)(MOVE 1 -6 P)(CALL 2 (E %CONT))(JRST 0 G0007)
00180	G0006 (MOVE 3 -4 P)(MOVE 2 -6 P)(MOVEI 1 (QUOTE MOVE))(CALL 3 (E %OUT1))(HLRZ@ 1 -4 P)(HLRZ@ 1 1)
00190		(CAIE 1 (QUOTE QUOTE))(JRST 0 G0059)(HLRZ@ 2 -4 P)(JRST 0 G0058)
00200	G0059 (HLRZ@ 1 -5 P)(CALL 1 (E NCONS))(MOVE 2 1)
00210	G0062 
00220	G0058 (MOVE 1 -6 P)(CALL 2 (E %CONT))
00230	G0007 (SUB P (C 0 0 7 7))(POPJ P)
00240	NIL 
00250	
00260	
00270	(LAP %LOC SUBR) 
00280		(MOVEI 2 (QUOTE NIL))(JCALL 2 (E %ILOC1))
00290	NIL 
00300	
00310	
00320	(LAP %ILOC SUBR) 
00330		(PUSH P (SPECIAL SLOTLIST))(PUSH P (C 0 0 (QUOTE 1)))(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))
00340		(PUSH P (C 0 0 (QUOTE NIL)))
00350	G0001 (MOVE 1 -4 P)(JUMPE 1 G0006)(HLRZ@ 2 1)(JUMPE 2 G0015)(HLRZ@ 1 -2 P)(HLRZ@ 3 2)(CAMN 3 1)
00360		(JRST 0 G0007)
00370	G0015 
00380	G0002 (HRRZ@ 1 -4 P)(MOVEM 1 -4 P)(MOVE 1 -3 P)(CALL 1 (E ADD1))(MOVEM 1 -3 P)(JRST 0 G0001)
00390	G0003 (MOVE 1 -1 P)(JUMPN 1 G0002)(MOVEI 2 (QUOTE 105105))(MOVEM 2 -1 P)(JRST 0 G0005)
00400	G0004 (HLRZ@ 1 -4 P)(HRRZ@ 1 1)(MOVEM 1 -1 P)
00410	G0005 (MOVE 1 -3 P)(MOVEM 1 0 P)(JRST 0 G0002)
00420	G0006 (MOVE 1 -1 P)(JUMPN 1 G0010)(HLRZ@ 1 -2 P)(CALL 1 (E %SPECIALP))(JUMPE 1 G0029)(HLRZ@ 1 -2 P)
00430		(CALL 1 (E NCONS))(MOVEI 2 (QUOTE SPECIAL))(CALL 2 (E XCONS))(JRST 0 G0011)
00440	G0029 (HLRZ@ 1 -2 P)(CAIE 1 (QUOTE QUOTE))(JRST 0 G0036)(MOVE 1 -2 P)(CALL 1 (E NCONS))(JRST 0 G0011)
00450	G0036 (MOVE 2 (SPECIAL VL))(CALL 2 (E %ASSOCR))(MOVEM 1 -4 P)(JUMPE 1 G0040)(HRRZ@ 2 -2 P)
00460		(HLRZ@ 1 1)(CALL 2 (E CONS))(CALL 1 (E %ILOC))(JRST 0 G0011)
00470	G0040 (JRST 0 G0012)
00480	G0007 (HLRZ@ 1 -2 P)(CAIN 1 (QUOTE QUOTE))(JRST 0 G0008)(HLRZ@ 1 -4 P)(HRRZ@ 1 1)(CALL 1 (E NUMBERP))
00490		(JUMPE 1 G0003)(HLRZ@ 2 -4 P)(HRRZ@ 2 2)(JUMPE 2 G0003)(HRRZ@ 2 -2 P)(HLRZ@ 1 -4 P)
00500		(HRRZ@ 1 1)(CALL 2 (E *LESS))(JUMPN 1 G0056)(MOVE 1 -1 P)(JUMPE 1 G0004)(HLRZ@ 2 -4 P)
00510		(HRRZ@ 2 2)(CALL 2 (E *GREAT))(JUMPN 1 G0004)
00520	G0056 (JRST 0 G0002)
00530	G0008 (HLRZ@ 2 -4 P)(MOVE 1 -2 P)(CALL 2 (E EQUAL))(JUMPE 1 G0002)
00540	G0009 (MOVE 1 -3 P)(MOVEM 1 0 P)
00550	G0010 (MOVE 2 (SPECIAL %NACS))(MOVE 1 0 P)(CALL 2 (E *GREAT))(JUMPN 1 G0070)(MOVE 1 0 P)(JRST 0 G0069)
00560	G0070 (MOVE 1 (SPECIAL %NACS))(CALL 1 (E ADD1))(MOVE 2 0 P)(CALL 2 (E *DIF))
00570	G0072 
00580	G0069 (JRST 0 G0011)
00590	G0012 (MOVEI 1 (QUOTE NIL))
00600	G0011 (SUB P (C 0 0 5 5))(POPJ P)
00610	NIL 
00620	
00630	
00640	(LAP %ILOC1 SUBR) 
00650		(PUSH P 1)(PUSH P 2)(PUSH P (C 0 0 (QUOTE NIL)))
00660	G0001 (MOVE 1 -2 P)(CALL 1 (E %ILOC))(MOVEM 1 0 P)(JUMPE 1 G0006)(JRST 0 G0002)
00670	G0006 (MOVE 2 (SPECIAL PVRL))(HLRZ@ 1 -2 P)(CALL 2 (E MEMQ))(JUMPE 1 G0009)(MOVEI 1 (QUOTE ((QUOTE NIL))))
00680		(JRST 0 G0002)
00690	G0009 (MOVE 2 (SPECIAL VL))(HLRZ@ 1 -2 P)(CALL 2 (E %ASSOCR))(MOVEM 1 0 P)(JUMPE 1 G0013)
00700		(HRRZ@ 2 -2 P)(HLRZ@ 1 1)(CALL 2 (E CONS))(MOVE 2 -1 P)(CALL 2 (E %ILOC1))(JRST 0 G0002)
00710	G0013 (MOVE 2 (SPECIAL SPLDLST))(HLRZ@ 1 -2 P)(CALL 2 (E ASSOC))(MOVEM 1 0 P)(JUMPE 1 G0021)
00720		(MOVE 2 -1 P)(JUMPN 2 G0025)(CALL 0 (E %FREAC))(MOVE 2 1)(JRST 0 G0024)
00730	G0025 (MOVE 2 -1 P)
00740	G0027 
00750	G0024 (MOVE 1 0 P)(CALL 2 (E %CARCDR))(JRST 0 G0002)
00760	G0021 (MOVE 1 -2 P)(CALL 1 (E %PRINTTY))(MOVEI 1 (QUOTE (DSI)))(CALL 17 (E %BARF))(MOVEI 1 (QUOTE NIL))
00770	G0002 (SUB P (C 0 0 3 3))(POPJ P)
00780	NIL 
00790	
00800	
00810	(LAP %CARCDR SUBR) 
00820		(PUSH P 1)(PUSH P 2)(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
00830		(CALL 1 (E CDDR))(MOVEM 1 0 P)(CALL 2 (E %ILOC1))(CAME 1 -3 P)(TDZA 1 1)(MOVEI 1 T)
00840		(MOVEM 1 -2 P)(JUMPE 1 G0008)(MOVE 1 0 P)(CALL 1 (E %REMOVE))
00850	G0008 (MOVE 1 -2 P)(JUMPE 1 G0016)(MOVE 1 -3 P)(CALL 1 (E %CONTENTS))(CALL 1 (E %DVP))(JUMPE 1 G0015)
00860	G0016 (MOVE 1 -3 P)(CALL 1 (E %CPUSH))
00870	G0015 (MOVE 1 0 P)(CALL 1 (E %REMOVE))(HRRZ@ 1 -4 P)(HLRZ@ 1 1)(MOVEM 1 -2 P)(MOVE 1 0 P)
00880		(CALL 1 (E %LOC))(MOVE 3 1)(MOVE 2 -3 P)(EXCH 1 -2 P)(CALL 3 (E %CSTEP))(EXCH 1 0 P)
00890		(CALL 1 (E %REMOVE))(HRRZ@ 2 0 P)(JUMPN 2 G0027)(HLRZ@ 1 0 P)(CALL 1 (E %CONTENTS))
00900		(HLRZ@ 2 -4 P)(HLRZ@ 1 1)(CALL 2 (E CONS))(MOVE 2 (SPECIAL VL))(CALL 2 (E CONS))(MOVEM 1 (SPECIAL VL))
00910		(HLRZ@ 1 0 P)(JRST 0 G0004)
00920	G0027 (MOVE 1 0 P)(CALL 1 (E REVERSE))(MOVEM 1 0 P)
00930	G0001 (HRRZ@ 1 0 P)(JUMPE 1 G0003)(MOVE 1 0 P)(CALL 1 (E LENGTH))(CAIN 1 (QUOTE 2))(JRST 0 G0002)
00940		(MOVE 1 -3 P)(CAIE 1 (QUOTE 1))(JRST 0 G0042)(HLRZ@ 1 0 P)(CAIE 1 (QUOTE 1))(JRST 0 G0042)
00950		(PUSH P (C 0 0 G0045))(HRRZ@ 1 -1 P)(CALL 1 (E REVERSE))(PUSH P 1)(PUSH P (C 0 0 (QUOTE (R))))
00960		(MOVNI 6 2)(JCALL 16 (E NCONC))
00970	G0045 (MOVEI 2 (QUOTE C))(CALL 2 (E XCONS))(CALL 1 (E READLIST))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE E))
00980		(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE 1))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE CALL))
00990		(CALL 2 (E XCONS))(CALL 1 (E %OUTPT))(JRST 0 G0003)
01000	G0042 
01010	G0002 (MOVEI 2 (QUOTE INST))(HRRZ@ 1 0 P)(HLRZ@ 1 1)(CALL 2 (E GET))(HLRZ@ 3 0 P)(MOVE 2 -3 P)
01020		(CALL 3 (E %OUT1))(HRRZ@ 2 0 P)(HRRZ@ 2 2)(MOVE 1 -3 P)(CALL 2 (E CONS))(JRST 0 (G0001 -1))
01030	G0003 (HLRZ@ 1 -4 P)(CALL 1 (E NCONS))(MOVE 2 1)(MOVE 1 -3 P)(CALL 2 (E %CONT))(MOVE 1 -3 P)
01040	G0004 (SUB P (C 0 0 5 5))(POPJ P)
01050	NIL 
01060	
01070	
01080	(LAP %CSTEP SUBR) 
01090		(PUSH P 1)(PUSH P 2)(PUSH P 3)(PUSH P (C 0 0 (QUOTE NIL)))(JUMPN 1 G0005)(EXCH 1 3)
01100		(CALL 1 (E NCONS))(JRST 0 G0004)
01110	G0005 (EXCH 2 3)(CALL 2 (E %COPT))(MOVEM 1 0 P)(JUMPE 1 G0007)(CALL 1 (E NCONS))(JRST 0 G0004)
01120	G0007 (MOVEI 2 (QUOTE OPEN))(MOVE 1 -3 P)(CALL 2 (E GET))(MOVEM 1 0 P)(HLRZ@ 1 1)(MOVE 3 -1 P)
01130		(MOVE 2 -2 P)(PUSH P 1)(HRRZ@ 1 -1 P)(CALL 3 (E %CSTEP))(POP P 2)(CALL 2 (E XCONS))
01140	G0010 
01150	G0004 (SUB P (C 0 0 4 4))(POPJ P)
01160	NIL 
01170	
01180	
01190	(LAP %COPT SUBR) 
01200		(PUSH P (SPECIAL SPLDLST))(PUSH P 1)(PUSH P 2)(PUSH P (C 0 0 (QUOTE NIL)))
01210	G0001 (MOVE 1 -3 P)(JUMPE 1 G0004)(CALL 1 (E CDAR))(CALL 1 (E ATOM))(JUMPN 1 G0002)(HLRZ@ 1 -3 P)
01220		(CALL 1 (E CADR))(CAME 1 -2 P)(JRST 0 G0009)(HLRZ@ 1 -3 P)(CALL 1 (E CDDR))(CALL 1 (E %ILOC))
01230		(CAME 1 -1 P)(JRST 0 G0009)(HLRZ@ 1 -3 P)(HLRZ@ 1 1)(CALL 1 (E NCONS))(CALL 1 (E %ILOC))
01240		(MOVEM 1 0 P)(JUMPE 1 G0009)(MOVE 1 0 P)(JRST 0 G0003)
01250	G0009 
01260	G0002 (HRRZ@ 1 -3 P)(MOVEM 1 -3 P)(JRST 0 G0001)
01270	G0004 (MOVEI 1 (QUOTE NIL))
01280	G0003 (SUB P (C 0 0 4 4))(POPJ P)
01290	NIL 
01300	
01310	
01320	(LAP %PHASE2 SUBR) 
01330		(JSP 6 SPECBIND)(0 0 (SPECIAL SLOTLIST))(0 0 (SPECIAL LDLST))(0 0 (SPECIAL SPFL))
01340		(0 0 (SPECIAL ARGNO))(0 0 (SPECIAL SFLG))(0 0 (SPECIAL PVRL))(0 0 (SPECIAL SPLDLST))
01350		(0 0 (SPECIAL RSL))(0 0 (SPECIAL RSSL))(0 0 (SPECIAL PROGSW))(0 0 (SPECIAL VGOL))
01360		(0 0 (SPECIAL GL))(0 0 (SPECIAL CTAG))(0 0 (SPECIAL VL))(0 0 (SPECIAL HLAC))(MOVEI 2 (QUOTE -105105))
01370		(MOVEM 2 (SPECIAL HLAC))(MOVEI 3 (QUOTE 1))(MOVEM 3 (SPECIAL ARGNO))(MOVEI 4 (QUOTE 1))
01380		(MOVEM 4 (SPECIAL CNT))(PUSH P (SPECIAL %NACS))(PUSH P 1)
01390	G0001 (MOVE 1 -1 P)(CALL 1 (E ZEROP))(JUMPN 1 G0002)(MOVE 2 (SPECIAL SLOTLIST))(MOVEI 1 (QUOTE NIL))
01400		(CALL 2 (E CONS))(MOVEM 1 (SPECIAL SLOTLIST))(MOVE 1 -1 P)(CALL 1 (E SUB1))(MOVEM 1 -1 P)
01410		(JRST 0 G0001)
01420	G0002 (MOVE 1 (SPECIAL LSUBRF))(JUMPE 1 G0014)(MOVE 3 (SPECIAL LOUT))(MOVEI 2 (QUOTE SUBR))
01430		(MOVEI 1 (QUOTE LSUBR))(CALL 3 (E SUBST))(MOVEM 1 (SPECIAL LOUT))(MOVEI 1 (QUOTE (JSP 3 *LCALL)))
01440		(CALL 1 (E %OUTPT))(JRST 0 G0013)
01450	G0014 (HRRZ@ 1 (SPECIAL LOUT))(CALL 1 (E CADR))(CAIE 1 (QUOTE FSUBR))(JRST 0 G0017)(HRRZ@ 2 0 P)
01460		(HLRZ@ 2 2)(HRRZ@ 2 2)(JUMPE 2 G0017)(MOVEI 1 (QUOTE (PUSHJ P *AMAKE)))(CALL 1 (E %OUTPT))
01470	G0017 
01480	G0013 (MOVEI 2 (QUOTE T))(HRRZ@ 1 0 P)(HLRZ@ 1 1)(CALL 2 (E %LMB))(MOVEM 1 (SPECIAL SPFL))
01490		(JUMPE 1 G0026)(TDZA 1 1)
01500	G0026 (MOVEI 1 T)(JUMPN 1 G0025)(HRRZ@ 1 0 P)(CALL 1 (E CAADR))(CAIN 1 (QUOTE PROG))(JRST 0 G0028)
01510		(CLEARM 1 (SPECIAL SFLG))
01520	G0028 
01530	G0025 (HRRZ@ 1 0 P)(CALL 1 (E CADR))(CALL 1 (E %COMP))(MOVE 2 1)(MOVEI 1 (QUOTE 1))(CALL 2 (E %LOAD1))
01540		(MOVEI 2 (QUOTE ((PUSHJ . JRST) (CALL . JCALL))))(HLRZ@ 1 (SPECIAL LOUT))(CALL 2 (E ASSOC))
01550		(MOVEM 1 -1 P)(JUMPE 1 G0035)(MOVE 2 (SPECIAL LOUT))(MOVEM 2 (SPECIAL ARGNO))(MOVEI 3 (QUOTE %FOO))
01560		(MOVEM 3 (SPECIAL LOUT))(CALL 0 (E %NPDL))(MOVE 1 (SPECIAL ARGNO))(CALL 1 (E %OUTPT))
01570		(MOVE 1 (SPECIAL SPFL))(JUMPN 1 G0041)(HRRZ@ 1 -1 P)(HRRZ@ 3 (SPECIAL LOUT))(HLRZ@ 3 3)
01580		(MOVEI 2 (QUOTE P))(PUSH P 1)(MOVEI 1 (QUOTE 0))(CALL 3 (E SUBST))(HRRZ@ 2 (SPECIAL LOUT))
01590		(HRRZ@ 2 2)(CALL 2 (E CONS))(POP P 2)(CALL 2 (E XCONS))(MOVEM 1 (SPECIAL LOUT))(JRST 0 G0003)
01600	G0041 (JRST 0 G0034)
01610	G0035 (CALL 0 (E %NPDL))(MOVE 1 (SPECIAL SPFL))(JUMPN 1 G0054)(MOVEI 1 (QUOTE (POPJ P)))(CALL 1 (E %OUTPT))
01620		(JRST 0 G0003)
01630	G0054 
01640	G0050 
01650	G0034 (MOVEI 1 (QUOTE (JRST 0 SPECSTR)))(CALL 1 (E %OUTPT))
01660	G0003 (MOVE 1 (SPECIAL VGOL))(JUMPE 1 G0061)(HLRZ@ 1 1)(CALL 1 (E %OUTG))(HRRZ@ 1 (SPECIAL VGOL))
01670		(MOVEM 1 (SPECIAL VGOL))(JRST 0 G0003)
01680	G0061 (MOVE 1 (SPECIAL LDLST))(JUMPE 1 G0068)(CALL 1 (E %PRINTTY))
01690	G0068 (SUB P (C 0 0 2 2))(JRST 0 SPECSTR)
01700	NIL 
01710	
01720	
01730	(LAP %NPDL SUBR) 
01740		(MOVEI 1 (QUOTE (NIL NIL NIL NIL NIL)))(JCALL 1 (E %RESTORE))
01750	NIL 
01760	
01770	
01780	(LAP %LMB SUBR) 
01790		(PUSH P (C 0 0 (QUOTE 1)))(PUSH P 1)(PUSH P 2)(PUSH P (C 0 0 (QUOTE NIL)))
01800	G0001 (MOVE 1 -2 P)(JUMPN 1 G0010)(MOVE 1 0 P)(JRST 0 G0006)
01810	G0010 (HLRZ@ 1 1)(CALL 1 (E %SPECIALP))(JUMPN 1 G0004)(MOVE 2 (SPECIAL LOCVARS))(HLRZ@ 1 -2 P)
01820		(CALL 2 (E ASSOC))(JUMPN 1 G0002)(JRST 0 G0003)
01830	G0002 (MOVE 1 -1 P)(JUMPE 1 G0019)(HLRZ@ 1 -2 P)(CALL 1 (E NCONS))(MOVE 2 1)(MOVE 1 -3 P)
01840		(CALL 2 (E %CONT))
01850	G0019 
01860	G0003 (MOVE 1 -3 P)(CALL 1 (E ADD1))(MOVEM 1 -3 P)(HRRZ@ 1 -2 P)(MOVEM 1 -2 P)(JRST 0 G0001)
01870	G0004 (MOVE 1 (SPECIAL SFLG))(JUMPE 1 G0005)(MOVE 1 -1 P)(JUMPE 1 G0030)(MOVE 1 -3 P)(JRST 0 G0029)
01880	G0030 (MOVEI 1 (QUOTE 0))
01890	G0031 
01900	G0029 (PUSH P 1)(HLRZ@ 1 -3 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE SPECIAL))(CALL 2 (E XCONS))
01910		(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE 0))(CALL 2 (E XCONS))
01920		(CALL 1 (E %OUTPT))(JRST 0 G0002)
01930	G0005 (MOVEI 1 (QUOTE T))(MOVE 2 1)(MOVEM 2 (SPECIAL SFLG))(MOVEM 1 0 P)(MOVEI 1 (QUOTE (JSP 6 SPECBIND)))
01940		(CALL 1 (E %OUTPT))(JRST 0 G0001)
01950	G0006 (SUB P (C 0 0 4 4))(POPJ P)
01960	NIL 
01970	
01980	
01990	(LAP %CONT SUBR) 
02000		(PUSH P 2)(CALL 1 (E %FIND))(POP P 2)(HRLM@ 2 1)(POPJ P)
02010	NIL 
02020	
02030	
02040	(LAP %CONTENTS SUBR) 
02050		(CALL 1 (E %FIND))(HLRZ@ 1 1)(POPJ P)
02060	NIL 
02070	
02080	
02090	(LAP %OUTPT SUBR) 
02100		(PUSH P 1)(MOVE 1 (SPECIAL LOUT))(CAIE 1 (QUOTE %FOO))(TDZA 1 1)(MOVEI 1 T)(JUMPN 1 G0001)
02110		(MOVE 1 (SPECIAL LOUT))(CALL 1 (E ATOM))(JUMPN 1 G0003)(MOVE 1 (SPECIAL %PROGBRK))
02120		(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL %PROGBRK))(CALL 0 (E CHRCT))(MOVEI 2 (QUOTE 30))
02130		(CALL 2 (E *LESS))(JUMPE 1 G0007)(CALL 0 (E TERPRI))(MOVEI 1 (QUOTE 11))(CALL 1 (E TYO))
02140	G0007 (MOVE 1 (SPECIAL LOUT))(CALL 1 (E PRIN1))(JRST 0 G0001)
02150	G0003 (MOVE 1 (SPECIAL LOUT))(CALL 1 (E PRINT))
02160	G0014 
02170	G0001 (POP P (SPECIAL LOUT))(MOVE 1 (SPECIAL LOUT))(POPJ P)
02180	NIL 
02190	
02200	
02210	(LAP %OUT1 SUBR) 
02220		(PUSH P 1)(PUSH P 2)(PUSH P 3)(EXCH 1 3)(CALL 1 (E ATOM))(JUMPN 1 G0003)(HLRZ@ 1 0 P)
02230		(CALL 1 (E ATOM))(JUMPE 1 G0002)
02240	G0003 (MOVE 1 -2 P)(JRST 0 G0001)
02250	G0002 (HLRZ@ 1 0 P)(MOVEM 1 0 P)(MOVEI 2 (QUOTE IMMED))(MOVE 1 -2 P)(CALL 2 (E GET))(JUMPN 1 G0010)
02260		(MOVE 1 (SPECIAL %PROGBRK))(CALL 1 (E ADD1))(MOVEM 1 (SPECIAL %PROGBRK))(MOVE 1 0 P)
02270		(CALL 1 (E NCONS))(MOVEI 2 (QUOTE 0))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE 0))(CALL 2 (E XCONS))
02280		(MOVEI 2 (QUOTE C))(CALL 2 (E XCONS))(MOVEM 1 0 P)(MOVE 1 -2 P)
02290	G0012 
02300	G0010 
02310	G0007 
02320	G0001 (MOVEM 1 -2 P)(MOVE 1 0 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0023)(MOVEI 2 (QUOTE 0))(MOVE 1 0 P)
02330		(CALL 2 (E *GREAT))(JUMPE 1 G0022)
02340	G0023 (MOVEI 2 (QUOTE NIL))(JRST 0 G0021)
02350	G0022 (MOVEI 2 (QUOTE (P)))
02360	G0021 (POP P 1)(CALL 2 (E CONS))(POP P 2)(CALL 2 (E XCONS))(POP P 2)(CALL 2 (E XCONS))(JCALL 1 (E %OUTPT))
02370	NIL 
02380	
02390	
02400	(LAP %ADD SUBR) 
02410		(PUSH P 1)(PUSH P 2)(CALL 2 (E MEMQ))(JUMPE 1 G0002)(MOVE 1 0 P)(JRST 0 G0001)
02420	G0002 (MOVE 2 0 P)(MOVE 1 -1 P)(CALL 2 (E CONS))
02430	G0004 
02440	G0001 (SUB P (C 0 0 2 2))(POPJ P)
02450	NIL 
02460	
02470	
02480	(LAP %CPUSH SUBR) 
02490		(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
02500		(PUSH P (C 0 0 (QUOTE NIL)))(CALL 1 (E %CONTENTS))(MOVEM 1 -2 P)(CALL 1 (E %DVP))
02510		(JUMPE 1 G0008)(MOVEI 2 (QUOTE 1))(MOVE 1 -4 P)(CALL 2 (E *LESS))(JUMPN 1 G0006)
02520	G0001 (MOVEI 1 (QUOTE 0))(MOVEM 1 -1 P)(CALL 0 (E %NACS1))(HRRZ@ 1 1)(MOVEM 1 0 P)
02530	G0002 (MOVE 1 0 P)(JUMPE 1 G0005)(HLRZ@ 1 1)(CALL 1 (E %DVP))(JUMPN 1 G0017)(MOVE 1 -3 P)
02540		(JUMPE 1 G0020)(HLRZ@ 1 0 P)(HRRZ@ 1 1)(CALL 1 (E NUMBERP))(JUMPE 1 G0003)(HLRZ@ 1 0 P)
02550		(HLRZ@ 1 1)(CALL 1 (E %SPECIALP))(JUMPN 1 G0003)
02560	G0020 (HLRZ@ 1 0 P)(HLRZ@ 1 1)(HLRZ@ 2 -2 P)(CAMN 2 1)(JRST 0 G0003)
02570	G0017 (HRRZ@ 1 0 P)(MOVEM 1 0 P)(MOVE 1 -1 P)(CALL 1 (E SUB1))(MOVEM 1 -1 P)(JRST 0 G0002)
02580	G0003 (MOVE 2 -2 P)(MOVE 1 -1 P)(CALL 2 (E %CONT))(MOVE 3 -1 P)(MOVE 2 -4 P)(MOVEI 1 (QUOTE MOVEM))
02590		(CALL 3 (E %OUT1))
02600	G0004 (MOVEI 2 (QUOTE DUP))(HLRZ@ 1 -2 P)(CALL 2 (E CONS))(MOVE 2 1)(MOVE 1 -4 P)(CALL 2 (E %CONT))
02610		(JRST 0 G0007)
02620	G0005 (MOVE 1 -3 P)(JUMPE 1 G0039)(TDZA 1 1)
02630	G0039 (MOVEI 1 T)(MOVEM 1 -3 P)(JUMPN 1 G0001)
02640	G0006 (MOVE 1 (SPECIAL PROGSW))(JUMPE 1 G0043)(MOVE 2 (SPECIAL LOCVARS))(HLRZ@ 1 -2 P)(CALL 2 (E ASSOC))
02650		(JUMPN 1 G0043)(MOVE 1 (SPECIAL SLOTLIST))(CALL 1 (E LENGTH))(MOVEM 1 0 P)(CALL 0 (E %CPVRL))
02660		(MOVEI 2 (QUOTE 1))(MOVE 1 -4 P)(CALL 2 (E *LESS))(JUMPE 1 G0050)(MOVE 1 (SPECIAL SLOTLIST))
02670		(CALL 1 (E LENGTH))(MOVE 2 1)(MOVE 1 0 P)(CALL 2 (E *DIF))(MOVE 2 -4 P)(CALL 2 (E *PLUS))
02680		(MOVEM 1 -4 P)
02690	G0050 
02700	G0043 (MOVE 1 -4 P)(CALL 1 (E %OPUSH))(MOVE 2 -2 P)(MOVEI 1 (QUOTE 0))(CALL 2 (E %CONT))(JRST 0 G0004)
02710	G0008 (MOVEI 1 (QUOTE NIL))
02720	G0007 (SUB P (C 0 0 5 5))(POPJ P)
02730	NIL 
02740	
02750	
02760	(LAP %SPECIALP SUBR) 
02770		(MOVE 2 (SPECIAL SPVARS))(JCALL 2 (E MEMQ))
02780	NIL 
02790	
02800	
02810	(LAP %REMOVL SUBR) 
02820		(PUSH P 2)(MOVEI 2 (QUOTE VALUE))(PUSH P 1)(MOVE 1 -1 P)(CALL 2 (E GET))(MOVEM 1 -1 P)
02830	G0001 (HRRZ@ 1 -1 P)(JUMPE 1 G0003)(HLRZ@ 1 1)(CALLF@ 1 0 P)(JUMPE 1 G0008)(HRRZ@ 2 -1 P)
02840		(HRRZ@ 2 2)(HRRM@ 2 -1 P)(JRST 0 G0006)
02850	G0008 (HRRZ@ 1 -1 P)(MOVEM 1 -1 P)
02860	G0012 
02870	G0006 (JRST 0 G0001)
02880	G0003 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 2 2))(POPJ P)
02890	NIL 
02900	
02910	
02920	(LAP %REMOVS SUBR) 
02930		(JSP 6 SPECBIND)(0 1 (SPECIAL DATA))(MOVEI 2 (QUOTE SPLDLST))(MOVEI 1 (QUOTE %REM1))
02940		(CALL 2 (E %REMOVL))(JRST 0 SPECSTR)
02950	NIL 
02960	
02970	
02980	(LAP %REMOVE SUBR) 
02990		(JSP 6 SPECBIND)(0 1 (SPECIAL DATA))(MOVEI 2 (QUOTE LDLST))(MOVEI 1 (QUOTE %REM1))
03000		(CALL 2 (E %REMOVL))(MOVEI 2 (QUOTE SPLDLST))(MOVEI 1 (QUOTE %REM1))(CALL 2 (E %REMOVL))
03010		(MOVEI 1 (QUOTE NIL))(JRST 0 SPECSTR)
03020	NIL 
03030	
03040	
03050	(LAP %REM1 SUBR) 
03060		(MOVE 2 (SPECIAL DATA))(JCALL 2 (E EQUAL))
03070	NIL 
03080	
03090	
03100	(LAP %BOOL1 SUBR) 
03110		(PUSH P 1)(PUSH P 2)(PUSH P 3)(HLRZ@ 1 1)(CAIE 1 (QUOTE AND))(JRST 0 G0002)(MOVE 4 3)
03120		(MOVEI 3 (QUOTE T))(HRRZ@ 1 -2 P)(CALL 4 (E %BOOL2))(MOVE 2 (SPECIAL CNT))(MOVEI 1 (QUOTE 2))
03130		(CALL 2 (E *PLUS))(MOVEM 1 (SPECIAL CNT))(JRST 0 G0001)
03140	G0002 (CAIE 1 (QUOTE OR))(JRST 0 G0007)(HRRZ@ 1 -2 P)(PUSH P 1)(JUMPE 3 G0010)(TDZA 4 4)
03150	G0010 (MOVEI 4 T)(MOVEI 3 (QUOTE NIL))(MOVE 2 -2 P)(POP P 1)(CALL 4 (E %BOOL2))(MOVE 2 (SPECIAL CNT))
03160		(MOVEI 1 (QUOTE 2))(CALL 2 (E *PLUS))(MOVEM 1 (SPECIAL CNT))(JRST 0 G0001)
03170	G0007 (CAIE 1 (QUOTE NULL))(JRST 0 G0014)(HRRZ@ 1 -2 P)(HLRZ@ 1 1)(PUSH P 1)(JUMPE 3 G0017)
03180		(TDZA 3 3)
03190	G0017 (MOVEI 3 T)(MOVE 2 -2 P)(POP P 1)(CALL 3 (E %BOOL1))(JRST 0 G0001)
03200	G0014 (CAIE 1 (QUOTE EQ))(JRST 0 G0020)(EXCH 3 2)(HRRZ@ 1 -2 P)(CALL 3 (E %BOOL3))(MOVE 3 -1 P)
03210		(MOVEI 2 (QUOTE 0))(MOVEI 1 (QUOTE JRST))(CALL 3 (E %OUTJ))(JRST 0 G0001)
03220	G0020 (CAIE 1 (QUOTE QUOTE))(JRST 0 G0025)(JUMPE 3 G0028)(HRRZ@ 4 -2 P)(HLRZ@ 4 4)(JRST 0 G0027)
03230	G0028 (HRRZ@ 1 -2 P)(HLRZ@ 1 1)(JUMPE 1 G0032)(TDZA 4 4)
03240	G0032 (MOVEI 4 T)
03250	G0030 
03260	G0027 (MOVEI 3 (QUOTE NIL))(MOVE 2 -1 P)(MOVE 1 3)(CALL 4 (E %BOOL2))(JRST 0 G0001)
03270	G0025 (MOVE 1 -2 P)(CALL 1 (E %COMP))(MOVE 2 (SPECIAL NO))(CALL 2 (E %LOCATE))(MOVEM 1 -2 P)
03280		(MOVE 1 0 P)(JUMPE 1 G0042)(MOVEI 1 (QUOTE JUMPN))(JRST 0 G0041)
03290	G0042 (MOVEI 1 (QUOTE JUMPE))
03300	G0043 
03310	G0041 (MOVE 3 -1 P)(MOVE 2 -2 P)(CALL 3 (E %OUTJ))(MOVE 1 0 P)(JUMPE 1 G0048)(MOVE 1 -1 P)
03320		(CALL 1 (E %RSLSET))(MOVEI 2 (QUOTE (QUOTE NIL)))(MOVE 1 -2 P)(CALL 2 (E %CONT))(JRST 0 G0047)
03330	G0048 (MOVE 1 -2 P)(CALL 1 (E %CONTENTS))(MOVEI 2 (QUOTE (QUOTE NIL)))(MOVEM 1 0 P)(MOVE 1 -2 P)
03340		(CALL 2 (E %CONT))(MOVE 1 -1 P)(CALL 1 (E %RSLSET))(MOVE 2 0 P)(MOVE 1 -2 P)(CALL 2 (E %CONT))
03350	G0051 
03360	G0047 
03370	G0037 
03380	G0001 (SUB P (C 0 0 3 3))(POPJ P)
03390	NIL 
03400	
03410	
03420	(LAP %RSLSET SUBR) 
03430		(PUSH P 1)(CAME 1 (SPECIAL CTAG))(JRST 0 G0002)(MOVE 1 (SPECIAL RSL))(JUMPE 1 G0004)
03440		(MOVEI 1 (QUOTE LOSE))(JRST 0 G0003)
03450	G0004 (MOVEI 2 (QUOTE NIL))(MOVE 1 (SPECIAL SLOTLIST))(CALL 2 (E *APPEND))
03460	G0005 
03470	G0003 (MOVEM 1 (SPECIAL RSL))(JRST 0 G0001)
03480	G0002 (MOVEI 1 (QUOTE NIL))
03490	G0001 (SUB P (C 0 0 1 1))(POPJ P)
03500	NIL 
03510	
03520	
03530	(LAP %BOOL2 SUBR) 
03540		(PUSH P 1)(PUSH P 2)(PUSH P 3)(PUSH P 4)(CALL 0 (E %CLEAR1))(CALL 0 (E GENSYM))(MOVEI 2 (QUOTE NIL))
03550		(PUSH P 1)(MOVE 1 (SPECIAL SLOTLIST))(CALL 2 (E *APPEND))(MOVEI 3 (QUOTE LEVEL))(MOVE 2 1)
03560		(MOVE 1 0 P)(CALL 3 (E PUTPROP))
03570	G0001 (MOVE 1 -4 P)(JUMPN 1 G0012)(MOVE 1 -1 P)(JUMPE 1 G0014)(MOVE 3 -3 P)(MOVEI 2 (QUOTE 0))
03580		(MOVEI 1 (QUOTE JRST))(CALL 3 (E %OUTJ))
03590	G0014 (JRST 0 G0003)
03600	G0012 (MOVE 1 -1 P)(JUMPE 1 G0018)(HRRZ@ 2 -4 P)(JUMPE 2 G0002)
03610	G0018 (HLRZ@ 1 -4 P)(PUSH P 1)(MOVE 2 -2 P)(JUMPE 2 G0023)(MOVE 2 -1 P)(JRST 0 G0022)
03620	G0023 (MOVE 2 -4 P)
03630	G0024 
03640	G0022 (MOVE 3 -3 P)(PUSH P 2)(JUMPE 3 G0027)(TDZA 3 3)
03650	G0027 (MOVEI 3 T)(POP P 2)(POP P 1)(CALL 3 (E %BOOL1))(HRRZ@ 1 -4 P)(MOVEM 1 -4 P)(JRST 0 G0001)
03660	G0002 (MOVE 3 -2 P)(MOVE 2 -3 P)(HLRZ@ 1 -4 P)(CALL 3 (E %BOOL1))(MOVE 1 0 P)(CALL 1 (E %OUTTAG))
03670	G0003 (CALL 0 (E %CLRACS))(MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 5 5))(POPJ P)
03680	NIL 
03690	
03700	
03710	(LAP %BOOL3 SUBR) 
03720		(PUSH P 1)(HLRZ@ 1 1)(PUSH P 2)(PUSH P 3)(CALL 1 (E %COMP))(PUSH P 1)(HRRZ@ 1 -3 P)
03730		(HLRZ@ 1 1)(MOVEM 1 -3 P)(CALL 0 (E %FRAC1))(MOVE 2 1)(EXCH 1 -3 P)(CALL 2 (E %COMP1))
03740		(MOVEM 1 -3 P)(CALL 0 (E %FRAC1))(MOVE 2 1)(MOVE 1 -3 P)(CALL 2 (E %ILOC1))(PUSH P 1)
03750		(CALL 0 (E %FRAC1))(MOVE 2 1)(MOVE 1 -1 P)(CALL 2 (E %ILOC1))(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))
03760		(CALL 1 (E NUMBERP))(JUMPE 1 G0016)(MOVE 2 -1 P)(MOVEI 1 (QUOTE 0))(CALL 2 (E *LESS))
03770		(JUMPE 1 G0016)(MOVE 1 -1 P)(MOVEM 1 0 P)(MOVE 1 -3 P)(CALL 1 (E %REMOVE))(MOVE 1 -2 P)
03780		(CALL 1 (E NUMBERP))(JUMPE 1 G0022)(MOVEI 2 (QUOTE 0))(MOVE 1 -2 P)(CALL 2 (E *GREAT))
03790		(JUMPE 1 G0022)(MOVE 1 -6 P)(CALL 1 (E %REMOVE))
03800	G0022 (MOVE 1 -4 P)(CALL 1 (E %RST))(MOVE 1 -6 P)(CALL 1 (E %LOC))(MOVEM 1 -2 P)(JRST 0 G0001)
03810	G0016 (MOVE 1 -2 P)(CALL 1 (E NUMBERP))(JUMPE 1 G0031)(MOVE 2 -2 P)(MOVEI 1 (QUOTE 0))(CALL 2 (E *LESS))
03820		(JUMPE 1 G0031)(MOVE 1 -2 P)(MOVEM 1 0 P)(MOVE 1 -6 P)(CALL 1 (E %REMOVE))(MOVE 1 -4 P)
03830		(CALL 1 (E %RST))(MOVE 1 -3 P)(CALL 1 (E %LOC))(MOVEM 1 -2 P)(JRST 0 G0001)
03840	G0031 (CALL 0 (E %FRAC1))(MOVE 2 -3 P)(MOVEM 1 0 P)(CALL 2 (E %LOAD1))(MOVE 1 -4 P)(CALL 1 (E %RST))
03850		(MOVE 1 -6 P)(CALL 1 (E %LOC))(MOVEM 1 -2 P)(JRST 0 G0002)
03860	G0001 (MOVE 1 -3 P)(CALL 1 (E %REMOVE))
03870	G0002 (MOVE 1 -6 P)(CALL 1 (E %REMOVE))(CALL 0 (E %CWORLD))(MOVE 1 -5 P)(JUMPE 1 G0049)(MOVEI 1 (QUOTE CAMN))
03880		(JRST 0 G0048)
03890	G0049 (MOVEI 1 (QUOTE CAME))
03900	G0050 
03910	G0048 (MOVE 3 -2 P)(MOVE 2 0 P)(CALL 3 (E %OUT1))(MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 7 7))
03920		(POPJ P)
03930	NIL 
03940	
03950	
03960	(LAP %FRAC1 SUBR) 
03970		(MOVEI 1 (QUOTE 1))(CALL 1 (E %CONTENTS))(CALL 1 (E %DVP))(JUMPE 1 G0002)(CALL 0 (E %FREAC))
03980		(JRST 0 G0001)
03990	G0002 (MOVEI 1 (QUOTE 1))
04000	G0006 
04010	G0001 (POPJ P)
04020	NIL 
04030	
04040	
04050	(LAP %RST SUBR) 
04060		(PUSH P 1)(JUMPE 1 G0001)(MOVE 2 (SPECIAL GL))(CALL 2 (E %ASSOCR))(JUMPE 1 G0002)
04070		(MOVE 1 (SPECIAL PRSSL))(CALL 1 (E %RESTORE))(JRST 0 G0001)
04080	G0002 (MOVEI 2 (QUOTE SET))(MOVE 1 0 P)(CALL 2 (E REMPROP))(JUMPE 1 G0005)(CALL 0 (E %CWORLD))
04090		(MOVEI 2 (QUOTE NIL))(MOVE 1 (SPECIAL SLOTLIST))(CALL 2 (E *APPEND))(MOVEI 3 (QUOTE LEVEL))
04100		(MOVE 2 1)(MOVE 1 0 P)(CALL 3 (E PUTPROP))(JRST 0 G0001)
04110	G0005 (MOVEI 2 (QUOTE LEVEL))(MOVE 1 0 P)(CALL 2 (E GET))(MOVEM 1 0 P)(JUMPE 1 G0010)(CALL 1 (E %RESTORE))
04120		(JRST 0 G0001)
04130	G0010 (MOVE 1 (SPECIAL RSSL))(CALL 1 (E %RESTORE))
04140	G0013 
04150	G0001 (SUB P (C 0 0 1 1))(POPJ P)
04160	NIL 
04170	
04180	
04190	(LAP %ASSOCR SUBR) 
04200		(PUSH P 1)(PUSH P 2)
04210	G0001 (MOVE 1 0 P)(JUMPE 1 G0003)(CALL 1 (E CDAR))(CAME 1 -1 P)(JRST 0 G0006)(HLRZ@ 1 0 P)
04220		(JRST 0 G0002)
04230	G0006 (HRRZ@ 1 0 P)(MOVEM 1 0 P)(JRST 0 G0001)
04240	G0003 (MOVEI 1 (QUOTE NIL))
04250	G0002 (SUB P (C 0 0 2 2))(POPJ P)
04260	NIL 
04270	
04280	
04290	(LAP %BOOL4 SUBR) 
04300		(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))(HLRZ@ 1 1)(CAIE 1 (QUOTE EQ))(JRST 0 G0006)
04310		(MOVEI 3 (QUOTE NIL))(MOVE 2 3)(HRRZ@ 1 -1 P)(CALL 3 (E %BOOL3))(JRST 0 G0001)
04320	G0006 (CALL 0 (E GENSYM))(MOVEI 3 (QUOTE SET))(MOVEI 2 (QUOTE T))(MOVEM 1 0 P)(CALL 3 (E PUTPROP))
04330		(MOVEI 3 (QUOTE T))(MOVE 2 0 P)(MOVE 1 -1 P)(CALL 3 (E %BOOL1))(MOVEI 2 (QUOTE USED))
04340		(MOVE 1 0 P)(CALL 2 (E GET))(JUMPN 1 G0016)(MOVE 1 (SPECIAL NO))(CALL 1 (E %CPUSH))
04350	G0016 
04360	G0001 (MOVE 1 (SPECIAL EFFS))(JUMPN 1 G0021)(MOVE 3 (SPECIAL NO))(MOVE 2 3)(MOVEI 1 (QUOTE TDZA))
04370		(CALL 3 (E %OUT1))
04380	G0021 (MOVE 1 0 P)(CALL 1 (E %OUTTAG))(MOVE 1 (SPECIAL EFFS))(JUMPN 1 G0026)(MOVEI 3 (QUOTE T))
04390		(MOVE 2 (SPECIAL NO))(MOVEI 1 (QUOTE MOVEI))(CALL 3 (E %OUT1))
04400	G0026 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 2 2))(POPJ P)
04410	NIL 
04420	
04430	
04440	(LAP %ITER SUBR) 
04450		(PUSH P 1)(PUSH P 2)(HRRZ@ 3 2)(JUMPN 3 G0002)(HLRZ@ 1 2)(CALL 1 (E %P1))(JRST 0 G0001)
04460	G0002 (HLRZ@ 1 0 P)(CALL 1 (E %P1))(HRRZ@ 2 0 P)(PUSH P 1)(MOVE 1 -2 P)(CALL 2 (E %ITER))
04470		(CALL 1 (E NCONS))(POP P 2)(CALL 2 (E XCONS))(MOVE 2 -1 P)(CALL 2 (E XCONS))
04480	G0006 
04490	G0001 (SUB P (C 0 0 2 2))(POPJ P)
04500	NIL 
04510	
04520	
04530	(LAP %OUTJ SUBR) 
04540		(PUSH P 1)(PUSH P 2)(PUSH P 3)(CALL 0 (E %CWORLD))(MOVEI 2 (QUOTE NIL))(MOVEI 1 (QUOTE 1))
04550		(CALL 2 (E %CSPLD2))(MOVE 1 0 P)(CALL 1 (E %RST))(MOVEI 3 (QUOTE USED))(MOVEI 2 (QUOTE T))
04560		(MOVE 1 0 P)(CALL 3 (E PUTPROP))(MOVEI 2 (QUOTE PREVI))(MOVE 1 0 P)(CALL 2 (E GET))
04570		(MOVE 2 (SPECIAL LOUT))(CALL 2 (E EQUAL))(JUMPE 1 G0009)(MOVEI 1 (QUOTE -1))(CALL 1 (E NCONS))
04580		(MOVE 2 0 P)(CALL 2 (E XCONS))(CALL 1 (E NCONS))(MOVE 2 -1 P)(CALL 2 (E XCONS))(MOVE 2 -2 P)
04590		(CALL 2 (E XCONS))(MOVEM 1 (SPECIAL LOUT))(JRST 0 G0001)
04600	G0009 (MOVE 1 0 P)(CALL 1 (E NCONS))(MOVE 2 -1 P)(CALL 2 (E XCONS))(MOVE 2 -2 P)(CALL 2 (E XCONS))
04610		(CALL 1 (E %OUTPT))(MOVEI 1 (QUOTE NIL))
04620	G0001 (SUB P (C 0 0 3 3))(POPJ P)
04630	NIL 
04640	
04650	
04660	(LAP %ADR SUBR) 
04670		(PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))(MOVE 2 (SPECIAL GL))(CALL 2 (E ASSOC))(MOVEM 1 0 P)
04680		(JUMPE 1 G0005)(HRRZ@ 1 1)(JRST 0 G0001)
04690	G0005 (MOVE 1 -1 P)(CALL 1 (E NCONS))(MOVEI 2 (QUOTE TAG))(CALL 2 (E XCONS))(MOVEI 2 (QUOTE UNDEFINED))
04700		(CALL 2 (E XCONS))(CALL 1 (E %PRINTTY))(MOVE 1 (SPECIAL EXIT))
04710	G0001 (SUB P (C 0 0 2 2))(POPJ P)
04720	NIL 
04730	
04740	
04750	(LAP %FREAC SUBR) 
04760		(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
04770	G0001 (MOVEI 1 (QUOTE 0))(MOVE 2 (SPECIAL SLOTLIST))(MOVEM 2 0 P)(MOVEM 1 -1 P)
04780	G0002 (MOVE 1 -1 P)(CALL 1 (E ADD1))(MOVEM 1 -1 P)(MOVE 2 (SPECIAL %NACS))(CALL 2 (E *GREAT))
04790		(JUMPE 1 G0008)(MOVE 1 -2 P)(JUMPE 1 G0011)(MOVE 1 (SPECIAL %NACS))(CALL 1 (E %CPUSH))
04800		(MOVE 1 (SPECIAL %NACS))(JRST 0 G0003)
04810	G0011 (MOVEI 1 (QUOTE T))(MOVEM 1 -2 P)(JRST 0 G0001)
04820	G0014 (JRST 0 G0007)
04830	G0008 (HLRZ@ 2 0 P)(JUMPE 2 G0019)(MOVE 1 -2 P)(JUMPE 1 G0018)(EXCH 1 2)(CALL 1 (E %DVP))
04840		(JUMPE 1 G0018)
04850	G0019 (MOVE 1 -1 P)(JRST 0 G0003)
04860	G0018 
04870	G0007 (HRRZ@ 1 0 P)(MOVEM 1 0 P)(JRST 0 G0002)
04880	G0003 (SUB P (C 0 0 3 3))(POPJ P)
04890	NIL 
04900	
04910	
04920	(LAP %OUTTAG SUBR) 
04930		(PUSH P 1)(MOVEI 2 (QUOTE USED))(CALL 2 (E GET))(JUMPE 1 G0002)(CALL 0 (E %CLRACS))
04940		(MOVE 1 0 P)(CALL 1 (E %RST))(MOVE 1 0 P)(CALL 1 (E %OUTPT))
04950	G0002 (SUB P (C 0 0 1 1))(POPJ P)
04960	NIL 
04970	
04980	
04990	(LAP %COMARG SUBR) 
05000		(PUSH P 1)(HLRZ@ 1 1)(CAIE 1 (QUOTE QUOTE))(JRST 0 G0005)(MOVE 1 (SPECIAL NO))(CALL 1 (E %CPUSH))
05010		(MOVE 1 0 P)(CALL 1 (E %REMOVE))(PUSH P (SPECIAL NO))(CALL 0 (E %INDEX))(MOVE 3 1)
05020		(POP P 2)(MOVEI 1 (QUOTE MOVE))(CALL 3 (E %OUT1))(MOVE 1 (SPECIAL NO))(CALL 1 (E NCONS))
05030		(HRRZ@ 2 0 P)(HLRZ@ 2 2)(CALL 2 (E XCONS))(MOVE 2 (SPECIAL NO))(CALL 2 (E XCONS))
05040		(MOVEI 2 (QUOTE HRRZ))(CALL 2 (E XCONS))(CALL 1 (E %OUTPT))(MOVEI 1 (QUOTE NIL))(JRST 0 G0001)
05050	G0005 (MOVE 2 0 P)(MOVE 1 (SPECIAL NO))(CALL 2 (E %LOAD1))(PUSH P (SPECIAL NO))(CALL 0 (E %INDEX))
05060		(MOVE 3 1)(POP P 2)(MOVEI 1 (QUOTE ADD))(CALL 3 (E %OUT1))(MOVE 1 (SPECIAL NO))(CALL 1 (E NCONS))
05070		(MOVE 2 (SPECIAL NINUM0))(CALL 2 (E XCONS))(MOVE 2 (SPECIAL NO))(CALL 2 (E XCONS))
05080		(MOVEI 2 (QUOTE HRRZ))(CALL 2 (E XCONS))(CALL 1 (E %OUTPT))
05090	G0001 (SUB P (C 0 0 1 1))(POPJ P)
05100	NIL 
05110	
05120	
05130	(LAP %COMSETARG SUBR) 
05140		(PUSH P 1)(CALL 1 (E CADR))(CALL 1 (E %COMP))(PUSH P 1)(CALL 1 (E %LOC))(HLRZ@ 1 -1 P)
05150		(HLRZ@ 1 1)(CAIE 1 (QUOTE QUOTE))(JRST 0 G0008)(CALL 0 (E %INDEX))(MOVE 3 1)(MOVEI 2 (QUOTE 2))
05160		(MOVEI 1 (QUOTE MOVE))(CALL 3 (E %OUT1))(MOVE 2 (SPECIAL ARGNO))(MOVE 1 0 P)(CALL 2 (E %LOCATE))
05170		(PUSH P 1)(MOVEI 1 (QUOTE 2))(CALL 1 (E NCONS))(HLRZ@ 2 -2 P)(HRRZ@ 2 2)(HLRZ@ 2 2)
05180		(CALL 2 (E XCONS))(POP P 2)(CALL 2 (E XCONS))(MOVEI 2 (QUOTE HRRM))(CALL 2 (E XCONS))
05190		(CALL 1 (E %OUTPT))(JRST 0 G0001)
05200	G0008 (HLRZ@ 1 -1 P)(CALL 1 (E %COMP))(MOVE 2 1)(MOVEI 1 (QUOTE 2))(CALL 2 (E %LOAD1))(CALL 0 (E %CLRACS))
05210		(CALL 0 (E %INDEX))(MOVE 3 1)(MOVEI 2 (QUOTE 2))(MOVEI 1 (QUOTE ADD))(CALL 3 (E %OUT1))
05220		(MOVE 2 (SPECIAL ARGNO))(MOVE 1 0 P)(CALL 2 (E %LOCATE))(PUSH P 1)(MOVEI 1 (QUOTE 2))
05230		(CALL 1 (E NCONS))(MOVE 2 (SPECIAL NINUM0))(CALL 2 (E XCONS))(POP P 2)(CALL 2 (E XCONS))
05240		(MOVEI 2 (QUOTE HRRM))(CALL 2 (E XCONS))(CALL 1 (E %OUTPT))(MOVEI 1 (QUOTE NIL))
05250	G0001 (SUB P (C 0 0 2 2))(POPJ P)
05260	NIL 
05270	
05280	
05290	(LAP %INDEX SUBR) 
05300		(MOVE 1 (SPECIAL %NACS))(CALL 1 (E SUB1))(PUSH P 1)(MOVE 1 (SPECIAL SLOTLIST))(CALL 1 (E LENGTH))
05310		(MOVE 2 1)(POP P 1)(JCALL 2 (E *DIF))
05320	NIL 
05330	
05340	
05350	(LAP %FIND SUBR) 
05360		(PUSH P (SPECIAL SLOTLIST))(PUSH P 1)(MOVEI 2 (QUOTE 0))(CALL 2 (E *GREAT))(JUMPN 1 G0001)
05370		(MOVE 1 (SPECIAL %NACS))(CALL 1 (E ADD1))(MOVE 2 0 P)(CALL 2 (E *DIF))(MOVEM 1 0 P)
05380	G0001 (MOVE 1 0 P)(CALL 1 (E SUB1))(MOVEM 1 0 P)(CALL 1 (E ZEROP))(JUMPE 1 G0012)(MOVE 1 -1 P)
05390		(JRST 0 G0002)
05400	G0012 (HRRZ@ 1 -1 P)(MOVEM 1 -1 P)(JRST 0 G0001)
05410	G0002 (SUB P (C 0 0 2 2))(POPJ P)
05420	NIL 
05430	
05440	
05450	(LAP %SPUSH SUBR) 
05460		(CALL 0 (E %NACS1))(PUSH P 1)(CALL 0 (E %NACS1))(HRRZ@ 2 1)(MOVEI 1 (QUOTE NIL))(CALL 2 (E CONS))
05470		(HRRM@ 1 0 P)(POP P 1)(POPJ P)
05480	NIL 
05490	
05500	
05510	(LAP %SPOP SUBR) 
05520		(CALL 0 (E %NACS1))(PUSH P 1)(CALL 0 (E %NACS1))(HRRZ@ 2 1)(HRRZ@ 2 2)(HRRM@ 2 0 P)
05530		(POP P 1)(POPJ P)
05540	NIL 
05550	
05560	
05570	(LAP %PLOC#1 SUBR) 
05580		(MOVE 1 (SPECIAL IVAR))(CALL 1 (E NCONS))(MOVE 2 (SPECIAL LOCVARS))(CALL 2 (E CONS))
05590		(MOVEM 1 (SPECIAL LOCVARS))(HLRZ@ 1 1)(POPJ P)
05600	NIL 
05610	
05620	
05630	(LAP %PLOC SUBR) 
05640		(JSP 6 SPECBIND)(0 1 (SPECIAL IVAR))(0 2 (SPECIAL NO))(MOVEI 3 (QUOTE %PLOC#1))(MOVE 2 (SPECIAL LOCVARS)~
05650	)(CALL 3 (E SASSOC))(MOVE 2 (SPECIAL NO))(HRRM@ 2 1)(JRST 0 SPECSTR)
05660	NIL 
05670	
05680	
05690	(LAP %PRINTTY SUBR) 
05700		(JSP 6 SPECBIND)(0 1 (SPECIAL DATA))(0 0 (SPECIAL CHAN))(MOVEI 2 (QUOTE NIL))(MOVE 1 (SPECIAL %LSTDEV))
05710		(CALL 2 (E OUTC))(MOVEM 1 (SPECIAL CHAN))(MOVE 1 (SPECIAL DATA))(CALL 1 (E PRINT))
05720		(MOVEI 2 (QUOTE NIL))(MOVE 1 (SPECIAL CHAN))(CALL 2 (E OUTC))(MOVEI 1 (QUOTE NIL))
05730		(JRST 0 SPECSTR)
05740	NIL 
05750	
05760	
05770	(LAP %DOCOND SUBR) 
05780		(JSP 6 SPECBIND)(0 0 (SPECIAL G2))(0 0 (SPECIAL RSL))(0 0 (SPECIAL CTAG))(PUSH P 1)
05790		(PUSH P 2)(CALL 0 (E GENSYM))(MOVEI 2 (QUOTE NIL))(PUSH P 1)(MOVE 1 (SPECIAL SLOTLIST))
05800		(CALL 2 (E *APPEND))(MOVEI 3 (QUOTE LEVEL))(MOVE 2 1)(PUSH P 1)(MOVE 1 -1 P)(CALL 3 (E PUTPROP))
05810		(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
05820		(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
05830	G0001 (MOVEI 1 (QUOTE T))(CLEARM 1 (SPECIAL RSL))(MOVEM 1 -3 P)(MOVE 1 -10 P)(JUMPN 1 G0014)
05840		(MOVE 1 -2 P)(JUMPE 1 G0016)(MOVEI 3 (QUOTE (QUOTE NIL)))(MOVE 2 -7 P)(MOVEI 1 (QUOTE MOVEI))
05850		(CALL 3 (E %OUT1))
05860	G0016 (MOVE 1 -6 P)(CALL 1 (E %OUTTAG))(CALL 0 (E %CLRACS))(MOVE 1 -5 P)(CALL 1 (E %RESTORE))
05870		(MOVEI 1 (QUOTE NIL))(JRST 0 G0007)
05880	G0014 (HLRZ@ 2 1)(HRRZ@ 2 2)(JUMPN 2 G0023)(CALL 1 (E CAAR))(CALL 1 (E %COMP))(MOVE 2 1)(MOVE 1 -7 P)
05890		(CALL 2 (E %LOAD1))(HRRZ@ 2 -10 P)(JUMPE 2 G0029)(MOVE 3 -6 P)(MOVE 2 -7 P)(MOVEI 1 (QUOTE JUMPN))
05900		(CALL 3 (E %OUTJ))(JRST 0 G0028)
05910	G0029 (MOVE 1 -5 P)(CALL 1 (E %RESTORE))
05920	G0032 
05930	G0028 (JRST 0 G0005)
05940	G0023 (MOVEI 2 (QUOTE ((QUOTE NIL))))(CALL 1 (E CDAR))(CALL 2 (E EQUAL))(JUMPE 1 G0037)(HLRZ@ 1 -10 P)
05950		(CALL 1 (E CAAR))(CAIE 1 (QUOTE NULL))(JRST 0 G0037)(HLRZ@ 1 -10 P)(CALL 1 (E CADAR))
05960		(CALL 1 (E ATOM))(JUMPN 1 G0042)(HLRZ@ 1 -10 P)(CALL 1 (E CADAR))(MOVEI 2 (QUOTE (AND OR NULL EQ ZEROP))~
05970	)(HLRZ@ 1 1)(CALL 2 (E MEMQ))(JUMPN 1 G0037)
05980	G0042 (HLRZ@ 1 -10 P)(CALL 1 (E CADAR))(CALL 1 (E %COMP))(MOVE 2 1)(MOVE 1 -7 P)(CALL 2 (E %LOAD1))
05990		(MOVE 3 -6 P)(MOVE 2 -7 P)(MOVEI 1 (QUOTE JUMPE))(CALL 3 (E %OUTJ))(MOVEI 2 (QUOTE T))
06000		(MOVEM 2 -2 P)(JRST 0 G0006)
06010	G0037 (MOVE 1 (SPECIAL LDLST))(JUMPN 1 G0002)(HLRZ@ 2 -10 P)(HRRZ@ 2 2)(HRRZ@ 2 2)(JUMPN 2 G0002)
06020		(HLRZ@ 1 -10 P)(CALL 1 (E CAADR))(CAIE 1 (QUOTE GO))(JRST 0 G0055)(HLRZ@ 1 -10 P)
06030		(CALL 1 (E CADADR))(MOVEM 1 -2 P)(CALL 1 (E ATOM))(JUMPE 1 G0055)(HLRZ@ 1 -10 P)(HLRZ@ 1 1)
06040		(PUSH P 1)(MOVE 1 -3 P)(CALL 1 (E %ADR))(MOVEI 3 (QUOTE T))(MOVE 2 1)(POP P 1)(CALL 3 (E %BOOL1))
06050		(JRST 0 G0005)
06060	G0055 (MOVEI 2 (QUOTE (RETURN (QUOTE NIL))))(HLRZ@ 1 -10 P)(CALL 1 (E CADR))(CALL 2 (E EQUAL))
06070		(JUMPE 1 G0065)(MOVEI 3 (QUOTE T))(MOVE 2 (SPECIAL EXITN))(HLRZ@ 1 -10 P)(HLRZ@ 1 1)
06080		(CALL 3 (E %BOOL1))(JRST 0 G0005)
06090	G0065 
06100	G0002 (HLRZ@ 1 -10 P)(CALL 1 (E LAST))(CALL 1 (E CAAR))(MOVEM 1 -1 P)(CAIN 1 (QUOTE RETURN))
06110		(JRST 0 G0073)(CAIE 1 (QUOTE GO))(JRST 0 G0072)
06120	G0073 (TDZA 1 1)
06130	G0072 (MOVEI 1 T)(MOVEM 1 -3 P)(CALL 0 (E GENSYM))(MOVEM 1 (SPECIAL CTAG))(MOVEM 1 (SPECIAL G2))
06140		(MOVEI 3 (QUOTE LEVEL))(MOVE 2 -5 P)(CALL 3 (E PUTPROP))(CLEARM 1 (SPECIAL RSL))(MOVEI 3 (QUOTE NIL))
06150		(MOVE 2 (SPECIAL G2))(HLRZ@ 1 -10 P)(HLRZ@ 1 1)(CALL 3 (E %BOOL1))(MOVE 1 (SPECIAL RSL))
06160		(JUMPE 1 G0083)(CALL 1 (E ATOM))(JUMPN 1 G0083)(MOVE 1 (SPECIAL RSL))(JRST 0 G0082)
06170	G0083 (MOVEI 2 (QUOTE NIL))(MOVE 1 (SPECIAL SLOTLIST))(CALL 2 (E *APPEND))
06180	G0086 
06190	G0082 (MOVEI 2 (QUOTE NIL))(MOVEM 1 -1 P)(MOVE 1 (SPECIAL SPLDLST))(CALL 2 (E *APPEND))(MOVEM 1 0 P)
06200		(HLRZ@ 1 -10 P)(HRRZ@ 1 1)(MOVEM 1 -2 P)
06210	G0003 (HRRZ@ 1 -2 P)(JUMPE 1 G0004)(HLRZ@ 1 -2 P)(CALL 1 (E %COMPE))(HRRZ@ 1 -2 P)(JRST 0 (G0003 -1))
06220	G0004 (MOVE 1 (SPECIAL EFFS))(JUMPE 1 G0100)(HLRZ@ 1 -2 P)(CALL 1 (E %COMPE))(JRST 0 G0099)
06230	G0100 (HLRZ@ 1 -2 P)(CALL 1 (E %COMP))(MOVE 2 1)(MOVE 1 -7 P)(CALL 2 (E %LOAD1))
06240	G0103 
06250	G0099 (CALL 0 (E %CWORLD))(MOVE 2 0 P)(MOVEM 2 (SPECIAL SPLDLST))(MOVE 3 (SPECIAL SLOTLIST))
06260		(MOVE 4 -1 P)(MOVEM 4 (SPECIAL SLOTLIST))(MOVE 1 -7 P)(MOVEM 3 0 P)(CALL 1 (E %CONTENTS))
06270		(MOVEI 2 (QUOTE (QUOTE NIL)))(CALL 2 (E EQUAL))(MOVE 2 0 P)(MOVEM 2 (SPECIAL SLOTLIST))
06280		(CLEARM 1 -2 P)(MOVEM 1 -4 P)(MOVE 1 -3 P)(JUMPE 1 G0113)(HRRZ@ 3 -10 P)(JUMPN 3 G0116)
06290		(MOVE 1 (SPECIAL EFFS))(JUMPN 1 G0115)(MOVE 1 -4 P)(JUMPN 1 G0115)(MOVEI 2 (QUOTE USED))
06300		(MOVE 1 (SPECIAL G2))(CALL 2 (E GET))(MOVEM 1 -2 P)(JUMPE 1 G0115)
06310	G0116 (MOVE 3 -6 P)(MOVEI 2 (QUOTE 0))(MOVEI 1 (QUOTE JRST))(CALL 3 (E %OUTJ))(JRST 0 G0114)
06320	G0115 (MOVE 1 -5 P)(CALL 1 (E %RESTORE))
06330	G0121 
06340	G0114 
06350	G0113 (MOVE 2 -1 P)(MOVEM 2 (SPECIAL SLOTLIST))(MOVE 1 (SPECIAL G2))(CALL 1 (E %OUTPT))(JRST 0 G0006)
06360	G0005 (CLEARM 1 -2 P)
06370	G0006 (HRRZ@ 1 -10 P)(MOVEM 1 -10 P)(JRST 0 G0001)
06380	G0007 (SUB P (C 0 0 11 11))(JRST 0 SPECSTR)
06390	NIL 
06400	
06410	
06420	(LAP SPECIAL FSUBR) 
06430		(PUSH P 1)
06440	G0001 (MOVE 1 0 P)(JUMPN 1 G0006)(MOVEI 1 (QUOTE T))(JRST 0 G0002)
06450	G0006 (MOVEI 3 (QUOTE SPECIAL))(MOVEI 2 (QUOTE T))(HLRZ@ 1 0 P)(CALL 3 (E PUTPROP))(HRRZ@ 1 0 P)
06460		(MOVEM 1 0 P)(JRST 0 G0001)
06470	G0002 (SUB P (C 0 0 1 1))(POPJ P)
06480	NIL 
06490	
06500	
06510	(LAP %CLEAR SUBR) 
06520		(CALL 0 (E %CSPLD))(CALL 0 (E %CWORLD))(JCALL 0 (E %CPVRL))
06530	NIL 
06540	
06550	
06560	(LAP %CLEAR1 SUBR) 
06570		(MOVEI 1 (QUOTE NIL))(CALL 1 (E %CSPLD3))(MOVEI 2 (QUOTE NIL))(MOVEI 1 (QUOTE 1))
06580		(CALL 2 (E %CSPLD2))(CALL 0 (E %CWORLD))(JCALL 0 (E %CPVRL))
06590	NIL 
06600	
     
00010	
00020	
00030	(DEFPROP COMDEF 
00040	(NIL %%%L
00050	     %NACS
00060	     A
00070	     D
00080	     HRRZ@
00090	     HLRZ@
00100	     MOVE
00110	     INCR
00120	     CAMN
00130	     CAME
00140	     CAR
00150	     CDR
00160	     CAAR
00170	     CADR
00180	     CDAR
00190	     CDDR
00200	     CONS
00210	     CONS
00220	     ATOM
00230	     NUMBERP
00240	     GENSYM
00250	     CAAAR
00260	     CAADR
00270	     CADAR
00280	     CDAAR
00290	     CDADR
00300	     CDDAR
00310	     CDDDR
00320	     CADDR
00330	     *PLUS
00340	     EQUAL
00350	     *TIMES
00360	     XCONS
00370	     NCONS
00380	     *APPEND
00390	     GET
00400	     *GREAT
00410	     *LESS
00420	     LENGTH
00430	     LAST
00440	     CAAAAR
00450	     CAAADR
00460	     CAADAR
00470	     CADAAR
00480	     CDAAAR
00490	     CAADDR
00500	     CADADR
00510	     CADDAR
00520	     CADDDR
00530	     CDDDDR
00540	     CDDDAR
00550	     CDDADR
00560	     CDDAAR
00570	     CDADAR
00580	     CDAADR
00590	     CDADDR
00600	     RPLACD
00610	     RPLACA
00620	     RPLACA
00630	     RPLACD) 
00640	VALUE)
00650	
00660	(DEFPROP %%%L 
00670	(NIL INST IMMED OPEN ACS COMMU INSTN FEXPR EXPR VALUE MACRO SPECIAL) 
00680	VALUE)
00690	
00700	(DEFPROP %NACS 
00710	(NIL . 5) 
00720	VALUE)
00730	
00740	(DEFPROP A 
00750	HLRZ@ 
00760	INST)
00770	
00780	(DEFPROP D 
00790	HRRZ@ 
00800	INST)
00810	
00820	(DEFPROP HRRZ@ 
00830	HRRZ 
00840	IMMED)
00850	
00860	(DEFPROP HLRZ@ 
00870	HLRZ 
00880	IMMED)
00890	
00900	(DEFPROP MOVE 
00910	MOVEI 
00920	IMMED)
00930	
00940	(DEFPROP INCR 
00950	(LAMBDA (L) (LIST (QUOTE SETQ) (CADR L) (LIST (QUOTE ADD1) (CADR L)))) 
00960	MACRO)
00970	
00980	(DEFPROP CAMN 
00990	CAIN 
01000	IMMED)
01010	
01020	(DEFPROP CAME 
01030	CAIE 
01040	IMMED)
01050	
01060	(DEFPROP CAR 
01070	(A) 
01080	OPEN)
01090	
01100	(DEFPROP CDR 
01110	(D) 
01120	OPEN)
01130	
01140	(DEFPROP CAAR 
01150	(A . CAR) 
01160	OPEN)
01170	
01180	(DEFPROP CADR 
01190	(A . CDR) 
01200	OPEN)
01210	
01220	(DEFPROP CDAR 
01230	(D . CAR) 
01240	OPEN)
01250	
01260	(DEFPROP CDDR 
01270	(D . CDR) 
01280	OPEN)
01290	
01300	(DEFPROP CONS 
01310	3 
01320	ACS)
01330	
01340	(DEFPROP CONS 
01350	XCONS 
01360	COMMU)
01370	
01380	(DEFPROP CONS 
01390	3 
01400	ACS)
01410	
01420	(DEFPROP CONS 
01430	XCONS 
01440	COMMU)
01450	
01460	(DEFPROP ATOM 
01470	1 
01480	ACS)
01490	
01500	(DEFPROP NUMBERP 
01510	1 
01520	ACS)
01530	
01540	(DEFPROP GENSYM 
01550	7 
01560	ACS)
01570	
01580	(DEFPROP CAAAR 
01590	(A . CAAR) 
01600	OPEN)
01610	
01620	(DEFPROP CAADR 
01630	(A . CADR) 
01640	OPEN)
01650	
01660	(DEFPROP CADAR 
01670	(A . CDAR) 
01680	OPEN)
01690	
01700	(DEFPROP CDAAR 
01710	(D . CAAR) 
01720	OPEN)
01730	
01740	(DEFPROP CDADR 
01750	(D . CADR) 
01760	OPEN)
01770	
01780	(DEFPROP CDDAR 
01790	(D . CDAR) 
01800	OPEN)
01810	
01820	(DEFPROP CDDDR 
01830	(D . CDDR) 
01840	OPEN)
01850	
01860	(DEFPROP CADDR 
01870	(A . CDDR) 
01880	OPEN)
01890	
01900	(DEFPROP *PLUS 
01910	*PLUS 
01920	COMMU)
01930	
01940	(DEFPROP EQUAL 
01950	EQUAL 
01960	COMMU)
01970	
01980	(DEFPROP *TIMES 
01990	*TIMES 
02000	COMMU)
02010	
02020	(DEFPROP XCONS 
02030	3 
02040	ACS)
02050	
02060	(DEFPROP NCONS 
02070	3 
02080	ACS)
02090	
02100	(DEFPROP *APPEND 
02110	37 
02120	ACS)
02130	
02140	(DEFPROP GET 
02150	1 
02160	ACS)
02170	
02180	(DEFPROP *GREAT 
02190	*LESS 
02200	COMMU)
02210	
02220	(DEFPROP *LESS 
02230	*GREAT 
02240	COMMU)
02250	
02260	(DEFPROP LENGTH 
02270	7 
02280	ACS)
02290	
02300	(DEFPROP LAST 
02310	3 
02320	ACS)
02330	
02340	(DEFPROP CAAAAR 
02350	(A . CAAAR) 
02360	OPEN)
02370	
02380	(DEFPROP CAAADR 
02390	(A . CAADR) 
02400	OPEN)
02410	
02420	(DEFPROP CAADAR 
02430	(A . CADAR) 
02440	OPEN)
02450	
02460	(DEFPROP CADAAR 
02470	(A . CDAAR) 
02480	OPEN)
02490	
02500	(DEFPROP CDAAAR 
02510	(D . CAAAR) 
02520	OPEN)
02530	
02540	(DEFPROP CAADDR 
02550	(A . CADDR) 
02560	OPEN)
02570	
02580	(DEFPROP CADADR 
02590	(A . CDADR) 
02600	OPEN)
02610	
02620	(DEFPROP CADDAR 
02630	(A . CDDAR) 
02640	OPEN)
02650	
02660	(DEFPROP CADDDR 
02670	(A . CDDDR) 
02680	OPEN)
02690	
02700	(DEFPROP CDDDDR 
02710	(D . CDDDR) 
02720	OPEN)
02730	
02740	(DEFPROP CDDDAR 
02750	(D . CDDAR) 
02760	OPEN)
02770	
02780	(DEFPROP CDDADR 
02790	(D . CDADR) 
02800	OPEN)
02810	
02820	(DEFPROP CDDAAR 
02830	(D . CDAAR) 
02840	OPEN)
02850	
02860	(DEFPROP CDADAR 
02870	(D . CADAR) 
02880	OPEN)
02890	
02900	(DEFPROP CDAADR 
02910	(D . CAADR) 
02920	OPEN)
02930	
02940	(DEFPROP CDADDR 
02950	(D . CADDR) 
02960	OPEN)
02970	
02980	(DEFPROP RPLACD 
02990	HRRM@ 
03000	INST)
03010	
03020	(DEFPROP RPLACD 
03030	HLLZS@ 
03040	INSTN)
03050	
03060	(DEFPROP RPLACA 
03070	HRLM@ 
03080	INST)
03090	
03100	(DEFPROP RPLACA 
03110	HRRZS@ 
03120	INSTN)
03130	
03140	(DEFPROP RPLACA 
03150	HRLM@ 
03160	INST)
03170	
03180	(DEFPROP RPLACA 
03190	HRRZS@ 
03200	INSTN)
03210	
03220	(DEFPROP RPLACD 
03230	HRRM@ 
03240	INST)
03250	
03260	(DEFPROP RPLACD 
03270	HLLZS@ 
03280	INSTN)
     
00010	(MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP (CAR X) (CADR X) (QUOTE OPR))))
00020	        (QUOTE ( (/+ PLUS) (/- DIFFERENCE) (/* TIMES) (// QUOTIENT) (/& AND) (/| OR) (/= EQUAL) (/ NEQUAL)
00030	                 (/@ APPEND) (/ MEMBER) )))
00040	
00050	(MAPCAR (FUNCTION (LAMBDA (X) (MAPCAR (FUNCTION (LAMBDA (Y) (PUTPROP Y T (CDR X)))) (CAR X))))
00060	        (QUOTE (((BEGIN NEW SPECIAL END COLLECT UNTIL WHILE DO FOR IF THEN ELSE IN ON BY TO LAMBDA OCTAL) . RW)
00070	                ((EXPR FEXPR MACRO LEXPR) . FUNCTYPE)
00080	                (( /' ) . QT)
00090	                (( /+ /- NOT NULL ATOM NUMBERP) . PREFIX))))
00100	
00110	(SETQ IDTYPE 0)
00120	(SETQ STRTYPE 1)
00130	(SETQ NUMTYPE 2)
00140	(SETQ DELIMTYPE 3)
00150	
00160	(DEFPROP UNASCII 
00170	 (LAMBDA (&X) (LSH (EXAMINE (MAKNUM (CAR (GET &X (QUOTE PNAME))) (QUOTE FIXNUM))) -29.)) 
00180	EXPR)
00190	
00200	(DEFPROP SCANNER1INIT
00210	 (LAMBDA NIL
00220	  (PROG NIL
00230	        (SETQ SCNVAL NIL)
00240	        (*PUTSYM (QUOTE SCNVAL) (GET (QUOTE SCNVAL) (QUOTE VALUE)))
00250	        (LOAD T)))
00260	EXPR)
00270	
00280	(DEFPROP SCANNER2INIT
00290	 (LAMBDA NIL
00300	  (PROG NIL
00310	        (GETSYM SUBR SCAN SCANINIT SCANSET SCANRESET LETTER IGNORE UNTYI)
00320	        (SCANINIT (UNASCII PERCENT) (UNASCII PERCENT) (UNASCII DBQUOTE) (UNASCII DBQUOTE) (UNASCII (QUOTE ?)))
00330	        (LETTER (UNASCII (QUOTE !)))
00340	        (LETTER (UNASCII COLON))
00350	        (IGNORE (UNASCII BLANK))
00360	        (IGNORE (UNASCII CR))
00370	        (IGNORE (UNASCII LF))
00380	        (IGNORE (UNASCII FF))
00390	        (IGNORE (UNASCII TAB))
00400	        (IGNORE (UNASCII ALTMODE))
00410		(REMOB UNASCII SCANNER1INIT SCANNER2INIT)))
00420	EXPR)
00430	
     
00010	(SETQ F NIL)
00020	(SETQ BLANK (QUOTE / ))
00030	(SETQ LPAR (QUOTE /())
00040	(SETQ RPAR (QUOTE /)))
00050	(SETQ DOLLAR (QUOTE /$))
00060	(SETQ SLASH (QUOTE //))
00070	(SETQ EQSIGN (QUOTE /=))
00080	(SETQ STAR (QUOTE /*))
00090	(SETQ COLON (QUOTE /:))
00100	(SETQ PLUSS (QUOTE /+))
00110	(SETQ DASH (QUOTE /-))
00120	(SETQ COMMA (QUOTE /,))
00130	(SETQ PERIOD (QUOTE /.))
00140	(SETQ PERCENT (QUOTE /%))
00150	(SETQ DBQUOTE (QUOTE /"))
00160	(SETQ LARROW (QUOTE /_))
00170	(SETQ TAB (INTERN (ASCII 11)))
00180	(SETQ LF (INTERN (ASCII 12)))
00190	(SETQ FF (INTERN (ASCII 14)))
00200	(SETQ CR (INTERN (ASCII 15)))
00210	(SETQ ALTMODE (INTERN (ASCII 175)))
00220	(SETQ BASE (SETQ IBASE 10.))
00230	(SETQ *NOPOINT T)
00240	(NOUUO NIL)
00250