LXI H,2040
           MVI M,02
           INX H
           MVI M,03
           INX H
           MVI M,05
           INX H
           MVI M,0D
           LXI H,2040
           MVI C,00
           CALL LOOP
           HLT  

     LOOP: MOV A,M
           CPI 0D
           JNZ LOOP1
           
           
           
           JNZ LOOP
           RET  

    LOOP1: INX H
           INR C
           JMP LOOP
