mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-29 05:29:36 +00:00
87f7fc15f5
ran across this when trying to debug a different issue by default we can only get total sector size from the T/S lists (which is only a multiple of 256 bytes) but in addition A (basic) and B (binary) files also tell you the exact length. So we used that to truncate to the exact length Only it turns out some programs (I'm looking at you, cracked version of WAVY NAVY) intentionally set the file size to be wrong and so we were truncating things improperly I think this updated code is a bit more clear. Hopefully it doesn't break anything, I need a better test suite.
386 lines
9.1 KiB
C
386 lines
9.1 KiB
C
#include <stdio.h>
|
|
#include <errno.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
#include <unistd.h>
|
|
|
|
#include "version.h"
|
|
|
|
#include "dos33.h"
|
|
|
|
|
|
static int dump_sector(unsigned char *sector_buffer) {
|
|
|
|
int i,j;
|
|
|
|
for(i=0;i<16;i++) {
|
|
printf("$%02X : ",i*16);
|
|
for(j=0;j<16;j++) {
|
|
printf("%02X ",sector_buffer[i*16+j]);
|
|
}
|
|
printf("\n");
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static void dump_vtoc(unsigned char *vtoc) {
|
|
|
|
int num_tracks,catalog_t,catalog_s,ts_total;
|
|
|
|
printf("\nVTOC Sector:\n");
|
|
dump_sector(vtoc);
|
|
|
|
printf("\n\n");
|
|
printf("VTOC INFORMATION:\n");
|
|
catalog_t=vtoc[VTOC_CATALOG_T];
|
|
catalog_s=vtoc[VTOC_CATALOG_S];
|
|
printf("\tFirst Catalog = %02X/%02X\n",catalog_t,catalog_s);
|
|
printf("\tDOS RELEASE = 3.%i\n",vtoc[VTOC_DOS_RELEASE]);
|
|
printf("\tDISK VOLUME = %i\n",vtoc[VTOC_DISK_VOLUME]);
|
|
ts_total=vtoc[VTOC_MAX_TS_PAIRS];
|
|
printf("\tT/S pairs that will fit in T/S List = %i\n",ts_total);
|
|
|
|
printf("\tLast track where sectors were allocated = $%02X\n",
|
|
vtoc[VTOC_LAST_ALLOC_T]);
|
|
printf("\tDirection of track allocation = %i\n",
|
|
vtoc[VTOC_ALLOC_DIRECT]);
|
|
|
|
num_tracks=vtoc[VTOC_NUM_TRACKS];
|
|
printf("\tNumber of tracks per disk = %i\n",num_tracks);
|
|
printf("\tNumber of sectors per track = %i\n",
|
|
vtoc[VTOC_S_PER_TRACK]);
|
|
printf("\tNumber of bytes per sector = %i\n",
|
|
(vtoc[VTOC_BYTES_PER_SH]<<8)+
|
|
vtoc[VTOC_BYTES_PER_SL]);
|
|
|
|
}
|
|
|
|
|
|
int dos33_dump(unsigned char *vtoc, int fd) {
|
|
|
|
int num_tracks,catalog_t,catalog_s,file,ts_t,ts_s,ts_total;
|
|
int track,sector,type;
|
|
int i;
|
|
int deleted=0;
|
|
char temp_string[BUFSIZ];
|
|
unsigned char tslist[BYTES_PER_SECTOR];
|
|
unsigned char catalog_buffer[BYTES_PER_SECTOR];
|
|
unsigned char data[BYTES_PER_SECTOR];
|
|
int result;
|
|
int size_already=0;
|
|
|
|
/* Read Track 1 Sector 9 */
|
|
lseek(fd,DISK_OFFSET(1,9),SEEK_SET);
|
|
result=read(fd,data,BYTES_PER_SECTOR);
|
|
|
|
printf("Finding name of startup file, Track 1 Sector 9 offset $75\n");
|
|
|
|
if (data[0x75]!=0) {
|
|
printf("Startup Filename: ");
|
|
for(i=0;i<30;i++) {
|
|
printf("%c",data[0x75+i]&0x7f);
|
|
}
|
|
printf("\n");
|
|
}
|
|
|
|
dump_vtoc(vtoc);
|
|
|
|
catalog_t=vtoc[VTOC_CATALOG_T];
|
|
catalog_s=vtoc[VTOC_CATALOG_S];
|
|
ts_total=vtoc[VTOC_MAX_TS_PAIRS];
|
|
num_tracks=vtoc[VTOC_NUM_TRACKS];
|
|
|
|
dos33_vtoc_dump_bitmap(vtoc,num_tracks);
|
|
|
|
repeat_catalog:
|
|
|
|
printf("\nCatalog Sector $%02X/$%02x\n",catalog_t,catalog_s);
|
|
lseek(fd,DISK_OFFSET(catalog_t,catalog_s),SEEK_SET);
|
|
result=read(fd,catalog_buffer,BYTES_PER_SECTOR);
|
|
|
|
printf("\tNext track/sector $%02X/$%02X (found at offsets $%02X/$%02X\n",
|
|
catalog_buffer[CATALOG_NEXT_T],catalog_buffer[CATALOG_NEXT_S],
|
|
CATALOG_NEXT_T,CATALOG_NEXT_S);
|
|
|
|
dump_sector(catalog_buffer);
|
|
|
|
for(file=0;file<7;file++) {
|
|
size_already=0;
|
|
printf("\n\n");
|
|
|
|
ts_t=catalog_buffer[(CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE+FILE_TS_LIST_T))];
|
|
ts_s=catalog_buffer[(CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE+FILE_TS_LIST_S))];
|
|
|
|
printf("%i+$%02X/$%02X - ",file,catalog_t,catalog_s);
|
|
deleted=0;
|
|
|
|
if (ts_t==0xff) {
|
|
printf("**DELETED** ");
|
|
deleted=1;
|
|
ts_t=catalog_buffer[(CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE+FILE_NAME+0x1e))];
|
|
}
|
|
|
|
if (ts_t==0x00) {
|
|
printf("UNUSED!\n");
|
|
goto continue_dump;
|
|
}
|
|
|
|
dos33_filename_to_ascii(temp_string,
|
|
catalog_buffer+(CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE+FILE_NAME)),30);
|
|
|
|
for(i=0;i<strlen(temp_string);i++) {
|
|
if (temp_string[i]<0x20) {
|
|
printf("^%c",temp_string[i]+0x40);
|
|
}
|
|
else {
|
|
printf("%c",temp_string[i]);
|
|
}
|
|
}
|
|
printf("\n");
|
|
printf("\tLocked = %s\n",
|
|
catalog_buffer[CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE)+FILE_TYPE]>0x7f?
|
|
"YES":"NO");
|
|
type=dos33_file_type(catalog_buffer[CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE)+FILE_TYPE]);
|
|
printf("\tType = %c\n",type);
|
|
printf("\tSize in sectors = %i\n",
|
|
catalog_buffer[CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE+FILE_SIZE_L)]+
|
|
(catalog_buffer[CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE+FILE_SIZE_H)]<<8));
|
|
|
|
/* read first sector to try to get size */
|
|
if (type=='B') {
|
|
|
|
}
|
|
|
|
if (deleted) goto continue_dump;
|
|
|
|
repeat_tsl:
|
|
|
|
/* read T/S list */
|
|
lseek(fd,DISK_OFFSET(ts_t,ts_s),SEEK_SET);
|
|
result=read(fd,&tslist,BYTES_PER_SECTOR);
|
|
|
|
/* read data */
|
|
for(i=0;i<ts_total;i++) {
|
|
track=tslist[TSL_LIST+(i*TSL_ENTRY_SIZE)];
|
|
sector=tslist[TSL_LIST+(i*TSL_ENTRY_SIZE)+1];
|
|
if ((track==0) && (sector==0)) printf(".");
|
|
else {
|
|
if (!size_already) {
|
|
/* Read Data */
|
|
lseek(fd,DISK_OFFSET(track,sector),SEEK_SET);
|
|
result=read(fd,data,BYTES_PER_SECTOR);
|
|
if (type=='B') {
|
|
printf("\tAddress=$%04X\n",
|
|
data[0]|(data[1]<<8));
|
|
printf("\tSize=$%04X (%d)\n",
|
|
data[2]|(data[3]<<8),
|
|
data[2]|(data[3]<<8));
|
|
}
|
|
else if ((type=='A') || (type=='I')) {
|
|
printf("\tSize=$%04X (%d)\n",
|
|
data[0]|(data[1]<<8),
|
|
data[0]|(data[1]<<8));
|
|
}
|
|
size_already=1;
|
|
printf("\n\tT/S List $%02X/$%02X:\n",ts_t,ts_s);
|
|
}
|
|
|
|
printf("\n\t\t%02X/%02X",track,sector);
|
|
}
|
|
}
|
|
ts_t=tslist[TSL_NEXT_TRACK];
|
|
ts_s=tslist[TSL_NEXT_SECTOR];
|
|
|
|
if (!((ts_s==0) && (ts_t==0))) {
|
|
printf("\n\tNext T/S List $%02X/$%02X:\n",ts_t,ts_s);
|
|
goto repeat_tsl;
|
|
}
|
|
|
|
continue_dump:;
|
|
}
|
|
|
|
catalog_t=catalog_buffer[CATALOG_NEXT_T];
|
|
catalog_s=catalog_buffer[CATALOG_NEXT_S];
|
|
|
|
if (catalog_s!=0) {
|
|
file=0;
|
|
goto repeat_catalog;
|
|
}
|
|
|
|
printf("\n");
|
|
|
|
if (result<0) fprintf(stderr,"Error on I/O\n");
|
|
|
|
return 0;
|
|
}
|
|
|
|
int dos33_showfree(unsigned char *vtoc, int fd) {
|
|
|
|
int num_tracks,catalog_t,catalog_s,file,ts_t,ts_s,ts_total;
|
|
int track,sector;
|
|
int i,j;
|
|
int deleted=0;
|
|
char temp_string[BUFSIZ];
|
|
unsigned char tslist[BYTES_PER_SECTOR];
|
|
unsigned char catalog_buffer[BYTES_PER_SECTOR];
|
|
int result;
|
|
|
|
int sectors_per_track;
|
|
int catalog_used;
|
|
int next_letter='a';
|
|
struct file_key_type {
|
|
int ch;
|
|
char *filename;
|
|
} file_key[100];
|
|
int num_files=0;
|
|
|
|
|
|
unsigned char usage[35][16];
|
|
|
|
for(i=0;i<35;i++) for(j=0;j<16;j++) usage[i][j]=0;
|
|
|
|
dump_vtoc(vtoc);
|
|
|
|
catalog_t=vtoc[VTOC_CATALOG_T];
|
|
catalog_s=vtoc[VTOC_CATALOG_S];
|
|
ts_total=vtoc[VTOC_MAX_TS_PAIRS];
|
|
num_tracks=vtoc[VTOC_NUM_TRACKS];
|
|
sectors_per_track=vtoc[VTOC_S_PER_TRACK];
|
|
|
|
dos33_vtoc_dump_bitmap(vtoc,num_tracks);
|
|
|
|
/* Reserve DOS */
|
|
for(i=0;i<3;i++) for(j=0;j<16;j++) usage[i][j]='$';
|
|
|
|
/* Reserve CATALOG (not all used?) */
|
|
i=0x11;
|
|
for(j=0;j<16;j++) usage[i][j]='#';
|
|
|
|
|
|
repeat_catalog:
|
|
|
|
catalog_used=0;
|
|
|
|
// printf("\nCatalog Sector $%02X/$%02x\n",catalog_t,catalog_s);
|
|
lseek(fd,DISK_OFFSET(catalog_t,catalog_s),SEEK_SET);
|
|
result=read(fd,catalog_buffer,BYTES_PER_SECTOR);
|
|
|
|
|
|
// dump_sector();
|
|
|
|
for(file=0;file<7;file++) {
|
|
// printf("\n\n");
|
|
|
|
ts_t=catalog_buffer[(CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE+FILE_TS_LIST_T))];
|
|
ts_s=catalog_buffer[(CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE+FILE_TS_LIST_S))];
|
|
|
|
// printf("%i+$%02X/$%02X - ",file,catalog_t,catalog_s);
|
|
deleted=0;
|
|
|
|
if (ts_t==0xff) {
|
|
printf("**DELETED** ");
|
|
deleted=1;
|
|
ts_t=catalog_buffer[(CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE+FILE_NAME+0x1e))];
|
|
}
|
|
|
|
if (ts_t==0x00) {
|
|
// printf("UNUSED!\n");
|
|
goto continue_dump;
|
|
}
|
|
|
|
dos33_filename_to_ascii(temp_string,
|
|
catalog_buffer+(CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE+FILE_NAME)),
|
|
30);
|
|
|
|
for(i=0;i<strlen(temp_string);i++) {
|
|
if (temp_string[i]<0x20) {
|
|
printf("^%c",temp_string[i]+0x40);
|
|
}
|
|
else {
|
|
printf("%c",temp_string[i]);
|
|
}
|
|
}
|
|
printf("\n");
|
|
// printf("\tLocked = %s\n",
|
|
// sector_buffer[CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE)+FILE_TYPE]>0x7f?
|
|
// "YES":"NO");
|
|
// printf("\tType = %c\n",
|
|
// dos33_file_type(sector_buffer[CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE)+FILE_TYPE]));
|
|
// printf("\tSize in sectors = %i\n",
|
|
// sector_buffer[CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE+FILE_SIZE_L)]+
|
|
// (sector_buffer[CATALOG_FILE_LIST+(file*CATALOG_ENTRY_SIZE+FILE_SIZE_H)]<<8));
|
|
|
|
if (!deleted) {
|
|
catalog_used++;
|
|
usage[catalog_t][catalog_s]='@';
|
|
}
|
|
|
|
repeat_tsl:
|
|
// printf("\tT/S List $%02X/$%02X:\n",ts_t,ts_s);
|
|
if (deleted) goto continue_dump;
|
|
|
|
usage[ts_t][ts_s]=next_letter;
|
|
file_key[num_files].ch=next_letter;
|
|
file_key[num_files].filename=strdup(temp_string);
|
|
|
|
num_files++;
|
|
|
|
|
|
lseek(fd,DISK_OFFSET(ts_t,ts_s),SEEK_SET);
|
|
result=read(fd,&tslist,BYTES_PER_SECTOR);
|
|
|
|
for(i=0;i<ts_total;i++) {
|
|
track=tslist[TSL_LIST+(i*TSL_ENTRY_SIZE)];
|
|
sector=tslist[TSL_LIST+(i*TSL_ENTRY_SIZE)+1];
|
|
if ((track==0) && (sector==0)) {
|
|
//printf(".");
|
|
}
|
|
else {
|
|
// printf("\n\t\t%02X/%02X",track,sector);
|
|
usage[track][sector]=toupper(next_letter);
|
|
}
|
|
}
|
|
ts_t=tslist[TSL_NEXT_TRACK];
|
|
ts_s=tslist[TSL_NEXT_SECTOR];
|
|
|
|
if (!((ts_s==0) && (ts_t==0))) goto repeat_tsl;
|
|
continue_dump:;
|
|
|
|
next_letter++;
|
|
}
|
|
|
|
catalog_t=catalog_buffer[CATALOG_NEXT_T];
|
|
catalog_s=catalog_buffer[CATALOG_NEXT_S];
|
|
|
|
if (catalog_s!=0) {
|
|
file=0;
|
|
goto repeat_catalog;
|
|
}
|
|
|
|
printf("\n");
|
|
|
|
if (result<0) fprintf(stderr,"Error on I/O\n");
|
|
|
|
printf("\nDetailed sector bitmap:\n\n");
|
|
printf("\t 1111111111111111222\n");
|
|
printf("\t0123456789ABCDEF0123456789ABCDEF012\n");
|
|
|
|
for(j=0;j<sectors_per_track;j++) {
|
|
printf("$%01X:\t",j);
|
|
for(i=0;i<num_tracks;i++) {
|
|
if (usage[i][j]==0) printf(".");
|
|
else printf("%c",usage[i][j]);
|
|
}
|
|
printf("\n");
|
|
|
|
}
|
|
|
|
printf("Key: $=DOS, @=catalog used, #=catalog reserved, .=free\n\n");
|
|
for(i=0;i<num_files;i++) {
|
|
printf("\t%c %s\n",file_key[i].ch,file_key[i].filename);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|