.MCall	.Module
.Module	KedCPR RELEASE=V02 VERSION=16 COMMENT=<Command Prefix File>,TITLE=NO,AUDIT=NO,IDENT=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.
.ENABL	LC
.ENABL	GBL
;
; MODULE:	KEDCPR
;
; ABSTRACT:
;
;	This module is the prefix file for the command modules
;
; AUTHOR:	Darrell Duffy
;
; DATE:		13-July-1979
;
; REVISION HISTORY:
;
;	Jim Williams
;
;	27-Dec-79	added defaulting conditional for OLD$52
;
	.SBTTL	KEDCPR	- Command Prefix File
	.SBTTL	Assembly parameters

.IIf	NDF	RSTS$	RSTS$=0
.IIf	NDF	VT10$0	VT10$0=1
.IIf	NDF	Virt$	Virt$=0
	.SBTTL	Equated symbols


;
;	number of bytes in a prompt string
;

	PrmSiz	= 60.			; Bytes in a prompt string
	.SbTtl	Macro definitions

;
;	Macro Definitions
;

	.MCall	SavReg	$Print	PSect	......	Push	Pop
	.MCall	.Br	.Assume
	.MCall	TTyIn	TtInR	TTyOut	RCtrlO
.If	EQ Virt$
	.MCall	Sob
.EndC ;EQ Virt$
	.MCall	AbtOn	AbtOff	IsAbt
	.MCall	CmdOn	CmdOff	IsCmd
	.MCall	CROn	CROff	IsCR
	.MCall	ExeOn	ExeOff	IsExe
	.MCall	ExIOn	ExIOff	IsExI
	.MCall	JouOn	JouOff	IsJou
	.MCall	JReOn	JReOff	IsJRe
	.MCall	LrnOn	LrnOff	IsLrn
	.MCall	RecOn	RecOff	IsRec
	.MCall	SerOn	SerOff	IsSer
	.MCall	SLFOn	SLFOff	IsSLF

	.SbTtl	Local macro definitions

;
;	EndChk -- perform command line end check
;

	.Macro	EndChk
	Call	@(SP)+
	.EndM

;
;	NoEChk -- disable command line end check
;

	.Macro	NoEChk
	Tst	(SP)+
	.EndM

;
;	KbLock KbUnlk  --  keyboard lock and unlock
;

	.Macro	KbLock
	Call	KbLock
	.EndM

	.Macro	KbUnlk
	Call	KbUnlk
	.EndM


;
;	macro to repeat a function
;

	.Macro	Repeat
	Call	CmdRep
	.EndM

	.Macro	QukRep
	Call	QukRep
	.EndM

;
;	macro to setup undelete condition
;

	.Macro	UnDoIt Typ,Dir
	Call	UnDo'Typ'Dir
	.EndM
;
;	SETBSY,CLRBSY 	-- set and clear editor busy flag
;

	.Macro	SetBsy
;	Mov	SP,BusyF	;*JMP*
	Call	BsyOn
	.EndM

	.Macro	ClrBsy
;	Clr	BusyF		;*JMP*
	Call	BsyOff
	.EndM
	.SbTtl	Define error macros

;
; The following symbol is never defined in the error module. It is
; used to determine what code is assembled in the error module and
; what code is assembled in the source module.
;

	$KED$	= 1

	.SbTtl	PSect definitions

;
;	psect definitions
;

	PSect	KEDCMD			; Command language module
	PSect	.TXT.			; Random text - esc sequences etc.
	PSect	IMPURE			; Impure area allocations
	PSect	KEDCMD

	.SbTtl