perm filename RESTAB[S,AIL]9 blob
sn#033799 filedate 1973-04-12 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+157
00050 ↑RXOR ←←CLASOP+42
00055 ↑RAND ←←CLASOP+311
00060 ↑RNOT ←←CLASOP+232
00065 ↑RIN ←←CLASOP+137
00070 ↑ROR ←←CLASOP+313
00075 ↑RCOMME←←CLASOP+334
00080 ↑REQV ←←CLASOP+37
00085 ↑RUNION←←CLASOP+340
00090 ↑RINTER←←CLASOP+361
00095 ↑RSETO ←←CLASOP+357
00100 ↑RSETC ←←CLASOP+323
00105 ↑RSWAP ←←CLASOP+301
00110 ↑RLEQ ←←CLASOP+60
00115 ↑RNEQ ←←CLASOP+57
00120 ↑RGEQ ←←CLASOP+61
00125 ↑RASSOC←←CLASOP+43
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: SYM86 ;HEADER FOR PTIFRE
07550 6
07555 POINT 7,.+10
07560 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07565 0
07570 IFN DCS,<0+PTIFRE ;>0
07575 BYTE (6) 1,0
07580 BLOCK 2
07585 XWD SYM106,SYM104
07590 ASCII /PTIFRE/
07595
07600
07605
07610
07615 SYM106: SYM105 ;HEADER FOR PTOCNT
07620 6
07625 POINT 7,.+10
07630 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07635 0
07640 IFN DCS,<0+PTOCNT ;>0
07645 BYTE (6) 1,0
07650 BLOCK 2
07655 XWD SYM107,SYM105
07660 ASCII /PTOCNT/
07665
07670
07675
07680
07685 SYM107: SYM99 ;HEADER FOR PTCHRW
07690 6
07695 POINT 7,.+10
07700 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07705 0
07710 IFN DCS,<0+PTCHRW ;>0
07715 BYTE (6) 1,0
07720 BLOCK 2
07725 XWD SYM108,SYM106
07730 ASCII /PTCHRW/
07735
07740
07745
07750
07755 SYM108: SYM107 ;HEADER FOR PTCHRS
07760 6
07765 POINT 7,.+10
07770 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07775 0
07780 IFN DCS,<0+PTCHRS ;>0
07785 BYTE (6) 1,0
07790 BLOCK 2
07795 XWD SYM109,SYM107
07800 ASCII /PTCHRS/
07805
07810
07815
07820
07825 SYM109: SYM108 ;HEADER FOR PTOCHS
07830 6
07835 POINT 7,.+10
07840 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07845 0
07850 IFN DCS,<0+PTOCHS ;>0
07855 BYTE (6) 1,1,0
07860 BLOCK 2
07865 XWD SYM110,SYM108
07870 ASCII /PTOCHS/
07875
07880
07885
07890
07895 SYM110: SYM109 ;HEADER FOR PTOCHW
07900 6
07905 POINT 7,.+10
07910 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07915 0
07920 IFN DCS,<0+PTOCHW ;>0
07925 BYTE (6) 1,1,0
07930 BLOCK 2
07935 XWD SYM111,SYM109
07940 ASCII /PTOCHW/
07945
07950
07955
07960
07965 SYM111: SYM90 ;HEADER FOR PTOSTR
07970 6
07975 POINT 7,.+10
07980 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07985 0
07990 IFN DCS,<0+PTOSTR ;>0
07995 BYTE (6) 1,2,0
08000 BLOCK 2
08005 XWD SYM112,SYM110
08010 ASCII /PTOSTR/
08015
08020
08025
08030
08035 SYM112: SYM104 ;HEADER FOR BACKUP
08040 6
08045 POINT 7,.+10
08050 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
08055 0
08060 IFN DCS,<0+BACKUP ;>0
08065 BYTE (6) 0
08070 BLOCK 2
08075 XWD SYM113,SYM111
08080 ASCII /BACKUP/
08085
08090
08095
08100
08105 SYM113: SYM101 ;HEADER FOR LODED
08110 5
08115 POINT 7,.+10
08120 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
08125 0
08130 IFN DCS,<0+LODED ;>0
08135 BYTE (6) 2,0
08140 BLOCK 2
08145 XWD SYM114,SYM112
08150 ASCII /LODED/
08155
08160
08165
08170
08175 SYM114: SYM77 ;HEADER FOR PTYALL
08180 6
08185 POINT 7,.+10
08190 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
08195 0
08200 IFN DCS,<0+PTYALL ;>0
08205 BYTE (6) 1,0
08210 BLOCK 2
08215 XWD SYM115,SYM113
08220 ASCII /PTYALL/
08225
08230
08235
08240
08245 SYM115: SYM100 ;HEADER FOR PTYSTR
08250 6
08255 POINT 7,.+10
08260 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
08265 0
08270 IFN DCS,<0+PTYSTR ;>0
08275 BYTE (6) 1,1,0
08280 BLOCK 2
08285 XWD SYM116,SYM114
08290 ASCII /PTYSTR/
08295
08300
08305
08310
08315 SYM116: SYM84 ;HEADER FOR PTYIN
08320 5
08325 POINT 7,.+10
08330 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
08335 0
08340 IFN DCS,<0+PTYIN ;>0
08345 BYTE (6) 1,1,3,0
08350 BLOCK 2
08355 XWD SYM117,SYM115
08360 ASCII /PTYIN/
08365
08370
08375
08380
08385 SYM117: SYM106 ;HEADER FOR IFGLOBAL
08390 10
08395 POINT 7,.+10
08400 XWD EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
08405 0
08410 IFN DCS,<0+IFGLOBAL ;>0
08415 BYTE (6) 13,0
08420 BLOCK 2
08425 XWD SYM118,SYM116
08430 ASCII /IFGLOBAL/
08435
08440
08445
08450
08455 SYM118: SYM114 ;HEADER FOR ISSUE
08460 5
08465 POINT 7,.+10
08470 XWD EXTRNL+OWN,PROCED+FORWRD+INTEGR
08475 0
08480 IFN DCS,<0+ISSUE ;>0
08485 BYTE (6) 1,2,2,2,0
08490 BLOCK 2
08495 XWD SYM119,SYM117
08500 ASCII /ISSUE/
08505
08510
08515
08520
08525 SYM119: SYM110 ;HEADER FOR QUEUE
08530 5
08535 POINT 7,.+10
08540 XWD EXTRNL+OWN,PROCED+FORWRD+INTEGR
08545 0
08550 IFN DCS,<0+QUEUE ;>0
08555 BYTE (6) 1,1,0
08560 BLOCK 2
08565 XWD SYM120,SYM118
08570 ASCII /QUEUE/
08575
08580
08585
08590
08595 SYM120: SYM111 ;HEADER FOR GET_DATA
08600 10
08605 POINT 7,.+10
08610 XWD EXTRNL+OWN,PROCED+FORWRD+STRING
08615 0
08620 IFN DCS,<0+GET.DATA ;>0
08625 BYTE (6) 1,1,0
08630 BLOCK 2
08635 XWD SYM121,SYM119
08640 ASCII /GET_DATA/
08645
08650
08655
08660
08665 SYM121: SYM118 ;HEADER FOR PUT_DATA
08670 10
08675 POINT 7,.+10
08680 XWD EXTRNL+OWN,PROCED+FORWRD+UNTYPE
08685 0
08690 IFN DCS,<0+PUT.DATA ;>0
08695 BYTE (6) 1,1,2,0
08700 BLOCK 2
08705 XWD SYM122,SYM120
08710 ASCII /PUT_DATA/
08715
08720
08725
08730
08735 SYM122: SYM103 ;HEADER FOR GET_BIT
08740 7
08745 POINT 7,.+10
08750 XWD EXTRNL+OWN,PROCED+FORWRD+INTEGR
08755 0
08760 IFN DCS,<0+GET.BIT ;>0
08765 BYTE (6) 1,0
08770 BLOCK 2
08775 XWD SYM123,SYM121
08780 ASCII /GET_BIT/
08785
08790
08795
08800
08805 SYM123: SYM122 ;HEADER FOR GET_ENTRY
08810 11
08815 POINT 7,.+10
08820 XWD EXTRNL+OWN,PROCED+FORWRD+INTEGR
08825 0
08830 IFN DCS,<0+GET.ENTRY ;>0
08835 BYTE (6) 1,2,2,2,0
08840 BLOCK 2
08845 XWD SYM124,SYM122
08850 ASCII /GET_ENTRY/
08855
08860
08865
08870
08875 SYM124: SYM87 ;HEADER FOR GET_SET
08880 7
08885 POINT 7,.+10
08890 XWD EXTRNL+OWN,PROCED+FORWRD+SET
08895 0
08900 IFN DCS,<0+GET.SET ;>0
08905 BYTE (6) 1,2,2,2,0
08910 BLOCK 2
08915 XWD SYM125,SYM123
08920 ASCII /GET_SET/
08925
08930
08935
08940
08945 ↑BLTTBL←.-1
08950 XWD VALUE,INTEGR
08955 XWD VALUE,STRING
08960 XWD REFRNC,INTEGR
08965 XWD REFRNC,STRING
08970 XWD VALUE,INTEGR+FLOTNG
08975 XWD REFRNC,INTEGR+FLOTNG+ITMVAR
08980 XWD VALUE,FLOTNG
08985 XWD REFRNC+SBSCRP,INTEGR+FLOTNG+SET+LSTBIT+ITMVAR+STRING
08990 XWD REFRNC,INTEGR+FLOTNG+ITMVAR+SET
08995 XWD REFRNC+SBSCRP,INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING
09000 XWD VALUE,ITMVAR
09005 XWD VALUE,LSTBIT+SET
09010 XWD REFRNC+SBSCRP,INTEGR
09015 XWD VALUE,SET
09020 XWD REFRNC,PROCED
09025 SYM125←0
09030
09035 SYM126: XWD 0,SYM115
09040 4
09045 POINT 7,.+2
09050 XWD RES+CLSIDX,222
09055 ASCIZ/BBPP/
09060
09065 SYM127: XWD SYM126,SYM124
09070 5
09075 POINT 7,.+2
09080 XWD RES+CLSIDX,236
09085 ASCIZ/BEGIN/
09090
09095 SYM128: XWD SYM127,SYM113
09100 10
09105 POINT 7,.+2
09110 XWD RES+CLSIDX,152
09115 ASCIZ/REMEMBER/
09120
09125 SYM129: XWD SYM128,SYM126
09130 6
09135 POINT 7,.+2
09140 XWD RES+CLSIDX,172
09145 ASCIZ/SECOND/
09150
09155 SYM130: XWD SYM129,SYM121
09160 3
09165 POINT 7,.+2
09170 XWD RES+CLSIDX,331
09175 ASCIZ/PHI/
09180
09185 SYM131: XWD SYM130,SYM129
09190 12
09195 POINT 7,.+2
09200 XWD RES+CLSIDX,234
09205 ASCIZ/START_CODE/
09210
09215 SYM132: XWD SYM131,SYM120
09220 3
09225 POINT 7,.+2
09230 XWD RES+CLSIDX,157
09235 ASCIZ/INF/
09240
09245 SYM133: XWD SYM132,SYM119
09250 4
09255 POINT 7,.+2
09260 XWD RES+CLSIDX,241
09265 ASCIZ/CASE/
09270
09275 SYM134: XWD SYM133,SYM92
09280 14
09285 POINT 7,.+2
09290 XWD RES+CLSIDX,115
09295 ASCIZ/SEGMENT_NAME/
09300
09305 SYM135: XWD SYM134,SYM112
09310 7
09315 POINT 7,.+2
09320 XWD RES+CLSIDX,105
09325 ASCIZ/LIBRARY/
09330
09335 SYM136: XWD SYM135,SYM135
09340 12
09345 POINT 7,.+2
09350 XWD RES+CLSIDX,77
09355 ASCIZ/SYSTEM_PDL/
09360
09365 SYM137: XWD SYM136,SYM134
09370 5
09375 POINT 7,.+2
09380 XWD RES+CLSIDX,305
09385 ASCIZ/CAUSE/
09390
09395 SYM138: XWD SYM137,SYM130
09400 3
09405 POINT 7,.+2
09410 XWD RES+CLSIDX,332
09415 ASCIZ/ALL/
09420
09425 SYM139: XWD SYM138,SYM131
09430 5
09435 POINT 7,.+2
09440 XWD RES+CLSIDX,224
09445 ASCIZ/DATUM/
09450
09455 SYM140: XWD SYM139,SYM136
09460 5
09465 POINT 7,.+2
09470 XWD RES+CLSIDX,242
09475 ASCIZ/CASEC/
09480
09485 SYM141: XWD SYM140,SYM138
09490 5
09495 POINT 7,.+2
09500 XWD RES+CLSIDX,303
09505 ASCIZ/APPLY/
09510
09515 SYM142: XWD SYM141,SYM133
09520 11
09525 POINT 7,.+2
09530 XWD RES+CLSIDX,64
09535 ASCIZ/PROCEDURE/
09540
09545 SYM143: XWD SYM142,SYM127
09550 11
09555 POINT 7,.+2
09560 XWD RES+CLSIDX,114
09565 ASCIZ/ALLGLOBAL/
09570
09575 SYM144: XWD SYM143,SYM116
09580 4
09585 POINT 7,.+2
09590 XWD RES+CLSIDX,140
09595 ASCIZ/FROM/
09600
09605 SYM145: XWD SYM144,SYM142
09610 3
09615 POINT 7,.+2
09620 XWD RES+CLSIDX,34
09625 ASCIZ/ABS/
09630
09635 SYM146: XWD SYM145,SYM123
09640 5
09645 POINT 7,.+2
09650 XWD RES+CLSIDX,176
09655 ASCIZ/CVSET/
09660
09665 SYM147: XWD SYM146,SYM137
09670 2
09675 POINT 7,.+2
09680 XWD RES+CLSIDX,313
09685 ASCIZ/OR/
09690
09695 SYM148: XWD SYM147,SYM143
09700 5
09705 POINT 7,.+2
09710 XWD RES+CLSIDX,230
09715 ASCIZ/PROPS/
09720
09725 SYM149: XWD SYM148,SYM102
09730 16
09735 POINT 7,.+2
09740 XWD RES+CLSIDX,333
09745 ASCIZ/INITIALIZATION/
09750
09755 SYM150: XWD SYM149,SYM128
09760 3
09765 POINT 7,.+2
09770 XWD RES+CLSIDX,37
09775 ASCIZ/EQV/
09780
09785 SYM151: XWD SYM150,SYM145
09790 3
09795 POINT 7,.+2
09800 XWD RES+CLSIDX,311
09805 ASCIZ/AND/
09810
09815 SYM152: XWD SYM151,SYM150
09820 7
09825 POINT 7,.+2
09830 XWD RES+CLSIDX,10
09835 ASCIZ/BOOLEAN/
09840
09845 SYM153: XWD SYM152,SYM147
09850 5
09855 POINT 7,.+2
09860 XWD RES+CLSIDX,276
09865 ASCIZ/THENC/
09870
09875 SYM154: XWD SYM153,SYM148
09880 22
09885 POINT 7,.+2
09890 XWD RES+CLSIDX,112
09895 ASCIZ/UNSTACK_DELIMITERS/
09900
09905 SYM155: XWD SYM154,SYM146
09910 7
09915 POINT 7,.+2
09920 XWD RES+CLSIDX,334
09925 ASCIZ/COMMENT/
09930
09935 SYM156: XWD SYM155,SYM117
09940 10
09945 POINT 7,.+2
09950 XWD RES+CLSIDX,335
09955 ASCIZ/LOCATION/
09960
09965 SYM157: XWD SYM156,SYM153
09970 14
09975 POINT 7,.+2
09980 XWD RES+CLSIDX,116
09985 ASCIZ/SEGMENT_FILE/
09990
09995 SYM158: XWD SYM157,SYM139
10000 11
10005 POINT 7,.+2
10010 XWD RES+CLSIDX,103
10015 ASCIZ/NEW_ITEMS/
10020
10025 SYM159: XWD SYM158,SYM149
10030 7
10035 POINT 7,.+2
10040 XWD RES+CLSIDX,72
10045 ASCIZ/CLEANUP/
10050
10055 SYM160: XWD SYM159,SYM155
10060 4
10065 POINT 7,.+2
10070 XWD RES+CLSIDX,225
10075 ASCIZ/DONE/
10080
10085 SYM161: XWD SYM160,SYM157
10090 5
10095 POINT 7,.+2
10100 XWD RES+CLSIDX,173
10105 ASCIZ/THIRD/
10110
10115 SYM162: XWD SYM161,SYM132
10120 7
10125 POINT 7,.+2
10130 XWD RES+CLSIDX,22
10135 ASCIZ/FORWARD/
10140
10145 SYM163: XWD SYM162,SYM144
10150 3
10155 POINT 7,.+2
10160 XWD RES+CLSIDX,245
10165 ASCIZ/DOC/
10170
10175 SYM164: XWD SYM163,SYM161
10180 4
10185 POINT 7,.+2
10190 XWD RES+CLSIDX,336
10195 ASCIZ/NEXT/
10200
10205 SYM165: XWD SYM164,SYM97
10210 6
10215 POINT 7,.+2
10220 XWD RES+CLSIDX,65
10225 ASCIZ/DEFINE/
10230
10235 SYM166: XWD SYM165,SYM164
10240 6
10245 POINT 7,.+2
10250 XWD RES+CLSIDX,166
10255 ASCIZ/LENGTH/
10260
10265 SYM167: XWD SYM166,SYM156
10270 6
10275 POINT 7,.+2
10280 XWD RES+CLSIDX,24
10285 ASCIZ/SIMPLE/
10290
10295 SYM168: XWD SYM167,SYM163
10300 5
10305 POINT 7,.+2
10310 XWD RES+CLSIDX,337
10315 ASCIZ/ARRAY/
10320
10325 SYM169: XWD SYM168,SYM141
10330 13
10335 POINT 7,.+2
10340 XWD RES+CLSIDX,106
10345 ASCIZ/LOAD_MODULE/
10350
10355 SYM170: XWD SYM169,SYM167
10360 6
10365 POINT 7,.+2
10370 XWD RES+CLSIDX,226
10375 ASCIZ/DELETE/
10380
10385 SYM171: XWD SYM170,SYM140
10390 22
10395 POINT 7,.+2
10400 XWD RES+CLSIDX,111
10405 ASCIZ/REPLACE_DELIMITERS/
10410
10415 SYM172: XWD SYM171,SYM166
10420 5
10425 POINT 7,.+2
10430 XWD RES+CLSIDX,155
10435 ASCIZ/AFTER/
10440
10445 SYM173: XWD SYM172,SYM154
10450 7
10455 POINT 7,.+2
10460 XWD RES+CLSIDX,252
10465 ASCIZ/FOREACH/
10470
10475 SYM174: XWD SYM173,SYM160
10480 12
10485 POINT 7,.+2
10490 XWD RES+CLSIDX,325
10495 ASCIZ/NOW_UNSAFE/
10500
10505 SYM175: XWD SYM174,SYM168
10510 5
10515 POINT 7,.+2
10520 XWD RES+CLSIDX,340
10525 ASCIZ/UNION/
10530
10535 SYM176: XWD SYM175,SYM151
10540 12
10545 POINT 7,.+2
10550 XWD RES+CLSIDX,235
10555 ASCIZ/QUICK_CODE/
10560
10565 SYM177: XWD SYM176,SYM162
10570 12
10575 POINT 7,.+2
10580 XWD RES+CLSIDX,341
10585 ASCIZ/LEAP_ARRAY/
10590
10595 SYM178: XWD SYM177,SYM169
10600 2
10605 POINT 7,.+2
10610 XWD RES+CLSIDX,270
10615 ASCIZ/OF/
10620
10625 SYM179: XWD SYM178,SYM165
10630 7
10635 POINT 7,.+2
10640 XWD RES+CLSIDX,154
10645 ASCIZ/RESTORE/
10650
10655 SYM180: XWD SYM179,SYM152
10660 11
10665 POINT 7,.+2
10670 XWD RES+CLSIDX,20
10675 ASCIZ/RECURSIVE/
10680
10685 SYM181: XWD SYM180,SYM178
10690 3
10695 POINT 7,.+2
10700 XWD RES+CLSIDX,47
10705 ASCIZ/LSH/
10710
10715 SYM182: XWD SYM181,SYM174
10720 3
10725 POINT 7,.+2
10730 XWD RES+CLSIDX,146
10735 ASCIZ/PUT/
10740
10745 SYM183: XWD SYM182,SYM182
10750 3
10755 POINT 7,.+2
10760 XWD RES+CLSIDX,175
10765 ASCIZ/CVI/
10770
10775 SYM184: XWD SYM183,SYM171
10780 4
10785 POINT 7,.+2
10790 XWD RES+CLSIDX,5
10795 ASCIZ/REAL/
10800
10805 SYM185: XWD SYM184,SYM159
10810 4
10815 POINT 7,.+2
10820 XWD RES+CLSIDX,323
10825 ASCIZ/SETC/
10830
10835 SYM186: XWD SYM185,SYM158
10840 7
10845 POINT 7,.+2
10850 XWD RES+CLSIDX,150
10855 ASCIZ/SUCCEED/
10860
10865 SYM187: XWD SYM186,SYM185
10870 4
10875 POINT 7,.+2
10880 XWD RES+CLSIDX,11
10885 ASCIZ/LIST/
10890
10895 SYM188: XWD SYM187,SYM172
10900 6
10905 POINT 7,.+2
10910 XWD RES+CLSIDX,26
10915 ASCIZ/GLOBAL/
10920
10925 SYM189: XWD SYM188,SYM188
10930 10
10935 POINT 7,.+2
10940 XWD RES+CLSIDX,342
10945 ASCIZ/BUILT_IN/
10950
10955 SYM190: XWD SYM189,SYM187
10960 6
10965 POINT 7,.+2
10970 XWD RES+CLSIDX,7
10975 ASCIZ/STRING/
10980
10985 SYM191: XWD SYM190,SYM175
10990 13
10995 POINT 7,.+2
11000 XWD RES+CLSIDX,306
11005 ASCIZ/INTERROGATE/
11010
11015 SYM192: XWD SYM191,SYM177
11020 4
11025 POINT 7,.+2
11030 XWD RES+CLSIDX,343
11035 ASCIZ/BIND/
11040
11045 SYM193: XWD SYM192,SYM192
11050 4
11055 POINT 7,.+2
11060 XWD RES+CLSIDX,167
11065 ASCIZ/ILDB/
11070
11075 SYM194: XWD SYM193,SYM170
11080 4
11085 POINT 7,.+2
11090 XWD RES+CLSIDX,1
11095 ASCIZ/ITEM/
11100
11105 SYM195: XWD SYM194,SYM191
11110 4
11115 POINT 7,.+2
11120 XWD RES+CLSIDX,344
11125 ASCIZ/THAT/
11130
11135 SYM196: XWD SYM195,SYM193
11140 6
11145 POINT 7,.+2
11150 XWD RES+CLSIDX,76
11155 ASCIZ/PNAMES/
11160
11165 SYM197: XWD SYM196,SYM179
11170 11
11175 POINT 7,.+2
11180 XWD RES+CLSIDX,307
11185 ASCIZ/EXPR_TYPE/
11190
11195 SYM198: XWD SYM197,SYM189
11200 6
11205 POINT 7,.+2
11210 XWD RES+CLSIDX,177
11215 ASCIZ/CVLIST/
11220
11225 SYM199: XWD SYM198,SYM184
11230 2
11235 POINT 7,.+2
11240 XWD RES+CLSIDX,137
11245 ASCIZ/IN/
11250
11255 SYM200: XWD SYM199,SYM183
11260 10
11265 POINT 7,.+2
11270 XWD RES+CLSIDX,16
11275 ASCIZ/EXTERNAL/
11280
11285 SYM201: XWD SYM200,SYM196
11290 10
11295 POINT 7,.+2
11300 XWD RES+CLSIDX,345
11305 ASCIZ/NEEDNEXT/
11310
11315 SYM202: XWD SYM201,SYM181
11320 4
11325 POINT 7,.+2
11330 XWD RES+CLSIDX,40
11335 ASCIZ/LAND/
11340
11345 SYM203: XWD SYM202,SYM198
11350 7
11355 POINT 7,.+2
11360 XWD RES+CLSIDX,6
11365 ASCIZ/INTEGER/
11370
11375 SYM204: XWD SYM203,SYM199
11380 13
11385 POINT 7,.+2
11390 XWD RES+CLSIDX,346
11395 ASCIZ/DECLARATION/
11400
11405 SYM205: XWD SYM204,SYM202
11410 12
11415 POINT 7,.+2
11420 XWD RES+CLSIDX,100
11425 ASCIZ/STRING_PDL/
11430
11435 SYM206: XWD SYM205,SYM203
11440 7
11445 POINT 7,.+2
11450 XWD RES+CLSIDX,13
11455 ASCIZ/CONTEXT/
11460
11465 SYM207: XWD SYM206,SYM176
11470 6
11475 POINT 7,.+2
11480 XWD RES+CLSIDX,147
11485 ASCIZ/REMOVE/
11490
11495 SYM208: XWD SYM207,SYM200
11500 3
11505 POINT 7,.+2
11510 XWD RES+CLSIDX,60
11515 ASCIZ/LEQ/
11520
11525 SYM209: XWD SYM208,SYM207
11530 4
11535 POINT 7,.+2
11540 XWD RES+CLSIDX,126
11545 ASCIZ/STEP/
11550
11555 SYM210: XWD SYM209,SYM206
11560 5
11565 POINT 7,.+2
11570 XWD RES+CLSIDX,171
11575 ASCIZ/FIRST/
11580
11585 SYM211: XWD SYM210,SYM190
11590 4
11595 POINT 7,.+2
11600 XWD RES+CLSIDX,144
11605 ASCIZ/MAKE/
11610
11615 SYM212: XWD SYM211,SYM204
11620 6
11625 POINT 7,.+2
11630 XWD RES+CLSIDX,347
11635 ASCIZ/SAMEIV/
11640
11645 SYM213: XWD SYM212,SYM210
11650 2
11655 POINT 7,.+2
11660 XWD RES+CLSIDX,132
11665 ASCIZ/TO/
11670
11675 SYM214: XWD SYM213,SYM194
11680 5
11685 POINT 7,.+2
11690 XWD RES+CLSIDX,350
11695 ASCIZ/ENTRY/
11700
11705 SYM215: XWD SYM214,SYM213
11710 13
11715 POINT 7,.+2
11720 XWD RES+CLSIDX,71
11725 ASCIZ/PROTECT_ACS/
11730
11735 SYM216: XWD SYM215,SYM215
11740 5
11745 POINT 7,.+2
11750 XWD RES+CLSIDX,43
11755 ASCIZ/ASSOC/
11760
11765 SYM217: XWD SYM216,SYM208
11770 4
11775 POINT 7,.+2
11780 XWD RES+CLSIDX,351
11785 ASCIZ/FORC/
11790
11795 SYM218: XWD SYM217,SYM205
11800 6
11805 POINT 7,.+2
11810 XWD RES+CLSIDX,153
11815 ASCIZ/FORGET/
11820
11825 SYM219: XWD SYM218,SYM173
11830 3
11835 POINT 7,.+2
11840 XWD RES+CLSIDX,41
11845 ASCIZ/LOR/
11850
11855 SYM220: XWD SYM219,SYM197
11860 4
11865 POINT 7,.+2
11870 XWD RES+CLSIDX,301
11875 ASCIZ/SWAP/
11880
11885 SYM221: XWD SYM220,SYM217
11890 4
11895 POINT 7,.+2
11900 XWD RES+CLSIDX,200
11905 ASCIZ/IDPB/
11910
11915 SYM222: XWD SYM221,SYM216
11920 2
11925 POINT 7,.+2
11930 XWD RES+CLSIDX,312
11935 ASCIZ/IF/
11940
11945 SYM223: XWD SYM222,SYM220
11950 3
11955 POINT 7,.+2
11960 XWD RES+CLSIDX,202
11965 ASCIZ/IBP/
11970
11975 SYM224: XWD SYM223,SYM180
11980 3
11985 POINT 7,.+2
11990 XWD RES+CLSIDX,164
11995 ASCIZ/LOP/
12000
12005 SYM225: XWD SYM224,SYM223
12010 3
12015 POINT 7,.+2
12020 XWD RES+CLSIDX,134
12025 ASCIZ/END/
12030
12035 SYM226: XWD SYM225,SYM225
12040 3
12045 POINT 7,.+2
12050 XWD RES+CLSIDX,62
12055 ASCIZ/MAX/
12060
12065 SYM227: XWD SYM226,SYM226
12070 4
12075 POINT 7,.+2
12080 XWD RES+CLSIDX,275
12085 ASCIZ/THEN/
12090
12095 SYM228: XWD SYM227,SYM186
12100 12
12105 POINT 7,.+2
12110 XWD RES+CLSIDX,352
12115 ASCIZ/CHECK_TYPE/
12120
12125 SYM229: XWD SYM228,SYM212
12130 10
12135 POINT 7,.+2
12140 XWD RES+CLSIDX,163
12145 ASCIZ/ISTRIPLE/
12150
12155 SYM230: XWD SYM229,SYM218
12160 4
12165 POINT 7,.+2
12170 XWD RES+CLSIDX,15
12175 ASCIZ/SAFE/
12180
12185 SYM231: XWD SYM230,SYM230
12190 4
12195 POINT 7,.+2
12200 XWD RES+CLSIDX,135
12205 ASCIZ/ELSE/
12210
12215 SYM232: XWD SYM231,SYM221
12220 3
12225 POINT 7,.+2
12230 XWD RES+CLSIDX,170
12235 ASCIZ/LDB/
12240
12245 SYM233: XWD SYM232,SYM232
12250 6
12255 POINT 7,.+2
12260 XWD RES+CLSIDX,304
12265 ASCIZ/SPROUT/
12270
12275 SYM234: XWD SYM233,SYM219
12280 5
12285 POINT 7,.+2
12290 XWD RES+CLSIDX,162
12295 ASCIZ/FALSE/
12300
12305 SYM235: XWD SYM234,SYM233
12310 12
12315 POINT 7,.+2
12320 XWD RES+CLSIDX,260
12325 ASCIZ/IN_CONTEXT/
12330
12335 SYM236: XWD SYM235,SYM229
12340 3
12345 POINT 7,.+2
12350 XWD RES+CLSIDX,267
12355 ASCIZ/NEW/
12360
12365 SYM237: XWD SYM236,SYM211
12370 3
12375 POINT 7,.+2
12380 XWD RES+CLSIDX,271
12385 ASCIZ/OFC/
12390
12395 SYM238: XWD SYM237,SYM227
12400 11
12405 POINT 7,.+2
12410 XWD RES+CLSIDX,102
12415 ASCIZ/ARRAY_PDL/
12420
12425 SYM239: XWD SYM238,SYM224
12430 3
12435 POINT 7,.+2
12440 XWD RES+CLSIDX,3
12445 ASCIZ/SET/
12450
12455 SYM240: XWD SYM239,SYM234
12460 5
12465 POINT 7,.+2
12470 XWD RES+CLSIDX,127
12475 ASCIZ/UNTIL/
12480
12485 SYM241: XWD SYM240,SYM214
12490 5
12495 POINT 7,.+2
12500 XWD RES+CLSIDX,145
12505 ASCIZ/ERASE/
12510
12515 SYM242: XWD SYM241,SYM237
12520 3
12525 POINT 7,.+2
12530 XWD RES+CLSIDX,133
12535 ASCIZ/FOR/
12540
12545 SYM243: XWD SYM242,SYM209
12550 20
12555 POINT 7,.+2
12560 XWD RES+CLSIDX,120
12565 ASCIZ/POLLING_INTERVAL/
12570
12575 SYM244: XWD SYM243,SYM236
12580 6
12585 POINT 7,.+2
12590 XWD RES+CLSIDX,353
12595 ASCIZ/ACCESS/
12600
12605 SYM245: XWD SYM244,SYM238
12610 3
12615 POINT 7,.+2
12620 XWD RES+CLSIDX,63
12625 ASCIZ/MIN/
12630
12635 SYM246: XWD SYM245,SYM231
12640 10
12645 POINT 7,.+2
12650 XWD RES+CLSIDX,12
12655 ASCIZ/KILL_SET/
12660
12665 SYM247: XWD SYM246,SYM241
12670 10
12675 POINT 7,.+2
12680 XWD RES+CLSIDX,14
12685 ASCIZ/INTERNAL/
12690
12695 SYM248: XWD SYM247,SYM239
12700 10
12705 POINT 7,.+2
12710 XWD RES+CLSIDX,324
12715 ASCIZ/NOW_SAFE/
12720
12725 SYM249: XWD SYM248,SYM235
12730 4
12735 POINT 7,.+2
12740 XWD RES+CLSIDX,161
12745 ASCIZ/TRUE/
12750
12755 SYM250: XWD SYM249,SYM242
12760 3
12765 POINT 7,.+2
12770 XWD RES+CLSIDX,201
12775 ASCIZ/DPB/
12780
12785 SYM251: XWD SYM250,SYM240
12790 5
12795 POINT 7,.+2
12800 XWD RES+CLSIDX,4
12805 ASCIZ/LABEL/
12810
12815 SYM252: XWD SYM251,SYM243
12820 5
12825 POINT 7,.+2
12830 XWD RES+CLSIDX,130
12835 ASCIZ/WHILE/
12840
12845 SYM253: XWD SYM252,SYM244
12850 12
12855 POINT 7,.+2
12860 XWD RES+CLSIDX,110
12865 ASCIZ/DELIMITERS/
12870
12875 SYM254: XWD SYM253,SYM249
12880 4
12885 POINT 7,.+2
12890 XWD RES+CLSIDX,354
12895 ASCIZ/GOTO/
12900
12905 SYM255: XWD SYM254,SYM195
12910 3
12915 POINT 7,.+2
12920 XWD RES+CLSIDX,17
12925 ASCIZ/OWN/
12930
12935 SYM256: XWD SYM255,SYM252
12940 3
12945 POINT 7,.+2
12950 XWD RES+CLSIDX,42
12955 ASCIZ/XOR/
12960
12965 SYM257: XWD SYM256,SYM248
12970 10
12975 POINT 7,.+2
12980 XWD RES+CLSIDX,25
12985 ASCIZ/MATCHING/
12990
12995 SYM258: XWD SYM257,SYM253
13000 6
13005 POINT 7,.+2
13010 XWD RES+CLSIDX,300
13015 ASCIZ/WHILEC/
13020
13025 SYM259: XWD SYM258,SYM255
13030 17
13035 POINT 7,.+2
13040 XWD RES+CLSIDX,113
13045 ASCIZ/NULL_DELIMITERS/
13050
13055 SYM260: XWD SYM259,SYM257
13060 14
13065 POINT 7,.+2
13070 XWD RES+CLSIDX,67
13075 ASCIZ/PRELOAD_WITH/
13080
13085 SYM261: XWD SYM260,SYM259
13090 6
13095 POINT 7,.+2
13100 XWD RES+CLSIDX,317
13105 ASCIZ/UNTILC/
13110
13115 SYM262: XWD SYM261,SYM222
13120 3
13125 POINT 7,.+2
13130 XWD RES+CLSIDX,51
13135 ASCIZ/DIV/
13140
13145 SYM263: XWD SYM262,SYM228
13150 3
13155 POINT 7,.+2
13160 XWD RES+CLSIDX,57
13165 ASCIZ/NEQ/
13170
13175 SYM264: XWD SYM263,SYM254
13180 5
13185 POINT 7,.+2
13190 XWD RES+CLSIDX,355
13195 ASCIZ/FORLC/
13200
13205 SYM265: XWD SYM264,SYM263
13210 7
13215 POINT 7,.+2
13220 XWD RES+CLSIDX,104
13225 ASCIZ/VERSION/
13230
13235 SYM266: XWD SYM265,SYM265
13240 3
13245 POINT 7,.+2
13250 XWD RES+CLSIDX,356
13255 ASCIZ/NIL/
13260
13265 SYM267: XWD SYM266,SYM245
13270 6
13275 POINT 7,.+2
13280 XWD RES+CLSIDX,272
13285 ASCIZ/RETURN/
13290
13295 SYM268: XWD SYM267,SYM247
13300 5
13305 POINT 7,.+2
13310 XWD RES+CLSIDX,23
13315 ASCIZ/SHORT/
13320
13325 SYM269: XWD SYM268,SYM256
13330 4
13335 POINT 7,.+2
13340 XWD RES+CLSIDX,357
13345 ASCIZ/SETO/
13350
13355 SYM270: XWD SYM269,SYM269
13360 4
13365 POINT 7,.+2
13370 XWD RES+CLSIDX,160
13375 ASCIZ/NULL/
13380
13385 SYM271: XWD SYM270,SYM268
13390 14
13395 POINT 7,.+2
13400 XWD RES+CLSIDX,360
13405 ASCIZ/NULL_CONTEXT/
13410
13415 SYM272: XWD SYM271,SYM258
13420 5
13425 POINT 7,.+2
13430 XWD RES+CLSIDX,316
13435 ASCIZ/STEPC/
13440
13445 SYM273: XWD SYM272,SYM266
13450 4
13455 POINT 7,.+2
13460 XWD RES+CLSIDX,33
13465 ASCIZ/LNOT/
13470
13475 SYM274: XWD SYM273,SYM251
13480 5
13485 POINT 7,.+2
13490 XWD RES+CLSIDX,361
13495 ASCIZ/INTER/
13500
13505 SYM275: XWD SYM274,SYM273
13510 6
13515 POINT 7,.+2
13520 XWD RES+CLSIDX,227
13525 ASCIZ/MEMORY/
13530
13535 SYM276: XWD SYM275,SYM267
13540 3
13545 POINT 7,.+2
13550 XWD RES+CLSIDX,61
13555 ASCIZ/GEQ/
13560
13565 SYM277: XWD SYM276,SYM260
13570 2
13575 POINT 7,.+2
13580 XWD RES+CLSIDX,141
13585 ASCIZ/DO/
13590
13595 SYM278: XWD SYM277,SYM277
13600 3
13605 POINT 7,.+2
13610 XWD RES+CLSIDX,165
13615 ASCIZ/CVN/
13620
13625 SYM279: XWD SYM278,SYM271
13630 4
13635 POINT 7,.+2
13640 XWD RES+CLSIDX,315
13645 ASCIZ/ENDC/
13650
13655 SYM280: XWD SYM279,SYM274
13660 3
13665 POINT 7,.+2
13670 XWD RES+CLSIDX,50
13675 ASCIZ/ROT/
13680
13685 SYM281: XWD SYM280,SYM270
13690 11
13695 POINT 7,.+2
13700 XWD RES+CLSIDX,30
13705 ASCIZ/REFERENCE/
13710
13715 SYM282: XWD SYM281,SYM281
13720 11
13725 POINT 7,.+2
13730 XWD RES+CLSIDX,117
13735 ASCIZ/PROCESSES/
13740
13745 SYM283: XWD SYM282,SYM201
13750 3
13755 POINT 7,.+2
13760 XWD RES+CLSIDX,254
13765 ASCIZ/IFC/
13770
13775 SYM284: XWD SYM283,SYM262
13780 3
13785 POINT 7,.+2
13790 XWD RES+CLSIDX,232
13795 ASCIZ/NOT/
13800
13805 SYM285: XWD SYM284,SYM264
13810 5
13815 POINT 7,.+2
13820 XWD RES+CLSIDX,314
13825 ASCIZ/ELSEC/
13830
13835 SYM286: XWD SYM285,SYM275
13840 4
13845 POINT 7,.+2
13850 XWD RES+CLSIDX,151
13855 ASCIZ/FAIL/
13860
13865 SYM287: XWD SYM286,SYM279
13870 3
13875 POINT 7,.+2
13880 XWD RES+CLSIDX,52
13885 ASCIZ/MOD/
13890
13895 SYM288: XWD SYM287,SYM285
13900 4
13905 POINT 7,.+2
13910 XWD RES+CLSIDX,362
13915 ASCIZ/CVMS/
13920
13925 SYM289: XWD SYM288,SYM287
13930 4
13935 POINT 7,.+2
13940 XWD RES+CLSIDX,363
13945 ASCIZ/POLL/
13950
13955 SYM290: XWD SYM289,SYM250
13960 6
13965 POINT 7,.+2
13970 XWD RES+CLSIDX,156
13975 ASCIZ/BEFORE/
13980
13985 SYM291: XWD SYM290,SYM278
13990 5
13995 POINT 7,.+2
14000 XWD RES+CLSIDX,31
14005 ASCIZ/VALUE/
14010
14015 SYM292: XWD SYM291,SYM283
14020 12
14025 POINT 7,.+2
14030 XWD RES+CLSIDX,364
14035 ASCIZ/DEPENDENTS/
14040
14045 SYM293: XWD SYM292,SYM289
14050 7
14055 POINT 7,.+2
14060 XWD RES+CLSIDX,27
14065 ASCIZ/MESSAGE/
14070
14075 SYM294: XWD SYM293,SYM292
14080 14
14085 POINT 7,.+2
14090 XWD RES+CLSIDX,101
14095 ASCIZ/STRING_SPACE/
14100
14105 SYM295: XWD SYM294,SYM280
14110 5
14115 POINT 7,.+2
14120 XWD RES+CLSIDX,322
14125 ASCIZ/LISTC/
14130
14135 SYM296: XWD SYM295,SYM286
14140 3
14145 POINT 7,.+2
14150 XWD RES+CLSIDX,174
14155 ASCIZ/COP/
14160
14165 SYM297: XWD SYM296,SYM284
14170 10
14175 POINT 7,.+2
14180 XWD RES+CLSIDX,365
14185 ASCIZ/CONTINUE/
14190
14195 SYM298: XWD SYM297,SYM282
14200 3
14205 POINT 7,.+2
14210 XWD RES+CLSIDX,70
14215 ASCIZ/LET/
14220
14225 SYM299: XWD SYM298,SYM297
14230 2
14235 POINT 7,.+2
14240 XWD RES+CLSIDX,366
14245 ASCIZ/GO/
14250
14255 SYM300: XWD SYM299,SYM294
14260 10
14265 POINT 7,.+2
14270 XWD RES+CLSIDX,367
14275 ASCIZ/RESERVED/
14280
14285 SYM301: XWD SYM300,SYM276
14290 6
14295 POINT 7,.+2
14300 XWD RES+CLSIDX,302
14305 ASCIZ/ASSIGN/
14310
14315 SYM302: XWD SYM301,SYM300
14320 13
14325 POINT 7,.+2
14330 XWD RES+CLSIDX,107
14335 ASCIZ/SOURCE_FILE/
14340
14345 SYM303: XWD SYM302,SYM298
14350 4
14355 POINT 7,.+2
14360 XWD RES+CLSIDX,370
14365 ASCIZ/SUCH/
14370
14375 SYM304: XWD SYM303,SYM303
14380 7
14385 POINT 7,.+2
14390 XWD RES+CLSIDX,66
14395 ASCIZ/REQUIRE/
14400
14405 SYM305: XWD SYM304,SYM293
14410 5
14415 POINT 7,.+2
14420 XWD RES+CLSIDX,371
14425 ASCIZ/LISTO/
14430
14435 SYM306: XWD SYM305,SYM288
14440 7
14445 POINT 7,.+2
14450 XWD RES+CLSIDX,21
14455 ASCIZ/FORTRAN/
14460
14465 SYM307: XWD SYM306,SYM306
14470 7
14475 POINT 7,.+2
14480 XWD RES+CLSIDX,2
14485 ASCIZ/ITEMVAR/
14490 SYM307
14495 ↑RESEND:
14500
14505
14510
14515
14520 ↑MBUCK: ;INITIALIZED BUCKET
14525 XWD SYM304,SYM302
14530 XWD SYM301,SYM272
14535 XWD SYM290,SYM299
14540 XWD SYM261,SYM295
14545 XWD SYM246,SYM305
14550 XWD SYM291,SYM307
14555 XWD SYM296,0
14560 BEND RESTAB