Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/xpt/xpeini.bli
There is 1 other file named xpeini.bli in the archive. Click here to see a list.
module XPEINI (
IDENT = 'X01030'
) =
begin
!
! COPYRIGHT (c) 1980, 1981, 1982
! DIGITAL EQUIPMENT CORPORATION
! Maynard, Massachusetts
!
! 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 which is not supplied by
! DIGITAL.
!
!++
! FACILITY: Transport
!
! ABSTRACT:
!
! Transport extension initialization process; called only on process
! initialization
!
! ENVIRONMENT: MCB
!
! AUTHOR: L. Webber , CREATION DATE: 15-Apr-80
!
! MODIFIED BY:
!
! 21-Oct-80 : VERSION 1.00
!
! 1.01 L. Webber, 11-Dec-80
! Modify to support MCB 3.1
!
! 1.02 L. Webber, 20-Jan-81
! Take out $XPTDB, $NLN, to make XPE read-only
!
!--
!
! INCLUDE FILES:
!
require 'XPTMAC';
!
! TABLE OF CONTENTS
!
forward routine
XPEDB: CALL$ novalue;
!
! MACROS:
!
!
! EQUATED SYMBOLS:
!
!
! OWN STORAGE:
!
global bind _MAXVAL = uplit( ! Maximum unsigned value of
255,65535,16776215,4294967296); ! 1, 2, 3, and 4-byte values
!
! EXTERNAL REFERENCES:
!
external
_CRDAT: vector[2]; ! Base for Transport data base
global
routine XPEDB (DBADDR): CALL$ novalue =
!++
! FUNCTIONAL DESCRIPTION:
!
! Called from the XPT process on initialization, which passes the
! address of the Transport data base.
!
! FORMAL PARAMETERS
!
! DBADDR Address of the Transport data base
!
! IMPLICIT INPUTS
!
! NONE.
!
! ROUTINE VALUE:
! COMPLETION CODES:
!
! NONE.
!
! SIDE EFFECTS:
!
! NONE.
!
!--
begin
_CRDAT[1] = .DBADDR;
end; !End of XPEDB
end !End of module XPEINI
eludom