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