I would like to do some date arithmetic programming in Fortran on TOPS-20 and have been trying to get the Fortran DATE() bug work-arounds posted above to work, but without success.

1. Charles Richmond's DATE4Y.MAC (posted on 2011/12/25) will compile on LCM+L's TOAD-2 (creates DATE4Y.REL), but with the following errors:

[NOKNOW] LS:<~>@ comp date4y
MACRO: FORDAT
+10 PAGE 1
RU 000000' 000000 000000* SEGMENT CODE
+32
RU 000013' 000000 000000* SEGMENT DATA
DATA Unassigned, defined as if external
CODE Unassigned, defined as if external
SEGMENT Unassigned, defined as if external

?4 ERRORS DETECTED

EXIT

(DATE4Y.MAC won't compile on other TOPS-20 systems I have access to (including twenex.org) due to not being able to find MTHPRM.)

Charles's TSM.FOR demo program compiles, but produces the following errors when I try linking it with DATE4Y.REL (mostly understandable from the DATE4Y compile errors):

[NOKNOW] LS:<~>@ link
*date4y
*/start=tsm
*/go
?LNKUGS 7 undefined global symbols
TMDATE 437
SEGMENT 0
DATA 153
PARSER 463
CODE 140
CHANNL 421
CLEARC 423

2. David Todd's MDATE.MAC (posted 2012/4/26) compiles without errors on all TOPS-20 systems I have tried. I created the following Fortran program to test MDATE, which also compiles without errors:

C TMDATE.FOR - Test MDATE subroutine

PROGRAM TMDATE
CHARACTER*10 DATSTR
CALL MDATE (DATSTR)
TYPE *, DATSTR
STOP
END

Link also terminated normally:

[NOKNOW] LS:<~>@ comp tmdate
FORTRAN: TMDATE
TMDATE
[NOKNOW] LS:<~>@ link
*mdate
*/start=tmdate
*/go
[NOKNOW] LS:<~>@ save
TMDATE.EXE.1 Saved

However, running TMDATE seems to produce an endless loop of pages of blank output.

Any insights will be appreciated.

On Wednesday, March 16, 2022 at 11:48:51 AM UTC+9, David Meyer wrote:
> 2. David Todd's MDATE.MAC (posted 2012/4/26) compiles without errors on all TOPS-20 systems I have tried. I created the following Fortran program to test MDATE, which also compiles without errors:
>
> C TMDATE.FOR - Test MDATE subroutine
>
> PROGRAM TMDATE
> CHARACTER*10 DATSTR
> CALL MDATE (DATSTR)
> TYPE *, DATSTR
> STOP
> END

My test programs appears to work if I change the data declaration from "CHARACTER*10 DATSTR" to "DOUBLE PRECISION DATSTR" or "INTEGER DATSTR (2)" as David's documentation instructs.

On Wednesday, March 16, 2022 at 12:00:05 PM UTC+9, David Meyer wrote:
> My test programs appears to work if I change the data declaration from "CHARACTER*10 DATSTR" to "DOUBLE PRECISION DATSTR" or "INTEGER DATSTR (2)" as David's documentation instructs.

For the benefit of other Fortran novices, here's an improved version of my MDATE test program that calls David's subroutine then prints the date string:

C TMDATE.FOR - Test MDATE subroutine

PROGRAM TMDATE
INTEGER DATARY (2)
CALL MDATE (DATARY)
TYPE 10, DATARY (1), DATARY (2)
10 FORMAT (' ', A, A)
STOP
END

On Tuesday, March 15, 2022 at 9:21:55 PM UTC-7, papa...@gmail.com wrote:

(snip)

> PROGRAM TMDATE
> INTEGER DATARY (2)
> CALL MDATE (DATARY)
> TYPE 10, DATARY (1), DATARY (2)
> 10 FORMAT (' ', A, A)
> STOP
> END

I might have thought those would be A5 format. Is the default 5?

On Wednesday, March 16, 2022 at 2:45:41 PM UTC+9, gah4 wrote:
> I might have thought those would be A5 format. Is the default 5?

Yes, for single-precision values. Default is A10 for double-precision.

(The program works because I was lucky, not because I knew that. ;)

On Tuesday, March 15, 2022 at 10:48:51 PM UTC-4, papa... wrote:
> I would like to do some date arithmetic programming in Fortran on TOPS-20 and have been trying to get the Fortran DATE() bug work-arounds posted above to work, but without success.

As a result of smj's upgrade to KANKAN and associated boot camps, I've started fiddling with my Mac-hosted Panda DEC-20 (thinking of MRC every time I fire it up). I saw your note and was amused and pleased that my 10-year-old MACRO routine for a long-dead hardware platform was useful to someone. Thanks for that.

But as I thought about it, if you're doing date arithmetic processing, you'd probably really want the date in numeric form. And that seemed like a fun exercise. So here it is. Hope it's useful, or at least interesting. Much easier getting the numbers than the strings.

Apologies for the formatting below ... no "code" formatting in Google Groups conversations, apparently. I can drop these somewhere if you think they're useful but have trouble with the formatting.

David

C NDTEST.FOR - Test NDATE subroutine

PROGRAM NDTEST
INTEGER DATSTR(3)
CALL MDATE (DATSTR)
TYPE 10, DATSTR(1), DATSTR(2), DATSTR(3)
10 FORMAT(' Today''s date is: ', I4, '\', i2, '\', i2)
STOP
END

cat ndate.mac
TITLE NDATE - FORTRAN Subroutine to return date in 3rd millenium
SEARCH MONSYM,MACSYM
.REQUIRE SYS:MACREL
; ; Replaces FORTRAN library DATE subroutine, which was not Y2K compatible
; ; Calling sequence
; CALL MDATE(A)
; where A is a 3-word array
; Returns the date as 3 integers, YYYY, MM, DD in that array
; MM = 1..12 and dd 1..{28, 30, 31}
; ; Written by H D Todd, Williston, VT, March, 2022
; T0==0
T1==1
T2==2
T3==3
T4==4
L==16
P==17
; ENTRY MDATE
SIXBIT /MDATE/
MDATE: PUSH P,T1 ;SAVE REGS WE USE
PUSH P,T2
PUSH P,T3
PUSH P,T4
MOVX T2,-1 ;GET TODAY'S DATE AS COMPONENTS
SETZ T4,
ODCNV%
;RESULTS COME BACK AS
;T2: YEAR,,MONTH-1
;T3: DAY-OF-MONTH-1,,DAY-OF-WEEK-1
;T4: FLAGS FROM CONVERSION
HRRZ T1,0(L) ;GET THE ADDRESS OF THE OUTPUT ARRAY
HLRZM T2,0(T1) ;STORE THE YEAR
ADDI T2,1 ;GET MON IN T2 RIGHT HAND SIDE
HRRZM T2,1(T1) ;STORE THE MONTH
HLRZ T2,T3 ;GET DOW-1 INTO T2
ADDI T2,1 ;DOW NOW IN T2
HRRZM T2,2(T1) ;STORE THE DAY OF MONTH
POP P,T4
POP P,T3
POP P,T2
POP P,T1
RET ;RETURN CONTROL TO CALLING ROUTINE
END

Removing the "quoted printable" "formatting"...

David Todd <hdtodd@gmail.com> writes:

C NDTEST.FOR - Test NDATE subroutine

PROGRAM NDTEST
INTEGER DATSTR(3)
CALL MDATE (DATSTR)
TYPE 10, DATSTR(1), DATSTR(2), DATSTR(3)
10 FORMAT(' Today''s date is: ', I4, '\', i2, '\', i2)
STOP
END

cat ndate.mac

TITLE NDATE - FORTRAN Subroutine to return date in 3rd millenium
SEARCH MONSYM,MACSYM
.REQUIRE SYS:MACREL
; ; Replaces FORTRAN library DATE subroutine, which was not Y2K compatible
; ; Calling sequence
; CALL MDATE(A)
; where A is a 3-word array
; Returns the date as 3 integers, YYYY, MM, DD in that array
; MM = 1..12 and dd 1..{28, 30, 31}
; ; Written by H D Todd, Williston, VT, March, 2022
; T0==0
T1==1
T2==2
T3==3
T4==4
L==16
P==17
; ENTRY MDATE
SIXBIT /MDATE/
MDATE: PUSH P,T1 ;SAVE REGS WE USE
PUSH P,T2
PUSH P,T3
PUSH P,T4
MOVX T2,-1 ;GET TODAY'S DATE AS COMPONENTS
SETZ T4,
ODCNV%
;RESULTS COME BACK AS
;T2: YEAR,,MONTH-1
;T3: DAY-OF-MONTH-1,,DAY-OF-WEEK-1
;T4: FLAGS FROM CONVERSION
HRRZ T1,0(L) ;GET THE ADDRESS OF THE OUTPUT ARRAY
HLRZM T2,0(T1) ;STORE THE YEAR
ADDI T2,1 ;GET MON IN T2 RIGHT HAND SIDE
HRRZM T2,1(T1) ;STORE THE MONTH
HLRZ T2,T3 ;GET DOW-1 INTO T2
ADDI T2,1 ;DOW NOW IN T2
HRRZM T2,2(T1) ;STORE THE DAY OF MONTH
POP P,T4
POP P,T3
POP P,T2
POP P,T1
RET ;RETURN CONTROL TO CALLING ROUTINE
END

--
Rich Alderson news@alderson.users.panix.com
Audendum est, et veritas investiganda; quam etiamsi non assequamur,
omnino tamen proprius, quam nunc sumus, ad eam perveniemus.
--Galen