           LXI H,2040
           MVI M,02
           INX H
           MVI M,03
           INX H
           MVI M,05
           INX H
           MVI M,04

           LXI H,2040
           MVI C,04
           MVI E,00
           CALL LOOP
           LXI H,2030
           MOV M,E
           HLT  

     LOOP: MOV A,M
           RRC  
           JNC LOOP1
     CONT: INX H
           DCR C
           JNZ LOOP
           RET  

    LOOP1: INR E
           JMP CONT

