FOR$DATE        ; return system date in 9-byte array             21-AUG-1978 18:54:39   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)     100  HISTORY		; Detailed Current Edit History

   (3)     100  DECLARATIONS

   (4)     100  FOR$DATE - return system date as an 9 byte stri

FOR$DATE        ; return system date in 9-byte array             21-AUG-1978 18:54:39   VAX-11 MACRO X0.3-11               Page   1

0-3                                                                                                                              (1)



                                     0000   100 	.TITLE	FOR$DATE	; return system date in 9-byte array

                                     0000   200 	.IDENT	/0-3/		; File: FORDATE.MAR

                                     0000   300 

                                     0000   400 ;

                                     0000   500 ; Copyright (C) 1977

                                     0000   600 ; Digital Equipment Corporation, Maynard, Massachusetts 01754

                                     0000   700 ;

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

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

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

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

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

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

                                     0000  1400 ; remain in DEC.

                                     0000  1500 ;

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

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

                                     0000  1800 ; Corporation.

                                     0000  1900 ;

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

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

                                     0000  2200 ;

                                     0000  2300 ;

                                     0000  2400 ; FACILITY: FORTRAN SUPPORT LIBRARY

                                     0000  2500 ;++

                                     0000  2600 ; ABSTRACT:

                                     0000  2700 ;

                                     0000  2800 ;	Call system service $ASCTIM to return system date to user

                                     0000  2900 ;	area.

                                     0000  3000 ;

                                     0000  3100 ;--

                                     0000  3200 ;

                                     0000  3300 ; VERSION: 0

                                     0000  3400 ;

                                     0000  3500 ; HISTORY:

                                     0000  3600 ;

                                     0000  3700 ; AUTHOR:

                                     0000  3800 ;	Jonathan M. Taylor, 18-Aug-77: Version 0

                                     0000  3900 ;

                                     0000  4000 ; MODIFIED BY:

                                     0000  4100 ;

                                     0000  4200 ;

                                     0000  4300 ;

FOR$DATE        ; return system date in 9-byte array             21-AUG-1978 18:54:39   VAX-11 MACRO X0.3-11               Page   2

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



                                     0000   100 	.SBTTL	HISTORY		; Detailed Current Edit History

                                     0000   200 

                                     0000   300 

                                     0000   400 ; Edit History for Version 0 of FOR$DATE

                                     0000   500 ;

                                     0000   600 

                                     0000   700 ; 0-3	- Remove FOR$FLAG_JACKET.  TNH 11-July-78

FOR$DATE        ; return system date in 9-byte array             21-AUG-1978 18:54:39   VAX-11 MACRO X0.3-11               Page   3

0-3             DECLARATIONS                                                                                                     (3)



                                     0000   100 	.SBTTL	DECLARATIONS

                                     0000   200 

                                     0000   300 ;

                                     0000   400 ; INCLUDE FILES:

                                     0000   500 ;	oerr.mar

                                     0000   600 

                                     0000   700 ;

                                     0000   800 ; EXTERNAL SYMBOLS:

                                     0000   900 	.GLOBL	SYS$ASCTIM

                                     0000  1000 

                                     0000  1100 ;

                                     0000  1200 ; MACROS:

                                     0000  1300 ;	NONE

                                     0000  1400 

                                     0000  1500 ;

                                     0000  1600 ; PSECT DECLARATIONS:

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

                                     0000  1800 

                                     0000  1900 ;

                                     0000  2000 ; EQUATED SYMBOLS:

                                     0000  2100 ;	NONE

                                     0000  2200 

                                     0000  2300 ;

                                     0000  2400 ; OWN STORAGE:

                                     0000  2500 ;	NONE

                                     0000  2600 

FOR$DATE        ; return system date in 9-byte array             21-AUG-1978 18:54:39   VAX-11 MACRO X0.3-11               Page   4

0-3             FOR$DATE - return system date as an 9 byte stri                                                                  (4)



                                     0000   100 	.SBTTL	FOR$DATE - return system date as an 9 byte string

                                     0000   200 

                                     0000   300 ;++

                                     0000   400 ; FUNCTIONAL DESCRIPTION:

                                     0000   500 ;	Returns system date as an 9 byte string in the form

                                     0000   600 ;	DD-MMM-YY. Build a work space on the stack to con-

                                     0000   700 ;	tain the date returned by the system (DD-MMM-YYYY).

                                     0000   800 ;	Do a $ASCTIM to get date into this area.  Move the string

                                     0000   900 ;	into the user area, artfully avoiding the first two YY's.

                                     0000  1000 ;

                                     0000  1100 ; CALLING SEQUENCE:

                                     0000  1200 ;	CALL	FOR$DATE (9_byte_array.wb.ra)

                                     0000  1300 ;

                                     0000  1400 ;

                                     0000  1500 ; INPUT PARAMETERS:

                                     0000  1600 ;	9_byte_array		the addr of 9 bytes into which the

                                     0000  1700 ;				string is to be placed

                                     0000  1800 ;

                                     0000  1900 ; IMPLICIT INPUTS:

                                     0000  2000 ;	NONE

                                     0000  2100 ;

                                     0000  2200 ; OUTPUT PARAMETERS:

                                     0000  2300 ;	NONE

                                     0000  2400 ;

                                     0000  2500 ; IMPLICIT OUTPUTS:

                                     0000  2600 ;	NONE

                                     0000  2700 ;

                                     0000  2800 ; COMPLETION CODES:

                                     0000  2900 ;	NONE

                                     0000  3000 ;

                                     0000  3100 ; SIDE EFFECTS:

                                     0000  3200 ;	NONE

                                     0000  3300 ;

                                     0000  3400 ;--

                                     0000  3500 

                                     0000  3600 

                               003C' 0000  3700 	.ENTRY	FOR$DATE,	^M<R2,R3,R4,R5>

            5E            0C     C2  0002  3900 	SUBL	#12, SP			; make space for date string

            52            5E     D0  0005  4000 	MOVL	SP, R2			; R2 -> space

            7E            52     D0  0008  4100 	MOVL	R2, -(SP)		; build a string descriptor

            7E   010E000B 8F     D0  000B  4200 	MOVL	#^X10E000B, -(SP)	; len=11

            50            5E     D0  0012  4300 	MOVL	SP, R0			; R0 -> string descriptor

                                     0015  4400 	$ASCTIM_S	,(R0)		; R2 -> date string

            62            07     28  0024  4500 	MOVC3	#7, (R2), @4(AP)	; move in "dd-mmm-"

                       04 BC         0027       

            81            81     91  0029  4600 	CMPB	(R1)+, (R1)+		; skip "19"

            61            02     28  002C  4700 	MOVC3	#2, (R1), (R3)		; move in rest of year

                          63         002F       

                                 04  0030  4800 	RET				; return to user

                                     0031  4900 

                                     0031  5000 

                                     0031  5100 	.END

FOR$DATE        ; return system date in 9-byte array             21-AUG-1978 18:54:39   VAX-11 MACRO X0.3-11               Page   5

SYMBOL TABLE                                                                                                                     (4)



FOR$DATE         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$ASCTIM       ********  GX   01   





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         00000031      02       PIC   USR   CON   REL   LCL   SHR   EXE   RD  NOWRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

27704. BYTES LEFT IN FREE MEMORY POOL.

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

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

