
           LXI H,2040
           MOV B,M
           INX H
           LXI D,2061
     LOOP: LDAX D
           ADD M
           MOV M,A
           INX H
           INX D
           DCR B
           JNZ LOOP
           RST 1
