Artifact d9094494c50f3e6242d1baa5d9829df4c4bbb461853550b78452c0e9660b02a7:

• File psl-1983/3-1/kernel/20/symbl.mac — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 13859) [annotate] [blame] [check-ins using] [more...]

	search monsym,macsym
	radix 10
	extern SYMNAM
	extern SYMVAL
	extern SYMFNC
	extern SYMPRP
	extern L0001
	extern L0002
	extern L0003
	extern BNDSTK
	extern L1255
	extern L1825
	extern L1256
L3349:	42
	byte(7)42,42,42,42,42,32,66,105,110,100,105,110,103,32,115,116,97,99,107,32,111,118,101,114,102,108,111,119,44,32,114,101,115,116,97,114,116,105,110,103,46,46,46,0
	0
; (!*ENTRY BSTACKOVERFLOW EXPR 0)
L3350:	intern L3350
 MOVE 2,L3348
 MOVE 1,SYMVAL+476
 PUSHJ 15,SYMFNC+356
 HRRZI 2,10
 MOVE 1,SYMVAL+476
 PUSHJ 15,SYMFNC+359
 JRST SYMFNC+536
L3348:	<4_30>+<1_18>+L3349
L3352:	43
	byte(7)42,42,42,42,42,32,66,105,110,100,105,110,103,32,115,116,97,99,107,32,117,110,100,101,114,102,108,111,119,44,32,114,101,115,116,97,114,116,105,110,103,46,46,46,0
	0
; (!*ENTRY BSTACKUNDERFLOW EXPR 0)
L3353:	intern L3353
 MOVE 2,L3351
 MOVE 1,SYMVAL+476
 PUSHJ 15,SYMFNC+356
 HRRZI 2,10
 MOVE 1,SYMVAL+476
 PUSHJ 15,SYMFNC+359
 JRST SYMFNC+536
L3351:	<4_30>+<1_18>+L3352
	0
; (!*ENTRY CAPTUREENVIRONMENT EXPR 0)
L3354:	intern L3354
 MOVE 1,L1256
 POPJ 15,0
	1
; (!*ENTRY RESTOREENVIRONMENT EXPR 1)
L3355:	intern L3355
 MOVE 3,1
 CAML 1,L1255
 JRST L3356
 JRST SYMFNC+780
L3356: CAMGE 3,L1256
 JRST L3357
 MOVE 1,0
 POPJ 15,0
L3357: MOVE 1,L1256
 MOVE 2,-1(1)
 MOVE 6,0(1)
 MOVEM 6,SYMVAL(2)
 MOVNI 7,2
 ADDM 7,L1256
 JRST L3356
	0
; (!*ENTRY CLEARBINDINGS EXPR 0)
L3358:	intern L3358
 MOVE 1,L1255
 PUSHJ 15,SYMFNC+514
 JRST SYMFNC+538
	1
; (!*ENTRY UNBINDN EXPR 1)
L3359:	intern L3359
 MOVNS 1
 LSH 1,1
 ADD 1,L1256
 JRST SYMFNC+514
L3363:	26
	byte(7)84,32,97,110,100,32,78,73,76,32,99,97,110,110,111,116,32,98,101,32,114,101,98,111,117,110,100,0
L3364:	6
	byte(7)98,105,110,100,105,110,103,0
	2
; (!*ENTRY LBIND1 EXPR 2)
LBIND1:	intern LBIND1
 LDB 11,L3360
 CAIN 11,30
 JRST L3365
 MOVE 2,L3361
 JRST SYMFNC+130
L3365: CAMN 1,0
 JRST L3366
 CAME 1,SYMVAL+84
 JRST L3367
L3366: MOVE 1,L3362
 JRST SYMFNC+156
L3367: HRRZI 7,2
 ADDM 7,L1256
 MOVE 6,L1825
 CAML 6,L1256
 JRST L3368
 JRST SYMFNC+513
L3368: TLZ 1,258048
 MOVE 4,L1256
 MOVEM 1,-1(4)
 MOVE 6,SYMVAL(1)
 MOVEM 6,0(4)
 MOVEM 2,SYMVAL(1)
 MOVE 1,2
 POPJ 15,0
L3360:	point 6,1,5
L3362:	<4_30>+<1_18>+L3363
L3361:	<4_30>+<1_18>+L3364
	1
; (!*ENTRY PBIND1 EXPR 1)
PBIND1:	intern PBIND1
 MOVE 2,0
 JRST SYMFNC+511
	0
; (!*ENTRY FASTBIND EXPR 0)
L3369:	intern L3369
 MOVE 7,L1256
L3370: MOVE 6,0(10)
 TLNN 6,261632
 JRST L3371
 MOVEM 7,L1256
 JRST 0(10)
L3371: ADDI 7,2
 CAML 7,L1825
 JRST SYMFNC+513
 HLRZ 8,6
 CAILE 8,5
 ADDI 8,L0002-6
 HRRZM 6,-1(7)
 HRRZ 6,6
 MOVE 9,SYMVAL(6)
 MOVEM 9,0(7)
 MOVE 8,0(8)
 MOVEM 8,SYMVAL(6)
 AOJA 10,L3370
	0
; (!*ENTRY FASTUNBIND EXPR 0)
L3372:	intern L3372
 MOVE 6,L1256
 MOVE 7,0(10)
L3373: JUMPG 7,L3374
 MOVEM 6,L1256
 JRST 1(10)
L3374: CAMGE 6,L1255
 JRST SYMFNC+780
 DMOVE 8,-1(6)
 MOVEM 9,SYMVAL(8)
 SUBI 6,2
 SOJA 7,L3373
	1
; (!*ENTRY UNBOUNDP EXPR 1)
L3378:	intern L3378
 LDB 11,L3375
 CAIE 11,30
 JRST L3379
 MOVE 3,1
 TLZ 3,258048
 LDB 2,L3376
 CAIE 2,29
 JRST L3380
 MOVE 1,SYMVAL+84
 POPJ 15,0
L3380: MOVE 1,0
 POPJ 15,0
L3379: MOVE 2,L3377
 JRST SYMFNC+130
L3375:	point 6,1,5
L3376:	point 6,SYMVAL(3),5
L3377:	<30_30>+766
	1
; (!*ENTRY MAKEUNBOUND EXPR 1)
L3383:	intern L3383
 LDB 11,L3381
 CAIE 11,30
 JRST L3384
 MOVE 2,1
 TLZ 2,258048
 MOVE 1,2
 TLZ 1,258048
 TLO 1,118784
 MOVEM 1,SYMVAL(2)
 POPJ 15,0
L3384: MOVE 2,L3382
 JRST SYMFNC+130
L3381:	point 6,1,5
L3382:	<30_30>+782
L3389:	18
	byte(7)37,114,32,105,115,32,97,110,32,117,110,98,111,117,110,100,32,73,68,0
	1
; (!*ENTRY VALUECELL EXPR 1)
L3390:	intern L3390
 PUSH 15,0
 PUSH 15,1
 LDB 11,L3385
 CAIE 11,30
 JRST L3391
 MOVE 3,1
 TLZ 3,258048
 MOVE 6,SYMVAL(3)
 MOVEM 6,-1(15)
 LDB 2,L3386
 CAIE 2,29
 JRST L3392
 MOVE 2,1
 MOVE 1,L3387
 PUSHJ 15,SYMFNC+155
 MOVE 3,0(15)
 MOVE 2,1
 HRRZI 1,99
 ADJSP 15,-2
 JRST SYMFNC+236
L3392: MOVE 1,-1(15)
 JRST L3393
L3391: MOVE 2,L3388
 ADJSP 15,-2
 JRST SYMFNC+130
L3393: ADJSP 15,-2
 POPJ 15,0
L3385:	point 6,1,5
L3386:	point 6,-1(15),5
L3388:	<30_30>+523
L3387:	<4_30>+<1_18>+L3389
L3397:	22
	byte(7)84,32,97,110,100,32,78,73,76,32,99,97,110,110,111,116,32,98,101,32,83,69,84,0
	2
; (!*ENTRY SET EXPR 2)
SET:	intern SET
 LDB 11,L3394
 CAIE 11,30
 JRST L3398
 CAMN 1,0
 JRST L3399
 CAMN 1,SYMVAL+84
 JRST L3399
 MOVE 4,1
 TLZ 4,258048
 MOVEM 2,SYMVAL(4)
 MOVE 1,2
 POPJ 15,0
L3399: MOVE 1,L3395
 JRST SYMFNC+156
L3398: MOVE 2,L3396
 JRST SYMFNC+130
L3394:	point 6,1,5
L3396:	<30_30>+262
L3395:	<4_30>+<1_18>+L3397
L3404:	33
	byte(7)84,104,101,32,110,117,108,108,32,115,116,114,105,110,103,32,99,97,110,110,111,116,32,98,101,32,105,110,116,101,114,110,101,100,0
; (!*ENTRY ADDTOOBLIST EXPR 1)
L3405:	intern L3405
 ADJSP 15,5
 MOVEM 0,-1(15)
 MOVEM 0,-3(15)
 MOVE 2,1
 TLZ 2,258048
 MOVEM 2,-2(15)
 MOVE 1,SYMNAM(2)
 TLZ 1,258048
 MOVEM 1,0(15)
 MOVE 6,0(1)
 LDB 3,L3400
 TDNE 3,L3401
 TDO 3,L3402
 MOVEM 3,-4(15)
 JUMPGE 3,L3406
 MOVE 1,L3403
 ADJSP 15,-5
 JRST SYMFNC+156
L3406: JUMPN 3,L3407
 SETZM 2
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 HRLI 1,122880
 JRST L3408
L3407: PUSHJ 15,L3409
 MOVE 2,1
 MOVEM 2,-1(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 SETZM 2
 PUSHJ 15,SYMFNC+237
 CAMN 1,0
 JRST L3410
 MOVE 2,-1(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 HRLI 1,122880
 JRST L3408
L3410: MOVE 3,-2(15)
 MOVE 2,-1(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 DPB 3,2
 MOVE 1,-4(15)
 PUSHJ 15,SYMFNC+385
 MOVEM 1,-3(15)
 MOVE 2,0(15)
 PUSHJ 15,SYMFNC+394
 MOVE 1,-3(15)
 TLZ 1,258048
 TLO 1,16384
 MOVE 7,-2(15)
 MOVEM 1,SYMNAM(7)
 MOVE 1,-2(15)
 HRLI 1,122880
L3408: ADJSP 15,-5
 POPJ 15,0
L3400:	point 30,6,35
L3401:	536870912
L3402:	-536870912
L3403:	<4_30>+<1_18>+L3404
L3415:	33
	byte(7)84,104,101,32,110,117,108,108,32,115,116,114,105,110,103,32,99,97,110,110,111,116,32,98,101,32,105,110,116,101,114,110,101,100,0
; (!*ENTRY LOOKUPORADDTOOBLIST EXPR 1)
L3416:	intern L3416
 ADJSP 15,5
 MOVEM 0,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 TLZ 1,258048
 MOVEM 1,0(15)
 MOVE 6,0(1)
 LDB 2,L3411
 TDNE 2,L3412
 TDO 2,L3413
 MOVEM 2,-4(15)
 JUMPGE 2,L3417
 MOVE 1,L3414
 ADJSP 15,-5
 JRST SYMFNC+156
L3417: JUMPN 2,L3418
 SETZM 2
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 HRLI 1,122880
 JRST L3419
L3418: PUSHJ 15,L3409
 MOVE 2,1
 MOVEM 2,-1(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 SETZM 2
 PUSHJ 15,SYMFNC+237
 CAMN 1,0
 JRST L3420
 MOVE 2,-1(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 HRLI 1,122880
 JRST L3419
L3420: PUSHJ 15,SYMFNC+389
 MOVEM 1,-2(15)
 MOVE 3,1
 MOVE 2,-1(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 DPB 3,2
 MOVE 1,-4(15)
 PUSHJ 15,SYMFNC+385
 MOVEM 1,-3(15)
 MOVE 2,0(15)
 TLZ 2,258048
 PUSHJ 15,SYMFNC+394
 MOVE 2,-3(15)
 TLZ 2,258048
 TLO 2,16384
 MOVE 1,-2(15)
 ADJSP 15,-5
 JRST L3421
L3419: ADJSP 15,-5
 POPJ 15,0
L3411:	point 30,6,35
L3412:	536870912
L3413:	-536870912
L3414:	<4_30>+<1_18>+L3415
	1
; (!*ENTRY NEWID EXPR 1)
NEWID:	intern NEWID
 PUSH 15,1
 PUSHJ 15,SYMFNC+389
 MOVE 2,0(15)
 ADJSP 15,-1
 JRST L3421
; (!*ENTRY INITNEWID EXPR 2)
L3421:	intern L3421
 ADJSP 15,1
 MOVEM 2,SYMNAM(1)
 HRLI 1,122880
 MOVEM 1,0(15)
 PUSHJ 15,SYMFNC+782
 MOVE 2,0
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+757
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+753
 MOVE 1,0(15)
 ADJSP 15,-1
 POPJ 15,0
	1
; (!*ENTRY HASHFUNCTION EXPR 1)
L3425:	intern L3425
 ADJSP 15,1
 TLZ 1,258048
 MOVEM 1,0(15)
 SETZM 4
 MOVE 6,0(1)
 LDB 2,L3422
 TDNE 2,L3423
 TDO 2,L3424
 MOVE 5,2
 CAIG 2,28
 JRST L3426
 HRRZI 5,28
L3426: SETZM 3
L3427: CAMLE 3,5
 JRST L3428
 MOVE 2,3
 MOVE 1,0(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 HRRZI 2,28
 SUB 2,3
 LSH 1,0(2)
 XOR 1,4
 MOVE 4,1
 AOS 3
 JRST L3427
L3428: HRRZI 2,8209
 MOVE 1,4
 ADJSP 15,-1
 IDIV 1,2
 MOVE 1,2
 POPJ 15,0
L3422:	point 30,6,35
L3423:	536870912
L3424:	-536870912
L3431:	14
	byte(7)79,98,108,105,115,116,32,111,118,101,114,102,108,111,119,0
; (!*ENTRY INOBLIST EXPR 1)
L3409:	intern L3409
 ADJSP 15,4
 MOVEM 1,0(15)
 PUSHJ 15,SYMFNC+783
 MOVEM 1,-1(15)
 MOVEM 1,-3(15)
 SETOM -2(15)
L3432: MOVE 2,-3(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 JUMPN 1,L3433
 MOVE 6,-2(15)
 CAMN 6,L3429
 JRST L3434
 MOVE 1,-2(15)
 JRST L3435
L3434: MOVE 1,-3(15)
 JRST L3435
L3433: MOVE 2,-3(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 CAME 1,L3429
 JRST L3436
 MOVE 6,-2(15)
 CAME 6,L3429
 JRST L3436
 MOVE 6,-3(15)
 MOVEM 6,-2(15)
 JRST L3437
L3436: MOVE 2,-3(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 MOVE 2,0(15)
 MOVE 1,SYMNAM(1)
 PUSHJ 15,SYMFNC+196
 CAMN 1,0
 JRST L3437
 MOVE 1,-3(15)
 JRST L3435
L3437: MOVE 6,-3(15)
 CAIE 6,8209
 JRST L3438
 SETZM 1
 JRST L3439
L3438: MOVE 1,-3(15)
 AOS 1
L3439: MOVEM 1,-3(15)
 CAME 1,-1(15)
 JRST L3432
 MOVE 1,L3430
 PUSHJ 15,SYMFNC+380
 JRST L3432
L3435: ADJSP 15,-4
 POPJ 15,0
L3429:	-1
L3430:	<4_30>+<1_18>+L3431
L3443:	11
	byte(7)73,68,32,111,114,32,115,116,114,105,110,103,0
	1
; (!*ENTRY INTERN EXPR 1)
INTERN:	intern INTERN
 LDB 11,L3440
 CAIE 11,30
 JRST L3444
 JRST L3405
L3444: LDB 11,L3440
 CAIE 11,4
 JRST L3445
 JRST L3416
L3445: MOVE 3,L3441
 MOVE 2,L3442
 JRST SYMFNC+132
L3440:	point 6,1,5
L3442:	<30_30>+560
L3441:	<4_30>+<1_18>+L3443
L3449:	7
	byte(7)110,111,110,45,99,104,97,114,0
	1
; (!*ENTRY REMOB EXPR 1)
REMOB:	intern REMOB
 PUSH 15,0
 PUSH 15,1
 LDB 11,L3446
 CAIN 11,30
 JRST L3450
 MOVE 2,L3447
 ADJSP 15,-2
 JRST SYMFNC+130
L3450: MOVE 2,1
 TLZ 2,258048
 MOVEM 2,-1(15)
 CAIL 2,128
 JRST L3451
 MOVE 3,L3448
 MOVE 2,L3447
 ADJSP 15,-2
 JRST SYMFNC+132
L3451: MOVE 6,SYMNAM(2)
 MOVEM 6,-1(15)
 MOVE 1,-1(15)
 PUSHJ 15,L3409
 MOVE 2,1
 MOVEM 2,-1(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 SETZM 2
 PUSHJ 15,SYMFNC+237
 CAMN 1,0
 JRST L3452
 SETOM 3
 MOVE 2,-1(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 DPB 3,2
L3452: MOVE 1,0(15)
 ADJSP 15,-2
 POPJ 15,0
L3446:	point 6,1,5
L3448:	<4_30>+<1_18>+L3449
L3447:	<30_30>+784
	1
; (!*ENTRY INTERNP EXPR 1)
L3457:	intern L3457
 PUSH 15,1
 LDB 11,L3453
 CAIE 11,30
 JRST L3458
 TLZ 1,258048
 MOVEM 1,0(15)
 CAIGE 1,128
 JRST L3459
 MOVE 1,0
 JRST L3460
L3459: MOVE 1,SYMVAL+84
L3460: CAME 1,0
 JRST L3461
 MOVE 1,0(15)
 MOVE 1,SYMNAM(1)
 PUSHJ 15,L3409
 MOVE 2,1
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 CAME 1,0(15)
 JRST L3462
 MOVE 1,SYMVAL+84
 JRST L3461
L3458: LDB 11,L3453
 CAIE 11,4
 JRST L3462
 MOVE 2,1
 TLZ 2,258048
 MOVE 6,0(2)
 LDB 1,L3454
 TDNE 1,L3455
 TDO 1,L3456
 JUMPE 1,L3463
 MOVE 1,0
 JRST L3464
L3463: MOVE 1,SYMVAL+84
L3464: CAME 1,0
 JRST L3461
 MOVE 1,0(15)
 PUSHJ 15,L3409
 MOVE 2,1
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 SETZM 2
 ADJSP 15,-1
 JRST SYMFNC+237
L3462: MOVE 1,0
L3461: ADJSP 15,-1
 POPJ 15,0
L3453:	point 6,1,5
L3454:	point 30,6,35
L3455:	536870912
L3456:	-536870912
	extern L3465
	0
; (!*ENTRY GENSYM EXPR 0)
GENSYM:	intern GENSYM
 HRRZI 1,4
 PUSHJ 15,L3466
 XMOVEI 1,L3465
 PUSHJ 15,SYMFNC+395
 JRST SYMFNC+649
; (!*ENTRY GENSYM1 EXPR 1)
L3466:	intern L3466
L3467: MOVE 5,1
 MOVE 4,0
 JUMPLE 1,L3468
 MOVE 2,1
 XMOVEI 1,1+L3465
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 MOVE 2,1
 MOVE 4,2
 CAIL 2,57
 JRST L3469
 MOVE 3,2
 AOS 3
 MOVE 2,5
 XMOVEI 1,1+L3465
 TLO 1,204800
 ADJBP 2,1
 DPB 3,2
 POPJ 15,0
L3469: HRRZI 3,48
 MOVE 2,5
 XMOVEI 1,1+L3465
 TLO 1,204800
 ADJBP 2,1
 DPB 3,2
 MOVE 1,5
 SOS 1
 JRST L3467
L3468: SETZM 2
 XMOVEI 1,1+L3465
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 MOVE 3,1
 AOS 3
 SETZM 2
 XMOVEI 1,1+L3465
 TLO 1,204800
 ADJBP 2,1
 DPB 3,2
 HRRZI 1,4
 JRST L3467
	0
; (!*ENTRY INTERNGENSYM EXPR 0)
L3470:	intern L3470
 HRRZI 1,4
 PUSHJ 15,L3466
 XMOVEI 1,L3465
 TLZ 1,258048
 TLO 1,16384
 JRST SYMFNC+560
	1
; (!*ENTRY MAPOBL EXPR 1)
MAPOBL:	intern MAPOBL
 PUSH 15,L3471
 PUSH 15,1
L3472: MOVE 6,-1(15)
 CAIG 6,127
 JRST L3473
 SETZM 1
 JRST L3474
L3473: MOVE 2,0(15)
 MOVE 1,-1(15)
 HRLI 1,122880
 MOVE 6,2
 PUSHJ 15,SYMFNC+288
 AOS -1(15)
 JRST L3472
L3474: SETZM -1(15)
L3475: MOVE 6,-1(15)
 CAIG 6,8209
 JRST L3476
 SETZM 1
 JRST L3477
L3476: MOVE 2,-1(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 SETZM 2
 PUSHJ 15,SYMFNC+237
 CAMN 1,0
 JRST L3478
 MOVE 2,-1(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 MOVE 2,0(15)
 HRLI 1,122880
 MOVE 6,2
 PUSHJ 15,SYMFNC+288
L3478: AOS -1(15)
 JRST L3475
L3477: ADJSP 15,-2
 POPJ 15,0
L3471:	0
	extern L3479
	1
; (!*ENTRY GLOBALLOOKUP EXPR 1)
L3482:	intern L3482
 LDB 11,L3480
 CAIN 11,4
 JRST L3483
 MOVE 2,L3481
 JRST SYMFNC+143
L3483: PUSHJ 15,L3409
 MOVE 2,1
 MOVEM 2,L3479
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 SETZM 2
 PUSHJ 15,SYMFNC+237
 CAMN 1,0
 JRST L3484
 MOVE 2,L3479
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 HRLI 1,122880
 POPJ 15,0
L3484: SETZM 1
 POPJ 15,0
L3480:	point 6,1,5
L3481:	<30_30>+788
	1
; (!*ENTRY GLOBALINSTALL EXPR 1)
L3488:	intern L3488
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 0,-2(15)
 PUSHJ 15,SYMFNC+788
 MOVEM 1,-1(15)
 JUMPN 1,L3489
 PUSHJ 15,SYMFNC+389
 MOVEM 1,-1(15)
 MOVE 3,1
 MOVE 2,L3479
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 DPB 3,2
 MOVE 2,0(15)
 TLZ 2,258048
 MOVE 6,0(2)
 LDB 1,L3485
 TDNE 1,L3486
 TDO 1,L3487
 PUSHJ 15,SYMFNC+385
 MOVEM 1,-2(15)
 MOVE 2,0(15)
 TLZ 2,258048
 PUSHJ 15,SYMFNC+394
 MOVE 2,-2(15)
 TLZ 2,258048
 TLO 2,16384
 MOVE 1,-1(15)
 ADJSP 15,-3
 JRST L3421
L3489: ADJSP 15,-3
 POPJ 15,0
L3485:	point 30,6,35
L3486:	536870912
L3487:	-536870912
	1
; (!*ENTRY GLOBALREMOVE EXPR 1)
L3490:	intern L3490
 ADJSP 15,2
 MOVEM 1,0(15)
 PUSHJ 15,SYMFNC+788
 MOVEM 1,-1(15)
 JUMPN 1,L3491
 SETZM 1
 JRST L3492
L3491: MOVE 2,L3479
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 MOVEM 1,-1(15)
 SETOM 3
 MOVE 2,L3479
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 DPB 3,2
 MOVE 1,-1(15)
 HRLI 1,122880
L3492: ADJSP 15,-2
 POPJ 15,0
	0
; (!*ENTRY INITOBLIST EXPR 0)
L3493:	intern L3493
 ADJSP 15,2
 MOVE 1,L0001
 SOS 1
 MOVEM 1,0(15)
 HRRZI 6,128
 MOVEM 6,-1(15)
L3494: MOVE 6,-1(15)
 CAMLE 6,0(15)
 JRST L3495
 MOVE 1,-1(15)
 MOVE 1,SYMNAM(1)
 PUSHJ 15,L3409
 MOVE 3,-1(15)
 MOVE 2,1
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 DPB 3,2
 AOS -1(15)
 JRST L3494
L3495: MOVE 1,0
 ADJSP 15,-2
 POPJ 15,0
	end