; FOUR-BYTE ADD ROUTINE
;
.org	0000h
		LD	IX,	0040h		; DESTINATION.
		LD	IY,	0050h		; SOURCE.
		LD	A,	(IX +3)		; GET BYTE 0.
		ADD	A,	(IY +3)		; ADD SOURCE.
		LD	(IX +3), A		; STORE RESULT.
		LD	A,	(IX +2)		; GET BYTE 1.
		ADC	A,	(IY +2)		; ADD SOURCE.
		LD	(IX +2), A		; STORE RESULT.
		LD	A, 	(IX +1)		; GET BYTE 2.
		ADC	A,	(IY +1)		; ADD SOURCE.
		LD	(IX +1), A		; STORE RESULT.
		LD	A,	(IX +0)		; GET BYTE 3.
		ADC	A,	(IY +0)		; ADD SOURCE.
		LD 	(IX +0), A		; STORE RESULT.
;LOOP	JP	LOOP			; LOOP HERE.
		HALT
				
.org	0040h				; IX DESTINATION AREA. 00 05 3F F2.
		DEFB	00h			; +844,050.
		DEFB	05h
		DEFB	3Fh
		DEFB	0F2h

.org	0050h				; IY SOURCE AREA. 00 07 A1 20.
		DEFB	00h
		DEFB	07h
		DEFB	0A1h
		DEFB	20h
							; 00053FF2 + 0007A120 = +000C E112h = 844,050(DECIMAL).
.end

; NOTE: TASM likes .BYTE and OshonSoft likes DEFB.