
           LXI H,2040
           MOV B,M
           INX H
           SUB A
     LOOP: LDAX D
           SUB M
           STAX D
           INX H
           INX D
           DCR B
           JNZ LOOP
           HLT  
