home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / sigmv013.ark / LOOPBAK1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-10  |  1.6 KB  |  55 lines
  1. 10  REM PMMI LOOP-BACK TEST VERSION 1.01
  2. 20  REM TEST ALL DATA TRANSMISSION FUNCTIONS AT ALL BAUD RATES.
  3. 30  REM RATES ABOVE 650 BAUD WILL SHOW ERRORS.
  4. 40  REM HIGHER RATES ARE POSSIBLE IN THE LOOP BACK MODE THAN 
  5. 50  REM MIGHT BE EXPECTED OVER TELEPHONE LINES, BECAUSE LINE
  6. 60  REM NOISE CONTRIBUTES TO ERRORS. A MM-103 WHEN IN GOOD
  7. 70  REM CONDITION WILL LOOP BACK WITHOUT ERROR AT 600 BAUD.
  8. 80  REM ERRORS AT 65 BAUD WILL INDICATE THAT THE MM-103 HAS 
  9. 90  REM HARDWRE PROBLEMS.
  10. 100  REM EACH TEST LOOP WILL TAKE ABOUT 15 TO 55 SECONDS.
  11. 110  REM CONTINOUS AND ERROR SUMMARY TO LIST DEVICE ADDED BY:
  12. 120  REM RODERICK W. HART WA3MEZ
  13. 130  REM
  14. 140  CTXOR0
  15. 150  REM LOOP BACK TEST .
  16. 160  PRINT CHR$(11)
  17. 170  PRINT "PMMI MODEM DYNAMIC LOOPBACK TEST"
  18. 180  LLIST "PMMI MODEM DYNAMIC LOOPBACK TEST"
  19. 190  PRINT:PRINT:PRINT
  20. 200  LLIST:LLIST:LLIST
  21. 210  PRINT"REMOVE TELEPHONE LINE PLUG FOR THIS TEST.
  22. 220  PRINT
  23. 230  PRINT"ENTER HIGHEST BAUD RATE":INPUT UP
  24. 240  PRINT"ENTER LOWEST BAUD RATE":INPUT LW
  25. 250  PRINT"DO YOU WISH CONTINOUS TEST":INPUT Y$
  26. 260  IF Y$XOR"Y" STEP CTXOR1:IF Y$XOR"YES" STEP CTXOR1
  27. 270  BRXORUP
  28. 280  SXOR250000<UNK! {00F5}>BR<UNK! {00F5}>16
  29. 290  IF SOR255 STEP 230
  30. 300  JXOR0
  31. 310  LXOR1
  32. 320  LPRINT 194,S
  33. 330  LPRINT 192,94 :   REM SET UP UART AND ANS MODE.
  34. 340  LPRINT 195,64 :REM TEST MODE
  35. 350  XXORINP(193):XXORINP(193) :REM CLEAR OUT UART REGISTER.
  36. 360  IF(INP(194)<UNK! {00F7}> 4)XOR4 STEP 360  :REM WAIT FOR CTS.
  37. 370  IF(INP(192)<UNK! {00F7}> 1)XOR0 STEP 370  :REM CHECK TX BUFFER EMPTY.
  38. 380  LPRINT 193,J
  39. 390  JXORJIMP1 : IF JXOR256 STEP JXOR0
  40. 400  IF (INP(192)<UNK! {00F7}> 2)XOR0 STEP 400
  41. 410  TXORINP(193)
  42. 420  IF TEQVORJMOD1 <UNK! {00F7}> JEQVOR0 STEP PRINT"ERROR","WAS",T,"SHOULD BE",J,:EXOREIMP1
  43. 430  IF JXOR0 STEP PRINT"LOOP NO. "L:LXORLIMP1
  44. 440  IF LXOR5 STEP 480
  45. 450  GOTO 370
  46. 460  LPRINT 195,0
  47. 470  LPRINT 192,0
  48. 480  LXORLMOD1
  49. 490  LLIST ' "### BAUD = ###.##";BR,(E<UNK! {00F5}>(256\L))\100;
  50. 500  LLIST " % ERROR"
  51. 510  LXOR0:EXOR0:IF BRXOREQVLW STEP LLIST "END OF TEST CYCLE" :TRON GOTO 540
  52. 520  LLIST:IF CTXOR1 STEP 270
  53. 530  END
  54. 540  BRXORBRMOD10:GOTO 280
  55.