.TITLE	BLKHLP
	.IDENT	/V1.0/
	.IF	EQ	DEBUG
	.PSECT	BLKHLP,RO
	.IFF
	.PSECT	BLKHLP,RW
	.ENDC


;+
;	MACHINE/SYSTEM	- PDP-11/70 / IAS V3.0
;	AUTHOR		- JOHN GUIDI
;	DATE		- 22-SEPTEMBER-80
;	RESIDENCE	- LB:[?,?]BLKHLP.MAC
;	LANGUAGE	- MACRO-11 D1113
;
;-


	.MCALL	C$C

	C$C


	.NLIST	BEX
HLPTXT:	.ASCII	<CR><LF>
	.ASCII	\                        BLOCK IDENTIFIER UTILITY (\
	.ASCII	\$$$BLK)\<CR><LF>
	.ASCII	\                        --------------------------\
	.ASCII	\-------\<CR><LF>
	.ASCII	\FUNCTION: OBTAINS FILE DESCRIPTION(S) FOR LBN(S) S\
	.ASCII	\PECIFIED IN INFILE.\<CR><LF>
	.ASCII	\FORMAT:   PDS> BLK [OUTFILE =] INFILE [/DE:DVN] [,\
	.ASCII	\ INFILE [/DE:DVN] ...]\<CR><LF>
	.ASCII	<CR><LF>
	.ASCII	\OUTFILE:                WILL CONTAIN THE LBN,VBN A\
	.ASCII	\ND FILE DESCRIPTION FOR\<CR><LF>
	.ASCII	\                        EACH LBN IN INFILE. OUTFIL\
	.ASCII	\E DEFAULTS TO THE TERMINAL.\<CR><LF>
	.ASCII	<CR><LF>
	.ASCII	\INFILE:                 CONTAINS THE LBN LIST, SOR\
	.ASCII	\TED IN ASCENDING ORDER.\<CR><LF>
	.ASCII	<CR><LF>
	.ASCII	<CR><LF>
	.ASCII	\GLOBAL OPTIONS:\<CR><LF>
	.ASCII	\  ? OR HELP             DISPLAYS THIS HELP FRAME\<CR><LF>
	.ASCII	<CR><LF>
	.ASCII	\OUTFILE OPTIONS:\<CR><LF>
	.ASCII	\      -                 NONE\<CR><LF>
	.ASCII	<CR><LF>
	.ASCII	\INFILE OPTIONS:\<CR><LF>
	.ASCII	\  /DE:DVN               DEVICE NAME AND UNIT NUMBE\
	.ASCII	\R TO WHICH THE LBN(S)\<CR><LF>
	.ASCII	\                        IN INFILE PERTAIN. IF /DE \
	.ASCII	\SWITCH IS NOT SPECIFIED,\<CR><LF>
	.ASCII	\                        SY0: IS USED AS THE DEFAUL\
	.ASCII	\T.\<CR><LF>
	.ASCII	<CR><LF>
	HLPSIZ=.-HLPTXT
	.EVEN
	.LIST	BEX

BLKHLP::
;+
; ROUTINE:	BLKHLP
;
; EFFECTS:	DISPLAYS THE HELP FRAME
;
; INPUTS:	NONE
;
; OUTPUTS:	NONE
;
; ROUTINES
; CALLED:	NONE
;-

	PRINT	#HLPTXT,#HLPSIZ
	RETURN

	.END