File psl-1983/3-1/kernel/20/symbl.mac from the latest check-in


	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


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]