.TITLE	ADD2
;
;	CALL	ADD2(I,J)
;		J = I + J
;		WHERE I,J are 2 word integers (integer*4)
;
ADD2::	TST	(R5)
	MOV	(R5)+,R0	; First variable
	MOV	(R5)+,R1	; Second var
	ADD	(R0)+,(R1)+	; Add lo order bits
	ADC	(R1)		; Handle carry
	ADD	(R0)+,(R1)+	; And hi order
	RETURN
	.END