#include "ti-85.h"

.org 0
.db "Scorpion", 0

playerData	 EQU TEXT_MEM
thisAddr EQU TEXT_MEM+2

  ld hl,(PROGRAM_ADDR) 
  ld (thisAddr),hl
  ex de,hl
  ld hl, scorpData
  add hl,de
  ld (playerData), hl

  ld hl,Find 
  add hl,de
  rst 20h
  rst 10h
  jr nc, Next
  ret
Next:
  push de
  ld hl,Back
  ld de,(PROGRAM_ADDR)
  add hl,de
  pop de
  push hl
  ld h,d
  ld l,e
  ld de,5
  add hl,de
  ld (PROGRAM_ADDR),hl
Loop:
  ld a,(hl)
  or a
  jr z,Loop1
  inc hl
  jr Loop
Loop1:
  inc hl
  jp (hl)

Back:
ret

; program name
Find:
  .db 0x0C, 6, "ZFight"

; player bitmaps
#include "scorpPlayer"

.end