ORG 0000H
MOV R7,#10H
MOV R1,#00H
MOV R0,#20H
LOOP:MOV A,@R0
MOV B,#04H
DIV AB
MOV A,B
JNZ K1
INC R1
K1: INC R0
DJNZ R7,LOOP
MOV 30H,R1
SJMP $
END