ROMF:610F 21 22 D0         ld hl,d022		;D022: level
ROMF:6112 7E               ld a,(hl)
ROMF:6113 47               ld b,a		;level equal to damage of...
ROMF:6114 FA D2 CF         ld a,(cfd2)		;check move #
ROMF:6117 FE 45            cp a,45		;seismic toss?
ROMF:6119 28 20            jr z,613b(storeDamage)
ROMF:611B FE 65            cp a,65		;nightshade?
ROMF:611D 28 1C            jr z,613b(storeDamage)
ROMF:611F 06 14            ld b,14		;$14 = 20 damage for...
ROMF:6121 FE 31            cp a,31		;sonicboom
ROMF:6123 28 16            jr z,613b(storeDamage)
ROMF:6125 06 28            ld b,28		;$28 = 40 damage for...
ROMF:6127 FE 52            cp a,52		;dragonrage
ROMF:6129 28 10            jr z,613b(storeDamage)
ROMF:612B 7E               ld a,(hl)
ROMF:612C 47               ld b,a
ROMF:612D CB 3F            slr a
ROMF:612F 80               add b
ROMF:6130 47               ld b,a
ROMF:6131 CD 9B 6E         call 6e9b
ROMF:6134 A7               and a
ROMF:6135 28 FA            jr z,6131
ROMF:6137 B8               cp b
ROMF:6138 30 F7            jr nc,6131
ROMF:613A 47               ld b,a
.storeDamage
ROMF:613B 21 D7 D0         ld hl,d0d7		;D0D7: damage to inflict
ROMF:613E AF               xor a
ROMF:613F 22               ldi (hl),a		;high byte always cleared
ROMF:6140 78               ld a,b
ROMF:6141 77               ld (hl),a		;low byte damage to inflict stored in B
.OHKOentry