mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-07-26 10:38:47 +02:00
Fish (David B. Trout)
49e85a30d1
FBA_BKGHDR 'nnnnnnnn' is GROUP number, NOT block/sector number! Must multiply by blocks-per-group (i.e. 120) to obtain actual sector/block number of start of group!
955 lines
33 KiB
C
955 lines
33 KiB
C
/* CCKDDIAG.C (C) Copyright Roger Bowler, 1999-2012 */
|
|
/* Hercules CCKD diagnostic tool */
|
|
/* */
|
|
/* Released under "The Q Public License Version 1" */
|
|
/* (http://www.hercules-390.org/herclic.html) as modifications to */
|
|
/* Hercules. */
|
|
|
|
/* 2003-02-07 James M. Morrison initial implementation */
|
|
/* portions borrowed from cckdcdsk & other CCKD code */
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* Diagnostic tool to display various CCKD data */
|
|
/*-------------------------------------------------------------------*/
|
|
|
|
#include "hstdinc.h"
|
|
#include "hercules.h"
|
|
#include "dasdblks.h"
|
|
#include "ccwarn.h"
|
|
|
|
#define UTILITY_NAME "cckddiag"
|
|
#define UTILITY_DESC "CCKD/CFBA diagnostic program"
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* Exit codes */
|
|
/*-------------------------------------------------------------------*/
|
|
#define EXIT_ERROR_LOGIC_ERROR -99
|
|
#define EXIT_ERROR_SYNTAX -1
|
|
#define EXIT_NORMAL_SUCCESS 0
|
|
#define EXIT_SEEK_ERROR 1
|
|
#define EXIT_READ_ERROR 2
|
|
#define EXIT_NO_FBA_CCHH 3
|
|
#define EXIT_MALLOC_FAILED 4
|
|
#define EXIT_NO_CKD_DASDTAB 5
|
|
#define EXIT_NO_FBA_DASDTAB 6
|
|
#define EXIT_DATA_NOTFOUND 7
|
|
#define EXIT_OPEN_ERROR 8
|
|
#define EXIT_WRONG_CCKD_TYPE 9
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* CKD DASD record stats structure */
|
|
/*-------------------------------------------------------------------*/
|
|
typedef struct _CKD_RECSTAT { /* CKD DASD record stats */
|
|
int cc; /* CC cylinder # (relative zero) */
|
|
int hh; /* HH head # (relative zero) */
|
|
int r; /* Record # (relative zero) */
|
|
int kl; /* key length */
|
|
int dl; /* data length */
|
|
} CKD_RECSTAT;
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* Global data areas */
|
|
/*-------------------------------------------------------------------*/
|
|
static CCKD_L1ENT *L1tab = NULL; /* Level 1 table pointer */
|
|
static CCKD_L2ENT *L2tab = NULL; /* Level 2 table pointer */
|
|
static void *tbuf = NULL; /* track header & data */
|
|
static void *bulk = NULL; /* bulk data buffer */
|
|
static int fd = 0; /* File descriptor */
|
|
static int debug = 0; /* disable debug code */
|
|
static int pausesnap = 0; /* 1 = pause after snap */
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* Common ErrExit function */
|
|
/*-------------------------------------------------------------------*/
|
|
static void ErrExit( int rc )
|
|
{
|
|
exit( rc ); // common breakpoint location
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* print syntax */
|
|
/*-------------------------------------------------------------------*/
|
|
static void syntax(char *pgm)
|
|
{
|
|
// "Usage: %s ...
|
|
WRMSG( HHC02600, "I", pgm );
|
|
ErrExit( EXIT_ERROR_SYNTAX );
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* clean - cleanup before exit */
|
|
/*-------------------------------------------------------------------*/
|
|
static void clean()
|
|
{
|
|
close(fd);
|
|
free(L1tab); /* L1TAB buffer */
|
|
free(L2tab); /* L2TAB buffer */
|
|
free(tbuf); /* track and header buffer */
|
|
free(bulk); /* offset data buffer */
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* makbuf - allocate buffer, handle errors (exit if any) */
|
|
/*-------------------------------------------------------------------*/
|
|
static void *makbuf(int len, char *label)
|
|
{
|
|
void *p;
|
|
|
|
if (!(p = malloc( len )))
|
|
{
|
|
// "From %s: Storage allocation of size %d using %s failed"
|
|
FWRMSG( stderr, HHC02602, "S", label, len, "malloc()" );
|
|
clean();
|
|
ErrExit( EXIT_MALLOC_FAILED );
|
|
}
|
|
if (debug)
|
|
{
|
|
// "MAKBUF() malloc %s buffer of %d bytes at %p"
|
|
WRMSG( HHC90400, "D", label, len, p);
|
|
}
|
|
return p;
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* readpos - common lseek and read invocation with error handling */
|
|
/* This code exits on error rather than return to caller. */
|
|
/*-------------------------------------------------------------------*/
|
|
static int readpos
|
|
(
|
|
int fd, /* opened CCKD image file */
|
|
void* buf, /* buffer of size len */
|
|
off_t offset, /* read offset into CCKD image */
|
|
unsigned int len /* length of data to read */
|
|
)
|
|
{
|
|
int rc;
|
|
|
|
if (debug)
|
|
{
|
|
// "READPOS seeking %"PRId64" (0x%16.16"PRIX64")"
|
|
WRMSG( HHC90401, "D", offset, offset );
|
|
}
|
|
if (lseek( fd, offset, SEEK_SET ) < 0)
|
|
{
|
|
// "lseek() to pos 0x%16.16"PRIx64" error: %s"
|
|
FWRMSG( stderr, HHC02603, "S",
|
|
offset, strerror( errno ));
|
|
clean();
|
|
ErrExit( EXIT_SEEK_ERROR );
|
|
}
|
|
|
|
if (debug)
|
|
{
|
|
// "READPOS reading buf addr %p length %d (0x%X)"
|
|
WRMSG( HHC90402, "D", buf, len, len);
|
|
}
|
|
|
|
rc = read( fd, buf, len);
|
|
|
|
if (rc < (int) len )
|
|
{
|
|
if (rc < 0)
|
|
{
|
|
// "%s%s"
|
|
FWRMSG( stderr, HHC02604, "S", "read() error: ", strerror( errno ));
|
|
}
|
|
else if (rc == 0)
|
|
{
|
|
// "%s%s"
|
|
FWRMSG( stderr, HHC02604, "S", "read() error: ", "unexpected EOF" );
|
|
}
|
|
else
|
|
{
|
|
// "%s%s"
|
|
FWRMSG( stderr, HHC02604, "S", "read() error: ", "short block" );
|
|
}
|
|
|
|
clean();
|
|
ErrExit( EXIT_READ_ERROR );
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* decomptrk - decompress track data */
|
|
/*-------------------------------------------------------------------*/
|
|
/* */
|
|
/* ibuf points at CKD_TRKHDR or FBA_BKGHDR header followed by */
|
|
/* track or blockgroup data */
|
|
/* */
|
|
/* ibuflen specifies length of TRKHDR/BKGHDR and data */
|
|
/* */
|
|
/* Returns length of decompressed data or -1 on error. */
|
|
/* */
|
|
/* This code based on decompression logic in cdsk_valid_trk. */
|
|
/*-------------------------------------------------------------------*/
|
|
static int decomptrk
|
|
(
|
|
BYTE* ibuf, /* input buffer address */
|
|
int ibuflen, /* input buffer length */
|
|
BYTE* obuf, /* output buffer address */
|
|
int obuflen, /* output buffer length */
|
|
int heads, /* >=0 means CKD, else FBA */
|
|
int trk, /* relative track or block number */
|
|
char* emsg /* addr of 81 byte msg buf or NULL */
|
|
)
|
|
{
|
|
#if defined( HAVE_ZLIB ) || defined( CCKD_BZIP2 )
|
|
int rc; /* Return code */
|
|
#endif
|
|
unsigned int bufl; /* Buffer length */
|
|
#if defined( CCKD_BZIP2 )
|
|
unsigned int ubufl; /* when size_t != unsigned int */
|
|
#endif
|
|
|
|
#if !defined( HAVE_ZLIB ) && !defined( CCKD_BZIP2 )
|
|
UNREFERENCED(heads);
|
|
UNREFERENCED(trk);
|
|
UNREFERENCED(emsg);
|
|
#endif
|
|
|
|
memset(obuf, 0, obuflen);
|
|
|
|
/* Uncompress the track/block image */
|
|
switch (ibuf[0] & CCKD_COMPRESS_MASK)
|
|
{
|
|
|
|
case CCKD_COMPRESS_NONE:
|
|
bufl = (ibuflen < obuflen) ? ibuflen : obuflen;
|
|
memcpy (obuf, ibuf, bufl);
|
|
break;
|
|
|
|
#if defined( HAVE_ZLIB )
|
|
case CCKD_COMPRESS_ZLIB:
|
|
memcpy (obuf, ibuf, CKD_TRKHDR_SIZE);
|
|
bufl = obuflen - CKD_TRKHDR_SIZE;
|
|
rc = uncompress(&obuf[ CKD_TRKHDR_SIZE ],
|
|
(void *)&bufl,
|
|
&ibuf[ CKD_TRKHDR_SIZE ],
|
|
ibuflen);
|
|
if (rc != Z_OK)
|
|
{
|
|
if (emsg)
|
|
{
|
|
char msg[81];
|
|
|
|
MSGBUF(msg, "%s %d uncompress error, rc=%d;"
|
|
"%2.2x%2.2x%2.2x%2.2x%2.2x",
|
|
heads >= 0 ? "trk" : "blk", trk, rc,
|
|
ibuf[0], ibuf[1], ibuf[2], ibuf[3], ibuf[4]);
|
|
memcpy(emsg, msg, 81);
|
|
}
|
|
return -1;
|
|
}
|
|
bufl += CKD_TRKHDR_SIZE;
|
|
break;
|
|
#endif
|
|
|
|
#if defined( CCKD_BZIP2 )
|
|
case CCKD_COMPRESS_BZIP2:
|
|
memcpy(obuf, ibuf, CKD_TRKHDR_SIZE);
|
|
ubufl = obuflen - CKD_TRKHDR_SIZE;
|
|
rc = BZ2_bzBuffToBuffDecompress
|
|
(
|
|
(char *)&obuf[ CKD_TRKHDR_SIZE ],
|
|
&ubufl,
|
|
(char *)&ibuf[ CKD_TRKHDR_SIZE ],
|
|
ibuflen, 0, 0
|
|
);
|
|
if (rc != BZ_OK)
|
|
{
|
|
if (emsg)
|
|
{
|
|
char msg[81];
|
|
|
|
MSGBUF(msg, "%s %d decompress error, rc=%d;"
|
|
"%2.2x%2.2x%2.2x%2.2x%2.2x",
|
|
heads >= 0 ? "trk" : "blk", trk, rc,
|
|
ibuf[0], ibuf[1], ibuf[2], ibuf[3], ibuf[4]);
|
|
memcpy(emsg, msg, 81);
|
|
}
|
|
return -1;
|
|
}
|
|
bufl=ubufl;
|
|
bufl += CKD_TRKHDR_SIZE;
|
|
break;
|
|
#endif
|
|
|
|
default:
|
|
return -1;
|
|
|
|
} /* switch (buf[0] & CCKD_COMPRESS_MASK) */
|
|
return bufl;
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* show_ckd_count - display CKD dasd record COUNT field */
|
|
/* RECHDR is stored in big-endian byte order. */
|
|
/*-------------------------------------------------------------------*/
|
|
static BYTE *show_ckd_count(CKD_RECHDR *rh, int trk)
|
|
{
|
|
int cc, hh, r, kl, dl;
|
|
BYTE *past;
|
|
|
|
cc = (rh->cyl[0] << 8) | (rh->cyl[1]);
|
|
hh = (rh->head[0] << 8) | (rh->head[1]);
|
|
r = rh->rec;
|
|
kl = rh->klen;
|
|
dl = (rh->dlen[0] << 8) | (rh->dlen[1]);
|
|
|
|
// "Track %d COUNT cyl[%04X/%d] head[%04X/%d] rec[%02X/%d] kl[%d] dl[%d]"
|
|
WRMSG( HHC02605, "I", trk, cc, cc, hh, hh, r, r, kl, dl );
|
|
|
|
past = (BYTE *)rh + CKD_RECHDR_SIZE;
|
|
return past;
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* show_ckd_key - display CKD dasd record KEY field */
|
|
/*-------------------------------------------------------------------*/
|
|
static BYTE *show_ckd_key(CKD_RECHDR *rh, BYTE *buf, int trk, bool hexdump)
|
|
{
|
|
if (hexdump && rh->klen)
|
|
{
|
|
// "Track %d rec[%02X/%d] %s[%d]:"
|
|
printf("\n");
|
|
WRMSG( HHC02606, "I", trk, rh->rec, rh->rec, "kl", rh->klen );
|
|
data_dump( buf, rh->klen );
|
|
printf("\n");
|
|
}
|
|
return (BYTE *)buf + rh->klen; /* skip past KEY field */
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* show_ckd_data - display CKD dasd record DATA field */
|
|
/*-------------------------------------------------------------------*/
|
|
static BYTE* show_ckd_data( CKD_RECHDR* rh, BYTE* buf, int trk, bool hexdump)
|
|
{
|
|
int dl;
|
|
|
|
dl = (rh->dlen[0] << 8) | (rh->dlen[1]);
|
|
|
|
if (hexdump && dl)
|
|
{
|
|
// "Track %d rec[%02X/%d] %s[%d]:"
|
|
printf("\n");
|
|
WRMSG( HHC02606, "I", trk, rh->rec, rh->rec, "dl", dl );
|
|
data_dump( buf, dl );
|
|
printf("\n");
|
|
}
|
|
return buf + dl; /* skip past DATA field */
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* show_fba_block - display FBA dasd block DATA */
|
|
/*-------------------------------------------------------------------*/
|
|
static void show_fba_block( BYTE* buf, int blk, bool hexdump )
|
|
{
|
|
if (hexdump)
|
|
{
|
|
// "Block %d:"
|
|
WRMSG( HHC02616, "I", blk );
|
|
data_dump( buf, 512 );
|
|
printf("\n");
|
|
}
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* snap - display msg, dump data */
|
|
/*-------------------------------------------------------------------*/
|
|
#define COMPRESSED 1
|
|
#define EXPANDED 0
|
|
static void snap( int comp, void *data, int len, bool ckddasd )
|
|
{
|
|
if (comp)
|
|
{
|
|
// "SHOW%s Compressed %s header and data:"
|
|
WRMSG( HHC90403, "D",
|
|
ckddasd ? "TRK" : "BKG",
|
|
ckddasd ? "track" : "block group" );
|
|
data_dump( data, len );
|
|
}
|
|
else // EXPANDED
|
|
{
|
|
// "SHOW%s Decompressed %s header and data:"
|
|
WRMSG( HHC90404, "D",
|
|
ckddasd ? "TRK" : "BKG",
|
|
ckddasd ? "track" : "block group" );
|
|
data_dump( data, len );
|
|
}
|
|
|
|
if (pausesnap)
|
|
{
|
|
// "%s"
|
|
printf("\n");
|
|
WRMSG( HHC02601, "A", "Press enter to continue" );
|
|
getc( stdin );
|
|
}
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* showtrkorblk - display track or block data */
|
|
/* This code mimics selected logic in cdsk_valid_trk. */
|
|
/*-------------------------------------------------------------------*/
|
|
static void showtrkorblk
|
|
(
|
|
CKD_TRKHDR* buf, /* track or block group header ptr */
|
|
int imglen, /* TRKHDR/BKGHDR + track/block user data */
|
|
/* length */
|
|
int trk, /* relative track or block number */
|
|
bool ckddasd, /* true = CKD dasd false = FBA dasd */
|
|
bool hexdump /* true=dump key & data blks; false=don't*/
|
|
)
|
|
{
|
|
BYTE buf2[64*1024]; /* max uncompressed buffer */
|
|
char msg[81]; /* error message buffer */
|
|
CKD_RECHDR* rh; /* CCKD COUNT field */
|
|
BYTE* bufp; /* Decompressed data pointer */
|
|
int len; /* Decompressed data length */
|
|
|
|
if (debug)
|
|
{
|
|
snap( COMPRESSED, buf, imglen, ckddasd );
|
|
printf("\n");
|
|
}
|
|
|
|
/* Expand (decompress) the CKD track or FBA block group */
|
|
len = decomptrk
|
|
(
|
|
(BYTE *)buf, /* input buffer address */
|
|
imglen, /* input buffer length */
|
|
buf2, /* output buffer address */
|
|
sizeof(buf2), /* output buffer length */
|
|
ckddasd ? +1 : -1, /* >=0 means CKD, else FBA */
|
|
trk, /* relative track or block number */
|
|
msg /* addr of message buffer */
|
|
);
|
|
|
|
if (debug)
|
|
{
|
|
snap( EXPANDED, buf2, len, ckddasd );
|
|
printf("\n");
|
|
}
|
|
|
|
bufp = ckddasd ? &buf2[ CKD_TRKHDR_SIZE ] : &buf2[ FBA_BKGHDR_SIZE ];
|
|
|
|
if (ckddasd) // CCKD
|
|
{
|
|
while (bufp < &buf2[ sizeof( buf2 )])
|
|
{
|
|
rh = (CKD_RECHDR*) bufp;
|
|
|
|
if (memcmp( (BYTE*) rh, &CKD_ENDTRK, CKD_ENDTRK_SIZE ) == 0)
|
|
{
|
|
// "%s"
|
|
WRMSG( HHC02601, "I", "End of track" );
|
|
break;
|
|
}
|
|
|
|
bufp = show_ckd_count ( rh, trk);
|
|
bufp = show_ckd_key ( rh, bufp, trk, hexdump );
|
|
bufp = show_ckd_data ( rh, bufp, trk, hexdump );
|
|
}
|
|
}
|
|
else // CFBA
|
|
{
|
|
/* Extract block number of first block in block group */
|
|
FBA_BKGHDR* blkghdr = (FBA_BKGHDR*) buf2;
|
|
U32 grpnum = fetch_fw( blkghdr->grpnum );
|
|
|
|
/* Calculate relative block number within block group */
|
|
U32 grpblk = (trk - (grpnum * CFBA_BLKS_PER_GRP));
|
|
|
|
/* Index to desired block within expanded block group */
|
|
bufp += grpblk * FBA_SECTOR_SIZE;
|
|
|
|
/* Show desired block data */
|
|
show_fba_block( bufp, trk, hexdump );
|
|
}
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* offtify - given decimal or hex input string, return off_t */
|
|
/*-------------------------------------------------------------------*/
|
|
/* Locale independent, does not check for overflow */
|
|
/* References <ctype.h> and <string.h> */
|
|
/* Based on code in P. J. Plauger's "The Standard C Library" */
|
|
/* See page 34, in Chapter 2 (ctype.h) */
|
|
/*-------------------------------------------------------------------*/
|
|
static off_t offtify(char *s)
|
|
{
|
|
static const char xd[] = { "0123456789abcdefABCDEF" };
|
|
static const char xv[] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,
|
|
10, 11, 12, 13, 14, 15,
|
|
10, 11, 12, 13, 14, 15 };
|
|
off_t v;
|
|
char* p;
|
|
|
|
p = s;
|
|
if ( (*s == '0') && (*(s+1) == 'x') )
|
|
{
|
|
s = s + 2;
|
|
|
|
for (v = 0; isxdigit((unsigned char)*s); ++s)
|
|
v = (v << 4) + xv[ strchr( xd, *s ) - xd ];
|
|
|
|
if (debug)
|
|
{
|
|
// "OFFTIFY hex string '%s' = 0x%16.16"PRIX64", dec %"PRId64"."
|
|
WRMSG( HHC90405, "D", p, (U64) v, (U64) v );
|
|
}
|
|
return v;
|
|
}
|
|
else /* decimal input */
|
|
{
|
|
v = (off_t) atoll(s);
|
|
|
|
if (debug)
|
|
{
|
|
// "OFFTIFY dec string '%s' = 0x%16.16"PRIX64", dec %"PRId64"."
|
|
printf("\n");
|
|
WRMSG( HHC90406, "D", p, (U64) v, (U64) v );
|
|
}
|
|
return v;
|
|
}
|
|
}
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* Main function for CCKD diagnostics */
|
|
/*-------------------------------------------------------------------*/
|
|
int main (int argc, char *argv[])
|
|
{
|
|
int cckd_diag_rc = 0; /* Program return code */
|
|
|
|
char* pgm; /* less any extension (.ext) */
|
|
char* fn; /* File name */
|
|
|
|
CKD_DEVHDR devhdr; /* CKD device hdr */
|
|
CCKD_DEVHDR cdevhdr; /* Compressed CKD device hdr */
|
|
|
|
CKDDEV* ckd = NULL; /* CKD DASD table entry */
|
|
FBADEV* fba = NULL; /* FBA DASD table entry */
|
|
|
|
bool cmd_devhdr = false; /* display DEVHDR */
|
|
bool cmd_cdevhdr = false; /* display CDEVHDR */
|
|
bool cmd_l1tab = false; /* display L1TAB */
|
|
bool cmd_l2tab = false; /* display L2TAB */
|
|
bool cmd_trkdata = false; /* display track data */
|
|
bool cmd_hexdump = false; /* display track data (hex) */
|
|
|
|
bool cmd_offset = false; /* true = display data at */
|
|
int op_offset = 0; /* op_offset of length */
|
|
int op_length = 0; /* op_length */
|
|
|
|
bool cmd_cchh = false; /* true = display CCHH data */
|
|
int op_cc = 0; /* CC = cylinder */
|
|
int op_hh = 0; /* HH = head */
|
|
|
|
bool cmd_tt = false; /* true = display TT data */
|
|
int op_tt = 0; /* relative track/block # */
|
|
|
|
int heads = 0; /* Heads per cylinder */
|
|
int trk = 0; /* Track or block number */
|
|
int imglen = 0; /* track length */
|
|
|
|
int L1ndx = 0; /* Index into Level 1 table */
|
|
int L2ndx = 0; /* Index into Level 2 table */
|
|
|
|
off_t L2taboff = 0; /* offset to assoc. L2 table */
|
|
off_t trkhdroff = 0; /* offset to assoc. trk hdr */
|
|
|
|
bool ckddasd = false; /* true=CKD dasd, false=FBA */
|
|
bool swapend = false; /* 1 = New endianness doesn't
|
|
match machine endianness */
|
|
int num_L1tab; /* Number of L1tab entries */
|
|
char pathname[ MAX_PATH ]; /* file path in host format */
|
|
|
|
INITIALIZE_UTILITY( UTILITY_NAME, UTILITY_DESC, &pgm );
|
|
|
|
/* parse the arguments */
|
|
|
|
argc--; argv++;
|
|
|
|
while (argc > 0)
|
|
{
|
|
if (**argv != '-')
|
|
break;
|
|
|
|
switch(argv[0][1])
|
|
{
|
|
case 'v':
|
|
if (argv[0][2] != '\0')
|
|
{
|
|
syntax (pgm);
|
|
}
|
|
ErrExit( EXIT_NORMAL_SUCCESS );
|
|
break; /* Useless but prevents warning */
|
|
|
|
case 'd': if (argv[0][2] != '\0') syntax (pgm);
|
|
cmd_devhdr = true;
|
|
break;
|
|
|
|
case 'c': if (argv[0][2] != '\0') syntax (pgm);
|
|
cmd_cdevhdr = true;
|
|
break;
|
|
|
|
case '1': if (argv[0][2] != '\0') syntax (pgm);
|
|
cmd_l1tab = true;
|
|
break;
|
|
|
|
case '2': if (argv[0][2] != '\0') syntax (pgm);
|
|
cmd_l2tab = true;
|
|
break;
|
|
|
|
case 'a': if (argv[0][2] != '\0') syntax (pgm);
|
|
cmd_cchh = true;
|
|
|
|
argc--; argv++;
|
|
op_cc = (int) offtify(*argv);
|
|
|
|
argc--; argv++;
|
|
op_hh = (int) offtify(*argv);
|
|
break;
|
|
|
|
case 'r': if (argv[0][2] != '\0') syntax (pgm);
|
|
cmd_tt = true;
|
|
|
|
argc--; argv++;
|
|
op_tt = (int) offtify(*argv);
|
|
break;
|
|
|
|
case 'o': if (argv[0][2] != '\0') syntax (pgm);
|
|
cmd_offset = true;
|
|
|
|
argc--; argv++;
|
|
op_offset = (int) offtify(*argv);
|
|
|
|
argc--; argv++;
|
|
op_length = (int) offtify(*argv);
|
|
break;
|
|
|
|
case 't': if (argv[0][2] != '\0') syntax (pgm);
|
|
cmd_trkdata = true;
|
|
break;
|
|
|
|
case 'x': if (argv[0][2] != '\0') syntax (pgm);
|
|
cmd_hexdump = true;
|
|
cmd_trkdata = true;
|
|
break;
|
|
|
|
case 'g': if (argv[0][2] != '\0') syntax (pgm);
|
|
debug = 1;
|
|
break;
|
|
|
|
default: syntax (pgm);
|
|
}
|
|
|
|
argc--; argv++;
|
|
}
|
|
|
|
if (argc != 1)
|
|
syntax (pgm);
|
|
|
|
printf("\n");
|
|
|
|
fn = argv[0];
|
|
|
|
/* open the file */
|
|
hostpath( pathname, fn, sizeof( pathname ));
|
|
fd = HOPEN( pathname, O_RDONLY | O_BINARY );
|
|
|
|
if (fd < 0)
|
|
{
|
|
// "error opening file %s: %s"
|
|
FWRMSG( stderr, HHC02607, "E", fn, strerror( errno ));
|
|
ErrExit( EXIT_OPEN_ERROR );
|
|
}
|
|
|
|
/*---------------------------------------------------------------*/
|
|
/* display DEVHDR - first 512 bytes of dasd image */
|
|
/*---------------------------------------------------------------*/
|
|
readpos( fd, &devhdr, 0, CKD_DEVHDR_SIZE );
|
|
|
|
if (cmd_devhdr)
|
|
{
|
|
BYTE* p = (BYTE*) &devhdr;
|
|
|
|
// "%s - %d (decimal) bytes:"
|
|
printf("\n");
|
|
WRMSG( HHC02614, "I", "DEVHDR", (int) CKD_DEVHDR_SIZE );
|
|
|
|
// Note: first 8 bytes of DEVHDR is in ASCII, but
|
|
// the data_dump function dumps 16 bytes per line.
|
|
data_dump_ascii ( p, 16 );
|
|
data_dump_offset( p + 16, CKD_DEVHDR_SIZE, 16 );
|
|
|
|
printf("\n");
|
|
}
|
|
|
|
/*---------------------------------------------------------------*/
|
|
/* Determine CKD or FBA device type */
|
|
/*---------------------------------------------------------------*/
|
|
if (is_dh_devid_typ( devhdr.dh_devid, CKD32_CMP_OR_SF_TYP ))
|
|
{
|
|
ckddasd = true;
|
|
|
|
ckd = dasd_lookup( DASD_CKDDEV, NULL, devhdr.dh_devtyp, 0 );
|
|
|
|
if (!ckd)
|
|
{
|
|
// "DASD table entry not found for devtype 0x%2.2X"
|
|
FWRMSG( stderr, HHC02608, "S", devhdr.dh_devtyp );
|
|
clean();
|
|
ErrExit( EXIT_NO_CKD_DASDTAB );
|
|
}
|
|
}
|
|
else if (is_dh_devid_typ( devhdr.dh_devid, FBA32_CMP_OR_SF_TYP ))
|
|
{
|
|
ckddasd = false;
|
|
|
|
fba = dasd_lookup( DASD_FBADEV, NULL, devhdr.dh_devtyp, 0 );
|
|
|
|
if (!fba)
|
|
{
|
|
// "DASD table entry not found for devtype 0x%2.2X"
|
|
FWRMSG( stderr, HHC02608, "S", DEFAULT_FBA_TYPE );
|
|
clean();
|
|
ErrExit( EXIT_NO_FBA_DASDTAB );
|
|
}
|
|
}
|
|
else
|
|
{
|
|
// "%s%s"
|
|
FWRMSG( stderr, HHC02604, "E", "incorrect header id", "" );
|
|
clean();
|
|
ErrExit( EXIT_WRONG_CCKD_TYPE );
|
|
}
|
|
|
|
/*---------------------------------------------------------------*/
|
|
/* Set up device characteristics */
|
|
/*---------------------------------------------------------------*/
|
|
if (ckddasd)
|
|
{
|
|
FETCH_LE_FW( heads, devhdr.dh_heads );
|
|
|
|
if (debug)
|
|
{
|
|
// "%s device has %d heads/cylinder"
|
|
WRMSG( HHC90407, "D", ckd->name, heads);
|
|
}
|
|
}
|
|
|
|
/*---------------------------------------------------------------*/
|
|
/* display CDEVHDR - follows DEVHDR */
|
|
/*---------------------------------------------------------------*/
|
|
readpos( fd, &cdevhdr, CKD_DEVHDR_SIZE, sizeof( cdevhdr ));
|
|
|
|
if (cmd_cdevhdr)
|
|
{
|
|
// "%s - %d (decimal) bytes:"
|
|
printf("\n");
|
|
WRMSG( HHC02614, "I", "CDEVHDR", (int) sizeof( cdevhdr ));
|
|
data_dump( &cdevhdr, sizeof( cdevhdr ));
|
|
printf("\n");
|
|
}
|
|
|
|
/*---------------------------------------------------------------*/
|
|
/* Find machine endian-ness */
|
|
/* cckd_def_opt_bigend() returns 1 for big-endian machines */
|
|
/*---------------------------------------------------------------*/
|
|
swapend = (cckd_def_opt_bigend() !=
|
|
((cdevhdr.cdh_opts & CCKD_OPT_BIGEND) != 0));
|
|
|
|
/*---------------------------------------------------------------*/
|
|
/* display L1TAB - follows CDEVHDR */
|
|
/*---------------------------------------------------------------*/
|
|
|
|
/* swap num_L1tab if needed */
|
|
num_L1tab = cdevhdr.num_L1tab;
|
|
if (swapend)
|
|
num_L1tab = SWAP32( num_L1tab );
|
|
|
|
L1tab = makbuf( num_L1tab * CCKD_L1ENT_SIZE, "L1TAB" );
|
|
readpos( fd, L1tab, CCKD_L1TAB_POS, num_L1tab * CCKD_L1ENT_SIZE );
|
|
|
|
/* L1TAB itself is NOT adjusted for endian-ness */
|
|
if (cmd_l1tab)
|
|
{
|
|
// "%s - %d (decimal) bytes:"
|
|
printf("\n");
|
|
WRMSG( HHC02614, "I", "L1TAB", (int) (num_L1tab * CCKD_L1ENT_SIZE) );
|
|
data_dump( L1tab, num_L1tab * CCKD_L1ENT_SIZE );
|
|
printf("\n");
|
|
}
|
|
|
|
/*---------------------------------------------------------------*/
|
|
/* display OFFSET, LENGTH data */
|
|
/*---------------------------------------------------------------*/
|
|
if (cmd_offset)
|
|
{
|
|
bulk = makbuf(op_length, "BULK");
|
|
|
|
readpos(fd, bulk, op_offset, op_length);
|
|
|
|
// "%s offset %"PRId64" (0x%16.16"PRIX64"); length %d (0x%8.8X) bytes%s"
|
|
printf("\n");
|
|
WRMSG( HHC02613, "I", "IMAGE",
|
|
(U64) op_offset, (U64) op_offset, op_length, op_length, ":" );
|
|
data_dump( bulk, op_length );
|
|
printf("\n");
|
|
|
|
free(bulk);
|
|
bulk = NULL;
|
|
}
|
|
|
|
/*---------------------------------------------------------------*/
|
|
/* FBA devices don't have cylinders or heads */
|
|
/*---------------------------------------------------------------*/
|
|
if (!ckddasd && cmd_cchh)
|
|
{
|
|
// "%s%s"
|
|
FWRMSG( stderr, HHC02604, "S", "CCHH not supported for FBA", "" );
|
|
clean();
|
|
ErrExit( EXIT_NO_FBA_CCHH );
|
|
}
|
|
|
|
/*---------------------------------------------------------------*/
|
|
/* Setup CCHH or relative track request */
|
|
/*---------------------------------------------------------------*/
|
|
if (ckddasd)
|
|
{
|
|
if (cmd_tt)
|
|
{
|
|
trk = op_tt;
|
|
op_cc = trk / heads;
|
|
op_hh = trk % heads;
|
|
}
|
|
else
|
|
{
|
|
trk = (op_cc * heads) + op_hh;
|
|
}
|
|
|
|
L1ndx = trk / cdevhdr.num_L2tab;
|
|
L2ndx = trk % cdevhdr.num_L2tab;
|
|
}
|
|
|
|
/*---------------------------------------------------------------*/
|
|
/* For FBA devices a relative track is treated as a block number */
|
|
/*---------------------------------------------------------------*/
|
|
if (!ckddasd && cmd_tt)
|
|
{
|
|
int blkgrp = (trk = op_tt) / CFBA_BLKS_PER_GRP;
|
|
|
|
L1ndx = blkgrp / cdevhdr.num_L2tab;
|
|
L2ndx = blkgrp % cdevhdr.num_L2tab;
|
|
}
|
|
|
|
/*---------------------------------------------------------------*/
|
|
/* Verify device is large enough for the request */
|
|
/*---------------------------------------------------------------*/
|
|
if (L1ndx >= num_L1tab)
|
|
{
|
|
// "%s %d does not exist on this device"
|
|
FWRMSG( stderr, HHC02617, "S", ckddasd ? "Track" : "Block", trk );
|
|
clean();
|
|
ErrExit( EXIT_DATA_NOTFOUND );
|
|
}
|
|
|
|
L2taboff = L1tab[ L1ndx ];
|
|
|
|
if (swapend)
|
|
L2taboff = SWAP_OFF_T( L2taboff );
|
|
|
|
/*---------------------------------------------------------------*/
|
|
/* Display CKD CCHH or relative track or FBA relative block data */
|
|
/*---------------------------------------------------------------*/
|
|
if ((cmd_cchh) || (cmd_tt))
|
|
{
|
|
if (ckddasd)
|
|
// "CC %d HH %d = reltrk %d; L1 index = %d, L2 index = %d"
|
|
WRMSG( HHC02609, "I", op_cc, op_hh, trk, L1ndx, L2ndx );
|
|
else
|
|
// "Block %d; L1 index = %d, L2 index = %d"
|
|
WRMSG( HHC02615, "I", trk, L1ndx, L2ndx );
|
|
|
|
// "L1 index %d = L2TAB offset %"PRId64" (0x%16.16"PRIX64")"
|
|
WRMSG( HHC02610, "I", L1ndx, L2taboff, L2taboff );
|
|
|
|
// PROGRAMMING NOTE: for whatever reason, base dasd image files
|
|
// use a L2_trkoff value of zero in their L1tab entry for non-
|
|
// existent tracks, whereas shadow files use a value of -1, so
|
|
// we need to check for both.
|
|
|
|
if (!L2taboff || L2taboff == CCKD_MAXSIZE)
|
|
{
|
|
// "L2tab for %s %d not found"
|
|
FWRMSG( stderr, HHC02618, "S", ckddasd ? "track" : "block", trk );
|
|
clean();
|
|
ErrExit( EXIT_DATA_NOTFOUND );
|
|
}
|
|
|
|
L2tab = makbuf( cdevhdr.num_L2tab * CCKD_L2ENT_SIZE, "L2TAB" );
|
|
readpos( fd, L2tab, L2taboff, cdevhdr.num_L2tab * CCKD_L2ENT_SIZE );
|
|
|
|
if (cmd_l2tab)
|
|
{
|
|
// "%s - %d (decimal) bytes:"
|
|
printf("\n");
|
|
WRMSG( HHC02614, "I", "L2TAB",
|
|
(int) (cdevhdr.num_L2tab * CCKD_L2ENT_SIZE) );
|
|
data_dump( L2tab, (cdevhdr.num_L2tab * CCKD_L2ENT_SIZE));
|
|
}
|
|
|
|
// "L2 index %d = L2TAB entry: %d bytes:"
|
|
printf("\n");
|
|
WRMSG( HHC02611, "I", L2ndx, (int) CCKD_L2ENT_SIZE);
|
|
data_dump( &L2tab[ L2ndx ], CCKD_L2ENT_SIZE);
|
|
printf("\n");
|
|
|
|
trkhdroff = L2tab[ L2ndx ].L2_trkoff;
|
|
imglen = L2tab[ L2ndx ].L2_len;
|
|
|
|
if (swapend)
|
|
{
|
|
trkhdroff = SWAP_OFF_T( trkhdroff );
|
|
imglen = SWAP32( imglen );
|
|
}
|
|
|
|
// "%s offset %"PRId64" (0x%16.16"PRIX64"); length %d (0x%8.8X) bytes%s"
|
|
WRMSG( HHC02613, "I", ckddasd ? "TRKHDR" : "BKGHDR",
|
|
trkhdroff, trkhdroff, imglen, imglen, "" );
|
|
|
|
/* Verify device contains the requested track/block */
|
|
if (!trkhdroff || !imglen)
|
|
{
|
|
// "%s %d not found"
|
|
FWRMSG( stderr, HHC02619, "S", ckddasd ? "Track" : "Block", trk );
|
|
clean();
|
|
ErrExit( EXIT_DATA_NOTFOUND );
|
|
}
|
|
|
|
tbuf = makbuf(imglen, ckddasd ? "TRKHDR+DATA" : "BKGHDR+DATA");
|
|
readpos(fd, tbuf, trkhdroff, imglen);
|
|
|
|
// "%sHDR %s %d:"
|
|
WRMSG( HHC02612, "I", ckddasd ? "TRK" : "BKG",
|
|
ckddasd ? "track" : "block", trk );
|
|
data_dump( tbuf, CKD_TRKHDR_SIZE);
|
|
printf("\n");
|
|
|
|
if (cmd_trkdata)
|
|
showtrkorblk( tbuf, imglen, trk, ckddasd, cmd_hexdump );
|
|
|
|
free(L2tab);
|
|
free(tbuf);
|
|
|
|
L2tab = NULL;
|
|
tbuf = NULL;
|
|
}
|
|
|
|
/* Close file, exit */
|
|
clean();
|
|
ErrExit( cckd_diag_rc );
|
|
UNREACHABLE_CODE( return EXIT_ERROR_LOGIC_ERROR );
|
|
}
|