DIAGNOST.LST 1.7 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  1. Listing:
  2. 1 DEFINITION MODULE Diagnostics;
  3. 2 (*
  4. 3 * REPERTOIRE
  5. 4 * Release 1.6
  6. 5 * By Charles Bradford and Cole Brecheen
  7. 6 * (c) Copyright 1985-1992 PMI
  8. 7 * Green Bay, Wisconsin
  9. 8 * All rights reserved
  10. 9 * (414) 468-6040
  11. 10 *
  12. 11 * $Header: D:/logfiles/defs/diagnost.dev 1.4 30 Dec 1990 17:59:38 coleb $
  13. 12 *
  14. 13 *)
  15. 14
  16. 15
  17. 16 FROM GenLists IMPORT GenList;
  18. 17 FROM SYSTEM IMPORT ADDRESS;
  19. 18
  20. 19 PROCEDURE diagA(str1 : ARRAY OF CHAR; TheAddr :
  21. ***** ^ not supported yet
  22. 20 ADDRESS );
  23. 21
  24. 22 PROCEDURE diagB( str1: ARRAY OF CHAR; TheSet:
  25. ***** ^ not supported yet
  26. 23 BITSET );
  27. ***** ^ undeclared identifier
  28. 24
  29. 25 PROCEDURE diagS(str1, str2 : ARRAY OF CHAR);
  30. ***** ^ not supported yet
  31. 26
  32. 27 PROCEDURE diagC(str1 : ARRAY OF CHAR; TheCard :
  33. ***** ^ not supported yet
  34. 28 CARDINAL);
  35. 29
  36. 30 PROCEDURE diagI(str1 : ARRAY OF CHAR; TheInt :
  37. ***** ^ not supported yet
  38. 31 INTEGER);
  39. 32
  40. 33 PROCEDURE diagL(str1 : ARRAY OF CHAR; TheLong :
  41. ***** ^ not supported yet
  42. 34 LONGINT);
  43. 35
  44. 36 PROCEDURE diagBlock( str1 : ARRAY OF CHAR;
  45. ***** ^ not supported yet
  46. 37 TheAddr : ADDRESS; TheSize: CARDINAL );
  47. 38
  48. 39 PROCEDURE CheckList( TheList: GenList );
  49. 40
  50. 41 PROCEDURE Init();
  51. 42
  52. 43 END Diagnostics.
  53. ***** ^ not supported yet
  54. 9 errors