           MVI A,01
           OUT 28
           MVI B,0A
           LXI H,2050
        L: MOV A,M
           OUT 04
           CALL DELAY
           INX H
           DCR B
           JNZ L
           DCX H
    LOOP1: DCX H
           MOV A,M
           OUT 04
           CALL DELAY
           INR B
           MOV A,B
           CPI 09
           JNZ LOOP1
       L3: INX H
           MOV A,M
           CMA  
           ADI 01
           OUT 04
           CALL DELAY
           DCR B
           JNZ L3
       L4: DCX H
           MOV A,M
           CMA  
           ADI 01
           OUT 04
           CALL DELAY
           INR B
           MOV A,B
           CPI 09
           JNZ L4
           RST 1
    DELAY: MVI D,21
       L1: DCR D
           JNZ L1
           RET  
