SUBROUTINE CLKASC(CLUNK,TMSTMP) C C Routine to convert an 8 byte CLUNK value to a time/date C ascii string. The string is null terminated and always 18 C bytes long in the following format: hh:mm:ss dd-mmm-yy C IMPLICIT INTEGER(A-Z) BYTE CLUNK(8),TMSTMP(20),TEMP(14) C CALL CDTTA(CLUNK,TEMP) ! Let DEC convert DO 10 I=1,13 IF (TEMP(I).NE.0) GO TO 10 TEMP(I) = '0' IF (I.EQ.2) THEN TEMP(I) = '1' ELSEIF (I.EQ.3) THEN TEMP(I) = 'J' ELSEIF (I.EQ.4) THEN TEMP(I) = 'A' ELSEIF (I.EQ.5) THEN TEMP(I) = 'N' ELSE TEMP(I) = '0' ENDIF 10 CONTINUE CALL SCOPY(TEMP(8),TMSTMP(1),2) ! hh CALL APPEND(':',TMSTMP) CALL SCOPY(TEMP(10),TMSTMP(4),2) ! mm CALL APPEND(':',TMSTMP) CALL SCOPY(TEMP(12),TMSTMP(7),2) ! ss CALL APPEND(' ',TMSTMP) CALL SCOPY(TEMP(1),TMSTMP(10),2) ! dd CALL APPEND('-',TMSTMP) CALL SCOPY(TEMP(3),TMSTMP(13),3) ! mmm CALL APPEND('-',TMSTMP) CALL SCOPY(TEMP(6),TMSTMP(17),2) ! yy RETURN END