Google
 

Trailing-Edge - PDP-10 Archives - BB-P363B-SM_1985 - mcb/mcbda/mdahlp.bli
There is 1 other file named mdahlp.bli in the archive. Click here to see a list.
MODULE MDAHLP (					!Display help file.
		IDENT = '001000',
		LANGUAGE (BLISS16, BLISS36)
		) =
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: MCBDA
!
! ABSTRACT:
!
! Display the help file 'HLP:MCBDA.HLP' to the user.
!
! ENVIRONMENT: ANY
!
! AUTHOR: ALAN D. PECKHAM, CREATION DATE: 8-OCT-79
!
! MODIFIED BY:
!
!	, : VERSION
! 01	-
!--

!
! TABLE OF CONTENTS:
!

FORWARD ROUTINE
    HELP : NOVALUE;				!Display the help file.

!
! INCLUDE FILES
!

LIBRARY 'MDACOM';				!MDA COMMON DEFINITIONS

!
! MACROS:
!
!	NONE
!
! EQUATED SYMBOLS:
!
!	NONE
!
! OWN STORAGE:
!


OWN
    HLPBLK : INITIAL (0);

!
! EXTERNAL REFERENCES:
!

EXTERNAL ROUTINE
    ASSOCIATE,					!Associate file with control block.
    CLOSE,					!Close a file.
    FILNM : NOVALUE,				!Convert file name to ASCII.
    GETFIL,					!Get a word from the file.
    OPEN,					!Open a file.
    PUTFIL : NOVALUE;				!Send text to the listing file.
GLOBAL ROUTINE HELP (FILBLK, FILE_STRING) : NOVALUE =

!++
! FUNCTIONAL DESCRIPTION:
!
!
!
!
! FORMAL PARAMETERS:
!
!
! IMPLICIT INPUTS:
!
!	NONE
!
! IMPLICIT OUTPUTS:
!
!	NONE
!
! ROUTINE VALUE:
!
!	NONE
!
! SIDE EFFECTS
!
!	NONE
!
!--

    BEGIN

    MACRO
	NO_HELP_LINE = %STRING ('% No help available', %CHAR (13, 10)) %;
    OWN
	BUFFER : CH$SEQUENCE (200),
	LENGTH;

    BIND
	BUFFER_PTR = CH$PTR (BUFFER),
	CRLF = CH$ASCII (%CHAR (13, 10)),
	NO_HELP = CH$ASCII (NO_HELP_LINE);

    IF NOT ASSOCIATE (HLPBLK, .FILE_STRING, 0)
    THEN
	RETURN PUTFIL (.FILBLK, NO_HELP, %CHARCOUNT (NO_HELP_LINE));

    IF OPEN (HLPBLK, F_READ, F_ASCII)
    THEN
	BEGIN
	PUTFIL (.FILBLK, CRLF, 2);

	WHILE (LENGTH = GETFIL (HLPBLK, BUFFER_PTR, 200)) GTR 0 DO
	    PUTFIL (.FILBLK, BUFFER_PTR, .LENGTH);

	PUTFIL (.FILBLK, CRLF, 2);
	CLOSE (HLPBLK);
	END
    ELSE
	PUTFIL (.FILBLK, NO_HELP, %CHARCOUNT (NO_HELP_LINE));

    END;					!OF HELP

END

ELUDOM