#include "ti84pce.inc"

.db tExtTok, tAsm84CECmp
.org UserMem

start:
	di
	ld a, 0D1h
	ld mb, a
	call.lis fUnlockFlash - 0D10000h
	ld hl, (_ParseOn + 1)
	ld de, 66
	add hl, de
	ld hl, (hl)
	ld de, 6
	add hl, de
	ld hl, (hl)
	ld de, 106
	add hl, de
	push hl
		ld h, d
		ld l, d
		ld de, vRAM
		ld bc, $FFFF
		ldir
	pop hl
	push hl
	pop de
	ld d, b
	ld e, b													; DE = 0B0000
	sbc hl, de												; HL = 0BXXXX - 0B0000 = 00XXXX
	ld bc, vRAM
	add hl, bc
	ld bc, 02BB57Ch
	ld (hl), bc
	call _SetAToDEU
	push de
		call fMemorySafeErase
	pop de
	ld hl, vRAM
	ld bc, $FFFF
	call _WriteFlash
	call.lis fLockFlash - 0D10000h
	ld a, 0D0h
	ld mb, a
	ret

.assume ADL=0
fUnlockFlash:
	ld a, 08Ch
	out0 (024h), a
	ld c, 4
	in0 a, (6)
	or c
	out0 (6), a
	out0 (028h), c
	ret.l
fLockFlash:
	xor	a, a
	out0 (028h), a
	in0 a, (6)
	res 2, a
	out0 (6), a
	ld a, 088h
	out0(024h), a
	ret.l
.assume ADL=1

fMemorySafeErase:
	ld	bc,$0000F8
	push	bc
	jp	_EraseFlashSector