         TITLE    'CONSTS-B00,10/16/73,DWG702985'
         SYSTEM   SIG7F
         CSECT    1
         PCC      0                 CONTROL CARDS NOT PRINTED.
CONSTS@  RES      0                 ORIGIN OF CONSTANTS MODULE.
*
*  DEF'S
*
         DEF      CONSTS@                 = START OF CONSTS MODULE.
         DEF      APLSINON                APL'S SIGN-ON MESSAGE.
 SPACE
         DEF      BITMASK           32-WD TBL OF 1-BIT-SETTINGS.  THIS
*                                     BLOCK IS IN ASCENDING ORDER--E.G.
*                                     BITMASK+1 = 1 AND
*                                     BITMASK+32 = SIGN-BIT ONLY.
         DEF      BITPOS            32-WD TBL OF 1-BIT-SETTINGS.  TO GET
*                                     A WD HAVING ONLY BIT POSITION K
*                                     (SET TO 1), REFER TO 'BITPOS-K'.
*
         DEF      XFFFF             = X'FFFF' (RIGHT HALFWORD).
         DEF      X1FFFF            = X'1FFFF' (ADDRESS).
         DEF      XFF0000           = X'FF0000' (BYTE 1 ONLY).
         DEF      X4E1              = X'4E100000', 0  (FOR FL.PT CVS).
         DEF      ZEROZERO          = 0,0
         DEF      F0F9              = '0','9' (EBCDIC DIGIT RANGE).
         DEF      BLANKS            WD CONTAINING ALL BLANKS.
 SPACE
 SPACE
         DEF      NONAME            NON-NAME START & NON-DIGIT CODES.
 SPACE
         DEF      FUNTYPES          RANGE OF FUNCTION TYPES-- 8 & 13.
         DEF      HEXTBL                  EBCDIC HEX DIGITS.
 SPACE
*                 ERROR I.D. DEFS:
         DEF      IDIOERR
         DEF      IDWSFULL
         DEF      IDXEQERR
         DEF      IDBADCH
         DEF      IDTRUNC
         DEF      IDOPENQT
         DEF      IDSYMFUL
         DEF      IDLSCAN
         DEF      IDDEFN
         DEF      IDSIDAM
         DEF      IDBADCMD
         DEF      IDNOTGRP
         DEF      ID2BIGLD
         DEF      IDFILREF
         DEF      IDFILBSY
         DEF      IDWSNOTF
         DEF      IDNOTSAV
         DEF      IDNERASE
         DEF      IDNOTCPY
         DEF      IDNOTFND
         DEF      IDTOOBIG
         DEF      ID2NAMEY
         DEF      IDFILSPC
         DEF      IDTERMAL
         DEF      IDFILNAM
         DEF      IDNOTAPL
         DEF      IDFTFULL
         DEF      IDFILACC
         DEF      IDFILTIE
         DEF      IDNOPACK
         DEF      IDFILIDX
         DEF      IDFILDAM
         DEF      IDFIOERR
 PAGE
*
*  EQU REGION -- ERROR I.D. TABLE.
*
*       THIS IS A SEQUENTIAL TABLE OF INTERNAL ERROR IDENTIFIERS.
*       (THE ERROR I.D. IS NOT THE SAME AS THE 'ERROR NUMBER' WHICH IS
*        USED FOR ERROR-CONTROL.)
*       NEW ERROR I.D.'S CAN BE ADDED AT THE END OF THIS TABLE; SEE
*       ALSO THE ERROR MODULE, WHERE ERROR I.D.'S ARE USED TO ASSIGN
*       ERROR NUMBERS AND MESSAGE STRINGS.
*
*  ERROR I.D.'S   -1  THRU  12  ARE ASSIGNED TO EXECUTION ERRORS:
*
*                 -1                BREAK
*                 0                 LINESCAN ERR (SYNTAX ERR MSG USED)
*                 1                 SYNTAX ERR
*                 2                 UNDEFINED
*                 3                 NO RESULT
IDIOERR  EQU      4                 I/O ERR
*                 5                 DOMAIN ERR
*                 6                 RANK ERR
*                 7                 LENGTH ERR
IDWSFULL EQU      8                 WS FULL
*                 9                 SINGULAR MATRIX
*                 10                FORMAT SYNTAX ERR
*                 11                INDEX ERR
IDXEQERR EQU      12                CMD OR FUNDEF ERR BY EXECUTE-OPERATR
IDBADCH  EQU      13                BAD CHAR
IDTRUNC  EQU      14                TRUNCATED INPUT
IDOPENQT EQU      15                OPEN QUOTE
IDSYMFUL EQU      16                SYM TBL FULL
IDLSCAN  EQU      17                LINESCAN ERR
IDDEFN   EQU      18                DEFN ERR
IDSIDAM  EQU      19                SI DAMAGE
IDBADCMD EQU      20                BAD COMMAND
IDNOTGRP EQU      21                NOT GROUPED
ID2BIGLD EQU      22                TOO BIG TO LOAD
IDFILREF EQU      23                BAD FILE REF
IDFILBSY EQU      24                FILE IN USE
IDWSNOTF EQU      25                WS NOT FOUND
IDNOTSAV EQU      26                NOT SAVED, THIS WS IS ...
IDNERASE EQU      27                ... NOT ERASED
IDNOTCPY EQU      28                ... NOT COPIED
IDNOTFND EQU      29                ... NOT FOUND
IDTOOBIG EQU      30                TOO BIG
ID2NAMEY EQU      31                TOO MANY SYMBOLS
IDFILSPC EQU      32                FILE SPACE TOO LOW
IDTERMAL EQU      33                WRONG TERMINAL
IDFILNAM EQU      34                FILE NAME ERR
IDNOTAPL EQU      35                NOT APL FILE
IDFTFULL EQU      36                FILE TBL FULL
IDFILACC EQU      37                FILE ACCESS ERR
IDFILTIE EQU      38                FILE TIE ERR
IDNOPACK EQU      39                PRIVATE PACK UNAVAIL, CALL OPR.
IDFILIDX EQU      40                FILE INDEX ERR
IDFILDAM EQU      41                FILE DAMAGE
IDFIOERR EQU      42                FILE I/O ERR ....
 PAGE
*
*  DOUBLEWORD CONSTANTS
*
         BOUND    8
 SPACE 2
ZEROZERO DATA     0,0
 SPACE
F0F9     DATA     '0','9'
 SPACE
X4E1     DATA     X'4E100000',0
 SPACE
NONAME   DATA     10,138            USED TO FIND NON-DIGIT, NON-NAME
*                                     CHARS IN KEY CODESTRING DESIGS.
 SPACE
FUNTYPES DATA     8,13              FUNCTION TYPES (NILADIC W/ NO-RESULT
*                                     THRU DYADIC WITH A RESULT).
 SPACE 3
*
*  SINGLE WORD CONSTANTS
*
BITMASK  DATA     X'80000000'       @
         DATA     X'00000001'       @
         DATA     X'00000002'       @
         DATA     X'00000004'       @
         DATA     X'00000008'       @
         DATA     X'00000010'       @
         DATA     X'00000020'       @
         DATA     X'00000040'       @
         DATA     X'00000080'       @
         DATA     X'00000100'       @
         DATA     X'00000200'       @
         DATA     X'00000400'       @
         DATA     X'00000800'       @
         DATA     X'00001000'       @
         DATA     X'00002000'       @
         DATA     X'00004000'       @
         DATA     X'00008000'       @
         DATA     X'00010000'       @
         DATA     X'00020000'       @
         DATA     X'00040000'       @
         DATA     X'00080000'       @
         DATA     X'00100000'       @
         DATA     X'00200000'       @
         DATA     X'00400000'       @
         DATA     X'00800000'       @
         DATA     X'01000000'       @
         DATA     X'02000000'       @
         DATA     X'04000000'       @
         DATA     X'08000000'       @
         DATA     X'10000000'       @
         DATA     X'20000000'       @
         DATA     X'40000000'       @
BITPOS   DATA     X'80000000'       @
*
XFFFF    DATA     X'FFFF'
X1FFFF   DATA     X'1FFFF'
XFF0000  DATA     X'FF0000'
BLANKS   TEXT     '    '
 SPACE 2
APLSINON TEXTC    'APL 10/16/73'
 PAGE
HEXTBL   TEXT     '0123456789ABCDEF'
************************************************************************
 SPACE 2
Z        SET      %-CONSTS@         SIZE OF CONSTS MODULE IN HEX.
 SPACE
Z        SET      Z+Z/10*6+Z/100*96 SIZE IN DECIMAL.
 SPACE 2
         END

