; SRDSUB.COR ; ; This file updates SRDSUB.MAC;1 from SRD V6.4. SRDSUB.MAC;2/AU=SRDSUB.MAC;1 \ -/.IDENT/,. .IDENT -6.5- ; Jan-85 -/address ending/ ; ; ; VERSION 6.5 - 16-Jan-85 (;WG001) ; ; SRD Working Group ; ; In the CVDATE routine (in SRDSUB), skip over the first ; byte of the date field if it is blank. When ; VMS BACKUP/IMAGE restores a Structure 1 disk, a file ; date with a single digit day of month is stored in ; the file header with a blank preceding the digit, ; rather than a zero character as is done in RSX. ; (For example, " 4OCT84" rather than "04OCT84".) ; ;= % -,,/;WG001/ -/CVDATE::/ -/$SAVRG/ CMPB #<' >,(R1) ; Is first byte of date field a blank? BNE 5$ ; NE - no INC R1 ; Skip over the blank 5$: /