/* h8dls - This program opens a file in "H8D" format and
** lists the directory of the disk image
**
** Usage: h8dls <H8D file>
**
** Version 1.0
**
** Compiled with Software Toolworks C/80 V. 3.0
**
** Glenn Roberts 19 October 2013
*/

/* include float/long printf code */
#include "fprintf.c"

/* seek.c needed for random I/O */
#include "seek.c"

/* buffer used for read/write */
#define BUFFSIZE	256
char rwbuff[BUFFSIZE];

/* Disk info structure - contained on sector 9 */
struct dkinfo {
	char volser;			/* Serial number		*/
	int idate;				/* Date INITed			*/
	int dirsector;			/* Start of DIRectory	*/
	int grtsector;			/* GRT sector			*/
	char spg;				/* sectors per group	*/
	char voltype;			/* volume type			*/
	char initver;			/* INIT version used	*/
	int rgtsector;			/* RGT sector			*/
	int volsize;			/* volume size			*/
	int sectsize;			/* physical sector size	*/
	char flags;				/* flags				*/
	char label[60];			/* disk label			*/
	int reserved;			/* reserved				*/
	char spt;				/* sectors per track	*/
	char unused[176];		/* filler				*/
}dkbuff;

/* hdir - perform directory function on the specified file */
hdir(fname)
char *fname;
{
	int i, ch;
	char *s, *d;
	
	if((ch = fopen(fname, "rb")) == 0)
		printf("Unable to open source file %s\n", fname);
	else {
		/* File open, test if proper H8D format by examining
		** first few bytes for proper signature
		*/
		read(ch, rwbuff, BUFFSIZE);
		if ( ( rwbuff[0] == 0xFFC3 ) && 
			 ( rwbuff[1] == 0xFFA0 ) &&
			 ( rwbuff[2] == 0x0022 ) &&
			 ( rwbuff[3] == 0x0020 ) ) {
			/* have valid file - examine sector 10 for key info */
			seek(ch, 0x0900, 0);
			read(ch, rwbuff, BUFFSIZE);
			
			s = rwbuff;
			d = (char *) &dkbuff;
			/* copy into dkinfo structure */
			for (i=0; i<BUFFSIZE; i++)
				*d++ = *s++;
		}
		else {
			printf("File %s not a valid H8D  file!\n", fname);
			printf("Dumping buffer...\n");
			hexdump(rwbuff, BUFFSIZE);
		}
		fclose (ch);
	}
}

/* printdir - print directory information */
printdir()
{
	int i;
	char *c;
	
	printf("Volume             = %d\n", dkbuff.volser);
	printf("Label: '");
	for (i=0, c=dkbuff.label; i<60; i++)
		putchar(*c++);
	printf("'\n");
	printf("INIT date          = ");
	prdate(dkbuff.idate);
	printf("\n");
	printf("Start of DIRectory = %d\n", dkbuff.dirsector);
	printf("GRT sector         = %d\n", dkbuff.grtsector);
	printf("Sectors/group      = %d\n", dkbuff.spg);
	printf("Vol Type           = %d\n", dkbuff.voltype);
	printf("INIT version       = %d\n", dkbuff.initver);
	printf("RGT sector         = %d\n", dkbuff.rgtsector);
	printf("Volume size        = %d\n", dkbuff.volsize);
	printf("Sector size        = %d\n", dkbuff.sectsize);
	printf("Flags              = %d\n", dkbuff.flags);
	printf("Sectors/track      = %d\n", dkbuff.spt);
	printf("\n");
}

/* prdate - print date stored in HDOS format */
prdate(d)
int d;
{
	int day, mo, yr;
	if (d == 0)
		printf(" No-Date ");
	else {
		/* day in rightmost 5 bits */
		day = d & 0x1F;
		/* next 4 bits are month */
		mo = (d / 32) & 0x0F;
		/* next 6 bits are yr - 1970 */
		yr = 1970 + ((d / 512) & 0x3F);
		printf("%2d-%2d-%2d", mo, day, yr-1900);
	}
}

/* hexdump - dump a buffer to stdout in hexadecimal format */
hexdump(b,n)
char *b;
int n;
{
  int i;

  /* print header */  
  printf("\n\n\t0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F");
  printf("  0123456789ABCDEF\n");
  printf("\t\b-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --");
  printf("  ----------------\n");
  for (i=0; i<n; i+=16) {
    printf("%04x",i);
    printf(" :");
    hexline(b+i,16);
    printf("  ");
    asciiline(b+i,16);
    printf("\n");
  }
}

/* hexline - print n bytes in hexadecimal */
hexline(b,n)
char *b;
int n;
{
  int i;
  
  for (i=0; i<n; i++)
    printf(" %02x",b[i]&0xFF);
}

/* asciiline - print n characters in ascii */
/* (substitute '.' for non printable characters) */
asciiline(b,n)
char *b;
int n;
{
  int i;
  
  for (i=0; i<n; i++) {
    if (isprint(b[i]))
      putchar(b[i]);
    else
      putchar('.');
  }
}

int isprint(c)
char c;
{
  return ((c>0x1F) && (c<0x7F));
}

main(argc,argv)
int argc;
char *argv[];
{	
	if (argc < 2)
		printf("Usage: %s <file>\n", argv[0]);
	else {
		hdir(argv[1]);
		printdir();
	}
}

#include "stdlib.c"