home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l200 / 6.ddi / LIB / ADSYS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1986-09-09  |  630 b   |  39 lines
  1. /*    adsys.c -- Primary interface to system
  2.  
  3.     Copyright (c) 1983 by James F. Gimpel
  4.     Copyright (c) 1983, 1984, 1985 by JMI Software Consultants, Inc.
  5.  */
  6. #include "acom.h"
  7.  
  8. GLOBAL INT _stack = 8192;
  9.  
  10. /*    balloc(n) will allocate n bytes of storage that
  11.     will have proper storage allignment for pointers.
  12.  */
  13.  
  14. TEXT *balloc(n)
  15.     LONG n;
  16.     {
  17.     EXFUNC TEXT *calloc();
  18.  
  19.     return (calloc((BYTES)n, 1));
  20.     }
  21.  
  22. TEXT *bfree(ps)
  23.     TEXT *ps;
  24.     {
  25.     if (ps)
  26.         free(ps);
  27.     return (NULL);
  28.     }
  29.  
  30. /*    cexit(n) will return control to the system.
  31.     If n is 0 the return is successful.
  32.  */
  33.  
  34. VOID cexit(n)
  35.     INT n;
  36.     {
  37.     exit(n);
  38.     }
  39.