LXI,2041
MOV B,N
SUB A
INX H
ADD M
DCR B
JNZ LOOP
STA 2040
HLT
