.TITLE MOD    REMAINDERING FOR INTEGER ARGUMENTS  ARG1(MOD ARG2)
/ 
/ 
/                   FIRST PRINTING, FEBRUARY 1974
/ 
/ THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
/ CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED
/ AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON-
/ SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
/ DOCUMENT.
/ 
/ THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR-
/ NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON
/ A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH
/ INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR 
/ USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO-
/ VIDED IN WRITING BY DIGITAL.
/ 
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/ FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP-
/ MENT THAT IS NOT SUPPLIED BY DIGITAL.
/ 
/ COPYRIGHT (C) 1974, BY DIGITAL EQUIPMENT CORPORATION
/ 
/ 
        .EJECT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL MOD,.DA,.AE,.CO
/             CALLING SEQUENCE
/      JMS*   (MOD)           SUBR CALL
/      JMP    .+3             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARG1
/      CAL/XCTADDR            ADDR OF ARG2  (XCT IF INDIRECT)
/
MOD    CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENTS (.DA)
       JMP    MOD03
MOD01  CAL    0              /ARG1
MOD02  CAL    0              /ARG2
MOD03  LAC*   MOD01          /LOAD ARG1
       JMS*   .AE            /INTERGER DIVIDE (.AE)
       LAC*   MOD02          /  (ARG1/ARG2)
       LAC*   MOD01          /GET ARG1
       RCL                   /SHIFT SIGN TO LINK
       LAC*   .CO            /GET REMAINDER FROM INTEGER DIVIDE (.CO)
       SNL                   /IF NO LINK EXIT
       JMP*   MOD            /EXIT
       CMA                   /OR TWOS COMP
       TAD    MOD04          /(1)
       JMP*   MOD            /EXIT
MOD04         1
       .END