mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-22 07:54:25 +00:00
77 lines
2.9 KiB
Plaintext
77 lines
2.9 KiB
Plaintext
$TITLE ('UDI GET TIME SYSTEM CALL')
|
|
$LARGE
|
|
/*************************************************************************/
|
|
/* */
|
|
/* D I S C L A I M E R N O T I C E */
|
|
/* ------------------- ----------- */
|
|
/* */
|
|
/* This document and/or portions of the material and data furnished */
|
|
/* herewith, was developed under sponsorship of the U. S. Government. */
|
|
/* Neither the U.S. nor the U.S.D.O.E., nor the Leland Stanford Junior */
|
|
/* University, nor their employees, nor their respective contractors, */
|
|
/* subcontractors, or their employees, makes any warranty, express or */
|
|
/* implied, or assumes any liability or responsibility for accuracy, */
|
|
/* completeness or usefulness of any information, apparatus, product */
|
|
/* or process disclosed, or represents that its use will not infringe */
|
|
/* privately-owned rights. Mention of any product, its manufacturer, */
|
|
/* or suppliers shall not, nor is it intended to, imply approval, dis- */
|
|
/* approval, or fitness for any particular use. The U. S. and the */
|
|
/* University at all times retain the right to use and disseminate same */
|
|
/* for any purpose whatsoever. Such distribution shall be made by the */
|
|
/* National Energy Software Center at the Argonne National Laboratory */
|
|
/* and only subject to the distributee furnishing satisfactory proof */
|
|
/* that he has a valid license from the Intel Corporation in effect. */
|
|
/* */
|
|
/*************************************************************************/
|
|
|
|
DQ_GET$TIME: do;
|
|
|
|
$INCLUDE (PLM$UDI:EXCEPT.LIT)
|
|
|
|
declare PTR literally 'POINTER';
|
|
|
|
|
|
FOR%DATE: procedure (date$p) external;
|
|
declare date$p pointer;
|
|
end;
|
|
|
|
FOR%TIME: procedure (time$p) external;
|
|
declare time$p pointer;
|
|
end;
|
|
|
|
declare month (12) structure (name(3) byte, number(2) byte)
|
|
data( 'JAN01', 'FEB02', 'MAR03',
|
|
'APR04', 'MAY05', 'JUN06',
|
|
'JUL07', 'AUG08', 'SEP09',
|
|
'OCT10', 'NOV11', 'DEC12');
|
|
|
|
DQ$GET$TIME: procedure (dt$p, excep$p) public;
|
|
declare (dt$p,excep$p) PTR;
|
|
declare (dt based dt$p) structure (date(8) byte, time(8) byte);
|
|
declare (status based excep$p) word;
|
|
declare i integer;
|
|
|
|
call FOR%DATE(@dt.date(7));
|
|
|
|
i=0;
|
|
do while dt.date(10)<>month(i).name(0) or
|
|
dt.date(11)<>month(i).name(1) or
|
|
dt.date(12)<>month(i).name(2);
|
|
i=i+1;
|
|
end;
|
|
|
|
dt.date(0)=month(i).number(0); /* MM */
|
|
dt.date(1)=month(i).number(1);
|
|
dt.date(2),dt.date(5)='/';
|
|
dt.date(3)=dt.date(7) OR '0'; /* DD */
|
|
dt.date(4)=dt.date(8);
|
|
dt.date(6)=dt.date(14); /* YY */
|
|
dt.date(7)=dt.date(15);
|
|
|
|
call FOR%TIME(@dt.time); /* HH:MM:SS */
|
|
|
|
status=E$OK;
|
|
end DQ$GET$TIME;
|
|
|
|
end DQ_GET$TIME;
|