hello.z80

#include    "ti83plus.inc"
#define     progStart   $BAB0

;program vars
#define     wCF91           $cf91   ;used for lots o' things
#define     OldRod          $4c     ;Old Rod Item Index
#define     cOldRodPoke     $bb20   ;Randomized Old rod Poke
#define     wCurEnemyLVL    $d127
#define     wCurOpponent    $d059   ;In a wild battle is species of poke

#define     wMoveMissed     $d05f   ;If nz before battle starts,
                                    ;will display "hooked mon"


.org        progStart

:OldRodCheck
LD A , ($cf91)
jr nz,NotOld
ld a,(cOldRodPoke)
ld c a
ld b,05     ;Lv5 pkmn
jr cRodResponse

:NotOld



:cRodResponse

ld a,b
ld (wCurEnemyLVL),a
ld a,c
ld (wCurOpponent),a
ld a,02
ld (wMoveMissed),a
jp end

:end
ret