MODCORE.LST 1.1 KB

12345678910111213141516171819202122232425262728
  1. Listing:
  2. 1 (* Release 3.10 *)
  3. 2 (*-------------------------------------------------------------------------*
  4. 3 * *
  5. 4 * MODCORE.DEF - Modula-2 interface to MODCORE.A *
  6. 5 * *
  7. 6 * COPYRIGHT (C) 1989..1992 Clarion Software Corporation. *
  8. 7 * All Rights Reserved *
  9. 8 * *
  10. 9 *--------------------------------------------------------------------------*)
  11. 10
  12. 11 DEFINITION MODULE ModCore;
  13. 12
  14. 13 (*# save *)
  15. 14 (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
  16. 15 (*# module(implementation=>off, init_code=>off) *)
  17. 16 (*# name(prefix=>c) *)
  18. 17
  19. 18 PROCEDURE _getheapmem(): CARDINAL;
  20. 19 PROCEDURE AdjustMem(End: CARDINAL);
  21. 20
  22. 21 END ModCore.
  23. ***** ^ not supported yet
  24. 1 error