Unlock Flash

#include "ti84pce.inc"

 .assume ADL=1
 .org userMem-2
 .db tExtTok,tAsm84CeCmp

 call _ClrScrnFull
 di ; unlock Flash
    ld  a, 0D1h
    ld  mb,a
    ld.sis  sp, 987Eh
 call.lis UnlockWrite & 0FFFFh
 ld de,0
 ld (currow), de
 ld hl, FlashUnlock
 call _PutS
 call _GetKey
 call.lis LockWrite & 0FFFFh
 ld a, 0D0h
    ld  mb,a
    ret

FlashUnlock:
    .db "Flash Unlocked !",0

.assume ADL=0

UnlockWrite:
    ld  a, 8Ch
    out0    (24h), a
    ld  c, 4
    in0 a, (6)
    or  c
    out0    (6), a
    out0    (28h), c
    ret.l

LockWrite:
    xor a, a
    out0    (28h), a
    in0 a, (6)
    res 2, a
    out0    (6), a
    ld  a, 88h
    out0    (24h), a
    ret.l

.assume ADL=1