.MCall	.Module
.Module	KEDHL3 RELEASE=V02 VERSION=11 COMMENT=<Command Help Frame #2>,IDENT=NO,AUDIT=NO,GLOBAL=.KEDH3

; 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	$HLP3$

$GtHl3::				;~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 ^\qqqqqqqqqqqqqqqqqqqq DEFINING PAGE AND SECTION PARAMETERS qqqqqqqqqqqqqqqqqqqqq\
.Byte									<SI>
.IfF
DefLin	<_____________________DEFINING PAGE AND SECTION PARAMETERS_____________________>
.EndC	;NE,VT10$0
DefLin	<>
DefLin	< %SE#T [%ENT#ITY] %P#AGE "string"               Define page delimiter>
DefLin	< %SE#T [%ENT#ITY] %P#AGE integer [%L#INES]        Define page size>
DefLin	< %SE#T [%ENT#ITY] %SEC#TION "string"            Define section delimiter>
DefLin	< %SE#T [%ENT#ITY] %SEC#TION integer [%L#INES]     Define section size>
DefLin	<>


.If NE,VT10$0	;If VT100
.Byte									<SO>
A ^\qqqqqqqqqqqqqqqqqqqqqqqqqq USING THE MACRO FACILITY qqqqqqqqqqqqqqqqqqqqqqqqqqq\
.Byte									<SI>
.IfF
DefLin	<___________________________USING THE MACRO FACILITY___________________________>
.EndC	;NE,VT10$0
DefLin	<>
DefLin	< %LE#ARN [macro_name]            Include following commands in macro (default='\')>
DefLin	< %SA#VE macro_name filespec      Save macro in auxiliary file>
DefLin	< %LOA#D macro_name filespec      Load macro from auxiliary file>
DefLin	< %@# filespec                    Execute contents of auxiliary file>
DefLin	< %CLE#AR %M#ACRO macro_name        Clear macro buffer>
DefLin	< %CLE#AR %A#LL %M#ACROS              Clear all existing macro buffers>
DefLin	<>



.If NE,VT10$0	;If VT100
.Byte									<SO>
A ^\qqqqqqqqqqqqqqqqqqqqqqqqqqqq SPECIAL USE COMMANDS qqqqqqqqqqqqqqqqqqqqqqqqqqqqq\
.Byte									<SI>
.IfF
DefLin	<_____________________________SPECIAL USE COMMANDS_____________________________>
.EndC	;NE,VT10$0

DefLin	<>
DefLin	< %CLE#AR %P#ASTE                   Clear the paste buffer>
DefLin	< %LOC#AL [start [increment]]     Reorder MACRO-11 local symbols>,END
	.End