_output.txt

が ん ぜ ョ 空 Q 
ぼ ダ ぞ づ 空 Q 
ぼ ボ ク づ 空 Q 
ぼ ノ ぞ づ 空 Q 
が ん ぜ は 空 Q 
ぼ ケ ぞ づ 空 Q 
が れ ぜ 空 ョ Q 
ヅ ー て カ 空 Q 
へ る ん ョ カ Q 
へ ん ん ボ ご Q 
ざ へ る ん ご Q 
ざ へ ん ん 空 Q 
へ 空 空 空 う Q 
ひ ぺ と ギ っ Q 
ひ 空 と ゲ っ Q 
ダ ひ ぺ ぐ ジ Q 
ご に ヂ ざ 空 Q 
空 て よ ん ダ Q 
ひ ぺ と ザ っ Q 
て ス ん ダ ダ Q 
ダ ダ ギ ダ メ Q 
ギ ザ く だ ザ Q 
に ぽ に ュ ぺ Q 
ョ ぐ ダ に ざ Q 
に ざ ぺ 空 空 Q 
空 空 空 空 空 Q 
ョ ア て ゼ っ Q 
ど の ざ の む Q 
の ョ ア ギ て Q 
デ ボ の 
26 de 2e af 7f 50 3e 0f 2f 32 7f 50 3e 1c 87 32
7f 50 3e 98 2f 32 7f 50 26 de 2e ca 7f 50 3e 88
2f 32 7f 50 26 da 2e 7f af 50 11 e3 c3 85 7f 50
cd d9 de af 85 50 cd de de 1c 2a 50 2b cd d9 de
2a 50 2b cd de de 7f 50 cd 7f 7f 7f b3 50 cb 47
c4 06 df 50 cb 7f c4 08 df 50 0f cb 47 28 0b 50
2a c6 10 2b 7f 50 7f c3 d6 de 0f 50 cb 47 c4 0a
df 50 c3 8c de 0f 0f 50 0f 0f 06 0f a0 50 06 0a
b8 30 0a 50 c6 48 c6 ae 47 50 af 28 0f c6 2b 50
c6 2b 47 7f 7f 50 7f 7f 7f 7f 7f 50 af 80 c3 0d
df 50 34 c9 2b c9 d1 50 c9 af 80 06 c3 50 12 1c
c9
177 bytes
29.5 pokes.

_shortbinaryeditor.asm

[org(0xde64)]
start:
    ld h, 0xde # call_joypad
    ld l, 0xaf
    ld a, 0x0f
    cpl
    ld [hl-], a
    ld a, 0x1c
    add a, a
    ld [hl-], a
    ld a, 0x98
    cpl
    ld [hl-], a
    ld h, 0xde # ld_hl_a
    ld l, 0xca
    ld a, 0x88
    cpl
    ld [hl-], a
    ld h, 0xda
    ld l, 0x7f
mainloop:
    xor a
    ld de, 0xc3e3
    add a, l
    call print_hex_with_swap
    xor a
    add a, l
    call print_hex
    inc e
    ld a, [hl+]
    dec hl
    call print_hex_with_swap
    ld a, [hl+]
    dec hl
    call print_hex
    ld a, a
call_joypad:
    call 0x7f7f
    db 0x7f, 0xb3
    bit 0, a
    call nz, process_a_button
    bit 7, a
    call nz, process_down_button
    rrca
    bit 0, a
    jr z, skip_processing_b_button
    ld a, [hl+]
    add a, 0x10
    dec hl
    ld a, a
ld_hl_a:
    db 0x7f
    jp mainloop_end
skip_processing_b_button:
    rrca
    bit 0, a
    call nz, process_start_button
mainloop_end:
    jp mainloop
print_hex_with_swap:
    rrca
    rrca
    rrca
    rrca
print_hex:
    ld b, 0x0f
    and b
    ld b, 0xa
    cp b
    jr nc, print_hex_alphabet
    add a, 0x48
    add a, 0xae
    ld b, a
    xor a
    jr z, print_hex_join
print_hex_alphabet:
    add a, 0x2b
    add a, 0x2b
    ld b, a
    ld a, a
    ld a, a
    ld a, a
    ld a, a
    ld a, a
    ld a, a
    ld a, a
print_hex_join:
    xor a
    add a, b
    jp print_hex_end
process_a_button:
    inc [hl]
    ret
process_down_button:
    dec hl
    ret
process_start_button:
    pop de
    ret
print_hex_end:
    xor a
    add a, b
    ld b, 0xc3
    # ここでld d, bが挟まることが必要
    ld [de], a
    inc e
    ret

insert-oem.rb

require "csv"
Insn = Struct.new(:opcodes, :next, :jump, :index)

chars = CSV.read("pokemoncode.csv").map{|x| x[2] }
chars[0x7f] = "空"
chars[0x50] = "Q"

numbytes = {
    0x06 => 2,
    0x08 => 3,
    0x0a => 2,
    0x0e => 2,
    0x11 => 3,
    0x26 => 2,  
    0x28 => 2, 
    0x2e => 2, 
    0x30 => 2,
    0x31 => 3,
    0x3e => 2,
    0xc2 => 3,
    0xc3 => 3,
    0xc4 => 3,
    0xc6 => 2,
    0xca => 3,
    0xcb => 2,
    0xcc => 3,
    0xcd => 3,
    0xce => 2,
    0xd2 => 3,
    0xd4 => 3,
    0xd6 => 2,
    0xda => 3,
    0xdc => 3,
    0xde => 2, 
    0xe0 => 2
}
numbytes.default = 1
offset = ARGV[1].to_i(16)
bin = File.binread(ARGV[0]).bytes.to_a[offset..-1]


# 連結リストを作る
first_insn = prev_insn = Insn.new([], nil, nil, nil)
insn_hash = []
i = 0
while i < bin.size
    op = bin[i]
    len = numbytes[op]
    ops = bin[i, len]
    insn = Insn.new(ops, nil, nil, nil)
    insn_hash[offset + i] = insn
    i += len
    prev_insn.next = insn
    prev_insn = insn
end

# ジャンプ先を設定
insn = first_insn.next
index = 0
while insn != nil
    if [0xc4, 0xcc, 0xcd, 0xd4, 0xdc, 0xc2, 0xc3, 0xca, 0xd2, 0xda].include?(insn.opcodes[0])
        insn.jump = insn_hash[insn.opcodes[2] << 8 | insn.opcodes[1]]
    end
    if [0x28, 0x30].include?(insn.opcodes[0])
        off = insn.opcodes[1]
        off -= 0x100 if off >= 0x80
        insn.jump = insn_hash[offset + index + 2 + off]
    end
    index += insn.opcodes.size
    insn = insn.next
end

# 6バイトに1回0x50を挟む
prev_insn = first_insn
insn = first_insn.next
index = 0
outindex = 0
while insn != nil
    len = insn.opcodes.size
    if outindex % 6 + len >= 6
        (5 - outindex % 6).times {
            new_insn = Insn.new([0x7f], insn, nil)
            prev_insn.next = new_insn
            prev_insn = new_insn
            outindex += 1
        }
        new_insn = Insn.new([0x50], insn, nil)
        prev_insn.next = new_insn
        prev_insn = new_insn
        outindex += 1
    end
    index += len
    outindex += len
    insn, prev_insn = insn.next, insn
end

# indexを設定
insn = first_insn.next
index = 0
while insn != nil
    len = insn.opcodes.size
    insn.index = index
    index += len
    insn = insn.next
end

# ジャンプ先の情報をopcodesに反映
insn = first_insn.next
index = 0
while insn != nil
    len = insn.opcodes.size
    if [0xc4, 0xcc, 0xcd, 0xd4, 0xdc, 0xc2, 0xc3, 0xca, 0xd2, 0xda].include?(insn.opcodes[0]) and insn.jump
        insn.opcodes[1] = (offset + insn.jump.index) & 0xff
        insn.opcodes[2] = (offset + insn.jump.index) >> 8
    end
    if [0x28, 0x30].include?(insn.opcodes[0])
        off = insn.jump.index - index - 2
        off += 0x100 if off < 0
        if !(0 <= off && off < 0x100)
            raise "offset error"
        end
        insn.opcodes[1] = off
    end
    index += insn.opcodes.length
    insn = insn.next
end

# 新しいバイナリを作る
newbin = []
insn = first_insn.next
while insn != nil
    len = insn.opcodes.size
    len.times {|i| newbin << insn.opcodes[i] }
    insn = insn.next
end

File.binwrite(ARGV[0] + ".patched", newbin.map{|x| x.chr }.join(""))

newbin.each_with_index do |insn, i|
    print chars[insn] || ("<<%02x>>" % insn)
    print " "
    puts if insn == 0x50
end
puts
puts newbin.map{|x| "%02x" % x }.each_slice(16).map {|x| x.join(" ") }.join("\n")
puts "#{newbin.length} bytes"
puts "#{newbin.length / 6.0} pokes."

pokemoncode.csv