39 lines
1.1 KiB
C
39 lines
1.1 KiB
C
|
/* =====> FREESP.C */
|
|||
|
|
/* TIPC Scheme '84 -- Freespace Utility
|
|||
|
|
(C) Copyright 1984,1985 by Texas Instruments Incorporated.
|
|||
|
|
All rights reserved.
|
|||
|
|
|
|||
|
|
Author: Terry Caudill
|
|||
|
|
Date Written: 07 August 1985
|
|||
|
|
Last Modification:
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
#include "ctype.h"
|
|||
|
|
#include "scheme.h"
|
|||
|
|
|
|||
|
|
/**********************************************************************/
|
|||
|
|
/* TIPC Scheme '84 Free Space */
|
|||
|
|
/* */
|
|||
|
|
/* Purpose: This Routine will return the number of bytes of free */
|
|||
|
|
/* user memory. */
|
|||
|
|
/**********************************************************************/
|
|||
|
|
long int freesp()
|
|||
|
|
{
|
|||
|
|
int space[NUMPAGES]; /* Free memory per page array */
|
|||
|
|
int i; /* index var */
|
|||
|
|
long int bytes_free; /* word to sum bytes available */
|
|||
|
|
|
|||
|
|
ENTER(freesp);
|
|||
|
|
|
|||
|
|
sum_space(space);
|
|||
|
|
bytes_free = 0;
|
|||
|
|
|
|||
|
|
for (i = DEDPAGES; i < lastpage; i++)
|
|||
|
|
if (ptype[i] == FREETYPE*2)
|
|||
|
|
bytes_free = bytes_free + psize[i];
|
|||
|
|
else
|
|||
|
|
bytes_free = bytes_free + space[i];
|
|||
|
|
|
|||
|
|
return (bytes_free);
|
|||
|
|
}
|
|||
|
|
|