*COMDECK TEXTCOM
 MXX+X    SPACE  4,28 
**        MXX+X  - SELECT GREATER (MAXIMUM FUNCTION) OF TWO INTEGERS. 
* 
*         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES 
*         THE ALGEBRAICALLY GREATER VALUE IN *XI*.
* 
*         MXI    XJ+XK
* 
*         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*
*                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED
* 
*         EXIT   (X.LARGER) = 0 
*                (X.SMALLER) = UNCHANGED
*         IF ON ENTRY (XJ)=(XK),
*            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED 
*                (XI) = MAX(XJ,XK)
* 
*         USES   XI, XJ, XK 
  
          PURGDEF   MXX+X 
  
 MXX+X    OPDEF  I,J,K
  IX.I X.J-X.K
  AX.I -1 
  BX.J -X.I*X.J 
  BX.K X.I*X.K
  IX.I X.J+X.K
 MXX+X    ENDM
 MXX-X    SPACE  4,28 
**        MXX-X  - SELECT LESSER (MINIMUM FUNCTION) OF TWO INTEGERS.
* 
*         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES 
*         THE ALGEBRAICALLY LESSER VALUE IN *XI*. 
* 
*         MXI    XJ-XK
* 
*         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*
*                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED
* 
*         EXIT   (X.LARGER) = 0 
*                (X.SMALLER) = UNCHANGED
*                IF ON ENTRY (XJ)=(XK)
*            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED 
*                XI = MIN(XJ,XK)
* 
*         USES   XI, XJ, XK 
  
          PURGDEF   MXX-X 
  
 MXX-X    OPDEF  I,J,K
  IX.I X.J-X.K
  AX.I  -1
  BX.J X.I*X.J
  BX.K -X.I*X.K 
  IX.I X.J+X.K
 MXX-X    ENDM
