Return to sysmm.c CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / cint

Annotation of researchv10no/cmd/spitbol/cint/sysmm.c, revision 1.1.1.1

1.1       root        1: /*
                      2: /   sysmm- get more memory
                      3: /
                      4: /   Parameters:
                      5: /      None
                      6: /   Returns:
                      7: /      Number of additional words obtained (or 0 if none) in XR.
                      8: */
                      9: 
                     10: #include "osint.h"
                     11: #include "spitblks.h"
                     12: 
                     13: extern WORD    meminc;
                     14: extern WORD    memincb;
                     15: extern char    *topmem;
                     16: extern char    *maxmem;
                     17: 
                     18: extern char    *sbrk();
                     19: 
                     20: sysmm()
                     21: 
                     22: {
                     23:        /*
                     24:        /    Default situation is that no more memory is available.
                     25:        */
                     26:        SET_XR( 0 );
                     27: 
                     28:        /*
                     29:        /   If not already at maximum allocation, try to get more memory.
                     30:        */
                     31:        if ( topmem < maxmem )
                     32:        {
                     33:            if ( (long) sbrk( memincb ) != -1 )
                     34:            {
                     35:                topmem += memincb;      /*  adjust current top address  */
                     36:                SET_XR( meminc );       /*  set # of words obtained     */
                     37:            }
                     38:        }
                     39: 
                     40:        return NORMAL_RETURN;
                     41: }
                     42: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.