home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / at3_15b.zip / ibm7855a.cmd < prev    next >
OS/2 REXX Batch file  |  1996-12-28  |  2KB  |  49 lines
  1. /* ╔═════════════════════════════════════════════════════╗        */
  2. /* ║  IBM7855A.CMD by Rob Hamerling (see AT3.DOC file).  ║        */
  3. /* ╚═════════════════════════════════════════════════════╝        */
  4. /* Change portnumber into the appropriate value (2 for COM2 etc). */
  5. /* Change phone number as desired.                                */
  6.  
  7. modem = 'IBM 7855-010'
  8. port  = '2'
  9. speed = '19200'
  10. phone = '322423'
  11.  
  12. Say ''
  13. Say 'Customise 'modem' modem for ASYNC (put it in SYNC mode with &M2).'
  14. Say 'Modem must have been set in AT-commandset mode from the frontpanel!'
  15. say ''
  16. say 'Modem is supposed to be on COM'port':'
  17.  
  18. set AT3'='
  19.  
  20. /* First see if the modem responds: */
  21. AT3  port  speed  'I'
  22. if rc > 0 then signal noreply
  23.  
  24. /* Reset the modem to the factory settings: */
  25. AT3  port  '^&F1'
  26. if rc > 0 then signal problem
  27.  
  28. /* Transmit the customisation commands: */
  29. /* (this may be a little bit more than absolutely needed after &F1) */
  30. AT3 port 'B0 E0 L1 M0 Q0 V1 X4 S0=0'
  31. AT3 port '^&AP7 ^&AL8 ^&B8N1 ^&C1 ^&D2 ^&I0 ^&L0 ^&M0 ^&R1 ^&S2 ^&X0 ^&Y0'
  32. AT3 port '^\A3 ^\C3 ^\G0 ^\K2 ^\M14 ^\N3 ^\Q2 ^\R2 ^\T2 ^\V1 ^\X0'
  33. AT3 port '%%B0 %%C0 %%D0 %%E1 %%F1 %%G1 %%H1 %%I1 %%O1 %%R1 %%V0'
  34.  
  35. /* Store current configuration to both(!) NVM profiles */
  36. AT3  port  '^&W0 ^&W1'
  37.  
  38. /* Finally set the phone number to be auto-dialed in SYNC-mode. */
  39. AT3  port  '^&Z'phone
  40.  
  41. exit 0
  42.  
  43. problem:
  44. if rc>0 then Say 'See returncode of reported function for probable cause.'
  45.  
  46. noreply:
  47. if rc=255 then say '[rc='rc'] Is 'modme' modem connected to COM'port'?'
  48. exit rc
  49.