home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / wstar / patchws.aqm / PATCHWS.ASM
Encoding:
Assembly Source File  |  1985-02-10  |  1.8 KB  |  75 lines
  1. ;    THIS IS A PATCH TO WORDSTAR VERSION 3.0 TO SPEED UP RESPONSE
  2. ;
  3. ;**********************************************************************
  4. ;
  5. ;    INSTRUCTIONS:
  6. ;
  7. ;    1.  WHILE THIS PATCH WAS ORIGINATED FOR WORDSTAR 3.0, IT SHOULD
  8. ;        ALSO WORK WITH 2.2X, AND MAY BE REVISED TO WORK FOR EARLIER
  9. ;        VERSIONS OF WORDSTAR.
  10. ;
  11. ;    2.  USE 'DDT.COM' OR SOME OTHER DEBUGGER TO APPLY THE .HEX FILE
  12. ;        FROM THIS PROGRAM TO WORDSTAR AFTER (REPEAT: AFTER) WORDSTAR
  13. ;        HAS BEEN INSTALLED.
  14. ;
  15. ;    3.  REMEMBER THAT ALL .HEX FILES MUST BE SET WITH NO ATTRIBUTES
  16. ;        OR DDT WILL NOT FUNCTION PROPERLY.    SO DO THIS ON A WORK DISK.
  17. ;
  18. ;**********************************************************************
  19. ;
  20. ;
  21. FALSE    EQU    0        ;DEFINE LOGICAL EQUATES
  22. TRUE    EQU    NOT FALSE
  23. ;
  24. STAT    EQU    TRUE        ;TRUE IF CONSOLE STATUS TRAP
  25. ;
  26. DELCUS    EQU    02AEH        ;ADDRESS OF CURSOR POSITIONING DELAY COUNT
  27. DELMIS    EQU    02AFH        ;ADDRESS OF MISC. FUNCTION DELAY COUNT
  28. UCNSTA    EQU    02BAH        ;ADDRESS OF ALTERNATE CONSOLE STATUS JUMP
  29. DEL1    EQU    02CFH        ;ADDRESS OF SHORT DELAY COUNT
  30. DEL2    EQU    02D0H        ;ADDRESS OF MEDIUM-SHORT DELAY COUNT
  31. DEL3    EQU    02D1H        ;ADDRESS OF MEDIUM-LONG DELAY COUNT
  32. DEL4    EQU    02D2H        ;ADDRESS OF LONG DELAY COUNT
  33. DEL5    EQU    02D3H        ;ADDRESS OF HORIZONTAL SCROLLING DELAY COUNT
  34. MORPAT    EQU    02E0H        ;ADDRESS OF PATCH AREA
  35. ;
  36.     ORG    DELCUS        ;SET DELAY COUNTS
  37.     DB    1
  38. ;
  39.     ORG    DELMIS
  40.     DB    1
  41. ;
  42.     IF    STAT
  43. ;
  44.     ORG    UCNSTA        ;PATCH JUMP TO SUBROUTINE
  45.     JMP    CONSTA
  46. ;
  47.     ENDIF
  48. ;
  49.     ORG    DEL1        ;SET SOME MORE DELAY COUNTS
  50.     DB    2
  51. ;
  52.     ORG    DEL2
  53.     DB    4
  54. ;
  55.     ORG    DEL3
  56.     DB    8
  57. ;
  58.     ORG    DEL4
  59.     DB    16
  60. ;
  61.     ORG    DEL5
  62.     DB    4
  63. ;
  64.     ORG    MORPAT        ;ALL PATCHES GO TO 'MORPAT'
  65. ;
  66.     IF    STAT
  67. ;
  68. CONSTA: MVI    C,11        ;GET REAL STATUS
  69.     JMP    5
  70. ;
  71.     ENDIF
  72. ;
  73. ;
  74.     END
  75.