home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / imp / i2rv-6.asm < prev    next >
Encoding:
Assembly Source File  |  1994-07-13  |  4.3 KB  |  191 lines
  1.  
  2. ; I2RV-6.ASM Racal-Vadic VA212PA or VA3451 special IMP overlay 06/11/87
  3. ;
  4. ;
  5. ; The Racal-Vadic option  in IMP  supports  the 1200V, 2400V and 2400PA
  6. ; autodial models.  The VA212PA and 3451 models require a somewhat dif-
  7. ; ferent routine.  Essentially they require a CR after the 'D' for dial
  8. ; and two carriage returns after the phone number has been entered, the
  9. ; first to enter the number in the modem and the second to initiate the
  10. ; actual dialing routine.  In addition, they do use "verbose" mode, not
  11. ; terse mode, so it is    necessary to "catch the echo characters" before
  12. ; proceeding.
  13. ;
  14. ; The following overlay can be added after the normal overlay, although
  15. ; it makes no difference when it is added, really - assuming the normal
  16. ; overlay is set  for 1200 bps maximum    speed and Racal-Vadic protocol.
  17. ;
  18. ;        A>MLOAD IMP.COM=IMP2xx.COM,I2RV-x.HEX
  19. ;
  20. ; =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =
  21. ;
  22. ; 06/11/87  Increased the RV3451 abort time after dialing to 60 seconds
  23. ;        as it can only pulse dial and is very slow.  Other changes
  24. ;        to improve autodialing with 3451.
  25. ;                    - Irv Hoff
  26. ;
  27. ; 06/01/87  Altered addresses for use with IMP245.  Use I2VB-4.ASM with
  28. ;        IMP244.            - Irv Hoff
  29. ;
  30. ; 10/27/85  There is enough difference in the VA212PA and VA3451 to add
  31. ;        equates to select between the two.    The 3451 is much slower
  32. ;        to execute commands and needs substantial extra delays.  My
  33. ;        thanks to Bond Shands for  extensive 3451 testing.    I could
  34. ;        do the 212PA testing myself.
  35. ;                    - Irv Hoff
  36. ;
  37. ; 09/17/85  Initial version        - Irv Hoff
  38. ;
  39. ; =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =
  40. ;
  41. ;
  42. YES    EQU    0FFH
  43. NO    EQU    0
  44. ;
  45. ;
  46. ; Choose one of the following
  47. ;
  48. RV212    EQU    NO
  49. RV3451    EQU    YES
  50. ;.....
  51. ;
  52. ;
  53. ; Sets parameters to 1200 bps normal operation for Racal-Vadic protocol
  54. ;
  55.     ORG    0103H
  56.     DB    5        ; To initiate 1200 bps
  57.     DB    0        ; No for 2400 bps maximum
  58.     DB    0FFH        ; Yes for 1200 bps maximum
  59.     DB    0FFH        ; Yes for Racal-Vadic protocol
  60.     DB    0        ; No for Prometheus ProModem protocol
  61. ;.....
  62. ;
  63. ;
  64. ; Add extra CR for use with 212PA or 3451 dialing protocol
  65. ;
  66.     ORG    05A9H
  67.     CALL    0848H
  68. ;.....
  69. ;
  70. ;
  71. ; Allows pulse dialing for alternate dial systems - until recently, most
  72. ; required touch tone dialing.    (See the I2NM-x.ASM phone library over-
  73. ; lay for information on activating this feature.)
  74. ;
  75.     ORG    06E8H
  76.     JMP    06EEH
  77. ;.....
  78. ;
  79. ;
  80. ; Initialize modem, wait for "IM READY" to stop
  81. ;
  82.     ORG    0794H
  83.     CALL    018FH
  84.     JMP    0762H
  85. ;.....
  86. ;
  87. ;
  88. ; Set up modem for dialing
  89. ;
  90.     ORG    07B6H
  91.     LXI    H,0865H
  92.     CALL    018FH
  93.     JMP    0762H
  94. ;.....
  95. ;
  96. ;
  97. ; Put modem into terminal mode so it is in a position to accept dialing
  98. ; (Each # represents 100 milliseconds delay.  Most can be removed for
  99. ; use with the 212PA modem which is significantly faster than the older
  100. ; 3451.)
  101. ;
  102.      IF    RV3451
  103.     ORG    07F1H
  104.     DB    'I','##',0DH,'####','E'-40H,0DH,'###','$'
  105.      ENDIF            ; RV3451
  106. ;
  107.      IF    RV212
  108.     ORG    07FBH
  109.     DB    '$'
  110.      ENDIF            ; RV212
  111. ;.....
  112. ;
  113. ;
  114. ; Puts modem back into IDLE condition when finished
  115. ;
  116.     ORG    0812H
  117. ;
  118.      IF    RV3451
  119.     DB    '##',0DH,'##','I','####',0DH,'$'
  120.      ENDIF            ; RV3451
  121. ;
  122.      IF    RV212
  123.     DB    0DH,'#','I','#',0DH,'$'
  124.      ENDIF            ; RV212
  125. ;.....
  126. ;
  127. ;
  128.     ORG    0848H
  129. ;
  130.      IF    RV212
  131.     MVI    B,0DH
  132.     CALL    018CH
  133.     JMP    0762H
  134.      ENDIF            ; RV212
  135. ;
  136.      IF    RV3451
  137.     LXI    H,0851H
  138.     CALL    018FH
  139.     JMP    0762H        ; Now go get the result code
  140. ;
  141.     DB    '####',0DH,'$'    ; Give the 3451 time to enter the number
  142.      ENDIF            ; RV3451
  143. ;.....
  144. ;
  145. ;
  146.     ORG    0865H
  147. ;
  148.      IF    RV212
  149.     DB    'D','#',0DH,'$'
  150.      ENDIF            ; RV212
  151. ;
  152.      IF    RV3451
  153.     DB    'D','##',0DH,'##','$'
  154.      ENDIF            ; RV3451
  155. ;.....
  156. ;
  157. ;
  158. ; Increase time to abort to 60 seconds for the 3451 for pulse dialing
  159. ;
  160.      IF    RV3451
  161.     ORG    08A1H
  162.     DW    600        ; For 60 seconds
  163.      ENDIF            ; RV3451
  164. ;
  165. ;
  166. ; In the SMRESULT area, fix for verbose ONLINE instead of terse
  167. ;
  168.     ORG    0989H        ; Change 'L' to 'O' for ONLINE
  169.     DB    'O',0
  170. ;.....
  171. ;
  172. ;
  173. ; In the SMRESULT area, fix for verbose NO DIAL TONE instead of terse
  174. ;
  175.     ORG    09A1H        ; Change 'E' to 'N' for No Dial tone
  176.     DB    'F',0
  177.     JNC    09F0H        ; ABORT
  178. ;.....
  179. ;
  180. ;
  181. ; If got an answer, go back to get the ONLINE result
  182. ;
  183.     ORG    0939H
  184.     JMP    0899H        ; Back to SMRESULT
  185. ;.....
  186. ;
  187. ;                   end
  188. ;-----------------------------------------------------------------------
  189. ;
  190.     END
  191.