6 // (C) 2010 Underground Software
8 // JLH = James Hammons <jlhamm@acm.org>
9 // JPM = Jean-Paul Mari <djipi.mari@gmail.com>
12 // --- ---------- ------------------------------------------------------------
13 // JLH 01/16/2010 Created this log ;-)
14 // JLH 02/28/2010 Added functions to look inside .ZIP files and handle
16 // JLH 06/01/2012 Added function to check ZIP file CRCs against file DB
17 // JPM 06/06/2016 Visual Studio support
18 // JPM 06/15/2016 ELF format support
19 // JPM 06/19/2016 Soft debugger support
20 // JPM 07/15/2016 DWARF format support
25 #include "_MSC_VER/config.h"
35 #include "universalhdr.h"
38 #include "libelf/libelf.h"
39 #include "libelf/gelf.h"
41 #include "debugger/ELFManager.h"
42 #include "debugger/DBGManager.h"
45 // Private function prototypes
47 static int gzfilelength(gzFile gd
);
48 //#if defined(_MSC_VER) || defined(__MINGW64__)|| defined(__MINGW32__) || defined(__CYGWIN__)
49 static bool CheckExtension(const uint8_t *filename
, const char *ext
);
51 //static bool CheckExtension(const char * filename, const char * ext);
53 //static int ParseFileType(uint8_t header1, uint8_t header2, uint32_t size);
55 // Private variables/enums
59 // Generic ROM loading
61 uint32_t JaguarLoadROM(uint8_t * &rom
, char * path
)
63 // We really should have some kind of sanity checking for the ROM size here to prevent
64 // a buffer overflow... !!! FIX !!!
66 #pragma message("Warning: !!! FIX !!! Should have sanity checking for ROM size to prevent buffer overflow!")
68 #warning "!!! FIX !!! Should have sanity checking for ROM size to prevent buffer overflow!"
72 WriteLog("FILE: JaguarLoadROM attempting to load file '%s'...", path
);
73 char * ext
= strrchr(path
, '.');
75 // No filename extension == YUO FAIL IT (it is loading the file).
76 // This is naive, but it works. But should probably come up with something a little
77 // more robust, to prevent problems with dopes trying to exploit this.
80 WriteLog("FAILED!\n");
84 WriteLog("\nFILE: Succeeded in finding extension (%s)!\n", ext
);
85 WriteLog("FILE: Loading \"%s\"...", path
);
87 if (strcasecmp(ext
, ".zip") == 0)
89 // Handle ZIP file loading here...
90 WriteLog("(ZIPped)...");
92 // uint8_t * buffer = NULL;
93 // romSize = GetFileFromZIP(path, FT_SOFTWARE, buffer);
94 romSize
= GetFileFromZIP(path
, FT_SOFTWARE
, rom
);
98 WriteLog("Failed!\n");
102 // memcpy(rom, buffer, romSize);
107 // Handle gzipped files transparently [Adam Green]...
109 gzFile fp
= gzopen(path
, "rb");
113 WriteLog("Failed!\n");
117 romSize
= gzfilelength(fp
);
118 rom
= new uint8_t[romSize
];
119 gzseek(fp
, 0, SEEK_SET
);
120 gzread(fp
, rom
, romSize
);
124 WriteLog("OK (%i bytes)\n", romSize
);
131 // Jaguar file loading
132 // We do a more intelligent file analysis here instead of relying on (possible
133 // false) file extensions which people don't seem to give two shits about
136 bool JaguarLoadFile(char * path
)
139 GElf_Ehdr ElfEhdr
, *PtrGElfEhdr
;
141 Elf_Data
*PtrElfData
;
142 GElf_Shdr GElfShdr
, *PtrGElfShdr
;
144 uint8_t *buffer
= NULL
;
146 size_t ElfSectionNameType
;
147 int DBGType
= DBG_NO_TYPE
;
151 jaguarROMSize
= JaguarLoadROM(buffer
, path
);
153 if (jaguarROMSize
== 0)
155 // It's up to the GUI to report errors, not us. :-)
156 WriteLog("FILE: Could not load ROM from file \"%s\"...\nAborting load!\n", path
);
160 jaguarMainROMCRC32
= crc32_calcCheckSum(buffer
, jaguarROMSize
);
161 WriteLog("CRC: %08X\n", (unsigned int)jaguarMainROMCRC32
);
162 // TODO: Check for EEPROM file in ZIP file. If there is no EEPROM in the user's EEPROM
163 // directory, copy the one from the ZIP file, if it exists.
165 jaguarRunAddress
= 0x802000; // For non-BIOS runs, this is true
166 int fileType
= ParseFileType(buffer
, jaguarROMSize
);
167 jaguarCartInserted
= false;
170 if (fileType
== JST_ROM
)
172 jaguarCartInserted
= true;
173 memcpy(jagMemSpace
+ 0x800000, buffer
, jaguarROMSize
);
174 // Checking something...
175 jaguarRunAddress
= GET32(jagMemSpace
, 0x800404);
176 WriteLog("FILE: Cartridge run address is reported as $%X...\n", jaguarRunAddress
);
180 else if (fileType
== JST_ALPINE
)
182 // File extension ".ROM": Alpine image that loads/runs at $802000
183 WriteLog("FILE: Setting up Alpine ROM... Run address: 00802000, length: %08X\n", jaguarROMSize
);
184 memset(jagMemSpace
+ 0x800000, 0xFF, 0x2000);
185 memcpy(jagMemSpace
+ 0x802000, buffer
, jaguarROMSize
);
188 // Maybe instead of this, we could try requiring the STUBULATOR ROM? Just a thought...
189 // Try setting the vector to say, $1000 and putting an instruction there that loops forever:
190 // This kludge works! Yeah!
191 SET32(jaguarMainRAM
, 0x10, 0x00001000);
192 SET16(jaguarMainRAM
, 0x1000, 0x60FE); // Here: bra Here
195 else if (fileType
== JST_ELF32
)
199 char *PtrELFExe
= (char *)ELFManager_ExeCopy(buffer
, jaguarROMSize
);
201 if (PtrELFExe
!= NULL
)
203 if ((elf_version(EV_CURRENT
) != EV_NONE
) && (ElfMem
= ELFManager_MemOpen(PtrELFExe
, jaguarROMSize
)))
205 if (ELFManager_DwarfInit(ElfMem
))
207 DBGType
|= DBG_ELFDWARF
;
210 if (!elf_getshdrnum(ElfMem
, &NbrSect
))
212 if (((PtrGElfEhdr
= gelf_getehdr(ElfMem
, &ElfEhdr
)) != NULL
) && ((PtrElfScn
= elf_getscn(ElfMem
, 0)) != NULL
))
214 for (error
= false; (PtrElfScn
!= NULL
) && (error
== false); PtrElfScn
= elf_nextscn(ElfMem
, PtrElfScn
))
218 if ((PtrGElfShdr
= gelf_getshdr(PtrElfScn
, &GElfShdr
)) == NULL
)
224 NameSection
= elf_strptr(ElfMem
, PtrGElfEhdr
->e_shstrndx
, (size_t)PtrGElfShdr
->sh_name
);
225 WriteLog("FILE: ELF Section name: %s\n", NameSection
);
227 if ((ElfSectionNameType
= ELFManager_GetSectionType(NameSection
)) == ELF_NO_TYPE
)
229 WriteLog("FILE: ELF Section not listed\n");
234 switch (PtrGElfShdr
->sh_type
)
240 if ((PtrGElfShdr
->sh_flags
& (SHF_ALLOC
| SHF_WRITE
| SHF_EXECINSTR
)))
242 if (PtrGElfShdr
->sh_addr
>= 0x800000)
244 memcpy(jagMemSpace
+ PtrGElfShdr
->sh_addr
, buffer
+ PtrGElfShdr
->sh_offset
, PtrGElfShdr
->sh_size
);
249 memcpy(jaguarMainRAM
+ PtrGElfShdr
->sh_addr
, buffer
+ PtrGElfShdr
->sh_offset
, PtrGElfShdr
->sh_size
);
254 switch (ElfSectionNameType
)
256 case ELF_debug_aranges_TYPE
:
257 case ELF_debug_info_TYPE
:
258 case ELF_debug_abbrev_TYPE
:
259 case ELF_debug_line_TYPE
:
260 case ELF_debug_frame_TYPE
:
261 case ELF_debug_ranges_TYPE
:
262 case ELF_debug_str_TYPE
:
263 case ELF_debug_loc_TYPE
:
266 case ELF_comment_TYPE
:
281 while ((error
== false) && ((PtrElfData
= elf_getdata(PtrElfScn
, PtrElfData
)) != NULL
))
283 if (!ELFManager_AddTab(PtrElfData
, ElfSectionNameType
))
298 jaguarRunAddress
= (uint32_t)PtrGElfEhdr
->e_entry
;
299 WriteLog("FILE: Setting up ELF 32bits... Run address: %08X\n", jaguarRunAddress
);
314 WriteLog("FILE: libelf version is not recognized or libelf memory cannot be opened\n");
320 WriteLog("FILE: ELFManager cannot allocate memory\n");
327 WriteLog("FILE: ELF parsing error\n");
329 if ((err
= elf_errno()))
331 WriteLog("FILE: ELF error: %s\n", elf_errmsg(err
));
338 DBGManager_SetType(DBGType
);
342 else if (fileType
== JST_ABS_TYPE1
)
344 // For ABS type 1, run address == load address
345 uint32_t loadAddress
= GET32(buffer
, 0x16),
346 codeSize
= GET32(buffer
, 0x02) + GET32(buffer
, 0x06);
347 WriteLog("FILE: Setting up homebrew (ABS-1)... Run address: %08X, length: %08X\n", loadAddress
, codeSize
);
348 memcpy(jagMemSpace
+ loadAddress
, buffer
+ 0x24, codeSize
);
350 jaguarRunAddress
= loadAddress
;
353 else if (fileType
== JST_ABS_TYPE2
)
355 uint32_t loadAddress
= GET32(buffer
, 0x28), runAddress
= GET32(buffer
, 0x24),
356 codeSize
= GET32(buffer
, 0x18) + GET32(buffer
, 0x1C);
357 WriteLog("FILE: Setting up homebrew (ABS-2)... Run address: %08X, length: %08X\n", runAddress
, codeSize
);
358 memcpy(jagMemSpace
+ loadAddress
, buffer
+ 0xA8, codeSize
);
360 jaguarRunAddress
= runAddress
;
363 // NB: This is *wrong*
365 Basically, if there is no "JAG" at position $1C, then the long there is the load/start
366 address in LITTLE ENDIAN.
367 If "JAG" is present, the the next character ("R" or "L") determines the size of the
368 JagServer command (2 bytes vs. 4). Following that are the commands themselves;
369 typically it will either be 2 (load) or 3 (load & run). Command headers go like so:
388 10: (Poll for commands)
390 12: (Load & run user program)
391 filname, terminated with NULL
396 else if (fileType
== JST_JAGSERVER
)
398 // This kind of shiaut should be in the detection code below...
399 // (and now it is! :-)
400 // if (buffer[0x1C] == 'J' && buffer[0x1D] == 'A' && buffer[0x1E] == 'G')
402 // Still need to do some checking here for type 2 vs. type 3. This assumes 3
403 // Also, JAGR vs. JAGL (word command size vs. long command size)
404 uint32_t loadAddress
= GET32(buffer
, 0x22), runAddress
= GET32(buffer
, 0x2A);
405 WriteLog("FILE: Setting up homebrew (Jag Server)... Run address: $%X, length: $%X\n", runAddress
, jaguarROMSize
- 0x2E);
406 memcpy(jagMemSpace
+ loadAddress
, buffer
+ 0x2E, jaguarROMSize
- 0x2E);
408 jaguarRunAddress
= runAddress
;
410 // Hmm. Is this kludge necessary?
411 SET32(jaguarMainRAM
, 0x10, 0x00001000); // Set Exception #4 (Illegal Instruction)
412 SET16(jaguarMainRAM
, 0x1000, 0x60FE); // Here: bra Here
416 // else // Special WTFOMGBBQ type here...
418 // uint32_t loadAddress = (buffer[0x1F] << 24) | (buffer[0x1E] << 16) | (buffer[0x1D] << 8) | buffer[0x1C];
419 // WriteLog("FILE: Setting up homebrew (GEMDOS WTFOMGBBQ type)... Run address: $%X, length: $%X\n", loadAddress, jaguarROMSize - 0x20);
420 // memcpy(jagMemSpace + loadAddress, buffer + 0x20, jaguarROMSize - 0x20);
422 // jaguarRunAddress = loadAddress;
426 else if (fileType
== JST_WTFOMGBBQ
)
428 uint32_t loadAddress
= (buffer
[0x1F] << 24) | (buffer
[0x1E] << 16) | (buffer
[0x1D] << 8) | buffer
[0x1C];
429 WriteLog("FILE: Setting up homebrew (GEMDOS WTFOMGBBQ type)... Run address: $%X, length: $%X\n", loadAddress
, jaguarROMSize
- 0x20);
430 memcpy(jagMemSpace
+ loadAddress
, buffer
+ 0x20, jaguarROMSize
- 0x20);
432 jaguarRunAddress
= loadAddress
;
436 // We can assume we have JST_NONE at this point. :-P
437 WriteLog("FILE: Failed to load headerless file.\n");
443 // "Debugger" file loading
444 // To keep the things separate between "Debugger" and "Alpine" loading until usage clarification has been done
446 bool DebuggerLoadFile(char * path
)
448 return (AlpineLoadFile(path
));
453 // "Alpine" file loading
454 // Since the developers were coming after us with torches and pitchforks, we
455 // decided to allow this kind of thing. ;-) But ONLY FOR THE DEVS, DAMMIT! >:-U
458 bool AlpineLoadFile(char * path
)
460 uint8_t * buffer
= NULL
;
461 jaguarROMSize
= JaguarLoadROM(buffer
, path
);
463 if (jaguarROMSize
== 0)
465 // It's up to the GUI to deal with failure, not us. ;-)
466 WriteLog("FILE: Could not load Alpine from file \"%s\"...\nAborting load!\n", path
);
470 jaguarMainROMCRC32
= crc32_calcCheckSum(buffer
, jaguarROMSize
);
471 WriteLog("FILE: CRC is %08X\n", (unsigned int)jaguarMainROMCRC32
);
474 jaguarRunAddress
= 0x802000;
476 WriteLog("FILE: Setting up Alpine ROM with non-standard length... Run address: 00802000, length: %08X\n", jaguarROMSize
);
478 memset(jagMemSpace
+ 0x800000, 0xFF, 0x2000);
479 memcpy(jagMemSpace
+ 0x802000, buffer
, jaguarROMSize
);
482 // Maybe instead of this, we could try requiring the STUBULATOR ROM? Just a thought...
483 // Try setting the vector to say, $1000 and putting an instruction there
484 // that loops forever:
485 // This kludge works! Yeah!
486 SET32(jaguarMainRAM
, 0x10, 0x00001000); // Set Exception #4 (Illegal Instruction)
487 SET16(jaguarMainRAM
, 0x1000, 0x60FE); // Here: bra Here
494 // Get the length of a (possibly) gzipped file
496 static int gzfilelength(gzFile gd
)
498 int size
= 0, length
= 0;
499 unsigned char buffer
[0x10000];
505 // Read in chunks until EOF
506 size
= gzread(gd
, buffer
, 0x10000);
521 // Compare extension to passed in filename. If equal, return true; otherwise false.
523 //#if defined(_MSC_VER) || defined(__MINGW64__)|| defined(__MINGW32__) || defined(__CYGWIN__)
524 static bool CheckExtension(const uint8_t *filename
, const char *ext
)
526 //static bool CheckExtension(const char * filename, const char * ext)
529 // Sanity checking...
530 if ((filename
== NULL
) || (ext
== NULL
))
533 const char * filenameExt
= strrchr((const char *)filename
, '.'); // Get the file's extension (if any)
535 if (filenameExt
== NULL
)
538 return (strcasecmp(filenameExt
, ext
) == 0 ? true : false);
543 // Get file from .ZIP
544 // Returns the size of the file inside the .ZIP file that we're looking at
545 // NOTE: If the thing we're looking for is found, it allocates it in the passed in buffer.
546 // Which means we have to deallocate it later.
548 uint32_t GetFileFromZIP(const char * zipFile
, FileType type
, uint8_t * &buffer
)
550 // NOTE: We could easily check for this by discarding anything that's larger than the RAM/ROM
551 // size of the Jaguar console.
552 #if defined(_MSC_VER)
553 #pragma message("Warning: !!! FIX !!! Should have sanity checking for ROM size to prevent buffer overflow!")
555 #warning "!!! FIX !!! Should have sanity checking for ROM size to prevent buffer overflow!"
557 const char ftStrings
[5][32] = { "Software", "EEPROM", "Label", "Box Art", "Controller Overlay" };
558 // ZIP * zip = openzip(0, 0, zipFile);
559 FILE * zip
= fopen(zipFile
, "rb");
563 WriteLog("FILE: Could not open file '%s'!\n", zipFile
);
571 // The order is here is important: If the file is found, we need to short-circuit the
572 // readzip() call because otherwise, 'ze' will be pointing to the wrong file!
573 // while (!found && readzip(zip))
574 while (!found
&& GetZIPHeader(zip
, ze
))
578 // Here we simply rely on the file extension to tell the truth, but we know
579 // that extensions lie like sons-a-bitches. So this is naive, we need to do
580 // something a little more robust to keep bad things from happening here.
581 #if defined(_MSC_VER)
582 #pragma message("Warning: !!! Checking for image by extension can be fooled !!!")
584 #warning "!!! Checking for image by extension can be fooled !!!"
586 if ((type
== FT_LABEL
) && (CheckExtension(ze
.filename
, ".png") || CheckExtension(ze
.filename
, ".jpg") || CheckExtension(ze
.filename
, ".gif")))
589 WriteLog("FILE: Found image file '%s'.\n", ze
.filename
);
592 if ((type
== FT_SOFTWARE
) && (CheckExtension(ze
.filename
, ".j64")
593 || CheckExtension(ze
.filename
, ".rom") || CheckExtension(ze
.filename
, ".abs")
594 || CheckExtension(ze
.filename
, ".cof") || CheckExtension(ze
.filename
, ".coff")
595 || CheckExtension(ze
.filename
, ".jag") || CheckExtension(ze
.filename
, ".elf")))
598 WriteLog("FILE: Found software file '%s'.\n", ze
.filename
);
601 if ((type
== FT_EEPROM
) && (CheckExtension(ze
.filename
, ".eep") || CheckExtension(ze
.filename
, ".eeprom")))
604 WriteLog("FILE: Found EEPROM file '%s'.\n", ze
.filename
);
608 fseek(zip
, ze
.compressedSize
, SEEK_CUR
);
611 uint32_t fileSize
= 0;
615 WriteLog("FILE: Uncompressing...");
616 // Insert file size sanity check here...
617 buffer
= new uint8_t[ze
.uncompressedSize
];
619 // if (readuncompresszip(zip, ze.compressedSize, buffer) == 0)
620 // if (UncompressFileFromZIP(zip, ze.compressedSize, buffer) == 0)
621 if (UncompressFileFromZIP(zip
, ze
, buffer
) == 0)
623 fileSize
= ze
.uncompressedSize
;
624 WriteLog("success! (%u bytes)\n", fileSize
);
630 WriteLog("FAILED!\n");
634 // Didn't find what we're looking for...
635 WriteLog("FILE: Failed to find file of type %s...\n", ftStrings
[type
]);
643 uint32_t GetFileDBIdentityFromZIP(const char * zipFile
)
645 FILE * zip
= fopen(zipFile
, "rb");
649 WriteLog("FILE: Could not open file '%s'!\n", zipFile
);
655 // Loop through all files in the zip file under consideration
656 while (GetZIPHeader(zip
, ze
))
658 // & loop through all known CRC32s in our file DB to see if it's there!
661 while (romList
[index
].crc32
!= 0xFFFFFF)
663 if (romList
[index
].crc32
== ze
.crc32
)
672 // We didn't find it, so skip the compressed data...
673 fseek(zip
, ze
.compressedSize
, SEEK_CUR
);
677 return (uint32_t )-1;
681 bool FindFileInZIPWithCRC32(const char * zipFile
, uint32_t crc
)
683 FILE * zip
= fopen(zipFile
, "rb");
687 WriteLog("FILE: Could not open file '%s'!\n", zipFile
);
693 // Loop through all files in the zip file under consideration
694 while (GetZIPHeader(zip
, ze
))
702 fseek(zip
, ze
.compressedSize
, SEEK_CUR
);
711 // Parse the file type based upon file size and/or headers.
713 uint32_t ParseFileType(uint8_t * buffer
, uint32_t size
)
715 // Check headers first...
718 if (buffer
[EI_CLASS
] == ELFCLASS32
)
720 if (((BigToLittleEndian16(((Elf32_Ehdr
*)buffer
)->e_machine
) & 0xFF) == EM_68K
) && (BigToLittleEndian16(((Elf32_Ehdr
*)buffer
)->e_type
) == ET_EXEC
) && (buffer
[0] == ELFMAG0
) && (buffer
[1] == ELFMAG1
) && (buffer
[2] == ELFMAG2
) && (buffer
[3] == ELFMAG3
))
725 if (buffer
[0] == 0x60 && buffer
[1] == 0x1B)
726 return JST_ABS_TYPE1
;
729 if (buffer
[0] == 0x01 && buffer
[1] == 0x50)
730 return JST_ABS_TYPE2
;
732 // Jag Server & other old shite
733 if (buffer
[0] == 0x60 && buffer
[1] == 0x1A)
735 if (buffer
[0x1C] == 'J' && buffer
[0x1D] == 'A' && buffer
[0x1E] == 'G')
736 return JST_JAGSERVER
;
738 return JST_WTFOMGBBQ
;
741 // And if that fails, try file sizes...
743 // If the file size is divisible by 1M, we probably have an regular ROM.
744 // We can also check our CRC32 against the internal ROM database to be sure.
745 // (We also check for the Memory Track cartridge size here as well...)
746 if ((size
% 1048576) == 0 || size
== 131072)
749 // If the file size + 8192 bytes is divisible by 1M, we probably have an
750 // Alpine format ROM.
751 if (((size
+ 8192) % 1048576) == 0)
759 // Check for universal header
761 bool HasUniversalHeader(uint8_t * rom
, uint32_t romSize
)
767 for(int i
=0; i
<8192; i
++)
768 if (rom
[i
] != universalCartHeader
[i
])
778 Stubulator ROM vectors...
779 handler 001 at $00E00008
780 handler 002 at $00E008DE
781 handler 003 at $00E008E2
782 handler 004 at $00E008E6
783 handler 005 at $00E008EA
784 handler 006 at $00E008EE
785 handler 007 at $00E008F2
786 handler 008 at $00E0054A
787 handler 009 at $00E008FA
788 handler 010 at $00000000
789 handler 011 at $00000000
790 handler 012 at $00E008FE
791 handler 013 at $00E00902
792 handler 014 at $00E00906
793 handler 015 at $00E0090A
794 handler 016 at $00E0090E
795 handler 017 at $00E00912
796 handler 018 at $00E00916
797 handler 019 at $00E0091A
798 handler 020 at $00E0091E
799 handler 021 at $00E00922
800 handler 022 at $00E00926
801 handler 023 at $00E0092A
802 handler 024 at $00E0092E
803 handler 025 at $00E0107A
804 handler 026 at $00E0107A
805 handler 027 at $00E0107A
806 handler 028 at $00E008DA
807 handler 029 at $00E0107A
808 handler 030 at $00E0107A
809 handler 031 at $00E0107A
810 handler 032 at $00000000
812 Let's try setting up the illegal instruction vector for a stubulated jaguar...
814 SET32(jaguar_mainRam, 0x08, 0x00E008DE);
815 SET32(jaguar_mainRam, 0x0C, 0x00E008E2);
816 SET32(jaguar_mainRam, 0x10, 0x00E008E6); // <-- Should be here (it is)...
817 SET32(jaguar_mainRam, 0x14, 0x00E008EA);//*/
820 ABS Format sleuthing (LBUGDEMO.ABS):
822 000000 60 1B 00 00 05 0C 00 04 62 C0 00 00 04 28 00 00
823 000010 12 A6 00 00 00 00 00 80 20 00 FF FF 00 80 25 0C
826 DRI-format file detected...
827 Text segment size = 0x0000050c bytes
828 Data segment size = 0x000462c0 bytes
829 BSS Segment size = 0x00000428 bytes
830 Symbol Table size = 0x000012a6 bytes
831 Absolute Address for text segment = 0x00802000
832 Absolute Address for data segment = 0x0080250c
833 Absolute Address for BSS segment = 0x00004000
836 000000 01 50 00 03 00 00 00 00 00 03 83 10 00 00 05 3b
837 000010 00 1c 00 03 00 00 01 07 00 00 1d d0 00 03 64 98
838 000020 00 06 8b 80 00 80 20 00 00 80 20 00 00 80 3d d0
840 000030 2e 74 78 74 00 00 00 00 00 80 20 00 00 80 20 00 .txt (+36 bytes)
841 000040 00 00 1d d0 00 00 00 a8 00 00 00 00 00 00 00 00
842 000050 00 00 00 00 00 00 00 20
843 000058 2e 64 74 61 00 00 00 00 00 80 3d d0 00 80 3d d0 .dta (+36 bytes)
844 000068 00 03 64 98 00 00 1e 78 00 00 00 00 00 00 00 00
845 000078 00 00 00 00 00 00 00 40
846 000080 2e 62 73 73 00 00 00 00 00 00 50 00 00 00 50 00 .bss (+36 bytes)
847 000090 00 06 8b 80 00 03 83 10 00 00 00 00 00 00 00 00
848 0000a0 00 00 00 00 00 00 00 80
850 Header size is $A8 bytes...
852 BSD/COFF format file detected...
854 Symbol Table offset = 230160 ($00038310)
855 Symbol Table contains 1339 symbol entries ($0000053B)
856 The additional header size is 28 bytes ($001C)
857 Magic Number for RUN_HDR = 0x00000107
858 Text Segment Size = 7632 ($00001DD0)
859 Data Segment Size = 222360 ($00036498)
860 BSS Segment Size = 428928 ($00068B80)
861 Starting Address for executable = 0x00802000
862 Start of Text Segment = 0x00802000
863 Start of Data Segment = 0x00803dd0