Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

! TIMUSR.REQ  --  Declarations for the user of the TIME module.

!
!			  COPYRIGHT (C) 1982 BY
!	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
! ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
! COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
! OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
! TRANSFERRED.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
! AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
! CORPORATION.
!
! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
!

!++
! Facility:  CMS Library Processor
!
! Abstract:
!
!	This file contains declarations for the user of the time processing
!	routines declared in module TIME.BLI
!
! Environment:  VAX/VMS, DS-20, TOPS-10
!
! Author:  Earl Van Horn	Creation Date:  January 31, 1980
!
!--

%if %bliss(bliss36) %then

macro
    time_block =
	block[1] %;

%fi

%if %bliss(bliss32) %then

! This file assumes that the declaration
!
!	library 'XPORT:' ;
!
! or equivalent has already appeared in the program.


! The TIME_BLOCK macro declares a block that holds a VMS system time value.
!
macro
    time_block =
	block[k_tim_fullwords] field(tim_fields)
	%;


! Here are the declarations used in the time block macro.
!
$field
    tim_fields =				! Fields in a time block.
	set
	tim_lower_longword = [$bytes(%upval)],	! Unsigned longword
	tim_upper_longword = [$integer]		! Signed longword
	tes ;

literal
    k_tim_fullwords = $field_set_size,	! Fullwords in a time block.
    k_tim_units = $field_set_units ;	! Addressable units in a time block.
!
! The NUMTIME_BLOCK macro declares a block that holds the integer conversion 
! of a VMS system time value. See descritopn of $NUMTIM in the VMS System
! Services Manual.
!
macro
    numtim_block =
	block[k_numtim_fullwords] field(numtim_fields)
	%;


! Here are the declarations used in the time block macro.
!
$field
    numtim_fields =				! Fields in a numtime block.
	set
	k_year_part = [$short_integer],		! year since 0
	k_month_part = [$short_integer],	! month of year
	k_day_part = [$short_integer],		! day of month
	k_hour_part = [$short_integer],		! hour of day
	k_minute_part = [$short_integer],	! minute of hour
	k_seconds_part = [$short_integer],	! second of minute
	k_hundredths_part = [$short_integer]	! hundredths of second
	tes ;

literal
    k_numtim_fullwords = $field_set_size,	! Fullwords in a time block.
    k_numtim_units = $field_set_units ;	! Addressable units in a time block.


%fi

! TIMUSR.REQ  --  LAST LINE