home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / PROGRAMS / WSTAR / WS33MOD4.AQM / WS33MOD4.ASM
Assembly Source File  |  2000-06-30  |  11KB  |  354 lines
  1. ;**********************************************************************
  2. ;
  3. ;            SUPER - FAST - WS   
  4. ;
  5. ;    WS33MOD4.ASM -- VERSION  3.3 For Epson RX-80 or MX-80F/T
  6. ;       BY RAYMOND E DIXON  JACKSONVILLE, FL (904)- 778-4048
  7. ;    TO MEMORY MAP MODEL 4/4P TRS-80 M-M CPM 2.31 - 2.22
  8. ;
  9. ; This program will modify all 12 Arrow keys plus clear and break keys
  10. ; to match WS and return them back to cpm when you exit WS leaveing the
  11. ;  shifted  keys as WS keys.
  12. ; 
  13. ;             FOR WS 3.0 USE WS30MOD4.ASM
  14. ;     Assemble with asm.com and overlay with Mload.com
  15. ;      This program is free to anyone who wishes to use it, all I ask is
  16. ;     to leave my header in the file. Thanks !  
  17. ;**********************************************************************
  18. TRUE    EQU    1
  19. FALSE    EQU    NOT TRUE    
  20. ;
  21. ;     ASCII control code equates - to be used in defining patches.
  22. ;
  23. SOH    EQU    01H    ;Start of Heading    ;CONTROL A
  24. STX    EQU    02H    ;Start of Text        ;CONTROL B
  25. ETX    EQU    03H    ;End of Text        ;CONTROL C
  26. EOT    EQU    04H    ;End of Transmission    ;CONTROL D
  27. ENQ    EQU    05H    ;Enquiry        ;CONTROL E
  28. ACK    EQU    06H    ;Acknowledge        ;CONTROL F
  29. BEL    EQU    07H    ;Bell            ;CONTROL G
  30. BS    EQU    08H    ;Backspace        ;CONTROL H
  31. HT    EQU    09H    ;Horizontal Tab        ;CONTROL I
  32. LF    EQU    0AH    ;Line Feed        ;CONTROL J
  33. VT    EQU    0BH    ;Vertical Tab        ;CONTROL K
  34. FF    EQU    0CH    ;Form Feed        ;CONTROL L
  35. CR    EQU    0DH    ;Carriage Return    ;CONTROL M
  36. REVOFF    EQU    0EH    ;REVERSE VIDEO OFF    ;CONTROL N
  37. REVON    EQU    0FH    ;REVERSE VIDEO ON    ;CONTROL O
  38. DLE    EQU    10H    ;Date Link Escape    ;CONTROL P
  39. DC1    EQU    11H    ;(X-ON)            ;CONTROL Q
  40. DC2    EQU    12H    ;Device Control 2    ;CONTROL R
  41. DC3    EQU    13H    ;(X-OFF)        ;CONTROL S
  42. DC4    EQU    14H    ;Device Control 4    ;CONTROL T
  43. CLREOL    EQU    15H    ;CLEAR EOL               ;CONTROL U
  44. REVTOG    EQU    16H    ;TOGGEL REVERSE VIDEO    ;CONTROL V
  45. ETB    EQU    17H    ;End of Transmission     ;CONTROL W
  46. CAN    EQU    18H    ;Cancel            ;CONTROL X
  47. CLREOS    EQU    19H    ;CLEAR EOS            ;CONTROL Y
  48. CLRSCN    EQU    1AH    ;CLEAR SCREEN        ;CONTROL Z
  49. ESC     EQU        1BH    ;Escape            ;CONTROL [
  50. INSLIN    EQU    1CH    ;INSERT LINE AT CURSOR    ;CONTROL \
  51. DELLIN    EQU    1DH    ;DELETE LINE AT CURSOR     ;CONTROL ]
  52. HOME    EQU    1EH    ;HOME CURSOR         ;CONTROL ^
  53. US    EQU    1FH    ;Unit Separator        ;CONTROL _
  54. ;___________________________________________________________________
  55. ;
  56. ;  PATCHES:
  57. ;    
  58.     ORG    18AH
  59.     DB    'Memory  Mapped TRS-80 4/4p       ';Limit to 33 characters
  60. ;
  61.  
  62.     ORG    1AEH
  63.     DB    'Epson MX-80F/T Printer           ';Limit to 33 characters
  64. ;
  65. ;    TERMINAL PATCH AREA
  66. ;
  67.     ORG    232h    ;origin of WordStar terminal patch area
  68. HITE    DB    24    ;24 lines on screen 
  69. WID    DB     80    ;80 Characters on screen .
  70. ;
  71.     ORG    24BH
  72. UCRPOS    DB    0,0,0C9h    ;Not used if terminal emulated
  73. ;
  74.     ORG    287H
  75. INISUB    JMP    ITERM       ;initialization routine - set arrow keys.
  76. UNISUB    JMP    XTERM        ;termination routine - reset arrow keys.
  77. USELST    DB    0FFH        ;Enable character in last position to show
  78. DELCUS    DB    0        ;Delay after cursor set
  79. DELMIS    DB    0        ;Delay after other functions
  80. ;
  81. ; The following section contains the primary code which implements
  82. ; memory map switching in mod 4/4p.  Be careful when modifying this
  83. ; section.
  84. ;
  85. MEMAPV    DB    0FFH        ;Use memory-mapped video
  86. MEMADR    DW    0F800H        ;MODEL 4/4P VIDEO ADDRESS
  87. HIBIV    DB    0FFh        ;Set HI order bit for inverse video
  88. HIBCUR    DB    0FFh        ;cursor set on self
  89. CRBLIV    DB    0FFh        ;blink cursor on self
  90. ;
  91.     ORG    29AH
  92. UCNSTA    DB    0,0,0C9h    ;no special console status from BIOS
  93. UCONI    DB    0,0,0C9h    ;no special console input
  94. UCONO    DB    0,0,0C9h    ;no special console output
  95. ;
  96. ;    SWITCH IN MEMORY MAPPED VIDEO 
  97.     ORG    02A3H    
  98. SWIN    DB    03EH    ;LD    A,8EH  z80 op codes db for asm.com
  99.     DB    08EH    ;OUT (84),A    video memory port 
  100.     DB    0D3H    ;RET
  101.     DB    084H
  102.     DB    0C9H
  103. ;
  104. ;    SWITCH OUT MEMORY MAPPED VIDEO
  105.     ORG    02A9H
  106. SWOUT    DB    03EH
  107.     DB    08FH
  108.     DB    0D3H
  109.     DB    084H
  110.     DB    0C9H
  111.     
  112. ;
  113.  
  114.     ORG    2AFH
  115. DEL1    DB    9    ;SHORT DELAY    3
  116. DEL2    DB    3    ;MEDIUM DELAY    9
  117. DEL3    DB    3     ;delay before help menus appear.
  118. DEL4    DB    3    ;delay after signon screen.
  119. DEL5    DB    0    ;delay after keystroke
  120.     ORG    2B9H
  121. DEFDSK    DB    1     ;1=A:,2=B:,3=C:,,12=M: TEST DRIVE FOR OVERLAYS
  122. SCRLSZ    DB    22     ;LINES scrolled on CRT
  123.  
  124.  
  125. ;___________________________________________________________________
  126. ;
  127. ;    SPECIAL ROUTINES FOR model 4/4p trs - 80
  128. ;
  129. ;    Note that these routines use addresses within BIOS.  
  130. ;
  131.     ORG    02CBh    ;MORPAT (SPACE FOR USER TO 34B)
  132. ; 
  133. ;    Initialization routine -- clear screen, set arrow keys
  134. ;     for Wordstar.
  135. ;
  136. ITERM    MVI    C,26        ;CLEAR SCREEN 
  137.     CALL    CONOUT        
  138. ;
  139.     DB    21H,0CH,03H ;       LD    HL,KEYDE1      ;set arrow keys
  140.     DB    22H,1EH,03H ;       LD    (KEYDEF),HL    ; to Wordstar
  141.     DB    18H,0DH        ;       JR    START
  142.  
  143. XTERM    MVI    C,26        ;CLEAR SCREEN
  144.     CALL    CONOUT
  145.     DB    21H,20H,03H ;      LD    HL,KEYDE2       ;set arrow keys
  146.     DB    22H,1EH,03H ;      LD    (KEYDEF),HL     ;  to CP/M
  147.     DB    18H,00H     ;      JR    START
  148.  
  149. ;
  150.     DB    2AH,01H,00H     ;START: LD    HL,(0001H)   
  151.     DB    01H,30H,00H      ;       LD    BC,0030H     
  152.     DB    09H              ;     ADD    HL,BC
  153.     DB      01H,10H,00H      ;     LD    BC,0010H     
  154.     DB      09H              ;     ADD    HL,BC
  155.     DB      5EH              ;     LD    E,(HL)
  156.     DB      23H              ;     INC    HL
  157.     DB      56H              ;     LD    D,(HL)
  158.     DB      21H,13H,00H      ;     LD    HL,0013H     
  159.     DB      19H              ;      ADD    HL,DE
  160.     DB        0EBH             ;     EX    DE,HL       
  161.     DB    2AH,1EH,03H     ;     LD    HL,(KEYDEF)
  162.     DB    3EH,03H         ;     LD    A,03
  163.     DB    01H,11H,00H     ;     LD    BC,0011H     
  164.     DB    0EBH         ;     EX    DE,HL
  165.     DB    09H         ;     ADD    HL,BC
  166.     DB    0EBH         ;     EX    DE,HL
  167.     DB    0EH,06H         ;      LD    C,6
  168.     DB    0EDH,0B0H     ;     LDIR
  169.     DB    13H         ;     INC    DE
  170.     DB    3DH         ;     DEC    A
  171.     DB    20H,0F2H     ;     JR    NZ,L025E
  172.     DB    0C9H         ;     RET
  173. ;
  174. ; KEYDE1 IS THE KEY DEFINITION WHEN IN WS.
  175. ;
  176. KEYDE1:    ;UNSHIFTED KEYS
  177.     DB    ESC    ;CLEAR
  178.     DB    03H    ;BREAK
  179.     DB    05H    ;UP  
  180.     DB    18H    ;DOWN
  181.     DB    13H    ;LEFT
  182.     DB    04H    ;RIGHT
  183.     ;
  184.     ; SHIFT PLUS KEYS
  185.     ;
  186.     DB    18H    ;CLEAR
  187.     DB    03H    ;BREAK
  188.     DB    12H    ;UP
  189.     DB    03H    ;DOWN
  190.     DB    01H    ;LEFT    
  191.     DB    06H    ;RIGHT
  192.     ;
  193.     ; CONTROL PLUS KEYS
  194.     ;
  195.     DB    7FH    ;CLEAR
  196.     DB    03H    ;BREAK
  197.     DB    0BH    ;UP
  198.     DB    0AH    ;DOWN
  199.     DB    08H    ;LEFT
  200.     DB    09H    ;RIGHT
  201. KEYDEF:    DB    0,0
  202. ;
  203. ; KEYDE2 IS THE KEY DEFINITION AFTER EXITING WS. 
  204. ;
  205. KEYDE2:    ;UNSHIFTED KEYS
  206.     DB    ESC    ;CLEAR
  207.     DB    03H    ;BREAK
  208.     DB    0BH    ;UP  
  209.     DB    0AH    ;DOWN
  210.     DB    08H    ;LEFT
  211.     DB    09H    ;RIGHT
  212.     ;
  213.     ; SHIFT PLUS KEYS
  214.     ;
  215.     DB    18H    ;CLEAR
  216.     DB    03H    ;BREAK
  217.     DB    05H    ;UP
  218.     DB    18H    ;DOWN
  219.     DB    13H    ;LEFT
  220.     DB    04H    ;RIGHT
  221.     ;
  222.     ; CONTROL PLUS KEYS
  223.     ;
  224.     DB    7FH    ;CLEAR
  225.     DB    03H    ;BREAK
  226.     DB    0BH    ;UP
  227.     DB    LF    ;DOWN
  228.     DB    BS    ;LEFT
  229.     DB    HT    ;RIGHT
  230. ;
  231. ;    Output to console routine used to clear screen 
  232. ;
  233. CONOUT    LHLD    1        ;fetch BIOS address
  234.     MVI    L,0CH        ;offset for console output routine
  235.     PCHL            ;jump to it
  236.     RET
  237. ;
  238. ; *********  END AT 034C,  034DH IS USED BY WORDSTAR **********
  239. ;
  240. ;     PROGRAM OPTION PATCH SECTION
  241. ;
  242. ;     (Flags are 0FFH for on, 00H for off).
  243. ;
  244. ON    EQU    0FFH
  245. OFF    EQU    00H
  246. ;
  247.     ORG    34DH
  248. ITHELP    DB    0        ;initial help level: 0,1,2, or 3 (^JHn)
  249. NITHLF    DB    ON        
  250. ITITOG    DB    OFF        ;Insert mode flag (^V)
  251. ITDSDR    DB    ON        ;Directory display flag (^KF)
  252.     ORG    351H
  253. INITPF    DB    08        ;Line height (in 1/48's)
  254.     DB    66        ;Paper length (in lines) (.PLn)
  255.     DW    528         ;Paper length (in 1/48's) 
  256.     DB    08        ;Line height repeated here
  257.     DB    03        ;Top margin (in lines) (.MTn)
  258.     DW    24          ;Top margin (in 1/48's)
  259.     DB    08        ;Line height repeated again
  260.     DB    02        ;Heading margin (in lines) (.HMn)
  261.     DW    16          ;Heading margin (in 1/48's)
  262.     DB    08        ;Line height repeated again
  263.     DB    08        ;Bottom margin (in lines) (.MBn)
  264.     DW    64          ;Bottom margin (in 1/48's)
  265.     DB    08         ;Line height repeated again
  266.     DB    02        ;Footing margin (in lines) (.FMn)
  267.     DW    16          ;Footing margin (in 1/48's)
  268.     DB    08         ;Line height repeated again
  269.     DB    0         ;Must be 0 for standard char width
  270.     DB    12         ;Standard char width (1/120's)(12=10char/inch)
  271.     DB    10         ;Alternate char width (1/120's)(10=12/inch)
  272.     DB    08        ;Page offset in characters (.POn)
  273. INITLM    DB    9-1         ;Left margin minus 1
  274. INITRM    DB    73-1        ;Right margin minus 1
  275. INITSR    DB    3         ;Superscript roll (in 1/48's) 
  276.     ORG    36DH
  277. INITWF    DB    ON        ;Word wrap flag (^OW)
  278.     DB    ON        ;Justification flag (^OJ)
  279.     DB    ON        ;Variable tabs flag (^OV)
  280.     DB    OFF        ;Soft hyphen entry flag (^OE)
  281.     DB    OFF        ;Hyphen help flag (^OH)
  282.     DB    ON        ;Print control display flag (^OD)
  283.     DB    ON        ;Ruler display flag (^OT)
  284.     DB    ON        ;Dynamic page break flag
  285.     DB    ON        ;Page break display flag (^OP)
  286.     DB    1        ;Line spacing: 1-5 (.LS)
  287.     ORG    378H
  288. NONDOC    DB    ON        ;Enter WS in Non-document mode 
  289.     ORG    379H
  290. DOTSON    DB    ON
  291.     ORG    37AH
  292. DECCHR    DB    '.'        ;Decimal tab character 
  293.     ORG    37BH
  294. DOTCHR    DB    '.'        ;DOT command character
  295.     ORG    3C9H
  296. HZONE    DB    4        ;Hyphenation (3=shorter words, 5=longer words)
  297.     ORG    3F8H    ;change defaults in print command:
  298. PODBLK    DB    OFF        ;Disk file output from Print flag
  299.     DB    On        ;Use forms feeds during print
  300.     DB    OFF        ;Suppress page format during print
  301.     DB    OFF        ;Pause between pages during print
  302.     ORG    3FDH
  303. ITPOPN    DB    OFF        ;Omit page numbers during print
  304.     DB    ON        ;Micro justify flag
  305.     DB    ON        ;Bidirectional print flag
  306.     ORG    389H
  307. RVELIM    DB    ','        ;Delimiter character in data file
  308.     ORG    38EH
  309. VARCH1    DB    '&'        ;Variable start
  310. VARCH2    DB    '&'        ;Variable end
  311.     ORG    430H        
  312. AUTOBS    DB    0        ;Automatic backspace 
  313. ;*********************************************************************
  314. ;
  315. ;           PRINTER PATCH SECTION
  316. ;
  317. ;    Most parameters will consist of a character count, 
  318. ;    followed by a string of ASCII characters.
  319. ;
  320. ;           Make sure to leave the same number of bytes defined
  321. ;           as were previously defined for each parameter,
  322. ;           by adding or deleting trailing zeroes as needed.
  323. ;        
  324. ;    SET FOR EPSON MX - 80 PRINTER
  325. ;
  326.     ORG    69AH
  327. BLDSTR    DB    3        ;Number of strikes for boldface
  328. DBLSTR    DB    2        ;Number of strikes for doublestrike
  329.     ORG    69CH
  330. PSCRLF    DB    02H,CR,LF     ;Advance to next line sequence
  331.     DB    0,0,0,0,0,0,0,0    
  332. PSCR    DB    01H,CR,0,0,0,0,0;Return carriage for overprint
  333. PSHALF    DB    0,0,0,0,0,0,0    ;Half line feed sequence
  334. PBACKS    DB    01H,BS,0,0,0,0    ;Backspace character sequence
  335. PALT    DB    01H,0FH,0,0,0    ;Alternate pitch (^PA) - 
  336. PSTD    DB    01H,DC2,0,0,0    ;Standard pitch (^PN) - 
  337. ROLUP    DB    03H,ESC,53H,0,0    ;Superscript character sequence
  338. ROLDOW    DB    03H,ESC,53H,1,0    ;Supscript character sequence
  339. USR1    DB    02H,ESC,'E',0,0    ;User sequence 1 (^PQ) - Emphasized print on
  340. USR2    DB    02H,ESC,'F',0,0    ;User sequence 2 (^PW) - Emphasized print off
  341. USR3    DB    01H,0EH,0,0,0    ;User sequence 3 (^PE) - Double width on
  342. USR4    DB    01H,DC4,0,0,0    ;User sequence 4 (^PR) - Double width off
  343. RIBBON    DB    02H,ESC,'4',0,0    ;Alternate ribbon (^PY) - Italics on
  344. RIBOFF    DB    02H,ESC,'5',0,0    ;Standard ribbon (^PY) - Italics off
  345. PSINIT    DB    02H,ESC,40H,0,0,0,0,0,0
  346.     DB    0,0,0,0,0,0,0,0
  347. PSFINI    DB    02H,ESC,40H,0,0,0,0,0
  348.     DB    0,0,0,0,0,0,0,0,0    
  349.     ORG    70FH
  350. SOCHR    DB    '\'        ;Character used for strikeout
  351. ULCHR    DB    '_'        ;Character used for underlining
  352.   
  353.     END
  354.