ripxplore 0.0.1 → 0.0.2

data/lib/image_formats/Ti99Dsk.rb

@@ -0,0 +1,213 @@
+$:.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'
+
+#TI99 DSK 
+class Ti99Dsk < ImageFormat
+
+def self.possible_extensions
+    ['.dsk','.tidisk']
+end  
+
+def self.host_system
+    Ti99
+end  
+ 
+def  sector_size
+  256
+end
+  
+def initial_header_length
+  0
+end
+
+#to be overriden in each subclass with a table showing what order logical sectors are stored
+def sectors_in_track(track_no)
+  (track_no*sectors_per_track..((track_no+1)*sectors_per_track-1)).collect
+end
+
+@track_count=nil
+def track_count  
+  if @track_count.nil? then
+    sector_0=get_sector(0,0)
+    @track_count=sector_0[0x11]*sector_0[0x12]
+  end
+  @track_count
+end
+
+@sectors_per_track=nil
+def sectors_per_track
+  if @sectors_per_track.nil? then
+    sector_0=get_sector(0,0)
+    @sectors_per_track=sector_0[0x0C]
+  end
+  @sectors_per_track
+end
+
+@tracks_per_side=nil
+def tracks_per_side
+  if @tracks_per_side.nil? then
+    sector_0=get_sector(0,0)
+    @tracks_per_side=sector_0[0x11]
+  end
+  @tracks_per_side
+end
+
+#TI 99 disks use a single flat list of sectors
+#however for ease of use with code that assume there are tracks & sectors
+#we will allow the track to be passed in
+def get_sector(track,sector)
+    
+#  puts "looking for LOGICAL TRACK:$%02X SECTOR:$%02X " % [track,sector]    
+  #track sector 0 as a special case, since to get to any other sector we need to know some values (e.g. sectors per track) that is recorded in sector 0
+  if (sector==0) then
+    return file_bytes[initial_header_length,256]
+  end
+  
+  real_track=sector/sectors_per_track
+  physical_sector=sector % sectors_per_track
+  get_physical_sector(real_track,physical_sector)
+end
+
+end
+
+#the 'V9T9' format is a straight dump of sectors in logical order
+class V9T9Dsk< Ti99Dsk
+private 
+def get_physical_sector(requested_track,physical_sector)
+    start_byte=requested_track*sectors_per_track*256+physical_sector*256
+    file_bytes[start_byte,256]
+end
+
+def initial_header_length
+  0
+end
+
+end
+#specs for PC99 format found at ftp://ftp.whtech.com/emulators/pc99/fmt21-22.txt
+class Pc99Dsk< Ti99Dsk
+  
+  private 
+  def get_physical_sector(requested_track,physical_sector)
+      
+    if requested_track<tracks_per_side then
+      real_track=requested_track
+      side=0
+    else
+      real_track=((tracks_per_side*2)-1)-requested_track
+      side=1
+    end
+#    puts "looking for REAL TRACK:$%02X (REQUESTED TRACK:$%02X) SECTOR:$%02X SIDE:$%02X" % [real_track,requested_track,physical_sector,side]    
+    total_sector_length=sector_header_length+sector_size+sector_after_data_gap_length
+    total_track_length=start_of_track_gap_length+total_sector_length*sectors_per_track+end_of_track_gap_length
+    start_of_track=total_track_length*(real_track+tracks_per_side*side)
+    track_bytes=file_bytes[start_of_track,total_track_length]
+    sectors_per_track.times do |i|
+      start_of_sector_header=start_of_track_gap_length+i*total_sector_length
+      sector_bytes=track_bytes[start_of_sector_header,total_sector_length]
+      track_id=sector_bytes[track_id_offset]
+      side_id=sector_bytes[side_id_offset]
+      sector_id=sector_bytes[sector_id_offset]
+#      puts "found track $%02X / side $%02X / sector $%02X" % [track_id,side_id,sector_id]  
+      return sector_bytes[sector_header_length,256] if sector_id==physical_sector  && track_id==real_track && side_id==side
+    end
+    raise " Track $%02X / Sector $%02X not found!" % [requested_track,physical_sector]
+  end
+end
+
+def track_length
+  ((256+gap_between_sectors)*sectors_per_track)+gap_between_tracks
+end
+#Single Density PC99 image
+class Pc99SD < Pc99Dsk
+  def initial_header_length
+    47
+  end
+
+  def start_of_track_gap_length
+    16
+  end
+
+  def sector_header_length
+    31
+  end
+  def  sector_after_data_gap_length
+    47
+  end
+
+  def  end_of_track_gap_length
+    231
+  end
+  
+  def track_id_offset
+    7
+  end
+  def side_id_offset
+    8
+  end
+  def sector_id_offset
+    9
+  end
+
+end
+
+#Double Density PC99 image
+class Pc99DD < Pc99Dsk
+
+  def initial_header_length
+    98
+  end
+
+  def start_of_track_gap_length
+    40
+  end
+
+  def sector_header_length
+    58
+  end
+  def  sector_after_data_gap_length
+    26
+  end
+
+  def  end_of_track_gap_length
+    712
+  end
+  def track_id_offset
+    14
+  end
+  def side_id_offset
+    15
+  end
+  def sector_id_offset
+    16
+  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

@@ -14,9 +14,9 @@ def self.possible_extensions
 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
+  (file_system_image.file_bytes.length%2560==0) && (file_system_image.file_bytes.length!=143360)
+  
 }
 
 def self.host_system
@@ -32,7 +32,9 @@ def track_count
   file_bytes.length/(2560)
 end
 
-def get_sector(track,sector)  
+def get_sector(track,sector)
+  
+  #puts "invalid track request for track #{track} / sector #{sector}" unless sectors_in_track(track).include?(sector)
   start_byte=track*10*256+sector*256
   file_bytes[start_byte,256]
 end

data/lib/native_file_types/apple2/AppleBinary.rb

@@ -13,13 +13,13 @@ def self.load_address(contents)
   contents[0]+contents[1]*256
 end
 
-#header is 2 bytes for load address, then 2 bytes for file length
+#header is 2 bytes for load address + 2 bytes for file length
 def header_length
   4
 end  
 
 def to_disassembly 
-    return Apple2.disassemble(data_without_header,load_address+header_length)
+    return Apple2.disassemble(data_without_header,load_address)
 end
 
 end

data/lib/native_file_types/apple2/AppleHiResPic.rb

@@ -2,33 +2,17 @@ $:.unshift(File.dirname(__FILE__)) unless
 	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
 
 
-  require 'PatchedPNG'
+require 'PatchedPNG'
 
-class AppleHiResPic<NativeFileType
+#generic class for a HI-RES picture
 
-def self.file_system_file_types
-  {
-    AppleDos=>0x04,
-    NADOLDos=>:any,
-    PascalDos=>0x07
-  }
-end
+class AppleHiResPic<NativeFileType
 
-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)
+#should be a subclass for each file system
+  def self.file_system_file_types
+    {}
   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
@@ -39,7 +23,7 @@ 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
@@ -48,9 +32,9 @@ SCALE=1
 
 @@scanline_offsets=Array.new(HGR_ROWS)
 
-0.upto(2) do |band|
-		0.upto(7) do |row|						
-			0.upto(7) do |relative_scanline|
+3.times do |band|
+		8.times do |row|						
+			8.times do |relative_scanline|
 				band_ram_offset=band*40
 				band_scanline_offset=band*64
 				scanline_ram_offset=relative_scanline*1024
@@ -69,30 +53,16 @@ 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|
+def to_picture
+ buffer=unpacked_picture_bytes
+  canvas = PNG::Canvas.new HGR_COLS, HGR_ROWS, PNG::Color::Black
+  HGR_ROWS.times do |y|
     last_bit_set=false
-    0.upto(39) do |x_byte|
+    40.times 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|
+      7.times do |x_bit|
         x=x_byte*7+x_bit
         bit_set=((current_byte & (2**x_bit))>0)
         if (bit_set) then
@@ -108,9 +78,10 @@ def to_png
             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
+            AppleHiResPic.set_pixel(canvas,x+1,y,this_pixel_colour) unless x>=HGR_COLS-1
           end
         end
+        
         last_bit_set=bit_set
       end
     end
@@ -121,24 +92,97 @@ def to_png
   result
 end
 
-def png_width
-  HGR_COLS*SCALE
+def picture_width
+  HGR_COLS
 end
-def png_height
-  HGR_ROWS*SCALE
+def picture_height
+  HGR_ROWS
 end
 
+def picture_format
+  :png
+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
+				canvas[x, y]= colour
 	end
 
 end
 
+class AppleDosPic < AppleHiResPic
+
+  def self.file_system_file_types
+    {
+      AppleDos=>0x04
+    }
+  end
+
+def self.load_address(contents)
+  contents[0]+contents[1]*256
+end
+
+  def header_length
+    4
+  end
+  def unpacked_picture_bytes
+    data_without_header
+  end 
+  
+  is_valid_file_if  lambda {  
+      load_address=AppleBinary.load_address(contents)
+     ((contents.length>=8184) && (contents.length<=9000) && ((load_address==0x2000) || load_address==0x4000))
+  }
+  
+end
+
+class NADOLPic < AppleHiResPic
+  def self.file_system_file_types
+    {
+      NADOLDos=>:any
+    }
+  end
+    is_valid_file_if  lambda {  
+      (contents.length==8192)
+    }
+  def unpacked_picture_bytes
+    contents
+  end 
+end
+
+class PascalPic < AppleHiResPic
+  def self.file_system_file_types
+    {
+      PascalDos=>0x07
+    }
+  end
+  def unpacked_picture_bytes
+    contents
+  end 
+end
+
+
+class ProDosBinPic < AppleHiResPic
+def self.file_system_file_types
+  {
+    ProDos=>0x06
+  }
+end
+  
+  is_valid_file_if  lambda {  
+    (aux_code==0x2000 || aux_code==0x4000) && ((contents.length>=8192) && (contents.length<=9000)) || (aux_code==0x2000 && contents.length==0x4000)    
+  }
+  def unpacked_picture_bytes
+    contents
+  end 
+  
+  def load_address
+    aux_code
+  end
+end
+
+
+
+
   
 # == Author
 # Jonno Downes (jonno@jamtronix.com)

data/lib/native_file_types/apple2/ApplePrintShopMiniPix.rb

@@ -0,0 +1,99 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+
+require 'PatchedPNG'
+require 'ProDosFile'
+#Apple Print Shop "MiniPix" format
+# per http://groups.google.com.au/group/comp.sys.apple2.programmer/browse_frm/thread/414857c71d52b5d5/c7c883c10f648ca0
+# Format is 88x52 pixels
+module ApplePrintShopMiniPix
+
+
+APS_MINIPIX_FOREGROUND=PNG::Color.new(0x01,0x01,0x01,0xFF)
+
+APS_MINIPIX_BACKGROUND=PNG::Color.new(0x80,0x80,0x80,0x80)
+
+def to_picture
+  canvas = PNG::Canvas.new picture_width, picture_height, PNG::Color::Green
+  buffer=data_without_header
+  52.times do |y|
+    row_data=buffer[y*11,11]
+    x=0
+    row_data.each_byte do |byte|
+      8.times do |bit_offset|        
+        bitmask=0b10000000>>bit_offset    
+#        puts "y #{y} x #{x} byte #{"%08b" % byte} bit #{bit_offset} #{"%08b" % bitmask}"
+        if ((byte & bitmask)==bitmask) then
+          canvas[x, y]= APS_MINIPIX_FOREGROUND
+        else
+          canvas[x, y]= APS_MINIPIX_BACKGROUND
+        end
+        x+=1
+      end
+    end
+  end
+  png = PNG.new canvas
+  result=png.raw_bytes
+  result
+end
+
+def picture_width
+  88
+end
+def picture_height
+  52
+end
+def picture_format
+  :png
+end
+
+end
+
+class AppleDosPrintShopMiniPix<AppleBinary
+  include ApplePrintShopMiniPix
+  is_valid_file_if  lambda {  
+     (contents.length==0x300) && 
+     ((AppleBinary.load_address(contents)==0x5800) ||(AppleBinary.load_address(contents)==0x7800))
+  }  
+end
+
+class ProDosPrintShopMiniPix<ProDosFile
+  include ApplePrintShopMiniPix
+  # this class should be low scoring, as a last resort
+def self.matching_score	
+    ProDosFile.matching_score+5
+end
+  is_valid_file_if  lambda {  
+     (contents.length==0x240) && 
+     (file_type==0x06) &&
+     ((aux_code==0x5800) ||(aux_code==0x7800))
+  }  
+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/AppleText.rb

@@ -1,4 +1,9 @@
+generic_path=File.dirname(__FILE__)+'/../generic/'
+$:.unshift(generic_path) unless
+	$:.include?(generic_path) || $:.include?(File.expand_path(generic_path))
+
 require 'NativeFileType'
+require 'ScreenDump'
 class AppleText<NativeFileType
 
 def self.file_system_file_types
@@ -14,8 +19,19 @@ def to_text
   s.tr("\r","\n")
 end
 
+def text_for_screendump
+  if (file_system_image.file_system.to_s==:ProDos.to_s) then
+    s=""
+    contents.each_byte{|b| s+=  ((b+128)%256).chr}
+    return s
+  end
+  data_without_header
+end
+
+include ScreenDump
 end
 
+
   
 # == Author
 # Jonno Downes (jonno@jamtronix.com)

data/lib/native_file_types/apple2/PackedAppleDosPic.rb

@@ -0,0 +1,85 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+#picture packed with "The Axe Packer"
+class PackedAppleDosPic<AppleDosPic
+
+  is_valid_file_if  lambda {  
+      load_address=AppleBinary.load_address(contents)
+     (contents.length<=9000) && (load_address==0x60FF) 
+  }  
+
+  def unpacked_picture_bytes
+    
+#    puts @@scanline_offsets.length
+    packed_buffer=data_without_header
+    unpacked_buffer="\000"*8192
+    p=0
+    parity=1
+    row=1
+    column=0
+    done=false
+    while !done do
+      b=packed_buffer[p]
+      if b==0 then          
+        run_length=packed_buffer[p+1]
+        colour=packed_buffer[p+2]
+        p+=2
+      else
+        run_length=1
+        colour=b
+      end
+      run_length.times do |i|
+        destination_offset=@@scanline_offsets[row]+column
+        unpacked_buffer[destination_offset]=colour
+        row+=2
+        if row>=192 then
+          row=parity
+          column+=1
+          if column>=40 then
+            if parity==0 then
+              done=true
+            else
+              row=0
+              column=0
+              parity=0
+            end
+          end
+        end
+      end
+      p+=1
+      done=true if p==packed_buffer.length
+    end
+    
+    unpacked_buffer
+  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/ProDosFile.rb

@@ -71,11 +71,11 @@ PRODOS_FILE_TYPES={
  0xFD=>"VAR",  #AppleSoft BASIC variables file
  0xFE=>"REL",  #ProDOS EDASM relocatable object module file
  0xFF=>"SYS",  #ProDOS8 system file}
-}
+} unless defined? PRODOS_FILE_TYPES
 
 # this class should be low scoring, as a last resort
 def ProDosFile.matching_score	
-    NativeFileType.non_matching_score+0.1
+    GenericFile.matching_score+0.1
 end
 
 def type_description
@@ -85,7 +85,6 @@ end
   
 end
 
-  
 # == Author
 # Jonno Downes (jonno@jamtronix.com)
 #