; This file updates SRDSUB.MAC;1 from SRD V6.3. SRDSUB.MAC;2/AU=SRDSUB.MAC;1 \ -/.IDENT/,. .IDENT -6.4- ; DEC-83 .ENABL LC -/CEF001/+2 ; ; ; VERSION 6.4 - 07-Nov-83 (;BT003) ; ; Bob Turkelson ; SRD Working Group ; ; When the date stored in the file header is corrupt, issue a ; non-fatal diagnostic message. (Previously the same fatal ; message was issued for this situation as was given for when ; an invalid date was specified in the command line.) ; Do not "CLR (R1)" before returning from SRDCOM (SRDSUB). This ; instruction is no longer necessary. It caused a memory ; protection violation problem when compressing a dense ; directory whose length was six or more blocks if SRD was ; built to use the extend task directive, and the end of the ; SRDLST overlay section ($$$XX3) happened to be on a 64-byte ; boundary, or two bytes before such a boundary (that is, with ; address ending in 00 or 76). % -,,/;BT003/ -/SRDCOM:/ -/60$:/ -/CLR...(R1)/,. ; Removed "CLR (R1)" instruction to avoid memory protection violation -/CNVDAT:/ CLC ; Clear C-bit -/30$:/ -/CALL...CVDATE/ BCS 80$ ; CS - return with CS -/50$:/ -/BR...80$/,. BR 80$ ; Return (with either CC or CS) -/CVDATE:/ CLC ; Clear C-bit -/50$:/,. 50$: TST (SP)+ ; Reset stack SEC ; Set C-bit to indicate bad date format BR 80$ ; Return with CS -/70$:/ -/RETURN/,. 80$: RETURN /