ASMB,R,L,C
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS      * 
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,       * 
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * 
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.        * 
*  **************************************************************** 
* 
*   NAME: PART OF MATH LIBRARY
*   SOURCE:  24998-18XXX  SEE NAM FOR LAST THREE DIGITS 
*   RELOC: PART OF 24998-12001
*   PGMR: BG & JTS
* 
      HED "MOD" INTEGER REMAINDERING
      NAM MOD,6 24998-1X107 REV.2001 751101 
      ENT MOD 
      EXT .ZPRV 
      SPC 2 
* 
*     CALLING SEQUENCE: 
*     Y =  X1 MOD (X2), OR Y = X1 - (X1/X2) * X2
*     JSB MOD 
*     DEF *+3 
*     DEF X1
*     DEF X2
*     (RESULT IN A) 
      SPC 2 
X2    NOP 
X1    NOP 
MOD   NOP 
      JSB .ZPRV 
      DEF LIBX
      ISZ MOD      BUMP TO P+2
      LDA MOD,I    GET X1 ADDRESS 
      STA X1
      LDA A,I      GET X1 VALUE 
      ISZ MOD      BUMP TO P+3
      LDB MOD,I    GET X2 ADDRESS 
      STB X2
      ISZ MOD      BUMP TO P+4
      CLB,CLE 
      SSA 
      CMB           SET B TO 177777 IF X1 < O 
      DIV X2,I      X1 / X2 
      MPY X2,I      (X1/X2)*X2
      CMA,INA 
      ADA X1,I      Y=X1-(X1/X1)*X2 
LIBX  JMP MOD,I 
      DEF MOD 
A     EQU 0 
B     EQU 1 
      END 
* 
                                                                        