Найти сумму и кол-во элементов равных и неравных константе k

#include p16f877.inc
R1 EQU h'20' ; R1 – символьное имя со значением 20h (адрес регистра).
R2 EQU h'21' ; R2 – символьное имя со значением 21h (адрес регистра).
R3 EQU h'22' ; R3 – символьное имя со значением 22h (адрес регистра).
R4 EQU h'23' ; R4 – символьное имя со значением 23h (адрес регистра).
K1 EQU h'24' ; K1 – символьное имя со значением 24h (адрес регистра).
SUM1 EQU h'25';
SUM2 EQU h'26';
COL1 EQU h'27';
COL2 EQU h'28';
RST   code  0x0 
      goto  Start
PGM   code
Start
CLRF STATUS ; Очистка регистра, выбор банка 0.
BSF STATUS, RP0 ; Выбор банка 1.
CLRF TRISC ; Конфигурировать все биты порта C как выход.
CLRF STATUS ; Выбор банк 0.
CLRF PORTC ; Записать в порт С нули (потушить световоды).
; Ввод данных.
MOVLW B'00110111' 
MOVWF R1
MOVLW B'00011001'
MOVWF R2 
MOVLW B'00001111'
MOVWF R3
MOVLW B'00101001'
MOVWF R4
MOVLW B'00101001'
MOVWF K1
SUBWF R1,0 ; Вычитание R1- K1(W). Результат пересылаем в W.
MOVWF PORTC ; Загрузить содержимое W в регистр PORTС.
BTFSS PORTC, C;
GOTO M1
BTFSS PORTC, Z;
GOTO M2
SUBWF R2,0 ; Вычитание R2 - K1(W). Результат пересылаем в W.
MOVWF PORTC ; Загрузить содержимое W в регистр PORTС.
BTFSS PORTC, C;
GOTO M1
BTFSS PORTC, Z;
GOTO M2
SUBWF R3,0 ; Вычитание R3 - K1(W). Результат пересылаем в W.
MOVWF PORTC ; Загрузить содержимое W в регистр PORTС.
BTFSS PORTC, C;
GOTO M1
BTFSS PORTC, Z;
GOTO M2
SUBWF R4,0 ; Вычитание R4 - K1(W). Результат пересылаем в W.
MOVWF PORTC ; Загрузить содержимое W в регистр PORTС.
BTFSS PORTC, C;
GOTO M1
BTFSS PORTC, Z;
GOTO M2
M1 BTFSS PORTC, C;
ADDWF SUM1,1;
INCF COL1,1;
MOVWF SUM1;
MOVWF COL1
GOTO $
M2 BTFSS PORTC, Z;
ADDWF SUM2,1;
INCF COL2,1;
MOVWF SUM1;
MOVWF COL1
GOTO $
END