ripxplore 0.0.1

data/lib/image_formats/A2Dsk.rb

@@ -0,0 +1,77 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+$:.unshift(File.dirname(__FILE__+"\\..")) unless
+	$:.include?(File.dirname(__FILE__+"\\..")) || $:.include?(File.expand_path(File.dirname(__FILE__+"\\..")))
+
+require 'ImageFormat'
+
+#A2 DSK with "physical" ordering
+class A2Dsk < ImageFormat
+	
+def A2Dsk.possible_extensions
+    ['.dsk','.do','.po']
+end  
+
+def A2Dsk.host_system
+    Apple2
+end  
+  
+#to be overriden in each subclass with a table showing what order logical sectors are stored
+def A2Dsk.interleave
+  nil
+end
+
+def sectors_in_track(track_no)
+  (0..0x0f).collect
+end
+
+def track_count
+  file_bytes.length/4096
+end
+
+def get_sector(track,sector)
+  return nil if self.class.interleave.nil?
+  return nil unless sector.between?(0,0x0F)
+  physical_sector=self.class.interleave[sector]
+  start_byte=track*16*256+physical_sector*256
+  file_bytes[start_byte,256]
+end
+
+end
+
+class A2DskPhysicalOrder < A2Dsk
+  def A2DskPhysicalOrder.interleave
+    [0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F]
+  end
+end
+
+class A2DskDosOrder < A2Dsk
+  def A2DskDosOrder.interleave
+    [0x00,0x0E,0x0D,0x0C,0x0B,0x0A,0x09,0x08,0x07,0x06,0x05,0x04,0x03,0x02,0x01,0x0F]
+  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/image_formats/Atr.rb

@@ -0,0 +1,83 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+$:.unshift(File.dirname(__FILE__+"\\..")) unless
+	$:.include?(File.dirname(__FILE__+"\\..")) || $:.include?(File.expand_path(File.dirname(__FILE__+"\\..")))
+
+require 'ImageFormat'
+
+#Atari ATR format - http://pages.suddenlink.net/wa5bdu/readme.txt
+class Atr < ImageFormat
+
+ATR_HEADER_LENGTH=0x10
+ATR_SECTORS_PER_TRACK=18
+
+def self.possible_extensions
+    ['.atr']
+end  
+
+is_valid_image_if lambda {
+  file_system_image.file_bytes[0,2]==[0x96,0x02]
+}
+
+def self.host_system
+    Atari800
+end  
+
+#Atari disks actually don't use tracks, just a single flat list of sectors
+#however for ease of use with utilities that assume there are tracks & sectors
+#we will assign 18 sectors per track
+def sectors_in_track(track_no)
+  first_sector=track_no*ATR_SECTORS_PER_TRACK
+  (first_sector..first_sector+ATR_SECTORS_PER_TRACK-1).collect
+end
+
+# how many tracks could be interpreted by this image format?
+def track_count
+  (@file_bytes.length-ATR_HEADER_LENGTH)/(@sector_size*ATR_SECTORS_PER_TRACK)
+end
+
+
+# how many sectors could be interpreted by this image format?
+def sector_count
+  (@file_bytes.length-ATR_HEADER_LENGTH)/(@sector_size)
+end
+
+#we ignore the track no, but keep the paramater for compatability with other image formats
+def get_sector(track_no,sector_no)   
+	offset_of_sector=(sector_no-1)*@sector_size+ATR_HEADER_LENGTH
+	return @file_bytes[offset_of_sector,@sector_size]
+end
+
+def initialize(file_bytes)
+  @file_bytes=file_bytes
+  @sector_size=file_bytes[4,2].unpack("v")[0]
+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/image_formats/D64.rb

@@ -0,0 +1,87 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+$:.unshift(File.dirname(__FILE__+"\\..")) unless
+	$:.include?(File.dirname(__FILE__+"\\..")) || $:.include?(File.expand_path(File.dirname(__FILE__+"\\..")))
+
+require 'ImageFormat'
+
+class D64 < ImageFormat
+	
+#
+# For manipulating D64 files, as used by many C64 emulators.
+#
+# References: 
+#     http://www.unusedino.de/ec64/technical/formats/d64.html
+#     http://www.baltissen.org/newhtm/1541c.htm
+#     http://www.scribd.com/doc/40438/The-Commodore-1541-Disk-Drive-Users-Guide
+#
+
+D64_BYTES_PER_SECTOR=256
+  
+@@sectors_in_track=[]
+@@offset_of_track=[]
+1.upto(17) {|t| @@sectors_in_track[t]=21}
+18.upto(24) {|t| @@sectors_in_track[t]=19}
+25.upto(30) {|t| @@sectors_in_track[t]=18}
+31.upto(40) {|t| @@sectors_in_track[t]=17}
+@@offset_of_track[1]=0
+1.upto(39) {|t| @@offset_of_track[t+1]=@@offset_of_track[t]+(@@sectors_in_track[t]*D64_BYTES_PER_SECTOR)}
+
+def self.possible_extensions
+    ['.d64']
+end  
+
+def self.host_system
+    C64
+end  
+
+def sectors_in_track(track_no)
+ (0..@@sectors_in_track[track_no]-1).collect
+end
+
+#for a given byte stream, how many tracks could be interpreted by this image format?
+def track_count
+  track_count=0
+  1.upto(@@offset_of_track.length-1) do |t|
+     track_count=t if file_bytes.length>@@offset_of_track[t]
+  end
+  track_count
+end
+
+def end_track
+  return   track_count
+end
+
+def get_sector(track_no,sector_no)
+    return nil if @@sectors_in_track[track_no].nil?
+		return nil unless sector_no.between?(0,@@sectors_in_track[track_no]-1)
+		start_byte=@@offset_of_track[track_no]+(D64_BYTES_PER_SECTOR*(sector_no))    
+		file_bytes[start_byte,D64_BYTES_PER_SECTOR]
+end
+
+end
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2008 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/image_formats/G64.rb

@@ -0,0 +1,174 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+$:.unshift(File.dirname(__FILE__+"\\..")) unless
+	$:.include?(File.dirname(__FILE__+"\\..")) || $:.include?(File.expand_path(File.dirname(__FILE__+"\\..")))
+
+require 'ImageFormat'
+
+class G64 < ImageFormat
+	
+#
+# raw GCR binary representation of a 1541 diskette
+#
+# References: 
+#     http://www.unusedino.de/ec64/technical/formats/g64.html
+#     http://www.baltissen.org/newhtm/1541c.htm
+#     http://www.scribd.com/doc/40438/The-Commodore-1541-Disk-Drive-Users-Guide
+#
+
+CBM_GCR_CODES={
+	"01010"=>0x00,
+	"01011"=>0x01,
+	"10010"=>0x02,
+	"10011"=>0x03,
+	"01110"=>0x04,
+	"01111"=>0x05,
+	"10110"=>0x06,
+	"10111"=>0x07,
+	"01001"=>0x08,
+	"11001"=>0x09,
+	"11010"=>0x0A,
+	"11011"=>0x0B,
+	"01101"=>0x0C,
+	"11101"=>0x0D,
+	"11110"=>0x0E,
+	"10101"=>0x0F
+}
+
+#G64 format starts with a signature 
+is_valid_image_if lambda {
+  file_system_image.file_bytes[0,8]=="GCR-1541"
+}
+
+
+def initialize(file_bytes)
+  @file_bytes=file_bytes
+  @tracks={}
+  @end_track=0
+  signature,version,raw_track_count,track_length=file_bytes.unpack("A8ccv")
+  
+  0.upto(raw_track_count-1) do |raw_track_no|
+	cbm_track_no=(raw_track_no+2.0)/2
+	track_offset=file_bytes[0x0c+4*raw_track_no,4].unpack("V")[0]
+	if track_offset>0 then
+		@end_track=cbm_track_no
+	end
+end
+
+end
+def self.possible_extensions
+    ['.g64']
+end  
+
+def self.host_system
+    C64
+end  
+
+def sectors_in_track(track_no)
+end
+
+def track_count
+  @end_track
+end
+
+def end_track
+  @end_track
+end
+
+def get_sector(track_no,sector_no)
+#puts "TR #{track_no} : #{sector_no}"
+parse_raw_track((track_no-1)*2) if @tracks[track_no].nil?
+@tracks[track_no][sector_no]
+  
+end
+
+private 
+
+def parse_raw_track(raw_track_no)
+  
+#  cbm_track_no=(raw_track_no+2.0)/2
+  track_offset=file_bytes[0x0c+4*raw_track_no,4].unpack("V")[0]
+  if track_offset>0 then
+    track_length=file_bytes[track_offset,2].unpack("v")[0]
+    track_bytes=file_bytes[track_offset+2,track_length]
+#      puts "RAW #{raw_track_no} CBM #{cbm_track_no} OFFSET #{track_offset} #{track_bytes.length}"      
+    s=""
+    track_bytes.each_byte do |byte|
+      s+="%08b" % byte
+    end
+
+    raw_blocks=s.split(/1{10,200}/)
+    decoded_blocks=[]	
+    
+    raw_blocks.each do |raw_block|
+      this_byte=0
+      high_nibble=true
+      decoded_block_bytes=""
+      0.upto([(raw_block.length/5-1),518].min) do |i|
+        gcr_bits=raw_block[i*5,5]
+        this_nibble=CBM_GCR_CODES[gcr_bits]
+        if this_nibble.nil? then
+  #				puts "invalid GCR bits #{gcr_bits} in #{raw_block} offset #{i*5}" 
+        else
+          if (high_nibble) then
+            this_byte=this_nibble*0x10
+            high_nibble=false
+          else
+            this_byte+=this_nibble
+            high_nibble=true
+            decoded_block_bytes<<this_byte			
+          end
+        end
+
+      end
+      decoded_blocks<<decoded_block_bytes
+  #puts ">>>>"
+  #puts raw_block
+  #puts "ID BYTE %02X %02X " % [decoded_block_bytes[0],decoded_block_bytes.length]
+  #decoded_block_bytes.each {|x| print "%02x " % x}
+  #puts "<<<<"
+  #puts
+    end	
+    0.upto(decoded_blocks.length-2) do |i|
+      if (decoded_blocks[i][0]==0x08) && (decoded_blocks[i+1][0]==0x07) then
+        header_block=decoded_blocks[i]
+        data_block=decoded_blocks[i+1]			
+        sector_no=header_block[2]
+        track_no=header_block[3]
+        format_id=header_block[4]+header_block[5]
+        @tracks[track_no]={} if @tracks[track_no].nil?
+#          puts "TRACK %02X SECTOR %02X ID #{format_id} LENGTH %02x" % [track_no,sector_no,data_block.length]
+          sector_data=data_block[1,data_block.length-1]
+        @tracks[track_no][sector_no]=sector_data
+        #puts hex_dump(data_block[1,256])
+      end		
+    end
+  end    
+end
+
+end
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2008 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/image_formats/Trs80Jv1Dsk.rb

@@ -0,0 +1,65 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+$:.unshift(File.dirname(__FILE__+"\\..")) unless
+	$:.include?(File.dirname(__FILE__+"\\..")) || $:.include?(File.expand_path(File.dirname(__FILE__+"\\..")))
+
+require 'ImageFormat'
+
+#TRS80 DSK in JV1 format - http://tim-mann.org/trs80/dskspec.html
+class Trs80Jv1Dsk < ImageFormat
+	
+def self.possible_extensions
+    ['.dsk']
+end  
+
+#JV1 format has no header, and a variable number of tracks, each with 10 sectors, each with 256 bytes.
+#for the moment, we only handle SSSD 80 track images (204800 bytes)
+is_valid_image_if lambda {
+  file_system_image.file_bytes.length==204800
+}
+
+def self.host_system
+    Trs80
+end  
+  
+def sectors_in_track(track_no)
+  (0..0x09).collect
+end
+
+# how many tracks could be interpreted by this image format?
+def track_count
+  file_bytes.length/(2560)
+end
+
+def get_sector(track,sector)  
+  start_byte=track*10*256+sector*256
+  file_bytes[start_byte,256]
+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/native_file_types/apple2/AppleBinary.rb

@@ -0,0 +1,51 @@
+require 'NativeFileType'
+
+class AppleBinary<NativeFileType
+
+def self.file_system_file_types
+  {
+    AppleDos=>0x04
+  }
+end
+
+#Apple DOS Binary files have the load address stored in first two bytes of the file, in LO, HI order
+def self.load_address(contents)
+  contents[0]+contents[1]*256
+end
+
+#header is 2 bytes for load address, then 2 bytes for file length
+def header_length
+  4
+end  
+
+def to_disassembly 
+    return Apple2.disassemble(data_without_header,load_address+header_length)
+end
+
+end
+
+  
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2008 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/native_file_types/apple2/AppleHiResPic.rb

@@ -0,0 +1,166 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+
+  require 'PatchedPNG'
+
+class AppleHiResPic<NativeFileType
+
+def self.file_system_file_types
+  {
+    AppleDos=>0x04,
+    NADOLDos=>:any,
+    PascalDos=>0x07
+  }
+end
+
+is_valid_file_if  lambda {    
+  is_valid=true  
+  if file_system_image.file_system==AppleDos  then
+    load_address=AppleBinary.load_address(contents)
+     is_valid=((contents.length>=8184) && (contents.length<=9000) && ((load_address==0x2000) || load_address==0x4000))
+   end
+  if file_system_image.file_system==NADOLDos  then 
+    is_valid=(contents.length==8192)
+  end
+  is_valid
+}
+
+
+
+
+#colours cribbed from http://groups.google.com.au/group/comp.sys.apple2/browse_thread/thread/b9aa36ead6935c42/faa0f4df3e89060f
+HGR_BLACK=PNG::Color::Black			#color=0,4
+HGR_GREEN=PNG::Color.new(0x2F,0xB8,0x1F,0xFF)	#color=1
+HGR_VIOLET=PNG::Color.new(0xC8,0x47,0xE4,0xFF)	#color=2
+HGR_WHITE=PNG::Color::White			#color=3,7
+HGR_ORANGE=PNG::Color.new(0xC7,0x70,0x28,0xFF)	#color=5
+HGR_BLUE=PNG::Color.new(0x30,0x8F,0xE3,0xFF)	#color=6
+
+HGR_COLS=40*7
+HGR_ROWS=8*8*3
+SCALE=1
+
+#per Apple // Reference Manual for //e chapter 2, pages 22-35
+#also TechNote - Apple IIe #3 Double High-Resolution Graphics - http://web.pdx.edu/~heiss/technotes/aiie/tn.aiie.03.html
+#HGR screen consists of 3 bands of 8 rows of 8 scanlines
+#for each absolute scanline, what is the offset into screen ram that the 40 bytes for this scanline is stored?
+
+@@scanline_offsets=Array.new(HGR_ROWS)
+
+0.upto(2) do |band|
+		0.upto(7) do |row|						
+			0.upto(7) do |relative_scanline|
+				band_ram_offset=band*40
+				band_scanline_offset=band*64
+				scanline_ram_offset=relative_scanline*1024
+				scanline_scanline_offset=relative_scanline
+				row_ram_offset=128*row
+				row_scanline_offset=8*row
+				scanline_offset=band_scanline_offset+scanline_scanline_offset+row_scanline_offset
+				ram_offset=band_ram_offset+scanline_ram_offset+row_ram_offset								
+				@@scanline_offsets[scanline_offset]=ram_offset
+		end
+	end
+end
+
+
+def self.matching_score
+  [AppleBinary.matching_score+1,NADOLFile.matching_score+1].max
+end
+
+#Apple DOS Binary files have the load address stored in first two bytes of the file, in LO, HI order
+def load_address
+  if file_system_image.file_system==AppleDos then
+    return contents[0]+contents[1]*256
+  else
+    return 0x2000
+  end
+end
+
+def to_png
+  if file_system_image.file_system==AppleDos then
+    buffer=contents[4,contents.length-4]
+  else
+    buffer=contents
+  end
+
+  canvas = PNG::Canvas.new HGR_COLS*SCALE, HGR_ROWS*SCALE, PNG::Color::Black
+  0.upto(HGR_ROWS-1) do |y|
+    last_bit_set=false
+    0.upto(39) do |x_byte|
+      offset=@@scanline_offsets[y]+x_byte
+      current_byte=buffer[offset]				
+      current_byte=0 if current_byte.nil? #if we overrun the buffer then assume it's black
+      0.upto(6) do |x_bit|
+        x=x_byte*7+x_bit
+        bit_set=((current_byte & (2**x_bit))>0)
+        if (bit_set) then
+          if (last_bit_set) then 
+            #adjacent pixels should both be white
+            AppleHiResPic.set_pixel(canvas,x-1,y,HGR_WHITE) 
+            AppleHiResPic.set_pixel(canvas,x,y,HGR_WHITE)
+          else
+            if current_byte>=0x80 then
+              pallete=[HGR_BLUE,HGR_ORANGE]
+            else
+              pallete=[HGR_VIOLET,HGR_GREEN]
+            end
+            this_pixel_colour=pallete[x%2]
+            AppleHiResPic.set_pixel(canvas,x,y,this_pixel_colour)
+            AppleHiResPic.set_pixel(canvas,x+1,y,this_pixel_colour) unless x>=HGR_ROWS
+          end
+        end
+        last_bit_set=bit_set
+      end
+    end
+  end
+  
+  png = PNG.new canvas
+  result=png.raw_bytes
+  result
+end
+
+def png_width
+  HGR_COLS*SCALE
+end
+def png_height
+  HGR_ROWS*SCALE
+end
+
+private
+	def self.set_pixel(canvas,x,y,colour)
+		0.upto(SCALE-1) do |row|
+			0.upto(SCALE-1) do |col|
+				canvas[x*SCALE+col, y*SCALE+row]= colour
+			end
+		end
+	end
+
+end
+
+  
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2008 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.