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