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 / BBSING / MBBS / MBKMDOVL.LBR / KMCS-1.AZM / KMCS-1.ASM
Assembly Source File  |  2000-06-30  |  8KB  |  245 lines
  1. ;
  2. ; ==============================================================
  3. ; KMCS-1.ASM - MB-KMD patch file for Z80 SIO (DART) on a CCS2719
  4. ; ==============================================================
  5. ;
  6. ;
  7. ; =============
  8. ; Introduction:
  9. ; =============
  10. ;
  11. ; This file adapts MB-KMD to run with the Z80 SIO (DART) on a SSC 2719.
  12. ;
  13. ; To use, first edit any options desired into the mainline source code of
  14. ; the transfer program, then assemble with ASM or MAC to produce a HEX file.
  15. ;
  16. ; Then edit this file as needed (check the CONOUT routine if you want to 
  17. ; locally see file transfer time and the record count while programs are 
  18. ; being sent).  Then assemble this overlay with ASM or MAC.
  19. ;
  20. ; Now merge the two .HEX files using MLOAD.COM (available on most RCP/M
  21. ; systems using the command:
  22. ;
  23. ;     MLOAD KMD=MB-KMD,KMCS-1
  24. ;
  25. ; Then place the resulting .COM file on your system where it is accessible
  26. ; from any drive/user area (usually A0:)
  27. ;
  28. ;
  29. ; ===============
  30. ; Update History:
  31. ; ===============
  32. ;
  33. ; 08/21/86 - Edited for inclusion in MBKMDOVL.LBR    - Bob Kramer
  34. ; 08/09/86 - Inspected for MB-KMD compatibility        - Michael Conley
  35. ; 14/06/84 - Changed for CCS2719            - Joe Wright
  36. ; 11/17/83 - Renamed to XMEX-1.ASM            - Irv Hoff
  37. ; 10/22/83 - Updated to XMODEM77            - Irv Hoff
  38. ; 04/04/83 - Updated to XMODEM74            - Irv Hoff
  39. ; 03/27/83 - Updated to XMODEM73            - Irv Hoff
  40. ; 03/17/83 - Updated to XMODEM72            - Irv Hoff
  41. ; 03/15/83 - Updated to XMODEM71            - Irv Hoff
  42. ;
  43. ; 03/07/83  Added instructions on how to adapt this file to XMODEM70.COM.
  44. ;        Standardized the format.  Added automatic MSPEED from "BYE"
  45. ;        program.  Added CONOUT information.  Adapted from XM70PMMI.
  46. ;                            - Irv Hoff
  47. ;
  48. ;
  49. ; ==============
  50. ; 
  51. YES:     EQU    0FFH
  52. NO:     EQU    0
  53. ;
  54. MODDATP: EQU    56H        ; Data in port (CCS2719 PORT B)
  55. MODDATO: EQU    MODDATP        ; Data out port
  56. MODCTLP: EQU    MODDATP+1    ; Control/status port
  57. MODSNDB: EQU    4        ; Bit to test for send
  58. MODSNDR: EQU    4        ; Value when ready
  59. MODRCVB: EQU    1        ; Bit to test for receive
  60. MODRCVR: EQU    1        ; Value when ready
  61. MODDCDB: EQU    8        ; Carrier detect bit
  62. MODDCDA: EQU    8        ; Value when active
  63. ;
  64. LSPEED:     EQU    YES        ; Yes,  using 'BYE' with speed selection
  65.                 ; No,  using 'SPEED' manual selection
  66. MSPEED:     EQU    3CH        ; Location of baud rate factor (set by
  67.                 ; 'BYE')  set location in 'BYE' to agree.
  68.                 ; 3DH and 3EH often used by newer versions
  69.                 ; of 'ZCPR'.
  70. XSPEED:     EQU    1        ; Speed for file time transfer without
  71.                 ; auto-set.  use one of the following:
  72.                 ; 0=110 1=300 2=450 3=600 4=710 5=1200
  73. BASE:     EQU    100H        ; Start of CP/M normal program area
  74. ;
  75. ;
  76. ; ===========
  77. ; Jump table:
  78. ; ===========
  79. ;
  80. ; The jump table must be in exactly the same sequence as the one in MB-KMD.
  81. ;  Note the ORG of 103H - This jump table has no jump to 'BEGIN'.
  82. ;
  83.      ORG    BASE+3        ; Start after 'JMP BEGIN'
  84. ;
  85. CONOUT:     JMP    0E857H        ; Must be 00000h if not used, see below
  86. PMINIT:     JMP    MINIT        ; Initialization routine (if needed)
  87. PUNINIT: JMP    UNINIT        ; Undo whatever 'MINIT' did (or return)
  88. PSENDR:     JMP    SENDR        ; Send character (via pop psw)
  89. PCAROK:     JMP    CAROK        ; Test for carrier
  90. PMDIN:     JMP    MDIN        ; Receive data byte
  91. PGETCHR: JMP    GETCHR        ; Get character from modem
  92. PRCVRDY: JMP    RCVRDY        ; Check receive ready
  93. PSNDRDY: JMP    SNDRDY        ; Check send ready
  94. PSPEED:     JMP    SPEED        ; Get speed value for file transfer time
  95. PEXTRA1: JMP    EXTRA1        ; Extra for custom routine
  96. PEXTRA2: JMP    EXTRA2        ; Extra for custom routine
  97. PEXTRA3: JMP    EXTRA3        ; Extra for custom routine
  98. ;
  99. ;
  100. ; ================================================================
  101. ; To Display the Record Count on the CRT During Program Transfers:
  102. ; ================================================================
  103. ;    
  104. ;    This one addition requires some work on the part of the user.  When
  105. ; "BYE" is added,  CP/M is normally moved lower to accomodate the new
  106. ; program above CP/M.  Whenever BYE is called to enable the RCPM capability,
  107. ; it steals some of the addresses contained in the BIOS jump vector table.
  108. ; In order to display on the CRT during program transfers you need to get
  109. ; into the BIOS console output routine directly,  else what is being
  110. ; displayed also tries to go out the modem.  This is a big NO-NO at that
  111. ; time.  (This cannot be done automatically by MB-KMD,  since BYE has
  112. ; already taken the address we need to find,  by the time MB-KMD is auto-
  113. ; matically activated by the remote station.)
  114. ;
  115. ;    So,  with the disk containing BYE, but prior to activating BYE, do
  116. ; this:
  117. ;    1) Cold reboot to move CP/M (and BIOS) to the new area needed
  118. ;            when BYE is activated on the same disk.
  119. ;    2) Use DDT and dump the area from 0000H to 0002H.  This gives
  120. ;         the warm reboot address in BIOS.
  121. ;    3) Add 9 Bytes to that address to get your console output jump
  122. ;         vector.
  123. ;    4) Pick off the address contained in the jump vector and install
  124. ;         that in "CONOUT", below.  Example of one system in use:
  125. ;
  126. ;  FIRST, COLD REBOOT WITH DISK CONTAINING "BYE"
  127. ;
  128. ;      0000  C3 03 E0    (location of warm reboot on disk with BYE
  129. ;
  130. ;  PRIOR TO ACTIVATING BYE BUT ON SAME DISK
  131. ;
  132. ;      E003  C3 E9 E0    (BIOS warm reboot jump vector on this disk)
  133. ;      E006  C3 00 E9    (BIOS get console status routine)
  134. ;      E009  C3 B7 E1    (BIOS console input routine)
  135. ;      E00C  C3 D4 E1    (BIOS console output routine)
  136. ;
  137. ;        The address we need is thus E1D4.  Put that below, in
  138. ;        our example it would be:    CONOUT   JMP   0E1D4H
  139. ;
  140. ;
  141. ;CONOUT:  JMP    00000H        ; If you wish to show the record count
  142. ;                ; during program transfer, fill in this
  143. ;                ; address at 'CONOUT' above.
  144. ;
  145. ;                        - Irv Hoff
  146. ;
  147. ;
  148. ; ==============================
  149. ; --> MDSTS - check modem status
  150. ; ==============================
  151. ;
  152. MDSTS:    MVI    A,10H        ; Reset status/interrupt
  153.     OUT    MODCTLP
  154.     IN    MODCTLP        ; Get rr0
  155.     RET
  156. ;
  157. ;
  158. ; =========================================
  159. ; --> CAROK - check for presence of carrier
  160. ; =========================================
  161. ;
  162. ; RET with Z = carrier on
  163. ;
  164. CAROK:    CALL    MDSTS        ; Get modem status
  165.     ANI    MODDCDB        ; Get carrier detect bit
  166.     CPI    MODDCDA        ; Test bit
  167.     RET
  168. ;
  169. ;
  170. ; ==============
  171. ;
  172. EXTRA1:    RET            ; For later use
  173. EXTRA2:    RET            ; For later use
  174. EXTRA3:    RET            ; For later use
  175. ;
  176. ;
  177. ; ==========================================
  178. ; --> GETCHR - get a character, same as MDIN
  179. ; --> MDIN - get a character, same as GETCHR
  180. ; ==========================================
  181. ;
  182. GETCHR:
  183. MDIN:    IN    MODDATP        ; Get character from data in port
  184.     RET
  185. ;
  186. ;
  187. ; ==============
  188. ;
  189. MINIT:    RET            ; No initialization required
  190. ;
  191. ;
  192. ; ================================
  193. ; --> RCVRDY - check receive ready
  194. ; ================================
  195. ;
  196. ; RET with Z = character available.
  197. ;
  198. RCVRDY:    IN    MODCTLP        ; Check character ready
  199.     ANI    MODRCVB        ; Isolate ready bit
  200.     CPI    MODRCVR        ; Test it
  201.     RET
  202. ;
  203. ;
  204. ; ==========================
  205. ; --> SENDR - send character
  206. ; ==========================
  207. ;
  208. SENDR:    POP    PSW        ; Get the character back
  209.     OUT    MODDATO        ; Send it to the modem output
  210.     RET
  211. ;
  212. ;
  213. ; ===================================
  214. ; --> SNDRDY - check if ready to send
  215. ; ===================================
  216. ;
  217. SNDRDY:    IN    MODCTLP        ; Get status byte
  218.     ANI    MODSNDB        ; Isolate ready bit
  219.     CPI    MODSNDR        ; Ready to send?
  220.     RET
  221. ;
  222. ;
  223. ; ====================================================
  224. ; --> SPEED - sets the time shown for program transfer
  225. ; ====================================================
  226. ;
  227. SPEED:     IF    LSPEED
  228.     LDA    MSPEED        ; Get index for baud rate from 'BYE'
  229.      ENDIF
  230. ;
  231.      IF     NOT LSPEED
  232.     MVI    A,XSPEED    ; Get index for baud rate from 'XSPEED'
  233.      ENDIF
  234. ;
  235.     RET
  236. ;
  237. ;
  238. ; ==============
  239. ;
  240. UNINIT:    RET            ; Not initialized, so no 'UN-INITIALIZE'
  241. ;
  242. ; ==============
  243. ;
  244. ;
  245.     END