d ;
È ;	SUBROUTINE SUBQUAD.MAR
,;
;	FORTRAN CALLABLE ROUTINE TO SUBTRACT TWO QUAD WORD INTEGERS
ô;
X;	CALL SUBQUAD (A,B,C)
¼;
 ;	RETURNS: A - B -> C
„;
è	.ENTRY	SUBQUAD ^M<R2>
L;
°;
A = 4
xB = 8
ÜC = 12
@	MOVQ	@A(AP),R0	;GET FIRST PARAM FOR SUBTRACT
r				;NEED TO USE REGISTERS BECAUSE
‹				;SUBWC IS ONLY 2 ADDRESS INSTR.
¤	MOVAQ	@B(AP),R2	;GET ADDRESS OF SECOND PARAM.
	SUBL	(R2)+,R0	;SUBTRACT FIRST HALF OF ARGUMENTS
l	SBWC	(R2),R1		;THEN DO THE SECOND HALF
Ð	MOVQ	R0,@C(AP)	;STORE THE RESULT
4	RET
ü;
`	;
Ä	;
(
	.ENTRY	EDIV	^M<R2>
Œ
;
ð
;	CALL EDIV (A,B,C)
T;	RETURNS  A/B -> C
¸;
	MOVQ	@A(AP),R0	;GET FIRST ARGUMENT
€	MOVAL	@B(AP),R2	;GET LONGWORD DIVISOR ADDRESS
ä	EDIV	(R2),R0,R0,R1	;DO THE DIVISION
H	MOVL	R0,@C(AP)	;STORE INTEGER QUOTIENT,IGNORE REM.
¬	RET
	.END