           LXI B,2800
           LXI H,2830
           LXI D,2860
     NEXT: LDAX B
           SUB M
           STAX D
           INX B
           INX H
           INX D
           MOV A,C
           CPI 1E
           JNZ NEXT
           RST 1

