home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / sys / mac / database / 1109 < prev    next >
Encoding:
Internet Message Format  |  1992-09-12  |  1.3 KB
  1. Path: sparky!uunet!elroy.jpl.nasa.gov!ucla-cs!ucla-se!hyperion!craig
  2. From: craig@hyperion.loni.ucla.edu
  3. Newsgroups: comp.sys.mac.databases
  4. Subject: 4D serial port help requested
  5. Keywords: 4D serial help
  6. Message-ID: <8059@lee.SEAS.UCLA.EDU>
  7. Date: 13 Sep 92 01:01:08 GMT
  8. Sender: news@SEAS.UCLA.EDU
  9. Distribution: usa
  10. Lines: 29
  11.  
  12.  
  13.     The title pretty much says it: I'm trying to implement a simple
  14.  modem dial command procedure, and cannot get the modem to respond.
  15. the description of the SET CHANNEL Command tells me that the following
  16. code should work (at least, that is how it looks to me) COuld someone 
  17. critique this ? All I  want to to is dial my creaky old 1200 baud modem,
  18. although it would be nice to get the modem's responses to.I am using a
  19. Hayes compatible modem.
  20.  
  21. ` function: dial_modem
  22. ` synopsis: dial string passed in
  23. $channel:=1` modem port
  24. $channel:=$channel+20` xon/off->20 (dtr=30)
  25. $setup:=94` speed = 1200->94 (2400->46;96->10)
  26. $setup:=$setup+3072` 8 bits (7->1024)
  27. $setup:=$setup+16384` 1 stop bit(1.5->-32768;2->-16384)
  28. $setup:=$setup+0` no parity(od->4096,even->12288)
  29. ` or, example says 8 bits, no parity, 1 stop bit at 1200 = 27742
  30. `$setup:=27742
  31. SET CHANNEL($channel;$setup)
  32. $number:=$1` put code to strip out junk from number here
  33. SEND PACKET("ATDT"+$number)
  34.  
  35.  
  36.   thanks for your comments & suggestions,
  37.  
  38.     Craig Schwartz
  39.     craig@hyperion.loni.ucla.edu
  40.  
  41.