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