; 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
