[PIC16F837A] Заполнить РОН банка № 2 увеличив. нечетными двоично-десятичн. числами с N0=d`00`

INCLUDE <p16f877a.inc>
    __CONFIG _FOSC_HS & _WDTE_OFF & _PWRTE_OFF & _CP_OFF & _CPD_OFF & _BOREN_OFF
    ORG 0x00
    GOTO MAIN
MAIN
    BANKSEL TRISB
    CLRF TRISB ; RB как выход
    MOVLW 0x00 ; N0 = d`00`
    MOVWF N0
LOOP1
    INCF N0, F ; инкремент N0
    BTFSS STATUS, Z ; если N0 = 0xff, то выход из цикла
    GOTO LOOP1
    BANKSEL EEADR
    CLRF EEADR ; адрес EEPROM = 0x00
LOOP2
    MOVLW 0x00 ; i = 0
    MOVWF i
LOOP3
    BANKSEL PORTB ; вывод числа из РОН банка №2
    MOVF N0, W
    ANDLW B'00001111' ; оставляем только младшие 4 бита
    IORWF PORTB, F
    BANKSEL EEDATA ; считываем из EEPROM значение по адресу i
    CLRF EEDATA
    BSF STATUS, RP0
    BSF EECON1, RD
    BCF STATUS, RP0
    COMF EEDATA, F ; инвертируем прочитанное значение
    BANKSEL PORTA ; считываем число из РОН банка №0
    MOVF i, W
    ANDLW B'00001111' ; оставляем только младшие 4 бита
    MOVWF PORTA
    COMF PORTA, F ; инвертируем прочитанное значение
    XORWF EEDATA, F ; «исключающее ИЛИ» чисел из РОН банка №0 и EEPROM
    BANKSEL EEADR ; запись результата в EEPROM по адресу i
    MOVWF EEDATA
    BSF STATUS, RP0
    BSF EECON1, WR
    BCF STATUS, RP0
    INCF i, F ; инкремент i
    MOVLW 0x10 ; если i = 16, то выход из цикла
    SUBWF i, W
    BTFSS STATUS, Z
    GOTO LOOP3
    GOTO LOOP1 ; продолжаем с следующим значением N0
    N0 EQU 0x20 ; переменная для хранения значения N0
    i EQU 0x21 ; переменная для хранения счетчика i
END