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 / MODEMS / XMODEM / XMTV-1.ASM < prev    next >
Assembly Source File  |  2000-06-30  |  7KB  |  212 lines
  1.  
  2. ; XMTV-1.ASM - Patch file for TeleVideo 802 -- 11/17/83
  3. ;
  4. ; This file adapts XMODEMxx to an external modem.  This particular setup
  5. ; uses the TV802 modem port.  To use, first edit any options desired into
  6. ; XMODEMxx.ASM, then assemble (can use ASM.COM) and load which supplies
  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 (can use ASM.COM) and
  10. ; merge via DDT or SID:
  11. ;
  12. ;    B>DDT XMODEMxx.COM
  13. ;    DDT VERS 2.2
  14. ;    NEXT  PC
  15. ;    1180 0100
  16. ;    -IXMTC-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. ; 11/17/83 - Renamed to XMTV-1.ASM    - Irv Hoff
  28. ; 10/22/83 - Updated to XMODEM77    - Irv Hoff
  29. ; 03/27/83 - Updated to XMODEM73    - Irv Hoff
  30. ; 03/17/83 - Updated to XMODEM72    - Irv Hoff
  31. ; 03/15/83 - Updated to XMODEM71    - Irv Hoff
  32. ;
  33. ; 03/07/83  Added instructions on how to adapt this file to XMODEM70.COM.
  34. ;        Standardized the format.  Added automatic MSPEED from "BYE"
  35. ;        program.  Added CONOUT information.  Adapted from XM70PMMI.
  36. ;                    - Irv Hoff
  37. ;
  38. ;=======================================================================
  39. ; 
  40. YES:    EQU    0FFH
  41. NO:    EQU    0
  42. ;
  43. ;=======================================================================
  44. ;
  45. MODDATP: EQU    20H        ;data in port
  46. MODDATO: EQU    MODDATP        ;data out port    
  47. MODCTLP: EQU    MODDATP+2    ;control/status port.
  48. MODDCD:     EQU    00001000B    ;value for data carrier detect.
  49. MODDAV:     EQU    00000001B    ;value for data available.
  50. MODBMT:     EQU    00000100B    ;value for output buffer empty.
  51. ;
  52. ;
  53. LSPEED:    EQU    YES        ;yes if using 'BYE' with speed selection
  54.                 ;no if using 'SPEED' manual selection
  55. MSPEED:    EQU    3CH        ;location of baud rate factor (set by
  56.                 ;'BYE')  set location in 'BYE' to agree.
  57.                 ;3dh and 3eh often used by newer ver-
  58.                 ;sions of 'ZCPR'.
  59. XSPEED:    EQU    1        ;speed for file time transfer without
  60.                 ;auto-set.  use one of the following:
  61.                 ;0=110 1=300 2=450 3=600 4=710 5=1200
  62. BASE    EQU    100H        ;start of cp/m normal program area
  63. ;
  64. ;-------------------------------------------------------------------
  65. ;
  66. ; Jump table: The jump table must be in exactly the same sequence as the
  67. ; one in XMODEM.  Note the ORG of 103H - This jump table has no jump to
  68. ; 'BEGIN'.
  69.  
  70. ;
  71.      ORG    BASE+3        ;start after 'JMP BEGIN'
  72. ;
  73. CONOUT:     JMP    0EBBDH        ;televideo 802 conout
  74. PMINIT:     JMP    MINIT        ;initialization routine (if needed)
  75. PUNINIT: JMP    UNINIT        ;undo whatever 'MINIT' did (or return)
  76. PSENDR:     JMP    SENDR        ;send character (via pop psw)
  77. PCAROK:     JMP    CAROK        ;test for carrier
  78. PMDIN:     JMP    MDIN        ;receive data byte
  79. PGETCHR: JMP    GETCHR        ;get character from modem
  80. PRCVRDY: JMP    RCVRDY        ;check receive ready
  81. PSNDRDY: JMP    SNDRDY        ;check send ready
  82. PSPEED:     JMP    SPEED        ;get speed value for file transfer time
  83. PEXTRA1: JMP    EXTRA1        ;extra for custom routine
  84. PEXTRA2: JMP    EXTRA2        ;extra for custom routine
  85. PEXTRA3: JMP    EXTRA3        ;extra for custom routine
  86. ;
  87. ;=======================================================================
  88. ;
  89. ; -- To Display the Record Count on the CRT During Program Transfers --
  90. ;    
  91. ;    This one addition requires some work on the part of the user.
  92. ; When "BYE" is added, CP/M is normally moved lower to accomodate the
  93. ; new program above CP/M.  Whenever BYE is called to enable the RCPM
  94. ; capability, it steals some of the addresses contained in the BIOS jump
  95. ; vector table.  In order to display on the CRT during program transfers
  96. ; you need to get into the BIOS console output routine directly, else
  97. ; what is being displayed also tries to go out the modem.  This is a big
  98. ; NO-NO at that time.  (This cannot be done automatically by XMODEM,
  99. ; since BYE has already taken the address we need to find, by the time
  100. ; XMODEM is automatically activated by the remote station.)
  101. ;
  102. ;    So with the disk containing BYE, but prior to activating BYE, do
  103. ; this:
  104. ;        1) Cold reboot to move CP/M (and BIOS) to the new area
  105. ;            needed when BYE is activated on the same disk.
  106. ;        2) Use DDT and dump the area from 0000H to 0002H.  This
  107. ;                   gives the warm reboot address in BIOS.
  108. ;        3) Add 9 Bytes to that address to get your console out-
  109. ;             put jump vector.
  110. ;        4) Pick off the address contained in the jump vector and
  111. ;             install that in "CONOUT", below.  Example of one
  112. ;             system in use:
  113. ;
  114. ;            FIRST, COLD REBOOT WITH DISK CONTAINING "BYE"
  115. ;
  116. ;      0000  C3 03 E1     (location of warm reboot on disk with BYE
  117. ;
  118. ;            PRIOR TO ACTIVATING BYE BUT ON SAME DISK
  119. ;
  120. ;      E103  C3 3E E1    (BIOS warm reboot jump vector on this disk)
  121. ;      E006  C3 78 EB    (BIOS get console status routine)
  122. ;      E009  C3 95 EB    (BIOS console input routine)
  123. ;      E00C  C3 BD EB    (BIOS console output routine)
  124. ;
  125. ;        The address we need is thus EBBD.  Put that below, in
  126. ;        our example it would be:    CONOUT   JMP   0EBBDH
  127. ;
  128. ;                ; TeleVideo 802/60k memory
  129. ;    CONOUT:      JMP    0EBBDH    ;If you wish to show the record count
  130. ;                ;during program transfer, fill in this
  131. ;                ;address at 'CONOUT' above.
  132. ;
  133. ;                    - Irv Hoff
  134. ;
  135. ;=======================================================================
  136. ;
  137. ; ---> CAROK - check for presence of carrier.  RET with Z = carrier on
  138. ;
  139. CAROK:    IN    MODCTLP        ;get status
  140.     ANI    MODDCD        ;get carrier detect bit
  141.     CPI    MODDCD        ;test bit
  142.     RET
  143. ;
  144. ;=======================================================================
  145. ;
  146. EXTRA1:    RET            ;for later use
  147. EXTRA2:    RET            ;for later use
  148. EXTRA3:    RET            ;for later use
  149. ;
  150. ;=======================================================================
  151. ;
  152. ; ---> GETCHR - get a character, same as MDIN
  153. ; ---> MDIN - - get a character, same as GETCHR
  154. ;
  155. GETCHR:
  156. MDIN:    IN    MODDATP        ;get character from data in port
  157.     RET
  158. ;
  159. ;=======================================================================
  160. ;
  161. MINIT:    RET            ;no initialization required
  162. ;
  163. ;=======================================================================
  164. ;
  165. ; ---> RCVRDY - check receive ready.  RET with Z = character available.
  166. ;            Return with error code in A-reg.
  167. ;
  168. RCVRDY:    IN    MODCTLP        ;get modem status
  169.         ANI     MODDAV
  170.         CPI     MODDAV
  171.         MOV     A,0
  172.     RET
  173. ;
  174. ;=======================================================================
  175. ;
  176. ; ---> SENDR - send character
  177. ;
  178. SENDR:    POP    PSW        ;get the character back
  179.     OUT    MODDATO        ;send it to the modem output
  180.     RET
  181. ;
  182. ;=======================================================================
  183. ;
  184. ; ---> SNDRDY - check if ready to send.
  185. ;
  186. SNDRDY:    IN    MODCTLP        ;get status byte
  187.     ANI    MODBMT        ;isolate ready bit
  188.     CPI    MODBMT        ;ready to send?
  189.     RET
  190. ;
  191. ;=======================================================================
  192. ;
  193. ; ---> SPEED - sets the time shown for program transfer.
  194. ;
  195. SPEED:     IF    LSPEED
  196.     LDA    MSPEED        ;get index for baud rate from 'BYE'
  197.      ENDIF
  198. ;
  199.      IF     NOT LSPEED
  200.     MVI    A,XSPEED    ;get index for baud rate from 'XSPEED'
  201.      ENDIF
  202. ;
  203.     RET
  204. ;
  205. ;=======================================================================
  206. ;
  207. UNINIT:    RET            ;not initialized, so no 'UN-INITIALIZE'
  208. ;
  209. ;=======================================================================
  210. ;
  211. ;
  212.     END