.TITLE DATASC ;+ ; DATASC is a fortran callable routine to convert the internal RT11 ; INTEGER*2 date format to the ASCII dd-mmm-yy format. ; ; Input parameter: intdat (Integer*2) ; Output parameter: datstr (logical*1 strng(9)) ; ; The calling sequence is: ; CALL DATASC ( intdat , datstr ) ; ; Actions: ; Calls $DATI with date word in R0. $DATI returns the ; month, day, and year in R0, R1, and R2 respectively. ; R3 and R4 are destroyed. ; ; Calls $DAT$ to convert the month, day, and year in ; R0, R1, and R2 to an ASCII string in dd-mmm-yy format. ; R0 through R4 are destoyed. ;- .DATAS==1 .PSECT SYS$I I,LCL,REL,CON .GLOBL $DATI, $DAT$ DATASC:: TST (R5)+ ; variable count not used MOV @(R5)+,R0 ; copy date value MOV @R5,R5 ; copy string buffer address CALL $DATI ; convert to 3 integer CALL $DAT$ ; convert to ascii string RETURN .END