cal_sub_clock() — Apollo Domain/OS SR10.3.5

CAL_$SUB_CLOCK                    Domain/OS                     CAL_$SUB_CLOCK


NAME
     cal_$sub_clock - subtract two clock values

SYNOPSIS (C)
     #include <apollo/base.h>
     #include <apollo/cal.h>

     boolean cal_$sub_clock(
          time_$clock_t *clock1,
          time_$clock_t &clock2)

SYNOPSIS (Pascal)
     %include '/sys/ins/base.ins.pas';
     %include '/sys/ins/cal.ins.pas';

     function cal_$sub_clock(
          var clock1: time_$clock_t;
          in clock2: time_$clock_t): boolean;

SYNOPSIS (FORTRAN)
     %include '/sys/ins/base.ins.ftn'
     %include '/sys/ins/cal.ins.ftn'

           integer*2 clock1(3), clock1h, clock2(3), clock2h
           integer*4 clock1l, clock2l
           logical value

           equivalence (clock1l, clock1(2)), (clock1h, clock1(1))
           equivalence (clock2l, clock2(2)), (clock2h, clock2(1))

           value = cal_$sub_clock(clock1, clock2)

DESCRIPTION
     Cal_$sub_clock subtracts the clock value in clock2 from the clock value
     in clock1, and returns true if the difference is not negative.

     clock1
          The clock value to subtract clock2 from.

     clock2
          The clock value to subtract from clock1.
Museum
