Google
 

Trailing-Edge - PDP-10 Archives - BB-P363B-SM_1985 - t20/nmlt20/nmunfl.bli
There is 1 other file named nmunfl.bli in the archive. Click here to see a list.
module NMUFIL	(
		ident = 'DUMMY'
		) =
begin

!
!			  COPYRIGHT (c) 1981 BY
!	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
! 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: LSG DECnet Network Management
!
! Abstract:
!
!	Dummy module for NMUFIL.
!
! Environment:	User Mode on TOPS-20, TOPS-10, RSX-11/MCB
!
! Author: Steven M. Jenness & Dale C. Gunn, Creation date: 19-Jun-81
!
!--
!
! Include files:
!

library 'NMULIB';                       ! Get all required definitions

!
! Table of contents
!

forward routine
        NMU$FILE_INITIALIZE : novalue,  ! Initialize file interface
	NMU$FILE_OPEN,                  ! Open file for access
	NMU$FILE_READ,
	NMU$FILE_WRITE,
	NMU$FILE_SEEK,
	NMU$FILE_SKIP,
	NMU$FILE_CLOSE;

!
! Equated symbols:
!

!
! Own storage:
!

!
! External references:
!
%global_routine ('NMU$FILE_INITIALIZE') : novalue =

    begin
    $NICE$ERR_UFO
    end;				! End of NMU$FILE_INITIALIZE
%global_routine ('NMU$FILE_OPEN', FILE_TYPE, HOST, FILE_NAME, RSP_PTR) =

    begin
    $NICE$ERR_UFO
    end;				! End of NMU$FILE_OPEN
%global_routine ('NMU$FILE_READ', FILE_ID, DEST_PTR, DEST_COUNT, RSP_PTR) =

    begin
    $NICE$ERR_UFO
    end;				! End of NMU$FILE_READ
%global_routine ('NMU$FILE_WRITE', FILE_ID, SOURCE_PTR, WRITE_COUNT, RSP_PTR) =

    begin
    $NICE$ERR_UFO
    end;				! End of NMU$FILE_WRITE
%global_routine ('NMU$FILE_SEEK', FILE_ID, BYTE_POSITION, RSP_PTR) =

    begin
    $NICE$ERR_UFO
    end;				! End of NMU$FILE_SEEK
%global_routine ('NMU$FILE_SKIP', FILE_ID, BYTE_COUNT, RSP_PTR) =

    begin
    $NICE$ERR_UFO
    end;				! End of NMU$FILE_SKIP
%global_routine ('NMU$FILE_CLOSE', FILE_ID, RSP_PTR) =

    begin
    $NICE$ERR_UFO
    end;				! End of NMU$FILE_CLOSE

end				! End of Module NMUFIL
eludom
! Local Modes:
! Mode:BLISS
! Auto Save Mode:2
! Comment Column:40
! Comment Rounding:+1
! End: