.MCall	.Module
.Module	KEDDEF RELEASE=V02 VERSION=22 COMMENT=<Set Defaults>,IDENT=NO,AUDIT=NO

; 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
;
;MODULE:	KEDDEF
;		
;ABSTRACT:
;
; This module contains default options which may be modified by SIPP
; or other binary patching programs to alter the default actions of
; KED (and it's cousins).
;

.IIf	NDF	Virt$	Virt$=0
.IIf	NDF	Rsts$	Rsts$=0
.IIf	NDF	VT10$0	VT10$0=1

.MCall	PSect			; from KedMac.MLB

.SbTtl	Define default values and global addresses for these

	PSect	KEDDEF

..MaxM::.Word	177776		;~d~ default max memory to ask for
..EExt::.Rad50	"MAC"		;~d~ default input/backup extension
..IExt::.Rad50	"LST"		;~d~ default /Inspect extension

;..SwtA::.Byte	'A		;~d~ letter value of allocate switch (/A)
;..SwtC::.Byte	'C		;~d~ letter value of create switch (/C)
;..SwtI::.Byte	'I		;~d~ letter value of Inspect switch (/I)
;..SwtN::.Byte	'N		;~d~ letter value of no-init-file switch (/N)
..Yes::	.Byte	'Y		;~d~ uppercase first letter of "YES"
..LcFF::.Byte	200		;~d~ impossible value for "FF" for LOCAL
				; command search boundary. Patch to
				; "FF" for old functionality
..MacS::.Word	512.		;~d~ Bytes in shared macro buffer
..MacN::.Word	8.		;~d~ Max number of definitions in shared mac buf
..JDev::.Rad50	"   "		;~d~if non-zero (non-blank) journal output device
.SbTtl	Names for control (C0) characters

NUL	==:	000	; Null
BEL	==:	007	; Bell character
BS	==:	010	; BackSpace
HT	==:	011	; Horizontal Tab
LF	==:	012	; LineFeed
FF	==:	014	; FormFeed
CR	==:	015	; CarriageReturn
.If	NE	Rsts$
SO	==:	216
SI	==:	217
ESC	==:	233	; Escape character
.IfF;	NE	Rsts$
SO	==:	016
SI	==:	017
ESC	==:	033	; Escape character
.EndC;	NE	Rsts$
UCase	==:	040	; Bit to clear to force uppercase
SPC	==:	040	; Space character
DEL	==:	177	; Delete character
NoCrLf	==:	200	; end .Print string for NO CR LF

Ctrl.C	==:	'C-100	; Control/C
Ctrl.R	==:	'R-100	; Control/R
Ctrl.U	==:	'U-100	; Control/U
Ctrl.W	==:	'W-100	; Control/W
Ctrl.Z	==:	'Z-100	; Control/Z

G.Ctrl	==:	'^	; character used to "flag" control char displays

C.1Quot	==:	''	; Ascii single quote
C.2Quot	==:	'"	; Ascii double quote
C.Zero	==:	'0	; Ascii numeral 0
C.Nine	==:	'9	; Ascii numeral 9
C.UC.A	==:	'A	; uppercase A
C.UC.Z	==:	'Z	; uppercase Z
C.LC.a	==:	'a	; lowercase a
C.LC.z	==:	'z	; lowercase z
.SbTtl	Define names for Escape sequence elements
.SbTtl	.	For VT52s
AO.Key	==:	'?	; <ESC><AO.KEY><K.*> VT52 function key sequence
AO.EGf	==:	'F	; <ESC><AO.EGF> VT52 enter graphics mode
AO.XGf	==:	'G	; <ESC><AO.XGF> VT52 exit graphics mode
AO.Hom	==:	'H	; <ESC><AO.HOM> VT52 Home cursor
AO.RLF	==:	'I	; <ESC><AO.RLF> VT52 reverse line feed
AO.ED	==:	'J	; <ESC><AO.ED> VT52 erase screen
AO.EL	==:	'K	; <ESC><AO.EL> VT52 erase line
AO.Rev	==:	'T	; <ESC><AO.REV> VT62 SGR A.REV
AO.Nor	==:	'U	; <ESC><AO.NOR> VT62 SGR A.NORM
AO.DCA	==:	'Y	; <ESC><AO.DCA><37+line><37+column> VT52 cursor addressing
AO.XHS	==:	'\	; <ESC><AO.XHS> VT52 exit screen hold mode

.SbTtl	.	DEC private
AD.LB	==:	'#	; <ESC><AD.LB>... private 3 char sequences
  AD.SWL==:	'5	; <ESC><AD.LB><AD.SWL> single width line
AD.SC	==:	'7	; <ESC><AD.SC> Save Cursor
AD.RC	==:	'8	; <ESC><AD.RC> Restore Cursor
AD.ANM	==:	'<	; <ESC><AD.ANM> Set ANSI mode (from VT52 mode)
AD.KPA	==:	'=	; <ESC><AD.KPA> Set KeyPad Application mode
AD.KPN	==:	'>	; <ESC><AD.KPN> Set KeyPad Numeric Mode

AD.CCK	==:	'1	; <ESC><A.CSI><A.DEC><AD.CCK><A.SM/RM> Cursor Key mode
AD.Old	==:	'2	; <ESC><A.CSI><A.DEC><AD.OLD><A.RM??> VT52 mode
AD.Col	==:	'3	; <ESC><A.CSI><A.DEC><AD.COL><A.SM/RM> Column mode
AD.Scn	==:	'5	; <ESC><A.CSI><A.DEC><AD.SCN><A.SM/RM> Screen mode (light/dark)
AD.OM	==:	'6	; <ESC><A.CSI><A.DEC><AD.OM><A.SM/RM> Origin mode
AD.ARM	==:	'8	; <ESC><A.CSI><A.DEC><AD.ARM><A.SM/RM> Auto repeat mode
AD.STB	==:	'r	; <ESC><A.CSI>...<A.SEP>...<AD.STB> Set Top and Bottom

.SbTtl	.	ANSI sequences
A.CSI	==:	'[	; <ESC><A.CSI> ... Control String Introducer
A.Dec	==:	'?	; <ESC><A.CSI><A.DEC> ... Private CSI
A.Sep	==:	';	; <ESC><A.CSI> ... <A.SEP> ... Parameter separator

A.SCS1	==:	')	; <ESC><A.SCS1> ... Set G1 character set
  A.Line==:	'0	; <ESC><A.SCS1><A.LINE> select line drawing set
A.CUU	==:	'A	; <ESC><A.CSI> ... <A.CUU> Cursor Up
A.CUD	==:	'B	; <ESC><A.CSI> ... <A.CUD> Cursor Down
A.CUF	==:	'C	; <ESC><A.CSI> ... <A.CUF> Cursor Forward
A.CUB	==:	'D	; <ESC><A.CSI> ... <A.CUB> Cursor Backward
A.CUP	==:	'H	; <ESC><A.CSI> ... <A.SEP> ... <A.CUP> Cursor Position
A.ED	==:	'J	; <ESC><A.CSI> ... <A.ED> Erase display: cursor to end
A.EL	==:	'K	; <ESC><A.CSI> ... <A.EL> Erase line: cursor to end
A.RI	==:	'M	; <ESC><A.RI> Reverse index
A.SS3	==:	'O	; <ESC><A.SS3><K.*> Application mode keypad/cursor
A.CPR	==:	'R	; <ESC><A.CSI> ... <A.SEP> ... <A.CPR> cursor position report
A.SM	==:	'h	; <ESC><A.CSI> ... <A.SM> Set Mode
A.RM	==:	'l	; <ESC><A.CSI> ... <A.RM> Reset Mode
  A.Rep	==:	'4	; <ESC><A.CSI><A.REP><A.RM> Replace mode
A.SGR	==:	'm	; <ESC><A.CSI> ... <A.SGR> Select Graphic Rendition
  A.Norm==:	'0	; <ESC><A.CSI><A.NORM><A.SGR> Normal display
  A.Bold==:	'1	; <ESC><A.CSI><A.BOLD><A.SGR> Bold display
  A.Undr==:	'4	; <ESC><A.CSI><A.UNDR><A.SGR> Underlined display
  A.Blnk==:	'5	; <ESC><A.CSI><A.BLNK><A.SGR> Blinking display
  A.Rev	==:	'7	; <ESC><A.CSI><A.REV><A.SGR> Reversed display
A.DSR	==:	'n	; <ESC><A.CSI> ... <A.DSR> device status report
  A.RCPR==:	'6	; <ESC><A.CSI><A.RCSR><A.DSR> request CPR
.SbTtl	Escape strings generated by keys

K.Up	==:	A.CUU	; <ESC><A.CSI><K.Up> Up arrow key
			; <ESC><K.Up> for VT52
K.Down	==:	A.CUD	; <ESC><A.CSI><K.Down> Down arrow key
			; <ESC><K.Down> for VT52
K.Right	==:	A.CUF	; <ESC><A.CSI><K.Right> Right arrow key
			; <ESC><K.Right> for VT52
K.Left	==:	A.CUB	; <ESC><A.CSI><K.Left> Left arrow key
			; <ESC><K.Left> for VT52

K.PF1	==:	'P	; <ESC><A.SS3><K.PF1> PF1 key
			; <ESC><K.PF1> for VT52
K.PF2	==:	'Q	; <ESC><A.SS3><K.PF2> PF2 key
			; <ESC><K.PF2> for VT52
K.PF3	==:	'R	; <ESC><A.SS3><K.PF3> PF3 key
			; <ESC><K.PF3> for VT52
K.PF4	==:	'S	; <ESC><A.SS3><K.PF4> PF4 key

K.Enter	==:	'M	; <ESC><A.SS3><K.Enter> for application keypad "ENTER"
			; <ESC><A.KEY><K.Enter> for VT52
K.Comma	==:	'l	; <ESC><A.SS3><K.Comma> for application keypad ","
K.Minus	==:	'm	; <ESC><A.SS3><K.Minus> for application keypad "-"
K.Dot	==:	'n	; <ESC><A.SS3><K.Dot> for application keypad "."
			; <ESC><A.KEY><K.Dot> for VT52
K.0	==:	'p	; <ESC><A.SS3><K.0> for application keypad "0"
			; <ESC><A.KEY><K.0> for VT52
K.1	==:	'q	; <ESC><A.SS3><K.1> for application keypad "1"
			; <ESC><A.KEY><K.1> for VT52
K.2	==:	'r	; <ESC><A.SS3><K.2> for application keypad "2"
			; <ESC><A.KEY><K.2> for VT52
K.3	==:	's	; <ESC><A.SS3><K.3> for application keypad "3"
			; <ESC><A.KEY><K.3> for VT52
K.4	==:	't	; <ESC><A.SS3><K.4> for application keypad "4"
			; <ESC><A.KEY><K.4> for VT52
K.5	==:	'u	; <ESC><A.SS3><K.5> for application keypad "5"
			; <ESC><A.KEY><K.5> for VT52
K.6	==:	'v	; <ESC><A.SS3><K.6> for application keypad "6"
			; <ESC><A.KEY><K.6> for VT52
K.7	==:	'w	; <ESC><A.SS3><K.7> for application keypad "7"
			; <ESC><A.KEY><K.7> for VT52
K.8	==:	'x	; <ESC><A.SS3><K.8> for application keypad "8"
			; <ESC><A.KEY><K.8> for VT52
K.9	==:	'y	; <ESC><A.SS3><K.9> for application keypad "9"
			; <ESC><A.KEY><K.9> for VT52
.SbTtl	Names for Line Drawing Set characters

G.Diam	==:	'`	; Diamond
G.CkBd	==:	'a	; Checkerboard
G.HT	==:	'b	; H/T
G.FF	==:	'c	; F/F
G.CR	==:	'd	; C/R
G.LF	==:	'e	; L/F
G.Dgre	==:	'f	; Degree mark
G.PlMi	==:	'g	; +/-
G.NL	==:	'h	; N/L
G.VT	==:	'i	; V/T
G.BR	==:	'j	; Bottom Right corner
G.TR	==:	'k	; Top Right corner
G.TL	==:	'l	; Top Left corner
G.BL	==:	'm	; Bottom Left corner
G.X	==:	'n	; Crossing lines
G.H1	==:	'o	; Scan line 1 (top)
G.H3	==:	'p	; Scan line 3
G.H5	==:	'q	; Scan line 5
G.Hori	==:	G.H5	; Horizontal line
G.H7	==:	'r	; Scan line 7
G.H9	==:	's	; Scan line 9 (bottom)
G.LT	==:	't	; Left T (|-)
G.RT	==:	'u	; Right T (-|)
G.BT	==:	'v	; Bottom T (_|_)
G.TT	==:	'w	; Top T (T)
G.Vert	==:	'x	; Vertical line
G.LE	==:	'y	; <=
G.GE	==:	'z	; >=
G.PI	==:	'{	; Pi character
G.NE	==:	'|	; Not =
G.UKLb	==:	'}	; UK Pound character
G.Dot	==:	'~	; Centered Dot
.SbTtl	Screen dimensions

V.Cols	==:	80.
V.Lin80	==:	24.
V.WCols	==:	132.
V.Lin132==:	14.
.End