Trailing-Edge
-
PDP-10 Archives
-
cuspbinsrc_2of2_bb-fp63b-sb
-
10,7/rms10/rmssrc/rmstab.b36
There are 6 other files named rmstab.b36 in the archive. Click here to see a list.
MODULE TABL =
BEGIN
GLOBAL BIND TABLV = 1^24 + 0^18 + 3; !EDIT DATE: 22-DEC-77
%([
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!COPYRIGHT (C) 1977, 1979 BY DIGITAL EQUIPMENT CORPORATION
AUTHOR: S. BLOUNT
THIS MODULE CONTAINS ALL RUN-TIME PURE TABLES
WHICH ARE USED BY RMS-20. THESE TABLES ARE INCLUDED
HERE (AS OPPOSED TO THE GLOBAL DECLARATION MODULE)
SO THAT THEY CAN BE READ-ONLY WHEN RMS-20 IS LOADED
INTO USER CORE.
THIS MODULE CURRENTLY CONTAINS TWO TABLES -- A DATA-TYPE
TABLE WHICH DEFINES THE CHARACTERISTICS OF THE VARIOUS
KEY DATA-TYPES, AND A TRANSLATION TABLE FOR PROCESSING
OF ASCII RECORDS.
THE DATA-TYPE TABLE CONTAINS ALL ATTRIBUTES FOR EACH DEFINED
KEY DATA-TYPE. THE ONLY ATTRIBUTE OF A DATA-TYPE
WHICH IS CURRENTLY DEFINED IS A BYTE SIZE. HOWEVER,
AS ATTRIBUTES ARE ADDED IN THE FUTURE, IT WILL BECOME
NECESSARY TO EXPAND THIS TABLE TO INCLUDE THESE NEW
ATTRIBUTES. THUS, ALL INFORMATION WHICH DESCRIBES THE
CHARACTERISTICS OF A KEY DATA-TYPE SHOULD BE INCLUDED
IN THIS TABLE.
REVISION HISTORY:
PRODUCT LOCAL
EDIT EDIT DATE WHO PURPOSE
==== ==== ==== === ==========
1 1 18-OCT-77 SB ADD ASCII TABLE, CHANGE NAME OF MODULE
- 2 14-NOV-77 SB CHANGE BIND OF TABLE1
4 3 22-DEC-77 SB ADD ABR TO ^Z,ESC
*************************************************
* *
* NEW REVISION HISTORY *
* *
*************************************************
PRODUCT MODULE SPR
EDIT EDIT QAR DESCRIPTION
====== ====== ===== ===========
***** END OF REVISION HISTORY *****
])%
REQUIRE 'RMSREQ';
UNDECLARE %QUOTE SFLG, %QUOTE ABR;
%([ THIS MODULE CONTAINS A MAJOR ITEM: THE DATA-TYPE
CHARACTERISTICS TABLE FOR USE IN INDEXED FILES.
THIS TABLE CONTAINS ALL ATTRIBUTES OF EACH KEY
DATA-TYPE WHICH ARE NECESSARY TO PROCESS THE KEY.
THE TABLE IS CENTRALIZED HERE TO AVOID MULTIPLE
CASE STATEMENTS THRUOUT THE CODE.
THE ACTUAL STRUCTURE MACROS FOR EACH FIELD IN THIS
TABLE ARE CONTAINED IN THE FILE "XAB.REQ".
NOTE THAT THE ORDER OF THE ENTRIES IN THIS TABLE MUST
CORRESPOND TO THE NUMERIC VALUES OF EACH KEY DATA-TYPE.
NOTE THAT IF THE FORMAT OF THE DATA-TYPE TABLE CHANGES,
THIS BIND STATEMENT MUST ALSO BE MODIFIED ])%
%([ MACRO TO DEFINE A NEW DATA-TYPE ])%
MACRO DATATYPE ( XNAME, XTYPE, XBSZ )=
XTYPE ^ 35 + XBSZ %;
%([ VALUES USED FOR EACH DATA TYPE ])%
LITERAL TYPECHARACTER = 0, ! CHARACTER DATA TYPE
TYPENUMERIC = 1; ! NUMERIC DATA TYPE
%([ THE ACTUAL TABLE OF KEY DATA-TYPE CHARACTERISTICS ])%
BIND XXXXXX = PLIT (
DATATYPE ( %(STREAM)% DTPSTM, %(TYPE)% TYPECHARACTER, %(BYTE SIZE)% STRINGBYTESIZE),
DATATYPE ( %(EBCDIC)% DTPEBC, %(TYPE)% TYPECHARACTER, %(BYTE SIZE)% EBCDICBYTESIZE),
DATATYPE ( %(SIXBIT)% DTPSIX, %(TYPE)% TYPECHARACTER, %(BYTE SIZE)% SIXBITBYTESIZE ) );
GLOBAL BIND DTPTABLE = XXXXXX;
%([
*****************************************************************
* TRANSLATION TABLE FOR READ ASCII RECORDS *
*****************************************************************
])%
LITERAL SFLG = BITN ( 18 ), ! SIGNIFICANCE FLAG
ABR = BITN ( 20 ); ! ABORT FLAG
MACRO TBL ( LEFTCHAR, RIGHTCHAR ) =
( SFLG + LEFTCHAR ) ^ 18 + ( RIGHTCHAR + SFLG ) %;
BIND YYYYYY = PLIT (
0^18 + (1+sflg), !leading nuls not signif
TBL ( 2, 3 ),
TBL ( 4, 5 ),
TBL ( 6, 7 ),
TBL ( 8, 9 ),
TBL ( 10+ABR, 11+ABR ), ! LF, VT
TBL ( 12+ABR, 13 ), ! FF,
TBL ( 14, 15 ),
TBL ( 16, 17 ),
TBL ( 18, 19 ),
TBL ( 20, 21 ),
TBL ( 22, 23 ),
TBL ( 24, 25 ),
TBL ( 26+ABR, 27+ABR ), ! ^Z,,ESC
TBL ( 28, 29 ),
TBL ( 30, 31 ),
TBL ( 32, 33 ),
TBL ( 34, 35 ),
TBL ( 36, 37 ),
TBL ( 38, 39 ),
TBL ( 40, 41 ),
TBL ( 42, 43 ),
TBL ( 44, 45 ),
TBL ( 46, 47 ),
TBL ( 48, 49 ),
TBL ( 50, 51 ),
TBL ( 52, 53 ),
TBL ( 54, 55 ),
TBL ( 56, 57 ),
TBL ( 58, 59 ),
TBL ( 60, 61 ),
TBL ( 62, 63 ),
TBL ( 64, 65 ),
TBL ( 66, 67 ),
TBL ( 68, 69 ),
TBL ( 70, 71 ),
TBL ( 72, 73 ),
TBL ( 74, 75 ),
TBL ( 76, 77 ),
TBL ( 78, 79 ),
TBL ( 80, 81 ),
TBL ( 82, 83 ),
TBL ( 84, 85 ),
TBL ( 86, 87 ),
TBL ( 88, 89 ),
TBL ( 90, 91 ),
TBL ( 92, 93 ),
TBL ( 94, 95 ),
TBL ( 96, 97 ),
TBL ( 98, 99 ),
TBL ( 100, 101 ),
TBL ( 102, 103 ),
TBL ( 104, 105 ),
TBL ( 106, 107 ),
TBL ( 108, 109 ),
TBL ( 110, 111 ),
TBL ( 112, 113 ),
TBL ( 114, 115 ),
TBL ( 116, 117 ),
TBL ( 118, 119 ),
TBL ( 120, 121 ),
TBL ( 122, 123 ),
TBL ( 124, 125 ),
TBL ( 126, 127 ) );
GLOBAL BIND TABLE1 = YYYYYY;
%([
*****************************************************************
* END OF RMSTAB *
*****************************************************************
])%
END
ELUDOM