;-------------------------------------------------------- ; Description of DATE BLOCK format: ; ; The block required for Date routines comprises ; 5 words sequentially as follows (defined as offsets) - DAY=0 ; day of month (1-31) MONTH=2 ; month of year (1-12) YEAR=4 ; either actual, or less 1900 DYEAR=6 ; day of year (1-365) RTDAT=10 ; date in RT-11 format ; {ie 1b;5b;5b;5b} ; This block is provided in this library for convenience. It ; may be utilized in Macro by MOV #DATBLK,R2 or through ; Fortran in the form ; COMMON/DATBLK/DAY,MONTH,YEAR,DYEAR,RTDAT ; CALL FTODAT(DAY) {for example} ; All the locations are labelled respectively with those ; names as globals. ;---------------------------------------------------------