home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / imp / i2vb-3.azm / I2VB-3.ASM
Encoding:
Assembly Source File  |  1987-06-06  |  4.0 KB  |  116 lines
  1. ; I2VB-3.ASM  -  Adapts modems with verbose mode to IMP.COM  -    06/01/87
  2. ;
  3. ;            (For AVATEX, etc. modems)
  4. ;
  5. ;
  6. ;      ************************************************
  7. ;      *                         *
  8. ;      *   NOTE:  This version is needed for IMP245,  *
  9. ;      *         use I2VB-2.ASM for IMP244.      *
  10. ;      *                         *
  11. ;      ************************************************
  12. ;
  13. ; The following routine adds verbose mode to the IMP modem program.  A
  14. ; few 300/1200 bps modems (such as the 'AVATEX') have only verbose mode.
  15. ; This overlay will allow either verbose or terse modes to be used.  The
  16. ; 'VERB' equate chooses between verbose and terse, if you have a modem
  17. ; with both modes and wish to try both methods.
  18. ;
  19. ;
  20. ;      verbose            terse
  21. ;      -------            -----
  22. ;    OK             0    (initial commands were all ok)
  23. ;    CONNECT          1    300 baud
  24. ;    RING             2    (used only during auto-receive)
  25. ;    NO CARRIER         3    (did not get a modem answer)
  26. ;    ERROR             4    (Invalid command)
  27. ;    CONNECT 1200         5    1200 bps
  28. ;
  29. ;
  30. ; The following overlay can be added after the normal overlay, although
  31. ; it makes no difference when it is added, really - assuming the normal
  32. ; overlay is set for 1200 bps maximum speed and Hayes protocol, which is
  33. ; automatically selected if the Racal-Vadic and Prometheus options are
  34. ; both set to "NO".
  35. ;
  36. ;        A>MLOAD IMP.COM=IMP245.COM,I2RV-x.HEX
  37. ;
  38. ; =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =
  39. ;
  40. ; 06/01/87  Altered to work with IMP245, also dated 01 June 87.  Be sure
  41. ;    v3     to use I2VB-2.ASM with IMP244.    - Irv Hoff
  42. ;
  43. ; 06/17/86  Added a "JMP ABORT" line to improve operation during busy
  44. ;    v2     signal reception.            - Irv Hoff
  45. ;
  46. ; 01/05/86  Verbose overlay for IMP244 modem program.  For 300/1200 bps
  47. ;    v1     modems that do not have 'terse' mode, such as AVATEX and a
  48. ;        few others.  (Or for those indivuals who may prefer to use
  49. ;        the verbose mode for some reason.)
  50. ;                        - Irv Hoff
  51. ;
  52. ; =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =
  53. ;
  54. ;
  55. VERB    EQU    '1'        ; '1' for verbose mode
  56.                 ; '0' for terse mode (if available)
  57. DTR    EQU    0FFH        ; 0FFH if need ATH0 to disconnect
  58.                 ; 0 if you can disconnect with DTR
  59.                 ; Older Avatex modems do not have DTR
  60. ;.....
  61. ;
  62. ;
  63. ; Sets parameters to 1200 bps normal operation with Hayes AT protocol
  64. ;
  65.     ORG    0100H
  66.     DS    3        ; Skip over JUMP to START
  67. MSPEED:    DB    5        ; To initiate 1200 bps
  68. HS2400:    DB    0        ; No for 2400 bps maximum
  69. HS1200:    DB    0FFH        ; Yes for 1200 bps maximum
  70. RACAL:    DB    0        ; No for Racal-Vadic protocol
  71. PROMOMD:DB    0        ; No for Prometheus ProModem protocol
  72. ;.....
  73. ;
  74. ;
  75. ; Disconnects from the phone line with 'ESC N' in terminal mode or with
  76. ; 'DSC' or 'BYE' from the command line.
  77. ;
  78.     ORG    011EH
  79. NODTR:    DB    DTR
  80. ;.....
  81. ;
  82. ;
  83. ; Allows the initialization routine to select between verbose or terse
  84. ;
  85.     ORG    0834H        ; Location of '0' for V0 in STRNGA:
  86.     DB    VERB
  87. ;.....
  88. ;
  89. ;
  90.     ORG    08D3H
  91. ;
  92.     DB    0E1H,011H,080H,000H,03AH,006H,001H,0B7H,0C2H,0FCH,009H
  93.     DB    0CDH,014H,033H,031H,000H,0D2H,061H,00AH,0CDH,014H
  94.     DB    033H,043H,04FH,04EH,04EH,045H,043H,054H,031H,032H
  95.     DB    030H,030H,000H,0D2H,03FH,00AH,0CDH,014H,033H
  96.     DB    04FH,04EH,04EH,045H,043H,054H,031H,032H,030H,030H
  97.     DB    000H,0D2H,03FH,00AH,0CDH,014H,033H,033H,000H,0D2H
  98.     DB    010H,00AH,0CDH,014H,033H,04EH,04FH,043H,041H,052H
  99.     DB    000H,0D2H,010H,00AH,0CDH,014H,033H,04FH,043H,041H
  100.     DB    052H,000H,0D2H,010H,00AH,0CDH,014H,033H,035H,000H
  101.     DB    0D2H,03FH,00AH,0CDH,014H,033H,043H,04FH,04EH,000H
  102.     DB    0D2H,061H,00AH,0CDH,014H,033H,04FH,04EH,04EH,000H
  103.     DB    0D2H,061H,00AH,0C3H,0FCH,009H,03AH,007H,001H,0B7H
  104.     DB    0C2H,079H,009H,03AH,005H,001H,0B7H,0C2H,0FCH,009H
  105.     DB    0CDH,014H,033H,036H,000H,0D2H,06CH,00AH,0CDH,014H
  106.     DB    033H,037H,000H,0D2H,0DBH,009H,0CDH,014H,033H,038H
  107.     DB    000H,0D2H,0FCH,009H,0CDH,014H,033H,031H,030H,000H
  108.     DB    0D2H,050H,00AH,0C3H,0FCH,009H,0CDH,014H,033H,034H
  109.     DB    033H,000H,0D2H,06CH,00AH,0CDH,014H,033H,036H,030H
  110.     DB    000H,0D2H,0EFH,009H,0CDH,014H,033H,036H,031H,000H
  111.     DB    0D2H,081H,00AH,0C3H,0FCH,009H,000H,000H,054H,000H
  112. ;.....
  113. ;
  114. ;
  115.     END
  116.