Museum

Home

Lab Overview

Retrotechnology Articles

⇒ Online Manual

Media Vault

Software Library

Restoration Projects

Artifacts Sought

CAL_$CLOCK_TO_SEC                 Domain/OS                  CAL_$CLOCK_TO_SEC


NAME
     cal_$clock_to_sec - convert clock ticks into whole seconds

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

     unsigned long cal_$clock_to_sec(
          time_$clock_t &clock_value)

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

     function cal_$clock_to_sec(
          in clock_value: time_$clock_t): linteger;

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

           integer*2 clock_value(3), clockh
           integer*4 clockl, seconds

           equivalence (clockl, clock_value(2)), (clockh, clock_value(1))

           seconds = cal_$clock_to_sec(clock_value)

DESCRIPTION
     Cal_$clock_to_sec converts an interval expressed as a clock value into
     the equivalent number of seconds, and returns the integral portion of the
     result.  It discards any fractional remainder.

     clock_value
          The interval to be converted expressed as a clock value.

Typewritten Software • bear@typewritten.org • Edmonds, WA 98026