hexdump.cpp

eC++编译器源码

#pragma HexDump
#include <SYSTEM.h>
#include <InOut.h>
#include <Character.h>
typedef unsigned int CARDINAL;
  void print(char chr)
  {
    if (Printable(chr)) {
      Write(chr);
    } else {
      Write('.');
    };
  };

  void Dump(WORD &what[])
  {
    unsigned int i, j;
    for (i=0; i<=HIGH(what); i++) {
      if ((i % 8) == 0) {
        if (i != 0) {
          for (j=i-8; j<=i-1; j++) {
            Write(' ');
            print(CHR(CARDINAL(what[j]) / 256));
            print(CHR(CARDINAL(what[j]) % 256));
          };
          WriteLn();
        };
        WriteHex(i*2,4);   /*make it a byte address*/
      };
      WriteHex(CARDINAL(what[i]),5);
    };
    for (j=HIGH(what)-(HIGH(what) % 8); j<=HIGH(what); j++) {
      Write(' ');
      print(CHR(CARDINAL(what[j]) / 256));
      print(CHR(CARDINAL(what[j]) % 256));
    };
    WriteLn()
  };