home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / zsus / tcj / tcj35-l1.ws < prev    next >
Encoding:
Text File  |  1994-09-02  |  6.5 KB  |  176 lines
  1. ; Program:      WordStar Shell Modification Patches
  2. ; Author:       Jay Sage
  3. ; Date:         August 7, 1988
  4.                   
  5. ;--------------------------------------------------------
  6. ;
  7. ;         PATCHES TO WS.OVR
  8. ;
  9. ;--------------------------------------------------------
  10.                   
  11. 3CBF  1E 24               ld      e,24h
  12. 3CC1  CD A40A             call    envoff
  13. 3CC4  E5                  push    hl
  14. 3CC5  11 0D00             ld      de,0dh
  15. 3CC8  19                  add     hl,de
  16. 3CC9  46                  ld      b,(hl)
  17. 3CCA  23                  inc     hl
  18. 3CCB  7E                  ld      a,(hl)
  19. 3CCC  C6 40               add     a,'A'-1
  20. 3CCE  21 CB04             ld      hl,namebuf
  21. 3CD1  36 3B               ld      (hl),'
  22. 3CD3  23                  inc     hl
  23. 3CD4  77                  ld      (hl),a
  24. 3CD5  23                  inc     hl
  25. 3CD6  78                  ld      a,b
  26. 3CD7  0E 2F               ld      c,'0'-1
  27. 3CD9              tens:
  28. 3CD9  0C                  inc     c
  29. 3CDA  D6 0A               sub     10
  30. 3CDC  30 FB               jr      nc,tens
  31. 3CDE  C6 3A               add     10+'0'
  32. 3CE0  71                  ld      (hl),c
  33. 3CE1  23                  inc     hl
  34. 3CE2  77                  ld      (hl),a
  35. 3CE3  23                  inc     hl
  36. 3CE4  36 3A               ld      (hl),':'
  37. 3CE6  23                  inc     hl
  38. 3CE7  D1                  pop     de
  39. 3CE8  06 08               ld      b,8
  40. 3CEA              copyname:
  41. 3CEA  13                  inc     de
  42. 3CEB  1A                  ld      a,(de)
  43. 3CEC  FE 20               cp      ' '
  44. 3CEE  28 05               jr      z,copydone
  45. 3CF0  77                  ld      (hl),a
  46. 3CF1  23                  inc     hl
  47. 3CF2  05                  dec     b
  48. 3CF3  20 F5               jr      nz,copyname
  49. 3CF5              copydone:
  50. 3CF5  36 20               ld      (hl),' '
  51. 3CF7  23                  inc     hl
  52. 3CF8  36 2C               ld      (hl),','
  53. 3CFA  23                  inc     hl
  54. 3CFB  36 00               ld      (hl),0
  55. 3CFD  3E FF               ld      a,0ffh
  56. 3CFF  32 0022             ld      (zflag),a
  57. 3D02  C3 AA60             jp      60aah
  58.                   
  59. ;--------------------------------------------------------
  60.                   
  61. 67B2  21 381F             ld      hl,rcmdbuf
  62. 67B5  4E                  ld      c,(hl)
  63. 67B6  06 00               ld      b,0
  64. 67B8  23                  inc     hl
  65. 67B9  11 00A0             ld      de,scratch
  66. 67BC  ED B0               ldir
  67. 67BE  21 CB04             ld      hl,namebuf
  68. 67C1  CD D113             call    cpy2nul
  69. 67C4  C3 5B04             jp      morpat
  70.                   
  71. ;--------------------------------------------------------
  72. ;
  73. ;         PATCHES TO WS.COM
  74. ;
  75. ;--------------------------------------------------------
  76.                   
  77. 045B  D5                  push    de
  78. 045C  1E 18               ld      e,18h
  79. 045E  CD A40A             call    envoff
  80. 0461  5E                  ld      e,(hl)
  81. 0462  23                  inc     hl
  82. 0463  56                  ld      d,(hl)
  83. 0464  EB                  ex      de,hl
  84. 0465  D1                  pop     de
  85. 0466  CD D113             call    cpy2nul
  86. 0469  21 8603             ld      hl,clrscr
  87. 046C  CD C717             call    scrnfn
  88. 046F  1E 18               ld      e,18h
  89. 0471  CD A40A             call    envoff
  90. 0474  11 00A0             ld      de,scratch
  91. 0477  47                  ld      b,a
  92. 0478              lenloop:
  93. 0478  1A                  ld      a,(de)
  94. 0479  B7                  or      a
  95. 047A  28 11               jr      z,oklength
  96. 047C  13                  inc     de
  97. 047D  10 F9               djnz    lenloop
  98. 047F  11 9F04             ld      de,errmsg
  99. 0482  0E 09               ld      c,9
  100. 0484  CD 0500             call    0005h
  101. 0487  CD 491A             call    sak
  102. 048A  C3 4E7F             jp      7f4eh
  103. 048D              oklength:
  104. 048D  11 0400             ld      de,4
  105. 0490  EB                  ex      de,hl
  106. 0491  19                  add     hl,de
  107. 0492  EB                  ex      de,hl
  108. 0493  73                  ld      (hl),e
  109. 0494  23                  inc     hl
  110. 0495  72                  ld      (hl),d
  111. 0496  21 00A0             ld      hl,scratch
  112. 0499  CD D113             call    cpy2nul
  113. 049C  C3 F613             jp      13f6h
  114. 049F              errmsg:
  115. 049F  07 4D 43 4C         db      bell,'MCL Ovfl - press any key...$'
  116. 04A3  20 4F 76 66 
  117. 04A7  6C 20 2D 20 
  118. 04AB  70 72 65 73 
  119. 04AF  73 20 61 6E 
  120. 04B3  79 20 6B 65 
  121. 04B7  79 2E 2E 2E 
  122. 04BB  24          
  123.                   
  124. ;--------------------------------------------------------
  125.                   
  126. 0F5F  CD D913             call    setpath
  127. 0F62  00                  nop
  128. 0F63  00                  nop
  129.                   
  130. ;--------------------------------------------------------
  131.                   
  132. 13CE  C3 F613             jp      13f6h
  133. 13D1              cpy2nul:
  134. 13D1  7E                  ld      a,(hl)
  135. 13D2  12                  ld      (de),a
  136. 13D3  B7                  or      a
  137. 13D4  C8                  ret     z
  138. 13D5  23                  inc     hl
  139. 13D6  13                  inc     de
  140. 13D7  18 F8               jr      cpy2nul
  141. 13D9              setpath:
  142. 13D9  21 E013             ld      hl,path0
  143. 13DC  7E                  ld      a,(hl)
  144. 13DD  23                  inc     hl
  145. 13DE  B7                  or      a
  146. 13DF  C9                  ret
  147. 13E0  02          path0:  db      2
  148. 13E1  02                  db      2
  149. 13E2  04                  db      4
  150. 13E3  00 00               db      0,0
  151. 13E5  00                  db      0
  152.                   
  153. ;--------------------------------------------------------
  154.                   
  155. 1A2F  21 8000             ld      hl,80h
  156. 1A32  6E                  ld      l,(hl)
  157. 1A33  CB FD               set     7,l
  158. 1A35  7E                  ld      a,(hl)
  159. 1A36  FE 2C               cp      ','
  160. 1A38  20 25               jr      nz,1a5fh
  161. 1A3A  36 20               ld      (hl),' '
  162. 1A3C  11 101B             ld      de,1b10h
  163. 1A3F  0E 09               ld      c,9
  164. 1A41  CD 0500             call    0005
  165. 1A44  CD 491A             call    sak
  166. 1A47  18 16               jr      1a5fh
  167. 1A49              sak:
  168. 1A49  1E FF               ld      e,0ffh
  169. 1A4B  0E 06               ld      c,6
  170. 1A4D  CD 0500             call    0005
  171. 1A50  B7                  or      a
  172. 1A51  28 F6               jr      z,sak
  173. 1A53  1E 0D               ld      e,0dh
  174. 1A55  0E 06               ld      c,6
  175. 1A57  C3 0500             jp      0005
  176.