ripxplore 0.0.1

data/lib/native_file_types/apple2/ProDosFile.rb

@@ -0,0 +1,112 @@
+require 'NativeFileType'
+class ProDosFile<NativeFileType
+
+def ProDosFile.file_system_file_types
+  {
+    ProDos=>:any
+  }
+end
+
+PRODOS_FILE_TYPES={		
+0x00=>"",      #"Typeless File"
+ 0x01=>"BAD",  #BAD blocks file
+ 0x02=>"PCD",  #Pascal CoDe file
+ 0x03=>"PTX",  #Pascal TeXt file
+ 0x04=>"TXT",  #ASCII text file
+ 0x05=>"PDA",  #Pascal DAta file
+ 0x06=>"BIN",  #BINary file
+ 0x07=>"CHR",  #CHaRacter font file
+ 0x08=>"PIC",  #PICture file
+ 0x09=>"BA3",  #Business BASIC (SOS) program file
+ 0x0A=>"DA3",  #Business BASIC (SOS) data file
+ 0x0B=>"WPD",  #Word Processor Document
+ 0x0F=>"DIR",  #subDIRectory file
+ 0x10=>"RPD",  #RPS data file
+ 0x11=>"RPI",  #RPS index file
+ 0x19=>"ADB",  #AppleWorks Database file
+ 0x1A=>"AWP",  #AppleWorks WordProcessing file
+ 0x1B=>"ASP",  #AppleWorks Spreadsheet file
+ 0x60=>"PRE",  #ProDOS preboot driver
+ 0x6B=>"NIO",  #PC Transporter BIOS and drivers
+ 0x6D=>"DVR",  #PC Transporter device drivers
+ 0x6F=>"HDV",  #MSDOS HardDisk Volume
+ 0xA0=>"WPF",  #WordPerfect document file
+ 0xA1=>"MAC",  #Macrofile
+ 0xA2=>"HLP",  #Help File
+ 0xA3=>"DAT",  #Data File
+ 0xA5=>"LEX",  #Spelling dictionary
+ 0xAC=>"ARC",  #General Purpose Archive file
+ 0xB0=>"SRC",  #ORCA/M & APW source file
+ 0xB1=>"OBJ",  #ORCA/M & APW object file
+ 0xB2=>"LIB",  #ORCA/M & APW library file
+ 0xB3=>"S16",  #ProDOS16 system file
+ 0xB4=>"RTL",  #ProDOS16 runtime library
+ 0xB5=>"EXE",  #APW shell command file
+ 0xB6=>"STR",  #ProDOS16 startup init file
+ 0xB7=>"TSF",  #ProDOS16 temporary init file
+ 0xB8=>"NDA",  #ProDOS16 new desk accessory
+ 0xB9=>"CDA",  #ProDOS16 classic desk accessory
+ 0xBA=>"TOL",  #ProDOS16 toolset file
+ 0xBB=>"DRV",  #ProDOS16 driver file
+ 0xBF=>"DOC",  #document file
+ 0xC0=>"PNT",  #//gs paint document
+ 0xC1=>"SCR",  #//gs screen file
+ 0xC8=>"FNT",  #Printer font file
+ 0xE0=>"LBR",  #Apple archive library file
+ 0xE2=>"ATI",  #Appletalk init file
+ 0xEF=>"PAS",  #ProDOS Pascal file
+ 0xF0=>"CMD",  #added command file
+ 0xF1=>"OVL",  #Overlay file
+ 0xF2=>"DBF",  #Database file
+ 0xF3=>"PAD",  #MouseWrite file
+ 0xF4=>"MCR",  #AE Pro macro file
+ 0xF5=>"ECP",  #ECP batch file
+ 0xF6=>"DSC",  #description file
+ 0xF7=>"TMP",  #temporary work file
+ 0xF8=>"RSX",  #linkable object module
+ 0xF9=>"IMG",  #ProDOS image file
+ 0xFA=>"INT",  #Integer BASIC program
+ 0xFB=>"IVR",  #Integer BASIC variables file
+ 0xFC=>"BAS",  #AppleSoft BASIC program
+ 0xFD=>"VAR",  #AppleSoft BASIC variables file
+ 0xFE=>"REL",  #ProDOS EDASM relocatable object module file
+ 0xFF=>"SYS",  #ProDOS8 system file}
+}
+
+# this class should be low scoring, as a last resort
+def ProDosFile.matching_score	
+    NativeFileType.non_matching_score+0.1
+end
+
+def type_description
+  extension=PRODOS_FILE_TYPES[file_type]
+   extension.nil? ?  (" $%02x:%04x"  % [file_type,aux_code] ) : ("#{extension}:%04x" % aux_code) 
+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/ScAsm.rb

@@ -0,0 +1,110 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+#require 'IntegerBASIC'
+class ScAsm<IntegerBASIC
+
+#SC-ASM files are saved as type 'I' but are really tokenised Assembler source files
+# 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
+
+is_valid_file_if  lambda {
+  is_valid=true
+  length=contents[0]+contents[1]*256
+  is_valid=false if length>contents.length  
+  index=2
+  s=""
+  while (index<length) && (is_valid)
+    line_length=contents[index]
+    line_no=contents[index+1]+contents[index+2]*256
+    index+=3 #skip over the "line number" field
+    #S-C Assembler lines always ends with a 0x00 
+    if ( contents[index+line_length-4] != 0x00 )
+      is_valid=false
+    else
+      contents[index..index+line_length-3].each_byte do |b|
+          if b>0xc0 then
+            is_valid=false
+          end
+      end
+    end
+    index+= (line_length-3).abs
+  end
+  is_valid
+}
+    
+def to_listing
+    length=contents[0]+contents[1]*256
+		index=2
+		s=""
+		while (index<length)
+			line_length=contents[index]
+			line_no=contents[index+1]+contents[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=contents[index]
+				if (b==0xC0) then
+					repeat_count=contents[index+1]
+					repeat_char=(contents[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) 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/atari800/AtariBasic.rb

@@ -0,0 +1,396 @@
+require 'NativeFileType'
+
+#http://www.atarimax.com/jindroush.atari.org/afmtbas.html
+#http://www.atarimax.com/jindroush.atari.org/afmtbas1.html
+#http://www.atariarchives.org/dere/chapt10.php
+#http://users.telenet.be/kim1-6502/6502/p1.html#81
+#
+#
+# PART 1	0 +----------+
+#	  |     0    |
+#	2 +----------+
+#	  |    256   | <--> The displacement of the VNT from
+#	4 +----------+      the beginning of part two, plus 256.
+#	  | Not Used |
+#	6 +----------+
+#	  |   DVVT   | <--> The displacement of VNT from the
+#	8 +----------+      beginning of part two, plus 256.
+#	  |    DST   | <--> The displacement of ST from the
+#	10+----------+      beginning of part two, plus 256.
+#	  | Not Used |
+#	12+----------+
+#	  |   DEND   | <--> The displacement of the end of the
+# ======14+==========+      file from the beginning of part two.
+# PART 2 0|   VNT    | <--> Variable Name Table
+# DVVT-256+----------+
+#        |   VVT    | <--> Variable Value Table
+# DSNT-256+----------+
+#         |    ST    | <--> Statement Table
+# DEND-256+----------+
+
+
+class AtariBasic<NativeFileType
+def self.file_system_file_types
+  {
+    AtariDos=>:any
+  }
+end
+
+#tokenised BASIC files start with 00 00 ?? 01
+is_valid_file_if  lambda {(contents[0,2]=="\000\000") && (contents[3]==0x01)}
+
+
+START_OF_FILE_PART_TWO=14
+ATARI_BASIC_COMMAND_TOKENS=[
+'REM', #0x0
+'DATA', #0x1
+'INPUT', #0x2
+'COLOR', #0x3
+'LIST', #0x4
+'ENTER', #0x5
+'LET', #0x6
+'IF', #0x7
+'FOR', #0x8
+'NEXT', #0x9
+'GOTO', #0x0A
+'GO TO', #0x0B
+'GOSUB', #0x0C
+'TRAP', #0x0D
+'BYE', #0x0E
+'CONT', #0x0F
+'COM', #0x10
+'CLOSE', #0x11
+'CLR', #0x12
+'DEG', #0x13
+'DIM', #0x14
+'END', #0x15
+'NEW', #0x16
+'OPEN', #0x17
+'LOAD', #0x18
+'SAVE', #0x19
+'STATUS', #0x1A
+'NOTE', #0x1B
+'POINT', #0x1C
+'XIO', #0x1D
+'ON', #0x1E
+'POKE', #0x1F
+'PRINT', #0x20
+'RAD', #0x21
+'READ', #0x22
+'RESTORE', #0x23
+'RETURN', #0x24
+'RUN', #0x25
+'STOP', #0x26
+'POP', #0x27
+'?', #0x28
+'GET', #0x29
+'PUT', #0x2A
+'GRAPHICS', #0x2B
+'PLOT', #0x2C
+'POSITION', #0x2D
+'DOS', #0x2E
+'DRAWTO', #0x2F
+'SETCOLOR', #0x30
+'LOCATE', #0x31
+'SOUND', #0x32
+'LPRINT', #0x33
+'CSAVE', #0x34
+'CLOAD', #0x35
+'', #0x36 - [IMPLIED LET]
+'ERROR - [SYNTAX]', #0x37
+
+## these following tokens are from Turbo BASIC - http://www.atarimax.com/jindroush.atari.org/afmtbas1.html
+'DPOKE', #38
+'MOVE', #39
+'-MOVE', #3A
+'*F', #3B
+'REPEAT', #3C
+'UNTIL', #3D
+'WHILE', #3E
+'WEND', #3F
+'ELSE', #40
+'ENDIF', #41
+'BPUT', #42
+'BGET', #43
+'FILLTO', #44
+'DO', #45
+'LOOP', #46
+'EXIT', #47
+'DIR', #48
+'LOCK', #49
+'UNLOCK', #4A
+'RENAME', #4B
+'DELETE', #4C
+'PAUSE', #4D
+'TIME$=', #4E
+'PROC', #4F
+'EXEC', #50
+'ENDPROC', #51
+'FCOLOR', #52
+'*L', #53
+'------------------------------', #54
+'RENUM', #55
+'DEL', #56
+'DUMP', #57
+'TRACE', #58
+'TEXT', #59
+'BLOAD', #5A
+'BRUN', #5B
+'GO#', #5C
+'#', #5D
+'*B', #5E
+'PAINT', #5F
+'CLS', #60
+'DSOUND', #61
+'CIRCLE', #62
+'%PUT', #63
+'%GET', #64
+
+]
+
+ATARI_BASIC_OPERATORS_AND_FUNCTIONS={
+0x0D => '[NUM HEX CONST]', # from TURBO BASIC
+0x0E =>'[NUM CONST]',
+0x0F =>'[STR CONST]',
+0x10 =>'[NOT USED]',
+0x11 =>'[NOT USED]',
+0x12 =>',',
+0x13 =>'$',
+0x14 =>':',# [STMT END]
+0x15 =>';',
+0x16 =>'[LINE END]',
+0x17 =>'GOTO',
+0x18 =>'GOSUB',
+0x19 =>'TO',
+0x1A =>'STEP',
+0x1B =>'THEN',
+0x1C =>'#',
+0x1D =>'<=', #numerics
+0x1E =>'<>',
+0x1F =>'>=',
+0x20 =>'<',
+0x21 =>'>',
+0x22 =>'=',
+0x23 =>'',
+0x24 =>'*',
+0x25 =>'+',
+0x26 =>'-',
+0x27 =>'/',
+0x28 =>'NOT',
+0x29 =>'OR',
+0x2A =>'AND',
+0x2B =>'(',
+0x2C =>')',
+0x2D =>'=', # ARITHM ASSIGN
+0x2E =>'=',#STRING ASSIGN
+0x2F =>'<=',#STRINGS
+0x30 =>'<>',
+0x31 =>'>=',
+0x32 =>'<',
+0x33 =>'>',
+0x34 =>'=',
+0x35 =>'+',#unary
+0x36 =>'-',
+0x37 =>'(',# [STRING LEFT PAREN]
+0x38 =>'(',#[ARRAY LEFT PAREN]
+0x39 =>'(',# [DIM ARRAY LEFT PAREN]
+0x3A =>'(',#[FUN LEFT PAREN]
+0x3B =>'(',# [DIM STR LEFT PAREN]
+0x3C =>',',# [ARRAY COMMA]
+0x3D =>'STR$',
+0x3E =>'CHR$',
+0x3F =>'USR',
+0x40 =>'ASC',
+0x41 =>'VAL',
+0x42 =>'LEN',
+0x43 =>'ADR',
+0x44 =>'ATN',
+0x45 =>'COS',
+0x46 =>'PEEK',
+0x47 =>'SIN',
+0x48 =>'RND',
+0x49 =>'FRE',
+0x4A =>'EXP',
+0x4B =>'LOG',
+0x4C =>'CLOG',
+0x4D =>'SQR',
+0x4E =>'SGN',
+0x4F =>'ABS',
+0x50 =>'INT',
+0x51 =>'PADDLE',
+0x52 =>'STICK',
+0x53 =>'PTRIG',
+0x54 =>'STRIG',
+
+## these following tokens are from Turbo BASIC - http://www.atarimax.com/jindroush.atari.org/afmtbas1.html
+0x55=>'DPEEK',
+0x56=>'&',
+0x57=>'!',
+0x58=>'INSTR',
+0x59=>'INKEY$',
+0x5A=>'EXOR',
+0x5B=>'HEX$',
+0x5C=>'DEC',
+0x5D=>'DIV',
+0x5E=>'FRAC',
+0x5F=>'TIME$',
+0x60=>'TIME',
+0x61=>'MOD',
+0x62=>'EXEC',
+0x63=>'RND',
+0x64=>'RAND',
+0x65=>'TRUNC',
+0x66=>'%0',
+0x67=>'%1',
+0x68=>'%2',
+0x69=>'%3',
+0x6A=>'GO#',
+0x6B=>'UINSTR',
+0x6C=>'ERR',
+0x6D=>'ERL',
+}
+def to_listing
+  s=""
+  variable_name_table_displacement=(contents[2]+(contents[3]<<8))-0x100
+#  puts "%02x %02x" % [contents[6],contents[7]]
+  variable_value_table_displacement=(contents[6]+(contents[7]<<8))-0x100
+  statement_table_displacement=(contents[8]+(contents[9]<<8))-0x100
+  file_end_displacement=(contents[12]+(contents[13]<<8))-0x100
+  
+#  puts "DVNT $#{"%02x" % variable_name_table_displacement} DVVT $#{"%02x" % variable_value_table_displacement} DST $#{"%02x" % statement_table_displacement}"
+  
+  #extract all the variable names
+  variable_name_table=contents[variable_name_table_displacement+START_OF_FILE_PART_TWO,(variable_value_table_displacement-variable_name_table_displacement)]
+  variable_names={}
+  variable_token=0x80
+  current_variable_name=""
+  variable_name_table.each_byte do |byte|
+    if byte>=0x80 then      
+      current_variable_name+=(byte-0x80).chr
+      variable_names[variable_token]=current_variable_name
+      variable_token+=1
+      current_variable_name=""
+    else
+      current_variable_name+=byte.chr
+    end
+  end
+  #~ variable_names.keys.sort.each do |token|
+    #~ puts "$%02x : #{variable_names[token]}" % token
+  #~ end
+  
+  statement_table=contents[statement_table_displacement+START_OF_FILE_PART_TWO,(file_end_displacement-statement_table_displacement)]
+  p=0
+  s=""
+  while p<statement_table.length    
+#    puts "%02x" % statement_table[p] 
+    line_number=statement_table[p,2].unpack("v")[0]
+    break if line_number==0x8000
+    line_length=statement_table[p+2]
+    line=statement_table[p+3,line_length-2]
+    s<<"#{line_number} "
+#    puts "#{line_number} #{"%02x" % line_length}"
+    break if line_length==0
+    t=0 
+    start_of_statement=true
+    while (!line.nil?) && t<line.length && line[t]!=0x16 
+      actual_file_offset=statement_table_displacement+START_OF_FILE_PART_TWO+p+t #track for debugging
+      token=line[t]      
+      if start_of_statement then
+        t+=1 #skip over the 'displacement till next statement' byte
+        token=line[t]
+        command=ATARI_BASIC_COMMAND_TOKENS[token]
+        command="[UNK CMD %02X]" % token if command.nil?
+        s<<"#{command} " unless token==0x36 #don't print anything on an implied let
+        start_of_statement=false
+        if token==0x00 then #REM
+          s<<line[t+1,line.length-(t+3)]
+          t=line.length
+        end
+      elsif token>=0x80 then
+        variable=variable_names[token]
+        variable="[UNK VAR %02X]" % token if variable.nil?
+        s<<variable
+      elsif token==0x14 then #end of statement
+        s<<":"
+        start_of_statement=true
+      elsif token==0x0D then #numeric hex constant - TURBO BASIC
+#        raise "NHCONST not implemented yet : offset $#{"%x" % actual_file_offset} of #{filename}"
+        const=line[t+1]+(line[t+2]<<8)
+        s<<"&%x"%const
+        t+=2
+      elsif token==0x0E then #numeric constant - 6 BCD floating point
+        buffer=line[t+1,6]
+        s<<parse_bytes_as_float(buffer).to_s.sub(/\.0$/,'')#strip off ".0"
+        t+=6
+      elsif token==0x0F then #string
+        length=line[t+1]        
+        s<<"\"#{line[t+2,length]}\""
+        t+=length+1
+      elsif token==0x1B then
+        s<<"THEN "
+        start_of_statement=true        
+      else
+        op_func=ATARI_BASIC_OPERATORS_AND_FUNCTIONS[token]
+        op_func="[UNK OP/FUNC %02X]" % token if op_func.nil?
+        s<<"#{op_func}"        
+      end      
+        
+      t+=1
+    end
+    s<<"\n"
+    p+=line_length
+  end
+  s
+end
+
+private
+def parse_bytes_as_float(bytes)
+  
+  return 0 if (bytes[0]==00 && bytes[1]==00 && bytes[2]==00 && bytes[3]==00 && bytes[4]==00 && bytes[5]==00)
+#  bytes.each_byte{|x| print ("$%02x " % x)}    
+  exponent=bytes[0]-0x40  
+  mantissa=0
+  5.times do |i|
+    mantissa=mantissa*100.0
+    mantissa+=byte_to_bcd(bytes[i+1])
+  end
+  mantissa=mantissa/(100**4)  
+  result=mantissa*(100**exponent)
+  
+#  puts "M #{mantissa} E #{exponent} R #{result}"
+  result
+end
+
+def byte_to_bcd(b)
+  high_nibble=b>>4
+  low_nibble=b%0x10
+  (high_nibble*10)+low_nibble
+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/atari800/AtariBinary.rb

@@ -0,0 +1,53 @@
+require 'NativeFileType'
+class AtariBinary<NativeFileType
+  
+#http://www.atarimax.com/jindroush.atari.org/afmtexe.html
+def self.file_system_file_types
+  {
+    AtariDos=>:any
+  }
+end
+
+# binary load files start with FF FF
+is_valid_file_if  lambda {contents[0]==0xFF && contents[1]==0xFF}
+
+#Binary Load files have the load address stored in bytes 2 & 3
+def load_address
+  contents[2]+contents[3]*256
+end
+
+def header_length
+ 6
+end  
+
+def to_listing
+    Atari800.disassemble(data_without_header,load_address)
+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.