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