*                 CATALOG NO. 704901 - SIGMA 5/7 BPM M:CCITBLS
         SYSTEM   SIG7FDP
*
*
*        CCI TABLES AND CONSTANTS
*
*
*
*
*
         DEF      DSI
         DEF      LINK1STROM
         DEF      LINKNEXTROM
         DEF      LSTROMLINK
         DEF      RLMNENTRY
         DEF      ROMNAME
         DEF      ROMTADR
         DEF      ROMTESIZE
         DEF      SEGNAME
         DEF      TTESIZE
         DEF      TREETADR
         DEF      X1
         DEF      X2
         DEF      X4
         DEF      XF
         DEF      X10
         DEF      XFF
         DEF      X1FF
         DEF      X202
         DEF      X4000
         DEF      X8000
         DEF      XFFFF
         DEF      X1FFFF
         DEF      X2000202
         DEF      X3000202
         DEF      X4000202
         DEF      X7FFFFFFF
         DEF      XFFFFFFFB
         DEF      Y1
         DEF      Y14
         DEF      Y2
         DEF      Y4
         DEF      Y8
         DEF      YFF
         DEF      YFFFE
         DEF      YFFFF
         DEF      YDFFFFFFF
         DEF      Y7FFFFFFF
         DEF      Y01
         DEF      Y02
         DEF      Y04
         DEF      Y05
         DEF      Y06
         DEF      Y07
         DEF      Y08
         DEF      Y09
         DEF      Y0A
         DEF      Y0C
         DEF      Y001
         DEF      Y002
         DEF      Y003
         DEF      Y004
         DEF      Y008
         DEF      Y0001
         DEF      Y0002
         DEF      Y0004
         DEF      Y0008
         DEF      Y000F
         DEF      ALPHERCD
         DEF      BLNKERCD
         DEF      COMERCD
         DEF      CHSTERCD
         DEF      DECERCD
         DEF      DUPERCD
         DEF      HEXERCD
         DEF      IDCBNAM
         DEF      ILCHERCD
         DEF      ILLASGCD
         DEF      ILLRMNCD
         DEF      ILSEGNCD
         DEF      INSFERCD
         DEF      KWERCD
         DEF      LPERCD
         DEF      MRWERCD
         DEF      NAMERCD
         DEF      OPNERCD
         DEF      ROMTOVCD
         DEF      RPERCD
         DEF      SDCBNA
         DEF      SYNTXER
         DEF      TERMERCD
         DEF      VALERCD
         SPACE    3
         REF      M:LL,M:SL,M:LO,M:DO,M:PO,M:AL
         REF      CREAD,CCLIST,PLB
         DEF      XA,X1000,Y00FF
         DEF      Y03
         DEF      JOBCCLF,KEYHEAD,LMNAME,CCPL,LISTDCBT,CCLFM
         DEF      KCCELMK1,KCCELMK2,KCCELMK3,CCLFMASK,ERLFMASK
         DEF      BLANK,MAXCCERCD,LISTCNT
         DEF      X200020
         DEF      X100010
         DEF      X80008
         DEF      X40004
         DEF      X20002
         DEF      X10001
         DEF      X3
         DEF      DVERCD
         DEF      BIGERCD
         DEF      OUTERCD
         DEF      GETERCD
         DEF      PUTERCD
         DEF      OPERR
         DEF       ACCNER
         DEF      NRESERR
         DEF      BLNKOUTFLG,RUNERCD,LDSYSID,RDBIECOD
         DEF      ACCBUF,;
 CCEBFM1,CCEBF,CJOB,TSTACK
         REF      J:JIT,;
  J:CCBUF
         DEF      INSTARCD,LMXCDCD,NOPGERR
         DEF      TSTORCD1,TSTORCD2,PSTORCD1,PSTORCD2
         DEF      KEYSCAN1,KEYSCAN2
         DEF      WSNERCD
         DEF      PARAMCD
         DEF      MXUNSTCD,MXEXECCD
         DEF      Y15
         PAGE
         BOUND    4
*
*
*        OP  LABEL  DEFINITIONS
OPLBC    EQU      1
OPLBOC   EQU      2
OPLBLO   EQU      3
OPLBLL   EQU      4
OPLBDO   EQU      5
OPLBPO   EQU      6
OPLBBO   EQU      7
OPLBLI   EQU      8
OPLBSI   EQU      9
OPLBBI   EQU      10
OPLBSL   EQU      11
OPLBSO   EQU      12
OPLBCI   EQU      13
OPLBCO   EQU      14
OPLBAL   EQU      15
OPLBEI   EQU      16
OPLBEO   EQU      17
*
DSI      EQU      1                 DEVICE ENTRY IN DCB
         PAGE
* * * * *TEMP STACK AND ERR BUF MUST HAVE PROTECTION TYPE = 0 * * * * * *
         CSECT    0
*
TSTACK   DATA     %+1               TEMP STACK DBLWRD
         DATA,2   300,0
         RES      300
CCEBFM1  DATA     X'50404040'       CCEBF MINUS 1,INCLUDES BYTE
CCEBF    RES      20
         RES      13                FOR STRBUF IN CCIR
*
NRESERR  DATA     0                 NAME OF RESOURCE EXCEEDED IN JOBR.
         BOUND    8
KEYSCAN1 DATA     0                 BITS TO INDICATE KEYWORDS
KEYSCAN2 DATA     0                 SCANNED ON LOAD OR LOCCT CC.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **
       CSECT       1
Y080008   DATA   X'08000800'
Y040004   DATA   X'04000400'
Y020002   DATA   X'02000200'
Y010001   DATA   X'01000100'
X800080   DATA   X'800080'
X400040   DATA   X'400040'
X200020   DATA   X'200020'
X100010   DATA   X'100010'
X80008    DATA   X'80008'
X40004    DATA   X'40004'
X20002    DATA   X'20002'
X10001    DATA   X'10001'
XA000     DATA   X'A000'
X400      DATA   X'400'
X800      DATA   X'800'
X100      DATA   X'100'
X3        DATA   X'3'
         PAGE
X0       DATA     0
X1       DATA     X'1'
X2       DATA     X'2'
X4       DATA     X'4'
X8       DATA     X'8'
XA       DATA     X'A'
XF       DATA     X'F'
X10      DATA     X'10'
X20      DATA     X'20'
X40      DATA     X'40'
X7F      DATA     X'7F'
X80      DATA     X'80'
XFF      DATA     X'FF'
X202     DATA     X'202'
X1FF     DATA     X'1FF'
X7FF     DATA     X'7FF'
XFFF     DATA     X'FFF'
X7FFF    DATA     X'7FFF'
X1000    DATA     X'1000'
X2000    DATA     X'00002000'
X3FFF    DATA     X'00003FFF'
X4000    DATA     X'00004000'
X8000    DATA     X'8000'
XF7FF    DATA     X'F7FF'
XFF00    DATA     X'FF00'
XFF3E    DATA     X'FF3E'
XFFFF    DATA     X'0000FFFF'
X1FE00   DATA     X'1FE00'
X1FFFF   DATA     X'1FFFF'
X20007   DATA     X'20007'
X300FF   DATA     X'300FF'
Y3800003 DATA     X'38000030'
X80000   DATA     X'80000'
X4E0000  DATA     X'4E0000'
XFFFF00  DATA     X'FFFF00'
X2000202 DATA     X'02000202'
X3000202 DATA     X'03000202'
X4000202 DATA     X'04000202'
X8000001 DATA     X'08000001'
X9000001 DATA     X'09000001'
X02E24040 DATA    X'02E24040'
X045C4040 DATA    X'045C4040'
X8000FF10 DATA    X'8000FF10'
X3FFFFFFF DATA    X'3FFFFFFF'
X7FFFFFFF DATA    X'7FFFFFFF'
XFFFFFFF0 DATA    X'FFFFFFF0'
XFFFFFFFB DATA    X'FFFFFFFB'
         PAGE
Y1       DATA     X'10000000'
Y11      DATA     X'11000000'
Y14      DATA     X'14000000'
Y15      DATA     X'15000000'
Y2        DATA    X'20000000'
Y3       DATA     X'30000000'
Y4       DATA     X'40000000'
Y41      DATA     X'41000000'
Y8       DATA     X'80000000'
YF       DATA     X'F0000000'
Y3400001 DATA     X'34000010'
YC0      DATA     X'C0000000'
YB800001 DATA     X'B8000010'
YB800003 DATA     X'B8000030'
YB800007 DATA     X'B8000070'
YFF      DATA     X'FF000000'
YFF3E    DATA     X'FF3E0000'
YFFFE    DATA     X'FFFE0000'
YFFFF    DATA     X'FFFF0000'
Y01      DATA     X'01000000'
Y0115    DATA     X'01150000'
Y02      DATA     X'02000000'
Y03      DATA     X'03000000'
Y035C    DATA     X'035C0000'
Y04      DATA     X'04000000'
Y05      DATA     X'05000000'
Y06      DATA     X'06000000'
Y07      DATA     X'07000000'
Y08      DATA     X'08000000'
Y09      DATA     X'09000000'
Y0A      DATA     X'0A000000'
Y0D  DATA  X'0D000000'
Y0C      DATA     X'0C000000'
Y001     DATA     X'00100000'
Y014     DATA     X'01400000'
Y002     DATA     X'00200000'
Y003     DATA     X'00300000'
Y004     DATA     X'00400000'
Y008     DATA     X'00800000'
Y00A     DATA     X'00A00000'
Y00F     DATA     X'00F00000'
Y003E    DATA     X'003E0000'
Y00FE    DATA     X'00FE0000'
Y00FF    DATA     X'00FF0000'
Y00FFF   DATA     X'00FFF000'
Y0001    DATA     X'00010000'
Y0002    DATA     X'20000'
Y0004    DATA     X'00040000'
Y000F    DATA     X'000F0000'
Y0008    DATA     X'00080000'
Y10001  DATA  X'10001000'
Y3000001 DATA     X'30000010'
Y3800001 DATA     X'38000010'
Y3800002 DATA     X'38000020'
YDFFFFFFF DATA    X'DFFFFFFF'
Y7FFFFFFF DATA    X'7FFFFFFF'
Y7000001 DATA     X'70000010'
Y7400001 DATA     X'74000010'
         PAGE
K1       EQU      1
K4       EQU      4
K7       EQU      7
K8       EQU      8
K10      EQU      X'10'
K40      EQU      X'40'
K77      EQU      X'77'
K80      EQU      X'80'
K100     EQU      X'100'
K200     EQU      X'200'
K400     EQU      X'400'
K600     EQU      X'600'
         PAGE
BLANK    TEXT     '    '
RDOPCD   EQU      X'10'             READ OP CODE
WTOPCD   EQU      X'11'             WRITE OP CODE
OPNOPCD  EQU      X'14'
BKGRDPRT EQU      01
CLSOPCD  EQU      X'15'             CLOSE OP CODE
SMPRTCD  EQU      X'20'
         BOUND    4
         PAGE
*
         BOUND    4
LISTDCBT EQU      %                 ADR TABLE OF OUTPUT DCBS
         DATA     0
         DATA     M:AL
         DATA     M:PO
         DATA     M:DO
         DATA     M:LO
         DATA     M:SL
         DATA     M:LL
         DATA     0                                                     901
LISTCNT  EQU      %-LISTDCBT-1
         PAGE
CJOB     DATA     J:JIT
ACCBUF   EQU      J:CCBUF-J:JIT
JOBCCLF  EQU      X'12'             JOB CC LIST DO,LL
FINCCLF  EQU      X'2'                            LL
MRESTRTCD EQU     K4                RESTART CODE
MCKPTCD  EQU      K8                CHECK POINT CODE
MABRTCD  EQU      K40               MONITOR ABORT CODE
MERRCD   EQU      K80               MERR CODE
MJCFLGMSK  EQU    Y8                MISSING JOB CC MASK
SETUPMSK EQU      Y004              SETUP MASK
ERLFMASK EQU      X7F               ERR LIST FLAG MASK
TMPFLDMSK EQU     Y08
TMPFLLMSK  EQU    Y01
CCLFMASK EQU      X7F               CONTROL CO
KCCELMK1 EQU      K200              CC ERROR LIST MASK 1
KCCELMK2 EQU      K400              CC ERROR LIST MASK 2
CCLFM    EQU      K100
KCCELMK3 EQU      K600              CC ERR LIST MASK 3
KCCIEC1  EQU      K1                CC ERR CODE 1
KCCIEC2  EQU      K10               CC ERR CODE 2
TFILAMSK EQU      Y1
TMPFLBMSK DATA    Y04
FILENAMEB DATA    X'035C00C2'
KEYDCB   TEXTC    'DCB'
KEYTMPFL TEXTC    'TMPFILE'
KEYTREE  TEXTC    'TREE'
KEYHEAD  TEXTC    'HEAD'
KEYLOCCT TEXTC    'LOCCT'
ROMTADR       EQU 1                 REL. POS. OF ROMT ADR IN LOCCT
TREETADR      EQU 2                 REL. POS. OF TREE ADR IN LOCCT
ROMTESIZE     EQU 8                 ROMT ENTRY SIZE
MROMTESIZE EQU    -ROMTESIZE
TTESIZE       EQU 11                TREE ENTRY SIZE
SEGNAME       EQU 0                 REL. POS. OF SEG NAME IN TREE ENTRY
ROMNAME       EQU 0                 REL. POS. OF ROM NAME IN ROM  ENTRY
LINK1STROM    EQU 3                 REL. POS. IN TREE ENTRY OF ROM LINK
LINKNEXTROM   EQU 7                 REL. POS. IN ROM  ENTRY OF ROM LINK
LSTROMLINK    EQU 5                 REL. POS. IN TREE ENTRY LST ROM LNK
RLMNENTRY  EQU    3
LOADMX1A   EQU    3
RUNMX1A    EQU    2
LMNAME   EQU      10                INDEX FOR LOAD MODULE NAME IN LOCCT
LDSYSID  EQU      3
         PAGE
*
*        CCPL     CONTROL COMMAND PARAMETER LIST FOR CHAR ROUTINES
*
CCPL     EQU      %
         GEN,8,24 NDELIM,BA(CCDELIM)  NO. OF DELIM, BA( DELIMETERS)
         GEN,8,24 CNTCLMN,CREAD     CONT. COLUMN, CONT. READ ROUT.
         DATA     CCLIST            OUTPUT ROUTINE
         DATA     0                 CUR CHAR  POSITION
         GEN,8,24 0,0               FLAGS, CC BUFFER ADR
         DATA     0                 CHAR STRING LENGTH
         DATA     0                 CHAR POSITION OF 1ST CHAR OF FIELD
         RES      9                 CHAR STRING BUFFER
*
CCDELIM  EQU      %                 CC  DELIMITERS
         DATA     '(),.'
         DATA,2   ' +'
* NOTE: HYPHEN IS USED AS A DELIMITER IN PROCESSING THE TREE CONTROL
*  COMMAND; OTHERWISE HYPHEN IS TREATED AS ALPHABETIC.
         DATA,1   '-'               MUST BE LAST ENTRY IN DELIM TABLE
NDELIM   EQU      BA(%)-BA(CCDELIM)-1
*
         BOUND    4
CNTCLMN  EQU      1
CSL      EQU      5
CCPLB    EQU      7
PLB1     EQU      PLB+1
BLNKOUTFLG  EQU   Y4                BLANK OUT FLAG
         PAGE
**********************************************************************
*                                                                    *
*        CONTROL  COMMAND  ERROR CODES                               *
*                                                                    *
**********************************************************************
BLNKERCD EQU      X'001'            EXPECTED BLANK      MISS. ERR CODE
COMERCD  EQU      X'002'            EXPECTED COMMA      MISS. ERR CODE
LPERCD   EQU      X'003'            EXPECTED LEFT PAREN MISS. ERR CODE
RPERCD   EQU      X'004'            EXPECTED RGHT PAREN MISS. ERR CODE
TERMERCD EQU      X'005'            EXPECTED TERMINATOR MISS. ERR CODE
HYPNERCD EQU      X'006'            EXPECTED BYPEN      MISS. ERR CODE
ILCHERCD EQU      X'007'            ILLEGAL  CHAR             ERR CODE
SYNTXER  EQU      X'008'            SYNTAX                    ERR CODE
WSNERCD  EQU      X'00B'
KWERCD   EQU      X'100'            ILLEGAL  KEYWORD          ERR CODE
CHSTERCD EQU      X'101'            ILLEGAL  CHARACTER STRING ERR CODE
ALPHERCD EQU      X'102'            ILLEGAL  ALPHANUM. NAME   ERR CODE
DECERCD  EQU      X'103'            ILLEGAL  DEC. NUMBER      ERR CODE
HEXERCD  EQU      X'104'            ILLEGAL  HEX. NUMBER      ERR CODE
DUPERCD  EQU      X'105'            DUPLICATION OF FIELD      ERR CODE
VALERCD  EQU      X'106'            ILLEGAL  VALUE            ERR CODE
INSFERCD EQU      X'107'            INSUFFICIENT PARAMETERS   ERR CODE
MRWERCD  EQU      X'108'            MAX RD&WT ACCTS EXCEEDED  ERR CODE
ILSEGNCD EQU      X'109'            ILLEGAL SEGMENT NAME      ERR CODE
ILLRMNCD EQU      X'10A'            ILL. REL. OJB. MOD. NAME            901
DVERCD   EQU      X'10B'
BIGERCD  EQU      X'10C'
OUTERCD  EQU      X'10D'
GETERCD  EQU      X'10E'
PUTERCD  EQU      X'10F'
OPERR    EQU      X'111'
ACCNER   EQU       X'112'
TSTORCD1 EQU      X'113'            TSTORE XCEEDS RMNG RAD SPACE ERR CD
TSTORCD2 EQU      X'114'            TSTORE XCEEDS RMNG PACK SPACE ERR CD
PSTORCD1 EQU      X'115'            PSTORE XCEEDS RMNG RAD SPCE ERR CD
PSTORCD2 EQU      X'116'            PSTORE XCEEDS RMNG PACK SPACE ERR CD
PARAMCD  EQU      X'117'            ILLEGAL PARAMETER
IDCBNAM  EQU      X'118'            ILLEGAL DCB NAME
MXUNSTCD EQU      X'119'            MAX UNSAT ACCTS EXCEEDED
MXEXECCD EQU      X'11A'            MAX EXECUTE ACCTS EXCEEDED
*
SDCBNA   EQU      X'201'            SYSTEM DCB NOT ASSIGNABLE ERR CODE
ILLASGCD EQU      X'204'            ILLEGAL ASSIGNMENT        ERR CODE
ROMTOVCD EQU      X'206'            ROMT OVERFLOW             ERR CODE
OPNERCD  EQU      X'208'            ABN COND ON OPEN DCB ERR CODE
RUNERCD  EQU      X'20B'            RUN CC ERR CODE
RDBIECOD EQU      X'20C'            READ BI I/O ERR CODE
INSTARCD EQU      X'20D'            USER BARRED BY INST. ROUTINE ERR CODE
NOPGERR  EQU      X'20F'
LMXCDCD  EQU      X'211'            LIMIT EXCEEDS MAXIMUM.
*
MAXCCERCD  EQU    X'300'            MAX  CC  ERR  CODE
*
NAMERCD  EQU      ALPHERCD          ILLEGAL ALPHANUM. NAME   ERR CODE
KEYWERCD EQU      KWERCD            ILLEGAL  KEYWORD           ERR CODE
         END

