.MCall	.Module
.Module	KEDHL4 RELEASE=V02 VERSION=11 COMMENT=<SET Command Help Frame>,IDENT=NO,AUDIT=NO,GLOBAL=.KEDH4

; Copyright (c) 1998 by Mentec, Inc., Nashua, NH.
; All rights reserved
;
; This software is furnished under a license for use only on a
; single computer system and  may  be  copied  only  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 except for  use  on  such
; system and to one who agrees to these license  terms.  Title
; to  and  ownership of the software shall at all times remain
; in Mentec, Inc.
;
; The information in this document is subject to change without
; notice and should not be construed as a commitment by Digital
; Equipment Corporation, or Mentec, Inc.
;
; Digital and Mentec  assume  no  responsibility for the use or
; reliability of its software on equipment which is not supplied
; by Digital  or Mentec,  and listed  in the  Software  Product
; Description.
	.SbTtl	Assembly parameters

	.Enable	LC
	.Enable	GBL

;
;	VT10$0 NE	VT100 support, ANSI escape sequences, auto
;			screen sizing, auto repeat keyboard turned
;			off when editor busy
;
;	VT10$0 EQ	VT52 support, setup sequence sets VT100 in
;			VT52 mode (ignored by VT52)
;

.IIf NDF,VT10$0,	VT10$0	= 1	;Default to VT100 support

.IIf	NDF	VT62$	VT62$ = 0	;Default to no VT62 support

;
;	DISPLAY APPROPRIATE SUBTITLES FOR OPTIONS
;

	.SbTtl
.If	NE,VT10$0		;VT100 Terminal
	.SbTtl	VT100 Version
.IfF;	NE,VT10$0		;VT100 Terminal
	.SbTtl	VT52 Version
.EndC;	NE,VT10$0		;VT100 Terminal
	.SbTtl
	.SbTtl	Command Help Form Entry Point
	.MCall	PSect
	PSect	$HLP4$

$GtHl4::				;~x~
	Call	@(SP)+			;~x~Pop stack and return to caller
					;  with data address on stack
.If	NE	VT10$0
.Macro	A Data,Last
.IRpC	X,^\DATA\
.IIf	IDN ^\X\,^\%\,	.Byte	<ESC>,<A.CSI>,<A.REV>,<A.SGR>
.IIf	IDN ^\X\,^\#\,	.Byte	<ESC>,<A.CSI>,<A.SGR>
.If	DIF ^\X\,^\%\
.If	DIF ^\X\,^\#\
.Byte	''X
.EndC
.EndC
.EndR
.IIf	B <LAST>	.Byte	<CR>,<LF>
.If	NB <LAST>
.IIf	IDN <LAST>,<END> .Byte	<NoCrLf>
.EndC
.EndM
.IfF;	NE	VT10$0
 .If	NE	VT62$
.Macro	A Data,Last
.IRpC	X,^\DATA\
;;;.IIf	IDN ^\X\,^\%\	.Byte	<ESC>,'<,<ESC>,<A.CSI>,<A.REV>,<A.SGR>,<ESC>,<A.CSI>,<A.DEC>,<AD.OLD>,<A.RM>
.IIf	IDN ^\X\,^\%\	.Byte	<ESC>,<AO.REV>
;;;.IIf	IDN ^\X\,^\#\	.Byte	<ESC>,'<,<ESC>,<A.CSI>,<A.SGR>,<ESC>,<A.CSI>,<A.DEC>,<AD.OLD>,<A.RM>
.IIf	IDN ^\X\,^\#\	.Byte	<ESC>,<AO.NOR>
.If	DIF ^\X\,^\%\
.If	DIF ^\X\,^\#\
.Byte	''X
.EndC
.EndC
.EndR
.IIf	B <LAST>	.Byte	<CR>,<LF>
.If	NB <LAST>
.IIf	IDN <LAST>,<END> .Byte	<NoCrLf>
.EndC
.EndM
.IfF;	NE 	VT62$
.Macro	A Data,Last
.IRpC	X,^\DATA\
.If	DIF ^\X\,^\%\
.If	DIF ^\X\,^\#\
.Byte	''X
.EndC
.EndC
.EndR
.IIf	B <LAST>	.Byte	<CR>,<LF>
.If	NB <LAST>
.IIf	IDN <LAST>,<END> .Byte	<NoCrLf>
.EndC
.EndM
.EndC;	NE	VT62$
.EndC;	NE	VT10$0
	.SbTtl	 Command Help Form

.If	NE	VT10$0
.Macro	DefLin Data,Last
.IRpC	X,<DATA>
.IIf	IDN <'X>,<%>,	.Byte	<ESC>,<A.CSI>,<A.REV>,<A.SGR>
.IIf	IDN <'X>,<#>,	.Byte	<ESC>,<A.CSI>,<A.SGR>
.If	DIF <'X>,<%>
.If	DIF <'X>,<#>
.Byte	''X
.EndC
.EndC
.EndR
.IIf	B <LAST>	.Byte	<CR>,<LF>
.If	NB <LAST>
.IIf	IDN <LAST>,<END> .Byte	<NoCrLf>
.EndC
.EndM
.IfF;	NE	VT10$0
 .If	NE	VT62$
.Macro	DefLin Data,Last
.IRpC	X,<DATA>
;;;.IIf	IDN ^\X\,^\%\	.Byte	<ESC>,'<,<ESC>,<A.CSI>,<A.REV>,<A.SGR>,<ESC>,<A.CSI>,<A.DEC>,<AD.OLD>,<A.RM>
.IIf	IDN ^\X\,^\%\	.Byte	<ESC>,<AO.REV>
;;;.IIf	IDN ^\X\,^\#\	.Byte	<ESC>,'<,<ESC>,<A.CSI>,<A.SGR>,<ESC>,<A.CSI>,<A.DEC>,<AD.OLD>,<A.RM>
.IIf	IDN ^\X\,^\#\	.Byte	<ESC>,<AO.NOR>
.If	DIF <'X>,<%>
.If	DIF <'X>,<#>
.Byte	''X
.EndC
.EndC
.EndR
.IIf	B <LAST>	.Byte	<CR>,<LF>
.If	NB <LAST>
.IIf	IDN <LAST>,<END> .Byte	<NoCrLf>
.EndC
.EndM
.IfF;	NE 	VT62$
.Macro	DefLin Data,Last
.IRpC	X,<DATA>
.If	DIF <'X>,<%>
.If	DIF <'X>,<#>
.Byte	''X
.EndC
.EndC
.EndR
.IIf	B <LAST>	.Byte	<CR>,<LF>
.If	NB <LAST>
.IIf	IDN <LAST>,<END> .Byte	<NoCrLf>
.EndC
.EndM
.EndC;	NE	VT62$
.EndC;	NE	VT10$0

DefLin	<                       Summary of >,CONT
.Byte	<Name.1>,<Name.2>,<Name.3>
DefLin	< Commands, continued>
DefLin	<>

.If NE,VT10$0	;If VT100
.Byte									<SO>
A ^\qqqqqqqqqqqqqqqqqqqqqq SPECIFYING SEARCH CHARACTERISTICS qqqqqqqqqqqqqqqqqqqqqq\
.Byte									<SI>
.IfF
DefLin	<_______________________SPECIFYING SEARCH CHARACTERISTICS______________________>
.EndC	;NE,VT10$0
DefLin	<>
DefLin	< %SE#T [%SEA#RCH] %G#ENERAL          Match regardless of case>
DefLin	< %SE#T [%SEA#RCH] %EX#ACT            Case must match>
DefLin	< %SE#T [%SEA#RCH] %BE#GIN            Position at beginning of target>
DefLin	< %SE#T [%SEA#RCH] %EN#D              Position at end of target>
DefLin	< %SE#T [%SEA#RCH] %BO#UNDED          Search within one page>
DefLin	< %SE#T [%SEA#RCH] %U#NBOUNDED        Search across page boundaries>
DefLin	< %SE#T [%SEA#RCH] %[NO]S#ELECT       Select search target>
DefLin	< %SE#T [%SEA#RCH] %[NO]R#ETURN       Maintain current position if search fails>
DefLin	<>

.If NE,VT10$0	;If VT100
.Byte									<SO>
A ^\qqqqqqqqqqqqqqqqqqqqqqqqqqqqqq FORMATTING TEXT qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq\
.Byte									<SI>
.IfF
DefLin	<_______________________________FORMATTING TEXT________________________________>
.EndC	;NE,VT10$0
DefLin	<>
DefLin	< %SE#T %T#ABS [indent]             Specify base tab size>
DefLin	< %SE#T %NOT#ABS                    Cancel tab feature>
DefLin	< [%T#ABS] %A#DJUST [+-]level       Adjust indentation in select range>
DefLin  < %SE#T %WR#AP [column]             Set right margin for wrap and FILL>
DefLin	< %SE#T %NOWR#AP                    Cancel wrap feature>
DefLin	< %F#ILL                          Reformat text in select range>,END
	.End