home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / mskscripts / t3000.kds < prev   
Text File  |  2020-01-01  |  6KB  |  177 lines
  1. ; FILE T3000.SCR
  2. ; 
  3. ; An MS-DOS Kermit script program for dialing the Telebit T3000 and similar
  4. ; modems (e.g. T1600, QBlazer), to be used with MS-DOS Kermit 3.15 or later.
  5. ; The modem is set for RTS/CTS flow control, fixed interface speed, and to
  6. ; negotiate highest modulation, error correction, compression, and all types
  7. ; of fallback.
  8. ;
  9. ; Authors: C. Gianone & F. da Cruz, Columbia U, December 1996
  10. ;
  11. ; To use: SET MODEM=T3000 (in DOS, before starting Kermit or in AUTOEXEC.BAT)
  12. ; or:     SET MODEM T3000 (in Kermit, or in MSCUSTOM.INI)
  13. ; and:    Make sure Kermit has executed the standard MSKERMIT.INI file,
  14. ;         and then DIAL the desired number.
  15. ;
  16. ; Variables - define these prior to dialing if desired; they can be either
  17. ; Kermit variables or DOS environment variables:
  18. ; 
  19. ;   DIALPORT    - COM port to use for dialing (COM1, COM2, etc)
  20. ;   DIALSPEED   - Speed for dialing (57600 by default)
  21. ;   DIALMETHOD  - TONE or PULSE (modem's default method is used by default)
  22. ;   DIALRETRIES - Maximum times to redial the call (default 5)
  23. ;   DIALTIMEOUT - How long to wait for result from modem (default 90 seconds)
  24. ;
  25. if < VERSION 315 stop 1 MS-DOS Kermit 3.15 or later required.
  26. def ERRFAIL echo \%1, forward FAIL
  27. def CHKOK input 3 OK, if fail stop 1 \%1
  28.  
  29. local __dm __parity atok max_speed s51 \%i \%j
  30.  
  31. define max_speed 57600        ; T3000 interface speed
  32. define s51 7            ; T3000 S51 register setting for this speed
  33.  
  34. define ATOK {
  35.     if not def \%1 assign \%1 \v(speed)
  36.     set speed \%1
  37.     echo Trying \%1...
  38.     output \B
  39.     output \17
  40.     output ATQ0V1\13
  41.     input 3 OK
  42.     if success end 0
  43.     end 1
  44. }
  45.  
  46. set carrier off                 ; Don't require carrier during dialing.
  47. set input echo on        ; So we can watch what happens.
  48. set input timeout proceed       ; Allow IF SUCCESS, IF FAILURE.
  49. set input case ignore        ; Use caseless string comparisons
  50.  
  51. :PORT
  52. if not def DIALPORT asg DIALPORT \$(DIALPORT)
  53. if not def DIALPORT forward SPEED
  54. set port \m(DIALPORT)
  55. if success forward SPEED
  56. echo SET PORT \m(DIALPORT) failed 
  57. end 1
  58.  
  59. :SPEED
  60. asg __parity \v(parity)        ; Save parity setting
  61. set parity none            ; Switch to none while dialing
  62. set flow none            ; Avoid flow control deadlocks
  63. hangup                ; Begin by dropping DTR
  64.  
  65. ; Dial method, retry limit, and timeout...
  66.  
  67. xif numeric \fsubstr(\%1,1,1) {
  68.     if eq "\m(DIALMETHOD)" "TONE" asg __dm T
  69.     if eq "\m(DIALMETHOD)" "PULSE" asg __dm P
  70. }
  71. if not def DIALRETRIES asg DIALRETRIES \$(DIALRETRIES)
  72. if not def DIALRETRIES asg DIALRETRIES 5
  73.  
  74. if not def DIALTIMEOUT asg DIALTIMEOUT \$(DIALTIMEOUT)
  75. if not def DIALTIMEOUT asg DIALTIMEOUT 90
  76.  
  77. ; Begin the modem dialog...
  78.  
  79. echo Configuring Telebit T3000 on \v(line)...
  80.  
  81. clear input            ; Clear input buffer
  82. clear device
  83. if > \v(speed) \m(max_speed) set speed \m(max_speed)
  84. atok            ; Try to connect at current speed, whatever it is.
  85. if success forward gotok
  86. atok 9600         ; Try to connect at 9600.
  87. if success forward gotok
  88. atok 19200        ; 19200...
  89. if success forward gotok
  90. atok 2400        ; etc...
  91. if success forward gotok
  92. atok 38400        ; ...
  93. if success forward gotok
  94. atok 57600        ; Last resort for T3000.
  95. if fail stop 1 Can't get modem's attention
  96.  
  97. :GOTOK
  98. output ATE1&C1&D2S59=15X12\13    ; Set echoing, result codes, etc.
  99. chkok {Can't initialize modem}
  100. output ATS51=\m(s51)\13
  101. chkok {Can't fix interface speed}
  102. set speed \m(max_speed)
  103.  
  104. for \%i 1 3 1 {
  105.     msleep 500
  106.     output AT\13
  107.     input 3 OK
  108.     if success break
  109. }
  110. if > \%i 3 stop 1 Can't communicate with modem at \m(max_speed)
  111.  
  112. output AT S58=2 S68=255 &R3\13    ; Tell modem to use RTS/CTS
  113. chkok {Can't enable RTS/CTS}
  114. wait 5 cts
  115. if fail errfail {Modem is not asserting CTS!}
  116. set flow rts/cts        ; Tell Kermit to use RTS/CTS
  117. output AT S50=0 S94=1\13    ; Enable modulation speed negotiation
  118. chkok {Can't enable modulation speed negotiation}
  119. output AT S60=0 S61=0 S63=0\13    ; Make modem ignore break
  120. chkok {Can't be transparent to BREAK}
  121. output AT S180=2 S181=1 S190=1\13 ; Enable error correction & compression
  122. chkok {Can't enable compression EC and fallback}
  123.  
  124. mpause 500
  125. clear input            ; Clear INPUT buffer.
  126. clear device            ; Clear device buffer.
  127.  
  128. echo Dialing \%1 on \v(line) at \v(speed) bps, wait...
  129. echo
  130.  
  131. for \%i 1 \m(DIALRETRIES) 1 {    ; Redial loop
  132.     xif > \%i 1 {
  133.         echo Redialing...       ; Message for redialing
  134.         hangup            ; Hang up first
  135.     }
  136.     pause 1            ; Wait a sec for modem to settle
  137.     output ATD\m(__dm)\%1\13    ; Dial the number.
  138.     for \%j 1 10 1 {
  139.         minput \m(DIALTIMEOUT) -
  140.           CONNECT BUSY ERROR {NO CARRIER} {NO ANSWER} {NO DIALTONE} RRING RING
  141.         xif fail { echo Call timed out, hangup, out \13, continue }
  142.         if not = \v(minput) 7 break
  143.     }
  144.     switch \v(minput) {
  145.       :1, forward done
  146.       :2, Echo Line is busy - will dial again in 30 seconds.
  147.           echo Press any key to cancel...
  148.           output \13
  149.           pause 30
  150.           if fail errfail Canceled
  151.           break
  152.       :3, errfail {Dialing command error}
  153.       :4, errfail {Call failed - no carrier}
  154.       :5, errfail {No answer - try again later}
  155.       :6, errfail {No dialtone - is your modem connected to the phone line?}
  156.       :7, errfail {Call failed - too many rings}
  157.       :8, errfail {Call failed - your phone is ringing}
  158.       :default, break
  159.     }    
  160. }
  161. errfail {It never answers!  I give up.} ; Too many tries.
  162.  
  163. :DONE                           ; Connected.
  164. echo \7                         ; Celebrate with a beep.
  165. set carrier on            ; Require carrier from now on.
  166. set parity \m(__parity)        ; Restore host parity setting
  167. undef errfail            ; Erase local macro definitions...
  168. end 0                ; Finished, return success code.
  169.  
  170. :FAIL
  171. undef errfail            ; Erase local macro definitions...
  172. set carrier off            ; Let them reconnect to see what's up.
  173. hangup
  174. end 1                ; Return failure code.
  175.  
  176. ; End of T3000.SCR
  177.