dsktool 0.4.2 → 0.5.1

data/lib/Nibbles.rb

@@ -0,0 +1,210 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+require 'DSK'
+
+class Nibbles
+#  DEBUG=true
+ DEBUG=false
+
+  #dos interleave table (from Beneath Apple DOS p 3-23)
+  INTERLEAVES=[0x00,0x07,0x0E,0x06,0x0D,0x05,0x0C,0x04,0x0B,0x03,0x0A,0x02,0x09,0x01,0x08,0x0F]
+
+  #6-2 translate table (from Beneath Apple DOS p 3-17)
+  DATA_TRANSLATE_TABLE=[
+  0x96,#00
+  0x97,#01
+  0x9A,#02
+  0x9B,#03
+  0x9D,#04
+  0x9E,#05
+  0x9F,#06
+  0xA6,#07
+  0xA7,#08
+  0xAB,#09
+  0xAC,#0A
+  0xAD,#0B
+  0xAE,#0C
+  0xAF,#0D
+  0xB2,#0E
+  0xB3,#0F
+  0xB4,#10
+  0xB5,#11
+  0xB6,#12
+  0xB7,#13
+  0xB9,#14
+  0xBA,#15
+  0xBB,#16
+  0xBC,#17
+  0xBD,#18
+  0xBE,#19
+  0xBF,#1A
+  0xCB,#1B
+  0xCD,#1C
+  0xCE,#1D
+  0xCF,#1E
+  0xD3,#1F
+  0xD6,#20
+  0xD7,#21
+  0xD9,#22
+  0xDA,#23
+  0xDB,#24
+  0xDC,#25
+  0xDD,#26
+  0xDE,#27
+  0xDF,#28
+  0xE5,#29
+  0xE6,#2A
+  0xE7,#2B
+  0xE9,#2C
+  0xEA,#2D
+  0xEB,#2E
+  0xEC,#2F
+  0xED,#30
+  0xEE,#31
+  0xEF,#32
+  0xF2,#33
+  0xF3,#34
+  0xF4,#35
+  0xF5,#36
+  0xF6,#37
+  0xF7,#38
+  0xF9,#39
+  0xFA,#3A
+  0xFB,#3B
+  0xFC,#3C
+  0xFD,#3D
+  0xFE,#3E
+  0xFF,#3F
+  ]
+
+  TRACK_LENGTH=6656
+
+  def Nibbles.decode_4_4(bytes)
+    return((bytes[0] << 1) | 1) & bytes[1]
+  end
+
+  def Nibbles.make_dsk_from_nibbles(nibbles)
+    dsk=DSK.new()
+    0.upto(0x22) {|track_no| set_dsk_sectors_for_nibbles_track(nibbles,dsk,track_no)}
+    dsk
+  end
+  
+  def Nibbles.get_track(nibbles,track_no)
+    nibbles[track_no*TRACK_LENGTH..((track_no+1)*TRACK_LENGTH)-1]
+  end
+
+  def Nibbles.set_dsk_sectors_for_nibbles_track(nibbles,dsk,track_no) 
+    
+    sector_regex=/(\xD5.{8}[^D5]{1,20}\xFF+\xD5[^xD5]{348})/
+    track_nibbles=get_track(nibbles,track_no)
+    track_nibbles<<=track_nibbles[0..400]#wrap around one full sector
+    if DEBUG then
+      puts "#start track data"
+      track_nibbles.each_byte{|b| printf "%02X",b}    
+      puts "# end track data"
+    end  
+    
+    sectors=track_nibbles.split(sector_regex)  
+    sector_count=0
+    sector_has_been_read=[false]*16
+    sectors.each do |sector_nibbles|
+    
+      if DEBUG then  
+        puts "#start sector data"
+        sector_nibbles.each_byte{|b| printf "%02X",b}    
+        puts "# end sector data"    
+      end
+      next unless sector_nibbles=~/^\xFF*\xD5.*\xD5/
+
+      address_field,data_field=/\xFF*(\xD5.*)(\xD5.*)/.match(sector_nibbles).captures
+      address_field.each_byte{|b| printf "%02X",b}  if DEBUG
+      vol_no=decode_4_4(address_field[3..4])
+      track_no=decode_4_4(address_field[5..6])
+      sector_no=decode_4_4(address_field[7..8])
+      next unless sector_no<16
+      next if sector_has_been_read[sector_no]
+      sector_has_been_read[sector_no]=true
+      sector_count+=1
+      if DEBUG then
+        puts "VOL #{vol_no} TRACK #{track_no} SECTOR #{sector_no}"
+        puts "#start data"
+        data_field.each_byte{|b| printf "%02X",b}    
+        puts "# end data"
+    end
+      undecoded_data=data_field[3..345]
+      decoded_data='\0'*343
+      #algorithm taken from http://www.umich.edu/~archive/apple2/misc/hardware/disk.encoding.txt
+      checksum=0
+      0.upto(341) do |i|
+        undecoded_byte=undecoded_data[i]
+        decoded_byte=DATA_TRANSLATE_TABLE.index(undecoded_byte)
+        decoded_byte=0 if decoded_byte.nil?
+        #raise "invalid nibble #{sprintf '%02X',undecoded_byte} at nibble #{i}, track #{track_no}, sector #{sector_no}" if decoded_byte.nil?
+        decoded_byte^=checksum
+        if i<86 then
+          destination_offset=341-i
+        else
+          destination_offset=i-86
+        end
+        decoded_data[destination_offset]=decoded_byte
+        checksum=decoded_byte
+  #        puts "-- #{i} - #{checksum} #{sprintf '%-3x',destination_offset}"
+      end
+      
+      #raise "invalid checksum #{checksum}" unless  checksum==0
+      
+      0.upto(255) do |i|
+        decoded_data[i]<<=2
+
+        lower_2_bits=decoded_data[341-i%0x56]
+        case i/86
+          when 0 then
+            bit1=lower_2_bits&0x01
+            bit0=(lower_2_bits&0x02)>>1
+          when 1 then          
+            bit1=(lower_2_bits&0x04)>>2
+            bit0=(lower_2_bits&0x08)>>3
+          when 2 then
+            bit1=(lower_2_bits&0x010)>>4
+            bit0=(lower_2_bits&0x20)>>5        
+        end
+        printf "#{i} #{i/86} %08b #{bit0} #{bit1}\n",lower_2_bits if DEBUG
+        decoded_data[i]|=bit0
+        decoded_data[i]|=bit1<<1      
+      end
+      logical_sector_no=INTERLEAVES[sector_no]
+      puts "mapping physical #{sprintf '%02X',sector_no} to logical #{sprintf '%02X',logical_sector_no}" if DEBUG
+      dsk.set_sector(track_no,logical_sector_no,decoded_data[0..255])
+      puts dsk.dump_sector(track_no,logical_sector_no) if DEBUG
+    end
+#    raise "expected 16 sectors but found #{sector_count} in track #{track_no}" unless sector_count==16
+  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/PascalDisk.rb~

@@ -0,0 +1,120 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+# Disk image with Pascal File System
+#catalog  will be at block 2.
+#each entry consists of $1A bytes, which are:
+#VOLUME HEADER
+#	00..01 FIRST BLOCK (word)	
+#	02..03 LAST BLOCK+1 (word)
+#	04 	FILE TYPE (byte) =  untypedfile,xdskfile,codefile,textfile,infofile,datafile,graffile,fotofile,securdir
+#	05 	FILLER
+#	06	VOLUME NAME LENGTH (1 byte)
+#	07..0D	VOLUME NAME (17 bytes)
+#	0E..0F 	VOLUME SIZE (WORD)
+#	10 	NUMBER OF FILES (BYTE)
+#	11..1A	FILLER
+#
+#FILES
+#	00..01 	FIRST BLOCK (word)	
+#	02..03 	LAST BLOCK+1 (word)
+#	04 	FILE TYPE (byte) =  untypedfile,xdskfile,codefile,textfile,infofile,datafile,graffile,fotofile,securdir
+#	05 	STATUS (byte)
+#	06	FILENAME LENGTH (1 byte)
+#	07..16	FILENAME (15 bytes)
+#	17..18 	BYTES IN LAST BLOCK (word)
+#	19..1A	FILE ACCESS DATE 
+
+require 'PascalFile'
+class PascalDisk < DSK
+	attr_accessor :volume_name
+
+	def dump_catalog
+		s=""
+		files.each_value { |file|		
+			s<< "#{sprintf('% 6d',file.contents.length)}\t #{file.file_type}\t#{file.filename}\n"
+		}
+		s
+	end
+
+
+	def initialize(file_bytes,sector_order)    
+		super(file_bytes,sector_order)
+		self.read_catalog
+	end
+
+	def file_system
+		:pascal
+	end
+	
+	#reads the catalog, and populate the "files" array with files
+	def read_catalog
+        catalog=get_block(2)
+        #we've read the first block in the catalog, now read the rest
+        catalog_size=catalog[2]
+        3.upto(catalog_size-1) do |i|
+          catalog<<get_block(i)
+        end
+#	06	VOLUME NAME LENGTH (1 byte)
+#	07..0D	VOLUME NAME (17 bytes)
+#	0E..0F 	VOLUME SIZE (WORD)
+#	10 	NUMBER OF FILES (BYTE)
+        volume_name_length=catalog[6]
+        self.volume_name=catalog[7..6+volume_name_length]
+        files_in_volume=catalog[0x10]
+        #read in all the files
+        
+#	00..01 	FIRST BLOCK (word)	
+#	02..03 	LAST BLOCK+1 (word)
+#	04 	FILE TYPE (byte) =  untypedfile,xdskfile,codefile,textfile,infofile,datafile,graffile,fotofile,securdir
+#	05 	STATUS (byte)
+#	06	FILENAME LENGTH (1 byte)
+#	07..15	FILENAME (15 bytes)
+#	16..17 	BYTES IN LAST BLOCK (word)
+#	18.1A	FILE ACCESS DATE
+        1.upto(files_in_volume) do |file_no|
+          file_record=catalog[file_no*0x1a..(file_no*0x1a+0x19)]
+          first_block=file_record[0]+file_record[1]*0x100
+          first_block_in_next_file=file_record[2]+file_record[3]*0x100
+          last_block=first_block_in_next_file-1
+          file_type=file_record[4]
+          file_name_length=file_record[6]
+          file_name=file_record[7..6+file_name_length]
+          bytes_in_last_block=file_record[0x16]+file_record[0x17]*0x100
+          file_contents=""
+          first_block.upto(last_block) do |block_no|
+            this_block=get_block(block_no)
+            if block_no==last_block then
+              file_contents<<this_block[0..bytes_in_last_block-1]
+            else
+              file_contents<<this_block 
+            end
+          files[file_name]=PascalFile.new(file_name,file_contents,file_type)
+        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/PascalFile.rb~

@@ -0,0 +1,62 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+require 'DSKFile'
+
+#Pascal file
+class PascalFile < DSKFile
+	attr_accessor :file_type
+
+  PASCAL_FILE_TYPES=[:untyped,:xdsk,:code,:text,:info,:data,:graf,:foto,:securedir]
+
+	def initialize(filename,contents,file_type)
+		raise "filename too long - #{filename}" unless filename.length<=15
+		@filename=filename
+		@contents=contents
+		@file_type=PASCAL_FILE_TYPES[file_type]
+	end
+  
+	def to_s
+		s=""
+		@contents.each_byte{|b| s<<(b%0x80).chr.tr(0x0D.chr,"\n")}
+		s
+	end
+  
+	def file_extension
+		return "."+@file_type.downcase
+	end
+
+	def can_be_picture?
+		
+		file_type==:foto && HGR.can_be_hgr_screen?(@contents)
+	end
+
+	def to_png(pallete_mode=:amber)
+		HGR.buffer_to_png(@contents,pallete_mode)
+	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/ProDOSDisk.rb~

@@ -0,0 +1,197 @@
+$:.unshift(File.dirname(__FILE__)) unless
+	$:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+require 'ProDOSFile'
+# Disk image in ProDOS format
+# for now, assumes 'ProDOS order'
+class ProDOSDisk < DSK
+	attr_accessor :volume_name
+	
+	#what is the last block on this disk?
+	def last_block
+		(self.track_count*8)-1
+	end
+	def dump_catalog
+		s=""
+		files.keys.sort.each { |file_name|		
+			file=files[file_name]
+			s<< "#{sprintf('% 6d',file.contents.length)}\t #{file.file_type} : $#{sprintf '%X',file.aux_type}\t#{file_name}\n"
+		}
+		s
+	end
+
+	def initialize(file_bytes,sector_order)
+		super(file_bytes,sector_order)
+		self.read_catalog
+	end
+
+	def file_system
+		:prodos
+	end
+
+
+	#concatenate all the blocks in the volume directory
+	#Volume Directory format is: (from "Beneath Apple ProDOS pp 4-10 - 4-12)
+	# FOR VOLUMES
+	# $00	 	STORAGE_TYPE/NAME_LENGTH
+	# $01-$0F	FILE_NAME 
+	# $10		RESERVED
+	# $11-$12	RESERVED
+	# $13-$14	RESERVED
+	# $15-$17	RESERVED
+	# $18-$1B	CREATION
+	# $1C		VERSION
+	# $1D		MIN_VERSION
+	# $1E		ACCESS
+	# $1F		ENTRY_LENGTH
+	# $20		ENTRIES_PER_BLOCK
+	# $21-$22	FILE_COUNT
+	# $23-$24	BIT_MAP_POINTER
+	# $25-$26	TOTAL_BLOCKS
+	#
+	# FOR FILES
+	# $00	 	STORAGE_TYPE/NAME_LENGTH
+	# $01-$0F	FILE_NAME 
+	# $10		FILE_TYPE
+	# $11-$12	KEY_POINTER
+	# $13-$14	BLOCKS_USED
+	# $15-$17	EOF
+	# $18-$1B	CREATION
+	# $1C		VERSION
+	# $1D		MIN_VERSION
+	# $1E		ACCESS
+	# $1F-$20	AUX_TYPE
+	# $21-$24	LAST_MOD
+	# $25-$26	HEADER_POINTER
+
+	def dump_block(block_no)
+		s=hline
+		s<<sprintf("BLOCK %03d\n",block_no)
+		s<< "\t"
+		block_data=get_block(block_no)
+		(0..15).each {|x| s<<sprintf("%02X ",x) }
+		s<<"\n"
+		s<<hline
+		(0..31).each {|line_number|
+			 lhs=""
+			 rhs=""
+			 start_byte=line_number*16
+			 line=block_data[start_byte..start_byte+15]
+			 line.each_byte {|byte|
+				  lhs<< sprintf("%02X ", byte)
+				  rhs<< (byte%128).chr.sub(/[\x00-\x1f]/,'.')
+		 	}
+			s<<sprintf("%03X\t%s %s\n",start_byte,lhs,rhs)
+		}
+		s
+	end
+
+	def read_catalog(starting_block=2,dir_path="")
+		next_block_no=starting_block
+		while (next_block_no!=0)
+			block=get_block(next_block_no)
+			offset=4
+			while (offset<(0x200-0x27))
+				directory_entry=block[offset..offset+0x27]
+				storage_type=directory_entry[0]>>4
+				name_length=directory_entry[0]%0x10
+				name=directory_entry[1..name_length]
+				file_type=directory_entry[0x10]
+				key_pointer=directory_entry[0x11]+directory_entry[0x12]*0x100
+				blocks_used=directory_entry[0x13]+directory_entry[0x14]*0x100
+				file_length=directory_entry[0x15]+directory_entry[0x16]*0x100+directory_entry[0x17]*0x10000
+				aux_type=directory_entry[0x1f]+directory_entry[0x20]*0x100
+				case storage_type
+					when 0x00 then
+						#nop
+					when 0x01 then  #it's a seedling
+						file_contents=get_block(key_pointer)
+						files[name]=ProDOSFile.new(name,file_contents,file_type,aux_type)
+					when 0x02 then  #it's a sapling
+						block_list=[]
+						index_block=get_block(key_pointer)
+						0.upto((file_length/0x200)) do |i|
+							block_list<<index_block[i]+(index_block[i+0x100]*0x100)
+						end
+						file_contents=""
+						block_list.each do |next_block_no|
+							if next_block_no==0 then
+								file_contents+="\x00"*0x200
+							elsif next_block_no>=self.last_block then
+								STDERR<<"file #{name} attempted to read bad block # #{next_block_no}\n"
+								file_contents+="\x00"*0x200
+							else
+								file_contents+=get_block(next_block_no)
+							end
+						end
+						file_contents=file_contents[0..file_length-1]
+						files["#{dir_path}#{name}"]=ProDOSFile.new(name,file_contents,file_type,aux_type)						
+					when 0x03 then  #it's a tree
+						master_index_block=get_block(key_pointer)
+						block_list=[]
+						number_of_index_entries=1+(file_length/0x200)
+						number_of_index_blocks=1+(number_of_index_entries/0x100)
+						number_of_index_entries_in_last_block=number_of_index_entries-(number_of_index_blocks-1)*0x100
+						0.upto(number_of_index_blocks-1) do |i|
+							index_block_no=master_index_block[i]+master_index_block[i+0x100]*0x100
+							index_block=get_block(index_block_no)
+							if i==number_of_index_blocks-1 then 
+								entries_in_this_index_block=number_of_index_entries_in_last_block
+							else 
+								entries_in_this_index_block=256
+							end
+							0.upto(entries_in_this_index_block-1) do |j|
+								block_list<<index_block[j]+(index_block[j+0x100]*0x100)
+							end
+						end
+						file_contents=""
+						block_list.each do |next_block_no|
+							if next_block_no==0 then
+								file_contents+="\x00"*0x200
+							else
+								file_contents+=get_block(next_block_no)
+							end
+						end
+						file_contents=file_contents[0..file_length-1]
+						files["#{dir_path}#{name}"]=ProDOSFile.new(name,file_contents,file_type,aux_type)						
+					when 0x0D then 	#it's a subdirectory pointer
+						read_catalog(key_pointer,"#{dir_path}#{name}/")
+					when 0x0E then 	#it's a subdirectory header
+						#do nothing 
+					when 0x0F then 	#it's a volume						
+						@volume_name=name 
+					else 
+#						raise "unknown storage_type #{sprintf '%02X',storage_type}"
+						puts "skipping unknown storage_type #{sprintf '%02X',storage_type} for #{dir_path}#{name}"
+				end			
+				offset+=0x27
+			end
+			next_block_no=block[2]+block[3]*256
+		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.