source: buchla-68k/orig/GP/MDUMP.C

/*
   =============================================================================
        mdump.c -- Hexadecimal memory dump
        Version 6 -- 1989-02-02 -- D.N. Lynx Crowe

        Displays the contents of memory in hexadecimal.
        If a byte is printable, it is also printed.

        The format of the output is :

           hex_add byte byte byte byte ... byte byte byte byte  string  

        where:

                hex_add   Start address for that line in hex. 
                byte      Representation of a byte in hex. Two characters
                                for each byte.  PERLINE bytes per line.
                string    If the character is printable, it is printed,
                                otherwise a '.' is printed.
   =============================================================================
*/

#define TESTER          0

#include "stdio.h"
#include "ctype.h"
#include "stddefs.h"

#define PERLINE 16

/* 

*/

/*
   =============================================================================
        prifp() -- print printable characters from a buffer
   =============================================================================
*/

static
prifp(chars, length)
register char *chars;
register int length;
{
        register int    i, c;

        for (i = 0; i < length; i++) {

                c = 0x00FF & *chars++;

                if (isascii(c) AND (isprint(c)))
                        printf("%c", c);
                else
                        printf(".");
        }
}

/* 

*/

/*
   =============================================================================
        mdump() -- dump a memory area in hexadecimal
   =============================================================================
*/

mdump(begin, end, start)
register char *begin, *end;
long start;
{
        register long   i, ii;
        int     j, k;
        char    c, chars[PERLINE];

        if (begin > end)
                return;

        i  = 0L;
        ii = start;
        j  = 0;

        while (begin LE end) {

                c = *begin++;

                if (NOT (i % PERLINE)) {

                        if (i) {

                                j=0;
                                printf("  ");
                                prifp(chars, PERLINE);
                        }
                
                        printf("\n%08lX:", ii);
                }

                ii++;
                i++;

                printf(" %02.2X", (c & 0x00FF));
                chars[j++] = c;
        }

/* 

*/
        if (k = (i % PERLINE)) {

                k = PERLINE - k;

                for (ii = 0; ii < (3 * k); ++ii)
                        printf(" ");
        }

        printf("  ");
        prifp(chars, PERLINE);
        printf("\n");
}

/* 

*/

#if     TESTER

char    area[128];

main()
{
        register short i;

        for (i = 0; i < 128; i++)
                area[i] = i + 128;

        mdump(area, (area + 127), area);
}

#endif