Personal tools
You are here: Home Projects LISP Stanford LISP_360 lisp._lispcom.s.5.html
Document Actions

lisp._lispcom.s.5.html

by Paul McJones last modified 2017-02-18 04:05

Click here to get the file

Size 193.3 kB - File type text/html

File contents

<html>
<head>
<title>LISP/360 Compiler and assembly program</title>
</head>
<body>
<pre>
DEFLIST (((COMMENT (LAMBDA (U A) NIL))) FEXPR)                          00000010
                                                                        00000020
COMMENT (THE LISP/360 COMPILER AND ASSEMBLY PROGRAM)                    00000030
                                                                        00000040
COMMENT (These routines were developed by R I Berns A C Hearn           00000050
         and J G Kent from code originally written for LISP on the 7090 00000060
         and modified for the IBM System 360 by F Blair and J Griesmer) 00000070
                                                                        00000080
COMMENT (******** LAP - The LISP Assembly Program ********)             00000090
                                                                        00000100
COMMENT (Initialization of Instruction Mneumonics etc)                  00000110
                                                                        00000120
DEFLIST((                                                               00000130
         (AR   01AX6)(A    05AX6)(AH   04AX6)(ALR  01EX6)(AL   05EX6)   00000140
         (NR   014X6)(N    054X6)(NI   094X6)(BALR 005X6)(BAL  045X6)   00000150
         (BCR  007X6)(BC   047X6)(BCTR 006X6)(BCT  046X6)(BXH  086X6)   00000160
         (BXLE 087X6)(CR   019X6)(C    059X6)(CH   049X6)(CLR  015X6)   00000170
         (CL   055X6)(CLI  095X6)(CVB  04FX6)(CVD  04EX6)(NC   0D4X6)   00000180
         (DR   01DX6)(D    05DX6)(XR   017X6)(X    057X6)(XI   097X6)   00000190
         (EX   044X6)(CLC  0D5X6)(IC   043X6)(LR   018X6)(L    058X6)   00000200
         (LA   041X6)(LTR  012X6)(LCR  013X6)(LH   048X6)(LM   098X6)   00000210
         (LNR  011X6)(LPR  010X6)(XC   0D7X6)(MVI  092X6)(MR   01CX6)   00000220
         (M    05CX6)(MH   04CX6)(OR   016X6)(O    056X6)(OI   096X6)   00000230
         (MVC  0D2X6)(MVN  0D1X6)(SLDA 0F8X6)(SLA  08BX6)(SLDL 08DX6)   00000240
         (SLL  089X6)(SRDA 08EX6)(SRA  08AX6)(SRDL 08CX6)(SRL  088X6)   00000250
         (MVO  0F1X6)(ST   050X6)(STC  042X6)(STH  040X6)(STM  090X6)   00000260
         (SR   01BX6)(S    05BX6)(SH   04BX6)(SLR  01FX6)(SL   05FX6)   00000270
         (MVZ  0D3X6)(OC   0D6X6)(PACK 0F2X6)(TR   0DCX6)(TRT  0DDX6)   00000280
         (UNPK 0F3X6)(AP   0FAX6)(CP   0F9X6)(DP   0FDX6)(ED   0DEX6)   00000290
         (EDMK 0DFX6)(MP   0FCX6)(SP   0FBX6)(ZAP  0F8X6)(AWR  02EX6)   00000300
         (ADR  02AX6)(AD   06AX6)(AER  03AX6)(AE   07AX6)(AW   06EX6)   00000310
         (AUR  03EX6)(AU   07EX6)(CDR  029X6)(CD   069X6)(CER  039X6)   00000320
         (CE   079X6)(DDR  02DX6)(DD   06DX6)(DER  03DX6)(DE   07DX6)   00000330
         (HDR  024X6)(HER  034X6)(LTDR 022X6)(LTER 032X6)(LCDR 023X6)   00000340
         (LCER 033X6)(LDR  028X6)(LD   068X6)(LNDR 021X6)(LNER 031X6)   00000350
         (LPDR 020X6)(LPER 030X6)(LER  038X6)(LE   078X6)(MDR  02CX6)   00000360
         (MD   06CX6)(MER  03CX6)(ME   07CX6)(STD  060X6)(STE  070X6)   00000370
         (SDR  02BX6)(SD   06BX6)(SER  03BX6)(SE   07BX6)(SWR  02FX6)   00000380
         (SW   067X6)(SUR  03FX6)(SU   07FX6)(TM   091X6)(L*   058X6)   00000390
         ) INST)                                                        00000400
                                                                        00000410
FLAG ((MVO PACK UNPK AP CP DP MP SP ZAP) LL)                            00000420
                                                                        00000430
FLAG ((BC BCR) MSK)                                                     00000440
                                                                        00000450
FLAG( (AR ALR NR BALR BCR BCTR CR CLR DR XR LR LTR LCR LNR LPR MR       00000460
       OR SR SLR ADR AER AWR CDR CER DDR DER HDR HER LTDR LTER LCDR     00000470
       LCER LDR LNDR LNER LPDR LPER LER MDR MER SDR SER SWR SUR AUR)    00000480
                                       RR)                              00000490
                                                                        00000500
                                                                        00000510
FLAG( (STH LA STC IC EX BAL BCT BC LH CH AH SH MH CVD CVB ST N CL O     00000520
       X L C A S M D AL SL STD LD CD AD SD MD DD AW SW STE LE CE AE     00000530
       SE ME DE AU SU L*)                                               00000540
                                       RX)                              00000550
                                                                        00000560
FLAG( (MVN MVC MVZ NC CLC OC XC TR TRT ED EDMK MVO PACK UNPK ZAP CP     00000570
       AP SP MP DP)                                                     00000580
                                       SS)                              00000590
                                                                        00000600
FLAG ((BXH BXLE LM SLDA SLA SLDL SLL SRDA SRA SRDL SRL STM) RS)         00000610
                                                                        00000620
FLAG ((NI CLI XI MVI OI TM) SI)                                         00000630
                                                                        00000640
FLAG ((DC AC) DC)                                                       00000650
                                                                        00000660
FLAG ((AC) AC)                                                          00000670
                                                                        00000680
DEFLIST((                                                               00000690
         (R0 0X)(R1 1X)(R2 2X)(R3 3X)(R4 4X)(R5 5X)(R6 6X)(R7 7X)       00000700
         (R8 8X)(R9 9X)(R10 0AX)(R11 0BX)(R12 0CX)(R13 0DX)(R14 0EX)    00000710
         (R15 0FX)(BASE 3X3)(A 8X)(Q 9X)(M 0AX)(NILR 5X)(K4 4X)         00000720
         (PDL 0FX)(PDS 7X)  ) REGS)                                     00000730
                                                                        00000740
DEFLIST (((SPECIALS ((NIL))) (QUOTES ((NIL)))) SPQT)                    00000750
                                                                        00000760
                                                                        00000770
COMMENT (Definition of LAP Macros)                                      00000780
                                                                        00000790
DEFLIST ((                                                              00000800
                                                                        00000810
(*SAVE (LAMBDA (X)                                                      00000820
   (LIST                                                                00000830
       (CONS (QUOTE ST) (CONS (CAR X) (QUOTE (0 (R7)))))                00000840
       (QUOTE (BXH R7 K4 0 (R12))))))                                   00000850
                                                                        00000860
(*UNSAVE (LAMBDA (X)                                                    00000870
   (LIST                                                                00000880
       (QUOTE (SR R7 K4))                                               00000890
       (CONS (QUOTE L) (CONS (CAR X) (QUOTE (0 (R7))))))))              00000900
                                                                        00000910
(*LOAD (LAMBDA (X)                                                      00000920
   (COND                                                                00000930
       ((EQ (CAADR X) (QUOTE QUOTE))                                    00000940
          (LIST                                                         00000950
             (CONS (QUOTE L) X)                                         00000960
             (APPEND (QUOTE (AR)) (CONS (CAR X) (QUOTE (NILR))))))      00000970
       (T                                                               00000980
          (LIST                                                         00000990
             (CONS (QUOTE L) X)                                         00001000
             (LIST                                                      00001010
                (QUOTE L)                                               00001020
                (CAR X)                                                 00001030
                0                                                       00001040
                (LIST (QUOTE NILR) (CAR X))))))))                       00001050
                                                                        00001060
(*RETURN (LAMBDA (X)                                                    00001070
   (QUOTE ((BC 15 48 (R0 R12))))))                                      00001080
                                                                        00001090
(*LINK (LAMBDA (X)                                                      00001100
   (LIST                                                                00001110
       (QUOTE (CNOP))                                                   00001120
       (QUOTE (BAL R2 56 (R0 R12)))                                     00001130
       (LIST (QUOTE AC) (CAR X))                                        00001140
       (LIST (QUOTE DC) (LEFTSHIFT (CADR X) 2)))))                      00001150
                                                                        00001160
(*MOVE (LAMBDA (X)                                                      00001170
   (LIST                                                                00001180
       (QUOTE (LR PDL PDS))                                             00001190
       (LIST (QUOTE LA) (QUOTE PDS) (CAR X) (QUOTE (R0 PDS)))           00001200
       (LIST (QUOTE LA) (QUOTE M) (CADR X) (QUOTE (R0 R0)))             00001210
       (QUOTE (BAL R2 52 (R0 R12))))))                                  00001220
                                                                        00001230
(*REMOVE (LAMBDA (X)                                                    00001240
   (QUOTE ((LR PDS PDL) (BC 15 48 (R0 R12))))))                         00001250
                                                                        00001260
(*STORE (LAMBDA (X)                                                     00001270
   (LIST                                                                00001280
       (APPEND (QUOTE (L M)) (CDR X))                                   00001290
       (LIST                                                            00001300
          (QUOTE ST)                                                    00001310
          (CAR X)                                                       00001320
          0                                                             00001330
          (LIST (QUOTE NILR) (QUOTE M))))))                             00001340
                                                                        00001350
(*ACS (LAMBDA (X)                                                       00001360
   (LIST (LIST (QUOTE AC) (GET (CAR X) (QUOTE SPECIAL))))))             00001370
                                                                        00001380
(*DUMP (LAMBDA (X)                                                      00001390
   (QUOTE ((CNOP) (DC 041100001X) (DC 08910001FX)                       00001400
           (DC 00A0D0700X)))))                                          00001410
                                                                        00001420
) MC)                                                                   00001430
                                                                        00001440
                                                                        00001450
COMMENT ((LAP360 and Associated functions))                             00001460
                                                                        00001470
DEFINE ((                                                               00001480
                                                                        00001490
(LAP360 (LAMBDA (X Y)                                                   00001500
   (PROG (LOC QLST BPSV XX LOCE)                                        00001510
             (SETQ BPSV (LOGOR (GET (QUOTE BPS) (QUOTE APVAL ) ) 0))    00001520
             (PLANT1 050207000X 4)                                      00001530
             (PLANT 08674C000X 4)                                       00001540
             (PLANT 050307000X 4)                                       00001550
             (PLANT 08674C000X 4)                                       00001560
             (PLANT 007000530X 4)                                       00001570
             (SETQ LOC 0)                                               00001580
             (MAPLIST (CDR X) (FUNCTION *_LABLER))                      00001590
             (SETQ XX (CAR X))                                          00001600
             (SETQ LOCE LOC)                                            00001610
             (COND                                                      00001620
                ((NULL (EVENP (LEFTSHIFT LOC -1)))                      00001630
                   (SETQ LOC (PLUS LOC 2))))                            00001640
             (MAPCAR (CDR X) (FUNCTION *_ASSEMBLE))                     00001650
             (*_QSET)                                                   00001660
             (SETQ X (CAR XX))                                          00001670
             (DEFLIST                                                   00001680
                (LIST                                                   00001690
                   (LIST                                                00001700
                      X                                                 00001710
                      (CONS                                             00001720
                         (CAAR (LOGOR BPSV (LEFTSHIFT (CADDR XX) 24)))  00001730
                         (CDR (GET (QUOTE CAR) (QUOTE SUBR))))))        00001740
                (CADR XX))                                              00001750
             (RETURN Y))))                                              00001760
                                                                        00001770
(*_ASSEMBLE (LAMBDA (A)                                                 00001780
   (PROG (U Z V W)                                                      00001790
             (SETQ U (CAR A))                                           00001800
             (SETQ Z 000000000X)                                        00001810
             (COND                                                      00001820
                ((OR (ATOM A) (EQ U (QUOTE CNOP)))                      00001830
                   (RETURN NIL))                                        00001840
                ((FLAGP U (QUOTE RR)) (GO RR))                          00001850
                ((FLAGP U (QUOTE RS)) (GO RS))                          00001860
                ((FLAGP U (QUOTE RX)) (GO RX))                          00001870
                ((FLAGP U (QUOTE SS)) (GO SS))                          00001880
                ((FLAGP U (QUOTE SI)) (GO SI))                          00001890
                ((FLAGP U (QUOTE AC)) (GO AC))                          00001900
                ((FLAGP U (QUOTE DC)) (GO DC))                          00001910
                ((FLAGP U (QUOTE MC)) (RETURN A)))                      00001920
             (GO ERR1)                                                  00001930
       RR    (SETQ Z (LOGOR Z (*_REGSET (CADDR A) 16 A)))               00001940
       SET2  (SETQ V (GET (CADR A) (QUOTE REGS)))                       00001950
             (COND                                                      00001960
                (V (SETQ Z (LOGOR Z (LEFTSHIFT V 20))))                 00001970
                ((FLAGP U (QUOTE MSK))                                  00001980
                   (SETQ Z (LOGOR Z (LEFTSHIFT (CADR A) 20))))          00001990
                (T (GO ERR2)))                                          00002000
       SET1  (SETQ Z (LOGOR Z (GET U (QUOTE INST))))                    00002010
       SETLEN(SETQ V (*_LONG U))                                        00002020
       SETMEM(PLANT Z V)                                                00002030
             (RETURN Z)                                                 00002040
       AC    (PLANTSQ (CADR A) 4)                                       00002050
             (RETURN (CADR A))                                          00002060
       DC    (PLANTDC (CADR A) 4)                                       00002070
             (RETURN (CADR A))                                          00002080
       ERR1  (PRINT (LIST (QUOTE (*** L5-UNDEFINED OP CODE)) A))        00002090
             (SETQ V 4)                                                 00002100
             (GO SETMEM)                                                00002110
       ERR2  (PRINT (LIST(QUOTE (*** L7-INVALID REGISTER SPECIFICATION))00002120
                        A))                                             00002130
             (GO SETLEN)                                                00002140
       RS    (SETQ V (CDDDR A))                                         00002150
             (COND                                                      00002160
                ((NULL V) (GO RS21))                                    00002170
                ((NULL (ATOM (CAR V))) (GO RS5))                        00002180
                ((CDR V) (GO RS2)))                                     00002190
       RSL   (*_LOCAL (CAR V))                                          00002200
             (GO RR)                                                    00002210
       RS2   (SETQ Z (LOGOR Z (*_REGSET (CAADR V) 12 A) (CAR V)))       00002220
             (GO RR)                                                    00002230
       RS21  (SETQ V (CDDR A))                                          00002240
             (GO RS1)                                                   00002250
       RS5   (COND                                                      00002260
                ((MEMBER (CAAR V) (QUOTE (QUOTE SPECIAL))) (GO RS3)))   00002270
       RS22  (SETQ V (CDDR A))                                          00002280
             (SETQ Z (LOGOR Z (*_REGSET (CAADR V) 12 A)))               00002290
       RS1   (SETQ Z (LOGOR Z (CAR V)))                                 00002300
             (GO SET2)                                                  00002310
       RS3   (*_GTCL (CADAR V) (EQ (CAAR V) (QUOTE SPECIAL)))           00002320
             (GO RR)                                                    00002330
       SI    (SETQ Z 000000000X)                                        00002340
             (COND ((ATOM (CADDR A)) (GO SILOC)))                       00002350
             (SETQ                                                      00002360
                Z                                                       00002370
                (LOGOR                                                  00002380
                   Z                                                    00002390
                   (*_REGSET (CAR (CADDR A)) 12 A)                      00002400
                   (CADR A)                                             00002410
                   (LEFTSHIFT (CADDR (CDR A)) 16)))                     00002420
             (GO SET1)                                                  00002430
       SILOC (*_LOCAL (CADR A))                                         00002440
             (SETQ Z (LOGOR Z (LEFTSHIFT (CADDR A) 16)))                00002450
             (GO SET1)                                                  00002460
       RX    (SETQ V (CDDR A))                                          00002470
             (COND                                                      00002480
                ((NULL (ATOM (CAR V))) (GO RXQ))                        00002490
                ((NULL (CDR V)) (GO RXLC)))                             00002500
             (SETQ Z (CAR V))                                           00002510
             (SETQ V (CADR V))                                          00002520
             (SETQ Z (LOGOR Z (*_REGSET (CAR V) 16 A)))                 00002530
             (COND ((NULL (CDR V)) (GO SET2)))                          00002540
             (SETQ Z (LOGOR Z (*_REGSET (CADR V) 12 A)))                00002550
             (GO SET2)                                                  00002560
       RXQ   (*_GTCL (CADAR V) (EQ (CAAR V) (QUOTE SPECIAL)))           00002570
             (GO SET2)                                                  00002580
       RXLC  (*_LOCAL (CAR V))                                          00002590
             (GO SET2)                                                  00002600
       SS    (SETQ V (CADDR A))                                         00002610
             (COND                                                      00002620
                ((ATOM V) (GO SSLC))                                    00002630
                ((FLAGP U (QUOTE LL))                                   00002640
                   (SETQ Z (LEFTSHIFT (SUB1 (CAR V)) 20)))              00002650
                (T (SETQ Z (LEFTSHIFT (SUB1 (CAR V)) 16))))             00002660
             (COND ((NULL (CDR V)) (GO SSLC)))                          00002670
             (SETQ                                                      00002680
                Z                                                       00002690
                (LOGOR                                                  00002700
                   Z                                                    00002710
                   (*_REGSET (CADR V) 12 A)                             00002720
                   (CADR A)))                                           00002730
             (GO SSIN)                                                  00002740
       SSLC  (*_LOCAL (CADR A))                                         00002750
       SSIN  (SETQ Z (LOGOR Z (GET U (QUOTE INST))))                    00002760
             (SETQ W Z)                                                 00002770
             (SETQ V (CDDR (CDR A)))                                    00002780
             (SETQ Z 000000000X)                                        00002790
             (COND                                                      00002800
                ((NULL V) (GO SSLC2))                                   00002810
                ((NULL (ATOM (CAR V))) (GO SSQ)))                       00002820
             (COND ((NULL (CDR V)) (GO SSLC3)))                         00002830
             (SETQ V (CADR V))                                          00002840
             (COND                                                      00002850
                ((FLAGP U (QUOTE LL))                                   00002860
                   (SETQ                                                00002870
                      W                                                 00002880
                      (LOGOR W (LEFTSHIFT (SUB1 (CAR V)) 16))))         00002890
                (T (GO SSDP)))                                          00002900
             (COND ((NULL (CDR V)) (GO SSLC3)))                         00002910
             (SETQ                                                      00002920
                Z                                                       00002930
                (LOGOR                                                  00002940
                   (CADDR (CDR A))                                      00002950
                   (*_REGSET (CADR V) 12 A)))                           00002960
             (GO SSET)                                                  00002970
       SSDP  (SETQ                                                      00002980
                Z                                                       00002990
                (LOGOR                                                  00003000
                   Z                                                    00003010
                   (CADDR (CDR A))                                      00003020
                   (*_REGSET (CAR V) 12 A)))                            00003030
             (GO SSET)                                                  00003040
       SSLC2 (SETQ V (CADDR A))                                         00003050
             (GO SSLC4)                                                 00003060
       SSLC3 (SETQ V (CADDR (CDR A)))                                   00003070
       SSLC4 (*_LOCAL V)                                                00003080
             (GO SSET)                                                  00003090
       SSQ   (*_GTCL (CADAR V) (EQ (CAAR V) (QUOTE SPECIAL)))           00003100
       SSET  (SETQ Z (LEFTSHIFT Z 16))                                  00003110
             (PLANT W 4)                                                00003120
             (PLANT Z 2)                                                00003130
             (RETURN (CONS W Z)))))                                     00003140
                                                                        00003150
(*_LABLER (LAMBDA (L)                                                   00003160
   (PROG NIL                                                            00003170
             (COND                                                      00003180
                ((ATOM (CAR L)) (GO LBCC))                              00003190
                ((EQ (CAAR L) (QUOTE CNOP)) (GO LBNOP))                 00003200
                ((FLAGP (CAAR L) (QUOTE MC)) (GO LBMC)))                00003210
       LBLG  (SETQ LOC (PLUS LOC (*_LONG (CAAR L))))                    00003220
             (RETURN NIL)                                               00003230
       LBCC  (COND                                                      00003240
                ((FLAGP (CAR (CADR L)) (QUOTE DC)) (GO LBDC))           00003250
                (T (GO LBNDC)))                                         00003260
       LBMC  (RPLACD                                                    00003270
                L                                                       00003280
                (APPEND                                                 00003290
                   (APPLY                                               00003300
                      (GET (CAAR L) (QUOTE MC))                         00003310
                      (CONS (CDAR L) NIL)                               00003320
                      NIL)                                              00003330
                   (CDR L)))                                            00003340
             (RETURN NIL)                                               00003350
       LBNOP (COND                                                      00003360
                ((NULL (EVENP (LEFTSHIFT LOC -1)))                      00003370
                   (RPLACD                                              00003380
                      L                                                 00003390
                      (APPEND (QUOTE ((BCR 0 R2))) (CDR L)))))          00003400
             (RETURN NIL)                                               00003410
       LBDC  (COND                                                      00003420
                ((NULL (EVENP (LEFTSHIFT LOC -1)))                      00003430
                   (SETQ LOC (PLUS LOC 2))))                            00003440
       LBNDC (SETQ Y (APPEND1 Y (CONS (CAR L) LOC)))                    00003450
             (RETURN NIL))))                                            00003460
                                                                        00003470
(*_LOCAL (LAMBDA (A)                                                    00003480
   (PROG (U)                                                            00003490
             (SETQ Z (LOGOR Z 000003000X))                              00003500
             (SETQ U (SASSOC A Y NIL))                                  00003510
             (COND                                                      00003520
                (U                                                      00003530
                      (SETQ Z (LOGOR Z (CDR U))))                       00003540
             (T (PRINT (LIST (QUOTE (*** L6-UNDEFINED LABEL)) A)))      00003550
             ))))                                                       00003560
                                                                        00003570
(*_LONG (LAMBDA (A)                                                     00003580
   (PROG (U)                                                            00003590
             (SETQ U (GET A (QUOTE INST)))                              00003600
             (COND (U (GO LONS)))                                       00003610
             (RETURN 4)                                                 00003620
       LONS  (SETQ U (LEFTSHIFT U -30))                                 00003630
             (COND ((LESSP U 2) (SETQ U (ADD1 U))))                     00003640
             (RETURN (LEFTSHIFT U 1)))))                                00003650
                                                                        00003660
(*_GTCL (LAMBDA (L V)                                                   00003670
   (PROG (U P)                                                          00003680
             (SETQ U (*_LOOK L QLST V))                                 00003690
             (COND ((NULL U) (GO A)))                                   00003700
                      (SETQ Z (LOGOR Z 000003000X (CDDR U)))            00003710
             (GO G)                                                     00003720
    A        (COND (V (SETQ P (GET L (QUOTE SPECIAL))))                 00003730
                   (T (SETQ P L)))                                      00003740
             (SETQ U (CAR (GET (COND (V (QUOTE SPECIALS))               00003750
                                (T (QUOTE QUOTES)))                     00003760
                               (QUOTE SPQT))))                          00003770
    B        (COND ((OR (EQ P (CAR U))                                  00003780
                        (AND (NULL V) (EQUAL P (CAR U)))) (GO D))       00003790
                   ((NULL (CDR U)) (GO C)))                             00003800
             (SETQ U (CDR U))                                           00003810
             (GO B)                                                     00003820
    C        (RPLACD U (CONS P NIL))                                    00003830
             (GO E)                                                     00003840
    D        (SETQ P (CAR U))                                           00003850
    E        (SETQ Z (LOGOR Z 000003000X LOC))                          00003860
             (SETQ QLST (APPEND1 QLST (CONS (COND (V L) (T P))          00003870
                   (CONS P LOC))))                                      00003880
             (SETQ LOC (PLUS LOC 4))                                    00003890
    G        (RETURN NIL))))                                            00003900
                                                                        00003910
(*_LOOK (LAMBDA (XX YY XY)                                              00003920
   (PROG NIL                                                            00003930
       L1    (COND                                                      00003940
                ((NULL YY) (RETURN NIL))                                00003950
                ((EQUAL (CAAR YY) XX) (GO L3)))                         00003960
       L2    (SETQ YY (CDR YY))                                         00003970
             (GO L1)                                                    00003980
       L3    (COND ((EQ (CADR (CAR YY)) (CAAR YY)) (GO L4)))            00003990
             (COND (XY (RETURN (CAR YY))))                              00004000
             (GO L2)                                                    00004010
       L4    (COND (XY (GO L2)))                                        00004020
             (RETURN (CAR YY)))))                                       00004030
                                                                        00004040
(*_REGSET (LAMBDA (U V AA)                                              00004050
   (PROG (W)                                                            00004060
             (SETQ W (GET U (QUOTE REGS)))                              00004070
             (COND (W (RETURN (LEFTSHIFT W V))))                        00004080
             (PRINT(LIST (QUOTE (*** L7-INVALID REGISTER SPECIFICATION))00004090
                         AA))                                           00004100
             (RETURN 000000000X))))                                     00004110
                                                                        00004120
(*_QSET (LAMBDA NIL                                                     00004130
   (PROG (U)                                                            00004140
             (COND ((NULL (EVENP (LEFTSHIFT LOCE -1))) (PLANT 007010000X00004150
                                                              2)))      00004160
             (SETQ U QLST)                                              00004170
       QLOP  (COND ((NULL U) (RETURN NIL)))                             00004180
             (PLANTSQ (CADAR U) 4)                                      00004190
             (SETQ U (CDR U))                                           00004200
             (GO QLOP))))                                               00004210
                                                                        00004220
(BPSUSED (LAMBDA (U)                                                    00004230
    (SETQ PWRDS U)))                                                    00004240
                                                                        00004250
(PRINLAP (LAMBDA (U)                                                    00004260
    (SETQ PLAP U)))                                                     00004270
                                                                        00004280
))                                                                      00004290
                                                                        00004300
DEFINE ((                                                               00004310
                                                                        00004320
(REMEXPR (LAMBDA (U)                                                    00004330
   (MAP U (FUNCTION (LAMBDA (J)                                         00004340
      (PROG2 (REMPROP (CAR J) (QUOTE EXPR))                             00004350
             (REMPROP (CAR J) (QUOTE FEXPR))))))))                      00004360
        ))                                                              00004370
                                                                        00004380
COMMENT (Def of the LAP Function *_LOGX and Redefinition of LAP360)     00004390
                                                                        00004400
LAP360(( (*_LOGX SUBR 1) (LR Q NILR) (*LINK CONS 2) (MVI 4(A) 60X)      00004410
         (*LINK CONS 2) (MVI 0(A) 0D0X) (*RETURN NIL)  )  NIL  )        00004420
                                                                        00004430
DEFINE ((                                                               00004440
                                                                        00004450
(LAP360 (LAMBDA (X Y)                                                   00004460
   (PROG (LOC QLST BPORG BPSV XX LOCE)                                  00004470
             (COND (PLAP (MAPCAR X (FUNCTION PRINT)) )  )               00004480
             (SETQ BPSV (*_LOGX (CAR BPS)))                             00004490
             (SETQ BPORG BPSV)                                          00004500
             (PLANT1 050207000X 4)                                      00004510
             (PLANT 08674C000X 4)                                       00004520
             (PLANT 050307000X 4)                                       00004530
             (PLANT 08674C000X 4)                                       00004540
             (PLANT 007000530X 4)                                       00004550
             (SETQ LOC 0)                                               00004560
             (MAPLIST (CDR X) (FUNCTION *_LABLER))                      00004570
             (SETQ XX (CAR X))                                          00004580
             (SETQ X (CDR X))                                           00004590
             (SETQ LOCE LOC)                                            00004600
             (COND                                                      00004610
                ((NULL (EVENP (LEFTSHIFT LOC -1)))                      00004620
                   (SETQ LOC (PLUS LOC 2))))                            00004630
             (MAPCAR X (FUNCTION *_ASSEMBLE))                           00004640
             (*_QSET)                                                   00004650
             (SETQ X (GET (CAR XX) (CADR XX)))                          00004660
             (SETQ LOC (CAAR (LOGOR BPSV (LEFTSHIFT (CADDR XX) 24))))   00004670
             (COND (X (RELINK X LOC)))                                  00004680
             (SETQ X (CAR XX))                                          00004690
             (DEFLIST                                                   00004700
                (LIST                                                   00004710
                   (LIST                                                00004720
                      X                                                 00004730
                      (CONS                                             00004740
                         LOC                                            00004750
                         (CDR (GET (QUOTE CAR) (QUOTE SUBR))))))        00004760
                (CADR XX))                                              00004770
             (SETQ XX (*_LOGX (CAR BPS)))                               00004780
             (COND (PWRDS                                               00004790
              (PRINT (LIST X (QUOTIENT (DIFFERENCE XX BPORG) 4)         00004800
                             (QUOTE WORDS)                              00004810
                             (QUOTIENT (DIFFERENCE (*_LOGX (CDR BPS))   00004820
                                                   XX) 4)               00004830
                             (QUOTE LEFT)))))                           00004840
             (RETURN Y))))                                              00004850
                                                                        00004860
))                                                                      00004870
                                                                        00004880
COMMENT (******** END OF LAP ASSEMBLY PROGRAM ********)                 00004890
                                                                        00004900
                                                                        00004910
COMMENT (******** THE STANFORD LISP/360 COMPILER ********)              00004920
                                                                        00004930
COMMENT (SPECIFICATION OF OPEN CODED FUNCTIONS)                         00004940
                                                                        00004950
DEFLIST (((CAR (LAMBDA (X) ((L X 0 (R0 X)))))                           00004960
          (CDR (LAMBDA (X) ((L X 4 (R0 X)))))                           00004970
          (CAAR (LAMBDA (X) ((L X 0 (R0 X)) (L X 0 (R0 X)))))           00004980
          (CADR (LAMBDA (X) ((L X 4 (R0 X)) (L X 0 (R0 X)))))           00004990
          (CDAR (LAMBDA (X) ((L X 0 (R0 X)) (L X 4 (R0 X)))))           00005000
          (CDDR (LAMBDA (X) ((L X 4 (R0 X)) (L X 4 (R0 X)))))           00005010
          (CAAAR (LAMBDA (X) ((L X 0 (R0 X)) (L X 0 (R0 X))             00005020
                              (L X 0 (R0 X)))))                         00005030
          (CAADR (LAMBDA (X) ((L X 4 (R0 X)) (L X 0 (R0 X))             00005040
                              (L X 0 (R0 X)))))                         00005050
          (CADAR (LAMBDA (X) ((L X 0 (R0 X)) (L X 4 (R0 X))             00005060
                              (L X 0 (R0 X)))))                         00005070
          (CADDR (LAMBDA (X) ((L X 4 (R0 X)) (L X 4 (R0 X))             00005080
                              (L X 0 (R0 X)))))                         00005090
          (CDAAR (LAMBDA (X) ((L X 0 (R0 X)) (L X 0 (R0 X))             00005100
                              (L X 4 (R0 X)))))                         00005110
          (CDADR (LAMBDA (X) ((L X 4 (R0 X)) (L X 0 (R0 X))             00005120
                              (L X 4 (R0 X)))))                         00005130
          (CDDAR (LAMBDA (X) ((L X 0 (R0 X)) (L X 4 (R0 X))             00005140
                              (L X 4 (R0 X)))))                         00005150
          (CDDDR (LAMBDA (X) ((L X 4 (R0 X)) (L X 4 (R0 X))             00005160
                              (L X 4 (R0 X)))))                         00005170
          (FUNC ((BAL R2 32 (R0 R12))))                                 00005180
          (EVA1 ((L Q (SPECIAL ALIST)) (BAL R2 36 (R0 R12))))           00005190
          (COMBIND ((BAL R2 40 (R0 R12))))                              00005200
          (COMRSTR ((BAL R2 44 (R0 R12))))                              00005210
          ) OPEN)                                                       00005220
                                                                        00005230
                                                                        00005240
CSET (OPT T) CSET (PLAP NIL) CSET (PWRDS T)                             00005250
                                                                        00005260
                                                                        00005270
COMMENT (Compilation of functions which do not use special variables)   00005280
                                                                        00005290
LAP360((     (COMPILE SUBR 1)                                           00005300
(*MOVE 20 000000004X) (ST NILR 8 (R0 PDL)) (L A 4 (R0 PDL))             00005310
(ST A 12 (R0 PDL)) *__*0003 (L A 12 (R0 PDL)) (CR NILR A)               00005320
(BC 7 *__*0007) (L A 4 (R0 PDL)) (*REMOVE NIL) *__*0007 *__*0006        00005330
(L A 12 (R0 PDL)) (L A 0 (R0 A)) (ST A 8 (R0 PDL))                      00005340
(*LOAD Q (QUOTE EXPR)) (*LINK GET 2) (ST A 16 (R0 PDL))                 00005350
(*LOAD Q (QUOTE FEXPR)) (L A 8 (R0 PDL)) (*LINK GET 2) (L M 8 (R0 R12)) 00005360
(ST A 000000000X (R0 M)) (L Q 16 (R0 PDL)) (L A 8 (R0 PDL))             00005370
(*LINK COM1 3) (L A 12 (R0 PDL)) (L A 4 (R0 A)) (ST A 12 (R0 PDL))      00005380
(BC 15 *__*0003) ) NIL)                                                 00005390
                                                                        00005400
LAP360((     (COM1 SUBR 3)                                              00005410
(*MOVE 16 00000000CX) (L A 8 (R0 PDL)) (CR NILR A) (BC 8 *__*0017)      00005420
(L A 4 (R0 A)) (L A 0 (R0 A)) (*LINK LENGTH 1) (L M 8 (R0 R12))         00005430
(L R1 4 (R0 PDL)) (ST R1 000000004X (R0 M)) (L R1 8 (R0 PDL))           00005440
(ST R1 000000000X (R0 M)) (LR Q A) (*LOAD A (QUOTE SUBR))               00005450
(*LINK *_COM2 4) (*REMOVE NIL) *__*0017 (L A 12 (R0 PDL)) (CR NILR A)   00005460
(BC 8 *__*0021) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LINK LENGTH 1)          00005470
(L M 8 (R0 R12)) (L R1 4 (R0 PDL)) (ST R1 000000004X (R0 M))            00005480
(L R1 12 (R0 PDL)) (ST R1 000000000X (R0 M)) (LR Q A)                   00005490
(*LOAD A (QUOTE FSUBR)) (*LINK *_COM2 4) (*REMOVE NIL) *__*0021         00005500
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 4 (R0 PDL))                00005510
(L* R2 (QUOTE UNDEFINED)) (*LINK PRINT 1) (*REMOVE NIL) ) NIL)          00005520
                                                                        00005530
LAP360((     (*_COMP SUBR 2)                                            00005540
(*MOVE 12 000000008X) (L A 8 (R0 PDL)) (*LINK ATOM 1) (CR NILR A)       00005550
(BC 8 *__*0028) (L A 8 (R0 PDL)) (*REMOVE NIL) *__*0028                 00005560
(L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LINK LENGTH 1)         00005570
(L M 8 (R0 R12)) (L R1 4 (R0 PDL)) (ST R1 000000004X (R0 M))            00005580
(L R1 8 (R0 PDL)) (ST R1 000000000X (R0 M)) (LR Q A)                    00005590
(*LOAD A (QUOTE SUBR)) (*LINK *_COM2 4) (*REMOVE NIL) ) NIL)            00005600
                                                                        00005610
LAP360((     (*_PI2 SUBR 2)                                             00005620
(*MOVE 12 000000008X) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))            00005630
(L* R2 (QUOTE SETQ)) (L* A 4 (R0 PDL)) (L* A 8 (R0 PDL)) (*REMOVE NIL)  00005640
) NIL)                                                                  00005650
                                                                        00005660
LAP360((     (*_PA5 SUBR 2)                                             00005670
(*MOVE 24 000000008X) (ST NILR 12 (R0 PDL)) (ST NILR 16 (R0 PDL))       00005680
*__*0041 (L A 4 (R0 PDL)) (CR NILR A) (BC 7 *__*0046) (*REMOVE NIL)     00005690
*__*0046 (L A 4 (R0 PDL)) (L A 0 (R0 A)) (L Q 8 (R0 PDL)) (*LINK GET 2) 00005700
(CR NILR A) (BC 8 *__*0048) (L A 4 (R0 PDL)) (L A 0 (R0 A))             00005710
(ST A 20 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L Q 8 (R0 PDL))     00005720
(*LINK *_PA5 2) (LR Q A) (L A 20 (R0 PDL)) (*LINK CONS 2) (*REMOVE NIL) 00005730
*__*0048 *__*0045 *__*0042 (L A 4 (R0 PDL)) (L A 4 (R0 A))              00005740
(ST A 12 (R0 PDL)) (L A 8 (R0 PDL)) (ST A 16 (R0 PDL)) *__*0043         00005750
(L A 12 (R0 PDL)) (ST A 4 (R0 PDL)) (L A 16 (R0 PDL)) (ST A 8 (R0 PDL)) 00005760
(BC 15 *__*0041) ) NIL)                                                 00005770
                                                                        00005780
LAP360((     (*_PA6 SUBR 2)                                             00005790
(*MOVE 20 000000008X) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))            00005800
(L* R2 (QUOTE QUOTE)) (L* A 8 (R0 PDL)) (ST A 12 (R0 PDL))              00005810
(L Q 8 (R0 PDL)) (*LOAD A (QUOTE LIST)) (*LINK CONS 2)                  00005820
(ST A 16 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00005830
(L* A 4 (R0 PDL)) (L* A 12 (R0 PDL)) (L* A 16 (R0 PDL))                 00005840
(ST A 12 (R0 PDL)) (LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12))               00005850
(L* A 12 (R0 PDL)) (*REMOVE NIL) ) NIL)                                 00005860
                                                                        00005870
LAP360((     (*_PA9 SUBR 2)                                             00005880
(*MOVE 16 000000008X) (L A 4 (R0 PDL)) (CR NILR A) (BC 8 *__*0070)      00005890
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE QUOTE))            00005900
(L* A 4 (R0 PDL)) (ST A 12 (R0 PDL)) (LA R0 2 (R0 R0))                  00005910
(BAL R2 16 (R0 R12)) (L* A 8 (R0 PDL)) (L* A 12 (R0 PDL))               00005920
(ST A 12 (R0 PDL)) (LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12))               00005930
(L* A 12 (R0 PDL)) (*REMOVE NIL) *__*0070 (LR A NILR) (*REMOVE NIL)     00005940
) NIL)                                                                  00005950
                                                                        00005960
LAP360((     (*_PA11 SUBR 2)                                            00005970
(*MOVE 12 000000008X) (L A 4 (R0 PDL)) (CR NILR A) (BC 8 *__*0076)      00005980
(L Q 4 (R0 PDL))(L A 8 (R0 PDL)) (*LINK *_PA6 2) (*REMOVE NIL) *__*0076 00005990
(LR A NILR) (*REMOVE NIL) ) NIL)                                        00006000
                                                                        00006010
LAP360((     (*_PA12 SUBR 1)                                            00006020
(*MOVE 12 000000004X) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))            00006030
(L* R2 (QUOTE RETURN)) (L* A 4 (R0 PDL)) (ST A 8 (R0 PDL))              00006040
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 8 (R0 PDL)) (*REMOVE NIL)  00006050
) NIL)                                                                  00006060
                                                                        00006070
LAP360((     (*_PA14 SUBR 1)                                            00006080
(*MOVE 12 000000004X) (L A 4 (R0 PDL)) (CR NILR A) (BC 8 *__*0082)      00006090
(*LINK LENGTH 1) (ST A 8 (R0 PDL)) (LA R0 2 (R0 R0))                    00006100
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE QUOTE)) (L* A 8 (R0 PDL))            00006110
(ST A 8 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))                00006120
(L* R2 (QUOTE COMRSTR)) (L* A 8 (R0 PDL)) (ST A 8 (R0 PDL))             00006130
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 8 (R0 PDL)) (*REMOVE NIL)  00006140
*__*0082 (LR A NILR) (*REMOVE NIL) ) NIL)                               00006150
                                                                        00006160
LAP360((     (REVERSE SUBR 1)                                           00006170
(*MOVE 12 000000004X) (ST NILR 8 (R0 PDL)) *__*0090 (L A 4 (R0 PDL))    00006180
(CR NILR A) (BC 7 *__*0093) (L A 8 (R0 PDL)) (*REMOVE NIL) *__*0093     00006190
*__*0092 (L A 4 (R0 PDL)) (L A 0 (R0 A)) (L Q 8 (R0 PDL))               00006200
(*LINK CONS 2) (ST A 8 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A))        00006210
(ST A 4 (R0 PDL)) (BC 15 *__*0090) ) NIL)                               00006220
                                                                        00006230
LAP360((     (MAP SUBR 2)                                               00006240
(*MOVE 20 000000008X) (ST NILR 12 (R0 PDL)) (LA R0 1 (R0 R0))           00006250
(BAL R2 16 (R0 R12)) (L* A 8 (R0 PDL)) (LR Q A)                         00006260
(*LOAD A (QUOTE (FARG))) (BAL R2 40 (R0 R12)) *__*0105 (L A 4 (R0 PDL)) 00006270
(*LINK ATOM 1) (CR NILR A) (BC 8 *__*0108) (L A 4 (R0 PDL))             00006280
(BC 15 *__*0104) *__*0108 *__*0107 (*LOAD A (QUOTE FARG))               00006290
(*LOAD Q (SPECIAL ALIST)) (BAL R2 36 (R0 R12)) (ST A 16 (R0 PDL))       00006300
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 4 (R0 PDL))                00006310
(L M 8 (R0 R12)) (*LOAD R1 (SPECIAL ALIST)) (ST R1 000000000X (R0 M))   00006320
(LR Q A) (L A 16 (R0 PDL)) (*LINK APPLY 3) (L A 4 (R0 PDL))             00006330
(L A 4 (R0 A)) (ST A 4 (R0 PDL)) (BC 15 *__*0105) *__*0104              00006340
(ST A 12 (R0 PDL)) (*LOAD A (QUOTE 1)) (BAL R2 44 (R0 R12))             00006350
(L A 12 (R0 PDL)) (*REMOVE NIL) ) NIL)                                  00006360
                                                                        00006370
LAP360((     (MAPCON SUBR 2)                                            00006380
(*MOVE 24 000000008X) (ST NILR 12 (R0 PDL)) (LA R0 1 (R0 R0))           00006390
(BAL R2 16 (R0 R12)) (L* A 8 (R0 PDL)) (LR Q A)                         00006400
(*LOAD A (QUOTE (FARG))) (BAL R2 40 (R0 R12)) (L A 4 (R0 PDL))          00006410
(CR NILR A) (BC 8 *__*0122) *__*0123 (*LOAD A (QUOTE FARG))             00006420
(*LOAD Q (SPECIAL ALIST)) (BAL R2 36 (R0 R12)) (ST A 16 (R0 PDL))       00006430
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 4 (R0 PDL))                00006440
(L M 8 (R0 R12)) (*LOAD R1 (SPECIAL ALIST)) (ST R1 000000000X (R0 M))   00006450
(LR Q A) (L A 16 (R0 PDL)) (*LINK APPLY 3) (ST A 16 (R0 PDL))           00006460
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (ST A 20 (R0 PDL))                      00006470
(*LOAD A (QUOTE FARG)) (*LOAD Q (SPECIAL ALIST)) (BAL R2 36 (R0 R12))   00006480
(LR Q A) (L A 20 (R0 PDL)) (*LINK MAPCON 2) (LR Q A) (L A 16 (R0 PDL))  00006490
(*LINK NCONC 2) *__*0125 *__*0122 (ST A 12 (R0 PDL))                    00006500
(*LOAD A (QUOTE 1)) (BAL R2 44 (R0 R12)) (L A 12 (R0 PDL))              00006510
(*REMOVE NIL) ) NIL)                                                    00006520
                                                                        00006530
LAP360((     (PAIRMAP SUBR 4)                                           00006540
(*MOVE 44 000000010X) (ST NILR 20 (R0 PDL)) (LA R0 1 (R0 R0))           00006550
(BAL R2 16 (R0 R12)) (L* A 12 (R0 PDL)) (LR Q A)                        00006560
(*LOAD A (QUOTE (FARG))) (BAL R2 40 (R0 R12)) (ST NILR 24 (R0 PDL))     00006570
(ST NILR 28 (R0 PDL)) (L A 4 (R0 PDL)) (CR NILR A) (BC 7 *__*0142)      00006580
(L A 16 (R0 PDL)) (BC 15 *__*0139) *__*0142 *__*0141                    00006590
(*LOAD A (QUOTE FARG)) (*LOAD Q (SPECIAL ALIST)) (BAL R2 36 (R0 R12))   00006600
(ST A 32 (R0 PDL)) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (L Q 8 (R0 PDL))     00006610
(L Q 0 (R0 Q)) (ST A 36 (R0 PDL)) (ST Q 40 (R0 PDL)) (LA R0 2 (R0 R0))  00006620
(BAL R2 16 (R0 R12)) (L* A 36 (R0 PDL)) (L* A 40 (R0 PDL))              00006630
(L M 8 (R0 R12)) (*LOAD R1 (SPECIAL ALIST)) (ST R1 000000000X (R0 M))   00006640
(LR Q A) (L A 32 (R0 PDL)) (*LINK APPLY 3) (L Q 16 (R0 PDL))            00006650
(*LINK CONS 2) (ST A 28 (R0 PDL)) (ST A 24 (R0 PDL)) *__*0140           00006660
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (ST A 4 (R0 PDL)) (L A 8 (R0 PDL))      00006670
(L A 4 (R0 A)) (ST A 8 (R0 PDL)) (L A 4 (R0 PDL)) (CR NILR A)           00006680
(BC 7 *__*0154) (L A 24 (R0 PDL)) (BC 15 *__*0139) *__*0154 *__*0153    00006690
(*LOAD A (QUOTE FARG)) (*LOAD Q (SPECIAL ALIST)) (BAL R2 36 (R0 R12))   00006700
(ST A 32 (R0 PDL)) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (L Q 8 (R0 PDL))     00006710
(L Q 0 (R0 Q)) (ST A 36 (R0 PDL)) (ST Q 40 (R0 PDL)) (LA R0 2 (R0 R0))  00006720
(BAL R2 16 (R0 R12)) (L* A 36 (R0 PDL)) (L* A 40 (R0 PDL))              00006730
(L M 8 (R0 R12)) (*LOAD R1 (SPECIAL ALIST)) (ST R1 000000000X (R0 M))   00006740
(LR Q A) (L A 32 (R0 PDL)) (*LINK APPLY 3) (L Q 16 (R0 PDL))            00006750
(*LINK CONS 2) (LR Q A) (L A 28 (R0 PDL)) (*LINK RPLACD 2)              00006760
(L A 4 (R0 A)) (ST A 28 (R0 PDL)) (BC 15 *__*0140) *__*0139             00006770
(ST A 20 (R0 PDL)) (*LOAD A (QUOTE 1)) (BAL R2 44 (R0 R12))             00006780
(L A 20 (R0 PDL)) (*REMOVE NIL) ) NIL)                                  00006790
                                                                        00006800
LAP360((     (*_DELETEL SUBR 2)                                         00006810
(*MOVE 16 000000008X) (ST NILR 12 (R0 PDL)) *__*0171 (L A 8 (R0 PDL))   00006820
(CR NILR A) (BC 7 *__*0174) (L A 12 (R0 PDL)) (*LINK REVERSE 1)         00006830
(*REMOVE NIL) *__*0174 (L A 8 (R0 PDL)) (L A 0 (R0 A)) (L Q 4 (R0 PDL)) 00006840
(*LINK MEMBER 2) (CR NILR A) (BC 7 *__*0177) (L A 8 (R0 PDL))           00006850
(L A 0 (R0 A)) (L Q 12 (R0 PDL)) (*LINK CONS 2) (ST A 12 (R0 PDL))      00006860
*__*0177 *__*0173 (L A 8 (R0 PDL)) (L A 4 (R0 A)) (ST A 8 (R0 PDL))     00006870
(BC 15 *__*0171) ) NIL)                                                 00006880
                                                                        00006890
LAP360((     (CONC FSUBR 2)                                             00006900
(*MOVE 20 000000008X) (ST NILR 12 (R0 PDL)) (ST NILR 16 (R0 PDL))       00006910
*__*0186 (L A 4 (R0 PDL)) (CR NILR A) (BC 7 *__*0189) (L A 16 (R0 PDL)) 00006920
(*REMOVE NIL) *__*0189 *__*0188 (L A 4 (R0 PDL)) (L A 0 (R0 A))         00006930
(L Q 8 (R0 PDL)) (*LINK EVAL 2) (ST A 12 (R0 PDL)) (L Q 12 (R0 PDL))    00006940
(L A 16 (R0 PDL)) (*LINK NCONC 2) (ST A 16 (R0 PDL)) (L A 4 (R0 PDL))   00006950
(L A 4 (R0 A)) (ST A 4 (R0 PDL)) (BC 15 *__*0186) ) NIL)                00006960
                                                                        00006970
LAP360((     (SELECT FSUBR 2)                                           00006980
(*MOVE 20 000000008X) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (L Q 8 (R0 PDL))  00006990
(*LINK EVAL 2) (ST A 12 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A))       00007000
(ST A 16 (R0 PDL)) *__*0199 (L A 16 (R0 PDL)) (L A 4 (R0 A))            00007010
(CR NILR A) (BC 7 *__*0205) (L A 16 (R0 PDL)) (L A 0 (R0 A))            00007020
(L Q 8 (R0 PDL)) (*LINK EVAL 2) (*REMOVE NIL) *__*0205                  00007030
(L A 16 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A)) (L Q 8 (R0 PDL))        00007040
(*LINK EVAL 2) (LR Q A) (L A 12 (R0 PDL)) (*LINK EQUAL 2) (CR NILR A)   00007050
(BC 8 *__*0209) (L A 16 (R0 PDL)) (L A 0 (R0 A)) (L A 4 (R0 A))         00007060
(L A 0 (R0 A)) (L Q 8 (R0 PDL)) (*LINK EVAL 2) (*REMOVE NIL) *__*0209   00007070
*__*0204 (L A 16 (R0 PDL)) (L A 4 (R0 A)) (ST A 16 (R0 PDL))            00007080
(BC 15 *__*0199) ) NIL)                                                 00007090
                                                                        00007100
LAP360((     (COMMON SUBR 1)                                            00007110
(*MOVE 8 000000004X) (*LOAD Q (QUOTE COMMON)) (L A 4 (R0 PDL))          00007120
(*LINK FLAG 2) (*REMOVE NIL) ) NIL)                                     00007130
                                                                        00007140
LAP360((     (*__*0220 SUBR 1)                                          00007150
(*MOVE 16 000000004X) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (ST A 8 (R0 PDL)) 00007160
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE NIL))              00007170
(ST A 12 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00007180
(L* A 8 (R0 PDL)) (L* A 12 (R0 PDL)) (ST A 8 (R0 PDL))                  00007190
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 8 (R0 PDL))                00007200
(*LOAD Q (QUOTE SPECIAL)) (*LINK DEFLIST 2) (*REMOVE NIL) ) NIL)        00007210
                                                                        00007220
LAP360((     (SPECIAL SUBR 1)                                           00007230
(*MOVE 8 000000004X) (*LOAD Q (SPECIAL ALIST))                          00007240
(*LOAD A (QUOTE *__*0220)) (BAL R2 32 (R0 R12)) (LR Q A)                00007250
(L A 4 (R0 PDL)) (*LINK MAPLIST 2) (*REMOVE NIL) ) NIL)                 00007260
                                                                        00007270
LAP360((     (UNCOMMON SUBR 1)                                          00007280
(*MOVE 8 000000004X) (*LOAD Q (QUOTE COMMON)) (L A 4 (R0 PDL))          00007290
(*LINK REMFLAG 2) (*REMOVE NIL) ) NIL)                                  00007300
                                                                        00007310
LAP360((     (*__*0229 SUBR 1)                                          00007320
(*MOVE 8 000000004X) (L A 4 (R0 PDL)) (L A 0 (R0 A))                    00007330
(*LOAD Q (QUOTE SPECIAL)) (*LINK REMPROP 2) (*REMOVE NIL) ) NIL)        00007340
                                                                        00007350
LAP360((     (UNSPECIAL SUBR 1)                                         00007360
(*MOVE 8 000000004X) (*LOAD Q (SPECIAL ALIST))                          00007370
(*LOAD A (QUOTE *__*0229)) (BAL R2 32 (R0 R12)) (LR Q A)                00007380
(L A 4 (R0 PDL)) (*LINK MAP 2) (*REMOVE NIL) ) NIL)                     00007390
                                                                        00007400
LAP360((     (GENSYM SUBR 0)                                            00007410
(*MOVE 4 000000000X) (*LOAD A (QUOTE *__*)) (*LINK GENSYM1 1)           00007420
(*REMOVE NIL) ) NIL)                                                    00007430
                                                                        00007440
LAP360((     (*_GENSYM2 SUBR 1)                                         00007450
(*MOVE 8 000000004X) (*LOAD A (QUOTE *__*)) (*LINK GENSYM1 1)           00007460
(*REMOVE NIL) ) NIL)                                                    00007470
                                                                        00007480
LAP360((     (*_ANYREG SUBR 1)                                          00007490
(*MOVE 12 000000004X) (L A 4 (R0 PDL)) (*LINK ATOM 1) (CR NILR A)       00007500
(BC 7 *__*0238) (L A 4 (R0 PDL)) (L A 0 (R0 A))                         00007510
(*LOAD Q (QUOTE (QUOTE SPECIAL))) (*LINK MEMBER 2) (CR NILR A)          00007520
(BC 7 *__*0238) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (*LOAD Q (QUOTE OPEN))  00007530
(*LINK GET 2) (ST A 8 (R0 PDL)) (CR NILR A) (BC 8 *__*0246)             00007540
(L A 0 (R0 A)) (S A (QUOTE LAMBDA)) (CR NILR A) (BC 7 *__*0246)         00007550
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (CR NILR A)              00007560
(BC 7 *__*0246) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))          00007570
(*LINK *_ANYREG 1) (CR NILR A) (BC 8 *__*0246) (*LOAD A (QUOTE T))      00007580
(BC 15 *__*0245) *__*0246 (LR A NILR) *__*0245 (CR NILR A)              00007590
(BC 7 *__*0238) (LR A NILR) (BC 15 *__*0237) *__*0238                   00007600
(*LOAD A (QUOTE T)) *__*0237 (*REMOVE NIL) ) NIL)                       00007610
                                                                        00007620
LAP360((     (SUBST SUBR 3)                                             00007630
(*MOVE 20 00000000CX) (L A 12 (R0 PDL)) (CR NILR A) (BC 7 *__*0253)     00007640
(*REMOVE NIL) *__*0253 (L A 12 (R0 PDL)) (*LINK ATOM 1) (CR NILR A)     00007650
(BC 8 *__*0255) (L A 12 (R0 PDL)) (AR A NILR) (S A 8 (R0 PDL))          00007660
(CR NILR A) (BC 7 *__*0257) (L A 4 (R0 PDL)) (*REMOVE NIL) *__*0257     00007670
(L A 12 (R0 PDL)) (*REMOVE NIL) *__*0258 (*REMOVE NIL) *__*0255         00007680
(L A 12 (R0 PDL)) (L A 0 (R0 A)) (L M 8 (R0 R12))                       00007690
(ST A 000000000X (R0 M)) (L Q 8 (R0 PDL)) (L A 4 (R0 PDL))              00007700
(*LINK SUBST 3) (ST A 16 (R0 PDL)) (L A 12 (R0 PDL)) (L A 4 (R0 A))     00007710
(L M 8 (R0 R12)) (ST A 000000000X (R0 M)) (L Q 8 (R0 PDL))              00007720
(L A 4 (R0 PDL)) (*LINK SUBST 3) (LR Q A) (L A 16 (R0 PDL))             00007730
(*LINK CONS 2) (*REMOVE NIL) ) NIL)                                     00007740
                                                                        00007750
COMMENT (******** Redefinition of *_COM2 ********)                      00007760
                                                                        00007770
COMMENT (This is necessary to avoid SPECIAL variable problem)           00007780
                                                                        00007790
DEFINE ((                                                               00007800
                                                                        00007810
(*_COM2 (LAMBDA (TYPE LLENGTH EXP NNAME)                                00007820
   (PROG (LLISTING)                                                     00007830
             (SETQ LLISTING (*_PHASE2 (*_PASSONE NNAME EXP) NNAME))     00007840
             (LAP360                                                    00007850
                (CONS (LIST NNAME TYPE LLENGTH) (CAR LLISTING))         00007860
                (CADR LLISTING))                                        00007870
             (RETURN NNAME))))                                          00007880
                                                                        00007890
))                                                                      00007900
                                                                        00007910
SPECIAL ((FORM B G NAME GS G2 FN AC MQ QP STOMAP LISTING GOLIST SWITCH  00007920
          RETN FLAG MODE LNGTH OPT))                                    00007930
                                                                        00007940
LAP360((     (*_PASSONE SUBR 2)                                         00007950
(*MOVE 12 000000008X) (L Q 8 (R0 PDL)) (L A 4 (R0 PDL))                 00007960
(*LINK *_PROGITER 2) (LR Q NILR) (*LINK *_PALAM 2) (*REMOVE NIL) ) NIL) 00007970
                                                                        00007980
LAP360((     (*_PROGITER SUBR 2)                                        00007990
(*MOVE 60 000000008X) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00008000
(*ACS NAME) (DC 4) (L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))       00008010
(L A 0 (R0 A)) (L A 0 (R0 A)) (S A (QUOTE COND)) (CR NILR A)            00008020
(BC 7 *__*0272) (L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))          00008030
(L A 0 (R0 A))(L A 4 (R0 A))(*LINK *_PI1 1) (CR NILR A) (BC 8 *__*0272) 00008040
*__*0274 *__*0273 (L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))        00008050
(ST A 16 (R0 PDL)) (*LOAD Q (SPECIAL ALIST)) (*LOAD A (QUOTE *_GENSYM2))00008060
(BAL R2 32 (R0 R12)) (LR Q A) (L A 16 (R0 PDL)) (*LINK MAPLIST 2)       00008070
(ST A 16 (R0 PDL)) (L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))       00008080
(ST A 20 (R0 PDL)) (*LINK GENSYM 0) (ST A 24 (R0 PDL)) (*LINK GENSYM 0) 00008090
(ST A 28 (R0 PDL)) (LA R1 2 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))        00008100
(*ACS G2) (DC 24) (*ACS GS) (DC 16) (*LOAD A (SPECIAL GS))              00008110
(ST A 36 (R0 PDL)) (L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))       00008120
(L A 0 (R0 A)) (L A 4 (R0 A)) (ST A 40 (R0 PDL)) (*LOAD A (SPECIAL G2)) 00008130
(ST A 44 (R0 PDL)) (*LOAD Q (SPECIAL GS)) (ST Q 48 (R0 PDL))            00008140
(*LOAD Q (SPECIAL ALIST)) (*LOAD A (QUOTE *_PI2)) (BAL R2 32 (R0 R12))  00008150
(ST A 52 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00008160
(L* R2 (QUOTE GO)) (L* A 28 (R0 PDL)) (ST A 56 (R0 PDL))                00008170
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 56 (R0 PDL))               00008180
(L M 8 (R0 R12)) (ST A 000000004X (R0 M)) (L R1 52 (R0 PDL))            00008190
(ST R1 000000000X (R0 M)) (L Q 48 (R0 PDL)) (L A 20 (R0 PDL))           00008200
(*LINK PAIRMAP 4) (LR Q A) (L A 44 (R0 PDL)) (*LINK CONS 2)             00008210
(L M 8 (R0 R12)) (ST A 000000000X (R0 M)) (LR Q NILR) (L A 40 (R0 PDL)) 00008220
(*LINK *_PI3 3) (LR Q A) (L A 28 (R0 PDL)) (*LINK CONS 2) (LR Q A)      00008230
(L A 36 (R0 PDL)) (*LINK CONS 2) (LR Q A) (*LOAD A (QUOTE PROG))        00008240
(*LINK CONS 2) (ST A 36 (R0 PDL)) (LA R0 3 (R0 R0))                     00008250
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE LAMBDA)) (L* A 20 (R0 PDL))          00008260
(L* A 36 (R0 PDL)) (ST A 32 (R0 PDL)) (LA R1 2 (R0 R0)) (CNOP)          00008270
(BAL R2 24 (R0 R12)) (*ACS G2) (DC 24) (*ACS GS) (DC 16)                00008280
(L A 32 (R0 PDL)) (BC 15 *__*0271) *__*0272 (L A 8 (R0 PDL)) *__*0308   00008290
*__*0271 (ST A 12 (R0 PDL)) (LA R1 1 (R0 R0)) (CNOP)                    00008300
(BAL R2 24 (R0 R12)) (*ACS NAME) (DC 4) (L A 12 (R0 PDL)) (*REMOVE NIL) 00008310
) NIL)                                                                  00008320
                                                                        00008330
LAP360((     (*_PI1 SUBR 1)                                             00008340
(*MOVE 12 000000004X) (ST NILR 8 (R0 PDL)) *__*0318 (L A 4 (R0 PDL))    00008350
(CR NILR A) (BC 7 *__*0323) (*REMOVE NIL) *__*0323 (L A 4 (R0 PDL))     00008360
(L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (L A 0 (R0 A))             00008370
(*LOAD Q (SPECIAL NAME)) (AR A NILR) (SR A Q) (CR NILR A)               00008380
(BC 7 *__*0325) (*LOAD A (QUOTE T)) (*REMOVE NIL) *__*0325 *__*0322     00008390
*__*0319 (L A 4 (R0 PDL)) (L A 4 (R0 A)) (ST A 8 (R0 PDL)) *__*0320     00008400
(L A 8 (R0 PDL)) (ST A 4 (R0 PDL)) (BC 15 *__*0318) ) NIL)              00008410
                                                                        00008420
LAP360((     (*_PI3 SUBR 3)                                             00008430
(*MOVE 56 00000000CX) (ST NILR 16 (R0 PDL)) (ST NILR 20 (R0 PDL))       00008440
(ST NILR 24 (R0 PDL)) *__*0348 (L A 4 (R0 PDL)) (CR NILR A)             00008450
(BC 7 *__*0353) (L Q 8 (R0 PDL)) (*LOAD A (QUOTE COND)) (*LINK CONS 2)  00008460
(L Q 12 (R0 PDL)) (*LINK CONS 2) (*REMOVE NIL) *__*0353                 00008470
(L A 4 (R0 PDL)) (L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A))           00008480
(L A 0 (R0 A)) (*LOAD Q (SPECIAL NAME)) (AR A NILR) (SR A Q)            00008490
(CR NILR A) (BC 7 *__*0357) (*LINK GENSYM 0) (ST A 28 (R0 PDL))         00008500
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (ST A 32 (R0 PDL)) (L A 4 (R0 PDL))     00008510
(L A 0 (R0 A)) (L A 0 (R0 A)) (ST A 36 (R0 PDL)) (LA R0 2 (R0 R0))      00008520
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE GO)) (L* A 28 (R0 PDL))              00008530
(ST A 40 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00008540
(L* A 36 (R0 PDL)) (L* A 40 (R0 PDL)) (ST A 36 (R0 PDL))                00008550
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 36 (R0 PDL)) (LR Q A)      00008560
(L A 8 (R0 PDL)) (*LINK NCONC 2) (ST A 36 (R0 PDL))                     00008570
(*LOAD A (SPECIAL GS)) (L Q 4 (R0 PDL)) (L Q 0 (R0 Q)) (L Q 4 (R0 Q))   00008580
(L Q 0 (R0 Q)) (L Q 4 (R0 Q)) (ST A 40 (R0 PDL)) (ST Q 44 (R0 PDL))     00008590
(*LOAD Q (SPECIAL ALIST)) (*LOAD A (QUOTE *_PI2)) (BAL R2 32 (R0 R12))  00008600
(ST A 48 (R0 PDL)) (*LOAD Q (SPECIAL G2)) (ST Q 52 (R0 PDL))            00008610
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE GO))               00008620
(L* A 52 (R0 PDL)) (L Q 12 (R0 PDL)) (*LINK CONS 2) (L M 8 (R0 R12))    00008630
(ST A 000000004X (R0 M)) (L R1 48 (R0 PDL)) (ST R1 000000000X (R0 M))   00008640
(L Q 44 (R0 PDL)) (L A 40 (R0 PDL)) (*LINK PAIRMAP 4) (LR Q A)          00008650
(L A 28 (R0 PDL)) (*LINK CONS 2) (L M 8 (R0 R12))                       00008660
(ST A 000000000X (R0 M)) (L Q 36 (R0 PDL)) (L A 32 (R0 PDL))            00008670
(*LINK *_PI3 3)(*REMOVE NIL)*__*0357 *__*0352 *__*0349 (L A 4 (R0 PDL)) 00008680
(L A 4 (R0 A)) (ST A 16 (R0 PDL)) (L A 4 (R0 PDL)) (L A 0 (R0 A))       00008690
(L A 0 (R0 A)) (ST A 28 (R0 PDL)) (L Q 4 (R0 PDL)) (L Q 0 (R0 Q))       00008700
(L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (ST Q 32 (R0 PDL)) (LA R0 2 (R0 R0))      00008710
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE RETURN)) (L* A 32 (R0 PDL))          00008720
(ST A 32 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00008730
(L* A 28 (R0 PDL)) (L* A 32 (R0 PDL)) (ST A 28 (R0 PDL))                00008740
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 28 (R0 PDL)) (LR Q A)      00008750
(L A 8 (R0 PDL)) (*LINK NCONC 2) (ST A 20 (R0 PDL)) (L A 12 (R0 PDL))   00008760
(ST A 24 (R0 PDL)) *__*0350 (L A 16 (R0 PDL)) (ST A 4 (R0 PDL))         00008770
(L A 20 (R0 PDL)) (ST A 8 (R0 PDL)) (L A 24 (R0 PDL))                   00008780
(ST A 12 (R0 PDL)) (BC 15 *__*0348) ) NIL)                              00008790
                                                                        00008800
LAP360((     (*_PALAM SUBR 2)                                           00008810
(*MOVE 24 000000008X) (LA R1 2 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00008820
(*ACS FN) (DC 4) (*ACS B) (DC 8) (*LOAD A (SPECIAL FN)) (*LINK ATOM 1)  00008830
(CR NILR A) (BC 8 *__*0398) (*LOAD A (SPECIAL FN)) (BC 15 *__*0397)     00008840
*__*0398 (*LOAD A (SPECIAL FN)) (L A 0 (R0 A)) (S A (QUOTE LAMBDA))     00008850
(CR NILR A) (BC 7 *__*0401) (*LOAD A (SPECIAL FN)) (L A 4 (R0 A))       00008860
(L A 0 (R0 A)) (*LOAD Q (QUOTE COMMON)) (*LINK *_PA5 2)                 00008870
(ST A 16 (R0 PDL)) (*LOAD A (SPECIAL FN)) (L A 4 (R0 A)) (L A 0 (R0 A)) 00008880
(*LOAD Q (QUOTE SPECIAL)) (*LINK *_PA5 2) (ST A 20 (R0 PDL))            00008890
(*LINK GENSYM 0) (L M 8 (R0 R12)) (ST A 000000000X (R0 M))              00008900
(L Q 20 (R0 PDL)) (L A 16 (R0 PDL)) (*LINK *_PA4 3) (BC 15 *__*0397)    00008910
*__*0401 (*LOAD A (SPECIAL FN)) (L A 0 (R0 A)) (S A (QUOTE LABEL))      00008920
(CR NILR A) (BC 7 *__*0411) (*LOAD A (SPECIAL FN)) (L A 4 (R0 A))       00008930
(L A 0 (R0 A)) (*LOAD Q (SPECIAL FN)) (L Q 4 (R0 Q)) (L Q 4 (R0 Q))     00008940
(L Q 0 (R0 Q)) (*LINK *_COMP 2) (BC 15 *__*0397) *__*0411               00008950
(*LOAD A (SPECIAL FN)) (*LOAD Q (QUOTE (NOT FUNCTION))) (*LINK CONS 2)  00008960
(*LINK ERROR 1) *__*0417 *__*0397 (ST A 12 (R0 PDL)) (LA R1 2 (R0 R0))  00008970
(CNOP) (BAL R2 24 (R0 R12)) (*ACS FN) (DC 4) (*ACS B) (DC 8)            00008980
(L A 12 (R0 PDL)) (*REMOVE NIL) ) NIL)                                  00008990
                                                                        00009000
LAP360((     (*__*0424 SUBR 1)                                          00009010
(*MOVE 8 000000004X) (L A 4 (R0 PDL)) (L A 0 (R0 A))                    00009020
(*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2) (*REMOVE NIL) ) NIL)           00009030
                                                                        00009040
LAP360((     (*_PA1 SUBR 1)                                             00009050
(*MOVE 8 000000004X) (*LOAD Q (SPECIAL ALIST))                          00009060
(*LOAD A (QUOTE *__*0424)) (BAL R2 32 (R0 R12)) (LR Q A)                00009070
(L A 4 (R0 PDL)) (*LINK MAPLIST 2) (*REMOVE NIL) ) NIL)                 00009080
                                                                        00009090
LAP360((     (*_PA2 SUBR 1)                                             00009100
(*MOVE 16 000000004X) (L A 4 (R0 PDL)) (CR NILR A) (BC 7 *__*0430)      00009110
(*LOAD A (QUOTE (QUOTE NIL))) (*REMOVE NIL) *__*0430 (L A 4 (R0 PDL))   00009120
(L A 0 (R0 A))(*LOAD Q (SPECIAL B))(*LINK *_PAFORM 2) (ST A 8 (R0 PDL)) 00009130
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (*LINK *_PA2 1) (ST A 12 (R0 PDL))      00009140
(LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE APPEND))           00009150
(L* A 8 (R0 PDL)) (L* A 12 (R0 PDL)) (*REMOVE NIL) ) NIL)               00009160
                                                                        00009170
LAP360((     (*_PA3 SUBR 1)                                             00009180
(*MOVE 16 000000004X) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (CR NILR A)       00009190
(BC 7 *__*0439) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL B))   00009200
(*LINK *_PAFORM 2) (ST A 8 (R0 PDL)) (LA R0 2 (R0 R0))                  00009210
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE (QUOTE T))) (L* A 8 (R0 PDL))        00009220
(ST A 8 (R0 PDL)) (LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12))                00009230
(L* A 8 (R0 PDL)) (*REMOVE NIL) *__*0439 (*LOAD Q (SPECIAL G))          00009240
(ST Q 8 (R0 PDL)) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A))        00009250
(*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2) (ST A 12 (R0 PDL))             00009260
(LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE EQ))               00009270
(L* A 8 (R0 PDL)) (L* A 12 (R0 PDL)) (ST A 8 (R0 PDL)) (L A 4 (R0 PDL)) 00009280
(L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL B))      00009290
(*LINK *_PAFORM 2) (ST A 12 (R0 PDL)) (LA R0 2 (R0 R0))                 00009300
(BAL R2 16 (R0 R12)) (L* A 8 (R0 PDL)) (L* A 12 (R0 PDL))               00009310
(ST A 8 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (*LINK *_PA3 1)       00009320
(LR Q A) (L A 8 (R0 PDL)) (*LINK CONS 2) (*REMOVE NIL) ) NIL)           00009330
                                                                        00009340
LAP360((     (*_PA4 SUBR 3)                                             00009350
(*MOVE 48 00000000CX) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00009360
(*ACS G) (DC 12) (L A 4 (R0 PDL)) (CR NILR A) (BC 7 *__*0460)           00009370
(L A 8 (R0 PDL)) (CR NILR A) (BC 7 *__*0460) *__*0462 *__*0461          00009380
(*LOAD Q (SPECIAL FN)) (L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (ST Q 20 (R0 PDL)) 00009390
(*LOAD A (SPECIAL FN)) (L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A))     00009400
(ST A 24 (R0 PDL)) (*LOAD A (SPECIAL FN)) (L A 4 (R0 A)) (L A 0 (R0 A)) 00009410
(*LOAD Q (SPECIAL B)) (*LINK APPEND 2) (LR Q A) (L A 24 (R0 PDL))       00009420
(*LINK *_PAFORM 2) (ST A 24 (R0 PDL)) (LA R0 3 (R0 R0))                 00009430
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE LAMBDA)) (L* A 20 (R0 PDL))          00009440
(L* A 24 (R0 PDL)) (BC 15 *__*0459) *__*0460 (*LOAD Q (SPECIAL FN))     00009450
(L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (ST Q 20 (R0 PDL)) (*LOAD A (SPECIAL G))  00009460
(ST A 24 (R0 PDL)) (LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12))               00009470
(L* A 24 (R0 PDL)) (ST A 24 (R0 PDL)) (LA R0 2 (R0 R0))                 00009480
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE PROG)) (L* A 24 (R0 PDL))            00009490
(ST A 24 (R0 PDL)) (*LOAD Q (QUOTE COMBIND)) (L A 4 (R0 PDL))           00009500
(*LINK *_PA11 2) (ST A 28 (R0 PDL)) (*LOAD Q (QUOTE SPECBIND))          00009510
(L A 8 (R0 PDL))(*LINK *_PA9 2)(ST A 32 (R0 PDL)) (*LOAD Q (SPECIAL G)) 00009520
(ST Q 36 (R0 PDL)) (*LOAD A (SPECIAL FN)) (L A 4 (R0 A)) (L A 4 (R0 A)) 00009530
(L A 0 (R0 A)) (ST A 40 (R0 PDL)) (*LOAD A (SPECIAL FN)) (L A 4 (R0 A)) 00009540
(L A 0 (R0 A)) (*LOAD Q (SPECIAL B)) (*LINK APPEND 2) (LR Q A)          00009550
(L A 40 (R0 PDL))(*LINK *_PAFORM 2)(ST A 40 (R0 PDL)) (LA R0 3 (R0 R0)) 00009560
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE SETQ)) (L* A 36 (R0 PDL))            00009570
(L* A 40 (R0 PDL)) (ST A 36 (R0 PDL)) (LA R0 1 (R0 R0))                 00009580
(BAL R2 16 (R0 R12)) (L* A 36 (R0 PDL)) (ST A 36 (R0 PDL))              00009590
(*LOAD Q (QUOTE SPECRSTR)) (L A 8 (R0 PDL)) (*LINK *_PA9 2)             00009600
(ST A 40 (R0 PDL)) (L A 4 (R0 PDL)) (*LINK *_PA14 1) (ST A 44 (R0 PDL)) 00009610
(*LOAD A (SPECIAL G)) (*LINK *_PA12 1) (LR Q NILR) (*LINK APPEND 2)     00009620
(LR Q A) (L A 44 (R0 PDL)) (*LINK APPEND 2) (LR Q A) (L A 40 (R0 PDL))  00009630
(*LINK APPEND 2) (LR Q A) (L A 36 (R0 PDL)) (*LINK APPEND 2) (LR Q A)   00009640
(L A 32 (R0 PDL)) (*LINK APPEND 2) (LR Q A) (L A 28 (R0 PDL))           00009650
(*LINK APPEND 2) (LR Q A) (L A 24 (R0 PDL)) (*LINK APPEND 2)            00009660
(ST A 24 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00009670
(L* R2 (QUOTE LAMBDA)) (L* A 20 (R0 PDL)) (L* A 24 (R0 PDL)) *__*0473   00009680
*__*0459 (ST A 16 (R0 PDL)) (LA R1 1 (R0 R0)) (CNOP)                    00009690
(BAL R2 24 (R0 R12)) (*ACS G) (DC 12) (L A 16 (R0 PDL)) (*REMOVE NIL)   00009700
) NIL)                                                                  00009710
                                                                        00009720
LAP360((     (*_PA7 SUBR 2)                                             00009730
(*MOVE 20 000000008X) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00009740
(*ACS B) (DC 8) (L A 4 (R0 PDL)) (CR NILR A) (BC 7 *__*0507)            00009750
(*LOAD A (QUOTE ((RETURN (QUOTE NIL))))) (BC 15 *__*0506) *__*0507      00009760
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (CR NILR A) (BC 7 *__*0509)             00009770
(L A 4 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A)) (S A (QUOTE GO))         00009780
(CR NILR A) (BC 7 *__*0509) *__*0511 *__*0510 (L A 4 (R0 PDL))          00009790
(BC 15 *__*0506) *__*0509 (L A 4 (R0 PDL)) (L A 4 (R0 A)) (CR NILR A)   00009800
(BC 7 *__*0514) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A))          00009810
(S A (QUOTE RETURN)) (CR NILR A) (BC 7 *__*0514) *__*0516 *__*0515      00009820
(L A 4 (R0 PDL)) (L A 0 (R0 A)) (L A 4 (R0 A)) (*LINK *_PA1 1) (LR Q A) 00009830
(*LOAD A (QUOTE RETURN)) (*LINK CONS 2) (ST A 16 (R0 PDL))              00009840
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 16 (R0 PDL))               00009850
(BC 15 *__*0506) *__*0514 (L A 4 (R0 PDL)) (L A 0 (R0 A))               00009860
(*LINK ATOM 1) (CR NILR A) (BC 8 *__*0522) (L A 4 (R0 PDL))             00009870
(L A 0 (R0 A)) (ST A 16 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A))       00009880
(*LOAD Q (SPECIAL B)) (*LINK *_PA7 2) (LR Q A) (L A 16 (R0 PDL))        00009890
(*LINK CONS 2) (BC 15 *__*0506) *__*0522 (L A 4 (R0 PDL))               00009900
(L A 0 (R0 A)) (*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2)                 00009910
(ST A 16 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A))                      00009920
(*LOAD Q (SPECIAL B)) (*LINK *_PA7 2) (LR Q A) (L A 16 (R0 PDL))        00009930
(*LINK CONS 2) *__*0529 *__*0506 (ST A 12 (R0 PDL)) (LA R1 1 (R0 R0))   00009940
(CNOP) (BAL R2 24 (R0 R12)) (*ACS B) (DC 8) (L A 12 (R0 PDL))           00009950
(*REMOVE NIL) ) NIL)                                                    00009960
                                                                        00009970
LAP360((     (*_PA8 SUBR 3)                                             00009980
(*MOVE 40 00000000CX) (L A 4 (R0 PDL)) (CR NILR A) (BC 7 *__*0540)      00009990
(L A 8 (R0 PDL)) (CR NILR A) (BC 7 *__*0540) *__*0542 *__*0541          00010000
(*LOAD A (SPECIAL FORM)) (L A 4 (R0 A)) (L A 0 (R0 A))                  00010010
(ST A 16 (R0 PDL)) (*LOAD A (SPECIAL FORM)) (L A 4 (R0 A))              00010020
(L A 4 (R0 A)) (ST A 20 (R0 PDL)) (*LOAD A (SPECIAL FORM))              00010030
(L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL B)) (*LINK APPEND 2)    00010040
(LR Q A) (L A 20 (R0 PDL)) (*LINK *_PA7 2) (LR Q A) (L A 16 (R0 PDL))   00010050
(*LINK CONS 2) (LR Q A) (*LOAD A (QUOTE PROG)) (*LINK CONS 2)           00010060
(*REMOVE NIL) *__*0540 (L Q 8 (R0 PDL)) (L A 4 (R0 PDL))                00010070
(*LINK APPEND 2) (LR Q A) (L A 12 (R0 PDL)) (*LINK CONS 2)              00010080
(ST A 16 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00010090
(L* R2 (QUOTE PROG)) (L* A 16 (R0 PDL)) (ST A 16 (R0 PDL))              00010100
(*LOAD Q (QUOTE COMBIND)) (L A 4 (R0 PDL)) (*LINK *_PA11 2)             00010110
(ST A 20 (R0 PDL)) (*LOAD Q (QUOTE SPECBIND)) (L A 8 (R0 PDL))          00010120
(*LINK *_PA9 2) (ST A 24 (R0 PDL)) (L Q 8 (R0 PDL)) (L A 4 (R0 PDL))    00010130
(*LINK APPEND 2) (*LOAD Q (SPECIAL FORM)) (L Q 4 (R0 Q)) (L Q 0 (R0 Q)) 00010140
(*LINK *_DELETEL 2) (ST A 28 (R0 PDL)) (*LOAD A (SPECIAL FORM))         00010150
(L A 4 (R0 A)) (L A 4 (R0 A)) (ST A 32 (R0 PDL))                        00010160
(*LOAD A (SPECIAL FORM)) (L A 4 (R0 A)) (L A 0 (R0 A))                  00010170
(*LOAD Q (SPECIAL B)) (*LINK APPEND 2) (LR Q A) (L A 32 (R0 PDL))       00010180
(*LINK *_PA7 2) (LR Q A) (L A 28 (R0 PDL)) (*LINK CONS 2) (LR Q A)      00010190
(*LOAD A (QUOTE PROG)) (*LINK CONS 2) (ST A 28 (R0 PDL))                00010200
(LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE SETQ))             00010210
(L* A 12 (R0 PDL)) (L* A 28 (R0 PDL)) (ST A 28 (R0 PDL))                00010220
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 28 (R0 PDL))               00010230
(ST A 28 (R0 PDL)) (*LOAD Q (QUOTE SPECRSTR)) (L A 8 (R0 PDL))          00010240
(*LINK *_PA9 2) (ST A 32 (R0 PDL)) (L A 4 (R0 PDL)) (*LINK *_PA14 1)    00010250
(ST A 36 (R0 PDL)) (L A 12 (R0 PDL)) (*LINK *_PA12 1) (LR Q NILR)       00010260
(*LINK APPEND 2) (LR Q A) (L A 36 (R0 PDL)) (*LINK APPEND 2) (LR Q A)   00010270
(L A 32 (R0 PDL)) (*LINK APPEND 2) (LR Q A) (L A 28 (R0 PDL))           00010280
(*LINK APPEND 2) (LR Q A) (L A 24 (R0 PDL)) (*LINK APPEND 2) (LR Q A)   00010290
(L A 20 (R0 PDL)) (*LINK APPEND 2) (LR Q A) (L A 16 (R0 PDL))           00010300
(*LINK APPEND 2) (*REMOVE NIL) ) NIL)                                   00010310
                                                                        00010320
LAP360((     (*_PAFORM SUBR 2)                                          00010330
(*MOVE 24 000000008X) (LA R1 2 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00010340
(*ACS FORM) (DC 4) (*ACS B) (DC 8) (*LOAD A (SPECIAL FORM))             00010350
(*LINK ATOM 1) (CR NILR A) (BC 8 *__*0588) (*LOAD A (SPECIAL FORM))     00010360
(*LINK NUMBERP 1) (CR NILR A) (BC 7 *__*0593) (*LOAD A (SPECIAL FORM))  00010370
(*LOAD Q (QUOTE (NIL T))) (*LINK MEMBER 2) (CR NILR A) (BC 8 *__*0591)  00010380
*__*0593 *__*0592 (*LOAD Q (SPECIAL FORM)) (ST Q 16 (R0 PDL))           00010390
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE QUOTE))            00010400
(L* A 16 (R0 PDL)) (BC 15 *__*0587) *__*0591 (*LOAD A (SPECIAL FORM))   00010410
(S A (QUOTE F)) (CR NILR A) (BC 7 *__*0599)                             00010420
(*LOAD A (QUOTE (QUOTE NIL))) (BC 15 *__*0587) *__*0599                 00010430
(*LOAD A (SPECIAL FORM)) (*LOAD Q (QUOTE COMMON)) (*LINK GET 2)         00010440
(CR NILR A) (BC 8 *__*0601) (*LOAD Q (SPECIAL FORM)) (ST Q 16 (R0 PDL)) 00010450
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE QUOTE))            00010460
(L* A 16 (R0 PDL)) (ST A 16 (R0 PDL)) (LA R0 2 (R0 R0))                 00010470
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE EVA1)) (L* A 16 (R0 PDL))            00010480
(BC 15 *__*0587) *__*0601 (*LOAD A (SPECIAL FORM))                      00010490
(*LOAD Q (QUOTE SPECIAL)) (*LINK GET 2) (CR NILR A) (BC 8 *__*0606)     00010500
(*LOAD Q (SPECIAL FORM)) (ST Q 16 (R0 PDL)) (LA R0 2 (R0 R0))           00010510
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE SPECIAL)) (L* A 16 (R0 PDL))         00010520
(BC 15 *__*0587) *__*0606 (*LOAD A (SPECIAL FORM))                      00010530
(*LOAD Q (SPECIAL B)) (*LINK MEMBER 2) (CR NILR A) (BC 8 *__*0610)      00010540
(*LOAD A (SPECIAL FORM)) (BC 15 *__*0587) *__*0610                      00010550
(*LOAD A (SPECIAL FORM)) (*LOAD Q (QUOTE (UNDECLARED))) (*LINK CONS 2)  00010560
(*LINK PRINT 1) (*LOAD Q (SPECIAL FORM)) (ST Q 16 (R0 PDL))             00010570
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE QUOTE))            00010580
(L* A 16 (R0 PDL)) (ST A 16 (R0 PDL)) (LA R0 2 (R0 R0))                 00010590
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE EVA1)) (L* A 16 (R0 PDL))            00010600
(BC 15 *__*0587) *__*0614 (BC 15 *__*0587) *__*0588                     00010610
(*LOAD A (SPECIAL FORM)) (L A 0 (R0 A)) (*LINK ATOM 1) (CR NILR A)      00010620
(BC 8 *__*0623) (*LOAD A (SPECIAL FORM)) (L A 0 (R0 A))                 00010630
(*LOAD Q (SPECIAL B)) (*LINK MEMBER 2) (CR NILR A) (BC 8 *__*0627)      00010640
(*LOAD A (SPECIAL FORM)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL B))           00010650
(*LINK *_PAFORM 2) (ST A 16 (R0 PDL)) (*LOAD A (SPECIAL FORM))          00010660
(L A 4 (R0 A)) (*LINK *_PA1 1) (LR Q A) (*LOAD A (QUOTE LIST))          00010670
(*LINK CONS 2) (ST A 20 (R0 PDL)) (LA R0 4 (R0 R0))                     00010680
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE APPLY)) (L* A 16 (R0 PDL))           00010690
(L* A 20 (R0 PDL)) (L* R2 (QUOTE ALIST)) (BC 15 *__*0587) *__*0627      00010700
(*LOAD A (SPECIAL FORM)) (L A 0 (R0 A)) (S A (QUOTE COND)) (CR NILR A)  00010710
(BC 8 *__*0642) (*LOAD A (SPECIAL FORM)) (L A 0 (R0 A))                 00010720
(S A (QUOTE QUOTE)) (CR NILR A) (BC 8 *__*0642)                         00010730
(*LOAD A (SPECIAL FORM)) (L A 0 (R0 A)) (*LOAD Q (QUOTE FSUBR))         00010740
(*LINK GET 2) (CR NILR A) (BC 7 *__*0642) (*LOAD A (SPECIAL FORM))      00010750
(L A 0 (R0 A)) (*LOAD Q (QUOTE FEXPR)) (*LINK GET 2) (CR NILR A)        00010760
(BC 8 *__*0640) *__*0642 *__*0641 (*LOAD A (SPECIAL FORM))              00010770
(L A 0 (R0 A)) (*LOAD Q (QUOTE (AND OR))) (*LINK MEMBER 2) (CR NILR A)  00010780
(BC 8 *__*0653) (*LOAD A (SPECIAL FORM)) (L A 0 (R0 A))                 00010790
(ST A 16 (R0 PDL)) (*LOAD A (SPECIAL FORM)) (L A 4 (R0 A))              00010800
(*LINK *_PA1 1) (LR Q A) (L A 16 (R0 PDL)) (*LINK CONS 2)               00010810
(BC 15 *__*0587) *__*0653 (*LOAD A (SPECIAL FORM)) (L A 0 (R0 A))       00010820
(*LOAD Q (QUOTE (MAX MIN PLUS TIMES LOGOR LOGAND LOGXOR)))              00010830
(*LINK MEMBER 2) (CR NILR A) (BC 8 *__*0662) (*LOAD A (SPECIAL FORM))   00010840
(L A 0 (R0 A)) (ST A 16 (R0 PDL)) (*LOAD A (SPECIAL FORM))              00010850
(L A 4 (R0 A)) (*LINK *_PA1 1) (LR Q A) (*LOAD A (QUOTE LIST))          00010860
(*LINK CONS 2) (ST A 20 (R0 PDL)) (LA R0 3 (R0 R0))                     00010870
(BAL R2 16 (R0 R12)) (L* A 16 (R0 PDL)) (L* A 20 (R0 PDL))              00010880
(L* R2 (QUOTE ALIST)) (BC 15 *__*0587) *__*0662                         00010890
(*LOAD A (SPECIAL FORM)) (*LOAD Q (SPECIAL B)) (*LINK *_PAFORM1 2)      00010900
*__*0672 (BC 15 *__*0587) *__*0640 (*LOAD A (SPECIAL FORM))             00010910
(L A 0 (R0 A)) (S A (QUOTE NOT)) (CR NILR A) (BC 7 *__*0675)            00010920
(*LOAD A (SPECIAL FORM)) (L A 4 (R0 A)) (L A 0 (R0 A))                  00010930
(*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2) (ST A 16 (R0 PDL))             00010940
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE NULL))             00010950
(L* A 16 (R0 PDL)) (BC 15 *__*0587) *__*0675 (*LOAD A (SPECIAL FORM))   00010960
(L A 0 (R0 A)) (S A (QUOTE SET)) (CR NILR A) (BC 7 *__*0682)            00010970
(*LOAD A (SPECIAL FORM)) (L A 4 (R0 A)) (L A 0 (R0 A))                  00010980
(*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2) (ST A 16 (R0 PDL))             00010990
(*LOAD A (SPECIAL FORM)) (L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A))   00011000
(*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2) (ST A 20 (R0 PDL))             00011010
(LA R0 4 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE SETC))             00011020
(L* A 16 (R0 PDL)) (L* R2 (QUOTE ALIST)) (L* A 20 (R0 PDL))             00011030
(BC 15 *__*0587) *__*0682 (*LOAD A (SPECIAL FORM)) (L A 0 (R0 A))       00011040
(ST A 16 (R0 PDL)) (*LOAD A (SPECIAL FORM)) (L A 4 (R0 A))              00011050
(*LINK *_PA1 1) (LR Q A) (L A 16 (R0 PDL)) (*LINK CONS 2) *__*0693      00011060
(BC 15 *__*0587) *__*0623 (*LOAD A (SPECIAL FORM)) (L A 0 (R0 A))       00011070
(L A 0 (R0 A)) (S A (QUOTE LAMBDA)) (CR NILR A) (BC 8 *__*0701)         00011080
(*LOAD A (SPECIAL FORM)) (L A 0 (R0 A)) (L A 0 (R0 A))                  00011090
(S A (QUOTE LABEL)) (CR NILR A) (BC 7 *__*0699) *__*0701 *__*0700       00011100
(*LOAD A (SPECIAL FORM)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL B))           00011110
(*LINK *_PALAM 2) (ST A 16 (R0 PDL)) (*LOAD A (SPECIAL FORM))           00011120
(L A 4 (R0 A))(*LINK *_PA1 1) (LR Q A) (L A 16 (R0 PDL)) (*LINK CONS 2) 00011130
(BC 15 *__*0587) *__*0699 (*LOAD A (SPECIAL FORM)) (L A 0 (R0 A))       00011140
(*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2) (ST A 16 (R0 PDL))             00011150
(*LOAD A (SPECIAL FORM)) (L A 4 (R0 A)) (*LINK *_PA1 1) (LR Q A)        00011160
(*LOAD A (QUOTE LIST)) (*LINK CONS 2) (ST A 20 (R0 PDL))                00011170
(LA R0 4 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE APPLY))            00011180
(L* A 16 (R0 PDL)) (L* A 20 (R0 PDL)) (L* R2 (QUOTE ALIST)) *__*0713    00011190
*__*0587 (ST A 12 (R0 PDL)) (LA R1 2 (R0 R0)) (CNOP)                    00011200
(BAL R2 24 (R0 R12)) (*ACS FORM) (DC 4) (*ACS B) (DC 8)                 00011210
(L A 12 (R0 PDL)) (*REMOVE NIL) ) NIL)                                  00011220
                                                                        00011230
LAP360((     (*__*0727 SUBR 1)                                          00011240
(*MOVE 16 000000004X) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A))    00011250
(*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2) (ST A 8 (R0 PDL))              00011260
(L A 4 (R0 PDL)) (L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A))           00011270
(*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2) (ST A 12 (R0 PDL))             00011280
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 8 (R0 PDL))                00011290
(L* A 12 (R0 PDL)) (*REMOVE NIL) ) NIL)                                 00011300
                                                                        00011310
LAP360((     (*_PAFORM1 SUBR 2)                                         00011320
(*MOVE 36 000000008X) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00011330
(*ACS B) (DC 8) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (ST A 16 (R0 PDL))      00011340
(*LOAD A (QUOTE COND)) (AR A NILR) (S A 16 (R0 PDL)) (CR NILR A)        00011350
(BC 7 *__*0739) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (ST A 20 (R0 PDL))      00011360
(*LOAD Q (SPECIAL ALIST)) (*LOAD A (QUOTE *__*0727))                    00011370
(BAL R2 32 (R0 R12)) (LR Q A) (L A 20 (R0 PDL)) (*LINK MAPLIST 2)       00011380
(LR Q A) (*LOAD A (QUOTE COND)) (*LINK CONS 2) (BC 15 *__*0737)         00011390
*__*0739 (*LOAD A (QUOTE LIST)) (AR A NILR) (S A 16 (R0 PDL))           00011400
(CR NILR A) (BC 7 *__*0743) (L A 4 (R0 PDL)) (L A 4 (R0 A))             00011410
(*LINK *_PA1 1) (LR Q A) (*LOAD A (QUOTE LIST)) (*LINK CONS 2)          00011420
(BC 15 *__*0737) *__*0743 (*LOAD A (QUOTE QUOTE)) (AR A NILR)           00011430
(S A 16 (R0 PDL)) (CR NILR A) (BC 7 *__*0746) (L A 4 (R0 PDL))          00011440
(BC 15 *__*0737) *__*0746 (*LOAD A (QUOTE PROG)) (AR A NILR)            00011450
(S A 16 (R0 PDL)) (CR NILR A) (BC 7 *__*0747) (L A 4 (R0 PDL))          00011460
(L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (QUOTE COMMON)) (*LINK *_PA5 2)  00011470
(ST A 20 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))       00011480
(*LOAD Q (QUOTE SPECIAL)) (*LINK *_PA5 2) (ST A 24 (R0 PDL))            00011490
(*LINK GENSYM 0) (L M 8 (R0 R12)) (ST A 000000000X (R0 M))              00011500
(L Q 24 (R0 PDL)) (L A 20 (R0 PDL)) (*LINK *_PA8 3) (BC 15 *__*0737)    00011510
*__*0747 (*LOAD A (QUOTE FUNCTION)) (AR A NILR) (S A 16 (R0 PDL))       00011520
(CR NILR A) (BC 7 *__*0753) (*LINK GENSYM 0) (L Q 4 (R0 PDL))           00011530
(L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (*LINK *_COMP 2) (ST A 20 (R0 PDL))       00011540
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE QUOTE))            00011550
(L* A 20 (R0 PDL)) (ST A 20 (R0 PDL)) (LA R0 3 (R0 R0))                 00011560
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE FUNC)) (L* A 20 (R0 PDL))            00011570
(L* R2 (QUOTE ALIST)) (BC 15 *__*0737) *__*0753 (*LOAD A (QUOTE SETQ))  00011580
(AR A NILR) (S A 16 (R0 PDL)) (CR NILR A) (BC 7 *__*0758)               00011590
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (QUOTE COMMON)) 00011600
(*LINK GET 2) (CR NILR A) (BC 8 *__*0759) (L Q 4 (R0 PDL))              00011610
(L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (ST Q 20 (R0 PDL)) (LA R0 2 (R0 R0))      00011620
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE QUOTE)) (L* A 20 (R0 PDL))           00011630
(ST A 20 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))       00011640
(L A 0 (R0 A)) (*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2)                 00011650
(ST A 24 (R0 PDL)) (LA R0 4 (R0 R0)) (BAL R2 16 (R0 R12))               00011660
(L* R2 (QUOTE SETC)) (L* A 20 (R0 PDL)) (L* R2 (QUOTE ALIST))           00011670
(L* A 24 (R0 PDL)) (BC 15 *__*0737) *__*0759 (L A 4 (R0 PDL))           00011680
(L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2)  00011690
(ST A 20 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))       00011700
(L A 0 (R0 A)) (*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2)                 00011710
(ST A 24 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00011720
(L* R2 (QUOTE SETQ)) (L* A 20 (R0 PDL)) (L* A 24 (R0 PDL)) *__*0767     00011730
(BC 15 *__*0737) *__*0758 (*LOAD A (QUOTE GO)) (AR A NILR)              00011740
(S A 16 (R0 PDL)) (CR NILR A) (BC 7 *__*0774) (L A 4 (R0 PDL))          00011750
(BC 15 *__*0737) *__*0774 (*LOAD A (QUOTE CSETQ)) (AR A NILR)           00011760
(S A 16 (R0 PDL)) (CR NILR A) (BC 7 *__*0775) (L Q 4 (R0 PDL))          00011770
(L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (ST Q 20 (R0 PDL)) (LA R0 2 (R0 R0))      00011780
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE QUOTE)) (L* A 20 (R0 PDL))           00011790
(ST A 20 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))       00011800
(L A 0 (R0 A)) (*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2)                 00011810
(ST A 24 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00011820
(L* R2 (QUOTE CSET)) (L* A 20 (R0 PDL)) (L* A 24 (R0 PDL))              00011830
(BC 15 *__*0737) *__*0775 (*LOAD A (QUOTE SELECT)) (AR A NILR)          00011840
(S A 16 (R0 PDL)) (CR NILR A) (BC 7 *__*0781) (*LINK GENSYM 0)          00011850
(ST A 20 (R0 PDL)) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))        00011860
(*ACS G) (DC 20) (*LOAD A (SPECIAL G)) (ST A 28 (R0 PDL))               00011870
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 28 (R0 PDL))               00011880
(ST A 28 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))       00011890
(*LINK *_PA3 1) (LR Q A) (*LOAD A (QUOTE COND)) (*LINK CONS 2)          00011900
(ST A 32 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00011910
(L* R2 (QUOTE LAMBDA)) (L* A 28 (R0 PDL)) (L* A 32 (R0 PDL))            00011920
(ST A 28 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))       00011930
(*LOAD Q (SPECIAL B)) (*LINK *_PAFORM 2) (ST A 32 (R0 PDL))             00011940
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 28 (R0 PDL))               00011950
(L* A 32 (R0 PDL)) (ST A 24 (R0 PDL)) (LA R1 1 (R0 R0)) (CNOP)          00011960
(BAL R2 24 (R0 R12)) (*ACS G) (DC 20) (L A 24 (R0 PDL))                 00011970
(BC 15 *__*0737) *__*0781 (*LOAD A (QUOTE CONC)) (AR A NILR)            00011980
(S A 16 (R0 PDL)) (CR NILR A) (BC 7 *__*0797) (*LOAD A (SPECIAL FORM))  00011990
(L A 4 (R0 A))(*LINK *_PA2 1)(BC 15 *__*0737) *__*0797 (L A 4 (R0 PDL)) 00012000
(L A 0 (R0 A)) (ST A 20 (R0 PDL)) (L Q 4 (R0 PDL)) (L Q 4 (R0 Q))       00012010
(ST Q 24 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00012020
(L* R2 (QUOTE QUOTE)) (L* A 24 (R0 PDL)) (ST A 24 (R0 PDL))             00012030
(LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 20 (R0 PDL))               00012040
(L* A 24 (R0 PDL)) (L* R2 (QUOTE ALIST)) *__*0800 *__*0737              00012050
(ST A 12 (R0 PDL)) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12))        00012060
(*ACS B) (DC 8) (L A 12 (R0 PDL)) (*REMOVE NIL) ) NIL)                  00012070
                                                                        00012080
LAP360((     (*__*0809 SUBR 1)                                          00012090
(*MOVE 8 000000004X) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (LR Q NILR)        00012100
(*LINK *_STORE 2) (*REMOVE NIL) ) NIL)                                  00012110
                                                                        00012120
LAP360((     (*_PHASE2 SUBR 2)                                          00012130
(*MOVE 64 000000008X) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00012140
(*ACS NAME) (DC 8) (ST NILR 20 (R0 PDL)) (ST NILR 24 (R0 PDL))          00012150
(ST NILR 28 (R0 PDL)) (ST NILR 32 (R0 PDL)) (ST NILR 36 (R0 PDL))       00012160
(ST NILR 40 (R0 PDL)) (LA R1 6 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00012170
(*ACS AC) (DC 20) (*ACS MQ) (DC 24) (*ACS QP) (DC 28) (*ACS LISTING)    00012180
(DC 32) (*ACS STOMAP) (DC 36) (*ACS LNGTH) (DC 40)                      00012190
(ST NILR 44 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))    00012200
(ST A 48 (R0 PDL)) (CR NILR A) (BC 8 *__*0816) (L A 0 (R0 A))           00012210
(ST A 48 (R0 PDL)) (*LINK ATOM 1) (CR NILR A) (BC 7 *__*0816)           00012220
(L A 48 (R0 PDL)) (L A 0 (R0 A)) (S A (QUOTE COND)) (CR NILR A)         00012230
(BC 7 *__*0816) (L A 48 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))         00012240
(*STORE A (SPECIAL AC)) (L A 0 (R0 A)) (L A 0 (R0 A))                   00012250
(S A (QUOTE NULL)) (CR NILR A) (BC 7 *__*0816) (L A 4 (R0 PDL))         00012260
(L A 4 (R0 A)) (L A 0 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL AC))     00012270
(L Q 0 (R0 Q)) (L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (AR A NILR) (SR A Q)       00012280
(CR NILR A) (BC 7 *__*0816) (*LOAD A (SPECIAL AC)) (L A 4 (R0 A))       00012290
(L A 0 (R0 A)) (*LOAD Q (QUOTE (QUOTE NIL))) (*LINK EQUAL 2)            00012300
(CR NILR A) (BC 8 *__*0816) *__*0825 *__*0824 *__*0822 (*LINK GENSYM 0) 00012310
(*STORE A (SPECIAL AC)) (ST A 52 (R0 PDL)) (*LOAD A (SPECIAL AC))       00012320
(ST A 56 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00012330
(L* R2 (QUOTE BC)) (L* R2 (QUOTE 7)) (L* A 56 (R0 PDL))                 00012340
(ST A 56 (R0 PDL)) (LA R0 4 (R0 R0)) (BAL R2 16 (R0 R12))               00012350
(L* A 52 (R0 PDL)) (L* R2 (QUOTE (*RETURN NIL))) (L* A 56 (R0 PDL))     00012360
(L* R2 (QUOTE (CR A NILR))) (*LINK *_ATTACH 1) (L A 4 (R0 PDL))         00012370
(L A 0 (R0 A)) (L Q 4 (R0 PDL)) (L Q 4 (R0 Q)) (L Q 0 (R0 Q))           00012380
(ST A 52 (R0 PDL)) (ST Q 56 (R0 PDL)) (L Q 4 (R0 PDL)) (L Q 4 (R0 Q))   00012390
(L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (L Q 4 (R0 Q)) (L Q 4 (R0 Q))             00012400
(*LOAD A (QUOTE COND)) (*LINK CONS 2) (ST A 60 (R0 PDL))                00012410
(LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 52 (R0 PDL))               00012420
(L* A 56 (R0 PDL)) (L* A 60 (R0 PDL)) (ST A 4 (R0 PDL)) *__*0816        00012430
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LINK LENGTH 1)         00012440
(*LOAD Q (QUOTE 2)) (*LINK LEFTSHIFT 2) (ST A 52 (R0 PDL))              00012450
(LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE *MOVE))            00012460
(L* R2 (QUOTE MN)) (L* A 52 (R0 PDL)) (*LINK *_ATTACH1 1)               00012470
(*LOAD A (QUOTE 0)) (*STORE A (SPECIAL LNGTH))                          00012480
(*LOAD A (QUOTE ((NIL (0 (R0 PDL)))))) (*STORE A (SPECIAL STOMAP))      00012490
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (ST A 52 (R0 PDL))       00012500
(*LOAD Q (SPECIAL ALIST)) (*LOAD A (QUOTE *__*0809))                    00012510
(BAL R2 32 (R0 R12)) (LR Q A) (L A 52 (R0 PDL)) (*LINK MAP 2)           00012520
(LR A NILR) (*STORE A (SPECIAL AC)) (L A 4 (R0 PDL)) (L A 4 (R0 A))     00012530
(L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL STOMAP))                00012540
(L M 8 (R0 R12)) (ST NILR 000000000X (R0 M)) (*LINK *_COMVAL 3)         00012550
(LR A NILR) (ST A 4 (R0 PDL)) (L A 48 (R0 PDL)) (*LINK ATOM 1)          00012560
(CR NILR A) (BC 7 *__*0866) (L A 48 (R0 PDL)) (L A 0 (R0 A))            00012570
(*LOAD Q (QUOTE (COND PROG))) (*LINK MEMBER 2) (CR NILR A)              00012580
(BC 7 *__*0817) *__*0866 *__*0865 *__*0863 (LA R0 2 (R0 R0))            00012590
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE *REMOVE)) (L* R2 (QUOTE NIL))        00012600
(ST A 52 (R0 PDL)) (LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12))               00012610
(L* A 52 (R0 PDL)) (ST A 4 (R0 PDL)) (BC 15 *__*0818) *__*0817          00012620
(*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A)) (*LINK ATOM 1) (CR NILR A)   00012630
(BC 8 *__*0818) *__*0874 (*LOAD A (SPECIAL LISTING)) (L A 4 (R0 A))     00012640
(*STORE A (SPECIAL LISTING)) (BC 15 *__*0817) *__*0818                  00012650
(*LOAD A (SPECIAL LISTING)) (CR NILR A) (BC 7 *__*0884)                 00012660
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 4 (R0 PDL))                00012670
(L* R2 (QUOTE NIL)) (BC 15 *__*0815) *__*0884 *__*0883                  00012680
(*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A)) (ST A 48 (R0 PDL))           00012690
(*LINK ATOM 1) (CR NILR A) (BC 7 *__*0820) (L A 48 (R0 PDL))            00012700
(L A 0 (R0 A)) (S A (QUOTE *MOVE)) (CR NILR A) (BC 7 *__*0892)          00012710
(*LOAD A (SPECIAL LNGTH)) (ST A 52 (R0 PDL)) (LA R0 2 (R0 R0))          00012720
(BAL R2 16 (R0 R12)) (L* A 52 (R0 PDL)) (L* R2 (QUOTE 4))               00012730
(*LOAD Q (SPECIAL ALIST)) (*LINK PLUS 2) (ST A 52 (R0 PDL))             00012740
(L A 48 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A))          00012750
(ST A 56 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00012760
(L* R2 (QUOTE *MOVE)) (L* A 52 (R0 PDL)) (L* A 56 (R0 PDL))             00012770
(L Q 4 (R0 PDL)) (*LINK CONS 2) (ST A 4 (R0 PDL)) (BC 15 *__*0889)      00012780
*__*0892 (L A 48 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (CR NILR A)    00012790
(BC 8 *__*0821) (L A 48 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))         00012800
(L A 0 (R0 A)) (*LINK ATOM 1) (CR NILR A) (BC 7 *__*0821) *__*0901      00012810
*__*0900 (L A 48 (R0 PDL)) (L A 0 (R0 A)) (S A (QUOTE L)) (CR NILR A)   00012820
(BC 7 *__*0908) (*LOAD A (QUOTE *LOAD)) (BC 15 *__*0907) *__*0908       00012830
(L A 48 (R0 PDL)) (L A 0 (R0 A)) (S A (QUOTE ST)) (CR NILR A)           00012840
(BC 7 *__*0910) (*LOAD A (QUOTE *STORE)) (BC 15 *__*0907) *__*0910      00012850
(L A 48 (R0 PDL)) (L A 0 (R0 A)) *__*0912 *__*0907 (L Q 48 (R0 PDL))    00012860
(L Q 4 (R0 Q)) (*LINK CONS 2) (L Q 4 (R0 PDL)) (*LINK CONS 2)           00012870
(ST A 4 (R0 PDL)) *__*0905 *__*0889 *__*0819                            00012880
(*LOAD A (SPECIAL LISTING)) (L A 4 (R0 A)) (*STORE A (SPECIAL LISTING)) 00012890
(*LOAD A (SPECIAL OPT)) (CR NILR A) (BC 8 *__*0918) (L A 4 (R0 PDL))    00012900
(*LINK *_OPTFN 1) (ST A 4 (R0 PDL)) *__*0918 *__*0917 (BC 15 *__*0818)  00012910
*__*0820 (L Q 44 (R0 PDL)) (L A 48 (R0 PDL)) (*LINK MEMBER 2)           00012920
(CR NILR A) (BC 7 *__*0819) *__*0922 (L Q 44 (R0 PDL))                  00012930
(L A 48 (R0 PDL)) (*LINK CONS 2) (ST A 44 (R0 PDL)) *__*0821            00012940
(L Q 4 (R0 PDL)) (L A 48 (R0 PDL)) (*LINK CONS 2) (ST A 4 (R0 PDL))     00012950
(BC 15 *__*0819) *__*0815 (ST A 16 (R0 PDL)) (LA R1 6 (R0 R0)) (CNOP)   00012960
(BAL R2 24 (R0 R12)) (*ACS AC) (DC 20) (*ACS MQ) (DC 24) (*ACS QP)      00012970
(DC 28) (*ACS LISTING) (DC 32) (*ACS STOMAP) (DC 36) (*ACS LNGTH)       00012980
(DC 40) (L A 16 (R0 PDL)) *__*0813 (ST A 12 (R0 PDL)) (LA R1 1 (R0 R0)) 00012990
(CNOP) (BAL R2 24 (R0 R12)) (*ACS NAME) (DC 8) (L A 12 (R0 PDL))        00013000
(*REMOVE NIL) ) NIL)                                                    00013010
                                                                        00013020
LAP360((     (*_COMVAL SUBR 3)                                          00013030
(*MOVE 28 00000000CX) (LA R1 2 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00013040
(*ACS STOMAP) (DC 8) (*ACS NAME) (DC 12) (L A 4 (R0 PDL))               00013050
(*LINK ATOM 1) (CR NILR A) (BC 7 *__*0944) (L A 4 (R0 PDL))             00013060
(L A 0 (R0 A)) (*LOAD Q (QUOTE (QUOTE SPECIAL))) (*LINK MEMBER 2)       00013070
(CR NILR A) (BC 8 *__*0942) *__*0944 *__*0943 (L A 4 (R0 PDL))          00013080
(*LINK *_LAC 1)(BC 15 *__*0941) *__*0942 (L A 4 (R0 PDL))(L A 0 (R0 A)) 00013090
(S A (QUOTE SETQ)) (CR NILR A) (BC 7 *__*0948) (L A 4 (R0 PDL))         00013100
(L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL STOMAP)) 00013110
(ST A 20 (R0 PDL)) (*LOAD A (SPECIAL NAME)) (L M 8 (R0 R12))            00013120
(ST A 000000000X (R0 M)) (L A 20 (R0 PDL)) (*LINK *_COMVAL 3)           00013130
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LINK *_LOCATE 1)       00013140
(LR Q A) (*LOAD A (QUOTE (ST A))) (*LINK APPEND 2) (*LINK *_ATTACH1 1)  00013150
(BC 15 *__*0941) *__*0948 (L A 4 (R0 PDL)) (L A 0 (R0 A))               00013160
(S A (QUOTE COND)) (CR NILR A) (BC 7 *__*0957) (L A 4 (R0 PDL))         00013170
(L A 4 (R0 A)) (*LOAD Q (QUOTE T)) (*LINK *_COMCOND 2) (BC 15 *__*0941) 00013180
*__*0957 (L A 4 (R0 PDL)) (L A 0 (R0 A)) (S A (QUOTE PROG)) (CR NILR A) 00013190
(BC 7 *__*0960) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))          00013200
(L Q 4 (R0 PDL)) (L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (ST A 20 (R0 PDL))       00013210
(*LOAD A (SPECIAL NAME)) (L M 8 (R0 R12)) (ST A 000000000X (R0 M))      00013220
(L A 20 (R0 PDL)) (*LINK *_COMPROG 3) (BC 15 *__*0941) *__*0960         00013230
(L A 4 (R0 PDL)) (L A 0 (R0 A)) (S A (QUOTE OR)) (CR NILR A)            00013240
(BC 7 *__*0965) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L M 8 (R0 R12))        00013250
(ST NILR 000000004X (R0 M)) (ST A 000000000X (R0 M)) (LR Q NILR)        00013260
(LR A NILR) (*LINK *_COMBOOL 4) (BC 15 *__*0941) *__*0965               00013270
(L A 4 (R0 PDL)) (L A 0 (R0 A)) (S A (QUOTE AND)) (CR NILR A)           00013280
(BC 7 *__*0968) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L M 8 (R0 R12))        00013290
(ST NILR 000000004X (R0 M)) (ST A 000000000X (R0 M)) (LR Q NILR)        00013300
(*LOAD A (QUOTE T)) (*LINK *_COMBOOL 4) (BC 15 *__*0941) *__*0968       00013310
(L A 4 (R0 PDL)) (L A 0 (R0 A)) (S A (QUOTE PROG2)) (CR NILR A)         00013320
(BC 7 *__*0971) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))          00013330
(*LOAD Q (SPECIAL STOMAP)) (ST A 20 (R0 PDL)) (ST Q 24 (R0 PDL))        00013340
(*LINK GENSYM 0) (L M 8 (R0 R12)) (ST A 000000000X (R0 M))              00013350
(L Q 24 (R0 PDL)) (L A 20 (R0 PDL)) (*LINK *_COMVAL 3) (L A 4 (R0 PDL)) 00013360
(L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL STOMAP)) 00013370
(ST A 20 (R0 PDL)) (*LOAD A (SPECIAL NAME)) (L M 8 (R0 R12))            00013380
(ST A 000000000X (R0 M)) (L A 20 (R0 PDL)) (*LINK *_COMVAL 3)           00013390
(BC 15 *__*0941) *__*0971 (L A 4 (R0 PDL)) (L A 0 (R0 A))               00013400
(*LINK ATOM 1) (CR NILR A) (BC 8 *__*0980) (L A 4 (R0 PDL))             00013410
(L A 0 (R0 A)) (ST A 20 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A))       00013420
(*LINK *_COMLIS 1) (LR Q A) (L A 20 (R0 PDL)) (*LINK *_CALL 2)          00013430
(BC 15 *__*0941) *__*0980 (L A 4 (R0 PDL)) (L A 0 (R0 A))               00013440
(L Q 4 (R0 PDL)) (L Q 4 (R0 Q)) (*LINK *_COMPLY 2) (L A 4 (R0 PDL))     00013450
(L A 0 (R0 A)) (L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A))             00013460
(*LOAD Q (SPECIAL STOMAP)) (ST A 20 (R0 PDL)) (*LOAD A (SPECIAL NAME))  00013470
(L M 8 (R0 R12)) (ST A 000000000X (R0 M)) (L A 20 (R0 PDL))             00013480
(*LINK *_COMVAL 3)(LR A NILR)*__*0986 *__*0941 (*LOAD A (SPECIAL NAME)) 00013490
(*STORE A (SPECIAL AC)) (*LOAD A (SPECIAL NAME)) *__*0940               00013500
(ST A 16 (R0 PDL)) (LA R1 2 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12))        00013510
(*ACS STOMAP) (DC 8) (*ACS NAME) (DC 12) (L A 16 (R0 PDL))              00013520
(*REMOVE NIL) ) NIL)                                                    00013530
                                                                        00013540
LAP360((     (*_COMBOOL SUBR 4)                                         00013550
(*MOVE 48 000000010X) (LA R1 2 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00013560
(*ACS FN) (DC 4) (*ACS MODE) (DC 8) (ST NILR 28 (R0 PDL))               00013570
(LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12)) (*ACS SWITCH) (DC 28)     00013580
(*LINK GENSYM 0) (ST A 36 (R0 PDL)) (*LINK GENSYM 0) (ST A 32 (R0 PDL)) 00013590
*__*1011 (LR A NILR) (*STORE A (SPECIAL SWITCH)) (L A 12 (R0 PDL))      00013600
(CR NILR A) (BC 8 *__*1013) (*LOAD A (SPECIAL MODE)) (CR NILR A)        00013610
(BC 8 *__*1023) (L A 12 (R0 PDL)) (L A 4 (R0 A)) (CR NILR A)            00013620
(BC 7 *__*1023) (*LOAD Q (SPECIAL FN)) (ST Q 40 (R0 PDL))               00013630
(L A 40 (R0 PDL)) (AR A NILR) (S A 16 (R0 PDL)) (CR NILR A)             00013640
(BC 8 *__*1012) *__*1023 *__*1022 *__*1018 (*LOAD A (SPECIAL FN))       00013650
(CR NILR A) (BC 8 *__*1029) (L A 12 (R0 PDL)) (L A 0 (R0 A))            00013660
(BC 15 *__*1028) *__*1029 (L Q 12 (R0 PDL)) (L Q 0 (R0 Q))              00013670
(ST Q 40 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00013680
(L* R2 (QUOTE NULL)) (L* A 40 (R0 PDL)) *__*1031 *__*1028               00013690
(ST A 40 (R0 PDL)) (*LOAD A (SPECIAL MODE)) (CR NILR A) (BC 8 *__*1034) 00013700
(L A 16 (R0 PDL)) (CR NILR A) (BC 7 *__*1034) *__*1036 *__*1035         00013710
(*LOAD A (SPECIAL FN)) (CR NILR A) (BC 8 *__*1039)                      00013720
(*LOAD A (SPECIAL NAME)) (BC 15 *__*1033) *__*1039 (L A 32 (R0 PDL))    00013730
*__*1041 (BC 15 *__*1033) *__*1034 (*LOAD A (SPECIAL MODE)) (CR NILR A) 00013740
(BC 7 *__*1043) (L A 32 (R0 PDL)) (BC 15 *__*1033) *__*1043             00013750
(*LOAD A (SPECIAL FN)) (CR NILR A) (BC 8 *__*1045) (L A 32 (R0 PDL))    00013760
(BC 15 *__*1033) *__*1045 (*LOAD A (SPECIAL NAME)) *__*1047 *__*1042    00013770
*__*1033 (LR Q A) (L A 40 (R0 PDL)) (*LINK *_COMPACT 2)                 00013780
(*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A)) (L A 0 (R0 A))               00013790
(S A (QUOTE BC)) (CR NILR A) (BC 7 *__*1049)                            00013800
(*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A)) (L A 4 (R0 A))               00013810
(L A 0 (R0 A)) (S A (QUOTE 7)) (CR NILR A) (BC 7 *__*1049) *__*1051     00013820
*__*1050 (*LOAD A (QUOTE (QUOTE NIL))) (BC 15 *__*1048) *__*1049        00013830
(*LOAD A (QUOTE (QUOTE T))) *__*1056 *__*1048 (*STORE A (SPECIAL AC))   00013840
(L A 12 (R0 PDL)) (L A 4 (R0 A)) (ST A 12 (R0 PDL)) (BC 15 *__*1011)    00013850
*__*1012 (*LOAD A (SPECIAL FN)) (CR NILR A) (BC 8 *__*1062)             00013860
(L Q 12 (R0 PDL)) (L Q 0 (R0 Q)) (ST Q 40 (R0 PDL)) (LA R0 2 (R0 R0))   00013870
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE NULL)) (L* A 40 (R0 PDL))            00013880
(BC 15 *__*1061) *__*1062 (L A 12 (R0 PDL)) (L A 0 (R0 A)) *__*1065     00013890
*__*1061 (*LOAD Q (SPECIAL NAME)) (*LINK *_COMPACT 2) *__*1013          00013900
(*LOAD A (SPECIAL MODE)) (CR NILR A) (BC 7 *__*1069) (LA R0 3 (R0 R0))  00013910
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE BC)) (L* R2 (QUOTE 15))              00013920
(L* A 36 (R0 PDL)) (ST A 40 (R0 PDL)) (*LOAD Q (SPECIAL FN))            00013930
(ST Q 44 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00013940
(L* R2 (QUOTE QUOTE)) (L* A 44 (R0 PDL)) (ST A 44 (R0 PDL))             00013950
(LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE *LOAD))            00013960
(L* R2 (QUOTE A)) (L* A 44 (R0 PDL)) (ST A 44 (R0 PDL))                 00013970
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 40 (R0 PDL))               00013980
(L* A 44 (R0 PDL))(*LINK *_ATTACH 1)*__*1069 *__*1068 (L A 32 (R0 PDL)) 00013990
(*LINK *_ATTACH1 1)(*LOAD A (SPECIAL MODE)) (CR NILR A) (BC 7 *__*1078) 00014000
(*LOAD A (SPECIAL FN)) (*LINK NULL 1) (ST A 40 (R0 PDL))                00014010
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE QUOTE))            00014020
(L* A 40 (R0 PDL)) (ST A 40 (R0 PDL)) (LA R0 3 (R0 R0))                 00014030
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE *LOAD)) (L* R2 (QUOTE A))            00014040
(L* A 40 (R0 PDL)) (*LINK *_ATTACH1 1) *__*1078 *__*1077                00014050
(L A 36 (R0 PDL)) (*LINK *_ATTACH1 1) (LR A NILR) *__*1010              00014060
(ST A 24 (R0 PDL)) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12))        00014070
(*ACS SWITCH) (DC 28) (L A 24 (R0 PDL)) *__*1008 (ST A 20 (R0 PDL))     00014080
(LA R1 2 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12)) (*ACS FN) (DC 4)          00014090
(*ACS MODE) (DC 8) (L A 20 (R0 PDL)) (*REMOVE NIL) ) NIL)               00014100
                                                                        00014110
LAP360((     (*__*1095 SUBR 0)                                          00014120
(*MOVE 4 000000000X) (*LOAD A (QUOTE GO)) (*LINK ERROR 1) (*REMOVE NIL) 00014130
) NIL)                                                                  00014140
                                                                        00014150
LAP360((     (*_COMCOND SUBR 2)                                         00014160
(*MOVE 44 000000008X) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00014170
(*ACS MODE) (DC 8) (ST NILR 20 (R0 PDL)) (ST NILR 24 (R0 PDL))          00014180
(LA R1 2 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12)) (*ACS FLAG) (DC 20)       00014190
(*ACS SWITCH) (DC 24) (ST NILR 28 (R0 PDL)) (*LOAD A (QUOTE T))         00014200
(*STORE A (SPECIAL FLAG)) *__*1101 (L A 4 (R0 PDL)) (CR NILR A)         00014210
(BC 8 *__*1104) *__*1108 (*LINK GENSYM 0) (ST A 28 (R0 PDL))            00014220
(LR A NILR) (*STORE A (SPECIAL SWITCH)) (*LOAD A (SPECIAL MODE))        00014230
(CR NILR A) (BC 7 *__*1116) (L A 4 (R0 PDL)) (L A 0 (R0 A))             00014240
(L A 4 (R0 A)) (L A 0 (R0 A)) (L A 0 (R0 A)) (S A (QUOTE GO))           00014250
(CR NILR A) (BC 8 *__*1105) *__*1116 *__*1115 *__*1113 (L A 4 (R0 PDL)) 00014260
(L A 0 (R0 A)) (L A 0 (R0 A)) (L Q 28 (R0 PDL)) (*LINK *_COMPACT 2)     00014270
(L A 4 (R0 PDL)) (L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A))           00014280
(*LOAD Q (SPECIAL STOMAP)) (ST A 32 (R0 PDL)) (*LOAD A (SPECIAL NAME))  00014290
(L M 8 (R0 R12)) (ST A 000000000X (R0 M)) (L A 32 (R0 PDL))             00014300
(*LINK *_COMVAL 3) (*LOAD A (SPECIAL NAME)) (CR NILR A) (BC 8 *__*1132) 00014310
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (CR NILR A) (BC 8 *__*1102) *__*1132    00014320
*__*1131 (L A 4 (R0 PDL)) (L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A))  00014330
(L A 0 (R0 A)) (*LOAD Q (QUOTE (RETURN GO))) (*LINK MEMBER 2)           00014340
(CR NILR A) (BC 7 *__*1102) *__*1130 *__*1129 *__*1127                  00014350
(*LOAD A (SPECIAL NAME)) (CR NILR A) (BC 8 *__*1140)                    00014360
(*LOAD A (SPECIAL NAME)) (ST A 32 (R0 PDL)) (LA R0 3 (R0 R0))           00014370
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE BC)) (L* R2 (QUOTE 15))              00014380
(L* A 32 (R0 PDL)) (*LINK *_ATTACH1 1) (BC 15 *__*1139) *__*1140        00014390
(*LOAD A (QUOTE (*REMOVE NIL))) (*LINK *_ATTACH1 1) *__*1144 *__*1139   00014400
*__*1102 (L A 28 (R0 PDL)) (*LINK *_ATTACH1 1) *__*1103 (L A 4 (R0 PDL))00014410
(L A 4 (R0 A)) (ST A 4 (R0 PDL)) (LR A NILR) (*STORE A (SPECIAL AC))    00014420
(BC 15 *__*1101) *__*1104 (*LOAD A (SPECIAL FLAG)) (CR NILR A)          00014430
(BC 8 *__*1153) (*LOAD A (SPECIAL MODE)) (CR NILR A) (BC 8 *__*1153)    00014440
*__*1155 *__*1154 (*LOAD A (QUOTE (BC 15 28 (R0 R12))))                 00014450
(*LINK *_ATTACH1 1) *__*1153 *__*1152 (*LOAD A (SPECIAL NAME))          00014460
(CR NILR A)(BC 8 *__*1159) (*LOAD A (SPECIAL NAME)) (*LINK *_ATTACH1 1) 00014470
*__*1159 *__*1158 (LR A NILR) (BC 15 *__*1100) *__*1105                 00014480
(L Q 4 (R0 PDL)) (L Q 0 (R0 Q)) (L Q 0 (R0 Q)) (ST Q 32 (R0 PDL))       00014490
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE NULL))             00014500
(L* A 32 (R0 PDL)) (ST A 32 (R0 PDL)) (L A 4 (R0 PDL)) (L A 0 (R0 A))   00014510
(L A 4 (R0 A)) (L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A))             00014520
(*LOAD Q (SPECIAL GOLIST)) (ST A 36 (R0 PDL)) (ST Q 40 (R0 PDL))        00014530
(*LOAD Q (SPECIAL ALIST)) (*LOAD A (QUOTE *__*1095))                    00014540
(BAL R2 32 (R0 R12)) (L M 8 (R0 R12)) (ST A 000000000X (R0 M))          00014550
(L Q 40 (R0 PDL)) (L A 36 (R0 PDL)) (*LINK SASSOC 3) (L Q 4 (R0 A))     00014560
(L A 32 (R0 PDL)) (*LINK *_COMPACT 2) (L A 4 (R0 PDL)) (L A 4 (R0 A))   00014570
(ST A 4 (R0 PDL)) (BC 15 *__*1101) *__*1100 (ST A 16 (R0 PDL))          00014580
(LA R1 2 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12)) (*ACS FLAG) (DC 20)       00014590
(*ACS SWITCH) (DC 24) (L A 16 (R0 PDL)) *__*1098 (ST A 12 (R0 PDL))     00014600
(LA R1 1 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12)) (*ACS MODE) (DC 8)        00014610
(L A 12 (R0 PDL)) (*REMOVE NIL) ) NIL)                                  00014620
                                                                        00014630
LAP360((     (*__*1184 SUBR 0)                                          00014640
(*MOVE 4 000000000X) (*LOAD A (QUOTE GO)) (*LINK ERROR 1) (*REMOVE NIL) 00014650
) NIL)                                                                  00014660
                                                                        00014670
LAP360((     (*_COMPROG SUBR 3)                                         00014680
(*MOVE 52 00000000CX) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00014690
(*ACS RETN) (DC 12) (ST NILR 24 (R0 PDL)) (ST NILR 28 (R0 PDL))         00014700
(LA R1 2 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12)) (*ACS GOLIST) (DC 24)     00014710
(*ACS NAME) (DC 28) (ST NILR 36 (R0 PDL)) (ST NILR 40 (R0 PDL))         00014720
(L A 4 (R0 PDL)) (ST A 32 (R0 PDL)) *__*1190 (L A 32 (R0 PDL))          00014730
(CR NILR A) (BC 8 *__*1191) (L A 0 (R0 A)) (*LINK ATOM 1) (CR NILR A)   00014740
(BC 8 *__*1201) (L A 32 (R0 PDL)) (L A 0 (R0 A)) (ST A 44 (R0 PDL))     00014750
(*LINK GENSYM 0) (LR Q A) (L A 44 (R0 PDL)) (*LINK CONS 2)              00014760
(*LOAD Q (SPECIAL GOLIST)) (*LINK CONS 2) (*STORE A (SPECIAL GOLIST))   00014770
(BC 15 *__*1198) *__*1201 (L A 36 (R0 PDL)) (CR NILR A) (BC 7 *__*1208) 00014780
(L A 32 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A)) (S A (QUOTE SPECBIND))  00014790
(CR NILR A) (BC 7 *__*1210) (L A 32 (R0 PDL)) (L A 4 (R0 A))            00014800
(L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (ST A 40 (R0 PDL))         00014810
(BC 15 *__*1198) *__*1210 (*LOAD A (QUOTE T)) (ST A 36 (R0 PDL))        00014820
*__*1213 *__*1208 *__*1198 (L A 32 (R0 PDL)) (L A 4 (R0 A))             00014830
(ST A 32 (R0 PDL)) (BC 15 *__*1190) *__*1191 (L A 8 (R0 PDL))           00014840
(ST A 32 (R0 PDL)) *__*1192 (L A 32 (R0 PDL)) (CR NILR A)               00014850
(BC 8 *__*1193) *__*1219 (L A 32 (R0 PDL)) (L A 0 (R0 A)) (LR Q NILR)   00014860
(*LINK *_STORE 2) (L A 32 (R0 PDL)) (L A 0 (R0 A)) (AR A NILR)          00014870
(S A 40 (R0 PDL)) (CR NILR A) (BC 8 *__*1225) (L A 32 (R0 PDL))         00014880
(L A 0 (R0 A)) (*LINK *_LOCATE 1) (LR Q A) (*LOAD A (QUOTE NILR))       00014890
(*LINK CONS 2) (LR Q A) (*LOAD A (QUOTE ST)) (*LINK CONS 2)             00014900
(*LINK *_ATTACH1 1) *__*1225 *__*1224 (L A 32 (R0 PDL)) (L A 4 (R0 A))  00014910
(ST A 32 (R0 PDL)) (BC 15 *__*1192) *__*1193 (L A 4 (R0 PDL))           00014920
(ST A 32 (R0 PDL)) *__*1194 (LR A NILR) (*STORE A (SPECIAL AC))         00014930
(*LINK GENSYM 0) (*STORE A (SPECIAL NAME)) (L A 32 (R0 PDL))            00014940
(CR NILR A) (BC 8 *__*1195) (L A 0 (R0 A)) (*LINK ATOM 1) (CR NILR A)   00014950
(BC 8 *__*1241) (L A 32 (R0 PDL)) (L A 0 (R0 A))                        00014960
(*LOAD Q (SPECIAL GOLIST)) (L M 8 (R0 R12)) (ST NILR 000000000X (R0 M)) 00014970
(*LINK SASSOC 3) (L A 4 (R0 A)) (*LINK *_ATTACH1 1) (BC 15 *__*1238)    00014980
*__*1241 (L A 32 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A))                00014990
(S A (QUOTE GO)) (CR NILR A) (BC 7 *__*1248) (L A 32 (R0 PDL))          00015000
(L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL GOLIST)) 00015010
(ST A 44 (R0 PDL)) (ST Q 48 (R0 PDL)) (*LOAD Q (SPECIAL ALIST))         00015020
(*LOAD A (QUOTE *__*1184)) (BAL R2 32 (R0 R12)) (L M 8 (R0 R12))        00015030
(ST A 000000000X (R0 M)) (L Q 48 (R0 PDL)) (L A 44 (R0 PDL))            00015040
(*LINK SASSOC 3) (L A 4 (R0 A)) (ST A 44 (R0 PDL)) (LA R0 3 (R0 R0))    00015050
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE BC)) (L* R2 (QUOTE 15))              00015060
(L* A 44 (R0 PDL)) (*LINK *_ATTACH1 1) (BC 15 *__*1238) *__*1248        00015070
(L A 32 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A)) (S A (QUOTE COND))      00015080
(CR NILR A) (BC 7 *__*1256) (L A 32 (R0 PDL)) (L A 0 (R0 A))            00015090
(L A 4 (R0 A))(LR Q NILR) (*LINK *_COMCOND 2) (BC 15 *__*1238) *__*1256 00015100
(L A 32 (R0 PDL)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL STOMAP))             00015110
(ST A 44 (R0 PDL)) (*LOAD A (SPECIAL NAME)) (L M 8 (R0 R12))            00015120
(ST A 000000000X (R0 M)) (L A 44 (R0 PDL)) (*LINK *_COMVAL 3) *__*1259  00015130
*__*1238 (L A 32 (R0 PDL)) (L A 4 (R0 A)) (ST A 32 (R0 PDL))            00015140
(BC 15 *__*1194) *__*1195 (*LOAD A (SPECIAL RETN)) (CR NILR A)          00015150
(BC 8 *__*1267) (*LOAD A (SPECIAL RETN)) (ST A 44 (R0 PDL))             00015160
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 44 (R0 PDL))               00015170
(*LINK *_ATTACH 1) *__*1267 *__*1266 (LR A NILR) *__*1189               00015180
(ST A 20 (R0 PDL)) (LA R1 2 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12))        00015190
(*ACS GOLIST) (DC 24) (*ACS NAME) (DC 28) (L A 20 (R0 PDL)) *__*1187    00015200
(ST A 16 (R0 PDL)) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12))        00015210
(*ACS RETN) (DC 12) (L A 16 (R0 PDL)) (*REMOVE NIL) ) NIL)              00015220
                                                                        00015230
LAP360((     (*_COMPACT SUBR 2)                                         00015240
(*MOVE 24 000000008X) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00015250
(*ACS NAME) (DC 8) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (S A (QUOTE NULL))   00015260
(CR NILR A) (BC 7 *__*1284) (*LOAD A (SPECIAL SWITCH)) (*LINK NULL 1)   00015270
(*STORE A (SPECIAL SWITCH)) (L A 4 (R0 PDL)) (L A 4 (R0 A))             00015280
(L A 0 (R0 A)) (*LOAD Q (SPECIAL NAME)) (*LINK *_COMPACT 2)             00015290
(BC 15 *__*1283) *__*1284 (*LOAD Q (QUOTE (QUOTE T))) (L A 4 (R0 PDL))  00015300
(*LINK EQUAL 2) (CR NILR A) (BC 8 *__*1290) (*LOAD A (SPECIAL SWITCH))  00015310
(CR NILR A) (BC 8 *__*1292) (*LOAD A (SPECIAL NAME)) (ST A 16 (R0 PDL)) 00015320
(LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE BC))               00015330
(L* R2 (QUOTE 15)) (L* A 16 (R0 PDL)) (*LINK *_ATTACH1 1)               00015340
(BC 15 *__*1283) *__*1292 (LR A NILR) (*STORE A (SPECIAL FLAG))         00015350
*__*1296 (BC 15 *__*1283) *__*1290 (L A 4 (R0 PDL)) (L A 0 (R0 A))      00015360
(S A (QUOTE OR)) (CR NILR A) (BC 7 *__*1297) (L A 4 (R0 PDL))           00015370
(L A 4 (R0 A)) (ST A 16 (R0 PDL)) (*LOAD A (SPECIAL SWITCH))            00015380
(L M 8 (R0 R12)) (ST A 000000004X (R0 M)) (L R1 16 (R0 PDL))            00015390
(ST R1 000000000X (R0 M)) (*LOAD Q (QUOTE T)) (LR A NILR)               00015400
(*LINK *_COMBOOL 4) (BC 15 *__*1283) *__*1297 (L A 4 (R0 PDL))          00015410
(L A 0 (R0 A)) (S A (QUOTE AND)) (CR NILR A) (BC 7 *__*1301)            00015420
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (ST A 16 (R0 PDL))                      00015430
(*LOAD A (SPECIAL SWITCH)) (L M 8 (R0 R12)) (ST A 000000004X (R0 M))    00015440
(L R1 16 (R0 PDL)) (ST R1 000000000X (R0 M)) (*LOAD Q (QUOTE T))        00015450
(*LOAD A (QUOTE T)) (*LINK *_COMBOOL 4) (BC 15 *__*1283) *__*1301       00015460
(L A 4 (R0 PDL)) (L A 0 (R0 A)) (S A (QUOTE EQ)) (CR NILR A)            00015470
(BC 7 *__*1307) (*LOAD Q (SPECIAL STOMAP)) (L A 4 (R0 PDL))             00015480
(*LINK *_CEQ 2) (BC 15 *__*1306) *__*1307 (*LOAD Q (SPECIAL STOMAP))    00015490
(ST Q 16 (R0 PDL)) (*LINK GENSYM 0) (L M 8 (R0 R12))                    00015500
(ST A 000000000X (R0 M)) (L Q 16 (R0 PDL)) (L A 4 (R0 PDL))             00015510
(*LINK *_COMVAL 3) *__*1310 *__*1306 (*LOAD A (SPECIAL SWITCH))         00015520
(CR NILR A) (BC 8 *__*1316) (*LOAD A (QUOTE 7)) (BC 15 *__*1315)        00015530
*__*1316 (*LOAD A (QUOTE 8)) *__*1318 *__*1315 (ST A 16 (R0 PDL))       00015540
(*LOAD A (SPECIAL NAME)) (ST A 20 (R0 PDL)) (LA R0 3 (R0 R0))           00015550
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE BC)) (L* A 16 (R0 PDL))              00015560
(L* A 20 (R0 PDL)) (ST A 16 (R0 PDL)) (LA R0 2 (R0 R0))                 00015570
(BAL R2 16 (R0 R12)) (L* A 16 (R0 PDL)) (L* R2 (QUOTE (CR NILR A)))     00015580
(*LINK *_ATTACH 1) *__*1305 *__*1283 (L A 4 (R0 PDL)) (L A 0 (R0 A))    00015590
(S A (QUOTE OR)) (CR NILR A) (BC 8 *__*1323) (L A 4 (R0 PDL))           00015600
(L A 0 (R0 A)) (S A (QUOTE AND)) (CR NILR A) (BC 8 *__*1323)            00015610
(*LOAD Q (QUOTE (QUOTE T))) (L A 4 (R0 PDL)) (*LINK EQUAL 2)            00015620
(CR NILR A) (BC 8 *__*1321) *__*1323 *__*1322 (LR A NILR)               00015630
(BC 15 *__*1320) *__*1321 (*LOAD A (SPECIAL SWITCH)) (CR NILR A)        00015640
(BC 8 *__*1327) (*LOAD A (QUOTE (QUOTE NIL))) (BC 15 *__*1320) *__*1327 00015650
(LR A NILR) *__*1329 *__*1320 (*STORE A (SPECIAL AC)) (LR A NILR)       00015660
*__*1282 (ST A 12 (R0 PDL)) (LA R1 1 (R0 R0)) (CNOP)                    00015670
(BAL R2 24 (R0 R12)) (*ACS NAME) (DC 8) (L A 12 (R0 PDL)) (*REMOVE NIL) 00015680
) NIL)                                                                  00015690
                                                                        00015700
LAP360((     (*__*1336 SUBR 1)                                          00015710
(*MOVE 16 000000004X) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (L A 4 (R0 A))    00015720
(*LOAD Q (SPECIAL STOMAP)) (ST A 8 (R0 PDL)) (ST Q 12 (R0 PDL))         00015730
(*LINK GENSYM 0) (L M 8 (R0 R12)) (ST A 000000000X (R0 M))              00015740
(L Q 12 (R0 PDL)) (L A 8 (R0 PDL)) (*LINK *_COMVAL 3) (L A 4 (R0 PDL))  00015750
(L A 0 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (QUOTE A)) (*LINK *_STORE 2)     00015760
(LR A NILR) (*REMOVE NIL) ) NIL)                                        00015770
                                                                        00015780
LAP360((     (*_COMPLY SUBR 2)                                          00015790
(*MOVE 20 000000008X) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00015800
(*ACS FN) (DC 4) (*LOAD A (SPECIAL FN)) (L A 4 (R0 A)) (L A 0 (R0 A))   00015810
(L Q 8 (R0 PDL)) (*LINK PAIR 2) (ST A 16 (R0 PDL))                      00015820
(*LOAD Q (SPECIAL ALIST)) (*LOAD A (QUOTE *__*1336))                    00015830
(BAL R2 32 (R0 R12)) (LR Q A) (L A 16 (R0 PDL)) (*LINK MAP 2)           00015840
(ST A 12 (R0 PDL)) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12))        00015850
(*ACS FN) (DC 4) (L A 12 (R0 PDL)) (*REMOVE NIL) ) NIL)                 00015860
                                                                        00015870
LAP360((     (*_COMLIS SUBR 1)                                          00015880
(*MOVE 28 000000004X) (ST NILR 8 (R0 PDL)) (ST NILR 12 (R0 PDL))        00015890
(ST NILR 16 (R0 PDL)) (*LOAD A (SPECIAL QP)) (CR NILR A)                00015900
(BC 8 *__*1365) (*LOAD A (QUOTE ON)) (*STORE A (SPECIAL QP)) *__*1365   00015910
*__*1364 (*LOAD A (QUOTE -1)) (ST A 16 (R0 PDL)) *__*1358               00015920
(L A 4 (R0 PDL)) (CR NILR A) (BC 8 *__*1363) (L A 0 (R0 A))             00015930
(*LINK ATOM 1) (CR NILR A) (BC 7 *__*1361) (L A 4 (R0 PDL))             00015940
(L A 0 (R0 A)) (L A 0 (R0 A)) (S A (QUOTE QUOTE)) (CR NILR A)           00015950
(BC 8 *__*1361) *__*1374 *__*1373 (*LOAD A (SPECIAL OPT)) (CR NILR A)   00015960
(BC 8 *__*1380) (L A 16 (R0 PDL)) (*LINK ZEROP 1) (CR NILR A)           00015970
(BC 8 *__*1380) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (*LINK *_ANYREG 1)      00015980
(CR NILR A) (BC 7 *__*1360) *__*1380 *__*1379 (L A 8 (R0 PDL))          00015990
(CR NILR A) (BC 8 *__*1385) (*LOAD A (SPECIAL AC)) (*LOAD Q (QUOTE A))  00016000
(*LINK *_STORE 2) (BC 15 *__*1369) *__*1385 (*LOAD A (QUOTE T))         00016010
(ST A 8 (R0 PDL)) *__*1388 *__*1369 (*LOAD A (SPECIAL OPT)) (CR NILR A) 00016020
(BC 8 *__*1359) (*LOAD A (SPECIAL QP)) (CR NILR A) (BC 8 *__*1359)      00016030
(L A 4 (R0 PDL)) (L A 0 (R0 A)) (*LINK *_ANYREG 1) (CR NILR A)          00016040
(BC 7 *__*1359) *__*1392 *__*1391 *__*1389 (*LOAD A (SPECIAL MQ))       00016050
(*LOAD Q (QUOTE Q))(*LINK *_STORE 2)(LR A NILR) (*STORE A (SPECIAL MQ)) 00016060
*__*1359 (L A 4 (R0 PDL)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL STOMAP))     00016070
(ST A 20 (R0 PDL)) (ST Q 24 (R0 PDL)) (*LINK GENSYM 0) (L M 8 (R0 R12)) 00016080
(ST A 000000000X (R0 M)) (L Q 24 (R0 PDL)) (L A 20 (R0 PDL))            00016090
(*LINK *_COMVAL 3) (L Q 12 (R0 PDL)) (*LINK CONS 2) (ST A 12 (R0 PDL))  00016100
(BC 15 *__*1362) *__*1360 (*LOAD A (SPECIAL MQ)) (*LOAD Q (QUOTE Q))    00016110
(*LINK *_STORE 2) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (*LINK *_QLOAD 1)     00016120
(*LINK GENSYM 0) (L Q 12 (R0 PDL)) (*LINK CONS 2) (ST A 12 (R0 PDL))    00016130
(L A 0 (R0 A)) (*STORE A (SPECIAL MQ)) (*LOAD A (QUOTE T))              00016140
(*STORE A (SPECIAL QP)) (BC 15 *__*1362) *__*1361 (L A 4 (R0 PDL))      00016150
(L A 0 (R0 A)) (L Q 12 (R0 PDL)) (*LINK CONS 2) (ST A 12 (R0 PDL))      00016160
*__*1362 (L A 4 (R0 PDL)) (L A 4 (R0 A)) (ST A 4 (R0 PDL))              00016170
(L A 16 (R0 PDL)) (*LINK ADD1 1) (ST A 16 (R0 PDL)) (BC 15 *__*1358)    00016180
*__*1363 (*LOAD A (SPECIAL QP)) (S A (QUOTE T)) (CR NILR A)             00016190
(BC 7 *__*1426) (*STORE A (SPECIAL QP)) *__*1426 *__*1425               00016200
(L A 12 (R0 PDL)) (*LINK REVERSE 1) (*REMOVE NIL) ) NIL)                00016210
                                                                        00016220
LAP360((     (*_ATTACH SUBR 1)                                          00016230
(*MOVE 8 000000004X) (*LOAD Q (SPECIAL LISTING)) (L A 4 (R0 PDL))       00016240
(*LINK APPEND 2) (*STORE A (SPECIAL LISTING)) (*REMOVE NIL) ) NIL)      00016250
                                                                        00016260
LAP360((     (*_ATTACH1 SUBR 1)                                         00016270
(*MOVE 8 000000004X) (*LOAD Q (SPECIAL LISTING)) (L A 4 (R0 PDL))       00016280
(*LINK CONS 2) (*STORE A (SPECIAL LISTING)) (*REMOVE NIL) ) NIL)        00016290
                                                                        00016300
LAP360((     (*_QLOAD SUBR 1)                                           00016310
(*MOVE 12 000000004X) (L A 4 (R0 PDL)) (*LINK ATOM 1) (CR NILR A)       00016320
(BC 7 *__*1439) (L A 4 (R0 PDL)) (L A 0 (R0 A))                         00016330
(*LOAD Q (QUOTE (QUOTE SPECIAL))) (*LINK MEMBER 2) (CR NILR A)          00016340
(BC 8 *__*1437) *__*1439 *__*1438 (L A 4 (R0 PDL)) (*LINK *_LMQ 1)      00016350
(*REMOVE NIL) *__*1437 (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))   00016360
(*LINK *_QLOAD 1)(L A 4 (R0 PDL)) (L A 0 (R0 A)) (*LOAD Q (QUOTE OPEN)) 00016370
(*LINK GET 2) (ST A 8 (R0 PDL)) (L Q 8 (R0 PDL)) (L Q 4 (R0 Q))         00016380
(L Q 0 (R0 Q)) (L Q 0 (R0 Q)) (L A 4 (R0 A)) (L A 4 (R0 A))             00016390
(L A 0 (R0 A)) (L M 8 (R0 R12)) (ST A 000000000X (R0 M))                00016400
(*LOAD A (QUOTE Q)) (*LINK SUBST 3) (*LINK REVERSE 1) (*LINK *_ATTACH 1)00016410
(*REMOVE NIL) ) NIL)                                                    00016420
                                                                        00016430
LAP360((     (*__*1456 SUBR 1)                                          00016440
(*MOVE 16 000000004X) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (*LINK *_LOCATE 1)00016450
(L A 0 (R0 A)) (ST A 8 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) 00016460
(L* R2 (QUOTE DC)) (L* A 8 (R0 PDL)) (ST A 8 (R0 PDL)) (L Q 4 (R0 PDL)) 00016470
(L Q 0 (R0 Q)) (ST Q 12 (R0 PDL)) (LA R0 2 (R0 R0))                     00016480
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE *ACS)) (L* A 12 (R0 PDL))            00016490
(ST A 12 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00016500
(L* A 8 (R0 PDL)) (L* A 12 (R0 PDL)) (*LINK *_ATTACH 1) (*REMOVE NIL)   00016510
) NIL)                                                                  00016520
                                                                        00016530
LAP360((     (*_CALL SUBR 2)                                            00016540
(*MOVE 48 000000008X) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00016550
(*ACS FN) (DC 4) (ST NILR 16 (R0 PDL)) (ST NILR 20 (R0 PDL))            00016560
(ST NILR 24 (R0 PDL)) (ST NILR 28 (R0 PDL)) (ST NILR 32 (R0 PDL))       00016570
(*LOAD A (SPECIAL FN))                                                  00016580
(*LOAD Q (QUOTE (SPECBIND SPECRSTR LIST RETURN GO))) (*LINK MEMBER 2)   00016590
(CR NILR A) (BC 7 *__*1471) (L A 8 (R0 PDL)) (CR NILR A)                00016600
(BC 8 *__*1470) (L A 4 (R0 A)) (CR NILR A) (BC 8 *__*1469) *__*1472     00016610
(L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (*LINK REVERSE 1)        00016620
(ST A 16 (R0 PDL)) (L A 8 (R0 PDL)) (*LINK LENGTH 1) (ST A 36 (R0 PDL)) 00016630
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 36 (R0 PDL))               00016640
(L* R2 (QUOTE -3)) (*LOAD Q (SPECIAL ALIST)) (*LINK PLUS 2)             00016650
(ST A 24 (R0 PDL)) (*LOAD Q (QUOTE 22)) (*LINK GREATERP 2) (CR NILR A)  00016660
(BC 8 *__*1486) (*LOAD A (QUOTE ARGS)) (*LINK ERROR 1) *__*1486         00016670
*__*1485 (L A 16 (R0 PDL)) (CR NILR A) (BC 8 *__*1468) *__*1488         00016680
(*LOAD A (QUOTE (L M 8 (R0 R12)))) (*LINK *_ATTACH1 1) *__*1467         00016690
(L A 16 (R0 PDL)) (CR NILR A) (BC 8 *__*1468) *__*1493                  00016700
(L A 16 (R0 PDL)) (L A 0 (R0 A)) (ST A 20 (R0 PDL)) (*LOAD Q (QUOTE 2)) 00016710
(L A 24 (R0 PDL)) (*LINK LEFTSHIFT 2) (ST A 28 (R0 PDL))                00016720
(*LOAD Q (QUOTE (QUOTE NIL))) (L A 20 (R0 PDL)) (*LINK EQUAL 2)         00016730
(CR NILR A) (BC 8 *__*1499) (*LOAD A (QUOTE NILR)) (ST A 32 (R0 PDL))   00016740
(BC 15 *__*1498) *__*1499 (*LOAD Q (SPECIAL AC)) (L A 20 (R0 PDL))      00016750
(*LINK EQUAL 2) (CR NILR A) (BC 8 *__*1501) (*LOAD A (QUOTE A))         00016760
(ST A 32 (R0 PDL)) (BC 15 *__*1498) *__*1501 (L A 20 (R0 PDL))          00016770
(*LINK *_LOCATE 1) (LR Q A) (*LOAD A (QUOTE (L R1))) (*LINK APPEND 2)   00016780
(*LINK *_ATTACH1 1) (*LOAD A (QUOTE R1)) (ST A 32 (R0 PDL)) *__*1504    00016790
*__*1498 (LA R0 4 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE ST))      00016800
(L* A 32 (R0 PDL)) (L* A 28 (R0 PDL)) (L* R2 (QUOTE (R0 M)))            00016810
(*LINK *_ATTACH1 1) (L A 16 (R0 PDL)) (L A 4 (R0 A)) (ST A 16 (R0 PDL)) 00016820
(L A 24 (R0 PDL)) (*LINK SUB1 1) (ST A 24 (R0 PDL)) (BC 15 *__*1467)    00016830
*__*1468 (L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LINK *_LMQ 1) 00016840
*__*1469 (L A 8 (R0 PDL)) (L A 0 (R0 A)) (*LINK *_LAC 1) *__*1470       00016850
(*LOAD A (SPECIAL FN)) (*LOAD Q (QUOTE OPEN)) (*LINK GET 2)             00016860
(ST A 32 (R0 PDL)) (CR NILR A) (BC 8 *__*1524) (L A 0 (R0 A))           00016870
(S A (QUOTE LAMBDA)) (CR NILR A) (BC 7 *__*1527) (L Q 32 (R0 PDL))      00016880
(L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (L Q 0 (R0 Q)) (L A 32 (R0 PDL))          00016890
(L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (L M 8 (R0 R12))           00016900
(ST A 000000000X (R0 M)) (*LOAD A (QUOTE A)) (*LINK SUBST 3)            00016910
(BC 15 *__*1526) *__*1527 (L A 32 (R0 PDL)) *__*1531 *__*1526           00016920
(*LINK REVERSE 1) (BC 15 *__*1523) *__*1524 (*LOAD Q (SPECIAL FN))      00016930
(ST Q 36 (R0 PDL)) (L A 8 (R0 PDL)) (*LINK LENGTH 1) (ST A 40 (R0 PDL)) 00016940
(LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE *LINK))            00016950
(L* A 36 (R0 PDL)) (L* A 40 (R0 PDL)) (ST A 36 (R0 PDL))                00016960
(LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 36 (R0 PDL)) *__*1532      00016970
*__*1523 (*LINK *_ATTACH 1) (LR A NILR) (*STORE A (SPECIAL AC))         00016980
(*LOAD A (SPECIAL QP)) (CR NILR A) (BC 8 *__*1540) (L A 32 (R0 PDL))    00016990
(CR NILR A) (BC 8 *__*1540) (L A 0 (R0 A)) (S A (QUOTE LAMBDA))         00017000
(CR NILR A) (BC 8 *__*1538) *__*1540 *__*1539 (LR A NILR)               00017010
(*STORE A (SPECIAL MQ)) *__*1538 *__*1537 (LR A NILR) (BC 15 *__*1466)  00017020
*__*1471 (*LOAD A (SPECIAL FN)) (S A (QUOTE GO)) (CR NILR A)            00017030
(BC 7 *__*1547) (*LOAD A (QUOTE GO)) (*LINK ERROR 1) (BC 15 *__*1546)   00017040
*__*1547 (*LOAD A (SPECIAL FN)) (S A (QUOTE RETURN)) (CR NILR A)        00017050
(BC 7 *__*1549) (L A 8 (R0 PDL)) (L A 0 (R0 A)) (*LINK *_LAC 1)         00017060
(*LOAD A (SPECIAL RETN)) (CR NILR A) (BC 8 *__*1555)                    00017070
(*LOAD A (SPECIAL RETN)) (ST A 36 (R0 PDL)) (LA R0 3 (R0 R0))           00017080
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE BC)) (L* R2 (QUOTE 15))              00017090
(L* A 36 (R0 PDL)) (BC 15 *__*1554) *__*1555                            00017100
(*LOAD A (QUOTE (*REMOVE NIL))) *__*1558 *__*1554 (*LINK *_ATTACH1 1)   00017110
(LR A NILR) (BC 15 *__*1546) *__*1549 (*LOAD A (SPECIAL FN))            00017120
(S A (QUOTE LIST)) (CR NILR A) (BC 7 *__*1561) (ST NILR 36 (R0 PDL))    00017130
(ST NILR 40 (R0 PDL)) (L A 8 (R0 PDL)) (CR NILR A) (BC 7 *__*1565)      00017140
(*LOAD A (QUOTE (LR A NILR))) (*LINK *_ATTACH1 1) (BC 15 *__*1546)      00017150
*__*1565 *__*1564 (*LOAD A (SPECIAL AC)) (CR NILR A) (BC 8 *__*1569)    00017160
(*LOAD A (SPECIAL AC)) (*LINK *_LOCATE 1) *__*1569 *__*1568             00017170
(*LOAD A (SPECIAL MQ)) (CR NILR A) (BC 8 *__*1573)                      00017180
(*LOAD A (SPECIAL MQ)) (*LINK *_LOCATE 1) *__*1573 *__*1572 (LR A NILR) 00017190
(*STORE A (SPECIAL AC)) (LR A NILR) (*STORE A (SPECIAL MQ))             00017200
(L A 8 (R0 PDL)) (*LINK LENGTH 1) (ST A 44 (R0 PDL)) (LA R0 4 (R0 R0))  00017210
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE LA)) (L* R2 (QUOTE R0))              00017220
(L* A 44 (R0 PDL)) (L* R2 (QUOTE (R0 R0))) (ST A 44 (R0 PDL))           00017230
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))                                  00017240
(L* R2 (QUOTE (BAL R2 16 (R0 R12)))) (L* A 44 (R0 PDL))                 00017250
(*LINK *_ATTACH 1) (L A 8 (R0 PDL)) (ST A 36 (R0 PDL)) *__*1563         00017260
(L A 36 (R0 PDL)) (CR NILR A) (BC 8 *__*1546) *__*1585 *__*1584         00017270
(L A 36 (R0 PDL)) (L A 0 (R0 A)) (*LINK *_LOCATE 1) (ST A 40 (R0 PDL))  00017280
(L A 0 (R0 A)) (L A 0 (R0 A)) (S A (QUOTE QUOTE)) (CR NILR A)           00017290
(BC 7 *__*1592) (L Q 40 (R0 PDL)) (L Q 0 (R0 Q)) (ST Q 44 (R0 PDL))     00017300
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE R2))               00017310
(L* A 44 (R0 PDL)) (BC 15 *__*1591) *__*1592 (L A 40 (R0 PDL))          00017320
(L A 0 (R0 A)) (L A 0 (R0 A)) (S A (QUOTE SPECIAL)) (CR NILR A)         00017330
(BC 7 *__*1595) (L Q 40 (R0 PDL)) (L Q 0 (R0 Q)) (ST Q 44 (R0 PDL))     00017340
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* R2 (QUOTE M))                00017350
(L* A 44 (R0 PDL)) (BC 15 *__*1591) *__*1595 (L Q 40 (R0 PDL))          00017360
(*LOAD A (QUOTE A)) (*LINK CONS 2) *__*1598 *__*1591 (LR Q A)           00017370
(*LOAD A (QUOTE L*))(*LINK CONS 2)(*LINK *_ATTACH1 1) (L A 36 (R0 PDL)) 00017380
(L A 4 (R0 A)) (ST A 36 (R0 PDL)) (BC 15 *__*1563) *__*1561             00017390
(*LOAD A (SPECIAL FN)) (*LOAD Q (QUOTE (SPECBIND SPECRSTR)))            00017400
(*LINK MEMBER 2) (CR NILR A) (BC 8 *__*1602) (*LOAD A (SPECIAL FN))     00017410
(S A (QUOTE SPECBIND)) (CR NILR A) (BC 7 *__*1609) (*LOAD A (QUOTE 20)) 00017420
(BC 15 *__*1608) *__*1609 (*LOAD A (QUOTE 24)) *__*1611 *__*1608        00017430
(ST A 36 (R0 PDL)) (LA R0 4 (R0 R0)) (BAL R2 16 (R0 R12))               00017440
(L* R2 (QUOTE BAL)) (L* R2 (QUOTE R2)) (L* A 36 (R0 PDL))               00017450
(L* R2 (QUOTE (R0 R12))) (ST A 36 (R0 PDL)) (L A 8 (R0 PDL))            00017460
(L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LINK LENGTH 1)           00017470
(ST A 40 (R0 PDL)) (LA R0 4 (R0 R0)) (BAL R2 16 (R0 R12))               00017480
(L* R2 (QUOTE LA)) (L* R2 (QUOTE R1)) (L* A 40 (R0 PDL))                00017490
(L* R2 (QUOTE (R0 R0))) (ST A 40 (R0 PDL)) (LA R0 3 (R0 R0))            00017500
(BAL R2 16 (R0 R12)) (L* A 36 (R0 PDL)) (L* R2 (QUOTE (CNOP)))          00017510
(L* A 40 (R0 PDL)) (*LINK *_ATTACH 1) (L A 8 (R0 PDL)) (L A 0 (R0 A))   00017520
(L A 4 (R0 A)) (L A 0 (R0 A)) (ST A 36 (R0 PDL))                        00017530
(*LOAD Q (SPECIAL ALIST)) (*LOAD A (QUOTE *__*1456))                    00017540
(BAL R2 32 (R0 R12)) (LR Q A) (L A 36 (R0 PDL)) (*LINK MAPLIST 2)       00017550
*__*1602 *__*1546 (LR A NILR) *__*1466 (ST A 12 (R0 PDL))               00017560
(LA R1 1 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12)) (*ACS FN) (DC 4)          00017570
(L A 12 (R0 PDL)) (*REMOVE NIL) ) NIL)                                  00017580
                                                                        00017590
LAP360((     (*_CEQ SUBR 2)                                             00017600
(*MOVE 28 000000008X) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00017610
(*ACS STOMAP) (DC 8) (ST NILR 20 (R0 PDL)) (L A 4 (R0 PDL))             00017620
(L A 4 (R0 A)) (*LINK *_COMLIS 1) (ST A 16 (R0 PDL)) (L A 0 (R0 A))     00017630
(*LOAD Q (SPECIAL AC)) (*LINK EQUAL 2) (CR NILR A) (BC 8 *__*1626)      00017640
(L A 16 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (SPECIAL MQ))  00017650
(*LINK EQUAL 2) (CR NILR A) (BC 8 *__*1636) (*LOAD A (SPECIAL MQ))      00017660
(ST A 20 (R0 PDL)) (BC 15 *__*1631) *__*1636 (L A 16 (R0 PDL))          00017670
(L A 4 (R0 A)) (L A 0 (R0 A)) (*LINK *_LOCATE 1) (ST A 20 (R0 PDL))     00017680
*__*1640 *__*1631 (BC 15 *__*1627) *__*1626 (L A 16 (R0 PDL))           00017690
(L A 0 (R0 A)) (*LINK *_LOCATE 1) (ST A 20 (R0 PDL)) (L A 16 (R0 PDL))  00017700
(L A 4 (R0 A)) (L A 0 (R0 A)) (*LINK *_LAC 1) *__*1627 (L A 20 (R0 PDL))00017710
(L A 0 (R0 A)) (L A 0 (R0 A)) (S A (QUOTE QUOTE)) (CR NILR A)           00017720
(BC 8 *__*1628) *__*1649 (*LOAD A (QUOTE (AR A NILR)))                  00017730
(*LINK *_ATTACH1 1) *__*1628 (L A 20 (R0 PDL)) (L A 0 (R0 A))           00017740
(L A 0 (R0 A)) (S A (QUOTE SPECIAL)) (CR NILR A) (BC 7 *__*1655)        00017750
(*LOAD Q (SPECIAL MQ)) (L A 20 (R0 PDL)) (*LINK EQUAL 2) (CR NILR A)    00017760
(BC 8 *__*1657) (*LOAD A (QUOTE (S A 0 (NILR Q)))) (*LINK *_ATTACH1 1)  00017770
(BC 15 *__*1654) *__*1657 (L Q 20 (R0 PDL)) (*LOAD A (QUOTE (L Q)))     00017780
(*LINK APPEND 2) (ST A 24 (R0 PDL)) (LA R0 2 (R0 R0))                   00017790
(BAL R2 16 (R0 R12)) (L* A 24 (R0 PDL))                                 00017800
(L* R2 (QUOTE (S A 0 (NILR Q)))) (*LINK *_ATTACH 1) *__*1660            00017810
(BC 15 *__*1654) *__*1655 (*LOAD Q (SPECIAL MQ)) (L A 20 (R0 PDL))      00017820
(*LINK EQUAL 2) (CR NILR A) (BC 8 *__*1663) (*LOAD A (QUOTE (SR A Q)))  00017830
(*LINK *_ATTACH1 1) (BC 15 *__*1654) *__*1663 (L Q 20 (R0 PDL))         00017840
(*LOAD A (QUOTE (S A))) (*LINK APPEND 2) (*LINK *_ATTACH1 1) *__*1666   00017850
*__*1654 (*LOAD A (SPECIAL SWITCH)) (*LINK NULL 1)                      00017860
(*STORE A (SPECIAL SWITCH)) (LR A NILR) *__*1625 (ST A 12 (R0 PDL))     00017870
(LA R1 1 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12)) (*ACS STOMAP) (DC 8)      00017880
(L A 12 (R0 PDL)) (*REMOVE NIL) ) NIL)                                  00017890
                                                                        00017900
LAP360((     (*_STORE SUBR 2)                                           00017910
(*MOVE 20 000000008X) (L A 4 (R0 PDL)) (CR NILR A) (BC 8 *__*1680)      00017920
(L A 0 (R0 A)) (S A (QUOTE QUOTE)) (CR NILR A) (BC 7 *__*1678) *__*1680 00017930
*__*1679 (LR A NILR) (*REMOVE NIL) *__*1678 *__*1677                    00017940
(*LOAD Q (SPECIAL STOMAP)) (L Q 0 (R0 Q)) (L Q 4 (R0 Q)) (L Q 0 (R0 Q)) 00017950
(L Q 0 (R0 Q)) (ST Q 12 (R0 PDL)) (LA R0 2 (R0 R0))                     00017960
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE 4)) (L* A 12 (R0 PDL))               00017970
(*LOAD Q (SPECIAL ALIST)) (*LINK PLUS 2) (ST A 12 (R0 PDL))             00017980
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 12 (R0 PDL))               00017990
(L* R2 (QUOTE (R0 PDL))) (ST A 12 (R0 PDL)) (LA R0 2 (R0 R0))           00018000
(BAL R2 16 (R0 R12)) (L* A 4 (R0 PDL)) (L* A 12 (R0 PDL))               00018010
(*LOAD Q (SPECIAL STOMAP)) (*LINK CONS 2) (*STORE A (SPECIAL STOMAP))   00018020
(L A 8 (R0 PDL)) (CR NILR A) (BC 8 *__*1691) (L A 4 (R0 PDL))           00018030
(*LINK *_LOCATE 1) (LR Q A) (L A 8 (R0 PDL)) (*LINK CONS 2) (LR Q A)    00018040
(*LOAD A (QUOTE ST))(*LINK CONS 2)(*LINK *_ATTACH1 1) *__*1691 *__*1690 00018050
(*LOAD A (SPECIAL LNGTH)) (*LOAD Q (SPECIAL STOMAP)) (L Q 0 (R0 Q))     00018060
(L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (L Q 0 (R0 Q)) (ST A 12 (R0 PDL))         00018070
(ST Q 16 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00018080
(L* A 12 (R0 PDL)) (L* A 16 (R0 PDL)) (*LOAD Q (SPECIAL ALIST))         00018090
(*LINK MAX 2) (*STORE A (SPECIAL LNGTH)) (LR A NILR) (*REMOVE NIL)      00018100
) NIL)                                                                  00018110
                                                                        00018120
LAP360((     (*_LAC SUBR 1)                                             00018130
(*MOVE 8 000000004X) (*LOAD A (SPECIAL AC)) (L Q 4 (R0 PDL))            00018140
(*LINK EQUAL 2) (CR NILR A) (BC 8 *__*1703) (LR A NILR) (*REMOVE NIL)   00018150
*__*1703 (L A 4 (R0 PDL)) (*LINK *_LOCATE 1) (LR Q A)                   00018160
(*LOAD A (QUOTE (L A))) (*LINK APPEND 2) (*LINK *_ATTACH1 1)            00018170
(L A 4 (R0 PDL)) (*STORE A (SPECIAL AC)) (*REMOVE NIL) ) NIL)           00018180
                                                                        00018190
LAP360((     (*_LMQ SUBR 1)                                             00018200
(*MOVE 8 000000004X) (*LOAD A (SPECIAL MQ)) (L Q 4 (R0 PDL))            00018210
(*LINK EQUAL 2) (CR NILR A) (BC 8 *__*1711) (LR A NILR) (*REMOVE NIL)   00018220
*__*1711 (*LOAD A (SPECIAL AC)) (L Q 4 (R0 PDL)) (*LINK EQUAL 2)        00018230
(CR NILR A) (BC 8 *__*1717) (*LOAD A (QUOTE (LR Q A))) (BC 15 *__*1716) 00018240
*__*1717 (L A 4 (R0 PDL)) (*LINK *_LOCATE 1) (LR Q A)                   00018250
(*LOAD A (QUOTE (L Q))) (*LINK APPEND 2) *__*1720 *__*1716              00018260
(*LINK *_ATTACH1 1) (L A 4 (R0 PDL)) (*STORE A (SPECIAL MQ))            00018270
(*REMOVE NIL) ) NIL)                                                    00018280
                                                                        00018290
LAP360((     (*_LOCATE SUBR 1)                                          00018300
(*MOVE 20 000000004X) (L A 4 (R0 PDL)) (L A 0 (R0 A))                   00018310
(S A (QUOTE QUOTE)) (CR NILR A) (BC 8 *__*1726) (L A 4 (R0 PDL))        00018320
(L A 0 (R0 A)) (S A (QUOTE SPECIAL)) (CR NILR A) (BC 7 *__*1724)        00018330
*__*1726 *__*1725 (LR Q NILR) (L A 4 (R0 PDL)) (*LINK CONS 2)           00018340
(*REMOVE NIL) *__*1724 (*LOAD A (QUOTE ALIST)) (AR A NILR)              00018350
(S A 4 (R0 PDL)) (CR NILR A) (BC 7 *__*1729) (LA R0 2 (R0 R0))          00018360
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE SPECIAL)) (L* A 4 (R0 PDL))          00018370
(LR Q NILR) (*LINK CONS 2) (*REMOVE NIL) *__*1729 *__*1732              00018380
(*LOAD Q (SPECIAL STOMAP)) (L M 8 (R0 R12)) (ST NILR 000000000X (R0 M)) 00018390
(L A 4 (R0 PDL)) (*LINK SASSOC 3) (ST A 8 (R0 PDL)) (CR NILR A)         00018400
(BC 8 *__*1735) (L A 4 (R0 A)) (L A 0 (R0 A)) (*REMOVE NIL) *__*1735    00018410
(*LOAD Q (SPECIAL AC)) (ST Q 12 (R0 PDL)) (L A 12 (R0 PDL)) (AR A NILR) 00018420
(S A 4 (R0 PDL)) (CR NILR A) (BC 8 *__*1739) (ST Q 12 (R0 PDL))         00018430
(*LOAD Q (SPECIAL MQ)) (ST Q 16 (R0 PDL)) (L A 16 (R0 PDL)) (AR A NILR) 00018440
(S A 4 (R0 PDL)) (CR NILR A) (BC 8 *__*1739) *__*1741 *__*1740          00018450
(ST Q 12 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00018460
(L* A 4 (R0 PDL)) (L* R2 (QUOTE UNDECLARED)) (*LINK ERROR 1) *__*1739   00018470
*__*1734 (*LOAD Q (SPECIAL AC)) (ST Q 12 (R0 PDL)) (L A 12 (R0 PDL))    00018480
(AR A NILR) (S A 4 (R0 PDL)) (CR NILR A) (BC 7 *__*1747)                00018490
(*LOAD A (QUOTE A)) (BC 15 *__*1746) *__*1747 (*LOAD A (QUOTE Q))       00018500
*__*1749 *__*1746 (LR Q A) (L A 4 (R0 PDL)) (*LINK *_STORE 2)           00018510
(BC 15 *__*1732) ) NIL)                                                 00018520
                                                                        00018530
LAP360((     (OPTIMIZE SUBR 1)                                          00018540
(*MOVE 8 000000004X) (L A 4 (R0 PDL)) (*STORE A (SPECIAL OPT))          00018550
(*REMOVE NIL) ) NIL)                                                    00018560
                                                                        00018570
LAP360((     (*_OPTFN SUBR 1)                                           00018580
(*MOVE 28 000000004X) (ST NILR 16 (R0 PDL)) *__*1755 (L A 4 (R0 PDL))   00018590
(L A 0 (R0 A)) (ST A 8 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A))        00018600
(ST A 12 (R0 PDL)) (L A 8 (R0 PDL)) (*LINK ATOM 1) (CR NILR A)          00018610
(BC 7 *__*1774) (L A 8 (R0 PDL)) (L A 0 (R0 A)) (S A (QUOTE BC))        00018620
(CR NILR A) (BC 8 *__*1756) (L A 8 (R0 PDL)) (L A 0 (R0 A))             00018630
(S A (QUOTE L)) (CR NILR A) (BC 8 *__*1760) (L A 8 (R0 PDL))            00018640
(L A 0 (R0 A)) (S A (QUOTE LR)) (CR NILR A) (BC 8 *__*1764)             00018650
(L A 8 (R0 PDL)) (L A 0 (R0 A)) (S A (QUOTE *LOAD)) (CR NILR A)         00018660
(BC 8 *__*1766) (L A 8 (R0 PDL)) (L A 0 (R0 A)) (S A (QUOTE ST))        00018670
(CR NILR A) (BC 8 *__*1767) *__*1778 (BC 15 *__*1774) *__*1756          00018680
(L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (QUOTE 15))     00018690
(*LINK EQUAL 2) (CR NILR A) (BC 8 *__*1774) (L A 12 (R0 PDL))           00018700
(CR NILR A) (BC 8 *__*1774) *__*1796 *__*1795                           00018710
(*LOAD A (SPECIAL LISTING)) (CR NILR A) (BC 8 *__*1802)                 00018720
(*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A)) (*LINK ATOM 1) (CR NILR A)   00018730
(BC 7 *__*1802) (*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A))              00018740
(L A 0 (R0 A)) (S A (QUOTE BC)) (CR NILR A) (BC 7 *__*1802)             00018750
(*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A)) (L A 4 (R0 A))               00018760
(L A 0 (R0 A)) (*LOAD Q (QUOTE 7)) (*LINK EQUAL 2) (CR NILR A)          00018770
(BC 8 *__*1802) (*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A))              00018780
(L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (L Q 12 (R0 PDL))          00018790
(L Q 0 (R0 Q)) (AR A NILR) (SR A Q) (CR NILR A) (BC 8 *__*1759)         00018800
*__*1802 *__*1801 (L A 12 (R0 PDL)) (L A 0 (R0 A)) (*LINK ATOM 1)       00018810
(CR NILR A) (BC 8 *__*1758) *__*1793 (L A 8 (R0 PDL)) (L A 4 (R0 A))    00018820
(L A 4 (R0 A)) (L A 0 (R0 A)) (ST A 16 (R0 PDL)) *__*1757               00018830
(L A 12 (R0 PDL)) (CR NILR A) (BC 8 *__*1774) (L A 0 (R0 A))            00018840
(*LINK ATOM 1) (CR NILR A) (BC 8 *__*1774) *__*1824 *__*1823            00018850
(L A 12 (R0 PDL)) (L A 0 (R0 A)) (AR A NILR) (S A 16 (R0 PDL))          00018860
(CR NILR A) (BC 8 *__*1773) *__*1821 (L A 12 (R0 PDL)) (L A 4 (R0 A))   00018870
(ST A 12 (R0 PDL)) (BC 15 *__*1757) *__*1758 (L A 12 (R0 PDL))          00018880
(L A 4 (R0 A)) (ST A 12 (R0 PDL)) (L Q 12 (R0 PDL)) (L A 8 (R0 PDL))    00018890
(*LINK CONS 2) (ST A 4 (R0 PDL)) (BC 15 *__*1756) *__*1759              00018900
(L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A))           00018910
(ST A 20 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00018920
(L* R2 (QUOTE BC)) (L* R2 (QUOTE 8)) (L* A 20 (R0 PDL))                 00018930
(*LOAD Q (SPECIAL LISTING)) (L Q 4 (R0 Q)) (*LINK CONS 2)               00018940
(*STORE A (SPECIAL LISTING)) (BC 15 *__*1773) *__*1760 (L A 8 (R0 PDL)) 00018950
(L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LINK NUMBERP 1)          00018960
(CR NILR A) (BC 8 *__*1846) (L A 8 (R0 PDL)) (L A 4 (R0 A))             00018970
(L A 0 (R0 A)) (L Q 8 (R0 PDL)) (L Q 4 (R0 Q)) (L Q 4 (R0 Q))           00018980
(L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (*LINK MEMBER 2) (CR NILR A)              00018990
(BC 7 *__*1774) *__*1846 *__*1845 *__*1843 *__*1761 (L A 12 (R0 PDL))   00019000
(CR NILR A) (BC 8 *__*1762) (L Q 12 (R0 PDL)) (L Q 0 (R0 Q))            00019010
(L A 8 (R0 PDL)) (*LINK EQUAL 2) (CR NILR A) (BC 7 *__*1773)            00019020
(L A 12 (R0 PDL)) (L A 0 (R0 A)) (*LINK ATOM 1) (CR NILR A)             00019030
(BC 8 *__*1762) *__*1853 (L A 12 (R0 PDL)) (L A 4 (R0 A))               00019040
(ST A 12 (R0 PDL)) (BC 15 *__*1761) *__*1762                            00019050
(*LOAD A (SPECIAL LISTING)) (ST A 12 (R0 PDL)) *__*1763                 00019060
(L A 12 (R0 PDL)) (CR NILR A) (BC 8 *__*1774) (L Q 12 (R0 PDL))         00019070
(L Q 0 (R0 Q)) (L A 8 (R0 PDL)) (*LINK EQUAL 2) (CR NILR A)             00019080
(BC 7 *__*1773) (L A 12 (R0 PDL)) (L A 0 (R0 A)) (*LINK ATOM 1)         00019090
(CR NILR A) (BC 7 *__*1774) (L A 12 (R0 PDL)) (L A 0 (R0 A))            00019100
(L A 0 (R0 A)) (*LOAD Q (QUOTE (CR BC))) (*LINK MEMBER 2) (CR NILR A)   00019110
(BC 8 *__*1774) *__*1875 *__*1874 *__*1867 (L A 12 (R0 PDL))            00019120
(L A 4 (R0 A)) (ST A 12 (R0 PDL)) (BC 15 *__*1763) *__*1764             00019130
(*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A)) (*LINK ATOM 1) (CR NILR A)   00019140
(BC 7 *__*1774) (*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A))              00019150
(L A 0 (R0 A)) (S A (QUOTE *LOAD)) (CR NILR A) (BC 8 *__*1892)          00019160
(*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A)) (L A 0 (R0 A))               00019170
(S A (QUOTE L)) (CR NILR A) (BC 7 *__*1890) *__*1892 *__*1891           00019180
(*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A)) (L A 4 (R0 A))               00019190
(L A 0 (R0 A)) (L Q 8 (R0 PDL)) (L Q 4 (R0 Q)) (L Q 4 (R0 Q))           00019200
(L Q 0 (R0 Q)) (AR A NILR) (SR A Q) (CR NILR A) (BC 8 *__*1765)         00019210
*__*1890 *__*1889 *__*1883 (BC 15 *__*1760) *__*1765                    00019220
(*LOAD A (SPECIAL LISTING)) (ST A 20 (R0 PDL))                          00019230
(*LOAD A (SPECIAL LISTING)) (L A 0 (R0 A)) (L A 0 (R0 A))               00019240
(ST A 24 (R0 PDL)) (L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))       00019250
(*LOAD Q (SPECIAL LISTING)) (L Q 0 (R0 Q)) (L Q 4 (R0 Q))               00019260
(L Q 4 (R0 Q)) (*LINK CONS 2) (LR Q A) (L A 24 (R0 PDL)) (*LINK CONS 2) 00019270
(LR Q A) (L A 20 (R0 PDL)) (*LINK RPLACA 2) (BC 15 *__*1773) *__*1766   00019280
(L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A))           00019290
(*LOAD Q (QUOTE (QUOTE NIL))) (*LINK EQUAL 2) (CR NILR A)               00019300
(BC 8 *__*1774) *__*1912 (L Q 8 (R0 PDL)) (L Q 4 (R0 Q)) (L Q 0 (R0 Q)) 00019310
(ST Q 20 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00019320
(L* R2 (QUOTE LR)) (L* A 20 (R0 PDL)) (L* R2 (QUOTE NILR)) (LR Q A)     00019330
(L A 4 (R0 PDL)) (*LINK RPLACA 2) (BC 15 *__*1755) *__*1767             00019340
(L A 8 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (ST A 16 (R0 PDL))       00019350
(L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (QUOTE (R0 M))) (*LINK EQUAL 2)  00019360
(CR NILR A) (BC 7 *__*1774) *__*1922 *__*1768 (L A 12 (R0 PDL))         00019370
(CR NILR A) (BC 8 *__*1770) (L A 0 (R0 A)) (*LINK ATOM 1) (CR NILR A)   00019380
(BC 7 *__*1769) (L A 12 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A))         00019390
(S A (QUOTE ST)) (CR NILR A) (BC 7 *__*1935) (L Q 12 (R0 PDL))          00019400
(L Q 0 (R0 Q)) (L Q 4 (R0 Q)) (L Q 4 (R0 Q)) (L A 16 (R0 PDL))          00019410
(*LINK EQUAL 2) (CR NILR A) (BC 7 *__*1773) *__*1935 *__*1934           00019420
(L A 12 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A)) (S A (QUOTE L))         00019430
(CR NILR A) (BC 7 *__*1943) (L Q 12 (R0 PDL)) (L Q 0 (R0 Q))            00019440
(L Q 4 (R0 Q)) (L Q 4 (R0 Q)) (L A 16 (R0 PDL)) (*LINK EQUAL 2)         00019450
(CR NILR A) (BC 7 *__*1770) *__*1943 *__*1942 (L A 12 (R0 PDL))         00019460
(L A 0 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (QUOTE (L *LOAD *LINK LR ST)))   00019470
(*LINK MEMBER 2) (CR NILR A) (BC 8 *__*1770) *__*1941 *__*1940 *__*1927 00019480
*__*1769 (L A 12 (R0 PDL)) (L A 4 (R0 A)) (ST A 12 (R0 PDL))            00019490
(BC 15 *__*1768) *__*1770 (L A 4 (R0 PDL)) (L A 4 (R0 A))               00019500
(ST A 12 (R0 PDL)) (L A 8 (R0 PDL)) (L A 4 (R0 A)) (ST A 16 (R0 PDL))   00019510
*__*1771 (L A 12 (R0 PDL)) (CR NILR A) (BC 8 *__*1774) (L A 0 (R0 A))   00019520
(*LINK ATOM 1) (CR NILR A) (BC 7 *__*1774) *__*1959 *__*1958            00019530
(L A 12 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A)) (S A (QUOTE L))         00019540
(CR NILR A) (BC 7 *__*1965) (L Q 12 (R0 PDL)) (L Q 0 (R0 Q))            00019550
(L Q 4 (R0 Q)) (L A 16 (R0 PDL)) (*LINK EQUAL 2) (CR NILR A)            00019560
(BC 7 *__*1772) *__*1965 *__*1964 (L A 12 (R0 PDL)) (L A 0 (R0 A))      00019570
(L A 0 (R0 A)) (*LOAD Q (QUOTE (BC CR L LR *LOAD))) (*LINK MEMBER 2)    00019580
(CR NILR A) (BC 8 *__*1774) (L A 16 (R0 PDL)) (L A 0 (R0 A))            00019590
(L Q 12 (R0 PDL)) (L Q 0 (R0 Q)) (L Q 4 (R0 Q)) (L Q 0 (R0 Q))          00019600
(AR A NILR) (SR A Q) (CR NILR A) (BC 8 *__*1774) *__*1971 *__*1970      00019610
*__*1956 (L A 12 (R0 PDL)) (L A 4 (R0 A)) (ST A 12 (R0 PDL))            00019620
(BC 15 *__*1771) *__*1772 (L Q 12 (R0 PDL)) (L Q 4 (R0 Q))              00019630
(L Q 0 (R0 Q)) (L A 12 (R0 PDL)) (*LINK RPLACA 2) (L Q 12 (R0 PDL))     00019640
(L Q 4 (R0 Q)) (L Q 4 (R0 Q)) (*LINK RPLACD 2) (BC 15 *__*1774)         00019650
*__*1773 (L A 4 (R0 PDL)) (L A 4 (R0 A)) (ST A 4 (R0 PDL)) *__*1774     00019660
(L A 4 (R0 PDL)) (*REMOVE NIL) ) NIL)                                   00019670
REMEXPR((*_PASSONE *_PROGITER *_PI1 *_PI3 *_PALAM *_PA1                 00019680
 *_PA2 *_PA3 *_PA4 *_PA7 *_PA8                                          00019690
 *_PAFORM   *_PAFORM1 *_PHASE2 *_COMVAL *_COMBOOL *_COMCOND             00019700
 *_COMPROG *_COMPACT *_COMPLY                                           00019710
 *_COMLIS *_ATTACH *_ATTACH1 *_QLOAD *_CALL *_CEQ *_STORE *_LAC *_LMQ   00019720
 *_LOCATE   OPTIMIZE *_OPTFN))                                          00019730
                                                                        00019740
REMPROP (OPT APVAL)                                                     00019750
                                                                        00019760
OPTIMIZE (T)                                                            00019770
                                                                        00019780
UNSPECIAL((FORM B G NAME GS G2 FN AC MQ QP STOMAP LISTING GOLIST SWITCH 00019790
          RETN FLAG MODE LNGTH OPT))                                    00019800
                                                                        00019810
                                                                        00019820
                                                                        00019830
COMMENT (******** Compilation of LAP ********)                          00019840
                                                                        00019850
SPECIAL ((BPSV LOC LOCE QLST Y Z PLAP PWRDS))                           00019860
                                                                        00019870
COMMON ((BPS))                                                          00019880
                                                                        00019890
LAP360((     (LAP360 SUBR 2)                                            00019900
(*MOVE 52 000000008X) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 20 (R0 R12))     00019910
(*ACS Y) (DC 8) (ST NILR 20 (R0 PDL)) (ST NILR 24 (R0 PDL))             00019920
(ST NILR 28 (R0 PDL)) (ST NILR 32 (R0 PDL)) (LA R1 4 (R0 R0)) (CNOP)    00019930
(BAL R2 20 (R0 R12)) (*ACS LOC) (DC 20) (*ACS QLST) (DC 24) (*ACS BPSV) 00019940
(DC 28) (*ACS LOCE) (DC 32) (ST NILR 36 (R0 PDL)) (ST NILR 40 (R0 PDL)) 00019950
(*LOAD A (SPECIAL PLAP)) (CR NILR A) (BC 8 *__*2023)                    00019960
(*LOAD Q (SPECIAL ALIST)) (*LOAD A (QUOTE PRINT)) (BAL R2 32 (R0 R12))  00019970
(LR Q A)(L A 4 (R0 PDL))(*LINK MAPCAR 2) *__*2023 (*LOAD A (QUOTE BPS)) 00019980
(*LOAD Q (SPECIAL ALIST)) (BAL R2 36 (R0 R12)) (L A 0 (R0 A))           00019990
(*LINK *_LOGX 1) (*STORE A (SPECIAL BPSV)) (*LOAD A (SPECIAL BPSV))     00020000
(ST A 36 (R0 PDL)) (*LOAD Q (QUOTE 4)) (*LOAD A (QUOTE 050207000X))     00020010
(*LINK PLANT1 2) (*LOAD Q (QUOTE 4)) (*LOAD A (QUOTE 08674C000X))       00020020
(*LINK PLANT 2) (*LOAD Q (QUOTE 4)) (*LOAD A (QUOTE 050307000X))        00020030
(*LINK PLANT 2) (*LOAD Q (QUOTE 4)) (*LOAD A (QUOTE 08674C000X))        00020040
(*LINK PLANT 2) (*LOAD Q (QUOTE 4)) (*LOAD A (QUOTE 007000530X))        00020050
(*LINK PLANT 2) (*LOAD A (QUOTE 0)) (*STORE A (SPECIAL LOC))            00020060
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (ST A 44 (R0 PDL))                      00020070
(*LOAD Q (SPECIAL ALIST))(*LOAD A (QUOTE *_LABLER))(BAL R2 32 (R0 R12)) 00020080
(LR Q A) (L A 44 (R0 PDL)) (*LINK MAPLIST 2) (L A 4 (R0 PDL))           00020090
(L A 0 (R0 A)) (ST A 40 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A))       00020100
(ST A 4 (R0 PDL)) (*LOAD A (SPECIAL LOC)) (*STORE A (SPECIAL LOCE))     00020110
(*LOAD A (SPECIAL LOC)) (*LOAD Q (QUOTE -1)) (*LINK LEFTSHIFT 2)        00020120
(*LINK EVENP 1) (CR NILR A) (BC 7 *__*2022) (*LOAD A (SPECIAL LOC))     00020130
(ST A 44 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00020140
(L* A 44 (R0 PDL)) (L* R2 (QUOTE 2)) (*LOAD Q (SPECIAL ALIST))          00020150
(*LINK PLUS 2) (*STORE A (SPECIAL LOC)) *__*2022 *__*2021               00020160
(*LOAD Q (SPECIAL ALIST)) (*LOAD A (QUOTE *_ASSEMBLE))                  00020170
(BAL R2 32 (R0 R12)) (LR Q A) (L A 4 (R0 PDL)) (*LINK MAPCAR 2)         00020180
(*LINK *_QSET 0) (L A 40 (R0 PDL)) (L A 0 (R0 A)) (L Q 40 (R0 PDL))     00020190
(L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (*LINK GET 2) (ST A 4 (R0 PDL))           00020200
(*LOAD A (SPECIAL BPSV)) (ST A 44 (R0 PDL)) (L A 40 (R0 PDL))           00020210
(L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (QUOTE 24))       00020220
(*LINK LEFTSHIFT 2) (ST A 48 (R0 PDL)) (LA R0 2 (R0 R0))                00020230
(BAL R2 16 (R0 R12)) (L* A 44 (R0 PDL)) (L* A 48 (R0 PDL))              00020240
(*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2) (L A 0 (R0 A)) (L A 0 (R0 A)) 00020250
(*STORE A (SPECIAL LOC)) (L A 4 (R0 PDL)) (CR NILR A) (BC 8 *__*2041)   00020260
(*LOAD Q (SPECIAL LOC)) (L A 4 (R0 PDL)) (*LINK RELINK 2) *__*2041      00020270
*__*2040 (L A 40 (R0 PDL)) (L A 0 (R0 A)) (ST A 4 (R0 PDL))             00020280
(*LOAD A (SPECIAL LOC)) (ST A 44 (R0 PDL)) (*LOAD Q (QUOTE SUBR))       00020290
(*LOAD A (QUOTE CAR)) (*LINK GET 2) (L Q 4 (R0 A)) (L A 44 (R0 PDL))    00020300
(*LINK CONS 2) (ST A 44 (R0 PDL)) (LA R0 2 (R0 R0))                     00020310
(BAL R2 16 (R0 R12)) (L* A 4 (R0 PDL)) (L* A 44 (R0 PDL))               00020320
(ST A 44 (R0 PDL)) (LA R0 1 (R0 R0)) (BAL R2 16 (R0 R12))               00020330
(L* A 44 (R0 PDL)) (L Q 40 (R0 PDL)) (L Q 4 (R0 Q)) (L Q 0 (R0 Q))      00020340
(*LINK DEFLIST 2) (*LOAD A (QUOTE BPS)) (*LOAD Q (SPECIAL ALIST))       00020350
(BAL R2 36 (R0 R12)) (L A 0 (R0 A)) (*LINK *_LOGX 1) (ST A 40 (R0 PDL)) 00020360
(*LOAD A (SPECIAL PWRDS)) (CR NILR A) (BC 8 *__*2057) (L Q 36 (R0 PDL)) 00020370
(L A 40 (R0 PDL)) (*LINK DIFFERENCE 2) (*LOAD Q (QUOTE 4))              00020380
(*LINK QUOTIENT 2) (ST A 44 (R0 PDL)) (*LOAD A (QUOTE BPS))             00020390
(*LOAD Q (SPECIAL ALIST)) (BAL R2 36 (R0 R12)) (L A 4 (R0 A))           00020400
(*LINK *_LOGX 1) (L Q 40 (R0 PDL)) (*LINK DIFFERENCE 2)                 00020410
(*LOAD Q (QUOTE 4)) (*LINK QUOTIENT 2) (ST A 48 (R0 PDL))               00020420
(LA R0 5 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 4 (R0 PDL))                00020430
(L* A 44 (R0 PDL)) (L* R2 (QUOTE WORDS)) (L* A 48 (R0 PDL))             00020440
(L* R2 (QUOTE LEFT)) (*LINK PRINT 1) *__*2057 *__*2056                  00020450
(*LOAD A (SPECIAL Y)) *__*1997 (ST A 16 (R0 PDL)) (LA R1 4 (R0 R0))     00020460
(CNOP) (BAL R2 24 (R0 R12)) (*ACS LOC) (DC 20) (*ACS QLST) (DC 24)      00020470
(*ACS BPSV) (DC 28) (*ACS LOCE) (DC 32) (L A 16 (R0 PDL)) *__*1995      00020480
(ST A 12 (R0 PDL)) (LA R1 1 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12))        00020490
(*ACS Y) (DC 8) (L A 12 (R0 PDL)) (*REMOVE NIL) ) NIL)                  00020500
                                                                        00020510
LAP360((     (*_ASSEMBLE SUBR 1)                                        00020520
(*MOVE 44 000000004X) (ST NILR 12 (R0 PDL)) (LA R1 1 (R0 R0)) (CNOP)    00020530
(BAL R2 20 (R0 R12)) (*ACS Z) (DC 12) (ST NILR 20 (R0 PDL))             00020540
(ST NILR 24 (R0 PDL)) (L A 4 (R0 PDL)) (L A 0 (R0 A))                   00020550
(ST A 16 (R0 PDL)) (*LOAD A (QUOTE 000000000X)) (*STORE A (SPECIAL Z))  00020560
(L A 4 (R0 PDL)) (*LINK ATOM 1) (CR NILR A) (BC 7 *__*2116)             00020570
(*LOAD A (QUOTE CNOP)) (AR A NILR) (S A 16 (R0 PDL)) (CR NILR A)        00020580
(BC 7 *__*2114) *__*2116 *__*2115 (LR A NILR) (BC 15 *__*2079) *__*2114 00020590
(*LOAD Q (QUOTE RR)) (L A 16 (R0 PDL)) (*LINK FLAGP 2) (CR NILR A)      00020600
(BC 7 *__*2080) (*LOAD Q (QUOTE RS)) (L A 16 (R0 PDL)) (*LINK FLAGP 2)  00020610
(CR NILR A) (BC 7 *__*2089) (*LOAD Q (QUOTE RX)) (L A 16 (R0 PDL))      00020620
(*LINK FLAGP 2) (CR NILR A) (BC 7 *__*2099) (*LOAD Q (QUOTE SS))        00020630
(L A 16 (R0 PDL)) (*LINK FLAGP 2) (CR NILR A) (BC 7 *__*2102)           00020640
(*LOAD Q (QUOTE SI)) (L A 16 (R0 PDL)) (*LINK FLAGP 2) (CR NILR A)      00020650
(BC 7 *__*2097) (*LOAD Q (QUOTE AC)) (L A 16 (R0 PDL)) (*LINK FLAGP 2)  00020660
(CR NILR A) (BC 7 *__*2085) (*LOAD Q (QUOTE DC)) (L A 16 (R0 PDL))      00020670
(*LINK FLAGP 2) (CR NILR A) (BC 7 *__*2086) (*LOAD Q (QUOTE MC))        00020680
(L A 16 (R0 PDL)) (*LINK FLAGP 2) (CR NILR A) (BC 8 *__*2132)           00020690
(L A 4 (R0 PDL)) (BC 15 *__*2079) *__*2132 *__*2113 (BC 15 *__*2087)    00020700
*__*2080 (*LOAD A (SPECIAL Z)) (ST A 28 (R0 PDL)) (L A 4 (R0 PDL))      00020710
(L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (L M 8 (R0 R12))           00020720
(L R1 4 (R0 PDL)) (ST R1 000000000X (R0 M)) (*LOAD Q (QUOTE 16))        00020730
(*LINK *_REGSET 3) (ST A 32 (R0 PDL)) (LA R0 2 (R0 R0))                 00020740
(BAL R2 16 (R0 R12)) (L* A 28 (R0 PDL)) (L* A 32 (R0 PDL))              00020750
(*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2) (*STORE A (SPECIAL Z))        00020760
*__*2081 (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))                 00020770
(*LOAD Q (QUOTE REGS)) (*LINK GET 2) (ST A 20 (R0 PDL)) (CR NILR A)     00020780
(BC 8 *__*2145) (*LOAD A (SPECIAL Z)) (ST A 28 (R0 PDL))                00020790
(*LOAD Q (QUOTE 20)) (L A 20 (R0 PDL)) (*LINK LEFTSHIFT 2)              00020800
(ST A 32 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00020810
(L* A 28 (R0 PDL)) (L* A 32 (R0 PDL)) (*LOAD Q (SPECIAL ALIST))         00020820
(*LINK LOGOR 2) (*STORE A (SPECIAL Z)) (BC 15 *__*2144) *__*2145        00020830
(*LOAD Q (QUOTE MSK)) (L A 16 (R0 PDL)) (*LINK FLAGP 2) (CR NILR A)     00020840
(BC 8 *__*2150) (*LOAD A (SPECIAL Z)) (ST A 28 (R0 PDL))                00020850
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (QUOTE 20))     00020860
(*LINK LEFTSHIFT 2) (ST A 32 (R0 PDL)) (LA R0 2 (R0 R0))                00020870
(BAL R2 16 (R0 R12)) (L* A 28 (R0 PDL)) (L* A 32 (R0 PDL))              00020880
(*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2) (*STORE A (SPECIAL Z))        00020890
(BC 15 *__*2144) *__*2150 (BC 15 *__*2088) *__*2144 *__*2082            00020900
(*LOAD A (SPECIAL Z)) (ST A 28 (R0 PDL)) (*LOAD Q (QUOTE INST))         00020910
(L A 16 (R0 PDL)) (*LINK GET 2) (ST A 32 (R0 PDL)) (LA R0 2 (R0 R0))    00020920
(BAL R2 16 (R0 R12)) (L* A 28 (R0 PDL)) (L* A 32 (R0 PDL))              00020930
(*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2) (*STORE A (SPECIAL Z))        00020940
*__*2083 (L A 16 (R0 PDL)) (*LINK *_LONG 1) (ST A 20 (R0 PDL)) *__*2084 00020950
(*LOAD A (SPECIAL Z)) (L Q 20 (R0 PDL)) (*LINK PLANT 2)                 00020960
(*LOAD A (SPECIAL Z)) (BC 15 *__*2079) *__*2085 (L A 4 (R0 PDL))        00020970
(L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (QUOTE 4)) (*LINK PLANTSQ 2)     00020980
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (BC 15 *__*2079)         00020990
*__*2086 (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))                 00021000
(*LOAD Q (QUOTE 4)) (*LINK PLANTDC 2) (L A 4 (R0 PDL)) (L A 4 (R0 A))   00021010
(L A 0 (R0 A)) (BC 15 *__*2079) *__*2087 (LA R0 2 (R0 R0))              00021020
(BAL R2 16 (R0 R12)) (L* R2 (QUOTE (*** L5-UNDEFINED OP CODE)))         00021030
(L* A 4 (R0 PDL)) (*LINK PRINT 1) (*LOAD A (QUOTE 4))                   00021040
(ST A 20 (R0 PDL)) (BC 15 *__*2084) *__*2088 (LA R0 2 (R0 R0))          00021050
(BAL R2 16 (R0 R12))                                                    00021060
(L* R2 (QUOTE (*** L7-INVALID REGISTER SPECIFICATION)))                 00021070
(L* A 4 (R0 PDL)) (*LINK PRINT 1) (BC 15 *__*2083) *__*2089             00021080
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (L A 4 (R0 A))           00021090
(ST A 20 (R0 PDL)) (CR NILR A) (BC 8 *__*2092) (L A 0 (R0 A))           00021100
(*LINK ATOM 1) (CR NILR A) (BC 8 *__*2093) (L A 20 (R0 PDL))            00021110
(L A 4 (R0 A)) (CR NILR A) (BC 7 *__*2091) *__*2190 *__*2090            00021120
(L A 20 (R0 PDL)) (L A 0 (R0 A)) (*LINK *_LOCAL 1) (BC 15 *__*2080)     00021130
*__*2091 (*LOAD A (SPECIAL Z)) (ST A 28 (R0 PDL)) (L A 20 (R0 PDL))     00021140
(L A 4 (R0 A)) (L A 0 (R0 A)) (L A 0 (R0 A)) (L M 8 (R0 R12))           00021150
(L R1 4 (R0 PDL)) (ST R1 000000000X (R0 M)) (*LOAD Q (QUOTE 12))        00021160
(*LINK *_REGSET 3) (ST A 32 (R0 PDL)) (L A 20 (R0 PDL)) (L A 0 (R0 A))  00021170
(ST A 36 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00021180
(L* A 28 (R0 PDL)) (L* A 32 (R0 PDL)) (L* A 36 (R0 PDL))                00021190
(*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2) (*STORE A (SPECIAL Z))        00021200
(BC 15 *__*2080) *__*2092 (L A 4 (R0 PDL)) (L A 4 (R0 A))               00021210
(L A 4 (R0 A)) (ST A 20 (R0 PDL)) (BC 15 *__*2095) *__*2093             00021220
(L A 20 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A))                         00021230
(*LOAD Q (QUOTE (QUOTE SPECIAL))) (*LINK MEMBER 2) (CR NILR A)          00021240
(BC 7 *__*2096) *__*2214 *__*2094 (L A 4 (R0 PDL)) (L A 4 (R0 A))       00021250
(L A 4 (R0 A)) (ST A 20 (R0 PDL)) (*LOAD A (SPECIAL Z))                 00021260
(ST A 28 (R0 PDL)) (L A 20 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))      00021270
(L A 0 (R0 A)) (L M 8 (R0 R12)) (L R1 4 (R0 PDL))                       00021280
(ST R1 000000000X (R0 M)) (*LOAD Q (QUOTE 12)) (*LINK *_REGSET 3)       00021290
(ST A 32 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00021300
(L* A 28 (R0 PDL)) (L* A 32 (R0 PDL)) (*LOAD Q (SPECIAL ALIST))         00021310
(*LINK LOGOR 2) (*STORE A (SPECIAL Z)) *__*2095 (*LOAD A (SPECIAL Z))   00021320
(L Q 20 (R0 PDL)) (L Q 0 (R0 Q)) (ST A 28 (R0 PDL)) (ST Q 32 (R0 PDL))  00021330
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 28 (R0 PDL))               00021340
(L* A 32 (R0 PDL)) (*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2)            00021350
(*STORE A (SPECIAL Z)) (BC 15 *__*2081) *__*2096 (L A 20 (R0 PDL))      00021360
(L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (ST A 28 (R0 PDL))         00021370
(L A 20 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A))                         00021380
(*LOAD Q (QUOTE SPECIAL)) (*LINK EQ 2) (LR Q A) (L A 28 (R0 PDL))       00021390
(*LINK *_GTCL 2) (BC 15 *__*2080) *__*2097 (*LOAD A (QUOTE 000000000X)) 00021400
(*STORE A (SPECIAL Z)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))   00021410
(L A 0 (R0 A)) (*LINK ATOM 1) (CR NILR A) (BC 7 *__*2098) *__*2239      00021420
(*LOAD A (SPECIAL Z)) (ST A 28 (R0 PDL)) (L A 4 (R0 PDL))               00021430
(L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (L A 0 (R0 A))             00021440
(L M 8 (R0 R12)) (L R1 4 (R0 PDL)) (ST R1 000000000X (R0 M))            00021450
(*LOAD Q (QUOTE 12)) (*LINK *_REGSET 3) (ST A 32 (R0 PDL))              00021460
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (ST A 36 (R0 PDL))       00021470
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (L A 4 (R0 A))           00021480
(L A 0 (R0 A)) (*LOAD Q (QUOTE 16)) (*LINK LEFTSHIFT 2)                 00021490
(ST A 40 (R0 PDL)) (LA R0 4 (R0 R0)) (BAL R2 16 (R0 R12))               00021500
(L* A 28 (R0 PDL)) (L* A 32 (R0 PDL)) (L* A 36 (R0 PDL))                00021510
(L* A 40 (R0 PDL)) (*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2)            00021520
(*STORE A (SPECIAL Z)) (BC 15 *__*2082) *__*2098 (L A 4 (R0 PDL))       00021530
(L A 4 (R0 A)) (L A 0 (R0 A)) (*LINK *_LOCAL 1) (*LOAD A (SPECIAL Z))   00021540
(ST A 28 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))       00021550
(L A 0 (R0 A)) (*LOAD Q (QUOTE 16)) (*LINK LEFTSHIFT 2)                 00021560
(ST A 32 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00021570
(L* A 28 (R0 PDL)) (L* A 32 (R0 PDL)) (*LOAD Q (SPECIAL ALIST))         00021580
(*LINK LOGOR 2) (*STORE A (SPECIAL Z)) (BC 15 *__*2082) *__*2099        00021590
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (ST A 20 (R0 PDL))       00021600
(L A 0 (R0 A)) (*LINK ATOM 1) (CR NILR A) (BC 8 *__*2100)               00021610
(L A 20 (R0 PDL)) (L A 4 (R0 A)) (CR NILR A) (BC 8 *__*2101) *__*2265   00021620
(L A 20 (R0 PDL)) (L A 0 (R0 A)) (*STORE A (SPECIAL Z))                 00021630
(L A 20 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (ST A 20 (R0 PDL))      00021640
(*LOAD A (SPECIAL Z)) (ST A 28 (R0 PDL)) (L A 20 (R0 PDL))              00021650
(L A 0 (R0 A)) (L M 8 (R0 R12)) (L R1 4 (R0 PDL))                       00021660
(ST R1 000000000X (R0 M)) (*LOAD Q (QUOTE 16)) (*LINK *_REGSET 3)       00021670
(ST A 32 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00021680
(L* A 28 (R0 PDL)) (L* A 32 (R0 PDL)) (*LOAD Q (SPECIAL ALIST))         00021690
(*LINK LOGOR 2) (*STORE A (SPECIAL Z)) (L A 20 (R0 PDL)) (L A 4 (R0 A)) 00021700
(CR NILR A) (BC 8 *__*2081) *__*2278 (*LOAD A (SPECIAL Z))              00021710
(ST A 28 (R0 PDL)) (L A 20 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))      00021720
(L M 8 (R0 R12)) (L R1 4 (R0 PDL)) (ST R1 000000000X (R0 M))            00021730
(*LOAD Q (QUOTE 12)) (*LINK *_REGSET 3) (ST A 32 (R0 PDL))              00021740
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 28 (R0 PDL))               00021750
(L* A 32 (R0 PDL)) (*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2)            00021760
(*STORE A (SPECIAL Z)) (BC 15 *__*2081) *__*2100 (L A 20 (R0 PDL))      00021770
(L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (ST A 28 (R0 PDL))         00021780
(L A 20 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A))                         00021790
(*LOAD Q (QUOTE SPECIAL)) (*LINK EQ 2) (LR Q A) (L A 28 (R0 PDL))       00021800
(*LINK *_GTCL 2) (BC 15 *__*2081) *__*2101 (L A 20 (R0 PDL))            00021810
(L A 0 (R0 A)) (*LINK *_LOCAL 1) (BC 15 *__*2081) *__*2102              00021820
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A))           00021830
(ST A 20 (R0 PDL)) (*LINK ATOM 1) (CR NILR A) (BC 7 *__*2103)           00021840
(*LOAD Q (QUOTE LL)) (L A 16 (R0 PDL)) (*LINK FLAGP 2) (CR NILR A)      00021850
(BC 8 *__*2302) (L A 20 (R0 PDL)) (L A 0 (R0 A)) (*LINK SUB1 1)         00021860
(*LOAD Q (QUOTE 20)) (*LINK LEFTSHIFT 2) (*STORE A (SPECIAL Z))         00021870
(BC 15 *__*2299) *__*2302 (L A 20 (R0 PDL)) (L A 0 (R0 A))              00021880
(*LINK SUB1 1) (*LOAD Q (QUOTE 16)) (*LINK LEFTSHIFT 2)                 00021890
(*STORE A (SPECIAL Z)) *__*2306 *__*2299 (L A 20 (R0 PDL))              00021900
(L A 4 (R0 A)) (CR NILR A) (BC 8 *__*2103) *__*2309                     00021910
(*LOAD A (SPECIAL Z)) (ST A 28 (R0 PDL)) (L A 20 (R0 PDL))              00021920
(L A 4 (R0 A)) (L A 0 (R0 A)) (L M 8 (R0 R12)) (L R1 4 (R0 PDL))        00021930
(ST R1 000000000X (R0 M)) (*LOAD Q (QUOTE 12)) (*LINK *_REGSET 3)       00021940
(ST A 32 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A))       00021950
(ST A 36 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00021960
(L* A 28 (R0 PDL)) (L* A 32 (R0 PDL)) (L* A 36 (R0 PDL))                00021970
(*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2) (*STORE A (SPECIAL Z))        00021980
(BC 15 *__*2104) *__*2103 (L A 4 (R0 PDL)) (L A 4 (R0 A))               00021990
(L A 0 (R0 A)) (*LINK *_LOCAL 1) *__*2104 (*LOAD A (SPECIAL Z))         00022000
(ST A 28 (R0 PDL)) (*LOAD Q (QUOTE INST)) (L A 16 (R0 PDL))             00022010
(*LINK GET 2) (ST A 32 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) 00022020
(L* A 28 (R0 PDL)) (L* A 32 (R0 PDL)) (*LOAD Q (SPECIAL ALIST))         00022030
(*LINK LOGOR 2) (*STORE A (SPECIAL Z)) (*LOAD A (SPECIAL Z))            00022040
(ST A 24 (R0 PDL)) (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A))       00022050
(L A 4 (R0 A)) (ST A 20 (R0 PDL)) (*LOAD A (QUOTE 000000000X))          00022060
(*STORE A (SPECIAL Z)) (L A 20 (R0 PDL)) (CR NILR A) (BC 8 *__*2106)    00022070
(L A 0 (R0 A)) (*LINK ATOM 1) (CR NILR A) (BC 8 *__*2109) *__*2331      00022080
(L A 20 (R0 PDL)) (L A 4 (R0 A)) (CR NILR A) (BC 8 *__*2107) *__*2337   00022090
(L A 20 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (ST A 20 (R0 PDL))      00022100
(*LOAD Q (QUOTE LL)) (L A 16 (R0 PDL)) (*LINK FLAGP 2) (CR NILR A)      00022110
(BC 8 *__*2342) (L A 20 (R0 PDL)) (L A 0 (R0 A)) (*LINK SUB1 1)         00022120
(*LOAD Q (QUOTE 16)) (*LINK LEFTSHIFT 2) (ST A 28 (R0 PDL))             00022130
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 24 (R0 PDL))               00022140
(L* A 28 (R0 PDL)) (*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2)            00022150
(ST A 24 (R0 PDL)) (BC 15 *__*2341) *__*2342 (BC 15 *__*2105) *__*2341  00022160
(L A 20 (R0 PDL)) (L A 4 (R0 A)) (CR NILR A) (BC 8 *__*2107) *__*2349   00022170
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (L A 4 (R0 A))           00022180
(L A 0 (R0 A)) (ST A 28 (R0 PDL)) (L A 20 (R0 PDL)) (L A 4 (R0 A))      00022190
(L A 0 (R0 A)) (L M 8 (R0 R12)) (L R1 4 (R0 PDL))                       00022200
(ST R1 000000000X (R0 M)) (*LOAD Q (QUOTE 12)) (*LINK *_REGSET 3)       00022210
(ST A 32 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00022220
(L* A 28 (R0 PDL)) (L* A 32 (R0 PDL)) (*LOAD Q (SPECIAL ALIST))         00022230
(*LINK LOGOR 2) (*STORE A (SPECIAL Z)) (BC 15 *__*2110) *__*2105        00022240
(*LOAD A (SPECIAL Z)) (L Q 4 (R0 PDL)) (L Q 4 (R0 Q)) (L Q 4 (R0 Q))    00022250
(L Q 4 (R0 Q)) (L Q 0 (R0 Q)) (ST A 28 (R0 PDL)) (ST Q 32 (R0 PDL))     00022260
(L A 20 (R0 PDL)) (L A 0 (R0 A)) (L M 8 (R0 R12)) (L R1 4 (R0 PDL))     00022270
(ST R1 000000000X (R0 M)) (*LOAD Q (QUOTE 12)) (*LINK *_REGSET 3)       00022280
(ST A 36 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00022290
(L* A 28 (R0 PDL)) (L* A 32 (R0 PDL)) (L* A 36 (R0 PDL))                00022300
(*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2) (*STORE A (SPECIAL Z))        00022310
(BC 15 *__*2110) *__*2106 (L A 4 (R0 PDL)) (L A 4 (R0 A))               00022320
(L A 4 (R0 A)) (L A 0 (R0 A)) (ST A 20 (R0 PDL)) (BC 15 *__*2108)       00022330
*__*2107 (L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (L A 4 (R0 A))  00022340
(L A 0 (R0 A)) (ST A 20 (R0 PDL)) *__*2108 (L A 20 (R0 PDL))            00022350
(*LINK *_LOCAL 1) (BC 15 *__*2110) *__*2109 (L A 20 (R0 PDL))           00022360
(L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (ST A 28 (R0 PDL))         00022370
(L A 20 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A))                         00022380
(*LOAD Q (QUOTE SPECIAL)) (*LINK EQ 2) (LR Q A) (L A 28 (R0 PDL))       00022390
(*LINK *_GTCL 2) *__*2110 (*LOAD A (SPECIAL Z)) (*LOAD Q (QUOTE 16))    00022400
(*LINK LEFTSHIFT 2) (*STORE A (SPECIAL Z)) (*LOAD Q (QUOTE 4))          00022410
(L A 24 (R0 PDL)) (*LINK PLANT 2) (*LOAD A (SPECIAL Z))                 00022420
(*LOAD Q (QUOTE 2)) (*LINK PLANT 2) (*LOAD Q (SPECIAL Z))               00022430
(L A 24 (R0 PDL)) (*LINK CONS 2) *__*2079 (ST A 8 (R0 PDL))             00022440
(LA R1 1 (R0 R0)) (CNOP) (BAL R2 24 (R0 R12)) (*ACS Z) (DC 12)          00022450
(L A 8 (R0 PDL)) (*REMOVE NIL) ) NIL)                                   00022460
                                                                        00022470
LAP360((     (*_LABLER SUBR 1)                                          00022480
(*MOVE 16 000000004X) (L A 4 (R0 PDL)) (L A 0 (R0 A)) (*LINK ATOM 1)    00022490
(CR NILR A) (BC 7 *__*2397) (L A 4 (R0 PDL)) (L A 0 (R0 A))             00022500
(L A 0 (R0 A)) (S A (QUOTE CNOP)) (CR NILR A) (BC 8 *__*2399)           00022510
(L A 4 (R0 PDL)) (L A 0 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (QUOTE MC))     00022520
(*LINK FLAGP 2) (CR NILR A) (BC 7 *__*2398) *__*2402 *__*2396           00022530
(*LOAD A (SPECIAL LOC)) (ST A 8 (R0 PDL)) (L A 4 (R0 PDL))              00022540
(L A 0 (R0 A)) (L A 0 (R0 A)) (*LINK *_LONG 1) (ST A 12 (R0 PDL))       00022550
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 8 (R0 PDL))                00022560
(L* A 12 (R0 PDL)) (*LOAD Q (SPECIAL ALIST)) (*LINK PLUS 2)             00022570
(*STORE A (SPECIAL LOC)) (LR A NILR) (*REMOVE NIL) *__*2397             00022580
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (L A 0 (R0 A)) (L A 0 (R0 A))           00022590
(*LOAD Q (QUOTE DC)) (*LINK FLAGP 2) (CR NILR A) (BC 7 *__*2400)        00022600
(BC 15 *__*2401) *__*2419 *__*2398 (L A 4 (R0 PDL)) (L A 0 (R0 A))      00022610
(L A 0 (R0 A)) (*LOAD Q (QUOTE MC)) (*LINK GET 2) (ST A 8 (R0 PDL))     00022620
(L A 4 (R0 PDL)) (L A 0 (R0 A)) (L A 4 (R0 A)) (LR Q NILR)              00022630
(*LINK CONS 2) (L M 8 (R0 R12)) (ST NILR 000000000X (R0 M)) (LR Q A)    00022640
(L A 8 (R0 PDL)) (*LINK APPLY 3) (L Q 4 (R0 PDL)) (L Q 4 (R0 Q))        00022650
(*LINK APPEND 2) (LR Q A) (L A 4 (R0 PDL)) (*LINK RPLACD 2) (LR A NILR) 00022660
(*REMOVE NIL) *__*2399 (*LOAD A (SPECIAL LOC)) (*LOAD Q (QUOTE -1))     00022670
(*LINK LEFTSHIFT 2) (*LINK EVENP 1) (CR NILR A) (BC 7 *__*2437)         00022680
(L Q 4 (R0 PDL)) (L Q 4 (R0 Q)) (*LOAD A (QUOTE ((BCR 0 R2))))          00022690
(*LINK APPEND 2) (LR Q A) (L A 4 (R0 PDL)) (*LINK RPLACD 2) *__*2437    00022700
*__*2436 (LR A NILR) (*REMOVE NIL) *__*2400 (*LOAD A (SPECIAL LOC))     00022710
(*LOAD Q (QUOTE -1)) (*LINK LEFTSHIFT 2) (*LINK EVENP 1) (CR NILR A)    00022720
(BC 7 *__*2446) (*LOAD A (SPECIAL LOC)) (ST A 8 (R0 PDL))               00022730
(LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 8 (R0 PDL))                00022740
(L* R2 (QUOTE 2)) (*LOAD Q (SPECIAL ALIST)) (*LINK PLUS 2)              00022750
(*STORE A (SPECIAL LOC)) *__*2446 *__*2445 *__*2401                     00022760
(*LOAD A (SPECIAL Y)) (ST A 8 (R0 PDL)) (L A 4 (R0 PDL)) (L A 0 (R0 A)) 00022770
(*LOAD Q (SPECIAL LOC)) (*LINK CONS 2) (LR Q A) (L A 8 (R0 PDL))        00022780
(*LINK APPEND1 2) (*STORE A (SPECIAL Y)) (LR A NILR) (*REMOVE NIL)      00022790
) NIL)                                                                  00022800
                                                                        00022810
LAP360((     (*_LOCAL SUBR 1)                                           00022820
(*MOVE 20 000000004X) (ST NILR 8 (R0 PDL)) (*LOAD A (SPECIAL Z))        00022830
(ST A 12 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00022840
(L* A 12 (R0 PDL)) (L* R2 (QUOTE 000003000X)) (*LOAD Q (SPECIAL ALIST)) 00022850
(*LINK LOGOR 2) (*STORE A (SPECIAL Z)) (*LOAD Q (SPECIAL Y))            00022860
(L M 8 (R0 R12)) (ST NILR 000000000X (R0 M)) (L A 4 (R0 PDL))           00022870
(*LINK SASSOC 3) (ST A 8 (R0 PDL)) (CR NILR A) (BC 8 *__*2468)          00022880
(*LOAD A (SPECIAL Z)) (L Q 8 (R0 PDL)) (L Q 4 (R0 Q))                   00022890
(ST A 12 (R0 PDL)) (ST Q 16 (R0 PDL)) (LA R0 2 (R0 R0))                 00022900
(BAL R2 16 (R0 R12)) (L* A 12 (R0 PDL)) (L* A 16 (R0 PDL))              00022910
(*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2) (*STORE A (SPECIAL Z))        00022920
(BC 15 *__*2467) *__*2468 (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))        00022930
(L* R2 (QUOTE (*** L6-UNDEFINED LABEL))) (L* A 4 (R0 PDL))              00022940
(*LINK PRINT 1) *__*2473 *__*2467 (LR A NILR) (*REMOVE NIL) ) NIL)      00022950
                                                                        00022960
LAP360((     (*_LONG SUBR 1)                                            00022970
(*MOVE 12 000000004X) (*LOAD Q (QUOTE INST)) (L A 4 (R0 PDL))           00022980
(*LINK GET 2) (ST A 8 (R0 PDL)) (CR NILR A) (BC 7 *__*2479) *__*2481    00022990
(*LOAD A (QUOTE 4)) (*REMOVE NIL) *__*2479 (*LOAD Q (QUOTE -30))        00023000
(L A 8 (R0 PDL)) (*LINK LEFTSHIFT 2) (ST A 8 (R0 PDL))                  00023010
(*LOAD Q (QUOTE 2)) (*LINK LESSP 2) (CR NILR A) (BC 8 *__*2488)         00023020
(L A 8 (R0 PDL)) (*LINK ADD1 1) (ST A 8 (R0 PDL)) *__*2488 *__*2487     00023030
(*LOAD Q (QUOTE 1)) (L A 8 (R0 PDL)) (*LINK LEFTSHIFT 2) (*REMOVE NIL)  00023040
) NIL)                                                                  00023050
                                                                        00023060
LAP360((     (*_GTCL SUBR 2)                                            00023070
(*MOVE 28 000000008X) (ST NILR 16 (R0 PDL)) (*LOAD Q (SPECIAL QLST))    00023080
(L M 8 (R0 R12)) (L R1 8 (R0 PDL)) (ST R1 000000000X (R0 M))            00023090
(L A 4 (R0 PDL)) (*LINK *_LOOK 3) (ST A 12 (R0 PDL)) (CR NILR A)        00023100
(BC 8 *__*2495) *__*2503 (*LOAD A (SPECIAL Z)) (ST A 20 (R0 PDL))       00023110
(L A 12 (R0 PDL)) (L A 4 (R0 A)) (L A 4 (R0 A)) (ST A 24 (R0 PDL))      00023120
(LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 20 (R0 PDL))               00023130
(L* R2 (QUOTE 000003000X)) (L* A 24 (R0 PDL)) (*LOAD Q (SPECIAL ALIST)) 00023140
(*LINK LOGOR 2) (*STORE A (SPECIAL Z)) (BC 15 *__*2500) *__*2495        00023150
(L A 8 (R0 PDL)) (CR NILR A) (BC 8 *__*2513) (*LOAD Q (QUOTE SPECIAL))  00023160
(L A 4 (R0 PDL)) (*LINK GET 2) (ST A 16 (R0 PDL)) (BC 15 *__*2512)      00023170
*__*2513 (L A 4 (R0 PDL)) (ST A 16 (R0 PDL)) *__*2515 *__*2512          00023180
(L A 8 (R0 PDL)) (CR NILR A) (BC 8 *__*2519) (*LOAD A (QUOTE SPECIALS)) 00023190
(BC 15 *__*2518) *__*2519 (*LOAD A (QUOTE QUOTES)) *__*2521 *__*2518    00023200
(*LOAD Q (QUOTE SPQT)) (*LINK GET 2) (L A 0 (R0 A)) (ST A 12 (R0 PDL))  00023210
*__*2496 (L Q 12 (R0 PDL)) (L Q 0 (R0 Q)) (ST Q 20 (R0 PDL))            00023220
(L A 20 (R0 PDL)) (AR A NILR) (S A 16 (R0 PDL)) (CR NILR A)             00023230
(BC 8 *__*2498) (L A 8 (R0 PDL)) (CR NILR A) (BC 7 *__*2529)            00023240
(ST Q 20 (R0 PDL)) (L Q 12 (R0 PDL)) (L Q 0 (R0 Q)) (L A 16 (R0 PDL))   00023250
(*LINK EQUAL 2) (CR NILR A) (BC 7 *__*2498) *__*2529 *__*2528 *__*2526  00023260
*__*2525 (L A 12 (R0 PDL)) (L A 4 (R0 A)) (CR NILR A) (BC 8 *__*2497)   00023270
*__*2523 (L A 12 (R0 PDL)) (L A 4 (R0 A)) (ST A 12 (R0 PDL))            00023280
(BC 15 *__*2496) *__*2497 (LR Q NILR) (L A 16 (R0 PDL)) (*LINK CONS 2)  00023290
(LR Q A) (L A 12 (R0 PDL)) (*LINK RPLACD 2) (BC 15 *__*2499) *__*2498   00023300
(L A 12 (R0 PDL)) (L A 0 (R0 A)) (ST A 16 (R0 PDL)) *__*2499            00023310
(*LOAD A (SPECIAL Z)) (ST A 20 (R0 PDL)) (*LOAD A (SPECIAL LOC))        00023320
(ST A 24 (R0 PDL)) (LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12))               00023330
(L* A 20 (R0 PDL)) (L* R2 (QUOTE 000003000X)) (L* A 24 (R0 PDL))        00023340
(*LOAD Q (SPECIAL ALIST)) (*LINK LOGOR 2) (*STORE A (SPECIAL Z))        00023350
(*LOAD A (SPECIAL QLST)) (ST A 20 (R0 PDL)) (L A 8 (R0 PDL))            00023360
(CR NILR A) (BC 8 *__*2552) (L A 4 (R0 PDL)) (BC 15 *__*2551) *__*2552  00023370
(L A 16 (R0 PDL)) *__*2554 *__*2551 (ST A 24 (R0 PDL))                  00023380
(*LOAD Q (SPECIAL LOC)) (L A 16 (R0 PDL)) (*LINK CONS 2) (LR Q A)       00023390
(L A 24 (R0 PDL)) (*LINK CONS 2) (LR Q A) (L A 20 (R0 PDL))             00023400
(*LINK APPEND1 2) (*STORE A (SPECIAL QLST)) (*LOAD A (SPECIAL LOC))     00023410
(ST A 20 (R0 PDL)) (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))               00023420
(L* A 20 (R0 PDL)) (L* R2 (QUOTE 4)) (*LOAD Q (SPECIAL ALIST))          00023430
(*LINK PLUS 2) (*STORE A (SPECIAL LOC)) *__*2500 (LR A NILR)            00023440
(*REMOVE NIL) ) NIL)                                                    00023450
                                                                        00023460
LAP360((     (*_LOOK SUBR 3)                                            00023470
(*MOVE 16 00000000CX) *__*2565 (L A 8 (R0 PDL)) (CR NILR A)             00023480
(BC 7 *__*2571) (*REMOVE NIL) *__*2571 (L A 8 (R0 PDL)) (L A 0 (R0 A))  00023490
(L A 0 (R0 A)) (L Q 4 (R0 PDL)) (*LINK EQUAL 2) (CR NILR A)             00023500
(BC 7 *__*2567) *__*2570 *__*2566 (L A 8 (R0 PDL)) (L A 4 (R0 A))       00023510
(ST A 8 (R0 PDL)) (BC 15 *__*2565) *__*2567 (L A 8 (R0 PDL))            00023520
(L A 0 (R0 A)) (L A 4 (R0 A)) (L A 0 (R0 A)) (L Q 8 (R0 PDL))           00023530
(L Q 0 (R0 Q)) (L Q 0 (R0 Q)) (AR A NILR) (SR A Q) (CR NILR A)          00023540
(BC 8 *__*2568) *__*2580 (L A 12 (R0 PDL)) (CR NILR A) (BC 8 *__*2586)  00023550
(L A 8 (R0 PDL)) (L A 0 (R0 A)) (*REMOVE NIL) *__*2586 *__*2585         00023560
(BC 15 *__*2566) *__*2568 (L A 12 (R0 PDL)) (CR NILR A) (BC 7 *__*2566) 00023570
*__*2591 (L A 8 (R0 PDL)) (L A 0 (R0 A)) (*REMOVE NIL) ) NIL)           00023580
                                                                        00023590
LAP360((     (*_REGSET SUBR 3)                                          00023600
(*MOVE 20 00000000CX) (*LOAD Q (QUOTE REGS)) (L A 4 (R0 PDL))           00023610
(*LINK GET 2) (ST A 16 (R0 PDL)) (CR NILR A) (BC 8 *__*2601)            00023620
(L Q 8 (R0 PDL)) (L A 16 (R0 PDL)) (*LINK LEFTSHIFT 2) (*REMOVE NIL)    00023630
*__*2601 *__*2600 (LA R0 2 (R0 R0)) (BAL R2 16 (R0 R12))                00023640
(L* R2 (QUOTE (*** L7-INVALID REGISTER SPECIFICATION)))                 00023650
(L* A 12 (R0 PDL)) (*LINK PRINT 1) (*LOAD A (QUOTE 000000000X))         00023660
(*REMOVE NIL) ) NIL)                                                    00023670
                                                                        00023680
LAP360((     (*_QSET SUBR 0)                                            00023690
(*MOVE 8 000000000X) (ST NILR 4 (R0 PDL)) (*LOAD A (SPECIAL LOCE))      00023700
(*LOAD Q (QUOTE -1)) (*LINK LEFTSHIFT 2) (*LINK EVENP 1) (CR NILR A)    00023710
(BC 7 *__*2612) (*LOAD Q (QUOTE 2)) (*LOAD A (QUOTE 007010000X))        00023720
(*LINK PLANT 2) *__*2612 *__*2611 (*LOAD A (SPECIAL QLST))              00023730
(ST A 4 (R0 PDL)) *__*2610 (L A 4 (R0 PDL)) (CR NILR A) (BC 7 *__*2619) 00023740
(*REMOVE NIL) *__*2619 *__*2618 (L A 4 (R0 PDL)) (L A 0 (R0 A))         00023750
(L A 4 (R0 A)) (L A 0 (R0 A)) (*LOAD Q (QUOTE 4)) (*LINK PLANTSQ 2)     00023760
(L A 4 (R0 PDL)) (L A 4 (R0 A)) (ST A 4 (R0 PDL)) (BC 15 *__*2610)      00023770
) NIL)                                                                  00023780
                                                                        00023790
LAP360((     (BPSUSED SUBR 1)                                           00023800
(*MOVE 8 000000004X) (L A 4 (R0 PDL)) (*STORE A (SPECIAL PWRDS))        00023810
(*REMOVE NIL) ) NIL)                                                    00023820
                                                                        00023830
LAP360((     (PRINLAP SUBR 1)                                           00023840
(*MOVE 8 000000004X) (L A 4 (R0 PDL)) (*STORE A (SPECIAL PLAP))         00023850
(*REMOVE NIL) ) NIL)                                                    00023860
                                                                        00023870
UNSPECIAL ((BPSV LOC LOCE QLST Y Z PLAP PWRDS))                         00023880
                                                                        00023890
UNCOMMON ((BPS))                                                        00023900
                                                                        00023910
REMEXPR ((LAP360 *_ASSEMBLE *_LABLER *_LOCAL *_LONG *_GTCL *_LOOK       00023920
*_REGSET *_QSET BPSUSED PRINLAP REMEXPR))                               00023930
                                                                        00023940
PRINLAP (NIL) BPSUSED (T)                                               00023950
                                                                        00023960
REMPROP (PLAP APVAL) REMPROP (PWRDS APVAL)                              00023970
                                                                        00023980
                                                                        00023990
COMMENT (******** Compilation of *_COM2 ********)                       00024000
                                                                        00024010
LAP360((     (*_COM2 SUBR 4)                                            00024020
(*MOVE 24 000000010X) (L Q 12 (R0 PDL)) (L A 16 (R0 PDL))               00024030
(*LINK *_PASSONE 2)(L Q 16(R0 PDL))(*LINK *_PHASE2 2)(ST A 20 (R0 PDL)) 00024040
(LA R0 3 (R0 R0)) (BAL R2 16 (R0 R12)) (L* A 16 (R0 PDL))               00024050
(L* A 4 (R0 PDL)) (L* A 8 (R0 PDL)) (L Q 20 (R0 PDL)) (L Q 0 (R0 Q))    00024060
(*LINK CONS 2) (L Q 20 (R0 PDL)) (L Q 4 (R0 Q)) (L Q 0 (R0 Q))          00024070
(*LINK LAP360 2) (*LOAD Q (QUOTE EXPR)) (L A 16 (R0 PDL))               00024080
(*LINK REMPROP 2) (*LOAD Q (QUOTE FEXPR)) (L A 16 (R0 PDL))             00024090
(*LINK REMPROP 2) (L A 16 (R0 PDL)) (*REMOVE NIL) ) NIL)                00024100
                                                                        00024110
COMMENT (Definition of Some LAP Functions)                              00024120
                                                                        00024130
LAP360(( (SETC SUBR 3) (L M 8(R0 R12))(L R0 0(R0 M )) (ST R0 TEMP)      00024140
  (ST NILR 0(R0 M)) (*LINK SASSOC 3) (L R0 TEMP) (ST R0 4(R0 A))        00024150
  (*RETURN NIL) TEMP (DC 0X) ) NIL )                                    00024160
                                                                        00024170
LAP360 (((RELINK SUBR 2) (SR Q NILR) (ST Q ADDR2) (L A 0 (R0 A))        00024180
         (MVC 0 (16 A) ADDR1) (*RETURN NIL) ADDR1 (DC 005A00700X)       00024190
         (DC 58A0A00AX) (DC 1AA507FAX) ADDR2 (DC 0X)) NIL)              00024200
                                                                        00024210
LAP360(( (EXCISE SUBR 1) (CR A NILR) (BC 7 TRU) (*LOAD A (QUOTE LAP360))00024220
 (*LOAD Q (QUOTE SUBR)) LOP (L A 4(R0 A)) (C Q 0(R0 A)) (BC 7 LOP)      00024230
 (L A 4(R0 A)) (L A 0(R0 A)) (L A 0(R0 A)) END (SR A K4) (SR A K4)      00024240
 (SRL A 3(R0 R0)) (SLL A 11(R0 R0)) (SRL A 8(R0 R0)) (L Q 12(R0 R12))   00024250
 (ST A 0(R0 Q)) (LR A NILR)                                             00024260
 (*RETURN NIL) TRU (LA A BEX) (BC 15 END) BEX (DC 0X) (DC 0X) )NIL)     00024270
                                                                        00024280
LAP360(((OVOFF SUBR 0)(L R1 CON)(DC 04100700X)(*RETURN NIL)             00024290
CON (DC 06000000X))NIL)                                                 00024300
                                                                        00024310
LAP360(((OVON  SUBR 0)(L R1 CON)(DC 04100700X)(*RETURN NIL)             00024320
CON (DC 0E000000X))NIL)                                                 00024330
                                                                        00024340
                                                                        00024350
BPSUSED (NIL)                                                           00024360
                                                                        00024370
OPTIMIZE (NIL)                                                          00024380
                                                                        00024390
COMMENT (******** END OF LISP/360 LAP AND COMPILER ********)            00024400
                                                                        00024410
REMPROP (COMMENT FEXPR)                                                 00024420
</pre>
</body>
</html>
« March 2024 »
Su Mo Tu We Th Fr Sa
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
 

Powered by Plone CMS, the Open Source Content Management System

This site conforms to the following standards: