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 / SUPTEST2.SUB < prev    next >
Text File  |  1989-09-27  |  2KB  |  63 lines
  1. ;SUPTEST2
  2. ;4/4/86
  3. ;Copyright 1986, Logic Associates, Chicago
  4. ;
  5. ;  This batch job tests the "plus" set of SUPERMIT modules, along with
  6. ;  the GOTO and the SET modules.
  7. ;
  8. ;  To execute this test,
  9. ;
  10. ;        []  Copy SUBMIT.COM onto a work disk.  (SUBMIT.COM is the
  11. ;            standard batch utility program supplied with CP/M.)
  12. ;
  13. ;        []  Copy the following SUPERMIT modules onto the above disk:
  14. ;
  15. ;            SUPTEST2
  16. ;            IF+.COM
  17. ;            #+.COM
  18. ;            GOTO.COM
  19. ;            SET.COM
  20. ;
  21. ;        []  Log on to the above disk.
  22. ;
  23. ;        []  Type--   SUBMIT SUPTEST2      then press the RETURN key.
  24. ;
  25. ;
  26. ;  The test consists of a loop that displays "IF+ ;LOOP PASS x" three
  27. ;  times (where x = pass number), then displays "END OF SUPTEST2".
  28. ;
  29. ;  If this test runs without the occurrence of any error messages, then
  30. ;  IF+, #+, GOTO, and SET are compatible with your system.
  31. ;
  32. ;  If any error message (apart from "NO FILE") occurs, then one or more
  33. ;  of the above SUPERMIT modules are incompatible with your system.  In
  34. ;  that case, please try SUPTEST3.SUB.
  35.  
  36.  
  37. ;START OF SUPTEST2.SUB
  38. ;
  39. ;
  40. ;"NO FILE" IN NEXT STEP OK.
  41. ERA COUNTERX.*
  42. ;
  43. ;
  44. SAVE 0 COUNTERX.054
  45. ;
  46. ;
  47. #+  SUPTEST2.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 SUPTEST2
  62. ;
  63.