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