Trailing-Edge
-
PDP-10 Archives
-
BB-Z759A-SM
-
cobol-source/p.mac
There are 20 other files named p.mac in the archive. Click here to see a list.
; UPD ID= 1449 on 11/30/83 at 11:47 AM by HOFFMAN
UNIVERSAL P FOR COBOL
SUBTTL PARAMETERS FOR COBOL AL BLACKINGTON/CAM
SEARCH COPYRT
SALL
COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
;TRANSFERRED.
;
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
;EDITS
;NAME DATE COMMENTS
;JEH 18-Mar-82 [1345] Trap illegal UUO's on TOPS-10.
;V12B****************
;DAW 5-Nov-80 [1070] FIX MOVE CORRESPONDING OF ITEMS WITH SUBSCRIPTS.
;DMN 1-FEB-80 [762] IMPLEMENT AND USE D. P. FLOATING POINT LITERALS
SEARCH INTERM
.DIRECTIVE .NOBIN
%%P==5 ;EDIT NUMBER OF P.MAC ITSELF
; TO ASSURE THAT ALL ARE COMPILED WITH THE SAME VERSION OF P.MAC
%HISEG==400000 ;ORIGIN OF HIGH SEGMENT
ANS82==:ANS82
DBMS==:DBMS
DBMS6==:DBMS6
DEBUG==:DEBUG
MCS==:MCS
MPWCEX==:MPWCEX
ONESEG==:ONESEG
TOPS20==:TOPS20
XPNTST==:XPNTST
SWSET%==SWSET% ;ASSEMBLY SWITCH WORD
;ADDITIONAL FEATURE TEST FLAGS THAT CAN BE SET BY COBOL SYNTAX
;THESE USED TO BE FEATURE TEST SWITCHES SET OFF BE DEFAULT
SW.A74==SW.A74 ;ANS-74 SYNTAX WANTED
SW.A82==SW.A82 ;ANS-82 SYNTAX WANTED
SW.STB==SW.STB ;SUPPRESS TRAILING BLANKS ON WRITE
;ACCUMULATORS
SW=0 ;SWITCHES
LN=1 ;ASSIGNED SOURCE LINE NUMBER
CP=2 ;CHARACTER POSITION WITHIN SOURCE LINE
DT=3 ;ADDRESS OF A TABLE ENTRY
CH=4 ;I/O CHARACTER
DW==CH ;DIAGNOSTIC WORD
W1=6 ;FIRST OUTPUT WORD FROM I/O
W2=7 ;SECOND OUTPUT WORD FROM I/O
TE=12 ;TEMP
TD=13 ;TEMP
TC=14 ;TEMP
TB=15 ;TEMP
TA=16 ;TEMP
PP=17 ;PUSH-DOWN POINTER
IFN TOPS20,<
T1==1 ;ACCS FOR JSYS CALLS
T2==2
T3==3
>
;ACCUMULATORS USED BY PHASE A
DA==LN ;ADDRESS OF A DEVICE TABLE
DC==CP ;A DEVICE CHANNEL NUMBER
I0==5 ;UUO TO BE EXECUTED
I1==6 ;UUO PARAMETER
I2==I1+1 ;UUO PARAMETER
I3==I2+1 ;UUO PARAMETER
I4==I3+1 ;UUO PARAMETER
;ACCUMULATORS USED BY "GET SOURCE" ROUTINES
CT=10 ;CHARACTER COUNTER IN "GETWRD"; TYPE CODE FROM "GETITM"
LC=11 ;LITERAL CHARACTER COUNTER IN "GETWRD"
PA==TA ;BYTE POINTER USED IN "GETWRD"
PB==TB ;BYTE POINTER USED IN "GETWRD"
;ACCUMULATORS USED BY PHASES B, C, D
NODPTR==3 ;INTEGRITY GUARANTEED
SAVPTR==5 ;INTEGRITY GUARANTEED
TYPE==10 ;GETITM OUTPUT TYPE CODE
NODE==TB
NSONS==TC
SON==TD
SONADR==TE
;ACCUMULATORS USED BY PHASE E
EACA=DT
EACB=5
EACC=10
EACD=11
;ACCUMULATORS USED DURING PHASE G
OP=5 ;POINTS TO AN ENTRY IN THE OP-TABLE
RB=CP ;BYTE POINTER TO NEXT PLACE TO PUT RELOCATION BITS
GP=LN ;IOWD TO NEXT LOCATION TO STASH A BINARY OUTPUT WORD
PC=11 ;PROGRAM COUNTER
;VARIOUS COMPILER PARAMETERS
IFE ANS82,<
MAXSUB==3 ;MAXIMUM NUMBER OF SUBSCRIPTS ALLOWED
>
IFN ANS82,<
MAXSUB==^D48 ;MAXIMUM NUMBER OF SUBSCRIPTS ALLOWED
>
OPNSIZ==2 ;SIZE OF AN OPERAND IN EOPTAB (# WORDS)
OPNMAX==OPNSIZ+<OPNSIZ*MAXSUB*2> ;MAX SIZE OF OPERAND AND SUBSCRIPTS
IFE ANS82,<
MAXLIT==^D120 ;Maximum size of non-numeric literal
MAXWLT==MAXLIT/5 ;Size of maximum literal in words
>
IFN ANS82,<
MAXLIT==^D256 ;Maximum size of non-numeric literal
MAXWLT==MAXLIT/5+1 ;Size of maximum literal in words
MXLT82==^D160 ;Maximum size of non-numeric literal in ANS-82
MXLT74==^D120 ;Maximum size of non-numeric literal in ANS-74
>
MXPERF==3 ;Maximum number of perform varying's allowed
;I/O CHANNEL NUMBERS
TTY==1 ;USER'S CONSOLE
SRC==2 ;SOURCE
LST==3 ;LISTING
BIN==4 ;BINARY
LIB==5 ;LIBRARY FOR COPY VERB
NAM==6 ;NAMFIL
ERA==7 ;ERAFIL
GEN==10 ;GENFIL
CPY==11 ;CPYFIL
AS1==12 ;AS1FIL
AS2==13 ;AS2FIL
AS3==14 ;AS3FIL
LIT==15 ;LITFIL
CRF==16 ;CRFFIL
FSC==NAM ;FIRST SCRATCH CHANNEL
LSC==CRF ;LAST SCRATCH CHANNEL
ASY==AS1
COM==17 ;COMMAND FILE ON DISK
SF1==SRC ;SCRATCH FILE FOR CREF SORT
SF2==BIN ;SCRATCH FILE FOR CREF SORT
SF3==LIB ;SCRATCH FILE FOR CREF SORT
;[%316] THE DBMS CHANNELS (DB NAMES REFFED IN COBOLD)
IFN DBMS,<
DBCHAN==0 ;DBMS CHANNEL!!!
DBCHN2==1 ;SECOND DBMS CHANNEL
SKECHN==0 ;[%316] SCHEMA CHANNEL (INPUT)
RELCHN==1 ;[%316] FILE THAT GETS (ASCII) PROCED. CODE
VOKCHN==AS3 ;[%316] FOR DCL'S
>
;TOPS-20 I/O definitions
IFN TOPS20,<
;I/O files used by the compiler
;IOLIST (A,B,C,D,E) is a macro that takes the following args
;
; A is the letter mnemonic for file
; B is the buffer size in words
; C is the OPENF% byte size
; D is the LDB/DPB byte size
; E is the temp file flag (if non-zero)
DEFINE IOFILE,<
IOLIST SRC,200,^D36,7,0
IOLIST LST,200,7,7,0
IOLIST BIN,200,^D36,^D36,0
IOLIST LIB,200,^D36,7,0
IOLIST NAM,200,^D36,^D36,1
IOLIST ERA,200,^D36,^D36,1
IOLIST GEN,200,^D36,^D36,1
IOLIST CPY,200,^D36,7,1
IOLIST AS1,200,^D36,^D36,1
IOLIST AS2,200,^D36,^D36,1
IOLIST AS3,200,^D36,^D36,1
IOLIST LIT,0,^D36,^D36,1
IOLIST CRF,200,^D36,^D36,1
IOLIST SF1,200,^D36,^D36,1
IOLIST SF2,200,^D36,^D36,1
IOLIST SF3,200,^D36,^D36,1
IOLIST DMP,200,7,7
IFN DBMS,<
IOLIST DBC,200,7,7,1
IOLIST DBD,200,7,7,1
>>
>
;UUO'S USED
$RESET==0 ;RESET
$DEVCH==4 ;DEVCHR
$WAIT==10 ;WAIT FOR I/O
$CORE==11 ;CORE
$EXIT==12 ;EXIT
IFE TOPS20,<
$CLEAR==13 ;UTPCLR
>
$DATE==14 ;DATE
$APREN==16 ;APRENB
$TIME==23 ;MSTIME
$RTIME==27 ;RUNTIM
$PJOB==30 ;PJOB
$RUN==35 ;RUN
$GTSEG==40 ;GETSEG
$TMPCR==44 ;TMPCOR
IFE TOPS20,<
ER.MSG==1B0 ;[1345] NO MONITOR MESSAGE
ER.EIJ==1B29 ;[1345] ERROR IN JOB
>
;ASCII CONTROL CHARACTERS
$HT==11
$LF==12
$VT==13
$FF==14
$CR==15
$DLE==20
$DC1==21
$DC2==22
$DC3==23
$DC4==24
$CZ==32
$ALT==33 ;ALTMODE
$QT==42 ;QUOTE
;MONITOR COMMUNICATION
$DSK==(1B1) ;DEVICE IS A DISK
$CDR==(1B2) ;DEVICE IS A CARD-READER
$LPT==(1B3) ;DEVICE IS A LINE-PRINTER
$CONSL==(1B5) ;DEVICE IS A CONSOLE
$DTA==(1B11) ;DEVICE IS A DEC-TAPE
$AVAIL==(1B12) ;DEVICE IS AVAILABLE
$MTA==(1B13) ;DEVICE IS A MAG-TAPE
$TTY==(1B14) ;DEVICE IS A TTY
$DIREC==(1B15) ;DEVICE HAS A DIRECTORY
$IN==(1B16) ;DEVICE CAN DO INPUT
$OUT==(1B17) ;DEVICE CAN DO OUTPUT
$BIN==1B23 ;DEVICE CAN WRITE BINARY
$REW==1 ;REWIND MTA
$ERAS==740000 ;DEVICE ERROR FLAGS
$EOT==2000 ;END OF MAG-TAPE
$PPOVF==200000 ;ENABLE PUSH-DOWN OVERFLOW TRAP
$ILMEM==20000 ;ENABLE ILLEGAL MEMORY REFERENCE TRAP
$NONEX==10000 ;ENABLE NON-EXISTENT MEMORY TRAP
$APRF==$PPOVF!$ILMEM!$NONEX
$CLS40==40 ;CLOSE DISCARDING NEW FILE, KEEPING OLD
;FLAGS SET IN ACCUMULATOR "SW"
FTERA==1B0 ;TYPE ERRORS ON CONSOLE
FCOPY==1B1 ;"COPY REPLACEMENT" IN PROGRESS
FNOLST==1B2 ;NO LISTING
FRLIB==1B3 ;WE ARE READING LIBRARY FILE
FOBJEC==1B4 ;LIST OBJECT CODE IF 0
FFATAL==1B5 ;THERE IS A FATAL ERROR
FMAP==1B6 ;MAPS REQUESTED
FEOF==1B7 ;END OF SOURCE
FESRC==1B8 ;NO MORE SOURCE FILES IN THIS COMMAND
FECOM==1B9 ;END OF COMMAND FILE
FSYNER==1B10 ;ERROR OCCURRED IN SYNTAX
FECOPY==1B11 ;FINISH UP COPY FILE
FREENT==1B12 ;OBJECT PROGRAM IS TO BE RE-ENTRANT
FSEQ==1B13 ;SOURCE IS SEQUENCED
FNOCPY==1B14 ;DO NOT PUT OUT CPYFIL CHARACTER
FDSKC==1B15 ;COMMANDS TAKEN FROM DISK
FDEBUG==1B16 ;ACTIVATE "EXHIBIT"
FNDTRC==1B16 ;TRACE SYNTAX NODES
FLTTY==1B17 ;LISTING FILE IS TTY
;BITS IN RH USED BY COMMAND SCANNER
FCOMCH==1B18 ;REGET A COMMAND CHARACTER
FCOMWD==1B19 ;REGET A COMMAND WORD
FHELP==1B20 ;TYPE HELP MESSAGE
;BITS IN RH OF "SW" USED BY "GET SOURCE" ROUTINES
FREGCH==1B18 ;REGET PREVIOUS SOURCE CHARACTER
FREGWD==1B19 ;REGET PREVIOUS SOURCE WORD
FGTPER==1B20 ;GETWRD RETURNS A PERIOD
FLETTR==1B21 ;WORD CONTAINS A NON-DIGIT
FGTMIN==1B22 ;GETWRD RETURNS A MINUS OR HYPHEN
FNCOFF==1B23 ;TURNED OFF FNOCPY SWITCH
FRTST==1B24 ;MAKING TEST FOR REPLACEMENT MATCH
FARITH==1B25 ;ARITHMETIC EXPRESSIONS ARE LEGAL
FALIT==1B26 ;WE ARE PROCESSING AN ALPHA LITERAL
FPERWD==1B27 ;RETURN A NON-EXISTENT PERIOD
FNEEDS==1B28 ;A SPACE IS REQUIRED ON SOURCE
FGETST==FPERWD!FREGWD!FGTPER!FGTMIN
;BITS IN RIGHT-HALF OF "SW" USED BY ID&ED SCANS
FOBJCP==1B31 ;OBJECT-COMPUTER PARAGRAPH SEEN
FOPT==1B32 ;THIS FILE IS OPTIONAL
FSAME==1B33 ;PARSING A "SAME RECORD AREA"
FSTAT==1B34 ;PARSING A "SWITCH ON STATUS"
FSPNAM==1B35 ;SPECIAL-NAME PARAGRAPH ENCOUNTERED
;BITS IN RIGHT-HALF OF "SW" USED BY DD SCAN
FFILSC==1B29 ;CURRENTLY PROCESSING FILE SECTION
ELITEM==1B30 ;ALLOCATING AN ELEMENTARY ITEM
CONVRT==ELITEM
FSIGN==1B30 ;PICTURE HAS A SIGN
FFLOAT==1B31 ;PICTURE CONTAINS FLOATING
FEDIT==1B32 ;PICTURE HAS EDITING SYMBOLS
FBWZ==1B33 ;PICTURE HAS FLOATING OR SUPPRESSION AFTER POINT
;THE FOLLOWING TWO FLAGS MUST BE IN 34&35
FCLAS1==1B34 ;ITEM HAS NUMERIC CHARACTERS
FCLAS2==1B35 ;ITEM HAS ALPHABETIC CHARACTERS
;FLAGS USED IN SWITCH SCANNING
FL.LIB==1 ;FILE IS A LIBRARY
FL.REW==2 ;DEVICE NEEDS REWINDING
IFE TOPS20,<
FL.ZRO==4 ;DIRECTORY NEEDS CLEARING
>
;BITS IN RIGHT-HALF OF "SW" USED BY PD SCAN
FNOSUB==1B31 ;NO SUBSCRIPTS ALLOWED
FEXPR==1B32 ;CURRENTLY PROCESSING AN EXPRESSION
UNCONT==1B33 ;LAST STATEMENT WAS AN UNCONDITIONAL TRANSFER
FNOTF==1B34 ;"NOT" FLAG FOR CONDITIONALS
INDECL==1B35 ;CURRENTLY INSIDE DECLARATIVES
;BITS IN RIGHT-HALF OF "SW" USED BY CODE GENERATOR
FAS3==1B18 ;WE ARE GENERATING CODE FOR A NON-RESIDENT SECTION
FUUOIC==1B19 ;UUO TO BE CONVERTED HAS AN INCREMENT FOLLOWING
FADJDV==1B20 ;SHIFT DIVIDE OPERANDS TO MATCH RESULT
FBIGCV==1B21 ;CONVERT TO FLOATING POINT IF NUMBER TOO BIG
FSZERA==1B22 ;SIZE ERROR
FROUND==1B23 ;ROUND THE RESULT
FAINAC==1B24 ;"A" IS CURRENTLY IN THE AC'S
FSDAT==1B25 ;SUBSCRIPT HAS OTHER THAN NUMERIC LITERALS
FALWY0==1B26 ;ACCUMULATOR CONTAINS ZEROES
FASIGN==1B27 ;"A" OPERAND IS SIGNED
FBSIGN==1B28 ;"B" OPERAND IS SIGNED
FANUM==1B29 ;"A" OPERAND IS NUMERIC
FBNUM==1B30 ;"B" OPERAND IS NUMERIC
FASUB==1B31 ;"A" OPERAND IS SUBSCRIPTED
FBSUB==1B32 ;"B" OPERAND IS SUBSCRIPTED
FLNEG==1B33 ;LITERAL IS NEGATIVE
FLITDP==1B34 ;LITERAL HAS A DECIMAL POINT
FERROR==1B35 ;A FATAL ERROR HAS OCCURRED
FEOFF1==377777 ;FLAGS TURNED OFF AT START OF EACH GENERATOR
FEOFF2==FALWY0!FLNEG!FLITDP!FERROR
;BITS IN RIGHT-HALF OF "SW" USED BY LISTING PHASE
FERALN==1B18 ;CURRENT LINE HAS DIAGNOSTICS
FLWARN==1B19 ;WE ARE PUTTING OUT WARNING DIAGS AT END
;BITS IN RIGHT-HALF OF "SW" USED BY ASSEMBLER
FASPAR==1B18 ;A PARAGRAPH NAME HAS BEEN PRINTED FOR CURRENT LOCATION
FASSEG==1B19 ;CURRENTLY PROCESSING NON-RESIDENT SEGMENT
FASEXT==1B21 ;CURRENTLY LISTING AN EXTERNAL-NAME
FGDEC==1B22 ;DECIMAL INCREMENTS ALLOWED
FRELOC==1B23 ;ASSEMBLING CODE FOR RELOCATABLE SECTION OF PROGRAM
FSRTIO==1B24 ;THERE ARE SOME CREF SORT FILES OPEN
FGNEG==1B25 ;NEGATIVE INCREMENT POSSIBLE
;FLAGS IN LEFT HALF OF "W1" DURING ASSEMBLY (WORD 1 OF ASYFIL)
ASINC==200000 ;INCREMENT WORD FOLLOWS OPERATOR
ASCASC==40000 ;ASCII CONSTANT
ASCSIX==20000 ;SIXBIT CONSTANT
ASCD1==10000 ;1-WORD DECIMAL CONSTANT
ASCD2==4000 ;2-WORD ASCII CONSTANT
ASCFLT==2000 ;FLOATING POINT CONSTANT
ASCOCT==1000 ;OCTAL CONSTANT
ASCEBC==400 ;EBCDIC CONSTANT.
ASCF2==200 ;[762] D. P. FLOATING POINT CONSTANT
ASCON==ASCASC!ASCSIX!ASCD1!ASCD2!ASCFLT!ASCOCT!ASCEBC!ASCF2 ;[762]
ASPARN==40000 ;MISCELLANEOUS IS PARAGRAPH OR SECTION NAME
ASTAGN==20000 ; " IS TAG NAME
ASREL==10000 ; " IS "RELOC"
ASENTN==4000 ; " IS ENTRY POINT
ASSMSC==2000 ; " IS A SPECIAL MISCELLANEOUS ITEM.
ASACS==1000 ; " IS ALTERNATE CODE SET
ASMACS==700000+ASACS ;PUT IN ASY FILE TO SIGNAL NEXT INST IS ALTERNATE
;FLAGS USED IN BITS 0-8 OF "W1" DURING "GETSRC"
GWNOT==1B18 ;NOT IN NAMTAB
GWLIT==1B19 ;DATUM IS A LITERAL
GWRESV==1B20 ;DATUM IS A RESERVED WORD
GWSIGN==1B21 ;LITERAL HAS A LEADING SIGN
GWDP==1B22 ;LITERAL HAS A DECIMAL POINT
GWNLIT==1B23 ;LITERAL IS NUMERIC
GWHYF==1B24 ;WORD HAS A HYPHEN
GWALL==1B25 ;ALL (SET OUTSIDE OF GETWRD)
GWFIGC==1B26 ;FIGURATIVE CONSTANT (SET OUTSIDE OF GETWRD)
GWASCI==1B20 ;LITERAL CONTAINS CHARACTER NOT IN SIXBIT RANGE
;FLAGS USED IN "W2" DURING "GETITM" AND "PUTCRF"
GWDEF==1B18 ;THIS IS A DEFINITION (LEFT-HALF)
;FLAGS IN LH OF "W2" DURING PD SCAN
GWFLO==1B18 ;THERE IS A FLOTAB ENTRY FOR THIS ITEM (SET OUTSIDE OF GETWRD)
;ACCUMULATORS FOR CODE GENERATION
AC0==0B30
AC1==1B30
AC2==2B30
AC3==3B30
AC4==4B30
AC5==5B30
AC6==6B30
AC7==7B30
AC10==10B30
AC11==11B30
AC12==12B30
AC13==13B30
AC14==14B30
AC15==15B30
AC16==16B30
AC17==17B30
SAC==AC12 ;DEFAULT AC FOR SUBSCRIPTING
SXR==12 ;INDEX USED FOR SUBSCRIPTING
KAC==AC2 ;ACCUMULATOR USED TO HOLD A FIG. CONST.
;MISC OPERATOR FLAGS FOR CODE GENERATOR (LEFT HF OF W1)
GWFL9==1B9
GWFL10==1B10
GWFL11==1B11
GWFL12==1B12
GWFL13==1B13
GWFL14==1B14
GWFL15==1B15
EVSSBT==1B9 ;Selection Subject flag for EVALUATE
EVTHRB==1B10 ;Selection object contained a 'THRU'
EVCDBT==1B11 ;Selection object is a condition-name
EVFABT==1B15 ;"False" flag for EVALUATE TRUE operator
EVSS1W==1 ;EVALUATE Selection Subject is one word long
EVSS2W==2 ;EVALUATE Selection Subject is two words long
;EVALUATE flag bits, in word EVALFL
EVIMPS==1B0 ;processing an imperative statement in EVALUATE
EVALF==1B1 ;in EVALUATE
EVOTHR==1B2 ;'OTHER' seen
EVALTF==1B3 ;processing TRUE/FALSE
EVTHRU==1B4 ;'THRU' seen
EVWHEN==1B5 ;'WHEN' seen
EVCND==1B6 ;processing a conditional
EVNOTF==1B7 ;'NOT' seen
EVNYSN==1B8 ;'ANY' seen
RFMLEN==1B9 ;Reference Modification - signifies length
RFMBTH==1B10 ;Reference Modification - length modifier follow
;ARG TYPES (AS OF FEB 1973 CALLING SEQUENCE)
ARG1WB==2B12 ;1-WORD BINARY
ARG2WB==11B12 ;2-WORD BINARY
ARG1FP==4B12 ;1-WORD FLOATING POINT (COMP-1)
ARGPAD==7B12 ;PROGRAM ADDRESS
ARG2FP==10B12 ;2-WORD FLOATING POINT (COMP-2)
ARGBSD==15B12 ;BYTE STRING DESCRIPTOR
ARGHWA==20B12 ;HALF-WORD ARRAY DESCRIPTOR
;FLAGS IN FIRST WORD OF NAMTAB ENTRY
NAMRSV==1B2
;FLAGS IN LH OF FIRST WORD OF LITERAL OPERAND FOR GENFIL
GNLIT==1B19
GNNUM==1B20
GNFIGC==1B21
GNTODY==1B26
GNTALY==1B27
GNFCS==1B28
GNFCZ==1B29
GNFCQ==1B30
GNFCHV==1B31
GNFCLV==1B32
GNALL==1B33
GNFCFL==GNTODY!GNTALY!GNFCS!GNFCZ!GNFCQ!GNFCHV!GNFCLV
;INDEX FOR DATE, DAY, TIME, DAY-OF-WEEK - ANS-74 REPLACEMENT FOR TODAY
GNDOW== 0B25
GNDATE==1B25
GNDAY== 2B25
GNTIME==3B25
;INDEXES FOR FIGURATIVE CONSTANTS - STORED IN EFLAGX IN PHASE E
IXTODY==0 ;TODAY (NOT USED)
IXSPAC==1 ;SPACE
IXZERO==2 ;ZERO
IXQUOT==3 ;QUOTE
IXHIV==4 ;HIGH VALUE
IXLOWV==5 ;LOW VALUE
IXDATE==6 ;DATE
IXDAY==7 ;DAY
IXTIME==10 ;TIME
IXDOW==11 ;DAY-OF-WEEK
IXSYCH==12 ;SYMBOLIC CHARACTER
GNOPNM==1B<^D18+7> ;NON-LITERAL IS NUMERIC
GNNOTD==1B<^D18+5> ;ITEM IS NOT A DATA-NAME (LH OF SECOND WORD)
GNROUN==1B19 ;ROUND RESULT (IN LH OF WORD 2 OF OPERAND)
GNSERA==1B28 ;SIZE ERROR (IN LH OF WORD 1 OF OPERATOR)
;GENFIL OPERAND FLAGS
LKSFLG==1B9 ;OPERAND IS IN LINKAGE SECTION
GNEVSB==1B15 ;OPERAND IS EVAL. SEL SUBJ WH/ HAS BEEN RANGE TESTED
GNREFM==1B14 ;OPERAND IS REFERENCE MODIFIED
;VARIOUS OTHER FLAGS
DWFATL==1B25 ;FATAL FLAG IN DIAG WORD
DWIMBD==200000 ;DO NOT IMBED DIAGNOSTIC MESSAGE IN LISTING
;BITS SET IN SW FOR RUN-TIME USE BY GD.MAC (CVDBT. ETC)
SW.SGN==(1B1) ;SIGNED
SW.2WC==(1B2) ;2-WORD COMP
;GENERAL MACRO CALLS
;GENERAL "SW" TESTER
DEFINE SWTEST (A,B),<
IFLE A-777777,<TR'B SW,A>
IFG A-777777,<
IFE A&777777,<TL'B SW,(A)>
IFN A&777777,<TD'B SW,[A]>
>
>
DEFINE SWON (A),<SWTEST A,O> ;TURN ON FLAGS
DEFINE SWOFF (A),<SWTEST A,Z> ;TURN OFF FLAGS
DEFINE TSWC (A),<SWTEST A,C> ;COMPLEMENT FLAG
DEFINE TSWF (A),<SWTEST A,NE> ;TEST FLAG AND SKIP IF OFF
DEFINE TSWT (A),<SWTEST A,NN> ;TEST FLAG AND SKIP IF ON
DEFINE TSWFZ (A),<SWTEST A,ZE> ;CLEAR FLAG, SKIP IF IT WAS OFF
DEFINE TSWTZ (A),<SWTEST A,ZN> ;CLEAR FLAG, SKIP IF IT WAS ON
DEFINE TSWFS (A),<SWTEST A,OE> ;SET FLAG, SKIP IF IT WAS OFF
DEFINE TSWTS (A),<SWTEST A,ON> ;SET FLAG, SKIP IF IT WAS ON
DEFINE TSWFC (A),<SWTEST A,CE> ;COMPLEMENT FLAG, SKIP IF IT WAS OFF
DEFINE TSWTC (A),<SWTEST A,CN> ;COMPLEMENT FLAG, SKIP IF IT WAS ON
DEFINE SWONS (A),<SWTEST A,OA> ;SET FLAG AND ALWAYS SKIP
DEFINE SWOFFS (A),<SWTEST A,ZA> ;CLEAR FLAG AND ALWAYS SKIP
IFN TOPS20,<
DEFINE OUTSTR(TEXT)<
PUSH PP,T1
HRROI T1,TEXT
PSOUT%
POP PP,T1
>
DEFINE SETFAZ (X),<
INTERNAL COBOL'X
ZZ%==0 ;;INITIALIZE VARIABLE
IFE ONESEG,<IFDIF <X><B><IFDIF <X><G><ZZ%==1>>> ;;WE NEED IT FOR ALL BUT PHASES B & G
IFN ONESEG,<IFIDN <X><A><ZZ%==1>> ;;WE ONLY NEED IT FOR PHASE A
IFN ZZ%,<IFDIF <X><A>,<PORTAL .+1>> ;;ENABLE CONCEALED MODE
MOVEI TA,"'X'"
MOVEM TA,PHASEN##
IFN TOPS20,<IFDIF <X><A>,<MOVE PP,PPOINT##>> ;;ALREADY SET UP IN COBSCN FOR PHASE A
IFDIF <X><O>< EXTERNAL PURE'X> ;;THERE IS NO PUREO
IFN ZZ%,<
IFE ONESEG,<
MOVEI TA,KILL##
MOVEM TA,WEDIED##+1
>
IFE TOPS20,<
MOVEI TA,UUOKIL## ;;[1345] POINT TO ARG BLOCK
MOVEM TA,.JBINT## ;;[1345]
DMOVE TA,[4,,UUOC1## ;;[1345] LENGTH,,RETURN
EXP ER.MSG!ER.EIJ] ;;[1345] NO MONITOR MESSAGE
DMOVEM TA,UUOKIL ;;[1345]
SETZM UUOKIL+2 ;;[1345] WILL HOLD PC
SETZM UUOKIL+3 ;;[1345] WILL HOLD CAUSE OF INTERUPT
>
MOVEI TA,REDO##
HRRM TA,.JBSA##
MOVEI TA,RESTRT##
HRRM TA,.JBREN##
MOVE TA,[PUSHJ PP,UUOCAL##]
MOVEM TA,.JB41##
IFE TOPS20,<
MOVEI TA,XPNPPL##
HRRM TA,.JBAPR##
MOVEI TA,$APRF
CALLI TA,$APREN
>
>
IF2,< PURGE ZZ%>
IFN DEBUG,<EXTERNAL %'X'TIME,%R'X'TIM
IFE TOPS20,<EXTERN DDT>
IFDIF <X><A><IFDIF <X><G><IFDIF <X><B><
IFE TOPS20,<
OUTSTR [ASCIZ "PHASE X
"]
>
IFN TOPS20,<
PUSH PP,T1
HRROI T1,[ASCIZ "PHASE X
"]
PSOUT%
POP PP,T1
>
>>>
IFE TOPS20,<
CALLI TA,$TIME
MOVEM TA,%'X'TIME
MOVEI TA,0
CALLI TA,$RTIME
MOVEM TA,%R'X'TIM
>
IFN TOPS20,<
MOVEI T1,.FHSLF ;Get runtime for this fork
RUNTM% ;Get runtime and current time
MOVEM T1,%R'X'TIM ;Save runtime
MOVEM T3,%'X'TIME ;Save current time
>
>>
DEFINE ENDFAZ (X),<
IFN DEBUG,<EXTERNAL CORESW,KILL,KILLF,%'X'TIME,%R'X'TIM
IFDIF <X><G><
IFE TOPS20,<
MOVEI TA,0
CALLI TA,$RTIME
MOVEM TA,%R'X'TIM+1
CALLI TA,$TIME
MOVEM TA,%'X'TIME+1
>
IFN TOPS20,<
MOVEI T1,.FHSLF ;Get runtime for this fork
RUNTM% ;Get runtime and current time
MOVEM T1,%R'X'TIM+1 ;Save runtime
MOVEM T3,%'X'TIME+1 ;Save current time
>
MOVE TA,CORESW
TLNE TA,%KILL'X
JRST KILL
TLNE TA,%KILF'X
JRST KILLF
>>
IFIDN <X><A>< JRST COBOLB##>
IFIDN <X><B>< JRST COBOLC##>
IFIDN <X><C>< JRST COBOLD##>
IFIDN <X><D>< JRST COBOLE##>
IFIDN <X><E><
SKIPE OPTSW##
JRST COBOLO##
JRST COBOLF##>
IFIDN <X><F>< JRST COBOLG##>
;;NOTE THAT THERE IS NO ENTRY FOR "G", THAT'S TAKEN CARE OF IN COBOLG
;;NOTE THAT THERE IS NO ENTRY FOR "O" -- TAKEN CARE OF IN COBOLO
>
;TABLE DEFINITIONS
;PARAMETER 1 - MNEMONIC FOR A TABLE
; 2 - INITIAL TABLE SIZE
; 3 - AMOUNT TO EXPAND, IF NECCESSARY
; 4 - NAME, FOR LISTING PURPOSES
; 5 - CODES FOR CLEANING TABLES AFTER PHASE D:
; 0 - LEAVE TABLE EMPTY
; 1 - THROW AWAY EMPTY WORDS
; 2 - LEAVE TABLE AS IS
; 6 - CODES FOR CLEANING TABLES AT START OF PHASE F
; SAME AS PARAMETER 5.
; 7 - IF TABLES IS TO BE EXPANDED IN DIFFERENT PLACES
; 0 - SOMETIMES
; 1 - ALWAYS
;EXPANDED IN COBOLA, CLEAND, IMPURE, SQUIRL, XPAND, COBOLK
;NOTE ALL NUMBERS ARE RADIX 10 WHEN EXPANDED
DEFINE TABLES,<
XLIST
TABSET NAM,900,0,NAMTAB,2,2,0
TABSET EOP,50,20,EOPTAB,2,0,0
TABSET SEC,200,10,SECTAB,2,2,0
TABSET FIL,150,50,FILTAB,1,2,1
TABSET DAT,800,600,DATAB,1,2,1
TABSET CON,50,100,CONTAB,1,2,1
TABSET LIT,500,200,LITAB,2,2,1
TABSET PRO,200,150,PROTAB,1,2,1
TABSET EXT,600,50,EXTAB,2,1,1
TABSET VAL,100,200,VALTAB,1,0,1
TABSET MNE,40,10,MNETAB,1,2,1
TABSET FLO,200,200,FLOTAB,1,2,1
TABSET CPY,30,30,CPYTAB,0,0,1
TABSET HLD,50,20,HLDTAB,1,0,1
TABSET RPW,2,200,RPWTAB,1,0,1
TABSET RCO,2,100,RCOTAB,1,0,1
TABSET USE,2,10,USETAB,1,0,1
IFN DBMS,<
TABSET DBD,600,200,DBDTAB,0,0,1
>
IFN MCS,<
TABSET CD,200,100,CDTAB,2,2,1
>
TABSET AKT,1,20,AKTTAB,2,2,1
TABSET DEB,2,10,DEBTAB,2,2,1
TABSET ALT,20,20,ALTAB,2,2,0
TABSET REN,2,10,RENTAB,1,0,1
TABSET PRG,10,10,PRGTAB,2,2,1
TABSET TAG,300,100,TAGTAB,2,1,0
TABSET RES,20,10,RESTAB,2,0,0
TABSET TEM,12,10,TEMTAB,0,0,1
TABSET CRF,2,1000,CRFTAB,0,0,0
LIST
>
;SYNTAX NODE MACRO
;USED TO DEFINE NODES IN THE SYNTAX TREE
DEFINE $ (NAME,ACTION,ITMTYP,PD,AMARGN,SONS)<
IFE PD,<
IFDIF <ACTION><0>,<IFNDEF ACTION,<EXTERN ACTION>>
>
NS.==-1
IRP SONS<NS.==NS.+1>
IFE NS.,<
IFIDN <SONS><0><NS.==-1>
>
INTER. NAME
IFN DEBUG,<XLIST>
NAME': XWD ACTION,NS.*1B23+'PD'*1B24+'AMARGN'*1B25+'ITMTYP
XLIST
IFGE NS.,<BYTE (18)SONS>
LIST
>
DEFINE INTER.(NAME)<
INTERN NAME
IFN DEBUG,<SIXBIT /NAME/>
>
DEFINE SKPNAM<
IFN DEBUG,<JRST .+2>
>
;TABLE CODES
DEFINE TABSET (A,B,C,D,E,F,G)<
IFN G,<CD.'A==ZZ
ZZ==ZZ+1>
>
ZZ==0
TABLES
CD.TAG==5
;TABLE ENTRY SIZES
SZ.FIL==^D29 ;SIZE OF FIXED PORTION OF FILE TABLE DURING COMPILATION.
SZ.DAT==7
SZ.CON==2
SZ.LIT==1
SZ.PRO==5
SZ.PR6==4 ;COBOL-68 TABLE SIZE
SZ.EXT==2
SZ.VAL==777777
SZ.MNE==2
SZ.FLO==2
SZ.OUS==^D20 ;SIZE OF USES TABLE OUTPUT
SZ.MSK==4
SZ.CPY==2
SZ.HLD==2
SZ.RPU==1 ;SIZE OF RPWTAB ENTRY FOR UPON ENTRY
SZ.RPD==14 ;SIZE OF RPWTAB ENTRY FOR EACH "RD"
SZ.RCO==4 ;SIZE OF REPORT GROUP 'CONTROL' ENTRIES (CONTROLS ARE...)
SZ.RPG==6+^D14 ;SIZE OF RPWTAB ENTRY FOR REPORT GROUP
;14 WORDS FOR POSSIBLY SUBSCRIPTED SOURCE ITEM
.RWSRC==7 ;OFFSET IN REPORT GROUP ENTRY OF SOURCE ITEM
SZ.DOC==2
SZ.USE==1
SZ.DBD==^D9 ;[%316] CHANGED SIZE
SZ.CD==^D9
SZ.TEM==1 ; [415] NORMALLY ONE WORD PER TEMTAB ENTRY
SZ.TM2==2 ; [415] TWO WORD TEMTAB ENTRY
SZ.AKT==2 ;SIZE OF ACTUAL KEY ENTRY
SZ.DEB==2
SZ.PRG==3
SZ.SEC==2
; FILTAB ENTRY CODES
;CODES FOR RECORDING MODE
%RM.6B==0 ;SIXBIT
%RM.BN==1 ;BINARY
%RM.7B==2 ;ASCII
%RM.EB==3 ;EBCDIC
%RM.SA==4 ;STANDARD (8 BIT) ASCII.
%%RM==7 ;NOT YET DECLARED
;CODES FOR RECORDING DENSITY
%RD.2==1 ;200 BPI
%RD.5==2 ;556 BPI
%RD.8==3 ;800 BPI
%RD.16==4 ;1600 BPI
%RD.62==5 ;6250 BPI
;CODES FOR RECORDING PARITY
%RP.OD==1 ;ODD
%RP.EV==2 ;EVEN
;CODES FOR TYPE OF LABELS
%LBL.O==0 ;OMITTED
%LBL.S==1 ;STANDARD
;%LBL.N==2 ;NON-STANDARD (obsolete)
%%LBL==3 ;NOT SPECIFIED
;CODES FOR ORGANIZATION
%ORG.S==0 ;SEQUENTIAL
%ORG.R==1 ;RELATIVE
%ORG.I==2 ;INDEXED SEQUENTIAL
%%ORG==3 ;NOT SPECIFIED
%ACC.S==0 ;SEQUENTIAL
%ACC.R==1 ;RELATIVE
%ACC.I==2 ;INDEXED SEQUENTIAL
%%ACC==3 ;NOT SPECIFIED
;CODES FOR ACCESS MODE
%FAM.U==0 ;NOT SPECIFIED (CHANGED TO %FAM.S IN CLEANC)
%FAM.S==1 ;SEQUENTIAL
%FAM.R==2 ;RANDOM
%FAM.D==3 ;DYNAMIC
%%FAM==3 ;MASK
;HLDTAB ENTRY-TYPE CODES
%HL.AK==1 ;ACTUAL KEY
%HL.VI==2 ;VALUE OF IDENTIFICATION
%HL.VD==3 ;VALUE OF DATE-WRITTEN
%HL.VP==4 ;VALUE OF PROJECT-PROGRAMMER
%HL.LL==5 ;LOW FILE-LIMIT
%HL.HL==6 ;HIGH FILE LIMIT
%HL.DP==7 ;'DEPENDING' FOR OCCURS
%HL.KY==10 ;'ASCENDING KEY' FOR OCCURS
%HL.SL==11 ;SUM IDENTIFIER (LH)
%HL.SR==12 ;SUM IDENTIFIER (RH)
%HL.UP==13 ;UPON DATA-NAME
%HL.SC==14 ;BUILD A SUM CTR FOR DATAB ITEM WITH THIS LINK
%HL.SY==15 ;SYMBOLIC KEY
%HL.RC==16 ;RECORD KEY
%HL.DY==17 ;'DESCENDING KEY' FOR OCCURS
%HL.IX==20 ;INDEX FOR DATAB ITEM
%HL.ER==21 ;DATA NAME WHICH OCCURED IN FILE STATUS CLAUSE.
%HL.GI==22 ; [315] GROUP INDICATE ITEM WITH VALUE CLAUSE
%HL.KA==23 ;ALTERNATE RECORD KEY
%HL.PR==24 ;VALUE OF PROTECTION CODE
;HLDTAB ENTRY FLAGS FOR TYPE OF PHASE-E ENTRY:
HE%RIN==1B0 ;READ..INTO OR RETURN..INTO
HE%VLR==1B1 ;READ WITH VARIABLE LENGTH RECORD
HE%DEB==1B2 ;DEBUGGING CODE
;HLDTAB OFFSETS FOR PHASE-E ENTRY:
.HEHDR==0 ;HEADER WORD
.HERIN==1 ;READ..INTO OPERAND
.HEVLR==.HERIN+OPNSIZ+OPNMAX
.HESIZ==.HEVLR+1 ;SIZE OF HLDTAB
.HEDEB==.HEVLR+1 ;DEBUGGING OPERAND
.HESIZ==.HEDEB+1 ;SIZE OF HLDTAB ENTRY
;USETAB TYPE CODES
%UT.IO==0 ;I-O ERROR
%UT.OP==1 ;OPEN ERROR
%UT.LB==2 ;LABEL PROCEDURE
%UT.RP==3 ;REPORT ITEM PROCEDURE
%UT.ES==4 ;ERROR-STATUS
%UT.DB==5 ;DEBUG PROCEDURE
;DEPTH OF NESTED IF'S
IF.DEP==^D24
;NESTING EVALUATE STATEMENTS
EV.SIZ==^D5 ;5 words needed for each EVALUATE verb
EV.STK==^D10 ;2 nestings allowed
EV.DEP==^D3 ;
;SYMBOLS FOR LEVEL NUMBERS USED IN PHASE C
LVL.01==01 ;LEVEL 01
LVL.10==^D10 ;LEVEL 10, HIGHEST LEGAL LEVEL IN FIPS LOW LEVEL
LVL.49==^D49 ;LEVEL 49
;THE FOLLOWING 2 ARE SPECIAL BECAUSE WE HAVE ONLY 6 BITS TO HOLD THE NUMBER IN
LVL.66==76 ;LEVEL 66
LVL.77==77 ;LEVEL 77
; DATTAB ENTRY CODES
;CODES FOR CLASS
%CL.AN==0 ;ALPHANUMERIC
%CL.AB==1 ;ALPHABETIC
%CL.NU==2 ;NUMERIC
%%CL==3 ;NOT SPECIFIED
;CODES FOR USAGE
%%US==0 ;NOT SPECIFIED
%US.D6==1 ;DISPLAY-6
%US.D7==2 ;DISPLAY-7
%US.EB==3 ;EBCDIC (DISPLAY-9)
%US.DS==3 ;HIGHEST DISPLAY USAGE
%US.1C==4 ;1-WORD COMP
%US.2C==5 ;2-WORD COMP
%US.C1==6 ;COMP-1
%US.IN==7 ;INDEX
%US.C3==10 ;COMP-3
%US.C2==11 ;COMP-2
;REPORT GROUP ENTRY CODES
;LINE CLAUSE CODES
%RG.NP==1 ;NEXT PAGE
%RG.LN==2 ;LINE NUMBER
%RG.PI==3 ;PLUS INTEGER
;TYPE CODES
%RG.RH==1 ;REPORT HEADING
%RG.PH==2 ;PAGE HEADING
%RG.CH==3 ;CONTROL HEADING
%RG.DE==4 ;DETAIL
%RG.CF==5 ;CONTROL FOOTING
%RG.PF==6 ;PAGE FOOTING
%RG.RF==7 ;REPORT FOOTING
;SOURCE CODES
%RG.SR==1 ;SOURCE
%RG.SM==2 ;SUM
%RG.VL==3 ;VALUE
RW.MX==3 ;MAXIMUM NUMBER OF LEVELS IN REPORT SECTION
;ALPHABET-NAME
%AN.AS==1B18 ;ASCII
%AN.S1==1B18 ;STANDARD-1
%AN.EB==1B19 ;EBCDIC
%AN.S2==1B20 ;STANDARD-2
;UUO'S
OPDEF EWARNW [1B8] ;PUSHJ TO ERROR ROUTINE
OPDEF EWARNJ [2B8] ;JRST TO ERROR ROUTINE
;[1070] OFFSETS IN CORRSP (FOR "MOVE CORRESPONDING" OR "ADD CORRESPONDING")
.CORLS==13 ;[1070] LEFT OPERAND SUBSCRIPT BLOCK STARTS
.CORRS==.CORLS+<MAXSUB*4>+1 ;[1070] RIGHT OPERAND SUBSCRIPT BLOCK STARTS
.CORXX==.CORRS+<MAXSUB*4>+1 ;[1070] START OF SOMETHING NEW (FUTURE EXPANSION)
.CORSZ==.CORXX+1 ;[1070] TOTAL SIZE OF CORRSP AREA
;PJRST IN LIEU OF PUSHJ/POPJ.
OPDEF PJRST [JRST]
OPDEF PJUMPN [JUMPN]
;KL-10 INSTRUCTIONS
OPDEF ADJBP [IBP]
;EXTENDED ADDRESSING
OPDEF IFIW [1B0] ;
;EXTENDED INSTRUCTION SET OP CODES
OPDEF EXTEND [123B8] ;EXTENDED INSTRUCTION
OPDEF CMPSL [001B8] ;COMPARE STRINGS, SKIP IF LESS
OPDEF CMPSE [002B8] ;COMPARE STRINGS, SKIP IF EQUAL
OPDEF CMPSLE [003B8] ;COMPARE STRINGS, SKIP IF LESS OR EQUAL
OPDEF CMPSGE [005B8] ;COMPARE STRINGS, SKIP IF GREATER OF EWQUAL
OPDEF CMPSN [006B8] ;COMPARE STRINGS, SKIP IF NOT EQUAL
OPDEF CMPSG [007B8] ;COMPARE STRINGS, SKIP IF GREATER
OPDEF EDIT [004B8] ;PROCESS STRING ACCORDING TO MINI-PROGRAM PATTERN
OPDEF CVTBO [010B8] ;CONVERT DECIMAL TO BINARY BY OFFSET
OPDEF CVTDBT [011B8] ;CONVERT DECIMAL TO BINARY BY TRANSLATION
OPDEF CVTBDO [012B8] ;CONVERT BINARY TO DECIMAL BY OFFSET
OPDEF CVTBDT [013B8] ;CONVERT BINARY TO DECIMAL BY TRANSLATION
OPDEF MOVSO [014B8] ;MOVE STRING WITH BYTE OFFSET
OPDEF MOVST [015B8] ;MOVE STRING WITH BYTE TRANSLATION
OPDEF MOVSLJ [016B8] ;LEFT JUSTIFIED
OPDEF MOVSRJ [017B8] ;RIGHT JUSTIFIED
;FLAGS IN PROTAB ENTRY
PTSECT==1B25 ;SECTION (0) OR PARAGRAPH (1)
PTEXIT==1B26 ;EXIT REQUIRED
PTDEF==1B27 ;ITEM IS DEFINED
PTALT==1B28 ;PARA IS ALTERABLE
PTRES==1B29 ;OBJECT OF AN ALTER IS IN CURRENT OR RESIDENT SEGMENT
PTNRES==1B30 ;OBJECT OF AN ALTER IS IN ANOTHER NON-RESIDENT SEGMENT
PTUSE==1B31 ;REFERENCED IN A USE PROCEDURE
PTDECL==1B32 ;DEFINED IN THE DECLARATIVES SECTION
PTMULD==1B33 ;PROCEDURE NAME IS MULTIPLY DEFINED
PTXFER==1B34 ;PROCEDURE ENDS WITH AN UNCONDITIONAL TRANSFER
;FLAGS USED IN LH OF WORD 2 OF MNETAB ENTRY
MTSW==400000 ;SWITCH
MTSON==200000 ;SWITCH ON STATUS
MTSOFF==100000 ;SWITCH OFF STATUS
MTCONS==040000 ;CONSOLE
MTCHAN==020000 ;CHANNEL
MTCODE==010000 ;CODE FOR RD ENTRY
MTALPA==004000 ;ALPHABET-NAME
MTSYMB==002000 ;SYMBOLIC CHARACTER
;FLAGS USED IN RH OF WORD 2 OF MNETAB ENTRY
MTSEBC==1B18 ;SYMBOLIC CHAR IN EBCDIC
;FLAGS USED IN RH OF WORD 3 OF MNETAB ENTRY
MTTHRU==1B18 ;THRU IN ALPHABET-NAME
MTALSO==1B19 ;ALSO IN ALPHABET-NAME
MTZERO==1B20 ;ZERO MARKER (TEMP) IN ALPHABET-NAME
;BITS IN LH OF WORD 6 OF FILTAB
FTINP==020000 ;THERE ARE INPUT OPENS FOR THIS FILE
FTOUTP==010000 ;THERE ARE OUTPUT OPENS FOR THIS FILE
FTIO==004000 ;THERE ARE INPUT-OUTPUT OPENS FOR THIS FILE
FTWADV==002000 ;THERE ARE "WRITE ADVANCING" STATEMENTS
FTVARL==000400 ;RECORDS ARE OF VARIABLE LENGTH
FTREOR==000200 ;RERUN ON END-OF-REEL
FTRCNT==000100 ;RERUN ON COUNT
FTDEF==000040 ;FD OR SD IS PRESENT FOR THIS FILE
FTOPT==000020 ;FILE IS OPTIONAL
FTARAN==000001 ;ACCESS MODE IS RANDOM
;BITS IN INPUT FLAG WORD FOR SUBSCRIPT ROUTINE
SSBYTP== 1B35 ;GENERATE A BYTE POINTER
SSADDR== 1B34 ;GENERATE AN ADDRESS
;FLAGS IN EXTAB FOR NON-RESIDENT SECTION EXTERNAL REFERENCES
NR.EXT==(1B0) ;EXTERNAL REQUEST
NR.IND==(1B1) ;NEEDS @ BIT ON
;BITS IN EFLAGA/B DURING CODE GENERATION
SEP.SN==(1B0) ;SEPARATE SIGN
LDN.SN==(1B1) ;LEADING SIGN
;FIPS-FLAGGER LEVELS
DEFINE FLAGAT (LEVEL)<
PUSHJ PP,TST.'LEVEL'##
>
%LV.0==0 ;NO INFORMATION
%LV.L==1 ;FIPS LOW LEVEL
%LV.LI==2 ;FIPS LOW-INTERMEDIATE LEVEL
%LV.HI==4 ;FIPS HIGH-INTERMEDIATE LEVEL
%LV.H==10 ;FIPS HIGH LEVEL
%LV.RP==20 ;REPORT WRITER
%LV.DB==40 ;DATA BASE
%LV.68==100 ;COBOL-68 LEFTOVER
%LV.IB==200 ;IBM COMPATIBILITY
%LV.VX==400 ;VAX COBOL EXTENSIONS
%LV.8==1000 ;COBOL-8x EXTENSIONS
%LV.NS==2000 ;NON-STANDARD EXTENSION
;TRACE CODE FLAGS (PHASE E AND COBDDT)
TC.DB==(1B3) ;DEBUGGING REQUIRED
TC.EP==(1B4) ;EXIT PROGRAM
TC.GB==(1B5) ;GOBACK
TC.PE==(1B7) ;PROGRAM ENTRY
TC.AE==(1B8) ;ALTERNATE ENTRY
;DEBUG PROCEDURE INDICES (PHASE E AND COBDDT)
DBP%SP==1 ;START PROGRAM
DBP%FT==2 ;FALL THROUGH
DBP%UP==3 ;USE PROCEDURE
DBP%PL==4 ;PERFORM LOOP
DBP%SI==5 ;SORT INPUT
DBP%SO==6 ;SORT OUTPUT
DBP%MO==7 ;MERGE OUTPUT
SUBTTL INTERNAL DEBUGGING VALUES
;FOR /TRACE SWITCH IN RHS OR CORESW
TRACEI==1B32 ;CORESW FLAG FOR TRACEING ID
TRACEE==1B33 ;CORESW FLAG FOR TRACEING ED
TRACED==1B34 ;CORESW FLAG FOR TRACEING DD
TRACEP==1B35 ;CORESW FLAG FOR TRACEING PD
TRACEA==TRACEI!TRACEE!TRACED!TRACEP
;FOR /K AND /F SWITCHES IN LHS OF CORESW
%KILLA==1
%KILLB==2
%KILLC==4
%KILLD==10
%KILLE==20
%KILLF==40
%KILLG==100
%KILLO==200
%KILL==%KILLA!%KILLB!%KILLC!%KILLD!%KILLE!%KILLF!%KILLG!%KILLO
%KILFA==400
%KILFB==1000
%KILFC==2000
%KILFD==4000
%KILFE==10000
%KILFF==20000
%KILFG==40000
%KILFO==100000
SUBTTL TABLE OF RESERVED WORDS
;VERBS
; 040 INITIATE
;001 ACCEPT 041
;002 ADD 042 TERMINATE
;003 ALTER 043 DELETE
;004 CLOSE 044 REWRITE
;005 COMPUTE 045 STORE
;006 COPY 046 INSERT
;007 DISPLAY 047 MODIFY
;010 DIVIDE 050 GET
;011 ELSE 051 REMOVE
;012 052 FIND
;013 ENTER 053 RECEIVE
;014 EXAMINE 054 SEND
;015 EXIT 055 DISABLE
;016 GO 056 ENABLE
;017 IF 057 TRACE
;020 MOVE 060 STRING
;021 MULTIPLY 061 UNSTRING
;022 062 RETAIN
;023 OPEN 063 FREE
;024 PERFORM 064 CALL
;025 READ 065 CANCEL
;026 RELEASE 066
;027 RETURN 067 INSPECT
;030 SEARCH 070 MERGE
;031 071 START
;032 SET,SETS 072 SUPPRESS
;033 SORT 073 CONTINUE
;034 STOP 074 EVALUATE
;035 SUBTRACT 075 INITIALIZE
;036 USE 076 PURGE
;037 WRITE 077 REPLACE
;WORDS USED ONLY BY ID & ED SCANS
;100 140 SIGN
;101 ACTUAL 141 SOURCE-COMPUTER
;102 ALTERNATE 142 SPECIAL-NAMES
;103 143 FILE-STATUS
;104 ASSIGN 144 TAPE
;105 AUTHOR 145 WORDS
;106 CONFIGURATION 146
;107 147 COMMA
;110 DATE-COMPILED 150 DECIMAL-POINT
;111 ENVIRONMENT 151 MODE
;112 FILE-CONTROL 152 RELATIVE
;113 FILE-LIMIT[S] 153 DEFERRED
;114 I-O-CONTROL 154 CHANNEL
;115 INSTALLATION 155 STANDARD-ASCII
;116 MEMORY 156
;117 MODULES 157
;120 MULTIPLE 160 RECORDING
;121 OBJECT-COMPUTER 161 DENSITY
;122 162 PARITY
;123 OPTIONAL 163 ASCII
;124 POSITION 164 SIXBIT
;125 PROCESSING 165 BINARY
;126 PROGRAM-ID 166
;127 RANDOM 167 ODD
;130 REMARKS 170 EVEN
;131 RERUN 171 BYTE
;132 RESERVE 172 APPLY
;133 SAME 173 BASIC-LOCKING
;134 SECURITY
;135 SEGMENT-LIMIT
;136 SELECT
;137 SEQUENTIAL
;WORDS WHICH CAN GO AWAY AFTER DD SCAN
;200 240 WORKING-STORAGE
;201 241
;202 BLANK[S] 242 USER-AREA
;203 BLOCK 243 LINKAGE
;204 COMP,COMPUTATIONAL 244 SUB-SCHEMA
;205 COMP-1,COMPUTATIONAL-1 245 SCHEMA
;206 CONTAINS 246 INVOKE
;207 COMP-3,COMPUTATIONAL-3 247 TYPE
;210 DATE-WRITTEN 250 RH
;211 DATABASE-KEY 251 PH
;212 DISPLAY-6 252 CH
;213 DISPLAY-7 253 DE,DETAIL
;214 FD 254 CF
;215 DISPLAY-9 255 PF
;216 IDENTIFICATION,ID 256 RF
;217 INDEX 257 COLUMN
;220 INDEXED 260 CONTROL[S]
;221 JUST,JUSTIFIED 261 COMPILE
;222 LIMIT[S] 262 FINAL
;223 LEFT 263 FOOTING
;224 OCCURS 264 GROUP
;225 OMITTED 265 HEADING
;226 PIC,PICTURE 266 INDICATE
;227 RD 267 ACCESS
;230 REDEFINES 270 NUMBER
;231 RENAMES 271
;232 RIGHT 272 PLUS
;233 SD 273 REPORT[S]
;234 COMP-2,COMPUTATIONAL-2 274 RESET
;235 SYNC,SYNCHRONIZED 275 SOURCE
;236 USAGE 276 SUM
;237 VALUE[S] 277 CODE
;WORDS USED BY ALL PHASES
;300 ADVANCING 340 KEY[S]
;301 AFTER 341 LEADING
;302 CONSOLE 342 LESS,"<"
;303 ALPHABETIC 343 LINE[S]
;304 AND 344 LOCK
;305 IS,ARE 345 NEGATIVE
;306 ASCENDING 346 NEXT
;307 AT 347 NO
;310 BEFORE 350 NOT
;311 BEGINNING 351 NUMERIC
;312 BY 352 ON
;313 COBOL 353 OR
;314 CORR,CORRESPONDING 354 OUTPUT
;315 DECLARATIVES 355 POSITIVE
;316 DEPENDING 356 PROCEED
;317 DESCENDING 357 RECORD[S]
;320 DOWN 360 REEL,UNIT
;321 ENDING 361 REPLACING
;322 EQUAL[S],"=" 362 REVERSED
;323 ERROR 363 REWIND
;324 EVERY 364 ROUNDED
;325 FILE 365 RUN
;326 FIRST 366 SECTION
;327 FOR 367 SENTENCE
;330 FROM 370 TALLYING
;331 GIVING 371 THAN
;332 GREATER,">" 372 THRU,THROUGH
;333 INPUT-OUTPUT,I-O 373 TIMES
;334 IN,OF 374 TO
;335 INPUT 375 UNTIL
;336 INTO 376 UP
;337 INVALID 377 UPON
;400 USING 440 UPDATE
;401 VARYING 441 ONLY
;402 WHEN 442 SELECTIVE
;403 WITH 443 RUN-UNIT
;404 SIZE 444 STATUS
;405 DIVISION 445 CURRENT
;406 END 446 PRIOR
;407 STANDARD 447 LAST
;410 LABEL 450 DUPLICATE[S]
;411 PROCEDURE[S] 451 WITHIN
;412 OFF 452 PRIVACY
;413 REMAINDER 453 USAGE-MODE
;414 MACRO 454 RETRIEVAL
;415 455 PROTECTED
;416 SWITCH 456 EXCLUSIVE
;417 REPORTING 457 COMMUNICATIONS
;420 TRACE 460 CD
;421 FILLER 461 INITIAL
;422 CALL 462 SYMBOLIC,NOMINAL
;423 FORTRAN 463 QUEUE
;424 CANCEL 464 SUB-QUEUE-1
;425 ENTRY 465 SUB-QUEUE-2
;426 GOBACK 466 SUB-QUEUE-3
;427 PROGRAM 467 MESSAGE
;430 OVERFLOW 470 DATE
;431 ANY 471 TIME
;432 EMPTY 472 TEXT
;433 MEMBER[S] 473 LENGTH
;434 OWNER 474 COUNT
;435 AREA 475 DEPTH
;436 CURRENCY 476 DESTINATION
;437 SUPPRESS 477 TABLE
;ANS-74 RESERVED WORDS
;500 CLASS 540 ALSO
;501 POINTER 541 BOTTOM
;502 SEGMENT 542 CODE-SET
;503 ESI 543 COLLATING
;504 EMI 544 DAY
;505 EGI 545 DEBUGGING
;506 EPI 546 DYNAMIC
;507 TERMINAL 547 EOP,END-OF-PAGE
;510 PAGE 550 EXCEPTION
;511 DATA 551 EXTEND
;511 DELIMITED 552 LINAGE
;513 DELIMITER 553 LINAGE-COUNTER
;514 VERB 554 RMS
;515 OTHER[S] 555 NATIVE
;516 ALLOWING 556 ORGANIZATION
;517 NONE 557 CHECKPOINT
;520 UNAVAILABLE 560 PRINTING
;521 READ-REWRITE 561 REFERENCE[S]
;522 READ-WRITE 562 SEPARATE
;523 FREED 563 SORT-MERGE
;524 RETAINED 564 STANDARD-1
;525 POSITIONING 565 TRAILING
;526 JOURNAL 566 CHARACTER[S]
;527 CHECK 571 EBCDIC
;530 SEQUENCE 570 TOP
;531 TRANSACTION
;532 VIA
;533 PROTECTION
;537 COMPILER-BREAK-IN-PHASE
;ANS-82 RESERVED WORDS
;600 ALPHABET
;601 ALPHABETIC-LOWER
;602 ALPHABETIC-UPPER
;603 ALPHANUMERIC
;604 ALPHANUMERIC-EDITED
;605 COMMON
;606 CONTENT
;607 CONVERSION
;610 CONVERTING
;611 DAY-OF-WEEK
;612 EXTERNAL
;613 FALSE
;614 GLOBAL
;615
;616 NUMERIC-EDITED
;617 ORDER
;620 PADDING
;621 REFERENCE-MODIFIER
;622 STANDARD-2
;623 TEST
;624 THEN
;625 TRUE
;626 UNLOCK (DEC EXTENSION FOR SMU)
;GENERIC SCOPE TERMINATORS
;677 END-xx
; END-ADD
; END-CALL
; END-COMPUTE
; END-DELETE
; END-DIVIDE
; END-EVALUATE
; END-IF
; END-MULTIPLY
; END-PERFORM
; END-READ
; END-RECEIVE
; END-RETURN
; END-REWRITE
; END-SEARCH
; END-START
; END-STRING
; END-SUBTRACT
; END-UNSTRING
; END-WRITE
; END-ENTER
; END-FREE
; END-OPEN
; END-RETAIN
;700 HIGH-VALUE,HIGH-VALUES 704
;701 LOW-VALUE,LOW-VALUES 705 ZERO,ZEROS,ZEROES
;702 QUOTE,QUOTES 706 ALL
;703 SPACE,SPACES 707 TODAY
;765 , 772 +
;766 ; 773 -
;767 ( 774 /
;770 ) 775 *
;771 . 776 **
;777 END OF SOURCE
;ITEM TYPES USED IN SYNTAX TREES
ACCEP.==001 ;ACCEPT
ACCES.==267 ;ACCESS
ACTUA.==101 ;ACTUAL
ADD.==002 ;ADD
ADVAN.==300 ;ADVANCING
AFTER.==301 ;AFTER
ALL.==706 ;ALL
ALLOW.==516 ;ALLOWING
ALPHA.==600 ;ALPHABET
ALPHB.==303 ;ALPHABETIC
ALPHL.==601 ;ALPHABETIC-LOWER
ALPHU.==602 ;ALPHABETIC-UPPER
ALPHN.==603 ;ALPHANUMERIC
ALPHE.==604 ;ALPHABETIC-EDITED
ALSO.==540 ;ALSO
ALTER.==003 ;ALTER
ALTRN.==102 ;ALTERNATE
AND.==304 ;AND
ANY.==431 ;ANY
APPLY.==172 ;APPLY
ARE.==305 ;ARE
AREA.==435 ;AREA
ASCND.==306 ;ASCENDING
ASCII.==163 ;ASCII
ASSGN.==104 ;ASSIGN
AT.==307 ;AT
AUTHR.==105 ;AUTHOR
BASLK.==173 ;BASIC-LOCKING
BEFOR.==310 ;BEFORE
BEGIN.==311 ;BEGINNING
BINRY.==165 ;BINARY
BLANK.==202 ;BLANK
BLOCK.==203 ;BLOCK
BOTTO.==541 ;BOTTOM
BY.==312 ;BY
BYTE.==171 ;BYTE
CALL.==064 ;CALL
CAN.==065 ;CANCEL
CD.==460 ;CD
CF.==254 ;CF
CH.==252 ;CH
CHANN.==154 ;CHANNEL
CHARA.==566 ;CHARACTER[S]
CHECK.==527 ;CHECK
CHKPT.==557 ;CHECKPOINT
CLASS.==500 ;CLASS
CLOSE.==004 ;CLOSE
COBOL.==313 ;COBOL
CODE.==277 ;CODE
CDSET.==542 ;CODE-SET
CNTNT.==606 ;CONTENT
COLLA.==543 ;COLLATING
COL.==257 ;COLUMN
COMMA==147 ;COMMA
COMMN.==605 ;COMMON
COMM.==457 ;COMMUNICATION
COMPIL.==261 ;COMPILE
COMP.==204 ;COMPUTATIONAL
COMP1.==205 ;COMPUTATIONAL-1
COMP2.==234 ;COMPUTATIONAL-2
COMP3.==207 ;COMPUTATIONAL-3
COMPU.==005 ;COMPUTE
COMPB.==537 ;COMPILER-BREAK-IN-PHASE (FOR DEBUGGING COBOL)
CONFG.==106 ;CONFIGURATION
CONSL.==302 ;CONSOLE
CONTA.==206 ;CONTAINS
CONT.==073 ;CONTINUE
CONTR.==260 ;CONTROL[S]
CONVS.==607 ;CONVERSION
CONVT.==610 ;CONVERTING
COPY.==006 ;COPY
CORR.==314 ;CORRESPONDING
COUNT.==474 ;COUNT
CURR.==436 ;CURRENCY
CURNT.==445 ;CURRENT
DATA.==511 ;DATA
DATE..==470 ;DATE
DBKEY.==211 ;DATABASE-KEY
DATEC.==110 ;DATE-COMPILED
DATEW.==210 ;DATE-WRITTEN
DAY..==544 ;DAY
DE.==253 ;DE, DETAIL
DEBUG.==545 ;DEBUGGING
DECPN.==150 ;DECIMAL-POINT
DECLA.==315 ;DECLARATIVES
DEFER.==153 ;DEFERRED
DELET.==043 ;DELETE
DLIMD.==512 ;DELIMITED
DLIMR.==513 ;DELIMITER
DENSIT==161 ;DENSITY
DEPEN.==316 ;DEPENDING
DEPTH.==475 ;DEPTH
DESCN.==317 ;DESCENDING
DEST.==476 ;DESTINATION
DISAB.==055 ;DISABLE
DISPL.==007 ;DISPLAY
DSPL6.==212 ;DISPLAY-6
DSPL7.==213 ;DISPLAY-7
DSPL9.==215 ;DISPLAY-9
DIVID.==010 ;DIVIDE
DIVIS.==405 ;DIVISION
DOW.==611 ;DAY-OF-WEEK
DOWN.==320 ;DOWN
DUPL.==450 ;DUPLICATE, DUPLICATES
DYNAM.==546 ;DYNAMIC
EBCDC.==567 ;EBCDIC
EGI.==505 ;EGI
ELSE.==011 ;ELSE
EMI.==504 ;EMI
EMPTY.==432 ;EMPTY
ENABL.==056 ;ENABLE
END.==406 ;END
ENDIN.==321 ;ENDING
ENDIT.==777 ;END-OF-FILE
ENDXX.==677 ;END- (EXPLICIT SCOPE TERMINATOR)
ENTER.==013 ;ENTER
ENTRY.==425 ;ENTRY
ENVIR.==111 ;ENVIRONMENT
EOP.==547 ;EOP, END-OF-PAGE
EPI.==506 ;EPI
EQUAL.==322 ;EQUALS
ERROR.==323 ;ERROR
ESI.==503 ;ESI
EVAL.==074 ;EVALUATE
EVEN.==170 ;EVEN
EVERY.==324 ;EVERY
EXAMI.==014 ;EXAMINE
EXCEP.==550 ;EXCEPTION
EXCL.==456 ;EXCLUSIVE
EXIT.==015 ;EXIT
EXTEN.==551 ;EXTEND
EXTER.==612 ;EXTERNAL
FALSE.==613 ;FALSE
FD.==214 ;FD
FILE.==325 ;FILE
FILEC.==112 ;FILE-CONTROL
FILST.==143 ;FILE-STATUS
FILLE.==421 ;FILLER
FINAL.==262 ;FINAL
FIND.==052 ;FIND
FIRST.==326 ;FIRST
FOOT.==263 ;FOOTING
FOR.==327 ;FOR
F10.==423 ;FORTRAN
FREE.==063 ;FREE
FREED.==523 ;FREED
FROM.==330 ;FROM
GEN.==041 ;GENERATE
GET.==050 ;GET
GIVIN.==331 ;GIVING
GLOBL.==614 ;GLOBAL
GO.==016 ;GO
GREAT.==332 ;GREATER
GROUP.==264 ;GROUP
HEADG.==265 ;HEADING
HIVAL.==700 ;HIGH-VALUES
IO.==333 ;IO,INPUT-OUTPUT
IOCON.==114 ;I-O-CONTROL
ID.==216 ;IDENTIFICATION
IF.==017 ;IF
IN.==334 ;IN
INDEX.==217 ;INDEX
INDIC.==266 ;INDICATE
INDXD.==220 ;INDEXED
INITL.==461 ;INITIAL
INITI.==075 ;INITIALIZE
INIT.==040 ;INITIATE
INPUT.==335 ;INPUT
INSRT.==046 ;INSERT
INSPC.==067 ;INSPECT
INSTA.==115 ;INSTALLATION
INTO.==336 ;INTO
INVAL.==337 ;INVALID
INVOK.==246 ;INVOKE
IS.==305 ;IS
JOURN.==526 ;JOURNAL
JUST.==221 ;JUSTIFIED
KEY==340 ;KEY
LABEL.==410 ;LABEL
LAST.==447 ;LAST
LEAD.==341 ;LEADING
LEFT.==223 ;LEFT
LNGTH.==473 ;LENGTH
LESS.=342 ;LESS
LIM.==222 ;LIMIT[S]
LINAG.==552 ;LINAGE
LNGCO.==553 ;LINAGE-COUNTER
LINE.==343 ;LINE
LINKG.==243 ;LINKAGE
LOCK.==344 ;LOCK
LOVAL.==701 ;LOW-VALUES
MACRO.==414 ;MACRO
MEMBR.==433 ;MEMBER
MEMOR.==116 ;MEMORY
MERG.==070 ;MERGE
MODE.==151 ;MODE
MODIF.==047 ;MODIFY
MODUL.==117 ;MODULES
MOVE.==020 ;MOVE
MSG.==467 ;MESSAGE
MULTP.==120 ;MULTIPLE
MULTI.==021 ;MULTIPLY
NATIV.==555 ;NATIVE
NEGAT.==345 ;NEGATIVE
NEXT.==346 ;NEXT
NO.==347 ;NO
NONE.==517 ;NONE
NOT.==350 ;NOT
NUMBR.==270 ;NUMBER
NUMED.==616 ;NUMERIC-EDITED
NUMER.==351 ;NUMERIC
OBJEC.==121 ;OBJECT-COMPUTER
OCCUR.==224 ;OCCURS
ODD.==167 ;ODD
OF.==334 ;OF, IN
OFF.==412 ;OFF
OMITT.==225 ;OMITTED
ON.==352 ;ON
ONLY.==441 ;ONLY
OPEN.==023 ;OPEN
OPTIO.==123 ;OPTIONAL
OR.==353 ;OR
ORGAN.==556 ;ORGANIZATION
ORDER.==617 ;ORDER
OTHER.==515 ;OTHER[S]
OUTPU.==354 ;OUTPUT
OVRFL.==430 ;OVERFLOW
OWNER.==434 ;OWNER
PADD.==620 ;PADDING
PAGE.==510 ;PAGE
PARIT.==162 ;PARITY
PERFO.==024 ;PERFORM
PF.==255 ;PF
PH.==251 ;PH
PIC.==226 ;PICTURE
PLS.==272 ;PLUS
PNTR.==501 ;POINTER
PSTN.==124 ;POSITION
PSTNG.==525 ;POSITIONING
PSTV.==355 ;POSITIVE
PRIOR.==446 ;PRIOR
PRINT.==560 ;PRINTING
PRVCY.==452 ;PRIVACY
PROC.==411 ;PROCEDURE[S]
PROCE.==356 ;PROCEED
PRCSS.==125 ;PROCESS
PGM.==427 ;PROGRAM
PGMID.==126 ;PROGRAM-ID
PROT.==455 ;PROTECTED
PROTC.==533 ;PROTECTION
PURG.==076 ;PURGE
QUEUE.==463 ;QUEUE
QUOTE.==702 ;QUOTE
RAND.==127 ;RANDOM
RD.==227 ;RD
READ.==025 ;READ
READR.==521 ;READ-REWRITE
READW.==522 ;READ-WRITE
RECEV.==053 ;RECIEVE
REC.==357 ;RECORD
RECRDG==160 ;RECORDING
REDEF.==230 ;REDEFINES
REEL.==360 ;REEL
REFER.==561 ;REFERENCES
RELAT.==152 ;RELATIVE
RELEA.==026 ;RELEASE
REMAI.==413 ;REMAINDER
REMOV.==051 ;REMOVE, REMOVAL
RENAM.==231 ;RENAMES
REPLC.==077 ;REPLACE
REPLA.==361 ;REPLACING
REPOR.==273 ;REPORT[S]
REPTG.==417 ;REPORTING
RERUN.==131 ;RERUN
RESER.==132 ;RESERVE
RESET.==274 ;RESET
RETAD.==524 ;RETAINED
RETAI.==062 ;RETAIN
RETR.==454 ;RETRIEVAL
RETUR.==027 ;RETURN
REVER.==362 ;REVERSED
REWIN.==363 ;REWIND
REWRT.==044 ;REWRITE
RF.==256 ;RF
RFMOD.==621 ;REFERENCE-MODIFIER
RH.==250 ;RH
RIGHT.==232 ;RIGHT
RMS.==554 ;RMS
ROUND.==364 ;ROUNDED
RUN.==365 ;RUN
RNUNT.==443 ;RUN-UNIT
SAME.==133 ;SAME
SCHEM.==245 ;SCHEMA
SD.==233 ;SD
SEARC.==030 ;SEARCH
SECT.==366 ;SECTION
SECUR.==134 ;SECURITY
SGMNT.==502 ;SEGMENT
SEGME.==135 ;SEGMENT-LIMITS
SELEC.==136 ;SELECT
SELTV.==442 ;SELECTIVE
SEND.==054 ;SEND
SENT.==367 ;SENTENCE
SEPER.==562 ;SEPERATE
SEQCE.==530 ;SEQUENCE
SEQU.==137 ;SEQUENTIAL
SET.==032 ;SET
SHAR.==527 ;SHARED
SIGN.==140 ;SIGN
SIXBT.==164 ;SIXBIT
SIZE.==404 ;SIZE
SORT.==033 ;SORT
SRTMG.==563 ;SORT-MERGE
SOUR.==275 ;SOURCE
SOURC.==141 ;SOURCE-COMPUTER
SPACE.==703 ;SPACE
SPECI.==142 ;SPECIAL-NAMES
STAND.==407 ;STANDARD
STND1.==564 ;STANDARD-1
STND2.==622 ;STANDARD-2
STDAS.==155 ;STANDARD-ASCII
STATU.==444 ;STATUS
START.==071 ;START
STOP==034 ;STOP
STORE.==45 ;STORE
STRIN.==060 ;STRING
SBSCH.==244 ;SUB-SCHEMA
SUBQ1.==464 ;SUB-QUEUE-1
SUBQ2.==465 ;SUB-QUEUE-2
SUBQ3.==466 ;SUB-QUEUE-3
SUBTR.==035 ;SUBTRACT
SUM.==276 ;SUM
SUPPR.==072 ;SUPPRESS
SWTCH.==416 ;SWITCH
SYMBL.==462 ;SYMBOLIC
SYNCH.==235 ;SYNCHRONIZED
TABLE.==477 ;TABLE
TAPE.==144 ;TAPE
TERML.==507 ;TERMINAL
TERM.==042 ;TERMINATE
TEST.==623 ;TEST
TEXT.==472 ;TEXT
THEN.==624 ;THEN
TLYNG.==370 ;TALLYING
THAN.==371 ;THAN
THRU.==372 ;THROUGH
TIME..==471 ;TIME
TIMES.==373 ;TIMES
TO.==374 ;TO
TOP.==570 ;TOP
TRAC.==057 ;TRACE
TRAIL.==565 ;TRAILING
TRANS.==531 ;TRANSACTION
TRUE.==625 ;TRUE
TYPE.==247 ;TYPE
UNAVA.==520 ;UNAVAILABLE
UNIT.==360 ;UNIT
UNLOC.==626 ;UNLOCK (VERB)
UNSTR.==061 ;UNSTRING
UNTIL.==375 ;UNTIL
UP.==376 ;UP
UPDAT.==440 ;UPDATE
UPON.==377 ;UPON
USAGE.==236 ;USAGE
USGMD.==453 ;USAGE-MODE
USE.==036 ;USE
PPN.==242 ;USER-NUMBER
USING.==400 ;USING
VALUE.==237 ;VALUE
VARYI.==401 ;VARYING
VERB.==514 ;VERB
VIA.==532 ;VIA
WHEN.==402 ;WHEN
WITH.==403 ;WITH
WITHN.==451 ;WITHIN
WORDS.==145 ;WORDS
WORKI.==240 ;WORKING-STORAGE
WRITE.==037 ;WRITE
ZERO.==705 ;ZERO
COLON.==764 ;:
.COMMA==765 ;,
SEMIC.==766 ;;
LPREN.==767 ;(
RPREN.==770 ;)
PRIOD.==771 ;.
PLUS.==772 ;+
MINUS.==773 ;-
SLASH.==774 ;/
ASTER.==775 ;*
EXPON.==776 ;**
USERN.==1000 ;USER-NAME
FILEN.==1001 ;FILE-NAME
MNEMO.==1002 ;MNEMONIC-DEVICE-NAME
SPECN.==1003 ;SPECIAL-NAME
CONDI.==1004 ;CONDITION-NAME
EXTNA.==1005 ;EXTERNA.-NAME
PRONM.==1006 ;PROCEDURE-NAME
FIGCN.==1010 ;FIGURATIVE-CONSTANT
INTGR.==1011 ;INTEGER
NLIT.==1012 ;NUMERIC-LITERAL
LITER.==1013 ;LITERAL
INDNA.==1014 ;INDEX-NAME
RECNA.==1015 ;RECORD-NAME
GNAME.==1016 ;GROUP-NAME
DATAN.==1017 ;DATA-NAME
RPNAM.==1020 ;REPORT-NAME
CDNAM.==1021 ;CD-NAME
ALPBN.==1022 ;ALPHABET-NAME
SYCHN.==1023 ;SYMBOLIC-CHARACTER
AMRGN.==2000 ;IN A-MARGIN
;GENFIL OPERATORS
SDELIM==136
STRNG==137
UDELIM==140
UNSDES==141
UNSTR==142
;GENFIL OPERATOR CODES
OPMOVE==001 ;MOVE A TO B,...
OPADD== 002 ;ADD A,B... (GIVING...)
OPADDT==003 ;ADD A,... (TO...)
OPSUB== 004 ;SUBTRACT A,... FROM B (GIVING...)
OPSUBF==005 ;SUBTRACT A,... (FROM...)
OPMUL== 006 ;MULTIPLY A BY B (GIVING...)
OPMULB==007 ;MULTIPLY A (BY...)
OPDIV== 010 ;DIVIDE A BY B (GIVING...)
OPRESU==011 ;GIVING (FROM,TO,BY) A,...
OPREMA==012 ;REMAINDER A
OPDIVB==013 ;DIVIDE A BY B (NO GIVING)
OPDCLS==014 ;START OF DECLARATIVES
OPDCLE==015 ;END OF DECLARATIVES
OPUSE== 016 ;USE AFTER ...
OPUSDB==017 ;USE FOR DEBUGGING
OPIF== 020 ;IF A (=, <, >) B
OPIFC== 021 ;IF CONDITION-NAME-A
OPIFT== 022 ;IF NUMERIC, POSITIVE,...
OPSPIF==023 ;AT END, INV.KEY, SIZE ERROR
OPELSE==024 ;BEGINNING OF ELSE PATH FOR CONDITIONAL
OPIFU== 025 ;IF IN PERFORM UNTIL
OPENDI==026 ;END OF CONDITIONAL
OPGO== 030 ;GO TO A
OPGODE==031 ;GO TO A,... DEPENDING ON B
OPPERF==032 ;PERFORM A [THRU B]
OPPRFT==033 ;PERFORM A [THRU B] C TIMES
OPALTE==034 ;ALTER A TO PROCEED TO B
OPSEAR==035 ;SEARCH A
OPSINC==036 ;SEARCH INCREMENT
OPSTOP==040 ;STOP RUN, STOP A
OPINSP==042 ;INSPECT A TALLYING B [REPLACING C]
OPSETT==043 ;SET A,... TO B
OPSETD==044 ;SET A,... DOWN BY B
OPSETU==045 ;SET A,... UP BY B
OPUSIN==046 ;(ENTER B) USING A,...
OPENTE==047 ;ENTER
OPCOMP==050 ;COMPUTE B=...
OPCADD==051 ;+A
OPCSUB==052 ;-A
OPCMUL==053 ;*A
OPCDIV==054 ;/A
OPCEXP==055 ;**A
OPCEND==057 ;END OF COMPUTE
OPACCE==060 ;ACCEPT A,... [FROM B]
OPDISP==061 ;DISPLAY A,... [UPON B]
OPOPEN==062 ;OPEN A
OPCLOS==063 ;CLOSE A
OPREAD==064 ;READ A
OPWRIT==065 ;WRITE A [ADVANCING B]
OPRERI==066 ;REWRITE A
OPSTRT==067 ;START A
OPLPAR==070 ;LEFT PARENTHESIS
OPRPAR==071 ;RIGHT PARENTHESIS
OPEXP== 072 ;START EXPRESSION
OPENDE==073 ;END EXPRESSION
OPJUMP==074 ;GENERATED CONTROL TRANSFER
OPERAU==075 ;ERROR USE PROCEDURE
OPCLRE==076 ;CLEAR EOPTAB
OPNTRY==077 ;ENTRY A
OPSECN==100 ;SECTION-NAME-A
OPPARN==101 ;PARAGRAPH-NAME-A
OPTAGN==102 ;SPECIAL TAG (%NNNNN)
OPSENA==103 ;REFERENCE POINT FOR SENTENCES
OPENDS==104 ;END OF SECTION
OPYECC==105 ;IGNORE ALL PRECEDING OPERANDS
OPNOOP==106 ;NOOP
OPCOLL==107 ;COLLATING SEQUENCE FOR SORT/MERGE
OPSORT==110 ;SORT A ...
OPKEY== 111 ;KEY A
OPINPR==112 ;INPUT PROCEDURE IS A [THRU B]
OPOUTP==113 ;OUTPUT PROCEDURE IS A [THRU B]
OPGIVI==114 ;GIVING A
OPUSIN==115 ;USING A
OPENDS==116 ;END OF SORT STATEMENT
OPMERG==117 ;MERGE A ...
OPRELE==120 ;RELEASE A [FROM B]
OPRETU==121 ;RETURN A [INTO B]
OPDELE==122 ;DELETE A
OPINIT==123 ;INITIATE A
OPGENR==124 ;GENERATE A
OPTERM==125 ;TERMINATE A
OPTRAC==126 ;TRACE ON/OFF
OPCANC==130 ;CANCEL A
OPIFDB==131 ;IF DATA-BASE
OPDISA==132 ;DISABLE A
OPACTC==133 ;ACCEPT COUNT
OPSEND==134 ;SEND A
OPRECV==135 ;RECEIVE A
OPSDEL==136 ;STRING DELIMITER
OPSTRN==137 ;STRING A
OPUDEL==140 ;
OPUNSD==141 ;
OPUNST==142 ;UNSTRING A
OPFENQ==143 ;FILE ENQUEUE
OPFUNA==144 ;FILE UNAVAILABLE
OPEFUN==145 ;END FILE UNAVAILABLE
OPEFEN==146 ;END FILE ENQUEUE
OPRENQ==147 ;RECORD ENQUEUE
OPEREN==150 ;END RECORD ENQUEUE
OPERUN==151 ;END RECORD UNAVAILABLE
OPRDEQ==152 ;RECORD DEQUEUE
OPERDQ==153 ;END RECORD DEQUEUE
OPENRT==154 ;END NOT RETAINED
OPINSC==155 ;INSPECT CONVERTING
OPINST==156 ;INSPECT TALLYING
OPINSR==157 ;INSPECT REPLACING
OPCBPH==160 ;COMPILER BREAK IN PHASE
OPSUPR==161 ;SUPPRESS
OPSETC==162 ;SET condition-name TO TRUE
OPSWON==163 ;SET mnemonic-name TO ON
OPSWOF==164 ;SET mnemonic-name TO OFF
OPEVAL==165 ;EVALUATE
OPITLZ==166 ;INITIALIZE
OPIPRF==167 ;In-line PERFORM
OPEPRF==170 ;End in-line PERFORM
OPTRUE==171 ;"True" or "False" for EVALUATE
OPANY==172 ;"Any" for EVALUATE
OPEVND==173 ;END EVALUATE operator
OPEVSS==174 ;End SS operator for EVALUATE
OPEVGN==175 ;Process selection subject/object for EVALUATE
OPREFM==176 ;Reference modification op code
OPADTG==177 ;ADD ... TO ... GIVING ...
OPENDI==377 ;END OF SOURCE
LIST
SALL
;PARAMETERS FOR OPTIMIZER
IPI==5 ;AC USED TO POINT TO IPTAB
NBACK==^D10 ;# INSTRUCTIONS TO KEEP BEFORE CURRENT INSTR.
NWINDO==^D10 ;WINDOW SIZE (THE LARGER THIS IS, THE FASTER THE
; OPTIMIZER WILL GO, BECAUSE IT MUST DO A "BLT"
; EVERY NWINDO INSTRUCTIONS)
NFRONT==^D20 ;# INSTRUCTIONS TO KEEP AFTER CURRENT INSTR.
MAXINX== NBACK*2+NWINDO+NFRONT ;MAX # INSTRUCTIONS IN IPTAB
GCLEN== MAXINX*3 ;MAX # WORDS NEEDED TO HOLD MAXINX INSTRUCTIONS
;ERROR CODES USED BY ALL PHASES
DEFINE ERRCOD(N)<E.'N==:N
.XCREF E.'N>
RADIX 10
ZZ==0
REPEAT 800,<ERRCOD \<ZZ==ZZ+1>>
IFN ANS82,<REPEAT 100,<ERRCOD\<ZZ==ZZ+1>>>
RADIX 8
;MAX SIZE OF LOW SEGMENT (LARGEST PC ALLOWED IS THIS - 1)
MLOWSZ==400000
;FOR DEBUGGER
TXTLEN==^D80 ;MAX # CHARS IN AN INPUT LINE
END