Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0016/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