FOR$JDATE                                                        21-AUG-1978 18:56:08   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      90  HISTORY		; Detailed Current Edit History

   (3)      96  DECLARATIONS

   (4)     122  FOR$JDATE - return month, day, year as INTEGER*

FOR$JDATE                                                        21-AUG-1978 18:56:08   VAX-11 MACRO X0.3-11               Page   1

0-1                                                                                                                              (1)



                                     0000     1 	.TITLE	FOR$JDATE

                                     0000     2 	.IDENT	/0-1/		; File: FORJDATE.MAR

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; Copyright (C) 1977

                                     0000     6 ; Digital Equipment Corporation, Maynard, Massachusetts 01754

                                     0000     7 ;

                                     0000     8 ; This software is furnished under a license for use only on a single

                                     0000     9 ; computer  system  and  may be copied only with the inclusion of the

                                     0000    10 ; above copyright notice. This software, or any other copies thereof,

                                     0000    11 ; may not be provided or otherwise made available to any other person

                                     0000    12 ; except for use on such system and to one who agree to these license 

                                     0000    13 ; terms.  Title to  and  ownership of the software shall at all times 

                                     0000    14 ; remain in DEC.

                                     0000    15 ;

                                     0000    16 ; The information in the software is subject to change without notice

                                     0000    17 ; and should  not  be construed  as a commitment by Digital Equipment 

                                     0000    18 ; Corporation.

                                     0000    19 ;

                                     0000    20 ; DEC assumes  no  responsibility  for the use or  reliability of its

                                     0000    21 ; software on equipment which is not supplied by DEC.

                                     0000    22 ;

                                     0000    23 ;

                                     0000    24 ; FACILITY: FORTRAN SYSTEM LIBRARY

                                     0000    25 ;++

                                     0000    26 ; ABSTRACT:

                                     0000    27 ;

                                     0000    28 ;	Return current month, day, and year as INTEGER*4 values.

                                     0000    29 

                                     0000    30 ;--

                                     0000    31 ;

                                     0000    32 ; VERSION: 0

                                     0000    33 ;

                                     0000    34 ; HISTORY:

                                     0000    35 ;

                                     0000    36 ; AUTHOR:

                                     0000    37 ;	Jonathan M. Taylor, 17-Aug-77: Version 0

                                     0000    38 ;

                                     0000    39 ; MODIFIED BY:

                                     0000    40 ;

                                     0000    41 ;

                                     0000    42 ;

FOR$JDATE                                                        21-AUG-1978 18:56:08   VAX-11 MACRO X0.3-11               Page   2

0-1             HISTORY  ; Detailed Current Edit History                                                                         (2)



                                     0000    44 	.SBTTL	HISTORY		; Detailed Current Edit History

                                     0000    45 

                                     0000    46 

                                     0000    47 ; Edit History for Version 0 of FOR$JDATE

                                     0000    48 ;

FOR$JDATE                                                        21-AUG-1978 18:56:08   VAX-11 MACRO X0.3-11               Page   3

0-1             DECLARATIONS                                                                                                     (3)



                                     0000    50 	.SBTTL	DECLARATIONS

                                     0000    51 

                                     0000    52 ;

                                     0000    53 ; INCLUDE FILES:

                                     0000    54 ;	oerr.mar

                                     0000    55 

                                     0000    56 ;

                                     0000    57 ; EXTERNAL SYMBOLS:

                                     0000    58 ;

                                     0000    59 

                                     0000    60 ;

                                     0000    61 ; MACROS:

                                     0000    62 ;

                                     0000    63 

                                     0000    64 ;

                                     0000    65 ; PSECT DECLARATIONS:

                                 00000000    66 	.PSECT	FOR$CODE	PIC, SHR, LONG, EXE, NOWRT

                                     0000    67 

                                     0000    68 ;

                                     0000    69 ; EQUATED SYMBOLS:

                                     0000    70 ;

                                     0000    71 

                                     0000    72 ;

                                     0000    73 ; OWN STORAGE:

                                     0000    74 ;	none

FOR$JDATE                                                        21-AUG-1978 18:56:08   VAX-11 MACRO X0.3-11               Page   4

0-1             FOR$JDATE - return month, day, year as INTEGER*                                                                  (4)



                                     0000    76 	.SBTTL	FOR$JDATE - return month, day, year as INTEGER*4

                                     0000    77 

                                     0000    78 ;++

                                     0000    79 ; FUNCTIONAL DESCRIPTION:

                                     0000    80 ;

                                     0000    81 ;	FOR$JDATE uses system service $NUMTIM to get date information.

                                     0000    82 ;	This information is converted to the appropriate type and stored

                                     0000    83 ;	through the addresses passed as parameters.

                                     0000    84 ;

                                     0000    85 ; CALLING SEQUENCE:

                                     0000    86 ;

                                     0000    87 ;	CALL FOR$JDATE (month.wl.r, day.wl.r, year.wl.r)

                                     0000    88 ;

                                     0000    89 ; INPUT PARAMETERS:

                                     0000    90 ;

                                     0000    91 ;	month.wl.r	adr of longword to place month (1-12) integer

                                     0000    92 ;	day.wl.r	adr of longword to place day (1-31) integer

                                     0000    93 ;	year.wl.r	adr of longword to place year (0-99)integer

                                     0000    94 ;

                                     0000    95 ; IMPLICIT INPUTS:

                                     0000    96 ;	NONE

                                     0000    97 ;

                                     0000    98 ; OUTPUT PARAMETERS:

                                     0000    99 ;	NONE

                                     0000   100 ;

                                     0000   101 ; IMPLICIT OUTPUTS:

                                     0000   102 ;	NONE

                                     0000   103 ;

                                     0000   104 ; COMPLETION CODES:

                                     0000   105 ;	NONE

                                     0000   106 ;

                                     0000   107 ; SIDE EFFECTS:

                                     0000   108 ;	SIGNALs Integer Overflow (this should never happen)

                                     0000   109 ;

                                     0000   110 ;--

                                     0000   111 

                                     0000   112 

                                     0000   113 

                               4000' 0000   114 	.ENTRY	FOR$JDATE,	^M<IV>

            5E            10     C2  0002   115 	SUBL	#16, SP			; save 8 words for $NUMTIM

            50            5E     D0  0005   116 	MOVL	SP, R0			; R0 -> data area

                                     0008   117 	$NUMTIM_S	(R0)		; get system time values

            50            8E     3C  0013   118 	MOVZWL	(SP)+, R0		; R0 = "year since 0"

                          51     D4  0016   119 	CLRL	R1			; as a quadword value

            50   00000064 8F     7B  0018   120 	EDIV	#100, R0, R0, R0	; R0 = two digit year value

            50            50         001F       

         0C BC            50     D0  0021   121 	MOVL	R0, @12(AP)		; return year

         04 BC            8E     32  0025   122 	CVTWL	(SP)+, @4(AP)		; return month

         08 BC            6E     32  0029   123 	CVTWL	(SP), @8(AP)		; return day

                                 04  002D   124 	RET				; return

                                     002E   125 

                                     002E   126 

                                     002E   127 	.END

FOR$JDATE                                                        21-AUG-1978 18:56:08   VAX-11 MACRO X0.3-11               Page   5

SYMBOL TABLE                                                                                                                     (4)



FOR$JDATE        00000000 RG    02   

FOR$K_ERR_PREFX= 00000018            

MTH$K_ERR_PREFX= 00000016            

MTH__FLOOVEMAT = 00000058            

MTH__FLOUNDMAT = 00000059            

MTH__INVARG    = 00000051            

MTH__LOGZERNEG = 00000053            

MTH__SINSIGLOS = 00000057            

MTH__SQUROONEG = 00000054            

MTH__UNDEXP    = 00000052            

MTH__WRONUMARG = 00000050            

SYS$NUMTIM       ********   X   02   





PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

FOR$CODE         0000002E      02       PIC   USR   CON   REL   LCL   SHR   EXE   RD  NOWRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

27788. BYTES LEFT IN FREE MEMORY POOL.

OBJ$:FORJDATE,LIS$:FORJDATE/-SP=LIB$:S/ML,SRC$:P,FORJDATE

6 MLB DIR RDS - 12 GETS TO DEFINE 2 MACROS. 2 INTER. FILE WRITES. 

