*COMDECK CBMOD60
 MOD60    EJECT 
**        MOD60 - COMPUTE INTEGER QUOTIENT AND REMAINDER MOD 60 
* 
*         INPUT - X1
*         OUTPUT
*                X0 - INTEGER QUOTIENT X1/60
*                X6 -  X1 MOD 60
 MOD60    DATA   0
          PX2    B0,X1
          SX4    60 
          PX3    B0,X4
          NX3    B0,X3
          FX0    X2/X3
          UX0    X0,B7
          LX0    B7,X0
          IX7    X0*X4
          IX6    X1-X7
          EQ     MOD60
