       .TITLE AMOD   REMAINDERING FOR REAL ARGUMENTS  ARG1(MOD ARG2)
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL AMOD,.DA,.AG,.AL,.AX,.AW,.AM,.AK
/             CALLING SEQUENCE
/      JMS*   (AMOD)          SUBR CALL
/      JMP    .+3             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT 1
/      CAL/XCTADDR            ADDR OF ARGUMENT 2 (XCT IF INDIRECT)
/
AMOD   CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENTS (.DA)
       JMP    AMOD03
AMOD01 CAL    0              /ARG 1
AMOD02 CAL    0              /ARG 2
AMOD03 JMS*   .AG            /LOAD REAL
       .DSA   AMOD01+400000  / (ARG1)
       JMS*   .AL            /DIVIDE REAL (.AL)
       .DSA   AMOD02+400000  / (ARG1/ARG2)
       JMS*   .AX            /FIX TO INTEGER (.AX)
       JMS*   .AW            /FLOAT TO ACC (.AW)
       JMS*   .AK            /MULTIPLY REAL
       .DSA   AMOD02+400000  / (ARG2 * INTEGER)
       JMS*   .AM            /REVERSE SUBTRACT (.AM)
       .DSA   AMOD01+400000  / (ARG1-(ARG2(ARG1/ARG2)))
       JMP*   AMOD           /EXIT
       .END
