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