; REPETITIVE ADDITION MULTIPLY
;
.ORG 0000h
		LD	DE,	(ARG1)		; LOAD MULTIPLICAND.
		LD	A,	(ARG2)		; LOAD MULTIPLIER.
		LD	B,	A			; TRANSFER TO B.
		LD	HL,	0			; CLEAR PARTIAL PRODUCT.
LOOP:	ADD	HL,	DE			; ADD MULTIPLICAND.
		DJNZ	LOOP		; GO IF NOT DONE.
;LOOP1:	JP	LOOP1			; LOOP HERE ON DONE.
		HALT
ARG1:	DEFW	1000		; PUT MULTIPLICAND HERE.
ARG2:	DEFB	20			; PUT MULTIPLIER HERE.
							; 20000 = 4E20h.
.END