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 / ZCPR33 / A-R / EASE20.LBR / EASE2OVL.AZM / EASE2OVL.ASM
Assembly Source File  |  2000-06-30  |  4KB  |  162 lines
  1. ;    The Easy way to patch EASE
  2. ;    --------------------------
  3. ;
  4. ;     This was an idea that Jay Sage put in an earlier version of the 
  5. ; EASE library.
  6.  
  7. ;     Use this file to make changes to EASE.  It will assemble with most 
  8. ; assemblers--including LASM, which is public domain.
  9. ; Overlay the resulting .HEX file onto EASE.COM using MLOAD.
  10. ;
  11. ; LASM EASE2OVL
  12. ; MLOAD EASE.COM=EASE.COM,EASE2OVL
  13. ;
  14.  
  15. ;=============================================================================
  16. ;
  17. ;        D E F I N I T I O N S    S E C T I O N
  18. ;
  19. ;=============================================================================
  20.  
  21.     org    100h
  22.  
  23. version    equ    20
  24.  
  25. no    equ    0
  26. yes    equ    0ffh
  27.  
  28. tab    equ    9
  29.  
  30. ;=============================================================================
  31. ;
  32. ;        S T A N D A R D    P R O G R A M    H E A D E R
  33. ;
  34. ;=============================================================================
  35.  
  36. ENTRY:
  37.     ds    9
  38. ENVADDR:
  39.     ds    5
  40.  
  41. ;=============================================================================
  42. ;
  43. ;        C O N F I G U R A T I O N    A R E A
  44. ;
  45. ;=============================================================================
  46.  
  47. NAME:    db    'EASE    VAR'            ; Command history file name
  48.  
  49. WIDTH:    dw    80                ; Length of line on screen
  50.  
  51. TOOSHORT:
  52.     dw    02                ; Don't store in history 
  53.                         ;   if shorter than this many
  54.                         ;   characters.
  55.  
  56. GOBEGFLG:                    ; If yes, go to beginning of
  57.     db    yes                ;   the line on BSEARCH
  58.  
  59. BEEPFLG:                    ; If yes, BEEP on entry to 
  60.     db    yes                ;   error handler.
  61.  
  62. SMARTSAV:                    ; If yes, save everything.
  63.     db    yes                ;   If no, discard any lines
  64.                         ;   that are created by ^B
  65.                         ;   ^N or ^O.
  66.  
  67. USEMEM:    db    no                ; Use memory to save the
  68.                         ;    history file pointers.
  69.  
  70. MEMLOC:    dw    47h                ; Location to use for history
  71.                         ;    pointers.
  72.  
  73. STARTREG:                    ; If USEMEM was no, then the
  74.     db    7                ;    pointers will be stored
  75.                         ;    in the Z3 registers.
  76.                         ; This sets the first of the
  77.                         ;    three that are needed.
  78.  
  79. USE6:    db    no                ; If yes, use BDOS function
  80.                         ;    number 6 instead of
  81.                         ;    number 1.
  82.  
  83. TABLE:    ds    1                ; Number of cases
  84.     ds    2        ;    BEEP    ; DEFAULT CASE--ring bell
  85.  
  86. VECTOR:    db    'Q'
  87.     ds    2        ;    SHIFTED        ; Meta Key
  88.     db    'D'
  89.     ds    2        ;    FCHR        ; Right Char
  90.     db    'S'
  91.     ds    2        ;    BCHR        ; Left Char
  92.     db    'E'
  93.     ds    2        ;    UP        ; Up line
  94.     db    'X'
  95.     ds    2        ;    DOWN        ; Down line
  96.     db    'A'
  97.     ds    2        ;    MBWORD        ; Left word
  98.     db    'F'
  99.     ds    2        ;    MFWORD        ; Right word
  100.     db    'S'+80h
  101.     ds    2        ;    GOBOLN        ; Start of line
  102.     db    'D'+80h
  103.     ds    2        ;    GOEOLN        ; End of line
  104.     db    'G'
  105.     ds    2        ;    FDEL        ; Del char right
  106.     db    'H'
  107.     ds    2        ;    DELCHR        ; Del char left
  108.     db    127
  109.     ds    2        ;    DELCHR        ; Del char left
  110.     db    'T'
  111.     ds    2        ;    FDWORD        ; Del word right
  112.     db    127 + 80h
  113.     ds    2        ;    BDWORD        ; Del word left
  114.     db    'R'
  115.     ds    2        ;    CMDKILL        ; Kill to semi-colon
  116.     db    'Y'+80h
  117.     ds    2        ;    DELTOEND    ; Delete to end of line
  118.     db    'Y'
  119.     ds    2        ;    DELLIN        ; Delete line
  120.     db    'U'
  121.     ds    2        ;    UNDO        ; Reinsert deleted text
  122.     db    'B'
  123.     ds    2        ;    BACKLINE    ; Back in history shell
  124.     db    'N'
  125.     ds    2        ;    NEXTLINE    ; Forward in history shell
  126.     db    'O'
  127.     ds    2        ;    BSEARCH        ; Search for first char
  128.     db    'V'
  129.     ds    2        ;    TOGLIN        ; Toggle insert
  130. CCOMP:    db    'I'
  131.     ds    2        ;    COMPLETE    ; Complete file name
  132.     db    'P'
  133.     ds    2        ;    QINSERT        ; Insert any char
  134.     db    'W'
  135.     ds    2        ;    REPLOT        ; Redraw line
  136.     db    'C'
  137.     ds    2        ;    WARM        ; Warm Boot
  138.     db    'M'
  139.     ds    2        ;    DONE        ; End edit
  140.     db    '_'+80h
  141.     ds    2        ;    QUITSH        ; End EASE
  142. LASTCASE:
  143.  
  144. PUNC:    db    ',.:!#%^&<>[]{}()_+-=`~/\|; ',tab    ; Punctuation to
  145. PUNCLEN    equ    $ - PUNC                ;   seperate words.
  146.                             ;   Used by word
  147.                             ;   functions.
  148.  
  149. SEP:    db    ' ,=/<>|',tab                ; Punctuation to
  150. SEPLEN    equ    $ - SEP                    ;   seperate filenames.
  151.                             ;   Used by complete.
  152.  
  153. ;=============================================================================
  154. ;
  155. ;        M A I N    C O D E    S E C T I O N
  156. ;
  157. ;=============================================================================
  158. start:
  159.     end
  160.     C O D E    S E C T I O N
  161. ;
  162. ;===========