Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/xpt/xptfwd.bli
There is 1 other file named xptfwd.bli in the archive. Click here to see a list.
module XPTFWD (
IDENT = 'X01000'
) =
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:
!
! This module is an interface to Forwarding, which resides in the
! Transport extension process XPE.
!
! ENVIRONMENT: MCB
!
! AUTHOR: L. Webber , CREATION DATE: 9-Feb-81
!
! MODIFIED BY:
!
! 9-Feb-81 : VERSION 1.00
!
!--
!
! INCLUDE FILES:
!
require 'XPTMAC';
!
! TABLE OF CONTENTS
!
forward routine
FORWARDER,
ECLFWD,
SNDBUF: novalue,
TERMINATE: novalue;
!
! MACROS:
!
!
! EQUATED SYMBOLS:
!
!
! OWN STORAGE:
!
!
! EXTERNAL REFERENCES:
!
external routine
_FORWARDER: CALL$,
_ECLFWD: CALL$,
_SNDBUF: CALL$ novalue,
_TERMINATE: CALL$ novalue;
global
routine FORWARDER (CCB,OLINE): =
!++
! FUNCTIONAL DESCRIPTION:
!
! See _FORWARDER in XPEFWD.
!
! FORMAL PARAMETERS
!
! Ditto.
!
! IMPLICIT INPUTS
!
! NONE.
!
! ROUTINE VALUE:
! COMPLETION CODES:
!
! NONE.
!
! SIDE EFFECTS:
!
! NONE.
!
!--
begin
require 'XPTSYM';
CALL$E(_FORWARDER,(PD_XPE),.CCB,.OLINE)
end; !End of FORWARDER
global
routine ECLFWD (CCB,SOURCE,DEST,RTS) =
!++
! FUNCTIONAL DESCRIPTION:
!
! See _ECLFWD in XPEFWD.
!
! FORMAL PARAMETERS
!
! Ditto.
!
! IMPLICIT INPUTS
!
! NONE.
!
! ROUTINE VALUE:
! COMPLETION CODES:
!
! NONE.
!
! SIDE EFFECTS:
!
! NONE.
!
!--
begin
require 'XPTSYM';
CALL$E(_ECLFWD,(PD_XPE),.CCB,.SOURCE,.DEST,.RTS)
end; !End of ECLFWD
global
routine SNDBUF (LINEb,CCB): novalue =
!++
! FUNCTIONAL DESCRIPTION:
!
! See _SNDBUF in XPEFWD.
!
! FORMAL PARAMETERS
!
! Ditto.
!
! IMPLICIT INPUTS
!
! NONE.
!
! ROUTINE VALUE:
! COMPLETION CODES:
!
! NONE.
!
! SIDE EFFECTS:
!
! NONE.
!
!--
begin
require 'XPTSYM';
CALL$E(_SNDBUF,(PD_XPE),.LINEb,.CCB);
end; !End of SNDBUF
global
routine TERMINATE (CCB,CODE): novalue =
!++
! FUNCTIONAL DESCRIPTION:
!
! See _TERMINATE in XPEFWD.
!
! FORMAL PARAMETERS
!
! Ditto.
!
! IMPLICIT INPUTS
!
! NONE.
!
! ROUTINE VALUE:
! COMPLETION CODES:
!
! NONE.
!
! SIDE EFFECTS:
!
! NONE.
!
!--
begin
require 'XPTSYM';
CALL$E(_TERMINATE,(PD_XPE),.CCB,.CODE);
end; !End of TERMINATE
end !End of Module XPTFWD
eludom