RubyGems - dsktool - Versions diffs - 0.1.1 - Mend

dsktool 0.1.1

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.