ROMTADDR

#include "ti83asm.inc"
.org $9327

Main:
  ld hl,$3FFF
  ld bc,$0000
  ld de,$0000
FindStart:
  dec hl
  dec hl
  ld d,(hl)
  inc hl
  ld e,(hl)
  push hl
  ld hl,$E3C9
  call _cphlde
  pop hl
  jr nz,FindStart
  inc hl ; because we find $C9, not $CD
  push hl
  call _CLRLCDFULL
  call _CLRTXTSHD
  pop hl
  ld de,$0000
  ld b,h
  ld c,l
  call DisplayHL
  push hl
  ld hl,$0500
  ld (CURROW),hl
  ld hl,OffsetText
  call _puts
  pop hl
StartFindCallCount:
  ld h,b
  ld l,c
  ld bc,$FFFF
CountEntries:
  inc bc
  ld a,(hl)
  cp $CD
  inc hl
  inc hl
  inc hl
  inc hl
  inc hl
  inc hl
  jr z,CountEntries
  ld h,b
  ld l,c
  ld de,$0001
  call DisplayHL
  ld hl,$0601
  ld (CURROW),hl
  ld hl,EntriesText
  call _puts
  ld hl,$0002
  ld (CURROW),hl
  ret

;Display HL as decimal, position in DE
DisplayHL:
  push hl
  ex de,hl
  ld (CURROW),hl
  ex de,hl
  call _dispHL
  pop hl
  ret

OffsetText:
  .db "d Offset",0

EntriesText:
  .db "entries",0
.end