d;++++++ ; [SCI.JJ] ,; QUAD.MAR .. QUAD WORD ROUTINES ;  .TITLE JJQUAD X; A=4 B=8 C=12 ; L; CALL JJQSUB( A, B, C ) ; ; C(I*8) <= A(I*8) - B(I*8) x;  .ENTRY JJQSUB ^M @;------  MOVQ @A(AP),R0 ; GET FST PARM  MOVAQ @B(AP),R2 ; GET ADDR OF SEC l SUBL (R2)+,R0 ; SUB TOP HALF  SBWC (R2),R1 ; SUB LOW HALF 4 MOVQ R0,@C(AP) ; SAVE RESULT  RET ; ;;;;;;;;; ` ; ;++++++ ( ; ; CALL JJQDIV( A, B, C ) ; T ; C(I*4) = A(I*8) / B(I*4) ;  .ENTRY JJQDIV ^M ;------ MOVQ @A(AP),R0 ;GET FST PAR H MOVAL @B(AP),R2 ;GET LONG DEV EDIV (R2),R0,R0,R1 ; A / B  MOVL R0,@C(AP) ; SAVE RESULT t RET ; ;;;;;;;;; <;  .END