perm filename RESTAB[X,AIL]2 blob
sn#043206 filedate 1973-05-18 generic text, type T, neo UTF8
00005 SUBTTL INITIAL SYMBOL TABLE
00010 BEGIN RESTAB
00015 IFNDEF DCS,<DCS ←← 0>
00020 ↑RESYM:
00025 LSTON(SMTB)
00030 UNTYPE←←0
00035
00040
00045 ↑RINF ←←CLASOP+154
00050 ↑RXOR ←←CLASOP+40
00055 ↑RAND ←←CLASOP+307
00060 ↑RNOT ←←CLASOP+227
00065 ↑RIN ←←CLASOP+134
00070 ↑ROR ←←CLASOP+311
00075 ↑RCOMME←←CLASOP+332
00080 ↑REQV ←←CLASOP+35
00085 ↑RUNION←←CLASOP+337
00090 ↑RINTER←←CLASOP+360
00095 ↑RSETO ←←CLASOP+356
00100 ↑RSETC ←←CLASOP+321
00105 ↑RSWAP ←←CLASOP+276
00110 ↑RLEQ ←←CLASOP+56
00115 ↑RNEQ ←←CLASOP+55
00120 ↑RGEQ ←←CLASOP+57
00125 ↑RASSOC←←CLASOP+41
00130 ; FUNCTION SYMBOL TABLE ENTRIES
00135 ↑IPROC:
00140
00145
00150 SYM1: 0 ;HEADER FOR M
00155 1
00160 POINT 7,.+11
00165 XWD EXTRNL+OWN,PROCED+FORWRD+UNTYPE
00170 0
00175 IFN DCS,<0+M ;>0
00180 BYTE (6) 0
00185 BLOCK 2
00190 XWD SYM2,0
00195 0
00200 ASCII /M/
00205
00210
00215
00220
00225 SYM2: 0 ;HEADER FOR OUT
00230 3
00235 POINT 7,.+10
00240 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
00245 0
00250 IFN DCS,<0+OUT ;>0
00255 BYTE (6) 1,2,0
00260 BLOCK 2
00265 XWD SYM3,SYM1
00270 ASCII /OUT/
00275
00280
00285
00290
00295 SYM3: 0 ;HEADER FOR BREAKSET
00300 10
00305 POINT 7,.+10
00310 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
00315 0
00320 IFN DCS,<0+BREAKSET ;>0
00325 BYTE (6) 1,2,1,0
00330 BLOCK 2
00335 XWD SYM4,SYM2
00340 ASCII /BREAKSET/
00345
00350
00355
00360
00365 SYM4: 0 ;HEADER FOR INPUT
00370 5
00375 POINT 7,.+10
00380 XWD EXTRNL+OWN,PROCED+FORWRD+STRING
00385 0
00390 IFN DCS,<0+INPUT ;>0
00395 BYTE (6) 1,1,0
00400 BLOCK 2
00405 XWD SYM5,SYM3
00410 ASCII /INPUT/
00415
00420
00425
00430
00435 SYM5: SYM1 ;HEADER FOR LOOKUP
00440 6
00445 POINT 7,.+10
00450 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
00455 0
00460 IFN DCS,<0+LOOKUP ;>0
00465 BYTE (6) 1,2,3,0
00470 BLOCK 2
00475 XWD SYM6,SYM4
00480 ASCII /LOOKUP/
00485
00490
00495
00500
00505 SYM6: SYM2 ;HEADER FOR OPEN
00510 4
00515 POINT 7,.+10
00520 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
00525 0
00530 IFN DCS,<0+OPEN ;>0
00535 BYTE (6) 1,2,1,1,1,3,3,3,0
00540 BLOCK 1
00545 XWD SYM7,SYM5
00550 ASCII /OPEN/
00555
00560
00565
00570
00575 EXTERNAL POINT
00580 SYM7: 0 ;HEADER FOR POINT
00585 5
00590 POINT 7,.+10
00595 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
00600 0
00605 XWD 0+POINT,IFN DCS,<0+POINT ;>0
00610 BYTE (6) 1,3,1,0
00615 BLOCK 2
00620 XWD SYM8,SYM6
00625 ASCII /POINT/
00630
00635
00640
00645
00650 ↑.BBPP.:
00655 SYM8: 0 ;HEADER FOR BBPP.
00660 5
00665 POINT 7,.+10
00670 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
00675 0
00680 IFN DCS,<0+BBPP. ;>0
00685 BYTE (6) 1,3,1,0
00690 BLOCK 2
00695 XWD SYM9,SYM7
00700 ASCII /BBPP./
00705
00710
00715
00720
00725 EXTERNAL EQU
00730 SYM9: 0 ;HEADER FOR EQU
00735 3
00740 POINT 7,.+10
00745 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
00750 0
00755 XWD 0+EQU,IFN DCS,<0+EQU ;>0
00760 BYTE (6) 2,2,0
00765 BLOCK 2
00770 XWD SYM10,SYM8
00775 ASCII /EQU/
00780
00785
00790
00795
00800 EXTERNAL CVS
00805 SYM10: 0 ;HEADER FOR CVS
00810 3
00815 POINT 7,.+10
00820 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
00825 0
00830 XWD 0+CVS,IFN DCS,<0+CVS ;>0
00835 BYTE (6) 1,0
00840 BLOCK 2
00845 XWD SYM11,SYM9
00850 ASCII /CVS/
00855
00860
00865
00870
00875 EXTERNAL CVD
00880 SYM11: SYM3 ;HEADER FOR CVD
00885 3
00890 POINT 7,.+10
00895 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
00900 0
00905 XWD 0+CVD,IFN DCS,<0+CVD ;>0
00910 BYTE (6) 2,0
00915 BLOCK 2
00920 XWD SYM12,SYM10
00925 ASCII /CVD/
00930
00935
00940
00945
00950 EXTERNAL SCAN
00955 SYM12: SYM11 ;HEADER FOR SCAN
00960 4
00965 POINT 7,.+10
00970 XWD EXTRNL+OWN+CONOK,PROCED+FORWRD+STRING
00975 0
00980 XWD 0+SCAN,IFN DCS,<0+SCAN ;>0
00985 BYTE (6) 4,1,3,0
00990 BLOCK 2
00995 XWD SYM13,SYM11
01000 ASCII /SCAN/
01005
01010
01015
01020
01025 SYM13: SYM9 ;HEADER FOR RELEASE
01030 7
01035 POINT 7,.+10
01040 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01045 0
01050 IFN DCS,<0+RELEASE ;>0
01055 BYTE (6) 1,0
01060 BLOCK 2
01065 XWD SYM14,SYM12
01070 ASCII /RELEASE/
01075
01080
01085
01090
01095 SYM14: SYM12 ;HEADER FOR LINOUT
01100 6
01105 POINT 7,.+10
01110 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01115 0
01120 IFN DCS,<0+LINOUT ;>0
01125 BYTE (6) 1,1,0
01130 BLOCK 2
01135 XWD SYM15,SYM13
01140 ASCII /LINOUT/
01145
01150
01155
01160
01165 SYM15: 0 ;HEADER FOR CLOSE
01170 5
01175 POINT 7,.+10
01180 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01185 0
01190 IFN DCS,<0+CLOSE ;>0
01195 BYTE (6) 1,0
01200 BLOCK 2
01205 XWD SYM16,SYM14
01210 ASCII /CLOSE/
01215
01220
01225
01230
01235 SYM16: SYM10 ;HEADER FOR CLOSO
01240 5
01245 POINT 7,.+10
01250 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01255 0
01260 IFN DCS,<0+CLOSO ;>0
01265 BYTE (6) 1,0
01270 BLOCK 2
01275 XWD SYM17,SYM15
01280 ASCII /CLOSO/
01285
01290
01295
01300
01305 SYM17: 0 ;HEADER FOR CLOSIN
01310 6
01315 POINT 7,.+10
01320 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01325 0
01330 IFN DCS,<0+CLOSIN ;>0
01335 BYTE (6) 1,0
01340 BLOCK 2
01345 XWD SYM18,SYM16
01350 ASCII /CLOSIN/
01355
01360
01365
01370
01375 EXTERNAL CVOS
01380 SYM18: SYM15 ;HEADER FOR CVOS
01385 4
01390 POINT 7,.+10
01395 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
01400 0
01405 XWD 0+CVOS,IFN DCS,<0+CVOS ;>0
01410 BYTE (6) 5,0
01415 BLOCK 2
01420 XWD SYM19,SYM17
01425 ASCII /CVOS/
01430
01435
01440
01445
01450 SYM19: SYM13 ;HEADER FOR ENTER
01455 5
01460 POINT 7,.+10
01465 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01470 0
01475 IFN DCS,<0+ENTER ;>0
01480 BYTE (6) 1,2,3,0
01485 BLOCK 2
01490 XWD SYM20,SYM18
01495 ASCII /ENTER/
01500
01505
01510
01515
01520 SYM20: 0 ;HEADER FOR MTAPE
01525 5
01530 POINT 7,.+10
01535 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01540 0
01545 IFN DCS,<0+MTAPE ;>0
01550 BYTE (6) 1,1,0
01555 BLOCK 2
01560 XWD SYM21,SYM19
01565 ASCII /MTAPE/
01570
01575
01580
01585
01590 SYM21: SYM17 ;HEADER FOR WORDIN
01595 6
01600 POINT 7,.+10
01605 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
01610 0
01615 IFN DCS,<0+WORDIN ;>0
01620 BYTE (6) 1,0
01625 BLOCK 2
01630 XWD SYM22,SYM20
01635 ASCII /WORDIN/
01640
01645
01650
01655
01660 SYM22: 0 ;HEADER FOR WORDOUT
01665 7
01670 POINT 7,.+10
01675 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01680 0
01685 IFN DCS,<0+WORDOUT ;>0
01690 BYTE (6) 1,5,0
01695 BLOCK 2
01700 XWD SYM23,SYM21
01705 ASCII /WORDOUT/
01710
01715
01720
01725
01730 EXTERNAL CVO
01735 SYM23: SYM7 ;HEADER FOR CVO
01740 3
01745 POINT 7,.+10
01750 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
01755 0
01760 XWD 0+CVO,IFN DCS,<0+CVO ;>0
01765 BYTE (6) 2,0
01770 BLOCK 2
01775 XWD SYM24,SYM22
01780 ASCII /CVO/
01785
01790
01795
01800
01805 SYM24: SYM8 ;HEADER FOR USETI
01810 5
01815 POINT 7,.+10
01820 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01825 0
01830 IFN DCS,<0+USETI ;>0
01835 BYTE (6) 1,1,0
01840 BLOCK 2
01845 XWD SYM25,SYM23
01850 ASCII /USETI/
01855
01860
01865
01870
01875 SYM25: SYM5 ;HEADER FOR USETO
01880 5
01885 POINT 7,.+10
01890 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01895 0
01900 IFN DCS,<0+USETO ;>0
01905 BYTE (6) 1,1,0
01910 BLOCK 2
01915 XWD SYM26,SYM24
01920 ASCII /USETO/
01925
01930
01935
01940
01945 EXTERNAL CVSIX
01950 SYM26: SYM25 ;HEADER FOR CVSIX
01955 5
01960 POINT 7,.+10
01965 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
01970 0
01975 XWD 0+CVSIX,IFN DCS,<0+CVSIX ;>0
01980 BYTE (6) 2,0
01985 BLOCK 2
01990 XWD SYM27,SYM25
01995 ASCII /CVSIX/
02000
02005
02010
02015
02020 EXTERNAL CVFIL
02025 SYM27: SYM6 ;HEADER FOR CVFIL
02030 5
02035 POINT 7,.+10
02040 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
02045 0
02050 XWD 0+CVFIL,IFN DCS,<0+CVFIL ;>0
02055 BYTE (6) 2,3,3,0
02060 BLOCK 2
02065 XWD SYM28,SYM26
02070 ASCII /CVFIL/
02075
02080
02085
02090
02095 SYM28: SYM26 ;HEADER FOR CALL
02100 4
02105 POINT 7,.+10
02110 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
02115 0
02120 IFN DCS,<0+CALL ;>0
02125 BYTE (6) 1,2,0
02130 BLOCK 2
02135 XWD SYM29,SYM27
02140 ASCII /CALL/
02145
02150
02155
02160
02165 SYM29: SYM23 ;HEADER FOR RENAME
02170 6
02175 POINT 7,.+10
02180 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
02185 0
02190 IFN DCS,<0+RENAME ;>0
02195 BYTE (6) 1,2,1,3,0
02200 BLOCK 2
02205 XWD SYM30,SYM28
02210 ASCII /RENAME/
02215
02220
02225
02230
02235 EXTERNAL CVASC
02240 SYM30: SYM28 ;HEADER FOR CVASC
02245 5
02250 POINT 7,.+10
02255 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
02260 0
02265 XWD 0+CVASC,IFN DCS,<0+CVASC ;>0
02270 BYTE (6) 2,0
02275 BLOCK 2
02280 XWD SYM31,SYM29
02285 ASCII /CVASC/
02290
02295
02300
02305
02310 EXTERNAL CVSTR
02315 SYM31: SYM19 ;HEADER FOR CVSTR
02320 5
02325 POINT 7,.+10
02330 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
02335 0
02340 XWD 0+CVSTR,IFN DCS,<0+CVSTR ;>0
02345 BYTE (6) 1,0
02350 BLOCK 2
02355 XWD SYM32,SYM30
02360 ASCII /CVSTR/
02365
02370
02375
02380
02385 EXTERNAL CVXSTR
02390 SYM32: SYM4 ;HEADER FOR CVXSTR
02395 6
02400 POINT 7,.+10
02405 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
02410 0
02415 XWD 0+CVXSTR,IFN DCS,<0+CVXSTR ;>0
02420 BYTE (6) 1,0
02425 BLOCK 2
02430 XWD SYM33,SYM31
02435 ASCII /CVXSTR/
02440
02445
02450
02455
02460 ↑.SUBSR:
02465 EXTERNAL SUBSR
02470 SYM33: SYM31 ;HEADER FOR SUBSR
02475 5
02480 POINT 7,.+10
02485 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
02490 0
02495 XWD 0+SUBSR,IFN DCS,<0+SUBSR ;>0
02500 BYTE (6) 2,1,1,0
02505 BLOCK 2
02510 XWD SYM34,SYM32
02515 ASCII /SUBSR/
02520
02525
02530
02535
02540 ↑.SUBST:
02545 EXTERNAL SUBST
02550 SYM34: SYM33 ;HEADER FOR SUBST
02555 5
02560 POINT 7,.+10
02565 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
02570 0
02575 XWD 0+SUBST,IFN DCS,<0+SUBST ;>0
02580 BYTE (6) 2,1,1,0
02585 BLOCK 2
02590 XWD SYM35,SYM33
02595 ASCII /SUBST/
02600
02605
02610
02615
02620 SYM35: 0 ;HEADER FOR SETBREAK
02625 10
02630 POINT 7,.+10
02635 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
02640 0
02645 IFN DCS,<0+SETBREAK ;>0
02650 BYTE (6) 1,2,2,2,0
02655 BLOCK 2
02660 XWD SYM36,SYM34
02665 ASCII /SETBREAK/
02670
02675
02680
02685
02690 SYM36: SYM29 ;HEADER FOR STDBRK
02695 6
02700 POINT 7,.+10
02705 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
02710 0
02715 IFN DCS,<0+STDBRK ;>0
02720 BYTE (6) 1,0
02725 BLOCK 2
02730 XWD SYM37,SYM35
02735 ASCII /STDBRK/
02740
02745
02750
02755
02760 SYM37: SYM20 ;HEADER FOR ARRYIN
02765 6
02770 POINT 7,.+10
02775 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
02780 0
02785 IFN DCS,<0+ARRYIN ;>0
02790 BYTE (6) 1,6,1,0
02795 BLOCK 2
02800 XWD SYM38,SYM36
02805 ASCII /ARRYIN/
02810
02815
02820
02825
02830 SYM38: SYM36 ;HEADER FOR ARRYOUT
02835 7
02840 POINT 7,.+10
02845 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
02850 0
02855 IFN DCS,<0+ARRYOUT ;>0
02860 BYTE (6) 1,6,1,0
02865 BLOCK 2
02870 XWD SYM39,SYM37
02875 ASCII /ARRYOUT/
02880
02885
02890
02895
02900 SYM39: SYM14 ;HEADER FOR SETFORMAT
02905 11
02910 POINT 7,.+10
02915 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
02920 0
02925 IFN DCS,<0+SETFORMAT ;>0
02930 BYTE (6) 1,1,0
02935 BLOCK 2
02940 XWD SYM40,SYM38
02945 ASCII /SETFORMAT/
02950
02955
02960
02965
02970 EXTERNAL CVG
02975 SYM40: SYM35 ;HEADER FOR CVG
02980 3
02985 POINT 7,.+10
02990 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
02995 0
03000 XWD 0+CVG,IFN DCS,<0+CVG ;>0
03005 BYTE (6) 7,0
03010 BLOCK 2
03015 XWD SYM41,SYM39
03020 ASCII /CVG/
03025
03030
03035
03040
03045 EXTERNAL CVF
03050 SYM41: SYM16 ;HEADER FOR CVF
03055 3
03060 POINT 7,.+10
03065 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
03070 0
03075 XWD 0+CVF,IFN DCS,<0+CVF ;>0
03080 BYTE (6) 7,0
03085 BLOCK 2
03090 XWD SYM42,SYM40
03095 ASCII /CVF/
03100
03105
03110
03115
03120 EXTERNAL CVE
03125 SYM42: SYM27 ;HEADER FOR CVE
03130 3
03135 POINT 7,.+10
03140 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
03145 0
03150 XWD 0+CVE,IFN DCS,<0+CVE ;>0
03155 BYTE (6) 7,0
03160 BLOCK 2
03165 XWD SYM43,SYM41
03170 ASCII /CVE/
03175
03180
03185
03190
03195 SYM43: SYM38 ;HEADER FOR REALIN
03200 6
03205 POINT 7,.+10
03210 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+FLOTNG
03215 0
03220 IFN DCS,<0+REALIN ;>0
03225 BYTE (6) 1,0
03230 BLOCK 2
03235 XWD SYM44,SYM42
03240 ASCII /REALIN/
03245
03250
03255
03260
03265 SYM44: SYM34 ;HEADER FOR INTIN
03270 5
03275 POINT 7,.+10
03280 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
03285 0
03290 IFN DCS,<0+INTIN ;>0
03295 BYTE (6) 1,0
03300 BLOCK 2
03305 XWD SYM45,SYM43
03310 ASCII /INTIN/
03315
03320
03325
03330
03335 EXTERNAL REALSCAN
03340 SYM45: SYM43 ;HEADER FOR REALSCAN
03345 10
03350 POINT 7,.+10
03355 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+FLOTNG
03360 0
03365 XWD 0+REALSCAN,IFN DCS,<0+REALSCAN ;>0
03370 BYTE (6) 4,3,0
03375 BLOCK 2
03380 XWD SYM46,SYM44
03385 ASCII /REALSCAN/
03390
03395
03400
03405
03410 EXTERNAL INTSCAN
03415 SYM46: SYM42 ;HEADER FOR INTSCAN
03420 7
03425 POINT 7,.+10
03430 XWD EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
03435 0
03440 XWD 0+INTSCAN,IFN DCS,<0+INTSCAN ;>0
03445 BYTE (6) 4,3,0
03450 BLOCK 2
03455 XWD SYM47,SYM45
03460 ASCII /INTSCAN/
03465
03470
03475
03480
03485 SYM47: SYM40 ;HEADER FOR ARRINFO
03490 7
03495 POINT 7,.+10
03500 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
03505 0
03510 IFN DCS,<0+ARRINFO ;>0
03515 BYTE (6) 10,1,0
03520 BLOCK 2
03525 XWD SYM48,SYM46
03530 ASCII /ARRINFO/
03535
03540
03545
03550
03555 SYM48: SYM41 ;HEADER FOR ARRBLT
03560 6
03565 POINT 7,.+10
03570 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
03575 0
03580 IFN DCS,<0+ARRBLT ;>0
03585 BYTE (6) 11,11,1,0
03590 BLOCK 2
03595 XWD SYM49,SYM47
03600 ASCII /ARRBLT/
03605
03610
03615
03620
03625 SYM49: SYM22 ;HEADER FOR ARRTRAN
03630 7
03635 POINT 7,.+10
03640 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
03645 0
03650 IFN DCS,<0+ARRTRAN ;>0
03655 BYTE (6) 12,12,0
03660 BLOCK 2
03665 XWD SYM50,SYM48
03670 ASCII /ARRTRAN/
03675
03680
03685
03690
03695 SYM50: SYM30 ;HEADER FOR CODE
03700 4
03705 POINT 7,.+10
03710 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
03715 0
03720 IFN DCS,<0+CODE ;>0
03725 BYTE (6) 1,3,0
03730 BLOCK 2
03735 XWD SYM51,SYM49
03740 ASCII /CODE/
03745
03750
03755
03760
03765 SYM51: SYM39 ;HEADER FOR USERERR
03770 7
03775 POINT 7,.+10
03780 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
03785 0
03790 IFN DCS,<0+USERERR ;>0
03795 BYTE (6) 1,1,2,0
03800 BLOCK 2
03805 XWD SYM52,SYM50
03810 ASCII /USERERR/
03815
03820
03825
03830
03835 SYM52: SYM47 ;HEADER FOR CVSI
03840 4
03845 POINT 7,.+10
03850 XWD EXTRNL+OWN,PROCED+FORWRD+ITMVAR
03855 0
03860 IFN DCS,<0+CVSI ;>0
03865 BYTE (6) 2,3,0
03870 BLOCK 2
03875 XWD SYM53,SYM51
03880 ASCII /CVSI/
03885
03890
03895
03900
03905 SYM53: SYM46 ;HEADER FOR CVIS
03910 4
03915 POINT 7,.+10
03920 XWD EXTRNL+OWN,PROCED+FORWRD+STRING
03925 0
03930 IFN DCS,<0+CVIS ;>0
03935 BYTE (6) 13,3,0
03940 BLOCK 2
03945 XWD SYM54,SYM52
03950 ASCII /CVIS/
03955
03960
03965
03970
03975 SYM54: SYM49 ;HEADER FOR NEW_PNAME
03980 11
03985 POINT 7,.+10
03990 XWD EXTRNL+OWN,PROCED+FORWRD+UNTYPE
03995 0
04000 IFN DCS,<0+NEW.PNAME ;>0
04005 BYTE (6) 13,2,0
04010 BLOCK 2
04015 XWD SYM55,SYM53
04020 ASCII /NEW_PNAME/
04025
04030
04035
04040
04045 SYM55: SYM21 ;HEADER FOR DEL_PNAME
04050 11
04055 POINT 7,.+10
04060 XWD EXTRNL+OWN,PROCED+FORWRD+UNTYPE
04065 0
04070 IFN DCS,<0+DEL.PNAME ;>0
04075 BYTE (6) 13,0
04080 BLOCK 2
04085 XWD SYM56,SYM54
04090 ASCII /DEL_PNAME/
04095
04100
04105
04110
04115 SYM56: SYM50 ;HEADER FOR TYPEIT
04120 6
04125 POINT 7,.+10
04130 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
04135 0
04140 IFN DCS,<0+TYPEIT ;>0
04145 BYTE (6) 13,0
04150 BLOCK 2
04155 XWD SYM57,SYM55
04160 ASCII /TYPEIT/
04165
04170
04175
04180
04185 SYM57: SYM48 ;HEADER FOR LISTX
04190 5
04195 POINT 7,.+10
04200 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
04205 0
04210 IFN DCS,<0+LISTX ;>0
04215 BYTE (6) 14,13,1,0
04220 BLOCK 2
04225 XWD SYM58,SYM56
04230 ASCII /LISTX/
04235
04240
04245
04250
04255 SYM58: SYM54 ;HEADER FOR INCHRW
04260 6
04265 POINT 7,.+10
04270 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
04275 0
04280 IFN DCS,<0+INCHRW ;>0
04285 BYTE (6) 0
04290 BLOCK 2
04295 XWD SYM59,SYM57
04300 ASCII /INCHRW/
04305
04310
04315
04320
04325 SYM59: SYM58 ;HEADER FOR INCHRS
04330 6
04335 POINT 7,.+10
04340 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
04345 0
04350 IFN DCS,<0+INCHRS ;>0
04355 BYTE (6) 0
04360 BLOCK 2
04365 XWD SYM60,SYM58
04370 ASCII /INCHRS/
04375
04380
04385
04390
04395 SYM60: SYM44 ;HEADER FOR INCHWL
04400 6
04405 POINT 7,.+10
04410 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04415 0
04420 IFN DCS,<0+INCHWL ;>0
04425 BYTE (6) 0
04430 BLOCK 2
04435 XWD SYM61,SYM59
04440 ASCII /INCHWL/
04445
04450
04455
04460
04465 SYM61: SYM32 ;HEADER FOR INCHSL
04470 6
04475 POINT 7,.+10
04480 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04485 0
04490 IFN DCS,<0+INCHSL ;>0
04495 BYTE (6) 3,0
04500 BLOCK 2
04505 XWD SYM62,SYM60
04510 ASCII /INCHSL/
04515
04520
04525
04530
04535 SYM62: SYM24 ;HEADER FOR INSTR
04540 5
04545 POINT 7,.+10
04550 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04555 0
04560 IFN DCS,<0+INSTR ;>0
04565 BYTE (6) 1,0
04570 BLOCK 2
04575 XWD SYM63,SYM61
04580 ASCII /INSTR/
04585
04590
04595
04600
04605 SYM63: SYM57 ;HEADER FOR INSTRL
04610 6
04615 POINT 7,.+10
04620 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04625 0
04630 IFN DCS,<0+INSTRL ;>0
04635 BYTE (6) 1,0
04640 BLOCK 2
04645 XWD SYM64,SYM62
04650 ASCII /INSTRL/
04655
04660
04665
04670
04675 SYM64: SYM63 ;HEADER FOR INSTRS
04680 6
04685 POINT 7,.+10
04690 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04695 0
04700 IFN DCS,<0+INSTRS ;>0
04705 BYTE (6) 3,1,0
04710 BLOCK 2
04715 XWD SYM65,SYM63
04720 ASCII /INSTRS/
04725
04730
04735
04740
04745 SYM65: SYM18 ;HEADER FOR TTYIN
04750 5
04755 POINT 7,.+10
04760 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04765 0
04770 IFN DCS,<0+TTYIN ;>0
04775 BYTE (6) 1,3,0
04780 BLOCK 2
04785 XWD SYM66,SYM64
04790 ASCII /TTYIN/
04795
04800
04805
04810
04815 SYM66: SYM37 ;HEADER FOR TTYINL
04820 6
04825 POINT 7,.+10
04830 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04835 0
04840 IFN DCS,<0+TTYINL ;>0
04845 BYTE (6) 1,3,0
04850 BLOCK 2
04855 XWD SYM67,SYM65
04860 ASCII /TTYINL/
04865
04870
04875
04880
04885 SYM67: SYM66 ;HEADER FOR TTYINS
04890 6
04895 POINT 7,.+10
04900 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04905 0
04910 IFN DCS,<0+TTYINS ;>0
04915 BYTE (6) 1,3,0
04920 BLOCK 2
04925 XWD SYM68,SYM66
04930 ASCII /TTYINS/
04935
04940
04945
04950
04955 SYM68: SYM65 ;HEADER FOR OUTCHR
04960 6
04965 POINT 7,.+10
04970 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
04975 0
04980 IFN DCS,<0+OUTCHR ;>0
04985 BYTE (6) 1,0
04990 BLOCK 2
04995 XWD SYM69,SYM67
05000 ASCII /OUTCHR/
05005
05010
05015
05020
05025 SYM69: SYM64 ;HEADER FOR OUTSTR
05030 6
05035 POINT 7,.+10
05040 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05045 0
05050 IFN DCS,<0+OUTSTR ;>0
05055 BYTE (6) 2,0
05060 BLOCK 2
05065 XWD SYM70,SYM68
05070 ASCII /OUTSTR/
05075
05080
05085
05090
05095 SYM70: SYM56 ;HEADER FOR GETFORMAT
05100 11
05105 POINT 7,.+10
05110 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05115 0
05120 IFN DCS,<0+GETFORMAT ;>0
05125 BYTE (6) 3,3,0
05130 BLOCK 2
05135 XWD SYM71,SYM69
05140 ASCII /GETFORMAT/
05145
05150
05155
05160
05165 SYM71: SYM67 ;HEADER FOR GETCHAN
05170 7
05175 POINT 7,.+10
05180 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
05185 0
05190 IFN DCS,<0+GETCHAN ;>0
05195 BYTE (6) 0
05200 BLOCK 2
05205 XWD SYM72,SYM70
05210 ASCII /GETCHAN/
05215
05220
05225
05230
05235 SYM72: SYM55 ;HEADER FOR FILEINFO
05240 10
05245 POINT 7,.+10
05250 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05255 0
05260 IFN DCS,<0+FILEINFO ;>0
05265 BYTE (6) 15,0
05270 BLOCK 2
05275 XWD SYM73,SYM71
05280 ASCII /FILEINFO/
05285
05290
05295
05300
05305 SYM73: SYM59 ;HEADER FOR USERCON
05310 7
05315 POINT 7,.+10
05320 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05325 0
05330 IFN DCS,<0+USERCON ;>0
05335 BYTE (6) 3,3,1,0
05340 BLOCK 2
05345 XWD SYM74,SYM72
05350 ASCII /USERCON/
05355
05360
05365
05370
05375 SYM74: SYM73 ;HEADER FOR MAINPR
05380 6
05385 POINT 7,.+10
05390 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05395 0
05400 IFN DCS,<0+MAINPR ;>0
05405 BYTE (6) 0
05410 BLOCK 2
05415 XWD SYM75,SYM73
05420 ASCII /MAINPR/
05425
05430
05435
05440
05445 SYM75: SYM72 ;HEADER FOR RESUME
05450 6
05455 POINT 7,.+10
05460 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+ITMVAR
05465 0
05470 IFN DCS,<0+RESUME ;>0
05475 BYTE (6) 13,53,41,0
05480 BLOCK 2
05485 XWD SYM76,SYM74
05490 ASCII /RESUME/
05495
05500
05505
05510
05515 SYM76: SYM69 ;HEADER FOR ASKNTC
05520 6
05525 POINT 7,.+10
05530 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+ITMVAR
05535 0
05540 IFN DCS,<0+ASKNTC ;>0
05545 BYTE (6) 13,41,0
05550 BLOCK 2
05555 XWD SYM77,SYM75
05560 ASCII /ASKNTC/
05565
05570
05575
05580
05585 SYM77: SYM68 ;HEADER FOR CAUSE1
05590 6
05595 POINT 7,.+10
05600 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+ITMVAR
05605 0
05610 IFN DCS,<0+CAUSE1 ;>0
05615 BYTE (6) 13,53,41,0
05620 BLOCK 2
05625 XWD SYM78,SYM76
05630 ASCII /CAUSE1/
05635
05640
05645
05650
05655 SYM78: SYM70 ;HEADER FOR MKEVTT
05660 6
05665 POINT 7,.+10
05670 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05675 0
05680 IFN DCS,<0+MKEVTT ;>0
05685 BYTE (6) 13,0
05690 BLOCK 2
05695 XWD SYM79,SYM77
05700 ASCII /MKEVTT/
05705
05710
05715
05720
05725 SYM79: SYM51 ;HEADER FOR JOIN
05730 4
05735 POINT 7,.+10
05740 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05745 0
05750 IFN DCS,<0+JOIN ;>0
05755 BYTE (6) 16,0
05760 BLOCK 2
05765 XWD SYM80,SYM78
05770 ASCII /JOIN/
05775
05780
05785
05790
05795 SYM80: SYM52 ;HEADER FOR SUSPEND
05800 7
05805 POINT 7,.+10
05810 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05815 0
05820 IFN DCS,<0+SUSPEND ;>0
05825 BYTE (6) 13,0
05830 BLOCK 2
05835 XWD SYM81,SYM79
05840 ASCII /SUSPEND/
05845
05850
05855
05860
05865 SYM81: SYM71 ;HEADER FOR TERMINATE
05870 11
05875 POINT 7,.+10
05880 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05885 0
05890 IFN DCS,<0+TERMINATE ;>0
05895 BYTE (6) 13,0
05900 BLOCK 2
05905 XWD SYM82,SYM80
05910 ASCII /TERMINATE/
05915
05920
05925
05930
05935 SYM82: SYM60 ;HEADER FOR MYPROC
05940 6
05945 POINT 7,.+10
05950 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+ITMVAR
05955 0
05960 IFN DCS,<0+MYPROC ;>0
05965 BYTE (6) 0
05970 BLOCK 2
05975 XWD SYM83,SYM81
05980 ASCII /MYPROC/
05985
05990
05995
06000
06005 SYM83: SYM61 ;HEADER FOR CALLER
06010 6
06015 POINT 7,.+10
06020 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+ITMVAR
06025 0
06030 IFN DCS,<0+CALLER ;>0
06035 BYTE (6) 13,0
06040 BLOCK 2
06045 XWD SYM84,SYM82
06050 ASCII /CALLER/
06055
06060
06065
06070
06075 SYM84: SYM78 ;HEADER FOR INTSET
06080 6
06085 POINT 7,.+10
06090 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06095 0
06100 IFN DCS,<0+INTSET ;>0
06105 BYTE (6) 13,1,0
06110 BLOCK 2
06115β XWD SYM85,SYM83
06120 ASCII /INTSET/
06125
06130
06135
06140
06145 SYM85: SYM81 ;HEADER FOR INTTBL
06150 6
06155 POINT 7,.+10
06160 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06165 0
06170 IFN DCS,<0+INTTBL ;>0
06175 BYTE (6) 1,0
06180 BLOCK 2
06185 XWD SYM86,SYM84
06190 ASCII /INTTBL/
06195
06200
06205
06210
06215 SYM86: SYM76 ;HEADER FOR INTMOD
06220 6
06225 POINT 7,.+10
06230 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06235 0
06240 IFN DCS,<0+INTMOD ;>0
06245 BYTE (6) 0
06250 BLOCK 2
06255 XWD SYM87,SYM85
06260 ASCII /INTMOD/
06265
06270
06275
06280
06285 SYM87: SYM85 ;HEADER FOR CLKMOD
06290 6
06295 POINT 7,.+10
06300 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06305 0
06310 IFN DCS,<0+CLKMOD ;>0
06315 BYTE (6) 0
06320 BLOCK 2
06325 XWD SYM88,SYM86
06330 ASCII /CLKMOD/
06335
06340
06345
06350
06355 SYM88: SYM83 ;HEADER FOR DFRINT
06360 6
06365 POINT 7,.+10
06370 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06375 0
06380 IFN DCS,<0+DFRINT ;>0
06385 BYTE (6) 0
06390 BLOCK 2
06395 XWD SYM89,SYM87
06400 ASCII /DFRINT/
06405
06410
06415
06420
06425 SYM89: SYM79 ;HEADER FOR DDFINT
06430 6
06435 POINT 7,.+10
06440 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06445 0
06450 IFN DCS,<0+DDFINT ;>0
06455 BYTE (6) 0
06460 BLOCK 2
06465 XWD SYM90,SYM88
06470 ASCII /DDFINT/
06475
06480
06485
06490
06495 SYM90: SYM80 ;HEADER FOR DFR1IN
06500 6
06505 POINT 7,.+10
06510 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06515 0
06520 IFN DCS,<0+DFR1IN ;>0
06525 BYTE (6) 1,0
06530 BLOCK 2
06535 XWD SYM91,SYM89
06540 ASCII /DFR1IN/
06545
06550
06555
06560
06565 SYM91: SYM82 ;HEADER FOR ENABLE
06570 6
06575 POINT 7,.+10
06580 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06585 0
06590 IFN DCS,<0+ENABLE ;>0
06595 BYTE (6) 1,0
06600 BLOCK 2
06605 XWD SYM92,SYM90
06610 ASCII /ENABLE/
06615
06620
06625
06630
06635 SYM92: SYM91 ;HEADER FOR DISABLE
06640 7
06645 POINT 7,.+10
06650 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06655 0
06660 IFN DCS,<0+DISABLE ;>0
06665 BYTE (6) 1,0
06670 BLOCK 2
06675 XWD SYM93,SYM91
06680 ASCII /DISABLE/
06685
06690
06695
06700
06705 SYM93: SYM75 ;HEADER FOR INTMAP
06710 6
06715 POINT 7,.+10
06720 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06725 0
06730 IFN DCS,<0+INTMAP ;>0
06735 BYTE (6) 1,17,1,0
06740 BLOCK 2
06745 XWD SYM94,SYM92
06750 ASCII /INTMAP/
06755
06760
06765
06770
06775 SYM94: SYM45 ;HEADER FOR DFCPKT
06780 6
06785 POINT 7,.+10
06790 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
06795 0
06800 IFN DCS,<0+DFCPKT ;>0
06805 BYTE (6) 1,13,13,1,0
06810 BLOCK 2
06815 XWD SYM95,SYM93
06820 ASCII /DFCPKT/
06825
06830
06835
06840
06845 SYM95: SYM62 ;HEADER FOR URSCHD
06850 6
06855 POINT 7,.+10
06860 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
06865 0
06870 IFN DCS,<0+URSCHD ;>0
06875 BYTE (6) 0
06880 BLOCK 2
06885 XWD SYM96,SYM94
06890 ASCII /URSCHD/
06895
06900
06905
06910
06915 SYM96: SYM89 ;HEADER FOR PRISET
06920 6
06925 POINT 7,.+10
06930 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06935 0
06940 IFN DCS,<0+PRISET ;>0
06945 BYTE (6) 13,1,0
06950 BLOCK 2
06955 XWD SYM97,SYM95
06960 ASCII /PRISET/
06965
06970
06975
06980
06985 SYM97: SYM94 ;HEADER FOR PSTATUS
06990 7
06995 POINT 7,.+10
07000 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07005 0
07010 IFN DCS,<0+PSTATUS ;>0
07015 BYTE (6) 13,0
07020 BLOCK 2
07025 XWD SYM98,SYM96
07030 ASCII /PSTATUS/
07035
07040
07045
07050
07055 SYM98: SYM74 ;HEADER FOR INTPRO
07060 6
07065 POINT 7,.+10
07070 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07075 0
07080 IFN DCS,<0+INTPRO ;>0
07085 BYTE (6) 0
07090 BLOCK 2
07095 XWD SYM99,SYM97
07100 ASCII /INTPRO/
07105
07110
07115
07120
07125 SYM99: SYM88 ;HEADER FOR ANSWER
07130 6
07135 POINT 7,.+10
07140 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07145 0
07150 IFN DCS,<0+ANSWER ;>0
07155 BYTE (6) 13,13,13,0
07160 BLOCK 2
07165 XWD SYM100,SYM98
07170 ASCII /ANSWER/
07175
07180
07185
07190
07195 SYM100: SYM96 ;HEADER FOR SETCP
07200 5
07205 POINT 7,.+10
07210 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07215 0
07220 IFN DCS,<0+SETCP ;>0
07225 BYTE (6) 13,13,0
07230 BLOCK 2
07235 XWD SYM101,SYM99
07240 ASCII /SETCP/
07245
07250
07255
07260
07265 SYM101: SYM95 ;HEADER FOR SETIP
07270 5
07275 POINT 7,.+10
07280 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07285 0
07290 IFN DCS,<0+SETIP ;>0
07295 BYTE (6) 13,13,0
07300 BLOCK 2
07305 XWD SYM102,SYM100
07310 ASCII /SETIP/
07315
07320
07325
07330
07335 SYM102: SYM53 ;HEADER FOR CLRBUF
07340 6
07345 POINT 7,.+10
07350 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07355 0
07360 IFN DCS,<0+CLRBUF ;>0
07365 BYTE (6) 0
07370 BLOCK 2
07375 XWD SYM103,SYM101
07380 ASCII /CLRBUF/
07385
07390
07395
07400
07405 SYM103: SYM98 ;HEADER FOR PTYGET
07410 6
07415 POINT 7,.+10
07420 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07425 0
07430 IFN DCS,<0+PTYGET ;>0
07435 BYTE (6) 0
07440 BLOCK 2
07445 XWD SYM104,SYM102
07450 ASCII /PTYGET/
07455
07460
07465
07470
07475 SYM104: SYM93 ;HEADER FOR PTYREL
07480 6
07485 POINT 7,.+10
07490 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07495 0
07500 IFN DCS,<0+PTYREL ;>0
07505 BYTE (6) 1,0
07510 BLOCK 2
07515 XWD SYM105,SYM103
07520 ASCII /PTYREL/
07525
07530
07535
07540
07545 SYM105: SYM104 ;HEADER FOR PTYGTL
07550 6
07555 POINT 7,.+10
07560 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07565 0
07570 IFN DCS,<0+PTYGTL ;>0
07575 BYTE (6) 1,0
07580 BLOCK 2
07585 XWD SYM106,SYM104
07590 ASCII /PTYGTL/
07595
07600
07605
07610
07615 SYM106: SYM100 ;HEADER FOR PTYSTL
07620 6
07625 POINT 7,.+10
07630 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07635 0
07640 IFN DCS,<0+PTYSTL ;>0
07645 BYTE (6) 1,1,0
07650 BLOCK 2
07655 XWD SYM107,SYM105
07660 ASCII /PTYSTL/
07665
07670
07675
07680
07685 SYM107: SYM86 ;HEADER FOR PTIFRE
07690 6
07695 POINT 7,.+10
07700 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07705 0
07710 IFN DCS,<0+PTIFRE ;>0
07715 BYTE (6) 1,0
07720 BLOCK 2
07725 XWD SYM108,SYM106
07730 ASCII /PTIFRE/
07735
07740
07745
07750
07755 SYM108: SYM107 ;HEADER FOR PTOCNT
07760 6
07765 POINT 7,.+10
07770 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07775 0
07780 IFN DCS,<0+PTOCNT ;>0
07785 BYTE (6) 1,0
07790 BLOCK 2
07795 XWD SYM109,SYM107
07800 ASCII /PTOCNT/
07805
07810
07815
07820
07825 SYM109: SYM99 ;HEADER FOR PTCHRW
07830 6
07835 POINT 7,.+10
07840 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07845 0
07850 IFN DCS,<0+PTCHRW ;>0
07855 BYTE (6) 1,0
07860 BLOCK 2
07865 XWD SYM110,SYM108
07870 ASCII /PTCHRW/
07875
07880
07885
07890
07895 SYM110: SYM109 ;HEADER FOR PTCHRS
07900 6
07905 POINT 7,.+10
07910 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07915 0
07920 IFN DCS,<0+PTCHRS ;>0
07925 BYTE (6) 1,0
07930 BLOCK 2
07935 XWD SYM111,SYM109
07940 ASCII /PTCHRS/
07945
07950
07955
07960
07965 SYM111: SYM110 ;HEADER FOR PTOCHS
07970 6
07975 POINT 7,.+10
07980 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07985 0
07990 IFN DCS,<0+PTOCHS ;>0
07995 BYTE (6) 1,1,0
08000 BLOCK 2
08005 XWD SYM112,SYM110
08010 ASCII /PTOCHS/
08015
08020
08025
08030
08035 SYM112: SYM111 ;HEADER FOR PTOCHW
08040 6
08045 POINT 7,.+10
08050 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
08055 0
08060 IFN DCS,<0+PTOCHW ;>0
08065 BYTE (6) 1,1,0
08070 BLOCK 2
08075 XWD SYM113,SYM111
08080 ASCII /PTOCHW/
08085
08090
08095
08100
08105 SYM113: SYM90 ;HEADER FOR PTOSTR
08110 6
08115 POINT 7,.+10
08120 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
08125 0
08130 IFN DCS,<0+PTOSTR ;>0
08135 BYTE (6) 1,2,0
08140 BLOCK 2
08145 XWD SYM114,SYM112
08150 ASCII /PTOSTR/
08155
08160
08165
08170
08175 SYM114: SYM105 ;HEADER FOR BACKUP
08180 6
08185 POINT 7,.+10
08190 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
08195 0
08200 IFN DCS,<0+BACKUP ;>0
08205 BYTE (6) 0
08210 BLOCK 2
08215 XWD SYM115,SYM113
08220 ASCII /BACKUP/
08225
08230
08235
08240
08245 SYM115: SYM101 ;HEADER FOR LODED
08250 5
08255 POINT 7,.+10
08260 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
08265 0
08270 IFN DCS,<0+LODED ;>0
08275 BYTE (6) 2,0
08280 BLOCK 2
08285 XWD SYM116,SYM114
08290 ASCII /LODED/
08295
08300
08305
08310
08315 SYM116: SYM77 ;HEADER FOR PTYALL
08320 6
08325 POINT 7,.+10
08330 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
08335 0
08340 IFN DCS,<0+PTYALL ;>0
08345 BYTE (6) 1,0
08350 BLOCK 2
08355 XWD SYM117,SYM115
08360 ASCII /PTYALL/
08365
08370
08375
08380
08385 SYM117: SYM106 ;HEADER FOR PTYSTR
08390 6
08395 POINT 7,.+10
08400 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
08405 0
08410 IFN DCS,<0+PTYSTR ;>0
08415 BYTE (6) 1,1,0
08420 BLOCK 2
08425 XWD SYM118,SYM116
08430 ASCII /PTYSTR/
08435
08440
08445
08450
08455 SYM118: SYM84 ;HEADER FOR PTYIN
08460 5
08465 POINT 7,.+10
08470 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
08475 0
08480 IFN DCS,<0+PTYIN ;>0
08485 BYTE (6) 1,1,3,0
08490 BLOCK 2
08495 XWD SYM119,SYM117
08500 ASCII /PTYIN/
08505
08510
08515
08520
08525 SYM119: SYM108 ;HEADER FOR IFGLOBAL
08530 10
08535 POINT 7,.+10
08540 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
08545 0
08550 IFN DCS,<0+IFGLOBAL ;>0
08555 BYTE (6) 13,0
08560 BLOCK 2
08565 XWD SYM120,SYM118
08570 ASCII /IFGLOBAL/
08575
08580
08585
08590
08595 SYM120: SYM116 ;HEADER FOR ISSUE
08600 5
08605 POINT 7,.+10
08610 XWD EXTRNL+OWN,PROCED+FORWRD+INTEGR
08615 0
08620 IFN DCS,<0+ISSUE ;>0
08625 BYTE (6) 1,2,2,2,0
08630 BLOCK 2
08635 XWD SYM121,SYM119
08640 ASCII /ISSUE/
08645
08650
08655
08660
08665 SYM121: SYM112 ;HEADER FOR QUEUE
08670 5
08675 POINT 7,.+10
08680 XWD EXTRNL+OWN,PROCED+FORWRD+INTEGR
08685 0
08690 IFN DCS,<0+QUEUE ;>0
08695 BYTE (6) 1,1,0
08700 BLOCK 2
08705 XWD SYM122,SYM120
08710 ASCII /QUEUE/
08715
08720
08725
08730
08735 SYM122: SYM113 ;HEADER FOR GET_DATA
08740 10
08745 POINT 7,.+10
08750 XWD EXTRNL+OWN,PROCED+FORWRD+STRING
08755 0
08760 IFN DCS,<0+GET.DATA ;>0
08765 BYTE (6) 1,1,0
08770 BLOCK 2
08775 XWD SYM123,SYM121
08780 ASCII /GET_DATA/
08785
08790
08795
08800
08805 SYM123: SYM120 ;HEADER FOR PUT_DATA
08810 10
08815 POINT 7,.+10
08820 XWD EXTRNL+OWN,PROCED+FORWRD+UNTYPE
08825 0
08830 IFN DCS,<0+PUT.DATA ;>0
08835 BYTE (6) 1,1,2,0
08840 BLOCK 2
08845 XWD SYM124,SYM122
08850 ASCII /PUT_DATA/
08855
08860
08865
08870
08875 SYM124: SYM103 ;HEADER FOR GET_BIT
08880 7
08885 POINT 7,.+10
08890 XWD EXTRNL+OWN,PROCED+FORWRD+INTEGR
08895 0
08900 IFN DCS,<0+GET.BIT ;>0
08905 BYTE (6) 1,0
08910 BLOCK 2
08915 XWD SYM125,SYM123
08920 ASCII /GET_BIT/
08925
08930
08935
08940
08945 SYM125: SYM124 ;HEADER FOR GET_ENTRY
08950 11
08955 POINT 7,.+10
08960 XWD EXTRNL+OWN,PROCED+FORWRD+INTEGR
08965 0
08970 IFN DCS,<0+GET.ENTRY ;>0
08975 BYTE (6) 1,2,2,2,0
08980 BLOCK 2
08985 XWD SYM126,SYM124
08990 ASCII /GET_ENTRY/
08995
09000
09005
09010
09015 SYM126: SYM87 ;HEADER FOR GET_SET
09020 7
09025 POINT 7,.+10
09030 XWD EXTRNL+OWN,PROCED+FORWRD+SET
09035 0
09040 IFN DCS,<0+GET.SET ;>0
09045 BYTE (6) 1,2,2,2,0
09050 BLOCK 2
09055 XWD SYM127,SYM125
09060 ASCII /GET_SET/
09065
09070
09075
09080
09085 ↑BLTTBL←.-1
09090 XWD VALUE,INTEGR
09095 XWD VALUE,STRING
09100 XWD REFRNC,INTEGR
09105 XWD REFRNC,STRING
09110 XWD VALUE,INTEGR+FLOTNG
09115 XWD REFRNC,INTEGR+FLOTNG+ITMVAR
09120 XWD VALUE,FLOTNG
09125 XWD REFRNC+SBSCRP,INTEGR+FLOTNG+SET+LSTBIT+ITMVAR+STRING
09130 XWD REFRNC,INTEGR+FLOTNG+ITMVAR+SET
09135 XWD REFRNC+SBSCRP,INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING
09140 XWD VALUE,ITMVAR
09145 XWD VALUE,LSTBIT+SET
09150 XWD REFRNC+SBSCRP,INTEGR
09155 XWD VALUE,SET
09160 XWD REFRNC,PROCED
09165 SYM127←0
09170
09175 SYM128: XWD 0,SYM117
09180 4
09185 POINT 7,.+2
09190 XWD RES+CLSIDX,217
09195 ASCIZ/BBPP/
09200
09205 SYM129: XWD SYM128,SYM126
09210 5
09215 POINT 7,.+2
09220 XWD RES+CLSIDX,233
09225 ASCIZ/BEGIN/
09230
09235 SYM130: XWD SYM129,SYM115
09240 10
09245 POINT 7,.+2
09250 XWD RES+CLSIDX,147
09255 ASCIZ/REMEMBER/
09260
09265 SYM131: XWD SYM130,SYM128
09270 6
09275 POINT 7,.+2
09280 XWD RES+CLSIDX,167
09285 ASCIZ/SECOND/
09290
09295 SYM132: XWD SYM131,SYM123
09300 3
09305 POINT 7,.+2
09310 XWD RES+CLSIDX,327
09315 ASCIZ/PHI/
09320
09325 SYM133: XWD SYM132,SYM131
09330 12
09335 POINT 7,.+2
09340 XWD RES+CLSIDX,231
09345 ASCIZ/START_CODE/
09350
09355 SYM134: XWD SYM133,SYM122
09360 3
09365 POINT 7,.+2
09370 XWD RES+CLSIDX,154
09375 ASCIZ/INF/
09380
09385 SYM135: XWD SYM134,SYM121
09390 4
09395 POINT 7,.+2
09400 XWD RES+CLSIDX,236
09405 ASCIZ/CASE/
09410
09415 SYM136: XWD SYM135,SYM114
09420 7
09425 POINT 7,.+2
09430 XWD RES+CLSIDX,103
09435 ASCIZ/LIBRARY/
09440
09445 SYM137: XWD SYM136,SYM136
09450 12
09455 POINT 7,.+2
09460 XWD RES+CLSIDX,75
09465 ASCIZ/SYSTEM_PDL/
09470
09475 SYM138: XWD SYM137,SYM92
09480 5
09485 POINT 7,.+2
09490 XWD RES+CLSIDX,302
09495 ASCIZ/CAUSE/
09500
09505 SYM139: XWD SYM138,SYM132
09510 3
09515 POINT 7,.+2
09520 XWD RES+CLSIDX,330
09525 ASCIZ/ALL/
09530
09535 SYM140: XWD SYM139,SYM133
09540 5
09545 POINT 7,.+2
09550 XWD RES+CLSIDX,221
09555 ASCIZ/DATUM/
09560
09565 SYM141: XWD SYM140,SYM137
09570 5
09575 POINT 7,.+2
09580 XWD RES+CLSIDX,237
09585 ASCIZ/CASEC/
09590
09595 SYM142: XWD SYM141,SYM139
09600 5
09605 POINT 7,.+2
09610 XWD RES+CLSIDX,300
09615 ASCIZ/APPLY/
09620
09625 SYM143: XWD SYM142,SYM135
09630 11
09635 POINT 7,.+2
09640 XWD RES+CLSIDX,62
09645 ASCIZ/PROCEDURE/
09650
09655 SYM144: XWD SYM143,SYM129
09660 11
09665 POINT 7,.+2
09670 XWD RES+CLSIDX,112
09675 ASCIZ/ALLGLOBAL/
09680
09685 SYM145: XWD SYM144,SYM118
09690 4
09695 POINT 7,.+2
09700 XWD RES+CLSIDX,135
09705 ASCIZ/FROM/
09710
09715 SYM146: XWD SYM145,SYM143
09720 3
09725 POINT 7,.+2
09730 XWD RES+CLSIDX,32
09735 ASCIZ/ABS/
09740
09745 SYM147: XWD SYM146,SYM125
09750 5
09755 POINT 7,.+2
09760 XWD RES+CLSIDX,173
09765 ASCIZ/CVSET/
09770
09775 SYM148: XWD SYM147,SYM138
09780 2
09785 POINT 7,.+2
09790 XWD RES+CLSIDX,311
09795 ASCIZ/OR/
09800
09805 SYM149: XWD SYM148,SYM144
09810 5
09815 POINT 7,.+2
09820 XWD RES+CLSIDX,225
09825 ASCIZ/PROPS/
09830
09835 SYM150: XWD SYM149,SYM102
09840 16
09845 POINT 7,.+2
09850 XWD RES+CLSIDX,331
09855 ASCIZ/INITIALIZATION/
09860
09865 SYM151: XWD SYM150,SYM130
09870 3
09875 POINT 7,.+2
09880 XWD RES+CLSIDX,35
09885 ASCIZ/EQV/
09890
09895 SYM152: XWD SYM151,SYM146
09900 3
09905 POINT 7,.+2
09910 XWD RES+CLSIDX,307
09915 ASCIZ/AND/
09920
09925 SYM153: XWD SYM152,SYM151
09930 7
09935 POINT 7,.+2
09940 XWD RES+CLSIDX,10
09945 ASCIZ/BOOLEAN/
09950
09955 SYM154: XWD SYM153,SYM148
09960 5
09965 POINT 7,.+2
09970 XWD RES+CLSIDX,273
09975 ASCIZ/THENC/
09980
09985 SYM155: XWD SYM154,SYM149
09990 22
09995 POINT 7,.+2
10000 XWD RES+CLSIDX,110
10005 ASCIZ/UNSTACK_DELIMITERS/
10010
10015 SYM156: XWD SYM155,SYM147
10020 7
10025 POINT 7,.+2
10030 XWD RES+CLSIDX,332
10035 ASCIZ/COMMENT/
10040
10045 SYM157: XWD SYM156,SYM119
10050 10
10055 POINT 7,.+2
10060 XWD RES+CLSIDX,333
10065 ASCIZ/LOCATION/
10070
10075 SYM158: XWD SYM157,SYM157
10080 7
10085 POINT 7,.+2
10090 XWD RES+CLSIDX,334
10095 ASCIZ/MESSAGE/
10100
10105 SYM159: XWD SYM158,SYM140
10110 11
10115 POINT 7,.+2
10120 XWD RES+CLSIDX,101
10125 ASCIZ/NEW_ITEMS/
10130
10135 SYM160: XWD SYM159,SYM150
10140 7
10145 POINT 7,.+2
10150 XWD RES+CLSIDX,70
10155 ASCIZ/CLEANUP/
10160
10165 SYM161: XWD SYM160,SYM156
10170 4
10175 POINT 7,.+2
10180 XWD RES+CLSIDX,222
10185 ASCIZ/DONE/
10190
10195 SYM162: XWD SYM161,SYM154
10200 5
10205 POINT 7,.+2
10210 XWD RES+CLSIDX,170
10215 ASCIZ/THIRD/
10220
10225 SYM163: XWD SYM162,SYM134
10230 7
10235 POINT 7,.+2
10240 XWD RES+CLSIDX,22
10245 ASCIZ/FORWARD/
10250
10255 SYM164: XWD SYM163,SYM145
10260 3
10265 POINT 7,.+2
10270 XWD RES+CLSIDX,242
10275 ASCIZ/DOC/
10280
10285 SYM165: XWD SYM164,SYM162
10290 4
10295 POINT 7,.+2
10300 XWD RES+CLSIDX,335
10305 ASCIZ/NEXT/
10310
10315 SYM166: XWD SYM165,SYM97
10320 6
10325 POINT 7,.+2
10330 XWD RES+CLSIDX,63
10335 ASCIZ/DEFINE/
10340
10345 SYM167: XWD SYM166,SYM165
10350 6
10355 POINT 7,.+2
10360 XWD RES+CLSIDX,163
10365 ASCIZ/LENGTH/
10370
10375 SYM168: XWD SYM167,SYM158
10380 6
10385 POINT 7,.+2
10390 XWD RES+CLSIDX,24
10395 ASCIZ/SIMPLE/
10400
10405 SYM169: XWD SYM168,SYM164
10410 5
10415 POINT 7,.+2
10420 XWD RES+CLSIDX,336
10425 ASCIZ/ARRAY/
10430
10435 SYM170: XWD SYM169,SYM142
10440 13
10445 POINT 7,.+2
10450 XWD RES+CLSIDX,104
10455 ASCIZ/LOAD_MODULE/
10460
10465 SYM171: XWD SYM170,SYM168
10470 6
10475 POINT 7,.+2
10480 XWD RES+CLSIDX,223
10485 ASCIZ/DELETE/
10490
10495 SYM172: XWD SYM171,SYM141
10500 22
10505 POINT 7,.+2
10510 XWD RES+CLSIDX,107
10515 ASCIZ/REPLACE_DELIMITERS/
10520
10525 SYM173: XWD SYM172,SYM167
10530 5
10535 POINT 7,.+2
10540 XWD RES+CLSIDX,152
10545 ASCIZ/AFTER/
10550
10555 SYM174: XWD SYM173,SYM155
10560 7
10565 POINT 7,.+2
10570 XWD RES+CLSIDX,247
10575 ASCIZ/FOREACH/
10580
10585 SYM175: XWD SYM174,SYM161
10590 12
10595 POINT 7,.+2
10600 XWD RES+CLSIDX,323
10605 ASCIZ/NOW_UNSAFE/
10610
10615 SYM176: XWD SYM175,SYM169
10620 5
10625 POINT 7,.+2
10630 XWD RES+CLSIDX,337
10635 ASCIZ/UNION/
10640
10645 SYM177: XWD SYM176,SYM152
10650 12
10655 POINT 7,.+2
10660 XWD RES+CLSIDX,232
10665 ASCIZ/QUICK_CODE/
10670
10675 SYM178: XWD SYM177,SYM163
10680 12
10685 POINT 7,.+2
10690 XWD RES+CLSIDX,340
10695 ASCIZ/LEAP_ARRAY/
10700
10705 SYM179: XWD SYM178,SYM170
10710 2
10715 POINT 7,.+2
10720 XWD RES+CLSIDX,265
10725 ASCIZ/OF/
10730
10735 SYM180: XWD SYM179,SYM166
10740 7
10745 POINT 7,.+2
10750 XWD RES+CLSIDX,151
10755 ASCIZ/RESTORE/
10760
10765 SYM181: XWD SYM180,SYM153
10770 11
10775 POINT 7,.+2
10780 XWD RES+CLSIDX,20
10785 ASCIZ/RECURSIVE/
10790
10795 SYM182: XWD SYM181,SYM179
10800 3
10805 POINT 7,.+2
10810 XWD RES+CLSIDX,45
10815 ASCIZ/LSH/
10820
10825 SYM183: XWD SYM182,SYM175
10830 3
10835 POINT 7,.+2
10840 XWD RES+CLSIDX,143
10845 ASCIZ/PUT/
10850
10855 SYM184: XWD SYM183,SYM183
10860 3
10865 POINT 7,.+2
10870 XWD RES+CLSIDX,172
10875 ASCIZ/CVI/
10880
10885 SYM185: XWD SYM184,SYM172
10890 4
10895 POINT 7,.+2
10900 XWD RES+CLSIDX,5
10905 ASCIZ/REAL/
10910
10915 SYM186: XWD SYM185,SYM160
10920 4
10925 POINT 7,.+2
10930 XWD RES+CLSIDX,321
10935 ASCIZ/SETC/
10940
10945 SYM187: XWD SYM186,SYM159
10950 7
10955 POINT 7,.+2
10960 XWD RES+CLSIDX,145
10965 ASCIZ/SUCCEED/
10970
10975 SYM188: XWD SYM187,SYM186
10980 4
10985 POINT 7,.+2
10990 XWD RES+CLSIDX,11
10995 ASCIZ/LIST/
11000
11005 SYM189: XWD SYM188,SYM173
11010 10
11015 POINT 7,.+2
11020 XWD RES+CLSIDX,341
11025 ASCIZ/BUILT_IN/
11030
11035 SYM190: XWD SYM189,SYM188
11040 6
11045 POINT 7,.+2
11050 XWD RES+CLSIDX,7
11055 ASCIZ/STRING/
11060
11065 SYM191: XWD SYM190,SYM176
11070 13
11075 POINT 7,.+2
11080 XWD RES+CLSIDX,303
11085 ASCIZ/INTERROGATE/
11090
11095 SYM192: XWD SYM191,SYM178
11100 4
11105 POINT 7,.+2
11110 XWD RES+CLSIDX,342
11115 ASCIZ/BIND/
11120
11125 SYM193: XWD SYM192,SYM192
11130 4
11135 POINT 7,.+2
11140 XWD RES+CLSIDX,164
11145 ASCIZ/ILDB/
11150
11155 SYM194: XWD SYM193,SYM171
11160 4
11165 POINT 7,.+2
11170 XWD RES+CLSIDX,1
11175 ASCIZ/ITEM/
11180
11185 SYM195: XWD SYM194,SYM191
11190 4
11195 POINT 7,.+2
11200 XWD RES+CLSIDX,343
11205 ASCIZ/THAT/
11210
11215 SYM196: XWD SYM195,SYM193
11220 6
11225 POINT 7,.+2
11230 XWD RES+CLSIDX,74
11235 ASCIZ/PNAMES/
11240
11245 SYM197: XWD SYM196,SYM180
11250 11
11255 POINT 7,.+2
11260 XWD RES+CLSIDX,304
11265 ASCIZ/EXPR_TYPE/
11270
11275 SYM198: XWD SYM197,SYM189
11280 6
11285 POINT 7,.+2
11290 XWD RES+CLSIDX,174
11295 ASCIZ/CVLIST/
11300
11305 SYM199: XWD SYM198,SYM185
11310 2
11315 POINT 7,.+2
11320 XWD RES+CLSIDX,134
11325 ASCIZ/IN/
11330
11335 SYM200: XWD SYM199,SYM184
11340 10
11345 POINT 7,.+2
11350 XWD RES+CLSIDX,16
11355 ASCIZ/EXTERNAL/
11360
11365 SYM201: XWD SYM200,SYM196
11370 10
11375 POINT 7,.+2
11380 XWD RES+CLSIDX,344
11385 ASCIZ/NEEDNEXT/
11390
11395 SYM202: XWD SYM201,SYM182
11400 4
11405 POINT 7,.+2
11410 XWD RES+CLSIDX,36
11415 ASCIZ/LAND/
11420
11425 SYM203: XWD SYM202,SYM198
11430 7
11435 POINT 7,.+2
11440 XWD RES+CLSIDX,6
11445 ASCIZ/INTEGER/
11450
11455 SYM204: XWD SYM203,SYM199
11460 13
11465 POINT 7,.+2
11470 XWD RES+CLSIDX,345
11475 ASCIZ/DECLARATION/
11480
11485 SYM205: XWD SYM204,SYM202
11490 12
11495 POINT 7,.+2
11500 XWD RES+CLSIDX,76
11505 ASCIZ/STRING_PDL/
11510
11515 SYM206: XWD SYM205,SYM203
11520 7
11525 POINT 7,.+2
11530 XWD RES+CLSIDX,13
11535 ASCIZ/CONTEXT/
11540
11545 SYM207: XWD SYM206,SYM177
11550 6
11555 POINT 7,.+2
11560 XWD RES+CLSIDX,144
11565 ASCIZ/REMOVE/
11570
11575 SYM208: XWD SYM207,SYM200
11580 3
11585 POINT 7,.+2
11590 XWD RES+CLSIDX,56
11595 ASCIZ/LEQ/
11600
11605 SYM209: XWD SYM208,SYM207
11610 4
11615 POINT 7,.+2
11620 XWD RES+CLSIDX,123
11625 ASCIZ/STEP/
11630
11635 SYM210: XWD SYM209,SYM206
11640 5
11645 POINT 7,.+2
11650 XWD RES+CLSIDX,166
11655 ASCIZ/FIRST/
11660
11665 SYM211: XWD SYM210,SYM190
11670 4
11675 POINT 7,.+2
11680 XWD RES+CLSIDX,141
11685 ASCIZ/MAKE/
11690
11695 SYM212: XWD SYM211,SYM205
11700 10
11705 POINT 7,.+2
11710 XWD RES+CLSIDX,306
11715 ASCIZ/REF_ITEM/
11720
11725 SYM213: XWD SYM212,SYM204
11730 6
11735 POINT 7,.+2
11740 XWD RES+CLSIDX,346
11745 ASCIZ/SAMEIV/
11750
11755 SYM214: XWD SYM213,SYM213
11760 7
11765 POINT 7,.+2
11770 XWD RES+CLSIDX,115
11775 ASCIZ/BUCKETS/
11780
11785 SYM215: XWD SYM214,SYM210
11790 2
11795 POINT 7,.+2
11800 XWD RES+CLSIDX,127
11805 ASCIZ/TO/
11810
11815 SYM216: XWD SYM215,SYM194
11820 5
11825 POINT 7,.+2
11830 XWD RES+CLSIDX,347
11835 ASCIZ/ENTRY/
11840
11845 SYM217: XWD SYM216,SYM215
11850 13
11855 POINT 7,.+2
11860 XWD RES+CLSIDX,67
11865 ASCIZ/PROTECT_ACS/
11870
11875 SYM218: XWD SYM217,SYM217
11880 5
11885 POINT 7,.+2
11890 XWD RES+CLSIDX,41
11895 ASCIZ/ASSOC/
11900
11905 SYM219: XWD SYM218,SYM208
11910 4
11915 POINT 7,.+2
11920 XWD RES+CLSIDX,350
11925 ASCIZ/FORC/
11930
11935 SYM220: XWD SYM219,SYM212
11940 6
11945 POINT 7,.+2
11950 XWD RES+CLSIDX,150
11955 ASCIZ/FORGET/
11960
11965 SYM221: XWD SYM220,SYM174
11970 3
11975 POINT 7,.+2
11980 XWD RES+CLSIDX,37
11985 ASCIZ/LOR/
11990
11995 SYM222: XWD SYM221,SYM197
12000 4
12005 POINT 7,.+2
12010 XWD RES+CLSIDX,276
12015 ASCIZ/SWAP/
12020
12025 SYM223: XWD SYM222,SYM219
12030 4
12035 POINT 7,.+2
12040 XWD RES+CLSIDX,175
12045 ASCIZ/IDPB/
12050
12055 SYM224: XWD SYM223,SYM218
12060 2
12065 POINT 7,.+2
12070 XWD RES+CLSIDX,310
12075 ASCIZ/IF/
12080
12085 SYM225: XWD SYM224,SYM222
12090 3
12095 POINT 7,.+2
12100 XWD RES+CLSIDX,177
12105 ASCIZ/IBP/
12110
12115 SYM226: XWD SYM225,SYM181
12120 3
12125 POINT 7,.+2
12130 XWD RES+CLSIDX,161
12135 ASCIZ/LOP/
12140
12145 SYM227: XWD SYM226,SYM225
12150 3
12155 POINT 7,.+2
12160 XWD RES+CLSIDX,131
12165 ASCIZ/END/
12170
12175 SYM228: XWD SYM227,SYM227
12180 3
12185 POINT 7,.+2
12190 XWD RES+CLSIDX,60
12195 ASCIZ/MAX/
12200
12205 SYM229: XWD SYM228,SYM228
12210 4
12215 POINT 7,.+2
12220 XWD RES+CLSIDX,272
12225 ASCIZ/THEN/
12230
12235 SYM230: XWD SYM229,SYM187
12240 12
12245 POINT 7,.+2
12250 XWD RES+CLSIDX,351
12255 ASCIZ/CHECK_TYPE/
12260
12265 SYM231: XWD SYM230,SYM214
12270 10
12275 POINT 7,.+2
12280 XWD RES+CLSIDX,160
12285 ASCIZ/ISTRIPLE/
12290
12295 SYM232: XWD SYM231,SYM220
12300 4
12305 POINT 7,.+2
12310 XWD RES+CLSIDX,15
12315 ASCIZ/SAFE/
12320
12325 SYM233: XWD SYM232,SYM232
12330 4
12335 POINT 7,.+2
12340 XWD RES+CLSIDX,132
12345 ASCIZ/ELSE/
12350
12355 SYM234: XWD SYM233,SYM223
12360 3
12365 POINT 7,.+2
12370 XWD RES+CLSIDX,165
12375 ASCIZ/LDB/
12380
12385 SYM235: XWD SYM234,SYM234
12390 6
12395 POINT 7,.+2
12400 XWD RES+CLSIDX,301
12405 ASCIZ/SPROUT/
12410
12415 SYM236: XWD SYM235,SYM221
12420 5
12425 POINT 7,.+2
12430 XWD RES+CLSIDX,157
12435 ASCIZ/FALSE/
12440
12445 SYM237: XWD SYM236,SYM235
12450 12
12455 POINT 7,.+2
12460 XWD RES+CLSIDX,255
12465 ASCIZ/IN_CONTEXT/
12470
12475 SYM238: XWD SYM237,SYM231
12480 3
12485 POINT 7,.+2
12490 XWD RES+CLSIDX,264
12495 ASCIZ/NEW/
12500
12505 SYM239: XWD SYM238,SYM211
12510 3
12515 POINT 7,.+2
12520 XWD RES+CLSIDX,266
12525 ASCIZ/OFC/
12530
12535 SYM240: XWD SYM239,SYM229
12540 11
12545 POINT 7,.+2
12550 XWD RES+CLSIDX,100
12555 ASCIZ/ARRAY_PDL/
12560
12565 SYM241: XWD SYM240,SYM226
12570 3
12575 POINT 7,.+2
12580 XWD RES+CLSIDX,3
12585 ASCIZ/SET/
12590
12595 SYM242: XWD SYM241,SYM236
12600 5
12605 POINT 7,.+2
12610 XWD RES+CLSIDX,124
12615 ASCIZ/UNTIL/
12620
12625 SYM243: XWD SYM242,SYM216
12630 5
12635 POINT 7,.+2
12640 XWD RES+CLSIDX,142
12645 ASCIZ/ERASE/
12650
12655 SYM244: XWD SYM243,SYM239
12660 3
12665 POINT 7,.+2
12670 XWD RES+CLSIDX,130
12675 ASCIZ/FOR/
12680
12685 SYM245: XWD SYM244,SYM209
12690 20
12695 POINT 7,.+2
12700 XWD RES+CLSIDX,114
12705 ASCIZ/POLLING_INTERVAL/
12710
12715 SYM246: XWD SYM245,SYM238
12720 6
12725 POINT 7,.+2
12730 XWD RES+CLSIDX,352
12735 ASCIZ/ACCESS/
12740
12745 SYM247: XWD SYM246,SYM240
12750 3
12755 POINT 7,.+2
12760 XWD RES+CLSIDX,61
12765 ASCIZ/MIN/
12770
12775 SYM248: XWD SYM247,SYM233
12780 10
12785 POINT 7,.+2
12790 XWD RES+CLSIDX,12
12795 ASCIZ/KILL_SET/
12800
12805 SYM249: XWD SYM248,SYM243
12810 10
12815 POINT 7,.+2
12820 XWD RES+CLSIDX,14
12825 ASCIZ/INTERNAL/
12830
12835 SYM250: XWD SYM249,SYM241
12840 10
12845 POINT 7,.+2
12850 XWD RES+CLSIDX,322
12855 ASCIZ/NOW_SAFE/
12860
12865 SYM251: XWD SYM250,SYM237
12870 4
12875 POINT 7,.+2
12880 XWD RES+CLSIDX,156
12885 ASCIZ/TRUE/
12890
12895 SYM252: XWD SYM251,SYM244
12900 3
12905 POINT 7,.+2
12910 XWD RES+CLSIDX,176
12915 ASCIZ/DPB/
12920
12925 SYM253: XWD SYM252,SYM242
12930 5
12935 POINT 7,.+2
12940 XWD RES+CLSIDX,4
12945 ASCIZ/LABEL/
12950
12955 SYM254: XWD SYM253,SYM245
12960 5
12965 POINT 7,.+2
12970 XWD RES+CLSIDX,125
12975 ASCIZ/WHILE/
12980
12985 SYM255: XWD SYM254,SYM246
12990 12
12995 POINT 7,.+2
13000 XWD RES+CLSIDX,106
13005 ASCIZ/DELIMITERS/
13010
13015 SYM256: XWD SYM255,SYM251
13020 4
13025 POINT 7,.+2
13030 XWD RES+CLSIDX,353
13035 ASCIZ/GOTO/
13040
13045 SYM257: XWD SYM256,SYM195
13050 3
13055 POINT 7,.+2
13060 XWD RES+CLSIDX,17
13065 ASCIZ/OWN/
13070
13075 SYM258: XWD SYM257,SYM254
13080 3
13085 POINT 7,.+2
13090 XWD RES+CLSIDX,40
13095 ASCIZ/XOR/
13100
13105 SYM259: XWD SYM258,SYM250
13110 10
13115 POINT 7,.+2
13120 XWD RES+CLSIDX,25
13125 ASCIZ/MATCHING/
13130
13135 SYM260: XWD SYM259,SYM255
13140 6
13145 POINT 7,.+2
13150 XWD RES+CLSIDX,275
13155 ASCIZ/WHILEC/
13160
13165 SYM261: XWD SYM260,SYM257
13170 17
13175 POINT 7,.+2
13180 XWD RES+CLSIDX,111
13185 ASCIZ/NULL_DELIMITERS/
13190
13195 SYM262: XWD SYM261,SYM259
13200 14
13205 POINT 7,.+2
13210 XWD RES+CLSIDX,65
13215 ASCIZ/PRELOAD_WITH/
13220
13225 SYM263: XWD SYM262,SYM261
13230 6
13235 POINT 7,.+2
13240 XWD RES+CLSIDX,315
13245 ASCIZ/UNTILC/
13250
13255 SYM264: XWD SYM263,SYM224
13260 3
13265 POINT 7,.+2
13270 XWD RES+CLSIDX,47
13275 ASCIZ/DIV/
13280
13285 SYM265: XWD SYM264,SYM230
13290 3
13295 POINT 7,.+2
13300 XWD RES+CLSIDX,55
13305 ASCIZ/NEQ/
13310
13315 SYM266: XWD SYM265,SYM256
13320 5
13325 POINT 7,.+2
13330 XWD RES+CLSIDX,354
13335 ASCIZ/FORLC/
13340
13345 SYM267: XWD SYM266,SYM265
13350 7
13355 POINT 7,.+2
13360 XWD RES+CLSIDX,102
13365 ASCIZ/VERSION/
13370
13375 SYM268: XWD SYM267,SYM267
13380 3
13385 POINT 7,.+2
13390 XWD RES+CLSIDX,355
13395 ASCIZ/NIL/
13400
13405 SYM269: XWD SYM268,SYM247
13410 6
13415 POINT 7,.+2
13420 XWD RES+CLSIDX,267
13425 ASCIZ/RETURN/
13430
13435 SYM270: XWD SYM269,SYM249
13440 5
13445 POINT 7,.+2
13450 XWD RES+CLSIDX,23
13455 ASCIZ/SHORT/
13460
13465 SYM271: XWD SYM270,SYM258
13470 4
13475 POINT 7,.+2
13480 XWD RES+CLSIDX,356
13485 ASCIZ/SETO/
13490
13495 SYM272: XWD SYM271,SYM271
13500 4
13505 POINT 7,.+2
13510 XWD RES+CLSIDX,155
13515 ASCIZ/NULL/
13520
13525 SYM273: XWD SYM272,SYM270
13530 14
13535 POINT 7,.+2
13540 XWD RES+CLSIDX,357
13545 ASCIZ/NULL_CONTEXT/
13550
13555 SYM274: XWD SYM273,SYM260
13560 5
13565 POINT 7,.+2
13570 XWD RES+CLSIDX,314
13575 ASCIZ/STEPC/
13580
13585 SYM275: XWD SYM274,SYM268
13590 4
13595 POINT 7,.+2
13600 XWD RES+CLSIDX,31
13605 ASCIZ/LNOT/
13610
13615 SYM276: XWD SYM275,SYM253
13620 5
13625 POINT 7,.+2
13630 XWD RES+CLSIDX,360
13635 ASCIZ/INTER/
13640
13645 SYM277: XWD SYM276,SYM275
13650 6
13655 POINT 7,.+2
13660 XWD RES+CLSIDX,224
13665 ASCIZ/MEMORY/
13670
13675 SYM278: XWD SYM277,SYM269
13680 3
13685 POINT 7,.+2
13690 XWD RES+CLSIDX,57
13695 ASCIZ/GEQ/
13700
13705 SYM279: XWD SYM278,SYM262
13710 2
13715 POINT 7,.+2
13720 XWD RES+CLSIDX,136
13725 ASCIZ/DO/
13730
13735 SYM280: XWD SYM279,SYM279
13740 3
13745 POINT 7,.+2
13750 XWD RES+CLSIDX,162
13755 ASCIZ/CVN/
13760
13765 SYM281: XWD SYM280,SYM273
13770 4
13775 POINT 7,.+2
13780 XWD RES+CLSIDX,313
13785 ASCIZ/ENDC/
13790
13795 SYM282: XWD SYM281,SYM276
13800 3
13805 POINT 7,.+2
13810 XWD RES+CLSIDX,46
13815 ASCIZ/ROT/
13820
13825 SYM283: XWD SYM282,SYM272
13830 11
13835 POINT 7,.+2
13840 XWD RES+CLSIDX,26
13845 ASCIZ/REFERENCE/
13850
13855 SYM284: XWD SYM283,SYM283
13860 11
13865 POINT 7,.+2
13870 XWD RES+CLSIDX,113
13875 ASCIZ/PROCESSES/
13880
13885 SYM285: XWD SYM284,SYM201
13890 3
13895 POINT 7,.+2
13900 XWD RES+CLSIDX,251
13905 ASCIZ/IFC/
13910
13915 SYM286: XWD SYM285,SYM264
13920 3
13925 POINT 7,.+2
13930 XWD RES+CLSIDX,227
13935 ASCIZ/NOT/
13940
13945 SYM287: XWD SYM286,SYM266
13950 5
13955 POINT 7,.+2
13960 XWD RES+CLSIDX,312
13965 ASCIZ/ELSEC/
13970
13975 SYM288: XWD SYM287,SYM277
13980 4
13985 POINT 7,.+2
13990 XWD RES+CLSIDX,146
13995 ASCIZ/FAIL/
14000
14005 SYM289: XWD SYM288,SYM281
14010 3
14015 POINT 7,.+2
14020 XWD RES+CLSIDX,50
14025 ASCIZ/MOD/
14030
14035 SYM290: XWD SYM289,SYM287
14040 4
14045 POINT 7,.+2
14050 XWD RES+CLSIDX,361
14055 ASCIZ/CVMS/
14060
14065 SYM291: XWD SYM290,SYM289
14070 4
14075 POINT 7,.+2
14080 XWD RES+CLSIDX,362
14085 ASCIZ/POLL/
14090
14095 SYM292: XWD SYM291,SYM252
14100 6
14105 POINT 7,.+2
14110 XWD RES+CLSIDX,153
14115 ASCIZ/BEFORE/
14120
14125 SYM293: XWD SYM292,SYM280
14130 5
14135 POINT 7,.+2
14140 XWD RES+CLSIDX,27
14145 ASCIZ/VALUE/
14150
14155 SYM294: XWD SYM293,SYM285
14160 12
14165 POINT 7,.+2
14170 XWD RES+CLSIDX,363
14175 ASCIZ/DEPENDENTS/
14180
14185 SYM295: XWD SYM294,SYM294
14190 14
14195 POINT 7,.+2
14200 XWD RES+CLSIDX,77
14205 ASCIZ/STRING_SPACE/
14210
14215 SYM296: XWD SYM295,SYM282
14220 5
14225 POINT 7,.+2
14230 XWD RES+CLSIDX,320
14235 ASCIZ/LISTC/
14240
14245 SYM297: XWD SYM296,SYM288
14250 3
14255 POINT 7,.+2
14260 XWD RES+CLSIDX,171
14265 ASCIZ/COP/
14270
14275 SYM298: XWD SYM297,SYM286
14280 10
14285 POINT 7,.+2
14290 XWD RES+CLSIDX,364
14295 ASCIZ/CONTINUE/
14300
14305 SYM299: XWD SYM298,SYM284
14310 3
14315 POINT 7,.+2
14320 XWD RES+CLSIDX,66
14325 ASCIZ/LET/
14330
14335 SYM300: XWD SYM299,SYM298
14340 2
14345 POINT 7,.+2
14350 XWD RES+CLSIDX,365
14355 ASCIZ/GO/
14360
14365 SYM301: XWD SYM300,SYM295
14370 10
14375 POINT 7,.+2
14380 XWD RES+CLSIDX,366
14385 ASCIZ/RESERVED/
14390
14395 SYM302: XWD SYM301,SYM278
14400 6
14405 POINT 7,.+2
14410 XWD RES+CLSIDX,277
14415 ASCIZ/ASSIGN/
14420
14425 SYM303: XWD SYM302,SYM301
14430 13
14435 POINT 7,.+2
14440 XWD RES+CLSIDX,105
14445 ASCIZ/SOURCE_FILE/
14450
14455 SYM304: XWD SYM303,SYM299
14460 4
14465 POINT 7,.+2
14470 XWD RES+CLSIDX,367
14475 ASCIZ/SUCH/
14480
14485 SYM305: XWD SYM304,SYM304
14490 7
14495 POINT 7,.+2
14500 XWD RES+CLSIDX,64
14505 ASCIZ/REQUIRE/
14510
14515 SYM306: XWD SYM305,SYM291
14520 5
14525 POINT 7,.+2
14530 XWD RES+CLSIDX,370
14535 ASCIZ/LISTO/
14540
14545 SYM307: XWD SYM306,SYM290
14550 7
14555 POINT 7,.+2
14560 XWD RES+CLSIDX,21
14565 ASCIZ/FORTRAN/
14570
14575 SYM308: XWD SYM307,SYM307
14580 7
14585 POINT 7,.+2
14590 XWD RES+CLSIDX,2
14595 ASCIZ/ITEMVAR/
14600 SYM308
14605 ↑RESEND:
14610
14615
14620
14625
14630 ↑MBUCK: ;INITIALIZED BUCKET
14635 XWD SYM305,SYM303
14640 XWD SYM302,SYM274
14645 XWD SYM292,SYM300
14650 XWD SYM263,SYM296
14655 XWD SYM248,SYM306
14660 XWD SYM293,SYM308
14665 XWD SYM297,0
14670 BEND RESTAB