.TITLE	INC2
;
;	INCREMENT A 2-WORD INTEGER
;	CALL INC2(A)     A=2WORD INTEGER 
;
INC2::	TST	(R5)+		; Discard param count
	MOV	(R5)+,R0 	; GET 2 WORD INTEGER TO INCREMENT
	ADD	#1,2(R0) 	; ADD 1 WORD TO LOW ORDER BITS 
	ADC	(R0)     	; ADD ON CARRY TO HI ORDER WORD
	RETURN
	.END