block earse
Input parameters¡G
R1 = 08H
DPH,DPL.7 = memory block address
DPL.6~DPL.0 = 00H
Return parameter(s):
ACC = 00 = pass ACC = !00 = fail

Examples¡Gearse a block at 8000h (128 byte/block)
MOV R1,#08H
MOV DPTR,#8000H
ANL FCF,#0FCH ;cls "BSEL"
LCALL 1FF0H
ORL FCF,#01H ;



;----------------------------
Erase_Page:
PUSH ACC
PUSH DPH
PUSH DPL

MOV R1,#08H
MOV DPTR,#8000H
ANL FCF,#0FCH ;cls "BSEL"
LCALL 1FF0H
ORL FCF,#01H ;return user program

POP DPL
POP DPH
POP ACC
RET


Note: your program must locate up 2000h.

examples :
org 0
ajmp main

main:
org 100h
;init
LCALL IAP_PROGRAM
;...
SJMP $

;-------------------------
ORG 2000H ;------------NOTE!!!!!!
IAP_PROGRAM:
.......