$NOMOD51
NAME NOTOUCH922
PGM_MTP EQU 0FF00H

?PR?no_touch922?NOTOUCH922	SEGMENT CODE
	PUBLIC no_touch922

	RSEG ?PR?no_touch922?NOTOUCH922

no_touch922:

MOV 0A8H,#00H			; Disable Interrupts
MOV R0,#0FFH			; IAP authorization key.
MOV @R0,#96H
MOV A,#02                       ; IAP Misc. Writing.
MOV R5,#01			; Write status byte with 01h
MOV R7,#03                      ; Status byte modification.
lcall PGM_MTP                   ; CALL IAP Routine
RET
END