; SRDLST.COR
;
; This file updates SRDLST.MAC;1 from SRD V6.4.
SRDLST.MAC;2/AU=SRDLST.MAC;1
\
-/.IDENT/,.
	.IDENT	-6.5-		; Jan-85
-/three times/
;
;
;	VERSION 6.5 - 16-Jan-85		(;WG001)
;
;		SRD Working Group
;
;		Correct bug so that diagnostic message for corrupted date
;		  in file header is not repeated for files with proper dates.
;		Use decimal format for file version numbers in P/OS.
;
;=
-.,.+1
%
-,,/;WG001/
-/LSTE1:/
-/12$:/
-/DIAG...BADDH/
	BIC	#DATERR,FLAGS$	; Clear file-date-corrupt flag
-/CVTNAM:/
-/30$:/
-/CLR...R2/
	.IF DF	P$$OS
	CALL	$CBDMG		; Convert version number to decimal
	.IFF	;P$$OS
-/CALL...$CBOMG/
	.ENDC	;P$$OS
/