Text preview for : TimeDefs.mesa_Oct77.pdf part of xerox TimeDefs.mesa Oct77 xerox mesa 3.0_1977 listing TimeDefs.mesa_Oct77.pdf



Back to : TimeDefs.mesa_Oct77.pdf | Home

TIMEDEFS.MESA 25-QCT-77 15:23:13 Page 1


-- file: TimeDefs.Mesa
-- last edited by Johnsson. March 21. 1977 3:17 PM
DIRECTORY
InlineDefs: FROM "inlinedefs":
TimeDefs: DEFINITIONS =
BEGIN
StartWeekDay: PRIVATE INTEGER = 1: Jan. 1. 1901 was a Tuesday
DstStart: PRIVATE INTEGER = 115: -- on or after Apr. 24
DstLast: PRIVATE INTEGER = 299: on or after Oct. 25
BaseYear: PRIVATE INTEGER = 1901:
DayslnFourYears: PRIVATE INTEGER = 4*365+1:
-- DefaultTime: PackedTime = [0.0]:
PackedTime: TYPE = InlineDefs.LongCARDINAL:
UnpackedTime: TYPE RECORD [
year: [0 .. 2050]. base year is 1901
month: [0 .. 12). January = 0
day: [0 .. 31]