.title	isub
; isub(hq,lq,hr,lr)
; subtract two int*8 values (form hq-lq), put results into
; (hr,lr)
	.entry	isub,^m<r2,r3,r4,r5>
	movq	@4(ap),r2	;load minuend
	movq	@8(ap),r4	;load subtrahend
	subl	r4,r2		;subt. low half
	sbwc	r5,r3		;and hi half
	movl	r3,@12(ap)	;return hi half
	movl	r2,@16(ap)	;and lo half
	movl	#1,r0	;all ok
	ret
	.end