.TITLE CVTDAT ;+ ; CVTDAT is a fortran callable routine to convert the internal RT11 ; INTEGER*2 date format to separate month, day, and year values: ; ; month is a 0 > month <= 12 INTEGER*2 value ; day is a 0 > day <= 31 INTEGER*2 value ; year is a 71 > year <= 103 INTEGER*2 value ; ; ; Input parameter: intdat (Integer*2) ; Output parameters: month, day, year (Integer*2) ; ; The calling sequence is: ; CALL CVTDAT ( intdat , month , day , year ) ; ; Action: ; Calls $DATI with date value in R0. $DATI returns the ; month, day, and year in R0, R1, and R2 respectively. ; R3 and R4 are destroyed. ; ;- .CVTDA==1 .PSECT SYS$I I,LCL,REL,CON .GLOBL $DATI CVTDAT:: TST (R5)+ ; variable count not used MOV @(R5)+,R0 ; copy date to R0 CALL $DATI ; convert into 3 words MOV R0,@(R5)+ ; copy month, MOV R1,@(R5)+ ; day MOV R2,@(R5)+ ; and year RETURN .END