Category Display Implementation

GetMoveCategoryIcon:
    call GetMoveType

    ld de, PhysicalIconGFX
    lb bc, PAL_BATTLE_OB_RED, 2
    and a
    jr z, .done
    ld de, SpecialIconGFX
    ld b, PAL_BATTLE_OB_GREEN
    cp 1
    jr z, .done
    ld de, StatusIconGFX
    ld b, PAL_BATTLE_OB_BLUE

.done
    push bc
    ld b, BANK(CategoryImages) ; c = 4
    ld hl, vTiles0
    call Request2bpp
    pop bc
    ld hl, wVirtualOAMSprite00
    ld de, .CategoryImagesOAMData
.loop
    ld a, [de]
    inc de
    ld [hli], a
    ld a, [de]
    inc de
    ld [hli], a
    dec c
    ld a, c
    ld [hli], a
    ld a, b
    ld [hli], a
    jr nz, .loop
    ret

.CategoryImagesOAMData
; positions are backwards since
; we load them in reverse order
    db $58, $44 ; y/x - right
    db $58, $3c ; y/x - left