home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / analyze / 2233.asp next >
Encoding:
Text File  |  1990-11-01  |  2.8 KB  |  100 lines
  1. ; DOS FILENAME: 2233.ASP
  2. ; SET TRANSLATE TABLE 10 TO 32 AND 13 TO 32 TO STRIP CR/LF's
  3. CLEAR
  4.  
  5. ;THIS ASPECT FILE WILL DO THE FOLLOWING:
  6.                 ;TURNS ECHO ON TO CORRELATE LOG ENTRIES
  7.                 ;READS ALL S-REGISTERS
  8.                 ;WRITE S-CONTENTS TO DISK WITH S/N OF UNIT
  9.                 ;SET NUMBER OF RINGS THAT MODEM WILL ANSWER ON
  10.                 ;PUT MODEM IN ANSWER MODE
  11.                 ;TURNS ECHO BACK OFF WHEN DONE
  12.                 ;WRITES SETTING TO NVROM(IF APPLICABLE)
  13. SET BAUDRATE 2400
  14. SET PARITY NONE
  15. SET DATABITS 8
  16. SET STOPBITS 1
  17. SET PORT COM2
  18. SET DUPLEX FULL
  19. MESSAGE "PORT/BAUD/DATABITS/PARITY/  COM2/2400/8/N      !!!!!!!!!!!!!!!"
  20. LOCATE 3,1
  21. message "If settings not OK revise 2233.asp to suit needs"
  22.  
  23. ;TRACE ON
  24.  
  25. SET CR CR
  26. INIT N3 0             ;N3 COUNTS PASSES THRU REGISTERS
  27. DATE S6               ;PUT DATE IN STRING
  28. TIME S8               ;PUT TIME IN STRING
  29. locate 10,1
  30. MESSAGE" INPUT SERIAL NUMBER OF MODEM UNDER TEST: (8 CHAR. MAX)
  31. GET S1 8              ;GET SERIAL NUMBER OF MODEM
  32. CLEAR
  33. MESSAGE " ENTER < 80 CHARACTERS ON DUT (ROM VER. ETC.:"
  34. GET S7 80
  35. CLEAR
  36. ASSIGN S2 ".LOG"
  37. STRCAT S1 S2
  38. LOG OPEN S1
  39. TRANSMIT "ATE1^M"       ;turn echo on
  40. PAUSE 2
  41. TRANSMIT "AT^M"
  42. PAUSE 1
  43. WAITFOR "OK"  2       ;CHECK TO SEE IF MODEM IS AWAKE
  44. IF NOT WAITFOR
  45. MESSAGE "WRONG COM PORT SELECTED OR MODEM IS TURNED OFF "
  46. TERMINAL
  47. ELSE
  48. ;PRINTER ON
  49. TRANSMIT "^J^J^M"
  50. MESSAGE S1            ;WRITE S/N AND MESSAGE TO THE SERIAL #'D LOG!
  51. MESSAGE S6
  52. MESSAGE S7
  53. MESSAGE S8
  54. INIT N1 1             ;N1 IS THE FIRST REGISTER
  55. INIT N2 26            ;N2 IS HIGHEST NUMBERED REGISTER WE WILL CHECK
  56. SET TRANSLATE ON
  57. TRANSMIT "ATI^M"
  58. WAITFOR "OK" 3
  59. ;MESSAGE " "
  60. SET TRANSLATE OFF
  61. ENDIF
  62. ;***************************************************************************
  63. ISTART:               ;START OF SUB TO READ REGISTERS AND WRITE TO FILE
  64. SET TRANSLATE ON          ; TURN TRANSLATE TABLE ON
  65. ITOA N1 S3
  66. ASSIGN S4 "ATS"
  67. ASSIGN S5 "?^M"
  68. STRCAT S4 S3
  69. STRCAT S4 S5
  70. TRANSMIT S4           ;REGISTER CONTENTS INQUIRY
  71. PAUSE 1               ;WAIT FOR MODEM TO DIGEST/PROCESS
  72. SET TRANSLATE OFF
  73. WAITFOR "OK" 1        ;LET MODEM GIVE US STATUS
  74. MESSAGE  " "
  75. IF GE N1 N2           ;HAVE WE CHECKED ALL REGISTERS YET?
  76. GOTO ISCRIBBLE        ;GO TO NEXT STEP IF WE HAVE CHECKED ALL REGISTERS
  77. ELSE                  ;OTHERWISE GO TO START OF SUB
  78. INC N1                ;INCREMENT REGISTER TO CHECK VARIABLE
  79. GOTO ISTART
  80. ENDIF
  81. ;****************************************************************************
  82. ISCRIBBLE:
  83. LOG CLOSE
  84. MESSAGE"SETTING MODEM TO ANSWER ON FIRST RING ............................"
  85. TRANSMIT "ATS0=1^M"
  86. PAUSE 1
  87. WAITFOR "OK" 2
  88. ;RINTER OFF
  89. MESSAGE " .......................... WRITING TO NVROM"
  90. TRANSMIT "ATE0^M"       ;TURN ECHO BACK OFF
  91. PAUSE 1
  92. TRANSMIT "AT&W^M"       ;WRITE TO NVROM
  93. PAUSE 1
  94. WAITFOR "OK" 3
  95.  
  96.  
  97.  
  98.  
  99.  
  100.