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