.MCall	.Module
.Module	KEDHL2 RELEASE=V02 VERSION=18 COMMENT=<Command Help Frame>,IDENT=NO,AUDIT=NO,GLOBAL=.KEDH2

; 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.
	.Enable	LC
	.Enable	GBL
;
;
;MODULE:	KEDHL2	- KED command help form
;
;VERSION:	V01.01
;
;AUTHOR:	Cheryl Vedoe
;
;DATE:		18-July-79
;
;

	.SbTtl	Assembly parameters

;
;	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	Action Command Help Form Entry Point
	.MCall	PSect
	PSect	$HLP2$

$GtHl2::				;~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>
DefLin	<>

.If NE,VT10$0	;If VT100
.Byte									<SO>
A ^\qqqqqqqqqqqqqqqqqqqqqqqq ENDING YOUR WORK SESSION qqqqqqqqqqqqqqqqqqqqqqqqqqqqq\
.Byte									<SI>
.IfF
DefLin	<___________________________ENDING YOUR WORK SESSION___________________________>
.EndC	;NE,VT10$0

DefLin	<>
DefLin	< %EXIT#                          Write output file and end session>
DefLin	< %EXIT S#AVE                     Same as EXIT, saving journal file>
DefLin	< %QUIT#                          End session>
DefLin	< %QUIT S#AVE                     Same as QUIT, saving journal file>
DefLin	<>
.If NE,VT10$0	;If VT100
.Byte									<SO>
A ^\qqqqqqqqqqqqqqqqqqqqqqq USING AUXILIARY TEXT FILES qqqqqqqqqqqqqqqqqqqqqqqqqqqqq\
.Byte									<SI>
.IfF
DefLin	<__________________________USING AUXILIARY TEXT FILES__________________________>
.EndC
DefLin	<>
DefLin	< [%OP#EN] %INP#UT filespec         Open auxiliary file for inclusion>
DefLin	< [%OP#EN] %OU#TPUT filespec        Open auxiliary file for write>
DefLin	< %CLO#SE                         Close auxiliary output file>
DefLin	< %PURGE#                         Purge auxiliary output file>
DefLin	< %W#RITE entity                  Write entity to auxiliary output file>
DefLin	< %INC#LUDE entity                Include entity from auxiliary input file>
DefLin	< %SK#IP entity                   Skip entity in auxiliary input file>
DefLin	<>
DefLin	< where "entity" can be:>
DefLin	<   %S#ELECT (WRITE only)>
DefLin	<   integer %P#AGES> 
DefLin	<   integer [%L#INES]>
DefLin	<   %R#EST>,END
	.End