Antitrack_at_networld.at
Date: 2005-11-28 21:35:51
Zitat von silverdr@inet.com.pl:
> I looked up on Aminet but didn't find anything like that. Could you
> send me the tool you refer to?
You can't google? Called "1541.c", Aminet:
/*
1541 disk-to-file convertor for A1020
Copyright ® 1994 by Dan Babcock
Compiled with SAS/C V6.51
*/
static unsigned bitptr; /* Bit pointer to raw data (offset from RawBuffer) */
/* Grab 10 bits of GCR from RawBuffer+bitptr and return a byte of decoded data
*/
/* Note: No checking for "end of buffer" condition! */
static __inline UBYTE GetByte(void)
{
static UBYTE GCRTable[] = {
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x88,0x80,0x81,0x00,
0x8C,0x84,0x85,
0x00,0x00,0x82,0x83,0x00,0x8F,0x86,0x87,0x00,0x89,0x8A,0x8B,0x00,
0x8D,0x8E,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x08,0x00,0x01,0x00,
0x0C,0x04,0x05,
0x00,0x00,0x02,0x03,0x00,0x0F,0x06,0x07,0x00,0x09,0x0A,0x0B,0x00,
0x0D,0x0E,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x10,0x11,0x00,
0x1C,0x14,0x15,
0x00,0x00,0x12,0x13,0x00,0x1F,0x16,0x17,0x00,0x19,0x1A,0x1B,0x00,
0x1D,0x1E,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xC8,0xC0,0xC1,0x00,
0xCC,0xC4,0xC5,
0x00,0x00,0xC2,0xC3,0x00,0xCF,0xC6,0xC7,0x00,0xC9,0xCA,0xCB,0x00,
0xCD,0xCE,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x48,0x40,0x41,0x00,
0x4C,0x44,0x45,
0x00,0x00,0x42,0x43,0x00,0x4F,0x46,0x47,0x00,0x49,0x4A,0x4B,0x00,
0x4D,0x4E,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x58,0x50,0x51,0x00,
0x5C,0x54,0x55,
0x00,0x00,0x52,0x53,0x00,0x5F,0x56,0x57,0x00,0x59,0x5A,0x5B,0x00,
0x5D,0x5E,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x28,0x20,0x21,0x00,
0x2C,0x24,0x25,
0x00,0x00,0x22,0x23,0x00,0x2F,0x26,0x27,0x00,0x29,0x2A,0x2B,0x00,
0x2D,0x2E,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x38,0x30,0x31,0x00,
0x3C,0x34,0x35,
0x00,0x00,0x32,0x33,0x00,0x3F,0x36,0x37,0x00,0x39,0x3A,0x3B,0x00,
0x3D,0x3E,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xF8,0xF0,0xF1,0x00,
0xFC,0xF4,0xF5,
0x00,0x00,0xF2,0xF3,0x00,0xFF,0xF6,0xF7,0x00,0xF9,0xFA,0xFB,0x00,
0xFD,0xFE,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x68,0x60,0x61,0x00,
0x6C,0x64,0x65,
0x00,0x00,0x62,0x63,0x00,0x6F,0x66,0x67,0x00,0x69,0x6A,0x6B,0x00,
0x6D,0x6E,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x78,0x70,0x71,0x00,
0x7C,0x74,0x75,
0x00,0x00,0x72,0x73,0x00,0x7F,0x76,0x77,0x00,0x79,0x7A,0x7B,0x00,
0x7D,0x7E,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x98,0x90,0x91,0x00,
0x9C,0x94,0x95,
0x00,0x00,0x92,0x93,0x00,0x9F,0x96,0x97,0x00,0x99,0x9A,0x9B,0x00,
0x9D,0x9E,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xA8,0xA0,0xA1,0x00,
0xAC,0xA4,0xA5,
0x00,0x00,0xA2,0xA3,0x00,0xAF,0xA6,0xA7,0x00,0xA9,0xAA,0xAB,0x00,
0xAD,0xAE,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xB8,0xB0,0xB1,0x00,
0xBC,0xB4,0xB5,
0x00,0x00,0xB2,0xB3,0x00,0xBF,0xB6,0xB7,0x00,0xB9,0xBA,0xBB,0x00,
0xBD,0xBE,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xD8,0xD0,0xD1,0x00,
0xDC,0xD4,0xD5,
0x00,0x00,0xD2,0xD3,0x00,0xDF,0xD6,0xD7,0x00,0xD9,0xDA,0xDB,0x00,
0xDD,0xDE,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE8,0xE0,0xE1,0x00,
0xEC,0xE4,0xE5,
0x00,0x00,0xE2,0xE3,0x00,0xEF,0xE6,0xE7,0x00,0xE9,0xEA,0xEB,0x00,
0xED,0xEE,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00
};
ULONG data;
/* Fetch a longword at a word address using bitptr */
data=*(ULONG*)(RawBuffer+(bitptr>>3 & ~1));
/* Right-adjust and mask */
data >>= 22-(bitptr & 15);
data &= 1023;
bitptr += 10;
return GCRTable[data];
}
/* Scan for sync mark from bitptr. Returns TRUE if sync found.
We look for 9 1-bits (minimum to distinguish from normal data) starting on a
byte
alignment. Consequently there must be at least 16 1-bits physically on the
disk.
*/
static bool ScanSync(void)
{
UBYTE *ptr;
unsigned offset;
ptr=RawBuffer+(bitptr>>3);
if (bitptr&7) ptr++;
if (ptr >= RawBuffer+RAWBUFSIZE) return FALSE;
while (1) {
while (*ptr != 0xFF) {
++ptr;
if (ptr >= RawBuffer+RAWBUFSIZE) return FALSE;
}
++ptr;
if (ptr >= RawBuffer+RAWBUFSIZE) return FALSE;
if (*ptr & 0x80) break;
}
while (*ptr == 0xFF) {
++ptr;
if (ptr >= RawBuffer+RAWBUFSIZE) return FALSE;
}
if (*ptr == 0xFE) offset=7;
else if ((*ptr&0xFC)==0xFC) offset=6;
else if ((*ptr&0xF8)==0xF8) offset=5;
else if ((*ptr&0xF0)==0xF0) offset=4;
else if ((*ptr&0xE0)==0xE0) offset=3;
else if ((*ptr&0xC0)==0xC0) offset=2;
else if ((*ptr&0x80)==0x80) offset=1;
else offset=0;
bitptr=(ptr-RawBuffer)*8 + offset;
return TRUE;
}
static void ReadAndDecodeTrack(unsigned track, char *DecodedBuffer)
{
unsigned NeedMap, ReadMap;
unsigned drivetrack; /* 1541 track# */
unsigned SectorsPerTrack;
int retry;
UBYTE *secptr;
unsigned sec;
ULONG *longsecptr;
drivetrack=track/2 + 1;
/* Set bufbase, SectorsPerTrack, and DecodedBuffer */
if (drivetrack < 18) { /* zone 1 */
SectorsPerTrack=21; DecodedBuffer+=(drivetrack-1)*21*256;
NeedMap=(1<<21)-1;
}
else if (drivetrack < 25) { /* zone 2 */
SectorsPerTrack=19; DecodedBuffer+=357*256+(drivetrack-18)*19*256;
NeedMap=(1<<19)-1;
}
else if (drivetrack < 31) { /* zone 3 */
SectorsPerTrack=18; DecodedBuffer+=490*256+(drivetrack-25)*18*256;
NeedMap=(1<<18)-1;
}
else { /* zone 4 */
SectorsPerTrack=17; DecodedBuffer+=598*256+(drivetrack-31)*17*256;
NeedMap=(1<<17)-1;
}
ReadMap=0;
for (retry=RetryCount; (ReadMap != NeedMap) && (retry>=0); retry--) {
bitptr=0;
RawRead(track);
while (ReadMap != NeedMap) {
/* decode sector */
UBYTE checksum, sectornum, tracknum, id1, id2;
unsigned i;
if (!ScanSync()) break;
if (bitptr > MAXBITPTR) break;
if (GetByte() != 0x08) continue; /* if not header, restart */
checksum=GetByte(); sectornum=GetByte(); tracknum=GetByte();
id1=GetByte(); id2=GetByte();
if (checksum^tracknum^sectornum^id1^id2) continue;
if (sectornum >= SectorsPerTrack) {
printf("Sector number out of range on track %d\n",
drivetrack);
continue;
}
if (tracknum != drivetrack) {
printf("Wrong track number (%d) on track %d\n",(int)
tracknum,drivetrack);
continue;
}
if (ReadMap & (1<<sectornum)) continue; /* already read 'em */
/* Header looks good. Onto the data block. */
if (!ScanSync()) break;
if (bitptr > MAXBITPTR) break;
if (GetByte() != 0x07) continue; /* if not data block, restart
*/
secptr=DecodedBuffer+(sectornum*256);
checksum=0;
for (i=0; i <= 255; i++) {
*secptr=GetByte(); checksum ^= *secptr; secptr++;
}
if (GetByte() == checksum) {
ReadMap |= 1<<sectornum;
}
}
if (ReadMap != NeedMap) {
printf("Trouble reading track %d\n",drivetrack);
}
}
if (ReadMap == NeedMap) {
// printf("Track %d read successfully\n",drivetrack);
return;
}
/* We couldn't read one or more sectors on this track. Print out some info
and
mark the bad sectors with a special identifier */
printf("Bad sectors on track %d: ",drivetrack);
for (sec=0; sec < SectorsPerTrack; sec++) {
unsigned i;
if (!(ReadMap & 1<<sec)) {
printf("%d, ",sec);
secptr=DecodedBuffer+(sec*256);
longsecptr=(ULONG*)secptr;
for (i=0; i <= 63; i++) {
longsecptr[i]=0;
}
secptr[1]=0xFF;
strcpy(secptr+2,"LAZARUS");
}
}
printf("\b\b \n");
}
/* Returns TRUE if successful */
static bool WriteFile(char *filename, char *buffer, unsigned size)
{
BPTR file;
LONG actual;
file=Open(filename,MODE_NEWFILE); if (!file) return FALSE;
actual=Write(file,buffer,size);
Close(file);
if (actual != size) return FALSE;
return TRUE;
}
void main(void)
{
unsigned track;
printf("1541 - Copyright ® 1994 by Dan Babcock\n");
/* Handle command-line arguments */
rdargs=ReadArgs("DRIVE/N/A,FILENAME/A,RETRY/K/N,TOP/S",args,0);
if (rdargs == 0) {
printf("Invalid parameters\n");
return;
}
if (args[RETRY]) RetryCount=*(unsigned*)args[RETRY];
/* Set up for trackdisk I/O */
DiskBase=OpenResource("disk.resource");
if ((port = CreateMsgPort())==0) {
printf("Could not create message port (out of memory)\n");
return;
}
if ((io = CreateIORequest(port,sizeof(struct IOStdReq)))==0) {
printf("Could not create IORequest (out of memory)\n");
return;
}
if (OpenDevice("trackdisk.device", *(int *)args[DRIVE], (struct IORequest
*)io, TDF_ALLOW_NON_3_5)) {
printf("Could not open trackdisk unit %d\n",*(int *)args[DRIVE]);
return;
}
DevOpen = TRUE;
/* Read and decode */
if (!args[TOP])
for (track=0; track <= 68; track+=2)
ReadAndDecodeTrack(track, DecodedBuffer);
else
for (track=1; track <= 69; track+=2)
ReadAndDecodeTrack(track, DecodedBuffer);
/* Write image to file */
if (!WriteFile((char *)args[FILENAME],DecodedBuffer,DISKSIZE)) {
printf("Error writing image file\n");
}
}
--------------------end of snip :)
Yours, ATT
--------------------------------------
Ein Service von http://www.networld.at
Message was sent through the cbm-hackers mailing list
Archive generated by hypermail pre-2.1.8.