ripxplore 0.0.1 → 0.0.2

data/lib/file_systems/TrsDos.rb

@@ -7,7 +7,8 @@ $:.unshift(File.dirname(__FILE__+"\\..")) unless
 
 require 'FileSystem'
 #TRSDOS (and compatables, e.g. LDOS, NEWDOS)
-#Reference - http://www.classic-computers.org.nz/system-80/software-manuals/manuals-NewDOS-80_v2.0_manual.pdf pages 99-101
+#Reference - http://www.fileden.com/files/2008/7/6/1990698/manuals-NewDOS-80_v2.0_manual.pdf pages 99-101
+#(previous location -  http://www.classic-computers.org.nz/system-80/software-manuals/manuals-NewDOS-80_v2.0_manual.pdf )
 #sectors 2-9 of the directory track (17) contain File Primary Directory Entries, which are 32 bytes made up of:
 # byte $00: 
 #     bit 7 : 0 = FPDE, 1 = FXDE
@@ -66,9 +67,9 @@ def self.sectors_per_granule(file_system_image)
   5
 end
 
+#all TRS-80 disks seem to start with the same bytes
 is_valid_file_system_if lambda {
-  file_system_image.image_format.instance_of?(Trs80Jv1Dsk)
-}
+  file_system_image.get_sector(0,0)[0,3]==[0x00,0xFE,0x11].pack("CCC") }
 
 FDE_SIZE=0x20
 
@@ -88,7 +89,7 @@ def self.files(file_system_image)
       next if !is_fpde 
       eof_low=fde[0x03]
       filename_base=fde[0x05,8].unpack("A8")
-      filename_extension=fde[0x0D,3].unpack("A8")
+      filename_extension=fde[0x0D,3].unpack("A3")
       filename="#{filename_base}/#{filename_extension}"
       contents=""
       eof_mid=fde[0x14]
@@ -102,10 +103,12 @@ def self.files(file_system_image)
 #                     any other value ($00-$FD) equals the number of the diskette's lump in which the area starts. 
 #     byte $01  : bits 7-5 = number of granules (0-7) from the start of the lump to the start of the area
 #                   : bits 4- 0 = number less one of contiguous granules assigned to this area.
+
       5.times do |extent_no|
         extent=fde[(extent_no*2)+0x16,2]
         break if extent[0]==0xFF
-        raise "FXDE's not implemented yet" if extent[0]==0xFE
+        #raise "FXDE's not implemented yet" if extent[0]==0xFE
+        break if extent[0]==0xFE # "FXDE's not implemented yet"
         track_no=extent[0]
         granule_offset=extent[1]>>5
         number_of_granules=1+(extent[1] & 0b00011111)

data/lib/host_systems/Apple2.rb

@@ -6,28 +6,72 @@ $:.unshift(File.dirname(__FILE__+"\\..")) unless
 
 
 require 'HostSystem'
-#
-#
+
 class Apple2<HostSystem
+  
+def self.full_name
+    "Apple ]["
+end  
 
-def Apple2.to_ascii(byte)
+
+
+def self.to_ascii(byte)
   (byte%128).chr
 end
 
 #Apple 2 disks start at track 0
-def Apple2.start_track
+def self.start_track
     0
 end
 
-@@annotations=nil
-def Apple2.annotations
-  @@annotations=YAML::load(File.open(File.dirname(__FILE__)+"/a2_symbols.yaml")) if @@annotations.nil?
+@@symbols=nil
+def self.symbols
+  @@symbols=YAML::load(File.open(File.dirname(__FILE__)+"/a2_symbols.yaml")) if @@symbols.nil?
+  @@symbols
 end
 
-def Apple2.disassemble(buffer,start_address=0)
+def self.disassemble(buffer,start_address=0)
   require 'D65'
-  D65.disassemble(buffer,start_address,annotations)  
+  D65.disassemble(buffer,start_address,symbols)
+end
+
+def self.font_data_filename
+File.dirname(__FILE__) +'/apple_2_font.bin'
+end
+
+def self.line_break_chars
+  [0x0D,0x8D]
+end
+
+
+def self.screen_rows
+  25
 end
+
+def self.default_screen_width
+  40
+end
+
+def self.max_screen_width
+  80
+end
+
+def self.font_width
+  7
+end
+
+def self.font_height
+  8
+end
+
+def self.default_foreground_colour  
+    PNG::Color::White
+end
+
+def self.default_background_colour
+  PNG::Color::Black
+end
+
 end
 
   

data/lib/host_systems/Atari800.rb

@@ -9,6 +9,9 @@ require 'HostSystem'
 #
 #
 class Atari800<HostSystem
+def self.full_name
+    "Atari 400/800"
+end  
 
 def self.to_ascii(b)
   if b==0x9b then
@@ -28,9 +31,45 @@ def self.disassemble(buffer,start_address=0)
   require 'D65'
   D65.disassemble(buffer,start_address,annotations)  
 end
+
+def self.font_data_filename
+File.dirname(__FILE__) +"/atari-800-font.bin"
+end
+
+def self.screen_rows
+  24
+end
+
+def self.line_break_chars
+  [0x9b]
+end
+
+def self.default_screen_width
+  40
+end
+
+def self.max_screen_width
+  40
+end
+
+def self.font_width
+  8
+end
+
+def self.font_height
+  8
+end
+
+
+def self.default_foreground_colour  
+   PNG::Color.new(0x63,0xB6,0xE7,0xFF)	
+end
+
+def self.default_background_colour
+PNG::Color.new(0x00,0x51,0x84,0xFF)	
 end
 
-  
+end  
 # == Author
 # Jonno Downes (jonno@jamtronix.com)
 #

data/lib/host_systems/C64.rb

@@ -7,9 +7,13 @@ $:.unshift(File.dirname(__FILE__+"\\..")) unless
 
 require 'HostSystem'
 #
-#
 class C64<HostSystem
 
+def self.full_name
+    "Commodore 64"
+end  
+
+
 #C64 disks start at track # 1
 def C64.start_track
     1
@@ -53,6 +57,43 @@ def C64.disassemble(buffer,start_address=0)
   D65.disassemble(buffer,start_address,symbols)  
 end
 
+def self.font_data_filename
+File.dirname(__FILE__) +"/c64-font.bin"
+end
+
+def self.line_break_chars
+  [0x0D]
+end
+
+
+def self.screen_rows
+  25
+end
+
+def self.default_screen_width
+  40
+end
+
+def self.max_screen_width
+  40
+end
+
+def self.font_width
+  8
+end
+
+def self.font_height
+  8
+end
+
+def self.default_foreground_colour  
+    PNG::Color.new(0x6C,0x5E,0xB5,0xFF)	
+end
+
+def self.default_background_colour
+  PNG::Color.new(0x35,0x28,0x79,0xFF)	
+end
+
 end
 
   

data/lib/host_systems/Coco.rb

@@ -0,0 +1,145 @@
+$:.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 'HostSystem'
+
+class Coco<HostSystem
+
+def self.full_name
+    "Tandy Colour Computer"
+end  
+  
+def Coco.start_track
+    0
+end
+
+def Coco.to_ascii(b)    
+  b.chr
+end 
+
+def self.font_data_filename
+File.dirname(__FILE__) +'/coco-font.bin'
+end
+
+def self.screen_rows
+  16
+end
+
+def self.default_screen_width
+  32
+end
+
+def self.max_screen_width
+  32
+end
+
+def self.font_width
+  8
+end
+
+def self.font_height
+  12
+end
+
+def self.pixels_between_characters
+  0
+end
+
+def self.default_foreground_colour  
+    PNG::Color::Black
+end
+
+def self.default_background_colour
+  COCO_COLOURS[0]
+end
+
+COCO_COLOURS= [
+  PNG::Color.new(90, 211, 49,0xFF), #green
+  PNG::Color.new(247, 227, 99,0xFF),#yellow
+  PNG::Color.new(24, 0, 140,0xFF),#blue
+  PNG::Color.new(140,0,16,0xFF),#red
+  PNG::Color.new(0xff,0xfb,0xff,0xff),#white/buff
+  PNG::Color.new(33, 195, 115,0xFF),#cyan
+  PNG::Color.new(0x63,0x00,0x63,0xFF),#magenta
+  PNG::Color.new(255, 146, 140,0xFF),#orange
+  ]
+
+COCO_BLOCK_QUADRANT_OFFSETS=[
+  [4,6],  
+  [0,6],
+  [4,0],
+  [0,0],
+]
+
+def self.to_screendump(text,screen_width)
+  lines=split_into_lines(text,screen_width)  
+  canvas = PNG::Canvas.new font_width*screen_width, (pixels_between_characters+font_height)*[lines.length,screen_rows].max, default_background_colour
+  line_number=0
+  lines.each do |line|
+    col=0
+    line.each_byte do |char|
+      if (char>=0x80) then
+        colour_mask=((char & 0b01110000)>>4)
+        foreground_colour=COCO_COLOURS[colour_mask]
+        4.times do |quadrant|
+          quadrant_mask=1<<quadrant
+          if (char & quadrant_mask)>0 then
+            block_colour=foreground_colour
+          else 
+            block_colour=PNG::Color::Black
+          end
+        
+          start_x=(col*8)+COCO_BLOCK_QUADRANT_OFFSETS[quadrant][0]
+          start_y=(line_number*12)+COCO_BLOCK_QUADRANT_OFFSETS[quadrant][1]
+          6.times do |y_offset|
+            4.times do |x_offset|
+                canvas[start_x+x_offset, start_y+y_offset]=block_colour
+              end
+            end
+        end
+      else #if char is 0..0x3F it's an inverse uppercase char
+        case char
+        when 0x00..0x3F then
+          draw_char_at(canvas,char,line_number,col,default_background_colour,default_foreground_colour) 
+        else
+          draw_char_at(canvas,char-0x40,line_number,col,default_foreground_colour,default_background_colour) 
+        end
+      end     
+     col+=1 
+    end    
+    line_number+=1
+  end  
+  PNG.new(canvas).raw_bytes
+end
+
+  
+end
+  
+# == Author
+# tim lindner (tlindner@macmess.org)
+#
+# == Copyright
+# Copyright (c) 2008 tim lindner (tlindner@macmess.org)
+#
+#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/host_systems/Ti99.rb

@@ -0,0 +1,86 @@
+$:.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 'HostSystem'
+class Ti99<HostSystem
+
+def self.full_name
+    "Texas Instruments TI-99/4a"
+end  
+
+def self.start_track
+    0
+end
+
+def self.to_ascii(b)    
+  b.chr
+end 
+
+def self.font_data_filename
+File.dirname(__FILE__) +'/ti99-font.bin'
+end
+
+def self.screen_rows
+  24
+end
+
+def self.default_screen_width
+  40
+end
+
+def self.max_screen_width
+  80
+end
+
+def self.font_width
+  8
+end
+
+def self.font_height
+  7
+end
+
+def self.pixels_between_characters
+  1
+end
+
+def self.default_foreground_colour  
+    PNG::Color::Black
+end
+
+def self.default_background_colour
+  PNG::Color.new(64,228,255,0xFF)	#cyan
+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/host_systems/Trs80.rb

@@ -6,19 +6,54 @@ $:.unshift(File.dirname(__FILE__+"\\..")) unless
 
 
 require 'HostSystem'
-
-#
 class Trs80<HostSystem
 
-#C64 disks start at track # 1
-def Trs80.start_track
+def self.full_name
+    "Tandy TRS-80 Model I/III"
+end  
+
+
+def self.start_track
     0
 end
 
-def Trs80.to_ascii(b)    
+def self.to_ascii(b)    
   b.chr
 end 
 
+def self.font_data_filename
+File.dirname(__FILE__) +"/TRS81-3.FNT"
+end
+
+def self.line_break_chars
+  [0x0D]
+end
+
+
+def self.screen_rows
+  16
+end
+
+def self.screen_columns
+  64
+end
+
+def self.font_width
+  8
+end
+
+def self.font_height
+  12
+end
+
+def self.default_foreground_colour  
+    PNG::Color::Green
+end
+
+def self.default_background_colour
+  PNG::Color::Black
+end
+
 end
 
   

data/lib/image_formats/JvcDsk.rb

@@ -0,0 +1,101 @@
+$:.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'
+
+#Color Computer DSK in JVC format - http://tlindner.macmess.org/?page_id=86
+#This in an incomplete implementation
+
+class JvcDsk < ImageFormat
+
+def self.possible_extensions
+    ['.dsk']
+end  
+
+#JVC format has a variable length header, and a variable number of tracks,
+#with a variable number of sectors, with a variable length.
+
+def initialize(file_bytes)
+  @file_bytes=file_bytes
+  @sectors_per_track = 18
+  @side_count = 1
+  @sectors_size_code = 1
+  @first_sector_id = 1
+
+  @header_size = file_bytes.length % 256
+  
+  if @header_size == 0 then
+  elsif @header_size == 1 then
+  	@sectors_per_track = file_bytes.unpack("C")
+  elsif @header_size == 2 then
+  	@sectors_per_track, @side_count= file_bytes.unpack("CC")
+  elsif @header_size == 3 then
+  	@sectors_per_track, @side_count, @sectors_size_code = file_bytes.unpack("CCC")
+  elsif @header_size == 4 then
+  	@sectors_per_track, @side_count, @sectors_size_code, @first_sector_id = file_bytes.unpack("CCCC")
+  else
+  end
+
+	@sector_length = 128 << @sectors_size_code
+	@track_count = (file_bytes.length - @header_size) / (@sectors_per_track * @sector_length) / @side_count 
+end
+
+is_valid_image_if lambda {
+  (@header_size < 5) && (@track_count>=35) 
+}
+
+#Remove this when multiple side support is implemented
+is_valid_image_if lambda {
+  @side_count == 1
+}
+
+def self.host_system
+    Coco
+end  
+  
+def sectors_in_track(track_no)
+  (@first_sector_id..@sectors_per_track).collect
+end
+
+# how many tracks could be interpreted by this image format?
+def track_count
+  @track_count
+end
+
+def get_sector(track,sector)  
+  start_byte=track*@sectors_per_track*@sector_length+(sector-@first_sector_id)*@sector_length
+  start_byte += @header_size
+  
+  #puts "Track: #{track}, sector: #{sector}, start_byte: #{start_byte}"
+  @file_bytes[start_byte,@sector_length]
+end
+
+end
+
+# == Author
+# tim lindner (tlindner@macmess.org)
+#
+# == Copyright
+# Copyright (c) 2008 tim lindner (tlindner@macmess.org)
+#
+#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.