.nolist
#include "ti83plus.inc"
#include "flashdrv.inc"
.list

FlashDrvCall            equ statVars

.org userMem-2
        .db 0BBh,06Dh
        call initFlashCall
        fcall(UnlockFlash)
        ld a,7Dh
        ld de,7FFFh
        ld b,0
        bcall(_WriteAByte) ;make self-test say "ROM FAIL" from now on
        ret

initFlashCall:
        ld hl,sFlashDrvName
        rst 20h
        bcall(_FindApp)
        ret c
        ld (uuMod1+1),a
        ld hl,MakeFlashCall
        ld de,FlashDrvCall
        ld bc,MakeFlashCallEnd-MakeFlashCall
        ldir
        ret
sFlashDrvName:
        .db AppObj,"FlashDrv",0
MakeFlashCall:
        push af
        in a,(6)
        ld (uuMod2-MakeFlashCall+FlashDrvCall+1),a
uuMod1: ld a,0
        out (6),a
        pop af
        call doFlashCall
        push af
uuMod2: ld a,0
        out (6),a
        pop af
        ret
MakeFlashCallEnd:

.end
end