RubyGems - dsktool - Versions diffs - 0.1.1 - Mend

dsktool 0.1.1

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (125) hide show

data/bin/dsktool.rb +157 -0
data/doc/classes/AppleSoftFile.html +215 -0
data/doc/classes/AppleSoftFile.src/M000005.html +18 -0
data/doc/classes/AppleSoftFile.src/M000006.html +18 -0
data/doc/classes/AppleSoftFile.src/M000008.html +18 -0
data/doc/classes/AppleSoftFile.src/M000009.html +18 -0
data/doc/classes/AppleSoftFile.src/M000010.html +18 -0
data/doc/classes/AppleSoftFile.src/M000011.html +18 -0
data/doc/classes/AppleSoftFile.src/M000012.html +18 -0
data/doc/classes/BinaryFile.html +179 -0
data/doc/classes/BinaryFile.src/M000015.html +18 -0
data/doc/classes/BinaryFile.src/M000020.html +18 -0
data/doc/classes/BinaryFile.src/M000021.html +18 -0
data/doc/classes/BinaryFile.src/M000022.html +19 -0
data/doc/classes/BinaryFile.src/M000023.html +18 -0
data/doc/classes/BinaryFile.src/M000024.html +18 -0
data/doc/classes/BinaryFile.src/M000025.html +19 -0
data/doc/classes/D65.html +180 -0
data/doc/classes/D65.src/M000002.html +18 -0
data/doc/classes/D65.src/M000003.html +18 -0
data/doc/classes/D65.src/M000004.html +64 -0
data/doc/classes/D65.src/M000005.html +18 -0
data/doc/classes/D65.src/M000006.html +18 -0
data/doc/classes/D65.src/M000007.html +18 -0
data/doc/classes/D65.src/M000008.html +18 -0
data/doc/classes/D65.src/M000009.html +64 -0
data/doc/classes/DOSDisk.html +272 -0
data/doc/classes/DOSDisk.src/M000007.html +20 -0
data/doc/classes/DOSDisk.src/M000008.html +77 -0
data/doc/classes/DOSDisk.src/M000010.html +20 -0
data/doc/classes/DOSDisk.src/M000011.html +20 -0
data/doc/classes/DOSDisk.src/M000012.html +19 -0
data/doc/classes/DOSDisk.src/M000013.html +20 -0
data/doc/classes/DOSDisk.src/M000014.html +19 -0
data/doc/classes/DOSDisk.src/M000015.html +76 -0
data/doc/classes/DOSFile.html +221 -0
data/doc/classes/DOSFile.src/M000016.html +22 -0
data/doc/classes/DOSFile.src/M000017.html +17 -0
data/doc/classes/DOSFile.src/M000018.html +18 -0
data/doc/classes/DOSFile.src/M000021.html +22 -0
data/doc/classes/DOSFile.src/M000022.html +22 -0
data/doc/classes/DOSFile.src/M000023.html +22 -0
data/doc/classes/DOSFile.src/M000024.html +17 -0
data/doc/classes/DOSFile.src/M000025.html +18 -0
data/doc/classes/DOSFile.src/M000026.html +22 -0
data/doc/classes/DOSFile.src/M000027.html +17 -0
data/doc/classes/DOSFile.src/M000028.html +18 -0
data/doc/classes/DSK.html +285 -0
data/doc/classes/DSK.src/M000009.html +22 -0
data/doc/classes/DSK.src/M000010.html +27 -0
data/doc/classes/DSK.src/M000011.html +19 -0
data/doc/classes/DSK.src/M000012.html +18 -0
data/doc/classes/DSK.src/M000013.html +22 -0
data/doc/classes/DSK.src/M000014.html +22 -0
data/doc/classes/DSK.src/M000015.html +22 -0
data/doc/classes/DSK.src/M000016.html +22 -0
data/doc/classes/DSK.src/M000017.html +22 -0
data/doc/classes/DSK.src/M000018.html +27 -0
data/doc/classes/DSK.src/M000019.html +19 -0
data/doc/classes/DSK.src/M000020.html +18 -0
data/doc/classes/DSK.src/M000021.html +40 -0
data/doc/classes/DSK.src/M000022.html +23 -0
data/doc/classes/IntegerBasicFile.html +276 -0
data/doc/classes/IntegerBasicFile.src/M000001.html +18 -0
data/doc/classes/IntegerBasicFile.src/M000004.html +18 -0
data/doc/classes/IntegerBasicFile.src/M000005.html +18 -0
data/doc/classes/IntegerBasicFile.src/M000006.html +18 -0
data/doc/classes/TestDOSDisks.html +174 -0
data/doc/classes/TestDOSDisks.src/M000001.html +19 -0
data/doc/classes/TestDOSDisks.src/M000002.html +19 -0
data/doc/classes/TestDOSDisks.src/M000003.html +43 -0
data/doc/classes/TestDisassembly.html +144 -0
data/doc/classes/TestDisassembly.src/M000005.html +19 -0
data/doc/classes/TestDisassembly.src/M000006.html +19 -0
data/doc/classes/TestDisassembly.src/M000007.html +19 -0
data/doc/classes/TextFile.html +179 -0
data/doc/classes/TextFile.src/M000019.html +18 -0
data/doc/classes/TextFile.src/M000020.html +20 -0
data/doc/classes/TextFile.src/M000024.html +18 -0
data/doc/classes/TextFile.src/M000025.html +18 -0
data/doc/classes/TextFile.src/M000026.html +18 -0
data/doc/classes/TextFile.src/M000027.html +20 -0
data/doc/classes/TextFile.src/M000029.html +18 -0
data/doc/classes/TextFile.src/M000030.html +18 -0
data/doc/classes/TextFile.src/M000031.html +20 -0
data/doc/created.rid +1 -0
data/doc/dot/f_0.dot +14 -0
data/doc/dot/f_0.png +0 -0
data/doc/dot/f_1.dot +23 -0
data/doc/dot/f_1.png +0 -0
data/doc/dot/f_2.dot +32 -0
data/doc/dot/f_2.png +0 -0
data/doc/dot/f_3.dot +75 -0
data/doc/dot/f_3.png +0 -0
data/doc/dot/f_4.dot +23 -0
data/doc/dot/f_4.png +0 -0
data/doc/dot/f_5.dot +32 -0
data/doc/dot/f_5.png +0 -0
data/doc/dot/f_6.dot +32 -0
data/doc/dot/f_6.png +0 -0
data/doc/dot/f_7.dot +14 -0
data/doc/dot/f_7.png +0 -0
data/doc/files/bin/dsktool_rb.html +171 -0
data/doc/files/lib/D65_rb.html +114 -0
data/doc/files/lib/DOSDisk_rb.html +115 -0
data/doc/files/lib/DOSFile_rb.html +118 -0
data/doc/files/lib/DSK_rb.html +114 -0
data/doc/files/test/tc_disassembly_rb.html +117 -0
data/doc/files/test/tc_dos_disks_rb.html +116 -0
data/doc/files/test/test_dos_disks_rb.html +109 -0
data/doc/files/test/ts_test_all_rb.html +114 -0
data/doc/fr_class_index.html +36 -0
data/doc/fr_file_index.html +34 -0
data/doc/fr_method_index.html +57 -0
data/doc/index.html +24 -0
data/lib/D65.rb +178 -0
data/lib/DOSDisk.rb +186 -0
data/lib/DOSFile.rb +356 -0
data/lib/DSK.rb +121 -0
data/lib/a2_symbols.yaml +199 -0
data/test/dos33_with_adt.dsk +0 -0
data/test/tc_disassembly.rb +16 -0
data/test/tc_dos_disks.rb +49 -0
data/test/ts_test_all.rb +5 -0
metadata +184 -0

data/doc/index.html ADDED Viewed

@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE html
+     PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN"
+     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
+<!--
+    RDoc Documentation
+  -->
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+  <title>RDoc Documentation</title>
+  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
+</head>
+<frameset rows="20%, 80%">
+    <frameset cols="25%,35%,45%">
+        <frame src="fr_file_index.html"   title="Files" name="Files" />
+        <frame src="fr_class_index.html"  name="Classes" />
+        <frame src="fr_method_index.html" name="Methods" />
+    </frameset>
+    <frame src="files/bin/dsktool_rb.html" name="docwin" />
+</frameset>
+</html>

data/lib/D65.rb ADDED Viewed

@@ -0,0 +1,178 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+class D65
+# 6502 Disassembler with annotations
+# based on 6502disassembler.js : n. landsteiner, electronic tradion 2005; e-tradion.net
+unless defined?(OPCODES) then
+OPCODES= [
+	['BRK',:imp], ['ORA',:inx], ['???',:imp], ['???',:imp], #00..03
+	['TSB',:zpg], ['ORA',:zpg], ['ASL',:zpg], ['???',:imp], #04..07
+	['PHP',:imp], ['ORA',:imm], ['ASL',:acc], ['???',:imp], #08..0b
+	['TSB',:abs], ['ORA',:abs], ['ASL',:abs], ['???',:imp], #0c..0f
+	['BPL',:rel], ['ORA',:iny], ['ORA',:inz], ['???',:imp], #10..13
+	['TRB',:zpg], ['ORA',:zpx], ['ASL',:zpx], ['???',:imp], #14..17
+	['CLC',:imp], ['ORA',:aby], ['INC',:acc], ['???',:imp], #18..1B
+	['INC',:abs], ['ORA',:abx], ['ASL',:abx], ['???',:imp], #1c..1f
+	['JSR',:abs], ['AND',:inx], ['???',:imp], ['???',:imp], #20..23
+	['BIT',:zpg], ['AND',:zpg], ['ROL',:zpg], ['???',:imp], #24..27
+	['PLP',:imp], ['AND',:imm], ['ROL',:acc], ['???',:imp], #28..2b
+	['BIT',:abs], ['AND',:abs], ['ROL',:abs], ['???',:imp], #2c..2f
+	['BMI',:rel], ['AND',:iny], ['AND',:inz], ['???',:imp], #30..33
+	['BIT',:zpx], ['AND',:zpx], ['ROL',:zpx], ['???',:imp], #34..37
+	['SEC',:imp], ['AND',:aby], ['DEC',:acc], ['???',:imp], #38..3b
+	['BIT',:inx], ['AND',:abx], ['ROL',:abx], ['???',:imp], #3c..3f
+	['RTI',:imp], ['EOR',:inx], ['???',:imp], ['???',:imp], #40..43
+	['???',:imp], ['EOR',:zpg], ['LSR',:zpg], ['???',:imp], #44..47
+	['PHA',:imp], ['EOR',:imm], ['LSR',:acc], ['???',:imp], #48..4b
+	['JMP',:abs], ['EOR',:abs], ['LSR',:abs], ['???',:imp], #4c..4f
+	['BVC',:rel], ['EOR',:iny], ['EOR',:inz], ['???',:imp], #50..53
+	['???',:imp], ['EOR',:zpx], ['LSR',:zpx], ['???',:imp], #54..57
+	['CLI',:imp], ['EOR',:aby], ['PHY',:imp], ['???',:imp], #58..5b
+	['???',:imp], ['EOR',:abx], ['LSR',:abx], ['???',:imp], #5c..5f
+	['RTS',:imp], ['ADC',:inx], ['???',:imp], ['???',:imp], #60..63
+	['STZ',:zpg], ['ADC',:zpg], ['ROR',:zpg], ['???',:imp], #64..67
+	['PLA',:imp], ['ADC',:imm], ['ROR',:acc], ['???',:imp], #68..6b
+	['JMP',:ind], ['ADC',:abs], ['ROR',:abs], ['???',:imp], #6c..6f
+	['BVS',:rel], ['ADC',:iny], ['ADC',:inz], ['???',:imp], #70..73
+	['STZ',:zpx], ['ADC',:zpx], ['ROR',:zpx], ['???',:imp], #74..77
+	['SEI',:imp], ['ADC',:aby], ['PLY',:imp], ['???',:imp], #78..7b
+	['JMP',:inx], ['ADC',:abx], ['ROR',:abx], ['???',:imp], #7c..7f
+	['BRA',:rel], ['STA',:inx], ['???',:imp], ['???',:imp], #80..83
+	['STY',:zpg], ['STA',:zpg], ['STX',:zpg], ['???',:imp], #84..87
+	['DEY',:imp], ['BIT',:imm], ['TXA',:imp], ['???',:imp], #88..8b
+	['STY',:abs], ['STA',:abs], ['STX',:abs], ['???',:imp], #8c..8f
+	['BCC',:rel], ['STA',:iny], ['STA',:inz], ['???',:imp], #90..93
+	['STY',:zpx], ['STA',:zpx], ['STX',:zpy], ['???',:imp], #94..97
+	['TYA',:imp], ['STA',:aby], ['TXS',:imp], ['???',:imp], #98..9b
+	['STZ',:abs], ['STA',:abx], ['STZ',:abx], ['???',:imp], #9c..9f
+	['LDY',:imm], ['LDA',:inx], ['LDX',:imm], ['???',:imp], #a0..a3
+	['LDY',:zpg], ['LDA',:zpg], ['LDX',:zpg], ['???',:imp], #a4..a7
+	['TAY',:imp], ['LDA',:imm], ['TAX',:imp], ['???',:imp], #a8..ab
+	['LDY',:abs], ['LDA',:abs], ['LDX',:abs], ['???',:imp], #ab..af
+	['BCS',:rel], ['LDA',:iny], ['LDA',:inz], ['???',:imp], #b0..b3
+	['LDY',:zpx], ['LDA',:zpx], ['LDX',:zpy], ['???',:imp], #b4..b7
+	['CLV',:imp], ['LDA',:aby], ['TSX',:imp], ['???',:imp], #b8..bb
+	['LDY',:abx], ['LDA',:abx], ['LDX',:aby], ['???',:imp], #bc..bf
+	['CPY',:imm], ['CMP',:inx], ['???',:imp], ['???',:imp], #c0..c3
+	['CPY',:zpg], ['CMP',:zpg], ['DEC',:zpg], ['???',:imp], #c4..c7
+	['INY',:imp], ['CMP',:imm], ['DEX',:imp], ['???',:imp], #c8..cb
+	['CPY',:abs], ['CMP',:abs], ['DEC',:abs], ['???',:imp], #cc..cf
+	['BNE',:rel], ['CMP',:iny], ['CMP',:inz], ['???',:imp], #d0..d3
+	['???',:imp], ['CMP',:zpx], ['DEC',:zpx], ['???',:imp], #d4..d7
+	['CLD',:imp], ['CMP',:aby], ['PHX',:imp], ['???',:imp], #d8..db
+	['???',:imp], ['CMP',:abx], ['DEC',:abx], ['???',:imp], #db..df
+	['CPX',:imm], ['SBC',:inx], ['???',:imp], ['???',:imp], #e0..e3
+	['CPX',:zpg], ['SBC',:zpg], ['INC',:zpg], ['???',:imp], #e4..e7
+	['INX',:imp], ['SBC',:imm], ['NOP',:imp], ['???',:imp], #e8..eb
+	['CPX',:abs], ['SBC',:abs], ['INC',:abs], ['???',:imp], #ec..ef
+	['BEQ',:rel], ['SBC',:iny], ['SBC',:ind], ['???',:imp], #f0..f3
+	['???',:imp], ['SBC',:zpx], ['INC',:zpx], ['???',:imp], #f4..f7
+	['SED',:imp], ['SBC',:aby], ['PLX',:imp], ['???',:imp], #f8..fb
+	['???',:imp], ['SBC',:abx], ['INC',:abx], ['???',:imp]  #fc..ff
+]
+OPCODE_SIZE={
+	:imp,1,
+	:acc,1,
+	:imm,2,
+	:abs,3,
+	:abx,3,
+	:aby,3,
+	:zpg,2,
+	:zpx,2,
+	:zpy,2,
+	:ind,3,
+	:inx,2,
+	:iny,2,
+	:inz,2,
+	:rel,2
+}
+end
+	require 'YAML'  unless defined? YAML
+	@@annotations=YAML::load(File.open(File.dirname(__FILE__)+"/a2_symbols.yaml"))
+	#map of memory locations and annotations
+	#e.g. {0xFF3A=>"BELL - writes a ^G to stdout"}
+	def D65.annotations
+		@@annotations
+	end
+	def D65.disassemble(buffer,start_address=0)
+		index=0
+		s=""
+		while index<buffer.length
+			byte=buffer[index]
+			current_address=start_address+index
+			opcode_name=OPCODES[byte][0]
+			operand_type=OPCODES[byte][1]
+			next_byte=(index<buffer.length-1?buffer[index+1]:0)
+			next_word=(index<buffer.length-2?buffer[index+1]+buffer[index+2]*256:0)
+			operand_format,operand_address= case operand_type
+				when :imp then ['','']
+				when :acc then ["A",'']
+				when :imm then ["\#$%02X",next_byte]
+				when :abs then ["$%04X",next_word]
+				when :abx then ["$%04X,X",next_word]
+				when :aby then ["$%04X,Y",next_word]
+				when :zpg then ["$%02X",next_byte]
+				when :zpx then ["$%02X,X",next_byte]
+				when :zpy then ["$%02X,Y",next_byte]
+				when :ind then ["($%04X)",next_word]
+				when :inx then ["($%04X),X",next_word]
+				when :iny then ["($%04X),Y",next_word]
+				when :inz then ["($%02X),Y",next_byte]
+				when :rel then ["$%04X",(current_address+next_byte.chr.unpack("c")[0]+2)%0x10000]
+				else
+					abort("unknown symbol #{operand_type}")
+			end
+			operand = sprintf(operand_format,operand_address)
+			opcode_size=OPCODE_SIZE[operand_type]
+			instruction_bytes=case opcode_size
+				when 1 then sprintf("%02X      ",byte)
+				when 2 then sprintf("%02X %02X   ",byte,next_byte)
+				when 3 then sprintf("%02X %02X %02X",byte,next_byte,next_word>>8)
+			end
+			s+=sprintf("%04X:  %s %s %s  ; ",current_address,instruction_bytes,opcode_name,operand.ljust(10))
+			annotation=annotations[operand_address]
+			if (annotation && (operand_type!=:imm)) then
+				s+="  "+annotation.to_s
+			end
+			s+= "\n"
+			index+=opcode_size
+		end
+		s
+	end
+end
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2007 Jonno Downes (jonno@jamtronix.com)
+#
+#Permission is hereby granted, free of charge, to any person obtaining
+#a copy of this software and associated documentation files (the
+#"Software"), to deal in the Software without restriction, including
+#without limitation the rights to use, copy, modify, merge, publish,
+#distribute, sublicense, and/or sell copies of the Software, and to
+#permit persons to whom the Software is furnished to do so, subject to
+#the following conditions:
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/lib/DOSDisk.rb ADDED Viewed

@@ -0,0 +1,186 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+require 'DOSFile'
+#
+# Disk image with a standard Apple DOS 3.3 VTOC at track $11, sector $00
+#
+#
+#VTOC : Volume Table of Contents (from Beneath Apple DOS pp 4-2 & 4-3)
+# 00    not used
+# 01    track number of first catalog sector
+# 02    sector number of first catalog sector
+# 03    release number of DOS used to INIT this disk
+# 04-05 not used
+# 06    Diskette volume number (1-254)
+# 07-26 not used
+# 27    maximum number of track/sector pairs which will fit in one file track/sector
+#	list sector (122 for 256 byte sectors)
+# 28-2F not used
+# 30    last track where sectors were allocated
+# 31    direction of track allocation (+1 or -1)
+# 32-33 not used
+# 34    number of tracks per diskette (normally 35)
+# 35    number of sectors per track (13 or 16)
+# 36-37 number of bytes per sector (LO/HI format)
+# 38-3B bit map of free sectors in track 0
+# 3C-3F bit map of free sectors in track 1
+# 40-43 bit map of free sectors in track 2
+#	...
+# BC-BF bit map of free sectors in track 33
+# CO-C3 bit map of free sectors in track 34
+# C4-FF bit maps for additional tracks if there are more than 35 tracks per diskette
+#
+#CATALOG (from Beneath Apple DOS p 4-6)
+# 00    Not Used
+# 01    track number of next catalog sector
+# 02    sector number of next catalog sector
+# 03-0A not used
+# 0B-2D First file descriptive entry
+# 2E-50 Second file descriptive entry
+# 51-73 Third file descriptive entry
+# 74-96 Fourth file descriptive entry
+# 97-B9 Fifth file descriptive entry
+# BA-DC Sixth file descriptive entry
+# DD-FF Seventh file descriptive entry
+#
+#FILE DESCRIPTIVE ENTRY (from Beneath Apple DOS p 4-6)
+# 00    Track of first track/sector list sector, if this is a deleted file this contains FF
+#	and the original track number is copied to the last byte of the file name (BYTE 20)
+#	If this byte contains a 00, the entry is assumed to never have been used and is
+#	available for use. (This means track 0 can never be used for data even if the DOS image
+#	is 'wiped' from the disk)
+#
+# 01    Sector of first track/sector list sector
+# 02    File type and flags:
+#	80+file type - file is locked
+#	00+file type - file is not locked
+#
+#	00 - TEXT file
+#	01 - INTEGER BASIC file
+#	02 - APPLESOFT BASIC file
+#	04 - BINARY file
+#	08 - S type file
+#	10 - RELOCATABLE object module file
+#	20 - a type file
+#	40 - b type file
+#
+# 03-20 File Name (30 characters)
+# 21-22 Length of file in sectors (LO/HI format)
+#
+#
+#TRACK/SECTOR LIST FORMAT (from Beneath Apple DOS p 4-6)
+# 00	Not used
+# 01	Track number of next T/S list of one is needed or zero if no more t/s list
+# 02 	Sector number of next T/S list (if one is present)
+# 03-04	Not used
+# 05-06	Sector offset in file of the first sector described by this list
+# 07-oB	Not used
+# 0C-0D	Track and sector of first data sector or zeros
+# 0E-0F	Track and sector of second data sector or zeros
+# 10-FF	Up to 120 more track and sector pairs
+class DOSDisk < DSK
+	def dump_catalog
+		files.each_value { |file|
+			puts "#{file.locked ? '*':' '}#{file.file_type} #{sprintf('%03X',file.sector_count)} #{file.filename}"
+		}
+	end
+	def initialize(file_bytes)
+		super(file_bytes)
+		self.read_vtoc
+	end
+	#reads the VTOC, and populate the "files" array with files
+	def read_vtoc
+		vtoc_sector=get_sector(17,0)
+		catalog_sector=get_sector(vtoc_sector[01],vtoc_sector[02])
+		done=false
+		while !done
+			(0..6).each {|file_number|
+				file_descriptive_entry_start=11+file_number*35
+				file_descriptive_entry=catalog_sector[file_descriptive_entry_start..file_descriptive_entry_start+35]
+				break if (file_descriptive_entry[0]==0xFF) # skip deleted files
+				filename=""
+				file_descriptive_entry[3..32].to_s.each_byte{|b| filename+=(b.%128).chr}
+				filename.sub!(/ *$/,"") #strip off trailing spaces
+				locked=(file_descriptive_entry[2]>=0x80)
+				sector_count=file_descriptive_entry[0x21]+file_descriptive_entry[0x22]*256
+				file_type_code=file_descriptive_entry[2]%0x80
+				if (sector_count>0) then
+					contents=""
+					ts_list_track_no=file_descriptive_entry[0]
+					ts_list_sector_no=file_descriptive_entry[1]
+					while (ts_list_track_no>0) && (ts_list_track_no<=0X22) && (ts_list_sector_no<=0x0f)
+						ts_list_sector=get_sector(ts_list_track_no,ts_list_sector_no)
+						ts_list_track_no=ts_list_sector[1]
+						ts_list_sector_no=ts_list_sector[2]
+						0x0C.step(0xff,2) {|i|
+							data_track_no=ts_list_sector[i]
+							data_sector_no=ts_list_sector[i+1]
+							if (data_track_no>0) && (data_track_no<=0X22) && (data_sector_no<=0x0f) then
+								contents+=get_sector(data_track_no,data_sector_no)
+							end
+						}
+					end
+					@files[filename]= case file_type_code
+						when 0x00 then TextFile.new(filename,locked,sector_count,contents)
+						when 0x01 then IntegerBasicFile.new(filename,locked,sector_count,contents)
+						when 0x02 then AppleSoftFile.new(filename,locked,sector_count,contents)
+						when 0x04 then BinaryFile.new(filename,locked,sector_count,contents)
+#						when 0x08 then "S"	#S type file
+#						when 0x10 then "R"	#RELOCATABLE object module file
+#						when 0x20 then "a"	#??
+#						when 0x40 then "b"	#??
+						else DOSFile.new(filename,locked,sector_count,contents)
+					end
+				end
+			}
+			next_track=catalog_sector[1]
+			next_sector=catalog_sector[2]
+			if (next_track==0) &&( next_sector==0) then
+				done=true
+			else
+				catalog_sector=get_sector(next_track,next_sector)
+			end
+		end
+	end
+end
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2007 Jonno Downes (jonno@jamtronix.com)
+#
+#Permission is hereby granted, free of charge, to any person obtaining
+#a copy of this software and associated documentation files (the
+#"Software"), to deal in the Software without restriction, including
+#without limitation the rights to use, copy, modify, merge, publish,
+#distribute, sublicense, and/or sell copies of the Software, and to
+#permit persons to whom the Software is furnished to do so, subject to
+#the following conditions:
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/lib/DOSFile.rb ADDED Viewed

@@ -0,0 +1,356 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+require 'D65'
+#Apple DOS 3.3 file
+class DOSFile
+	attr_accessor(:filename,:locked,:file_type,:sector_count,:contents)
+	def initialize(filename,locked,sector_count,contents)
+		@filename=filename
+		@locked=locked
+		@sector_count=sector_count
+		@file_type="?"
+		@contents=contents
+	end
+	#File type as displayed in Apple DOS 3.3 Catalog
+	def file_type
+	end
+	def to_s
+		@contents
+	end
+end
+class TextFile < DOSFile
+	def file_type
+		"T"
+	end
+	def file_extension
+		".txt"
+	end
+	def to_s
+		s=""
+		@contents.each_byte{|b| s+=(b%0x80).chr.tr(0x0D.chr,"\n")}
+		s
+	end
+end
+class BinaryFile < DOSFile
+	def file_type
+		"B"
+	end
+	def file_extension
+		".bin"
+	end
+	def disassembly
+			start_address=(@contents[0]+@contents[1]*256)
+			D65.disassemble(@contents[2..@contents.length-1],start_address)
+	end
+end
+# Adapted from FID.C -- a utility to browse Apple II .DSK image files by Paul Schlyter (pausch@saaf.se)
+ #Integer Basic file format:
+ # <Length_of_file> (16-bit little endian)
+ # <Line>
+ # ......
+ # <Line>
+ #
+ # where <Line> is:
+ # 1 byte:   Line length
+ # 2 bytes:  Line number, binary little endian
+ # <token>
+ # <token>
+ # <token>
+ # ......
+ # <end-of-line token>
+ #
+ # <token> is one of:
+ # $12 - $7F:   Tokens as listed below: 1 byte/token
+ # $80 - $FF:   ASCII characters with high bit set
+ # $B0 - $B9:   Integer constant, 3 bytes:  $B0-$B9,
+ #                     followed by the integer value in
+ #                     2-byte binary little-endian format
+ #                     (Note: a $B0-$B9 byte preceded by an
+ #                      alphanumeric ASCII(hi_bit_set) byte
+ #                      is not the start of an integer
+ #                      constant, but instead part of a
+ #                      variable name)
+ #
+ # <end-of-line token> is:
+ # $01:         One byte having the value $01
+ #                   (Note: a $01 byte may also appear
+ #                    inside an integer constant)
+ #
+ # Note that the tokens $02 to $11 represent commands which
+ # can be executed as direct commands only -- any attempt to
+ # enter then into an Integer Basic program will be rejected
+ # as a syntax error.  Therefore, no Integer Basic program
+ # which was entered through the Integer Basic interpreter
+ # will contain any of the tokens $02 to $11.  The token $00
+ # appears to be unused and won't appear in Integer Basic
+ # programs either.  However, $00 is used as an end-of-line
+ # marker in S-C Assembler source files, which also are of
+ # DOS file type "I".
+ #
+ # (note here a difference from Applesoft Basic, where there
+ # are no "direct mode only" commands - any Applesoft commands
+ # can be entered into an Applesoft program as well).
+class IntegerBasicFile < DOSFile
+	def file_type
+		"I"
+	end
+	def file_extension
+		".bas"
+	end
+	#display file with all INTEGER BASIC tokens expanded to ASCII
+	def to_s
+		buffer_as_integer_basic_file(@contents)
+	end
+private
+IB_REM_TOKEN =0x5D
+IB_UNARY_PLUS = 0x35
+IB_UNARY_MINUS = 0x36
+IB_QUOTE_START = 0x28
+IB_QUOTE_END = 0x29
+INTEGER_BASIC_TOKENS=  [
+        # $00-$0F
+        "HIMEM:","<$01>", "_",     " : ",
+        "LOAD",  "SAVE",  "CON",   "RUN",  #  Direct commands
+        "RUN",   "DEL",   ",",     "NEW",
+        "CLR",   "AUTO",  ",",     "MAN",
+        # $10-$1F
+        "HIMEM:","LOMEM:","+",     "-",     # Binary ops
+        "*",     "/",     "=",     "#",
+        ">=",    ">",     "<=",    "<>",
+        "<",     "AND",   "OR",    "MOD",
+        # $20-$2F
+        "^",     "+",     "(",     ",",
+        "THEN",  "THEN",  ",",     ",",
+        "\"",    "\"",    "(",     "!",
+        "!",     "(",     "PEEK",  "RND",
+        # $30-$3F
+        "SGN",   "ABS",   "PDL",   "RNDX",
+        "(",     "+",     "-",     "NOT",   # Unary ops
+        "(",     "=",     "#",     "LEN(",
+        "ASC(",  "SCRN(", ",",     "(",
+        # $40-$4F
+        "$",     "$",     "(",     ",",
+        ",",     ";",     ";",     ";",
+        ",",     ",",     ",",     "TEXT",  # Statements
+        "GR",    "CALL",  "DIM",   "DIM",
+        # $50-$5F
+        "TAB",   "END",   "INPUT", "INPUT",
+        "INPUT", "FOR",   "=",     "TO",
+        "STEP",  "NEXT",  ",",     "RETURN",
+        "GOSUB", "REM",   "LET",   "GOTO",
+        # $60-$6F
+        "IF",    "PRINT", "PRINT", "PRINT",
+        "POKE",  ",",     "COLOR=","PLOT",
+        ",",     "HLIN",  ",",     "AT",
+        "VLIN",  ",",     "AT",    "VTAB",
+        # $70-$7F
+        "=",     "=",     ")",     ")",
+        "LIST",  ",",     "LIST",  "POP",
+        "NODSP", "DSP",  "NOTRACE","DSP",
+        "DSP",   "TRACE", "PR#",   "IN#",
+    ]
+	def is_alnum(c)
+		!((c.chr=~/[A-Za-z0-9]/).nil?)
+	end
+	def buffer_as_integer_basic_file(buffer)
+		length=buffer[0]+buffer[1]*256
+		index=2
+		s=""
+		while (index<length)
+			in_REM = false
+			in_QUOTE = false
+			lead_SP = false
+			last_AN = false
+			last_TOK = false
+			line_length=buffer[index]
+			index+=1 #skip over the "line length" field
+			line_no=buffer[index]+buffer[index+1]*256
+			index+=2 #skip over the "line number" field
+			s+=sprintf("%u ",line_no)
+			done_line=false
+			while (!done_line)
+				lead_SP = lead_SP || last_AN
+				b=buffer[index]
+				if (b >= 0x80 ) then
+					if ( !in_REM && !in_QUOTE && !last_AN && (b>= 0xB0 && b <= 0xB9) ) then
+						integer = buffer[index+1]+buffer[index+2]*256
+						index+=2
+						s+=sprintf( (last_TOK && lead_SP ) ? " %d" : "%d", integer )
+						lead_SP = true
+					else
+						c = b & 0x7F
+						if (!in_REM && !in_QUOTE && last_TOK && lead_SP && is_alnum(c)) then
+							s+=" "
+						end
+						if ( c >= 0x20 ) then
+							s+=c.chr
+						else
+							s+="^"+(c+0x40).chr
+						end
+						last_AN = is_alnum(c)
+					end
+					last_TOK =false
+				else
+					token = INTEGER_BASIC_TOKENS[b]
+					lastchar = token[token.length-1]
+					case b
+						when IB_REM_TOKEN then in_REM = true
+						when IB_QUOTE_START then in_QUOTE = true
+						when IB_QUOTE_END then in_QUOTE = false
+					end
+					if lead_SP && ( is_alnum(token[0]) ||
+						    b == IB_UNARY_PLUS ||
+						    b == IB_UNARY_MINUS ||
+						    b == IB_QUOTE_START  ) then
+						s+=" "
+					end
+					s+=token
+					last_AN  = false
+					lead_SP = is_alnum(lastchar) || lastchar == ')' || lastchar == '\"'
+					last_TOK = true
+				end
+				index+=1
+				done_line=(index>length)||(buffer[index]==0x01)
+			end
+			s+="\n"
+			index+=1        # skip over "end of line" marker
+		end
+	       s
+	end
+end
+# Adapted from FID.C -- a utility to browse Apple II .DSK image files by Paul Schlyter (pausch@saaf.se)
+#
+#Applesoft file format:
+# <Length_of_file> (16-bit little endian)
+# <Line>
+# ......
+# <Line>
+# where <Line> is:
+# <Next addr>  (16-bit little endian)
+# <Line no>    (16-bit little endian: 0-65535)
+# <Tokens and/or characters>
+# <End-of-line marker: $00 >
+#
+class AppleSoftFile < DOSFile
+	def file_type
+		"A"
+	end
+	#display file with all AppleSoft BASIC tokens expanded to ASCII
+	def to_s
+		buffer_as_applesoft_file(@contents)
+	end
+	def file_extension
+		".bas"
+	end
+private
+	APPLESOFT_TOKENS = [
+	       "END","FOR","NEXT","DATA","INPUT","DEL","DIM","READ",
+		"GR","TEXT","PR#","IN#","CALL","PLOT","HLIN","VLIN",
+		"HGR2","HGR","HCOLOR=","HPLOT","DRAW","XDRAW","HTAB",
+		"HOME","ROT=","SCALE=","SHLOAD","TRACE","NOTRACE",
+		"NORMAL","INVERSE","FLASH","COLOR=","POP","VTAB",
+		"HIMEM=","LOMEM=","ONERR","RESUME","RECALL","STORE",
+		"SPEED=","LET","GOTO","RUN","IF","RESTORE","&","GOSUB",
+		"RETURN","REM","STOP","ON","WAIT","LOAD","SAVE","DEF",
+		"POKE","PRINT","CONT","LIST","CLEAR","GET","NEW",
+		"TAB(","TO","FN","SPC(","THEN","AT","NOT","STEP","+",
+		"-","*","/","^","AND","OR",">","=","<","SGN","INT",
+		"ABS","USR","FRE","SCRN(","PDL","POS","SQR","RND",
+		"LOG","EXP","COS","SIN","TAN","ATN","PEEK","LEN",
+		"STR$","VAL","ASC","CHR$", "LEFT$","RIGHT$","MID$","?",
+		"?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?"
+]
+	def buffer_as_applesoft_file(buffer)
+		length=buffer[0]+buffer[1]*256
+		index=2
+		s=""
+		while (index<length)
+			index+=2 #skip over the "next address" field
+			line_no=buffer[index]+buffer[index+1]*256
+			index+=2 #skip over the "line number" field
+			s+=sprintf("%u ",line_no)
+			done_line=false
+			while (!done_line)
+				b=buffer[index]
+				if b>=0x80 then
+					s+=APPLESOFT_TOKENS[b-0x80]+" "
+				else
+					s+=b.chr
+				end
+				index+=1
+				done_line=(index>=length)||(buffer[index]==0)
+			end
+			s+="\n"
+			index+=1        # skip over "end of line" marker
+		end
+	       s
+	end
+end
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2007 Jonno Downes (jonno@jamtronix.com)
+#
+#Permission is hereby granted, free of charge, to any person obtaining
+#a copy of this software and associated documentation files (the
+#"Software"), to deal in the Software without restriction, including
+#without limitation the rights to use, copy, modify, merge, publish,
+#distribute, sublicense, and/or sell copies of the Software, and to
+#permit persons to whom the Software is furnished to do so, subject to
+#the following conditions:
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.