exxos's Atari, Amiga & retro forum

Code: Select all

ID=freewind 
WINDOW OPEN ID,"" ,20,20,300,150,1

print "CRAPPY HARD DRIVE TESTER V2.01"

'create string

DIM A$,B$,A,C$,P,C,SZ,MB

A$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-*!"

B$=""
FOR A=1 TO 13
B$=B$+A$
NEXT A

SZ=100000 ' 50MB

PRINT ""
PRINT " SAVING "+STR$(SZ) +" SECTORS "
PRINT ""

OPEN "BLAH.TXT" for OUTPUT AS #3

FOR A=1 TO SZ
C=C+1
print #3,B$
IF C>5000 THEN PRINT "."; : C=0
NEXT A

close #3

PRINT ""
PRINT " READING & CHECKING SECTOR"
OPEN "BLAH.TXT" FOR INPUT AS #4

F=0

C=0
PRINT ""

FOR A=1 TO SZ
LINE INPUT #4,C$
IF C>5000 THEN PRINT "."; : C=0
	IF C$ = B$ THEN 
		F=F+1
	ELSE
		PRINT "FAILED":END
	END IF

C=C+1
NEXT A

PRINT ""
CLOSE #4

	IF F=SZ THEN 
	PRINT " TESTED OK"
	ELSE
	PRINT " FAILED"  :END
    END IF


PRINT ""


END

Code: Select all

extern "C" {
#include <gemdos.h>
#include <libc.h>
}

#define BUFFER_SIZE 512
#define BUFFER_REPEATS 100000

uint8_t buffer[BUFFER_SIZE];
uint8_t read_buffer[BUFFER_SIZE];

void check_error(int condition, const char *message) {
  if (condition) {
    printf("Error: %s.\nPress any key to exit.", message);
    Cconin();
    exit(1);
  }
}

void print_binary(uint8_t byte) {
  for (int bit = 1 << 7; bit; bit >>= 1) {
    printf("%c", byte & bit ? '1' : '0');
  }
}

int main(int argc, char **argv)
{
  printf("\x1b");
  printf("E");
  printf("Crappy hard drive tester V2.01 + a bit\n");

  // Fill buffer up with various data values
  for (int a = 0; a < BUFFER_SIZE; a++) {
    buffer[a] = a;
  }

  // Create a 512,000,000-byte file
  FILE handle = Fcreate("FILE.TXT", 0);
  check_error(handle < 0, "Couldn't create file");
  printf("\nSaving %d sectors\n", BUFFER_REPEATS);
  for (uint32_t count = 0; count < BUFFER_REPEATS; count++) {
    int32_t result = Fwrite(handle, BUFFER_SIZE, buffer);
    check_error(result < 0, "Write error");
    if (count % 5000 == 4999) {
      printf(".");
    }
  }
  printf("\n");
  Fclose(handle);

  // Re-read the file and check the contents are the same
  printf("\nReading and checking sectors\n");
  handle = Fopen("FILE.TXT", GEMDOS_RDONLY);
  check_error(handle < 0, "Couldn't open file for read");
  for (uint32_t count = 0; count < BUFFER_REPEATS; count++) {
    int32_t result = Fread(handle, BUFFER_SIZE, read_buffer);
    check_error(result < 0, "Read error");

    /* To test the failure condition */
    if (0) {
      if (count == 10) {
        read_buffer[307] = 128;
      }
    }

    for (int byte = 0; byte < BUFFER_SIZE; byte++) {
      if (read_buffer[byte] != (byte & 0xff)) {
        printf("Data mismatch: expected 0b");
        print_binary(byte & 0xff);

        printf("\n                   read 0b");
        print_binary(read_buffer[byte]);
        printf("\nPress any key to exit.\n");
        Cconin();
        exit(1);
      }
    }
    if (count % 5000 == 4999) {
      printf(".");
    }
  }
  printf("\n");
  Fclose(handle);

  printf("\nTested OK.\n");
  printf("\nPress any key to exit\n");
  Cconin();

  return 0;
}

Code: Select all

	 if(memcmp(buffer, read_buffer, BUFFER_SIZE) != 0) {
		 for (int byte = 0; byte < BUFFER_SIZE; byte++) {
			if (read_buffer[byte] != (byte & 0xff)) {
			  printf("Data mismatch: expected 0b");
			  print_binary(byte & 0xff);

			  printf("\n                   read 0b");
			  print_binary(read_buffer[byte]);
			  printf("\nPress any key to exit.\n");
			  Cconin();
			  exit(1);
			}
		 }
    }