.TITLE	REFHLP - REFormat Help File
	.IDENT	/1.0/
	.ENABL	LC
;+
;
;			  Free software BY
;		Project Software & Development, Inc.
;
; This software is furnished for free and may be used and  copied as
; desired. This software or  any  other copies  thereof may be provided
; or otherwise made available to any other person.  No title to and
; ownership of  the  software  is  hereby transferred or allowed. 
;
; The information in this software is subject to change  without  notice
; and  should  not  be  construed  as  a commitment by PROJECT SOFTWARE
; AND DEVELOPMENT, INC.
;
; PROJECT SOFTWARE assumes no responsibility for the use or  reliability  
; of this software on any equipment whatsoever.
;
;	Project Software & Development, Inc.
;	14 Story St.
;	Cambridge, Ma. 02138
;	617-661-1444
;
;
; Title:	REFHLP.MAC
; Author:	Robin Miller
; Date:		December 13, 1982
;
; Description:
;
;	Help file for REFormat program.
;
; Modification History:
;
;-
	.ENABL	AMA
	.NLIST	BEX

	.MCALL	PUT$


;	Local equates:

	SPACE	=	32.		; ASCII for 'SPACE'.

;	Macro to generate the help text table:

	.MACRO	H	HLPTXT
	.NCHR	$$$,<HLPTXT>
	.PSECT	$HLPS,RO,D,REL,CON
$$$MSG=.
	.ASCII	<SPACE><SPACE>\HLPTXT\
	.PSECT
	.WORD	$$$MSG
	.WORD	$$$+2
	.ENDM

;	Generate the help text.

HLPTBL:
H <>
H <REFormat is a program used to convert input files into variable length>
H <output files with implied carriage control. REFormat will also do ascii>
H <and ebcdic conversions.>
H <>
H <Command line format:>
H <>
H <     input_file/switches output_file/switches>
H <>
H <Where switches are:>
H <>
H <  /ASCII	- convert input file from ascii to ebcdic.>
H <  /EBCDIC	- convert input file from ebcdic to ascii.>
H <  /VFU       - input file contains line printer Vertical Format Control.>
H <  /TOTAL     - output number of records and bytes written to output file.>
H <  /BACK (D)  - remove the delete sequence from input file.>
H <  /ESC  (D)  - break output records on cursor positioning escape sequences.>
H <  /NAME (D)  - output the name of the reformatted output file.>
H <>
H <To negate a switch use a '-' or 'NO'.>
H <>
	.WORD	0,0			; End of help table.


;	Action routine to output the help information.

HELP::	CALL	$SAVAL			; Save all registers.
	MOV	#TOFDB,R0		; Address of terminal output FDB.
	MOV	#HLPTBL,R3		; Address of help text table.

10$:	MOV	(R3)+,R1		; Copy the buffer address.
	BEQ	20$			; If EQ, end of table.
	MOV	(R3)+,R2		; Copy the buffer length.
	PUT$	R0,R1,R2		; Write a line to the terminal.
	BCC	10$			; If CC, success.
	CALL	FILERR			; Else, report the error message.

20$:	BIC	#B.CMNT,STATUS		; Clear status word for next command
	RETURN

	.END