.MCall	.Module
.Module	KEDHL5 RELEASE=V02 VERSION=10 COMMENT=<Command Help Frame #5>,IDENT=NO,AUDIT=NO,GLOBAL=.KEDH5

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

$GtHl5::				;~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 CONTROLLING THE JOURNAL FACILITY qqqqqqqqqqqqqqqqqqqqqqq\
.Byte									<SI>
.IfF
DefLin	<_______________________CONTROLLING THE JOURNAL FACILITY_______________________>
.EndC	;NE,VT10$0
DefLin	<>
DefLin	< %W#RITE %J#OURNAL                 Update journal file>
DefLin	< %SE#T %JO#URNAL %[NO]SA#VE          Save journal on EXIT or QUIT>
DefLin	< %SE#T %FR#EQUENCY integer         Specify frequency of journal writes>
DefLin	<>

.If NE,VT10$0	;If VT100
.Byte									<SO>
A ^\qqqqqqqqqqqqqqqqqqq SPECIFYING WORK SESSION CHARACTERISTICS qqqqqqqqqqqqqqqqqqq\
.Byte									<SI>
.IfF
DefLin	<____________________SPECIFYING WORK SESSION CHARACTERISTICS___________________>
.EndC	;NE,VT10$0
DefLin	<>
DefLin	< %SE#T %[NO]Q#UIET                 Signal errors with reverse video>
DefLin	< %SE#T %[NO]H#ELP                  Disable full help screens>
DefLin	< %SE#T %[NO]WO#RKING               Control use of "Working" message>
DefLin	< %SE#T %ER#ROR %S#TOP                Stop executing on error>
DefLin	< %SE#T %ER#ROR %C#ONTINUE            Continue executing on error>
DefLin	<>

.If NE,VT10$0	;If VT100
.Byte									<SO>
A ^\qqqqqqqqqqqqqqqqqqqqqqq SETTING SCREEN CHARACTERISTICS qqqqqqqqqqqqqqqqqqqqqqqq\
.Byte									<SI>
.IfF
DefLin	<________________________SETTING SCREEN CHARACTERISTICS________________________>
.EndC	;NE,VT10$0
DefLin	<>
DefLin	< %SE#T [%SC#REEN] %80#               Set screen width to 80 columns>
DefLin	< %SE#T [%SC#REEN] %132#              Set screen width to 132 columns>
DefLin	< %SE#T [%SC#REEN] %D#ARK             Display with dark background>
DefLin	< %SE#T [%SC#REEN] %L#IGHT            Display with light background>,END
	.End