;	THIS IS A PATCH TO WORDSTAR VERSION 3.0 TO SPEED UP RESPONSE
;
;**********************************************************************
;
;	INSTRUCTIONS:
;
;	1.  WHILE THIS PATCH WAS ORIGINATED FOR WORDSTAR 3.0, IT SHOULD
;	    ALSO WORK WITH 2.2X, AND MAY BE REVISED TO WORK FOR EARLIER
;	    VERSIONS OF WORDSTAR.
;
;	2.  USE 'DDT.COM' OR SOME OTHER DEBUGGER TO APPLY THE .HEX FILE
;	    FROM THIS PROGRAM TO WORDSTAR AFTER (REPEAT: AFTER) WORDSTAR
;	    HAS BEEN INSTALLED.
;
;	3.  REMEMBER THAT ALL .HEX FILES MUST BE SET WITH NO ATTRIBUTES
;	    OR DDT WILL NOT FUNCTION PROPERLY.	SO DO THIS ON A WORK DISK.
;
;**********************************************************************
;
;
FALSE	EQU	0		;DEFINE LOGICAL EQUATES
TRUE	EQU	NOT FALSE
;
STAT	EQU	TRUE		;TRUE IF CONSOLE STATUS TRAP
;
DELCUS	EQU	02AEH		;ADDRESS OF CURSOR POSITIONING DELAY COUNT
DELMIS	EQU	02AFH		;ADDRESS OF MISC. FUNCTION DELAY COUNT
UCNSTA	EQU	02BAH		;ADDRESS OF ALTERNATE CONSOLE STATUS JUMP
DEL1	EQU	02CFH		;ADDRESS OF SHORT DELAY COUNT
DEL2	EQU	02D0H		;ADDRESS OF MEDIUM-SHORT DELAY COUNT
DEL3	EQU	02D1H		;ADDRESS OF MEDIUM-LONG DELAY COUNT
DEL4	EQU	02D2H		;ADDRESS OF LONG DELAY COUNT
DEL5	EQU	02D3H		;ADDRESS OF HORIZONTAL SCROLLING DELAY COUNT
MORPAT	EQU	02E0H		;ADDRESS OF PATCH AREA
;
	ORG	DELCUS		;SET DELAY COUNTS
	DB	1
;
	ORG	DELMIS
	DB	1
;
	IF	STAT
;
	ORG	UCNSTA		;PATCH JUMP TO SUBROUTINE
	JMP	CONSTA
;
	ENDIF
;
	ORG	DEL1		;SET SOME MORE DELAY COUNTS
	DB	2
;
	ORG	DEL2
	DB	4
;
	ORG	DEL3
	DB	8
;
	ORG	DEL4
	DB	16
;
	ORG	DEL5
	DB	4
;
	ORG	MORPAT		;ALL PATCHES GO TO 'MORPAT'
;
	IF	STAT
;
CONSTA: MVI	C,11		;GET REAL STATUS
	JMP	5
;
	ENDIF
;
;
	END