Google
 

Trailing-Edge - PDP-10 Archives - BB-R595B-SM_11-9-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