Начало Edsim51 (intel 8051) Кол-во четных в массиве, меньше 150

stseg   segment para    stack
        dw      16      dup(?)
stseg   ends
dseg    segment para
x       dw      5,6,5,1,1,2,3,4
y       dw      ?

ORG 47h
MAS: DB 18, 94, 11, 155, 200, 128, 3, 190, 110, 167

.....какой-то код.....
JMP BYPASS
ORG 47h
MAS: DB 18, 94, 11, 155, 200, 128, 3, 190, 110, 167
BYPASS:
......выполняем код дальше.....

MOV DPTR,#MAS
MOV R0,#0
M:MOV A,R0
  MOVC A,@A+DPTR
  .....что-то делаем с A, производим проверки, и т.д......
  INC R0
  CJNE R0,#10,M   ;  все 10 элементов просканировали?

    PUBLIC  Array_Min
 
    RSEG    CODE
 
Array:      DB  18, 94, 11, 155, 200, 128, 3, 190, 110, 167
Array_End:
 
Array_Min:
    MOV R0,#0xff
    MOV DPTR,#Array
Array_Min_Loop:
    MOV A,DPL
    XRL A,#LOW(Array_End)
    JZ  Array_Min_Done
    CLR A
    MOVC    A,@A+DPTR
    INC DPTR
    CLR C
    SUBB    A,R0
    JNC Array_Min_Loop
    ADD A,R0
    MOV R0,A
    JMP Array_Min_Loop
Array_Min_Done:
    MOV A,R0
    RET
 
    END

MOV DPTR, #MAS
MOV R0, #0
MOV R1, #0
m:
MOV A, R0
MOVC A, @A+DPTR
JB ACC.0, U
INC R1
u:
INC R0
CJNE R0, #10, m
MOV A, R1
ORG 47H
MAS: db 1h,2h,3h,150h,5h,6h,7h,8h,9h,10h

    MOV DPTR, #MAS
    MOV B, #10
    MOV R1, #0
m:
    CLR A
    MOVC    A,@A+DPTR
    JB  ACC.0, u
    SUBB    A,#150
    JNC u
    INC R1
u:
    DJNZ    B,m

SUBB A,#150
JC <число меньше 150>

    MOV DPTR, #MAS
    MOV B, #10
    MOV R1, #0
m:
    CLR A
    MOVC    A,@A+DPTR
    JB  ACC.0, u
    CLR C
    SUBB    A,#150
    JNC u
    INC R1
u:
    INC DPTR
    DJNZ    B,m

MOV DPTR, #MAS
    MOV R0, #10
    MOV R1, #0
start:
    CJNE R0, #0, m
    JNC i
m:
    CLR A
    MOVC    A,@A+DPTR
    JB  ACC.0, u
    CLR C
    SUBB    A,#150h
    JNC u
    INC R1
u:
    INC DPTR
    DEC R0
    SJMP start
i:
    MOV A, R1
ORG 47h
MAS: db 1h,2h,3h,154h,5h,256h,7h,8h,9h,10h