z80_disassembler 0.1.5 → 0.2.4

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 05e63db7e5146f7f893ac8ac3cf7b6e6f6085382f067ff86d7c291c9685ecef0
-  data.tar.gz: 04407ab09433c4f7d19333c9979d0186afaad6814e57b18cd1f79b8fe005235d
+  metadata.gz: 5fe96f8335ed977825007f7846ed1b5b515ee9bab79fad0c67976504926c827e
+  data.tar.gz: c9341766fb32cf922aea077fa5968755b05e05ac03b45d277b8cc9de023f5b46
 SHA512:
-  metadata.gz: 108465c7f06352d29a0c8973fe27691e5b76324e1e9d33fda8597ba794bcf994bcedb55f47047b2d659c4dea4f28dbf43ae83c61c279d185e74e355dfc59d541
-  data.tar.gz: d0e1ecd67efc481410f4c75b695ea143b9394438883b52c7a26b65a61f17b46caff12b58fc8a869fdc349c8ac0d22101aba3be2e041641ba69b2258c70732a16
+  metadata.gz: 4fabf9e9a350e8ddedbc85acb8c8f738fd471e347591107f81a169c14c5d3dbca0f779f7706294ec6a3fde06895d6d5a429b6c6c48c8f9e5e84ba2de29097539
+  data.tar.gz: cc8e487897234f43ddc6962d1ce979704b9295a7f99551d592db7413acb5d985ccf0d394952b26d0e08e84caafb91e31a96b1a1abe94f48a154b2cc3332e9010

data/Gemfile.lock

@@ -1,7 +1,7 @@
 PATH
   remote: .
   specs:
-    z80_disassembler (0.1.5)
+    z80_disassembler (0.2.0)
 
 GEM
   remote: https://rubygems.org/

data/README.md

@@ -27,10 +27,10 @@ Or install it yourself as:
 
 - example: parse.C >> parse.C.txt and compare with parse.txt
 ```ruby
-Z80Disassembler::Disassembler.new(params[:file], 32768).start
+z = Z80Disassembler::Disassembler.new(params[:file], 32768)
+z.start # return [ [25114, "#621A", "LD IX,#6300", "DD 21 00 63", " ! c"], [...], ... ]
+z.text # return "            LD IX,link_1    ; #621A / 25114 ; DD 21 00 63    ;  ! c ;\n"
 ```
-return hash { 32768=>["#8000", "PUSH IY", "fd e5"], 32770=>[...], ... }
-
 ## Development
 
 After checking out the repo, run `bin/setup` to install dependencies. Then, run `rake test` to run the tests. You can also run `bin/console` for an interactive prompt that will allow you to experiment.

data/lib/z80_disassembler.rb

@@ -6,6 +6,8 @@ module Z80Disassembler
   class Error < StandardError; end
 
   class Disassembler
+    attr_reader :org
+
     #             0       1       2       3       4       5       6       7
     T_R   = [    'B',    'C',    'D',    'E',    'H',    'L', '(HL)',    'A'].freeze
     T_CC  = [   'NZ',    'Z',   'NC',    'C',   'PO',   'PE',    'P',    'M'].freeze
@@ -14,52 +16,138 @@ module Z80Disassembler
     T_IM  = [    '0',  '0/1',    '1',    '2',    '0',  '0/1',    '1',    '2'].freeze
     T_RP  = [   'BC',   'DE',   'HL',   'SP'].freeze
     T_RP2 = [   'BC',   'DE',   'HL',   'AF'].freeze
+    ASCII = [
+      ' ', '!', '"', '#', '$', '%', '&', "'", '(', ')', '*', '+', ',', '-', '.', '/',
+      '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', ':', ';', '<', '=', '>', '?',
+      '@', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
+      'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', '[', '\\',']', '^', '_',
+      '`', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
+      'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '{', '|', '}', '~'
+    ].freeze
 
-    def initialize(file_name, addr = 32_768)
-      @file_name = file_name; @addr = addr.to_i
+    def initialize(file, org = 32_768)
+      @file = file; @org = org.to_i
+      if file.original_filename[-3..-1] == '.$C'
+        File.open(@file) do |f|
+          z = f.read(17)
+          @file_name   = "#{z[0..7]}.#{z[8]}"
+          @org         = bytes_to_int(z[ 9..10])
+          @file_size   = bytes_to_int(z[11..12])
+          @sectors     = bytes_to_int(z[13..14])
+          checksum1    = bytes_to_int(z[15..16])
+          checksum2    = (z[0..14].sum * 257 + 105).to_s(16)[-4..-1].hex
+          @code        = f.read(@file_size).bytes if checksum1 == checksum2
+        end
+      end
+      @code ||= File.open(@file).read.bytes
+      @file_size ||= @file.size
       @x = 0; @y = 0; @z = 0; @p = 0; @q = 0; @xx = nil
-      @lambda = nil; @prefix = nil; @prev = nil
-      @bytes = []; @ascii = []; @result = {}
+      @lambda = nil; @prefix = nil; @prev = nil; @result = []
     end
 
     def start
-      File.open(@file_name).each_byte do |byte|
+      addr = @org
+      bytes = []; ascii = []
+      @code.each do |byte|
         load_vars(byte)
-        str = case @prefix
-              when 'cb' then @prefix = nil; cb_prefix
-              when 'ed' then @prefix = nil; ed_prefix
-              when 'dd' then @xx = 'IX'; xx_prefix(byte)
-              when 'fd' then @xx = 'IY'; xx_prefix(byte)
-              when 'xx' then temp = @temp; @temp = nil; displacement(byte, temp)
-              when 2    then @prefix -= 1; @temp = byte.to_s(16).rjust(2, '0').upcase; nil
-              when 1
-                resp = @lambda.call(@arg, byte.to_s(16).rjust(2, '0').upcase)
-                @prefix = nil; temp = @temp; @temp = nil
-                if temp && resp.include?(')')
-                  resp = @xx ? displacement(temp.hex, resp) : resp.sub(')', "#{temp})").sub('(', '(#')
-                elsif temp
-                  resp += temp
-                end
-                resp = hl_to_xx(resp, @xx) unless @xx.nil?
-                @xx = nil
-                resp
-              else command
-              end
+        str = command_from_byte(byte)
         @prev = byte.to_s(16)
-        @ascii << ((32..126).include?(byte) ? ascii[byte - 32] : '.')
-        @bytes << @prev.rjust(2, '0')
+        ascii << ((32..126).include?(byte) ? ASCII[byte - 32] : ' ')
+        bytes << @prev.rjust(2, '0').upcase
         next unless str
 
-        @result[@addr] = ["##{@addr.to_s(16)}".upcase, str, @bytes.join(' '), @ascii]
-        @addr += @bytes.size
-        @bytes = []
-        @ascii = []
+        @result << [addr, "##{addr.to_s(16)}".upcase, str, bytes.join(' '), ascii.join]
+        addr += bytes.size
+        bytes = []
+        ascii = []
       end
       @result
     end
 
+    def text
+      hash_links = {}
+      del_links = []
+      link_num = 0
+      int_addrs = @org..(@org + @file_size)
+      @result.select { |z| z[2] =~ /#[0-F]{4}/ && int_addrs.include?(z[2].split('#').last[0..3].hex) }.each do |x|
+        z = "##{x[2].split('#').last[0..3]}"
+        hash_links[z] = "link_#{link_num += 1}" unless hash_links[z]
+      end
+      @result.select { |z| z[2] =~ /\$/ }.each do |x|
+        z = "##{ (x[0] + x[2].split('$').last.to_i).to_s(16).upcase }"
+        hash_links[z] = "link_#{link_num += 1}" unless hash_links[z]
+      end
+      code = @result.map do |addr, addr16, str, bytes, ascii|
+        del_links << hash_links[addr16] if hash_links[addr16]
+        link = (hash_links[addr16] ? (hash_links[addr16] + ':') : '').ljust(16, ' ')
+        substr, adr = if str.include?('$')
+                        ["$#{str.split('$').last}", "##{(addr + str.split('$').last.to_i).to_s(16).upcase}"]
+                      else
+                        adr = "##{str.split('#').last[0..3]}"
+                        [adr, adr]
+                      end
+        string = hash_links.keys.include?(adr) ? str.sub(substr, hash_links[adr]) : str
+
+        "#{link} #{string.ljust(16, ' ')}; #{addr16.ljust(5, ' ')} / #{addr.to_s.ljust(5, ' ')} ; #{bytes.ljust(14, ' ')} ; #{ascii.ljust(4, ' ')} ;"
+      end.join("\n")
+
+      header = [
+        ";--- #{Date.today} --- https://rmda.su ",
+        ';    _______  _/| __ ______    ____ ',
+        ';   /  __   //  |/  \\\\   _  \ /    \ ',
+        ';  /   _/ _//        \\\\  \\\\  \\\\  \  \ ',
+        ';  \___\   \\\\___\/___//______//__/\__\ ',
+        ';       \__/ ',
+        ";--- size: #{@file_size} --- filename: #{@file_name} "
+      ]
+      [
+        *header,
+        '                 device zxspectrum48',
+        '                 ORG #' + @org.to_s(16),
+        hash_links.map { |key, val| "#{val.ljust(16, ' ')} equ #{key}" unless del_links.include?(val) }.compact.join("\n"),
+        'begin:',
+        code,
+        'end:',
+        '        savesna "disasm.sna", begin',
+        '        savebin "disasm.C", begin, end - begin',
+        ''
+      ].join("\n")
+    end
+
     private
 
+    def bytes_to_int(array)
+      array.bytes.reverse.map { |x| x.to_s(16).rjust(2, "0") }.join.hex
+    end
+
+    def command_from_byte(byte)
+      case @prefix
+      when 'cb' then @prefix = nil; cb_prefix
+      when 'ed' then @prefix = nil; ed_prefix
+      when 'dd' then @xx = 'IX'; xx_prefix(byte)
+      when 'fd' then @xx = 'IY'; xx_prefix(byte)
+      when 'xx' then temp = @temp; @temp = nil; displacement(byte, temp)
+      when 2    then @prefix -= 1; @temp = byte.to_s(16).rjust(2, '0').upcase; nil
+      when 1
+        resp = @lambda.call(@arg, byte.to_s(16).rjust(2, '0').upcase)
+        @prefix = nil; temp = @temp; @temp = nil
+        if temp && resp.include?(')')
+          resp = @xx ? displacement(temp.hex, resp) : resp.sub(')', "#{temp})").sub('(', '(#')
+        elsif temp
+          resp += temp
+        end
+        resp = hl_to_xx(resp, @xx) unless @xx.nil?
+        @xx = nil
+        if resp.include?('JR') || resp.include?('DJNZ')
+          z = resp.split('#')
+          z[1] = z[1].hex < 127 ? "$+#{z[1].hex + 2}" : "$-#{255 - z[1].hex - 1}"
+          resp = z.join
+        end
+        resp
+      else command
+      end
+    end
+
     def hl_to_xx(temp, reg)
       if temp.include?('HL')
         temp.sub('HL', reg)
@@ -100,8 +188,8 @@ module Z80Disassembler
           case @y
           when 0 then 'NOP'
           when 1 then 'EX AF, AF\''
-          when 2 then calc_bytes(->(a, b){ "DJNZ ##{b}" },    nil,          1)
-          when 3 then calc_bytes(->(a, b){ "JR ##{b}" },      nil,          1)
+          when 2 then calc_bytes(->(a, b){ "DJNZ ##{b}"    }, nil,          1)
+          when 3 then calc_bytes(->(a, b){ "JR ##{b}"      }, nil,          1)
           else        calc_bytes(->(a, b){ "JR #{a},##{b}" }, T_CC[@y - 4], 1)
           end
         when 1 then @q ? "ADD HL,#{T_RP[@p]}" : calc_bytes(->(a, b){ "LD #{a},##{b}" }, T_RP[@p], 2)
@@ -166,7 +254,7 @@ module Z80Disassembler
       elsif ['dd', 'fd'].include?(@prev) && @temp
         temp = @temp; @temp = nil; @prefix = nil; xx = @xx; @xx = nil
         hl_to_xx(temp, xx)
-      elsif @lambda && !@arg.include?('HL')
+      elsif @lambda && !@arg&.include?('HL')
         @prefix = 1; @temp
       else
         @prefix = 2; @temp
@@ -196,15 +284,4 @@ module Z80Disassembler
       end
     end
   end
-
-  def ascii
-    [
-      ' ', '!', '"', '#', '$', '%', '&', "'", '(', ')', '*', '+', ',', '-', '.', '/',
-      '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', ':', ';', '<', '=', '>', '?',
-      '@', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
-      'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', '[', '\\',']', '^', '_',
-      '`', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
-      'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '{', '|', '}', '~'
-    ]
-  end
 end

data/lib/z80_disassembler/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module Z80Disassembler
-  VERSION = '0.1.5'
+  VERSION = '0.2.4'
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: z80_disassembler
 version: !ruby/object:Gem::Version
-  version: 0.1.5
+  version: 0.2.4
 platform: ruby
 authors:
 - dvitvitskiy
 autorequire:
 bindir: exe
 cert_chain: []
-date: 2021-06-03 00:00:00.000000000 Z
+date: 2021-06-11 00:00:00.000000000 Z
 dependencies: []
 description:
 email: