source: buchla-68k/orig/GEMDOS/SS.C@ cbe2c15

/*
   =============================================================================
        ss.c -- show sysem memory allocation values
        Version 1 -- 1988-06-02 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "stddefs.h"
#include "stdio.h"
#include "osbind.h"

typedef unsigned        word;

struct  basepg  {

        char    *lowtpa;                /* low TPA (basepage) address */
        char    *hitpa;                 /* high TPA (initial stack) address */
        word    *tbase;                 /* text segment base */
        long    tlen;                   /* text segment length */
        word    *dbase;                 /* data segment base */
        long    dlen;                   /* data segment length */
        word    *bbase;                 /* bss segment base */
        long    blen;                   /* bss segment length */
        char    *dta;                   /* initial DTA */
        struct  basepg  *parent;        /* pointer to parent's basepage */
        long    resptr;                 /* reserved pointer */
        char    *envstr;                /* environment string pointer */
};

extern  struct  basepg  *_base;

/* 

*/

main()
{
        long    savessp, memsize, tpasize, syssize;
        long    *membot, *memtop;
        long    mb, mt;

        membot  = (long *)0x0000432L;
        memtop  = (long *)0x0000436L;

        printf("GEMDOS System memory allocation information:\n");

        savessp = Super(0L);    /* do this in supervisor mode */

        mb = *membot;           /* TPA start */
        mt = *memtop;           /* TPA end */

        Super(savessp);         /* back to user mode */

        memsize = mt - mb;      /* size of the maximum possible TPA */
        tpasize = (long)_base->hitpa - (long)_base->lowtpa;     /* actual TPA */
        syssize = memsize - tpasize;    /* system size */

        printf("syssize = %ld,  tpasize = %ld\n", syssize, tpasize);
}