home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / S / SUPERMIT.ARK / SUPTEST1.SUB < prev    next >
Text File  |  1989-09-27  |  1KB  |  63 lines
  1. ;SUPTEST1
  2. ;4/4/86
  3. ;Copyright 1986, Logic Associates, Chicago
  4. ;
  5. ;  This batch job tests the standard (non-plus) set of SUPERMIT modules.
  6. ;
  7. ;  To execute this test,
  8. ;
  9. ;        []  Copy SUBMIT.COM onto a work disk.  (SUBMIT.COM is the
  10. ;            standard batch utility program supplied with CP/M.)
  11. ;
  12. ;        []  Copy the following SUPERMIT modules onto the above disk:
  13. ;
  14. ;            SUPTEST1
  15. ;            IF.COM
  16. ;            #.COM
  17. ;            GOTO.COM
  18. ;            SET.COM
  19. ;
  20. ;        []  Log on to the above disk.
  21. ;
  22. ;        []  Type--   SUBMIT SUPTEST1      then press the RETURN key.
  23. ;
  24. ;
  25. ;  The test consists of a loop that displays "IF ;LOOP PASS x" three
  26. ;  times (where x = pass number), then displays "END OF SUPTEST1".
  27. ;
  28. ;  If this test runs without the occurrence of any error messages, then
  29. ;  IF, #, GOTO, and SET are compatible with your system.
  30. ;
  31. ;  If any error message (apart from "NO FILE") occurs, then one or more
  32. ;  of the above SUPERMIT modules are incompatible with your system.  In
  33. ;  that case, please try SUPTEST2.SUB.
  34.  
  35.  
  36.  
  37. ;START OF SUPTEST1.SUB
  38. ;
  39. ;
  40. ;"NO FILE" IN NEXT STEP OK.
  41. ERA COUNTERX.*
  42. ;
  43. ;
  44. SAVE 0 COUNTERX.054
  45. ;
  46. ;
  47. #  SUPTEST1.SUB(COUNTERX.*)
  48. ;
  49. SET COUNTERX.* + 1
  50. ;
  51. IF NOT COUNTERX.057 THEN GOTO - 5 ELSE GOTO + 6
  52. ;
  53. ;
  54. IF ;LOOP PASS 1
  55. IF ;LOOP PASS 2
  56. IF ;LOOP PASS 3
  57. ;
  58. ;
  59. ERA COUNTERX.*
  60. ;
  61. ;END OF SUPTEST1
  62. ;
  63.