ПП стирания Flash памяти программ.

;-----------------------------------
; ПП стирания  памяти программ.           
;------------------ -----------------
Clr_TAB    bsf        EECON1,EEPGD ; Работа с Flash-памятью программ.
           bcf         EECON1,CFGS ; Обращение к Flash памяти программ
           bsf         EECON1,WREN ; Разрешение записи.
           bsf         EECON1,FREE ; Разрешение стирания.
           bcf          INTCON,GIE ; Запретить прерывания
           movlw               55h ; =
           movwf            EECON2 ; Обязательная
           movlw              0AAh ; процедура.
           movwf            EECON2 ; =         
           bsf           EECON1,WR ; Инициализация стирания
           nop                     ; Обязательная процедура
           bsf          INTCON,GIE ; Разрешить прерывания
           return                  ; Возврат из ПП.