source: buchla-68k/orig/GEMDOS/MEM.C@ 4b63bf3

/*
   =============================================================================
        mem.c -- show some critical memory allocation values
        Version 1 -- 1988-02-01 -- 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  char    *_break;
extern  struct  basepg  *_base;

/* 

*/

main()
{
        long    savessp, memsize, tpasize, syssize;
        long    *phystop, *membot, *memtop, *v_basad, *sysbase, *end_os;
        long    pt, mb, mt, vb, sb, eo;

        phystop = (long *)0x000042EL;
        membot  = (long *)0x0000432L;
        memtop  = (long *)0x0000436L;
        v_basad = (long *)0x000044EL;
        sysbase = (long *)0x00004F2L;
        end_os  = (long *)0x00004FAL;

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

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

        mb = *membot;           /* TPA start */
        mt = *memtop;           /* TPA end */
        pt = *phystop;          /* physical RAM top */
        sb = *sysbase;          /* system base */
        eo = *end_os;           /* OS RAM end */
        vb = *v_basad;          /* video RAM base */

        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;

        printf("   membot  = %08.8lx\n", mb);
        printf("   memtop  = %08.8lx\n", mt);
        printf("   memsize = %ld bytes\n\n", memsize);

        printf("   TPA low = %08.8lx\n", _base->lowtpa);
        printf("   TPA hi  = %08.8lx\n", _base->hitpa);
        printf("   TPA len = %ld bytes\n\n", tpasize);

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

        printf("   tbase   = %08.8lx\n", _base->tbase);
        printf("   DTA     = %08.8lx\n", _base->dta);
        printf("   parent  = %08.8lx\n\n", _base->parent);

        printf("   phystop = %08.8lx\n", pt);
        printf("   sysbase = %08.8lx\n\n", sb);

        printf("   end_os  = %08.8lx\n", eo);
        printf("   v_basad = %08.8lx\n", vb);
}