isEven function in PokémonYellow

EntryPoint:: ;DA7F
    11 AD DE    ld de, wResult
    06 00       ld b, $0
    26 DA       ld h, $DA
    FA 1E D3    ld a, ($1 + wBagItems) ;item 1 quantity
    E6 01       and $1
    28 06       jr z, .even
    ;11 AD DE 06 00 26 DA FA 1E D3 E6 01 28 06

    ;DA8D
    2E A0       ld l, $A0 ;HL should point to OddTxt now
    0E 04       ld c, $4
    18 04       jr .done
    ;2E A0 0E 04 18 04

.even ;DA93
    2E A4       ld l, $A4  ;HL should point to EvenTxt now
    0E 05       ld c, $5
    ;2E A4 0E 05

.done ;DA97
    CD B1 00    call CopyData
    21 A9 DA    ld hl, FullText
    C3 36 3C    jp PrintText
    ;CD B1 00 21 A9 DA C3 36 3C


OddTxt:: ;DAA0
    AE A3 A3 50     db "odd@"
    ;AE A3 A3 50
EvenTxt:: ;DAA4
    A4 B5 A4 AD 50  db "even@"
    ;A4 B5 A4 AD 50
FullText:: ;DAA9
    00          text "The number is" ;B3 A7 A4 7F AD B4 AC A1 A4 B1 7F A8 B2
    4F          line "@"
    01 AD DE    TX_RAM wResult
    00          text
    58          prompt
    00          db $0
    ;00 B3 A7 A4 7F AD B4 AC A1 A4 B1 7F A8 B2 4F 50 01 AD DE 00 58 00
wResult:: ;DEAD
    ds 5

;11 AD DE 06 00 26 DA FA 1E D3 E6 01 28 06 2E A0 0E 04 18 04 2E A4 0E 05 CD B1 00 21 A9 DA C3 36 3C AE A3 A3 50 A4 B5 A4 AD 50 00 B3 A7 A4 7F AD B4 AC A1 A4 B1 7F A8 B2 4F 50 01 AD DE 00 58 00
;I'm writing this from my university's PC, where I have no gbz80 compiler and I can't install them. So, yeah, this is compiled by hand :(
;I did this for memz. Shoutouts to Programmer NULLposting.