home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / msr313src.zip / msmqblazer.scr < prev    next >
Text File  |  1993-07-12  |  7KB  |  200 lines
  1. ; File QBLAZER.SCR (MSMQBLAZ.SCR)
  2. ;
  3. ; An MS-DOS Kermit script program for dialing Telebit QBlazer modems.
  4. ; Set up QBlazer for compression, error correction, all types of fallback,
  5. ; RTS/CTS flow control, fixed interface speed of 38400.
  6. ;
  7. ; Requires MS-DOS Kermit 3.12 or later
  8. ;
  9. ; Authors: Christine M. Gianone, Frank da Cruz; Columbia U, June 1993
  10. ; 
  11. def errfail echo \%1, hangup, goto fail ; Macro to handle failures.
  12. if < VERSION 312 errfail {MS-DOS Kermit 3.12 or later required.}
  13. if eq "\v(system)" "UNIX" if = \v(local) 0 stop 1 Please SET LINE first.
  14.  
  15. define chkerr if fail stop 1 \%1
  16. define chkok input 3 OK, if fail stop 1 \%1
  17.  
  18. define max_speed 38400    ; Change these two if necessary
  19. define s51 6        ; ...
  20.  
  21. ; Macro to try to get attention of modem's command processor
  22. ; at the given speed, or if no speed given, at the current speed.
  23. ;
  24. define atok -
  25.  if not def \%1 assign \%1 \v(speed), -
  26.  set speed \%1, -
  27.  echo Trying \%1..., -
  28.  output \B, -
  29.  output \17, -
  30.  output ATQ0\13, -
  31.  input 3 OK, -
  32.  if success goto gotok
  33.  
  34. set input echo on        ; So we can watch what happens.
  35. set input timeout proceed       ; Allow IF SUCCESS, IF FAILURE.
  36. set input case ignore        ; Use caseless string comparisons
  37.  
  38. set parity none        ; Avoid parity foulups
  39. set flow none        ; Avoid flow control deadlocks
  40. hangup            ; Begin by dropping DTR
  41. pause 1            ; for one second
  42.  
  43. echo Configuring Telebit QBlazer on \v(line).
  44.  
  45. wait 0 DSR        ; Check modem signals that should be on
  46. chkerr {No DSR signal - check your modem and cable}
  47. wait 0 CTS
  48. chkerr {No CTS signal - check your modem and cable}
  49.  
  50. if > \v(speed) \m(max_speed) set speed \m(max_speed)
  51.  
  52. atok            ; Try to connect at current speed, whatever it is.
  53. atok 9600         ; Try to connect at 9600.
  54. atok 19200        ; 19200...
  55. atok 2400        ; etc...
  56. atok 38400        ; Last resort because no autobaud at this speed(?)
  57. stop 1 Can't get modem's attention
  58.  
  59. ; QBlazer modem setup, should apply to all connections:
  60. ;
  61. ; X4           Result code selection, wait for dialtone, recognize busy signal.
  62. ; &D2          Disconnect call and return to command mode if DTR drops;
  63. ;                this allows HANGUP to work if cable properly wired.
  64. ; S50=0        Automatic modulation speed determination.
  65. ; S94=1        Allow connection at any speed and allow modulation fallback.
  66. ; S58=2S68=255 Use RTS/CTS hardware flow control.
  67. ; S60=0        Data format: 8 data bits, no parity.
  68. ; S61=0S63=0   Pass BREAK through transparently.
  69.  
  70. :GOTOK            ; Got OK from modem
  71.  
  72. ;;output AT&F\13    ; Restore factory settings (no, this changes speed!)
  73. ;;chkok {Can't restore factory settings}
  74.  
  75. output AT E1 Q0 V1 &D2 S59=15 X4\13  ; Set echo and response modes.
  76. chkok {Can't initialize modem}
  77.  
  78. echo Locking interface speed at \m(max_speed)...
  79. output ATS51=\m(s51)\13
  80. chkok {Can't set modem's speed to \m(max_speed)}
  81. set speed \m(max_speed)
  82.  
  83. ; Try 3 times to get OK response to AT at new speed.
  84. ;
  85. set count 3
  86. :LOOP
  87. pause
  88. output AT\13
  89. input 3 OK
  90. if success goto ok
  91. if count goto loop
  92. Stop 1 Can't communicate with modem at \m(max_speed)
  93.  
  94. :OK
  95. echo Enabling hardware flow control...
  96. output AT S58=2 S68=255 &R3\13    ; Tell modem to use RTS/CTS
  97. chkok {Can't enable RTS/CTS}
  98. set flow rts/cts        ; Tell Kermit to use RTS/CTS
  99. echo Enabling modulation negotiation...
  100. output AT S50=0 S94=1\13    ; Enable modulation speed negotiation
  101. chkok {Can't enable modulation speed negotiation}
  102. echo Configuring modem to ignore BREAK...
  103. output AT S60=0 S61=0 S63=0\13    ; Make modem ignore break
  104. chkok {Can't be transparent to BREAK}
  105. echo Enabling error correction and data compression...
  106. output AT S180=2 S181=1 S190=1\13 ; Enable error correction & compression
  107. chkok {Can't enable compression EC and fallback}
  108.  
  109. if def \%1 if not equal "\%1" "=" goto BEGIN
  110. echo QBlazer initialized OK:
  111. output AT&V\13
  112. input 10 OK
  113. echo
  114. echo Firmware version:
  115. output ATI3\13
  116. input 4 OK
  117. end 0
  118.  
  119. :BEGIN                ; Now DIAL.
  120. clear                ; Clear INPUT buffer.
  121. set count 5                     ; Dialing retry counter, 5 tries allowed.
  122. echo Dialing \%1 on \v(line) at \v(speed) bps, wait...
  123. echo
  124. pause 1
  125. goto dial                       ; 1st time, skip pause and Redialing message
  126.  
  127. :REDIAL
  128. set alarm 30
  129. pause 30            ; Wait 30 seconds before redialing.
  130. if not alarm errfail {Dialing canceled.}
  131. echo Redialing...               ; Message for redialing.
  132. pause 1
  133.  
  134. :DIAL
  135. output ATD\%1\13                ; Dial the number.
  136. set alarm 90            ; (For detecting keyboard interruptions.)
  137. if > VERSION 312 clear input    ; Clear echo from INPUT buffer.
  138. if < VERSION 313 clear
  139. pause 1                ; Wait a sec
  140. input 30 \10                    ; Wait for the linefeeds...
  141.  
  142. :GETMSG
  143. input 60 \10            ; ...that surround the response message.
  144. if success goto gotmsg        ; Got a message.
  145. if alarm errfail {No response from modem.} ; No response in 90 seconds.
  146. hangup                ; User interrupted from keyboard,
  147. output \13            ; cancel dialing by sending carriage return,
  148. goto again            ; and go try again right away.
  149.  
  150. :GOTMSG
  151. reinput 1 CONNECT               ; Got a message, was it CONNECT?
  152. if success goto done            ; If so, we're done.
  153.  
  154. reinput 1 DIALING        ; Modem says it's dialing...
  155. if fail goto g2
  156. if > VERSION 312 clear input    ; Clear echo from INPUT buffer.
  157. if < VERSION 313 clear
  158. goto getmsg            ; message again, then go get next message.
  159.  
  160. :G2
  161. reinput 1 RRING            ; Remote phone is ringing...
  162. if fail goto g3
  163. clear                ; Clear INPUT buffer.
  164. goto getmsg            ; Go wait for another message.
  165.  
  166. :G3
  167. reinput 1 BUSY            ; Line is busy.
  168. if success goto busy        ; Go wait a while and then dial again.
  169.  
  170. :G4
  171. reinput 1 ERROR            ; Command syntax error.
  172. if success errfail {Dialing command error}
  173. reinput 1 NO CARRIER        ; Phone didn't answer or no carrier.
  174. if success errfail {No answer or no carrier}
  175. reinput 1 NO DIALTONE        ; No dialtone when phone taken off hook.
  176. if success errfail {No dialtone - Is your modem connected to the phone line\63}
  177. goto getmsg            ; None of the above, get another message.
  178.  
  179. :BUSY
  180. if < \v(count) 2 goto quit    ; Don't wait 30 seconds if tries are used up.
  181. echo Line is busy, will dial again in 30 seconds.
  182. echo Press any key to cancel...
  183. output \13            ; CR cancels dialing
  184. hangup                          ; Hang up.
  185. :AGAIN
  186. if count goto redial            ; Then go redial.
  187. :QUIT
  188. errfail {It never answers!  I give up.} ; Too many tries.
  189.  
  190. :DONE                           ; Connected.
  191. echo \7                         ; Celebrate with a beep.
  192. define errfail            ; Erase local macro definitions...
  193. end 0                ; Finished, return success code.
  194.  
  195. :FAIL                ; Dialing failed, no beep.
  196. define errfail            ; Erase local macro definitions...
  197. end 1                ; Return failure code.
  198.  
  199. ; End of QBLAZER.SCR
  200.