__ショートBE_ver3.txt

操作方法
Aボタン：値をインクリメント
Bボタン：押し続けている間値をインクリメント
下ボタン：アドレスデクリメント
セレクトボタン：終わる

D985hはjp DE64でもjp DE82でもOK。


ぼ ダ ぞ が ん 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 
て ぢ ジ ざ の Q 


DE64から:
3e 0f 2f 26 de 50 2e af 32 3e 1c 50 87 32 3e 98
2f 50 32 26 da 2e 7f 50 af 28 09 7f 7f 50 af 28
df 7f 7f 50 11 e3 c3 d5 d1 50 d5 af 85 7f 7f 50
cd d1 de af 85 50 cd d6 de 2a 2b 50 cd d1 de 2a
2b 50 cd d6 de 7f 7f 50 cd 7f 7f 7f b3 50 cb 47
c4 0f df 50 cb 7f c4 06 df 50 af 83 0f cb 47 50
c4 0f df 0f 7f 50 cb 47 28 be d1 50 c9 0f 0f 0f
0f 50 06 0f a0 06 0a 50 b8 30 09 c6 48 50 c6 ae
c3 08 df 50 c6 2b c6 2b 7f 50 c3 08 df 7f 7f 50
7f 7f 7f 7f 7f 50 7f 7f 7f 7f 7f 50 7f 7f 7f 7f
7f 50 2b c9 06 c3 7f 50 12 1c c9 34 7f 50 c3 31
0b 2b c9 50
180 bytes.
30.0 pokes.

shortbe3.asm

DelayFrame = 0x0b31

[org(0xde64)]
first:
    ld   a, 0x0F
    cpl
    ld   h, (call_joypad + 3) >> 8
    ld   d, b
    ld   l, (call_joypad + 3) & 0xff
    ld  [hl-], a
    ld   a, 0x1C
    ld   d, b
    add a, a
    ld  [hl-], a
    ld   a, 0x98
    cpl
    ld   d, b
    ld  [hl-], a
    ld   h, 0xDA
    ld   l, 0x7F
    ld   d, b
    xor a
    jr z, start
    ld   a, a
    ld   a, a
    ld   d, b
# 必ずここを5行目にする
entrypoint:
    xor a
    jr z, first
    ld a, a
    ld a, a
    ld d, b
start:
    ld   de, 0xC3E3
    push de
mainloop:
    pop de
    ld d, b
    push de
    xor  a
    add  a, l
    ld a, a
    ld a, a
    ld d, b
    call print_hex_with_swap
    xor  a
    add  a, l
    ld   d, b
    call print_hex
    ld  a,[hl+]
    dec  hl
    ld   d, b
    call print_hex_with_swap
    ld  a,[hl+]
    dec  hl
    ld   d, b
    call print_hex
    ld a, a
    ld a, a
    ld d, b
call_joypad:
    call 0x7F7F # JoypadLowSensitivity
    db 0x7f, 0xb3
    ld   d, b
    bit  0, a
    call nz, process_a_button
    ld   d, b
    bit  7, a
    call nz, process_down_button
    ld   d, b
    xor a
    add a, e
    rrca
    bit 0, a
    ld d, b
    call nz, process_a_button
    rrca
    ld a, a
    ld   d, b
    bit 0, a
    jr z, mainloop
    pop de
    ld   d, b
    ret
    
print_hex_with_swap:
    rrca 
    rrca 
    rrca 
    rrca 
    ld   d, b
print_hex:
    ld   b, 0x0F
    and  b
    ld   b, 0x0A
    ld d, b
    cp   b
    jr   nc, print_hex_alphabet
    add  a, 0x48
    ld   d, b
    add  a, 0xAE
    jp print_hex_join
    ld   d, b
    
print_hex_alphabet:
    add  a, 0x2B
    add  a, 0x2B
    ld a, a
    ld   d, b
    jp   print_hex_join
    ld a, a
    ld a, a
    ld d, b
    ld a, a
    ld a, a
    ld a, a
    ld a, a
    ld a, a
    ld d, b
    ld a, a
    ld a, a
    ld a, a
    ld a, a
    ld a, a
    ld d, b
    ld a, a
    ld a, a
    ld a, a
    ld a, a
    ld a, a
    ld d, b
process_down_button:
    dec  hl
    ret
print_hex_join:
    ld   b, 0xC3
    ld a, a
    ld d, b # この位置で ld d, b が入ることが重要
    ld   [de],a
    inc  e
    ret
process_a_button:
    inc  [hl]
    ld a, a
    ld   d, b
    jp DelayFrame
process_down_button:
    dec  hl
    ret
    ld   d, b