.TITLE REFHLP - GET HELP FOR REFORMAT .IDENT /2.1/ .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: Gary N. Larsen ; Date: April 1, 1982 ; ; Description: ; ; This program sets up the help buffer to be passed to SPAWN ; for processing. The topic is passed from message in register 2. ; ; ; Modification History: ; ; Date By Reason ; ---- -- ------ ; 19-May-82 Robin Miller Removed RSXNET specific code so this ; module will work for REFORMAT. ; ; 27-Jul-82 Murph Include the help message in the module ; instead of using spawn. ;- .ENABL AMA .NLIST BEX .MCALL QIOW$S ; Local equates CR = 15 ; CARRIAGE RETURN LF = 12 ; LINE FEED HLPMSG:: .ASCII %REFORMAT is a macro program which strips nulls, removes deleted% .ASCII %characters (i.e. BS SP BS), converts LF/CR to CR/LF, etc. It% .ASCII %creates an output file in a format which you can then edit (if desired).% .ASCII %For example:% .ASCII %>REF% .ASCII %REFORMAT Version 3.1% .ASCII %Enter the name of the input file: TEST.DAT% .ASCII %Enter the name of the output file (TEST.DAT):% .ASCII %Reformatting complete ...% .ASCII %>% HLPLEN=.-HLPMSG .EVEN .SBTTL REFHLP - GET HELP ;+ ; ; REFHLP - GET HELP FOR REFORMAT ; ; This routine is called to print out the help for reformat. ; ; Inputs: ; HLPMSG = the address of the help string. ; HLPLEN = the length of the help string ; ; Outputs: ; None ; ; All registers are preserved. ; ;- REFHLP:: QIOW$S #IO.WVB,#TILUN,#TIEFN,,#TIOSB,,<#HLPMSG,#HLPLEN,#40> RETURN .END