LJMP POCZ;
       ORG 30H; 
POCZ:  MOV R0,0;
       MOV R1,0;
       MOV A,@R0;
JMP2:  INC R0;
       CJNE R0, #0, KON;
       SUBB A,@R0;
       JNC JMP2;
       JC JMP1;
JMP1:  MOV @R1,A;
KON:   END;