ld a, 2 ; loop initial value
ld hl, $DE06 ; address one before pc pkmn 1 name,
ld b, (hl) ; $d327
inc hl
ld c, (hl)
inc c
inc hl
dec c
push bc
dec a
jp nz, $d327 ; loop until a=0
inc d ;; throwaway
inc hl
dec e ;; throwaway
ld a, (hl)
inc b ;; throwaway
pop bc
pop de
ret