Google
 

Trailing-Edge - PDP-10 Archives - BB-JF18A-BM - sources/rms/rmsreq.r36
There are 6 other files named rmsreq.r36 in the archive. Click here to see a list.
!
!	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.

%([

*********************************************************
*							*
*							*
*			RMSREQ.REQ			*
*							*
*							*
*********************************************************

AUTHOR: ANWAR UDDIN/RL
])%


! THIS REQUIRE FILE CONTAINS ALL THE DECLARATIONS AND MACROS
! REQUIRED BY RMS.
! SO "REQUIRE 'RMSREQ.REQ'; IS ALL THAT IS NECESSARY TO "BIND" A RMS MODULE
! TO THE RMS SYSTEM DECLARATIONS.
!
! RMS DECLARATIONS AND MACROS ARE PROCOMPILED INTO RMSINT.L36
! THE DECLARATIONS IN RMSREQ ITSELF ARE THE ONES THAT COULD NOT
! BE PRECOMPILED BECAUSE OF THE BLISS-36 RESTRICTIONS.
! EXAMPLE OF ONE SUCH DECLARATION IS THE 'MAP' DECLARATION.


LIBRARY 'RMSITR';                                                       !m572
%IF (%VARIANT AND 32) EQL 0
%THEN LIBRARY 'RMSLIB';
%FI

LIBRARY 'DAP';
LIBRARY 'BLI:XPORT';

MAP
    adb : REF $rms_adb[8],                      ! Area Descriptor Block
    cbd : REF $rms_bucket_descriptor,           ! Current bucket desc (in RST)
    fab : REF $fab_decl,			! User Record File Block
    fpt : REF $rms_fpt,				! User File Prologue Table
    fst : REF $rms_fst,				! File Status Table pointer
    kdb : REF $rms_kdb,				! Key Descriptor Block
    rab : REF $rab_decl,			! User Record Access Block
    rst : REF $rms_rst;				! Record Status Table pointer