d ;	SUBROUTINE SUBQUAD.MAR
È ;
,;	FORTRAN CALLABLE ROUTINE TO SUBTRACT TWO QUAD WORD INTEGERS
;
ô;	CALL SUBQUAD(A,B,C)
X;
¼;	RETURNS: A - B -> C
 ;
„	.ENTRY	SUBQUAD	^M<R2>
è;
L;
°A=4
B=8
xC=12
Ü	MOVQ	@A(AP),R0
@	MOVAQ	@B(AP),R2
¤	SUBL	(R2)+,R0
	SBWC	(R2),R1
l	MOVQ	R0,@C(AP)
Ð	RET
4;
˜;
ü;
`		.ENTRY	EDIV	^M<R2>
Ä	;
(
;	CALL EDIV (A,B,C)
Œ
;	RETURNS A/B->C
ð
;
T	MOVQ	@A(AP),R0
¸	MOVAL	@B(AP),R2
	EDIV	(R2),R0,R0,R1
€	MOVL	R0,@C(AP)
ä	RET
å;
æ;
é;	CALL ADDQUAD(A,B,C)
î;
ó;	RETURNS: A + B -> C
ø;
ý	.ENTRY	ADDQUAD	^M<R2>
;
;
A=4
B=8
C=12
	MOVQ	@A(AP),R0
 	MOVAQ	@B(AP),R2
%	ADDL	(R2)+,R0
*	ADWC	(R2),R1
/	MOVQ	R0,@C(AP)
4	RET
H	.END
¬