Google
 

Trailing-Edge - PDP-10 Archives - BB-H138F-BM_1988 - 7-sources/rmstab.b36
There are 6 other files named rmstab.b36 in the archive. Click here to see a list.
%TITLE 'T A B L  -- tables'
!<BLF/REQUIRE 'RMSBLF.REQ'>
MODULE tabl (IDENT = '2.0'
		) =
BEGIN

GLOBAL BIND
    tablv = 2^24 + 0^18 + 400;			! Edit date: 22-Apr-83

!+
!
!
!
!	COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1977, 1986.
!	ALL RIGHTS RESERVED.
!
!	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 THAT IS NOT SUPPLIED BY DIGITAL.
!
!
!
!    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
!    ======	======	=====		===========
!
!    302	300	XXXXX		Delete ABR from ^Z, ESC to match
!    					new DEC stream-file standard.
!
!    400	400	xxxxx	        Clean up BLISS code (RL,22-Apr-83)
!
!    411        ---     xxxxx           Implement new key datatypes
!
!    ***** 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 (dtpstm, typecharacter, stringbytesize),	! Stream
	datatype (dtpebc, typecharacter, ebcdicbytesize),	! EBCDIC
	datatype (dtpsix, typecharacter, sixbitbytesize),	! SIXBIT
        datatype (dtppac, typenumeric,   packedbytesize),       ! PACKED  !A411
        datatype (dtpin4, typenumeric,   in4bytesize),          ! IN4     !A411
        datatype (dtpfl1, typenumeric,   fl1bytesize),          ! FL1     !A411
        datatype (dtpfl2, typenumeric,   fl2bytesize),          ! FL2     !A411
        datatype (dtpgfl, typenumeric,   gflbytesize),          ! GFL     !A411
        datatype (dtpin8, typenumeric,   in8bytesize),          ! IN8     !A411
        datatype (dtpas8, typecharacter, as8bytesize),          ! AS8     !A411
        datatype (dtpun4, typenumeric,   in4bytesize) );        ! UN4     !A411
	

GLOBAL BIND
    dtptable = xxxxxx : BLOCK;

!+
!
!    *****************************************************************
!    *		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 significant
		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, 27 ),			! ^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