dsktool 0.4.2 → 0.5.1

data/lib/DOSDisk.rb

@@ -84,6 +84,7 @@ require 'DOSFile'
 
 class DOSDisk < DSK
 
+  attr_accessor :vtoc_track_no,:vtoc_sector_no  
 	def dump_catalog
 		s=""
 	files.keys.sort.each { |file_name|		
@@ -94,12 +95,15 @@ class DOSDisk < DSK
 	end
 	
 	def file_system
-		:dos
+		return :dos if (vtoc_track_no==0x11) && (vtoc_sector_no==0)
+    :modified_dos
 	end
 
 
-	def initialize(file_bytes,sector_order)
+	def initialize(file_bytes,sector_order,vtoc_track_no=0x11,vtoc_sector_no=0)
 		super(file_bytes,sector_order)
+    @vtoc_track_no=vtoc_track_no
+    @vtoc_sector_no=vtoc_sector_no
 		self.read_vtoc
 	end
   
@@ -132,7 +136,7 @@ end
 	#reads the VTOC, and populate the "files" array with files
 	def read_vtoc
     @files={}
-		vtoc_sector=get_sector(17,0)
+		vtoc_sector=get_sector(vtoc_track_no,vtoc_sector_no)
 		catalog_sector=get_sector(vtoc_sector[01],vtoc_sector[02])
 		done=false
 		visited_sectors={}
@@ -140,7 +144,7 @@ end
 			break if catalog_sector.nil?
 			(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]					
+				file_descriptive_entry=catalog_sector[file_descriptive_entry_start,36]					
 				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}
@@ -202,7 +206,7 @@ end
 	end
 #iterate through the CATALOG to find either the named file or (if nil is passed in) an empty slot
 def find_catalog_slot(filename)
-  vtoc_sector=get_sector(17,0)
+  vtoc_sector=get_sector(vtoc_track_no,vtoc_sector_no)
   catalog_filename=DOSFile.catalog_filename(filename.upcase) unless filename.nil?
   catalog_track_no=vtoc_sector[01]
   catalog_sector_no=vtoc_sector[02]
@@ -228,7 +232,7 @@ end
 #iterate through the sector usage bitmap, return a list of [track,sector] for sectors marked available
 def free_sector_list
   end_of_sector_usage_bitmap=(track_count*4+0x38)-1
-  sector_usage_bitmap=get_sector(0x11,0)[0x38..end_of_sector_usage_bitmap]
+  sector_usage_bitmap=get_sector(vtoc_track_no,vtoc_sector_no)[0x38..end_of_sector_usage_bitmap]
   free_sectors=[]
   #skip track 0 - even if sectors there are unused, we can't include them in a catalog or track/sector list
     (1..track_count-1).each do |track|
@@ -268,7 +272,7 @@ end
     file_descriptive_entry=get_sector(this_files_catalog_slot.track_no,this_files_catalog_slot.sector_no)[this_files_catalog_slot.offset..this_files_catalog_slot.offset+0x22]
     
     #mark sector as free in sector usage list
-    sector_usage_bitmap_sector=get_sector(0x11,0)  
+    sector_usage_bitmap_sector=get_sector(vtoc_track_no,vtoc_sector_no)
     sectors_to_mark_available=get_track_sector_list(file_descriptive_entry[0x00],file_descriptive_entry[0x01])
     sectors_to_mark_available<<DSKTrackSector.new(file_descriptive_entry[0x01],file_descriptive_entry[0x00])      
     
@@ -281,7 +285,7 @@ end
       byte_containing_this_sector=byte_containing_this_sector|(2**(ts.sector_no%8))
       sector_usage_bitmap_sector[offset_of_byte_containing_this_sector]=byte_containing_this_sector
     end
-    set_sector(0x11,0,sector_usage_bitmap_sector)
+    set_sector(vtoc_track_no,vtoc_sector_no,sector_usage_bitmap_sector)
     
     #mark slot as available in catalog
     catalog_sector=get_sector(this_files_catalog_slot.track_no,this_files_catalog_slot.sector_no)
@@ -295,8 +299,8 @@ end
   super(track,sector,contents)  
   
   #now mark sector as used in sector usage list  
-  if ((track!=0x11) || (sector!=00)) then #don't bother marking the VTOC sectors used
-    sector_usage_bitmap_sector=get_sector(0x11,0)  
+  if ((track!=vtoc_track_no) || (sector!=vtoc_sector_no)) then #don't bother marking the VTOC sectors used
+    sector_usage_bitmap_sector=get_sector(vtoc_track_no,vtoc_sector_no)  
     offset_of_byte_containing_this_sector=0x38+(track*4)
     if sector<8 then 
         offset_of_byte_containing_this_sector+=1
@@ -304,7 +308,7 @@ end
     byte_containing_this_sector=sector_usage_bitmap_sector[offset_of_byte_containing_this_sector]
     byte_containing_this_sector=byte_containing_this_sector&(0xff-(2**(sector%8)))
     sector_usage_bitmap_sector[offset_of_byte_containing_this_sector]=byte_containing_this_sector
-    set_sector(0x11,0,sector_usage_bitmap_sector)
+    set_sector(vtoc_track_no,vtoc_sector_no,sector_usage_bitmap_sector)
   end
 end
 
@@ -340,7 +344,7 @@ def add_file(file)
     sector_to_use=free_sectors[sector_in_file+1]
     track_sector_list[(sector_in_file*2)+0x0C]=sector_to_use.track_no
     track_sector_list[(sector_in_file*2)+0X0D]=sector_to_use.sector_no
-    sector_contents=file.contents[(sector_in_file*256)..(sector_in_file*256)+255] || ""
+    sector_contents=file.contents[(sector_in_file*256),256] || ""
     set_sector(sector_to_use.track_no,sector_to_use.sector_no,sector_contents)
   end
   #write the track/sector list

data/lib/DOSDisk.rb~

@@ -0,0 +1,201 @@
+$:.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
+		s=""
+	files.keys.sort.each { |file_name|		
+			file=files[file_name]	
+			s<< "#{file.locked ? '*':' '}#{file.file_type} #{sprintf('%04d',file.contents.length)} #{file.filename}\n"
+		}
+		s
+	end
+	
+	def file_system
+		:dos
+	end
+
+
+	def initialize(file_bytes,sector_order)
+		super(file_bytes,sector_order)
+		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
+		visited_sectors={}
+		while !done
+			break if catalog_sector.nil?
+			(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.gsub!(/ *$/,"") #strip off trailing spaces
+				filename.tr!("\x00-\x1f","\x40-\x1F") #convert non-printable chars to corresponding uppercase letter
+				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
+					if contents.length>0 then
+						@files[filename]= case file_type_code
+							when 0x00 then TextFile.new(filename,locked,sector_count,contents)
+							when 0x01 then SCAsmFile.can_be_scasm_file?(contents)? SCAsmFile.new(filename,locked,sector_count,contents): 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,sprintf("$%02X",file_type_code))
+						end
+					end
+				end
+			}
+			next_track=catalog_sector[1]		
+			next_sector=catalog_sector[2]%0x10
+			if (next_track==0) &&( next_sector==0) then
+				done=true
+			else 
+				#check we haven't got into an endless loop
+				s="#{next_track}/#{next_sector}"
+				if (!visited_sectors[s].nil?) then
+					done=true
+				end
+				visited_sectors[s]=true
+				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~

@@ -0,0 +1,402 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+require 'D65'
+require 'DSKFile'
+require 'HGR'
+
+#Apple DOS 3.3 file
+class DOSFile < DSKFile
+	
+	attr_accessor(:filename,:locked,:file_type,:sector_count,:contents) 
+	def initialize(filename,locked,sector_count,contents,file_type=nil)
+		@filename=filename
+		@locked=locked
+		@sector_count=sector_count
+		@file_type= file_type
+		@contents=contents
+	end
+
+
+	#File type as displayed in Apple DOS 3.3 Catalog
+	def file_type
+		@file_type
+	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 contents_without_header
+		file_length=contents[2]+contents[3]*256
+		@contents[4..file_length+3]
+	end
+	def disassembly
+		start_address=(@contents[0]+@contents[1]*256)
+		D65.disassemble(contents_without_header,start_address)
+	end
+
+	def can_be_picture?
+		start_address=(@contents[0]+@contents[1]*256)
+		HGR.can_be_hgr_screen?(contents_without_header,start_address)
+	end
+
+	def to_png(pallete_mode=:amber)
+		HGR.buffer_to_png(contents_without_header,pallete_mode)
+	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
+
+
+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
+
+
+
+# Adapted from FID.C -- a utility to browse Apple II .DSK image files by Paul Schlyter (pausch@saaf.se)
+#
+#   S-C Assembler file format:
+#
+#  <Length_of_file> (16-bit little endian)
+#  <Line>
+#  ......
+#  <Line>
+#
+#  where <Line> is:
+#  <Length>     (8-bit: including length byte, line no, contents, zero>
+#  <Line no>    (16-bit little endian: 0-65535)
+#  <Characters>
+#  <Zero byte>  ($00, to mark the end of the S-C Asm source line)
+#
+#  where <Characters> are an arbitrary sequence of:
+#  <Literal character>:      $20 to $7E - literal characters
+#  <Compressed spaces>:      $80 to $BF - represents 1 to 63 spaces
+#  <Compressed repetition>:  $C0 <n> <ch> - represents <ch> n times
+ #
+
+class SCAsmFile < DOSFile
+	def file_type
+		"I"
+	end
+	#display file with all tokens expanded
+	def to_s
+		SCAsmFile.buffer_as_scasm_file(@contents)
+	end	
+	
+	def file_extension
+		".asm"
+	end
+
+	def SCAsmFile.can_be_scasm_file?(buffer)
+		if buffer.length<2 then
+			return false
+		end
+		length=buffer[0]+buffer[1]*256
+		index=2
+		s=""
+		while (index<length)
+			line_length=buffer[index]
+			line_no=buffer[index+1]+buffer[index+2]*256
+			index+=3 #skip over the "line number" field
+			#S-C Assembler lines always ends with a 0x00 
+			if ( buffer[index+line_length-4] != 0x00 )
+				return false
+			end
+			buffer[index..index+line_length-3].each_byte do |b|
+					if b>0xc0 then
+						return false
+					end
+			end
+			index+= (line_length-3).abs
+		end
+		return true
+	end
+	
+private
+	def SCAsmFile.buffer_as_scasm_file(buffer)
+		length=buffer[0]+buffer[1]*256
+		index=2
+		s=""
+		while (index<length)
+			line_length=buffer[index]
+			line_no=buffer[index+1]+buffer[index+2]*256
+			s+=sprintf("%d ",line_no)
+			index+=3 #skip over the "line number" field
+			end_of_line=index+line_length-4
+			while(index<end_of_line)
+				b=buffer[index]
+				if (b==0xC0) then
+					repeat_count=buffer[index+1]
+					repeat_char=(buffer[index+2]).chr
+					s+=repeat_char*repeat_count
+					index+=3
+				elsif(b>=0x80) then
+					s+=" "*(b-0x80)
+					index+=1
+				else
+					s+=b.chr
+					index+=1
+				end
+			end
+			index+=1 #skip over end-of-line marker
+			s+="\n"
+		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.