home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / modems / xmodem / xmin-2.asm < prev    next >
Encoding:
Assembly Source File  |  1994-07-13  |  9.0 KB  |  251 lines
  1.  
  2. ; XMIN-1.ASM XMODEMxx PATCH FILE FOR INTERFACER-4 SERIAL BOARD 11/17/83
  3. ;
  4. ; This file adapts XMODEMxx to the CompuPro Interfacer 4 serial board.
  5. ; (Also the Interfacer 3 board). To use, first edit any options desired
  6. ; into XMODEMxx.ASM, then assemble (you can use ASM.COM) and load to get
  7. ; XMODEMxx.COM.  Then edit this file as needed (check the CONOUT routine
  8. ; if you want to locally see file transfer time and the record count
  9. ; while programs are being sent).  Then assemble (you can use ASM.COM)
  10. ; and merge via DDT or SID:
  11. ;
  12. ;    B>DDT XMODEMxx.COM
  13. ;    DDT VERS 2.2
  14. ;    NEXT  PC
  15. ;    1180 0100
  16. ;    -IXMIN-1.HEX        (note the 'I' command)
  17. ;    -R            ('R' loads in the .HEX file)
  18. ;    NEXT  PC
  19. ;    1180 0000
  20. ;    -G0            (return to CP/M)
  21. ;    B>SAVE 16 XMODEMxx.COM  (now have a modified .COM file)
  22. ;
  23. ; NOTE: Save 21 (rather than 16) if LOGCAL is YES
  24. ;
  25. ;=======================================================================
  26. ;
  27. ; 12/27/83 - Added USEDCD, some text        - Paul Train
  28. ; 05/14/83 - Added instructions, formated    - Irv Hoff
  29. ; 03/07/83 - Written                - Paul Traina
  30. ;
  31. ;=======================================================================
  32. ;
  33. ; NOTE:  The 2651 is sort of brain damaged (as are several different I/O
  34. ;     chips.  There is a problem if you have a modem that sends result
  35. ;     codes to the computer.  (Examples:  Hayes Smartmodems, Cermetek
  36. ;     Infomate 212a, Robotics).  If the DCD line is low, the 2651 will
  37. ;     ignore any incoming data from the modem.  In BYE, this causes
  38. ;     no problem, but if you desire to use MDM7 or YAM or COMM7 you
  39. ;     cannot receive any result codes until carrier is actually pre-
  40. ;     sent.  For a long time we used to flip a switch (it was switch
  41. ;     #6 on the Smartmodem) to force DCD true, but I have a better
  42. ;     method.  I tie DCD high, so the 2651 thinks that the carrier is
  43. ;     there and doesn't shutdown.  This leaves the problem of sensing
  44. ;     carrier, so I run pin 8 [DCD] from the modem to pin 6 (or pin
  45. ;     20) [DSR] of the serial port.  Then all that is needed is for
  46. ;     you to change the software to sense DSR for carrier instead of
  47. ;     DCD.  I have been using this method for 6 months now and it 
  48. ;     works >>beautifully<<.  If you wish to use this method of sen-
  49. ;     sing DCD by really checking DSR, then set "USEDCD" to no, else
  50. ;     set "USEDCD" to yes and you can operate the old way.
  51. ;                    - Paul Traina
  52. ;
  53. ;=======================================================================
  54. ; 
  55. YES:     EQU    0FFH
  56. NO:     EQU    0
  57. ;
  58. USEDCD:     EQU    NO        ;no, check DSR instead of DCD
  59. ;
  60. MODDATP: EQU    10H        ;data in port
  61. MODDATO: EQU    MODDATP        ;data out port
  62. MODCTLP: EQU    MODDATP+1    ;control/status port
  63. MODCTL2: EQU    MODDATP+1    ;second control/status port
  64. MODUPRT: EQU    MODDATP+7    ;chip select port
  65. MODUSER: EQU    6        ;modem I/O on inter-3 board        
  66. MODSNDB: EQU    1        ;bit to test for send
  67. MODSNDR: EQU    1        ;value when ready
  68. MODRCVB: EQU    2        ;bit to test for receive
  69. MODRCVR: EQU    2        ;value when ready
  70. ;
  71.       IF    USEDCD        ;if using DCD
  72. MODDCDB: EQU    80h        ;carrier detect bit (DCD line from 2651)
  73. MODDCDA: EQU    80h        ;value when active
  74.       ENDIF
  75. ;
  76.       IF    NOT USEDCD
  77. MODDCDB: EQU    80h        ;carrier detect bit (DSR line from 2651)
  78. MODDCDA: EQU    80h        ;value when active
  79.       ENDIF
  80. ;
  81. LSPEED:     EQU    YES        ;yes if using 'BYE' with speed selection
  82.                 ;no if using 'SPEED' manual selection
  83. MSPEED:     EQU    3CH        ;location of baud rate factor (set by
  84.                 ;'BYE')  set location in 'BYE' to agree.
  85.                 ;3dh and 3eh often used by newer ver-
  86.                 ;sions of 'ZCPR'.
  87. XSPEED:     EQU    1        ;speed for file time transfer without
  88.                 ;auto-set.  use one of the following:
  89.                 ;0=110 1=300 2=450 3=600 4=710 5=1200
  90. BASE:     EQU    100H        ;start of CP/M normal program area
  91. ;
  92. ;-------------------------------------------------------------------
  93. ;
  94. ; Jump table: The jump table must be in exactly the same sequence as the
  95. ; one in XMODEM.  Note the ORG of 103H - This jump table has no jump to
  96. ; 'BEGIN'.
  97.  
  98. ;
  99.      ORG    BASE+3        ;start after 'JMP BEGIN'
  100. ;
  101. CONOUT:     JMP    00000H        ;must be 00000H if not used, see below
  102. PMINIT:     JMP    MINIT        ;initialization routine (if needed)
  103. PUNINIT: JMP    UNINIT        ;undo whatever 'MINIT' did (or return)
  104. PSENDR:     JMP    SENDR        ;send character (via pop psw)
  105. PCAROK:     JMP    CAROK        ;test for carrier
  106. PMDIN:     JMP    MDIN        ;receive data byte
  107. PGETCHR: JMP    GETCHR        ;get character from modem
  108. PRCVRDY: JMP    RCVRDY        ;check receive ready
  109. PSNDRDY: JMP    SNDRDY        ;check send ready
  110. PSPEED:     JMP    SPEED        ;get speed value for file transfer time
  111. PEXTRA1: JMP    EXTRA1        ;extra for custom routine
  112. PEXTRA2: JMP    EXTRA2        ;extra for custom routine
  113. PEXTRA3: JMP    EXTRA3        ;extra for custom routine
  114. ;
  115. ;=======================================================================
  116. ;
  117. ; -- To Display the Record Count on the CRT During Program Transfers --
  118. ;    
  119. ;    This one addition requires some work on the part of the user.
  120. ; When "BYE" is added, CP/M is normally moved lower to accomodate the
  121. ; new program above CP/M.  Whenever BYE is called to enable the RCPM
  122. ; capability, it steals some of the addresses contained in the BIOS jump
  123. ; vector table.  In order to display on the CRT during program transfers
  124. ; you need to get into the BIOS console output routine directly, else
  125. ; what is being displayed also tries to go out the modem.  This is a big
  126. ; NO-NO at that time.  (This cannot be done automatically by XMODEM,
  127. ; since BYE has already taken the address we need to find, by the time
  128. ; XMODEM is automatically activated by the remote station.)
  129. ;
  130. ;    So with the disk containing BYE, but prior to activating BYE, do
  131. ; this:
  132. ;        1) Cold reboot to move CP/M (and BIOS) to the new area
  133. ;            needed when BYE is activated on the same disk.
  134. ;        2) Use DDT and dump the area from 0000H to 0002H.  This
  135. ;                   gives the warm reboot address in BIOS.
  136. ;        3) Add 9 Bytes to that address to get your console out-
  137. ;             put jump vector.
  138. ;        4) Pick off the address contained in the jump vector and
  139. ;             install that in "CONOUT", below.  Example of one
  140. ;             system in use:
  141. ;
  142. ;            FIRST, COLD REBOOT WITH DISK CONTAINING "BYE"
  143. ;
  144. ;      0000  C3 03 E0    (location of warm reboot on disk with BYE
  145. ;
  146. ;            PRIOR TO ACTIVATING BYE BUT ON SAME DISK
  147. ;
  148. ;      E003  C3 E9 E0    (BIOS warm reboot jump vector on this disk)
  149. ;      E006  C3 00 E9    (BIOS get console status routine)
  150. ;      E009  C3 B7 E1    (BIOS console input routine)
  151. ;      E00C  C3 D4 E1    (BIOS console output routine)
  152. ;
  153. ;        The address we need is thus E1D4.  Put that below, in
  154. ;        our example it would be:    CONOUT   DW   0E1D4H
  155. ;
  156. ;
  157. ;    CONOUT:      DW    00000H    ;If you wish to show the record count
  158. ;                ;during program transfer, fill in this
  159. ;                ;address at 'CONOUT' above.
  160. ;
  161. ;                    - Irv Hoff
  162. ;
  163. ;=======================================================================
  164. ;
  165. ; ---> CAROK - check for presence of carrier.  RET with Z = carrier on
  166. ;
  167. CAROK:    MVI    A,MODUSER    ;select proper chip
  168.     OUT    MODUPRT
  169.     IN    MODCTLP        ;get status
  170.     ANI    MODDCDB        ;get carrier detect bit
  171.     CPI    MODDCDA        ;test bit
  172.     RET
  173. ;
  174. ;=======================================================================
  175. ;
  176. EXTRA1:    RET            ;for later use
  177. EXTRA2:    RET            ;for later use
  178. EXTRA3:    RET            ;for later use
  179. ;
  180. ;=======================================================================
  181. ;
  182. ; ---> GETCHR - get a character, same as MDIN
  183. ; ---> MDIN - - get a character, same as GETCHR
  184. ;
  185. GETCHR:
  186. MDIN:    MVI    A,MODUSER    ;select proper chip
  187.     OUT    MODUPRT
  188.     MVI    A,MODDATP
  189.     IN    MODDATP        ;get character from data in port
  190.     RET
  191. ;
  192. ;=======================================================================
  193. ;
  194. MINIT:    RET            ;no initialization required
  195. ;
  196. ;=======================================================================
  197. ;
  198. ; ---> RCVRDY - check receive ready.  RET with Z = character available.
  199. ;            Return with error code in A-reg.
  200. ;
  201. RCVRDY:    MVI    A,MODUSER    ;select proper chip
  202.     OUT    MODUPRT
  203.     IN    MODCTLP        ;get modem status
  204.     ANI    MODRCVB        ;isolate ready bit
  205.     CPI    MODRCVR        ;test it
  206.     RET
  207. ;
  208. ;=======================================================================
  209. ;
  210. ; ---> SENDR -- send character (comes here via a "JZ SENDR" so no stack
  211. ;        problems with the "POP PSW" in this routine.
  212. ;
  213. SENDR:    MVI    A,MODUSER    ;select proper chip
  214.     OUT    MODUPRT
  215.     POP    PSW        ;get the character back
  216.     OUT    MODDATO        ;send it to the modem output
  217.     RET
  218. ;
  219. ;=======================================================================
  220. ;
  221. ; ---> SNDRDY - check if ready to send.
  222. ;
  223. SNDRDY:    MVI    A,MODUSER    ;select proper chip
  224.     OUT    MODUPRT
  225.     IN    MODCTLP        ;get status byte
  226.     ANI    MODSNDB        ;isolate ready bit
  227.     XRI    MODSNDR        ;ready to send?
  228.     RET
  229. ;
  230. ;=======================================================================
  231. ;
  232. ; ---> SPEED - sets the time shown for program transfer.
  233. ;
  234. SPEED:     IF    LSPEED
  235.     LDA    MSPEED        ;get index for baud rate from 'BYE'
  236.      ENDIF
  237. ;
  238.      IF     NOT LSPEED
  239.     MVI    A,XSPEED    ;get index for baud rate from 'XSPEED'
  240.      ENDIF
  241. ;
  242.     RET
  243. ;
  244. ;=======================================================================
  245. ;
  246. UNINIT:    RET            ;not initialized, so no 'UN-INITIALIZE'
  247. ;
  248. ;=======================================================================
  249. ;
  250. ;
  251.     END