; [DE..DE+BC-1] += [HL..HL+BC-1]
MPADD:
	DEC BC
	ADD HL,BC
	EX DE,HL
	ADD HL,BC
	EX DE,HL
	INC C
	INC B
	LD A,C
	LD C,B
	LD B,A
MPADD_L1:
	LD A,(DE)
	ADC A,(HL)
	LD (DE),A
	DEC DE
	DEC HL
	DJNZ MPADD_L1
	DEC C
	JR NZ,MPADD_L1
	RET

; [DE..DE+BC-1] -= [HL..HL+BC-1]
MPSUB:
	DEC BC
	ADD HL,BC
	EX DE,HL
	ADD HL,BC
	EX DE,HL
	INC C
	INC B
	LD A,C
	LD C,B
	LD B,A
MPSUB_L1:
	LD A,(DE)
	SBC A,(HL)
	LD (DE),A
	DEC DE
	DEC HL
	DJNZ MPSUB_L1
	DEC C
	JR NZ,MPSUB_L1
	RET