Определение количества чисел в массиве на MCS-51 (ASM)

;Вычислить количество чисел в массиве {Xi} меньших Z (Xi=0...255, Z=0...255, i=10)
 
;-------------------------------------------------------------------------------
$MOD51
$TITLE(BYTE SIGNED MULTIPLY)
$PAGEWIDTH(132)
$DEBUG
$OBJECT
$NOPAGING
$NOPRINT
;************************************************************************
; переменные используемые в программе
;----------------------------------------------------------------------
Z       DATA    020h            ;адрас переменной
i       DATA    021h            ;длинна массива
mas     EQU 022h            ;адрес массива
N       EQU 000h            ;
;----------------------------------------------------------------------
; основная программа
;---------------------------------------------------------------------------------
    ORG 000h
        MOV SP,#060h        ;стек
;...............................
        MOV R0,#mas         ;адрес массива
        MOV R1,i            ;длинна массива
        MOV A,Z         ;счетчик
M1:     MOV A,@R0           ;Xi->A
        CLR C
        CJNE    A,Z,M2          ;если A<>Z продолжаем, иначе переход
        JMP M3
M2:     JNC M3          ;если А<Z то С=1
        INC N
M3:     INC R0          ;следующий элемент массива
        MOV A,R0
        CJNE    A,i,M1          ;если не равно продолжаем
;================================================================================
    END