8051 code to find the number of positive numbers in an array .

I have posted how to find a number is positive or negative  before.... Just check it.

            ORG 000h
            MOV DPTR,#0Ah  ; an external address
            MOV RO,#0Ah       ;array counter
            MOV R1,#0h           ;to count pos numbers
 loop:
            MOV A,@DPTR
            RLC A
            JC neg
            INC R1.  ;Counter
            DJNZ R0,loop
             SJMP end
       
neg: DJNZ R0,loop

end: NOP

END

In alp programming its important to look that loops are executed only when we need ,coz as i said,compiler executes sequentially.If u don't branch them correctly ,the program may go wrong.