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