mirror of
https://github.com/Michaelangel007/apple2_prodos_utils.git
synced 2024-11-26 06:49:16 +00:00
491 lines
15 KiB
C++
491 lines
15 KiB
C++
// Access _________________________________________________________________
|
|
|
|
const size_t PRODOS_BLOCK_SIZE = 0x200; // 512 bytes/block
|
|
const size_t PRODOS_ROOT_BLOCK = 2;
|
|
const int PRODOS_ROOT_OFFSET = PRODOS_ROOT_BLOCK * PRODOS_BLOCK_SIZE;
|
|
|
|
const int PRODOS_MAX_FILENAME = 15;
|
|
const int PRODOS_MAX_PATH = 64; // TODO: Verify
|
|
|
|
const uint8_t ACCESS_D = 0x80; // Can destroy
|
|
const uint8_t ACCESS_N = 0x40; // Can rename
|
|
const uint8_t ACCESS_B = 0x20; // Can backup
|
|
const uint8_t ACCESS_Z4= 0x10; // not used - must be zero?
|
|
const uint8_t ACCESS_Z3= 0x08;
|
|
const uint8_t ACCESS_I = 0x04; // invisible
|
|
const uint8_t ACCESS_W = 0x02; // Can write
|
|
const uint8_t ACCESS_R = 0x01; // Can read
|
|
|
|
void prodos_AccessToString( uint8_t access, char *text_ )
|
|
#if 0
|
|
{ // 76543210
|
|
char in [9] = "dnb--iwr";
|
|
char out[9] = "--------";
|
|
|
|
char *src = in ;
|
|
char *dst = out;
|
|
#endif
|
|
{
|
|
const char *src = "dnb--iwr";
|
|
/* */ char *dst = text_;
|
|
|
|
int mask = 0x80;
|
|
while( mask )
|
|
{
|
|
*dst = access & mask
|
|
? *src
|
|
: '-'
|
|
;
|
|
|
|
dst++;
|
|
src++;
|
|
mask >>= 1;
|
|
}
|
|
|
|
*dst = 0;
|
|
|
|
// sprintf( text_, out );
|
|
}
|
|
|
|
// Storage Kind ___________________________________________________________
|
|
|
|
enum ProDOS_Kind_e
|
|
{
|
|
ProDOS_KIND_DEL = 0x0,
|
|
ProDOS_KIND_SEED = 0x1, // Single Block
|
|
ProDOS_KIND_SAPL = 0x2, // 1st Block is allocated blocks
|
|
ProDOS_KIND_TREE = 0x3,
|
|
ProDOS_KIND_PAS = 0x4, // http://www.1000bit.it/support/manuali/apple/technotes/pdos/tn.pdos.25.html
|
|
ProDOS_KIND_GSOS = 0x5, // http://www.1000bit.it/support/manuali/apple/technotes/pdos/tn.pdos.25.html
|
|
ProDOS_KIND_DIR = 0xD, // parent block entry for sub-directory
|
|
ProDOS_KIND_SUB = 0xE, // subdir header entry to find parent directory; meta to reach parent
|
|
ProDOS_KIND_ROOT = 0xF, // volume header entry for root directory
|
|
NUM_PRODOS_KIND = 16
|
|
};
|
|
|
|
const char *gaProDOS_KindDescription[ NUM_PRODOS_KIND ] = // Storage Type
|
|
{
|
|
"del" // 0 Deleted
|
|
,"sed" // 1 Seedling size <= 512 bytes == 1*PRODOS_BLOCK_SIZE
|
|
,"sap" // 2 Sapling size <= 131,072 bytes == 256*PRODOS_BLOCK_SIZE -- interleaved: lo blocks * 256, hi blocks * 256
|
|
,"tre" // 3 Tree size <= 32 MB
|
|
,"pas" // 4 Pascal Volume
|
|
,"gs " // 5 GS/OS extended file data+resource fork
|
|
,"? 6" // 6
|
|
,"? 7" // 7
|
|
,"? 8" // 8
|
|
,"? 9" // 9
|
|
,"? A" // A
|
|
,"? B" // B
|
|
,"? C" // C
|
|
,"dir" // D Sub-directory
|
|
,"sub" // E Sub-directory header
|
|
,"vol" // F Volume directory header
|
|
};
|
|
const char *prodos_KindToString( uint8_t type )
|
|
{
|
|
type &= 0xF;
|
|
return gaProDOS_KindDescription[ type ];
|
|
}
|
|
|
|
// Date ___________________________________________________________________
|
|
|
|
const char *gaMonths[16] =
|
|
{
|
|
"bug" // 0
|
|
,"JAN" // 1
|
|
,"FEB" // 2
|
|
,"MAR" // 3
|
|
,"APR" // 4
|
|
,"MAY" // 5
|
|
,"JUN" // 6
|
|
,"JUL" // 7
|
|
,"AUG" // 8
|
|
,"SEP" // 9
|
|
,"OCT" // 10
|
|
,"NOV" // 11
|
|
,"DEC" // 12
|
|
,"bug" // 13 Should never happen
|
|
,"bug" // 14 Should never happen
|
|
,"bug" // 15 Should never happen
|
|
};
|
|
|
|
// Converts date to 9 chars: DD-MON-YR format
|
|
// NULL terminates the string
|
|
// ------------------------------------------------------------
|
|
void prodos_DateToString( uint16_t date, char *text_ )
|
|
{
|
|
if( date == 0 )
|
|
sprintf( text_, "<NO DATE>" );
|
|
else
|
|
{
|
|
// 76543210
|
|
// 3 210
|
|
// FEDCBA98 76543210
|
|
// yyyyyyym mmmddddd
|
|
int day = (date >> 0) & 0x1F;
|
|
int mon = (date >> 5) & 0x0F;
|
|
int yar = (date >> 9) & 0x7F;
|
|
|
|
#if DEBUG_DATE
|
|
printf( "DEBUG: DATE: day: % 2d\n", day );
|
|
printf( "DEBUG: DATE: mon: %d\n" , mon );
|
|
printf( "DEBUG: DATE: yar: %2d\n" , yar % 100 );
|
|
#endif
|
|
|
|
sprintf( text_, "%*s%d-%s-%2d", (day < 10), "", day, gaMonths[ mon ], yar % 100 );
|
|
}
|
|
}
|
|
|
|
uint16_t ProDOS_DateToInt( int mon, int day, int year )
|
|
{
|
|
if( day < 1 ) day = 1;
|
|
if( day > 31 ) day = 31;
|
|
|
|
if( mon < 1 ) mon = 1;
|
|
if( mon > 12 ) mon = 12;
|
|
|
|
if( year < 0 ) year = 0;
|
|
if( year > 99 ) year = 99;
|
|
|
|
// FEDCBA98 76543210
|
|
// yyyyyyym mmmddddd
|
|
int16_t date = 0
|
|
| (day << 0)
|
|
| (mon << 5)
|
|
| (year << 9)
|
|
;
|
|
|
|
return date;
|
|
}
|
|
|
|
int prodos_DateMonthToInt( const char *month )
|
|
{
|
|
for( int iMonth = 1; iMonth <= 12; iMonth++ )
|
|
if( stricmp( month, gaMonths[ iMonth ] ) == 0 )
|
|
return iMonth;
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
// Time ___________________________________________________________________
|
|
|
|
// Converts time to 6 chars: HH:MMm
|
|
// ------------------------------------------------------------
|
|
void prodos_TimeToString( uint16_t time, char *text_ )
|
|
{
|
|
if( time == 0 )
|
|
sprintf( text_, " " );
|
|
else
|
|
{
|
|
// FEDCBA98 76543210
|
|
// 000hhhhh 00mmmmmm
|
|
int min = (time >> 0) & 0x3F;
|
|
int hour = (time >> 8) & 0x1F;
|
|
|
|
char median = (hour < 12)
|
|
? 'a'
|
|
: 'p'
|
|
;
|
|
|
|
#if DEBUG_TIME
|
|
printf( "DEBUG: TIME: time: %02X\n", time );
|
|
printf( "DEBUG: TIME: min : %02X\n", min );
|
|
printf( "DEBUG: TIME: hour: %02X\n", hour );
|
|
printf( "DEBUG: TIME: medn: %c\n" ,median);
|
|
#endif
|
|
|
|
if( hour >= 12 )
|
|
hour -= 12;
|
|
else
|
|
if( hour == 0 )
|
|
hour += 12;
|
|
|
|
sprintf( text_, "%*s%d:%02d%c", (hour < 10), "", hour, min, median );
|
|
}
|
|
}
|
|
|
|
// User Type ______________________________________________________________
|
|
|
|
// User type
|
|
// http://www.1000bit.it/support/manuali/apple/technotes/ftyp/ft.about.html
|
|
// http://www.kreativekorp.com/miscpages/a2info/filetypes.shtml
|
|
|
|
const char *gaProDOS_FileTypes[ 256 ] =
|
|
{
|
|
// $0x Types: General
|
|
"UNK" // $00 Unknown
|
|
, "BAD" // $01 Bad Block
|
|
, "PCD" // $02 Pascal Code
|
|
, "PTX" // $03 Pascal Text
|
|
, "TXT" // $04 ASCII Text; aux type = 0 sequential, <> 0 random-acess
|
|
, "PDA" // $05 Pascal Data
|
|
, "BIN" // $06 Binary File; aux type = load address
|
|
, "FNT" // $07 Apple III Font
|
|
, "FOT" // $08 HiRes/Double HiRes Graphics
|
|
, "BA3" // $09 Apple /// BASIC Program
|
|
, "DA3" // $0A Apple /// BASIC Data
|
|
, "WPF" // $0B Generic Word Processing
|
|
, "SOS" // $0C SOS System File
|
|
, "?0D" // $0D ???
|
|
, "?0E" // $0E ???
|
|
, "DIR" // $0F ProDOS Directory
|
|
// $1x Ty pes: Productivity
|
|
, "RPD" // $10 RPS Data
|
|
, "RPI" // $11 RPS Index
|
|
, "AFD" // $12 AppleFile Discard
|
|
, "AFM" // $13 AppleFile Model
|
|
, "AFR" // $14 AppleFile Report
|
|
, "SCL" // $15 Screen Library
|
|
, "PFS" // $16 PFS Document
|
|
, "?17" // $17 ???
|
|
, "?18" // $18 ???
|
|
, "ADB" // $19 AppleWorks Database
|
|
, "AWP" // $1A AppleWorks Word Processing
|
|
, "ASP" // $1B AppleWorks Spreadsheet
|
|
, "?1C" // $1C ???
|
|
, "?1D" // $1D ???
|
|
, "?1E" // $1E ???
|
|
, "?1F" // $1F ???
|
|
// $2x Ty pes: Code
|
|
, "TDM" // $20 Desktop Manager File
|
|
, "IPS" // $21 Instant Pascal Source
|
|
, "UPV" // $22 UCSD Pascal Volume
|
|
, "?23" // $23 ???
|
|
, "?24" // $24 ???
|
|
, "?25" // $25 ???
|
|
, "?26" // $26 ???
|
|
, "?27" // $27 ???
|
|
, "?28" // $28 ???
|
|
, "3SD" // $29 Apple /// SOS Directory
|
|
, "8SC" // $2A Source Code
|
|
, "8OB" // $2B Object Code
|
|
, "8IC" // $2C Interpreted Code; aux type = $8003 Apex Program File
|
|
, "8LD" // $2D Language Data
|
|
, "P8C" // $2E ProDOS 8 Code Module
|
|
, "?2F" // $2F ???
|
|
// $3x unused
|
|
, "?30" // $30 ???
|
|
, "?31" // $31 ???
|
|
, "?32" // $32 ???
|
|
, "?33" // $33 ???
|
|
, "?34" // $34 ???
|
|
, "?35" // $35 ???
|
|
, "?36" // $36 ???
|
|
, "?37" // $37 ???
|
|
, "?38" // $38 ???
|
|
, "?39" // $39 ???
|
|
, "?3A" // $3A ???
|
|
, "?3B" // $3B ???
|
|
, "?3C" // $3C ???
|
|
, "?3D" // $3D ???
|
|
, "?3E" // $3E ???
|
|
, "?3F" // $3F ???
|
|
// $4x Types: Miscellaneous
|
|
, "?40" // $40 ???
|
|
, "OCR" // $41 Optical Character Recognition
|
|
, "FTD" // $42 File Type Definitions
|
|
, "PER" // $43 --- missing from Kreative: Peripheral data
|
|
, "?44" // $44 ???
|
|
, "?45" // $45 ???
|
|
, "?46" // $46 ???
|
|
, "?47" // $47 ???
|
|
, "?48" // $48 ???
|
|
, "?49" // $49 ???
|
|
, "?4A" // $4A ???
|
|
, "?4B" // $4B ???
|
|
, "?4C" // $4C ???
|
|
, "?4D" // $4D ???
|
|
, "?4E" // $4E ???
|
|
, "?4F" // $4F ???
|
|
// $5x Types: Apple IIgs General
|
|
, "GWP" // $50 Apple IIgs Word Processing
|
|
, "GSS" // $51 Apple IIgs Spreadsheet
|
|
, "GDB" // $52 Apple IIgs Database
|
|
, "DRW" // $53 Object Oriented Graphics
|
|
, "GDP" // $54 Apple IIgs Desktop Publishing
|
|
, "HMD" // $55 HyperMedia
|
|
, "EDU" // $56 Educational Program Data
|
|
, "STN" // $57 Stationery
|
|
, "HLP" // $58 Help File
|
|
, "COM" // $59 Communications
|
|
, "CFG" // $5A Configuration
|
|
, "ANM" // $5B Animation
|
|
, "MUM" // $5C Multimedia
|
|
, "ENT" // $5D Entertainment
|
|
, "DVU" // $5E Development Utility
|
|
, "FIN" // $5F --- missing from Kreative: FIN
|
|
// $6x Types: PC Transporter
|
|
, "PRE" // $60 PC Pre-Boot
|
|
, "?61" // $61 ???
|
|
, "?62" // $62 ???
|
|
, "?63" // $63 ???
|
|
, "?64" // $64 ???
|
|
, "?65" // $65 ???
|
|
, "NCF" // $66 ProDOS File Navigator Command File
|
|
, "?67" // $67 ???
|
|
, "?68" // $68 ???
|
|
, "?69" // $69 ???
|
|
, "?6A" // $6A ???
|
|
, "BIO" // $6B PC Transporter BIOS
|
|
, "?6C" // $6C ???
|
|
, "DVR" // $6D PC Transporter Driver
|
|
, "PRE" // $6E PC Transporter Pre-Boot
|
|
, "HDV" // $6F PC Transporter Hard Disk Image
|
|
// $7x Types: Kreative Software
|
|
, "SN2" // $70 Sabine's Notebook 2.0
|
|
, "KMT" // $71
|
|
, "DSR" // $72
|
|
, "BAN" // $73
|
|
, "CG7" // $74
|
|
, "TNJ" // $75
|
|
, "SA7" // $76
|
|
, "KES" // $77
|
|
, "JAP" // $78
|
|
, "CSL" // $79
|
|
, "TME" // $7A
|
|
, "TLB" // $7B
|
|
, "MR7" // $7C
|
|
, "MLR" // $7D Mika City
|
|
, "MMM" // $7E
|
|
, "JCP" // $7F
|
|
// $8x Types: GEOS
|
|
, "GES" // $80 System File
|
|
, "GEA" // $81 Desk Accessory
|
|
, "GEO" // $82 Application
|
|
, "GED" // $83 Document
|
|
, "GEF" // $84 Font
|
|
, "GEP" // $85 Printer Driver
|
|
, "GEI" // $86 Input Driver
|
|
, "GEX" // $87 Auxiliary Driver
|
|
, "?88" // $88 ???
|
|
, "GEV" // $89 Swap File
|
|
, "?8A" // $8A ???
|
|
, "GEC" // $8B Clock Driver
|
|
, "GEK" // $8C Interface Card Driver
|
|
, "GEW" // $8D Formatting Data
|
|
, "?8E" // $8E ???
|
|
, "?8F" // $8F ???
|
|
// $9x unused
|
|
, "?90" // $90 ???
|
|
, "?91" // $91 ???
|
|
, "?92" // $92 ???
|
|
, "?93" // $93 ???
|
|
, "?94" // $94 ???
|
|
, "?95" // $95 ???
|
|
, "?96" // $96 ???
|
|
, "?97" // $97 ???
|
|
, "?98" // $98 ???
|
|
, "?99" // $99 ???
|
|
, "?9A" // $9A ???
|
|
, "?9B" // $9B ???
|
|
, "?9C" // $9C ???
|
|
, "?9D" // $9D ???
|
|
, "?9E" // $9E ???
|
|
, "?9F" // $9F ???
|
|
// $Ax Types: Apple IIgs BASIC
|
|
, "WP " // $A0 WordPerfect
|
|
, "?A1" // $A1 ???
|
|
, "?A2" // $A2 ???
|
|
, "?A3" // $A3 ???
|
|
, "?A4" // $A4 ???
|
|
, "?A5" // $A5 ???
|
|
, "?A6" // $A6 ???
|
|
, "?A7" // $A7 ???
|
|
, "?A8" // $A8 ???
|
|
, "?A9" // $A9 ???
|
|
, "?AA" // $AA ???
|
|
, "GSB" // $AB Apple IIgs BASIC Program
|
|
, "TDF" // $AC Apple IIgs BASIC TDF
|
|
, "BDF" // $AD Apple IIgs BASIC Data
|
|
, "?AE" // $AE ???
|
|
, "?AF" // $AF ???
|
|
// $Bx Types: Apple IIgs System
|
|
, "SRC" // $B0 Apple IIgs Source Code
|
|
, "OBJ" // $B1 Apple IIgs Object Code
|
|
, "LIB" // $B2 Apple IIgs Library
|
|
, "S16" // $B3 Apple IIgs Application Program
|
|
, "RTL" // $B4 Apple IIgs Runtime Library
|
|
, "EXE" // $B5 Apple IIgs Shell Script
|
|
, "PIF" // $B6 Apple IIgs Permanent INIT
|
|
, "TIF" // $B7 Apple IIgs Temporary INIT
|
|
, "NDA" // $B8 Apple IIgs New Desk Accessory
|
|
, "CDA" // $B9 Apple IIgs Classic Desk Accessory
|
|
, "TOL" // $BA Apple IIgs Tool
|
|
, "DRV" // $BB Apple IIgs Device Driver
|
|
, "LDF" // $BC Apple IIgs Generic Load File
|
|
, "FST" // $BD Apple IIgs File System Translator
|
|
, "?BE" // $BE ???
|
|
, "DOC" // $BF Apple IIgs Document
|
|
// $Cx Ty pes: Graphics
|
|
, "PNT" // $C0 Apple IIgs Packed Super HiRes
|
|
, "PIC" // $C1 Apple IIgs Super HiRes; aux_type = $2 = Super HiRes 3200
|
|
, "ANI" // $C2 PaintWorks Animation
|
|
, "PAL" // $C3 PaintWorks Palette
|
|
, "?C4" // $C4 ???
|
|
, "OOG" // $C5 Object-Oriented Graphics
|
|
, "SCR" // $C6 Script
|
|
, "CDV" // $C7 Apple IIgs Control Panel
|
|
, "FON" // $C8 Apple IIgs Font
|
|
, "FND" // $C9 Apple IIgs Finder Data
|
|
, "ICN" // $CA Apple IIgs Icon File
|
|
, "?CB" // $CB ???
|
|
, "?CC" // $CC ???
|
|
, "?CD" // $CD ???
|
|
, "?CE" // $CE ???
|
|
, "?CF" // $CF ???
|
|
//$Dx Types: Audio
|
|
, "?D0" // $D0 ???
|
|
, "?D1" // $D1 ???
|
|
, "?D2" // $D2 ???
|
|
, "?D3" // $D3 ???
|
|
, "?D4" // $D4 ???
|
|
, "MUS" // $D5 Music
|
|
, "INS" // $D6 Instrument
|
|
, "MDI" // $D7 MIDI
|
|
, "SND" // $D8 Apple IIgs Audio
|
|
, "?D9" // $D9 ???
|
|
, "?DA" // $DA ???
|
|
, "DBM" // $DB DB Master Document
|
|
, "?DC" // $DC ???
|
|
, "?DD" // $DD ???
|
|
, "?DE" // $DE ???
|
|
, "?DF" // $DF ???
|
|
// $Ex Types: Miscellaneous
|
|
, "LBR" // $E0 Archive
|
|
, "?E1" // $E1 ???
|
|
, "ATK" // $E2 AppleTalk Data; aux_type = $FFFF - EasyMount Alias
|
|
, "?E3" // $E3 ???
|
|
, "?E4" // $E4 ???
|
|
, "?E5" // $E5 ???
|
|
, "?E6" // $E6 ???
|
|
, "?E7" // $E7 ???
|
|
, "?E8" // $E8 ???
|
|
, "?E9" // $E9 ???
|
|
, "?EA" // $EA ???
|
|
, "?EB" // $EB ???
|
|
, "?EC" // $EC ???
|
|
, "?ED" // $ED ???
|
|
, "R16" // $EE EDASM 816 Relocatable Code
|
|
, "PAR" // $EFPascal Area
|
|
// $Fx Types: System
|
|
, "CMD" // $F0 ProDOS Command File
|
|
, "OVL" // $F1 User Defined 1
|
|
, "UD2" // $F2 User Defined 2
|
|
, "UD3" // $F3 User Defined 3
|
|
, "UD4" // $F4 User Defined 4
|
|
, "BAT" // $F5 User Defined 5
|
|
, "UD6" // $F6 User Defined 6
|
|
, "UD7" // $F7 User Defined 7
|
|
, "PRG" // $F8 User Defined 8
|
|
, "P16" // $F9 ProDOS-16 System File
|
|
, "INT" // $FA Integer BASIC Program
|
|
, "IVR" // $FB Integer BASIC Variables
|
|
, "BAS" // $FC Applesoft BASIC Program; aux type = $0801
|
|
, "VAR" // $FD Applesoft BASIC Variables
|
|
, "REL" // $FE EDASM Relocatable Code
|
|
, "SYS" // $FF ProDOS-8 System File
|
|
};
|
|
|