; This file updates SRDINI.MAC;1 from SRD V6.4. SRDINI.MAC;2/AU=SRDINI.MAC;1 \ -/.IDENT/,. .IDENT -6.5- ; Jan-85 -/changed from BITB/ ; ; ; VERSION 6.5 - 16-Jan-85 (;WG001) ; ; SRD Working Group ; ; Add the /AP switch to append the listing to an existing file. ; Interpret the input file spec and switches before opening ; the output file to allow /AP on either the output or input ; file specification. ; Use decimal format for file version numbers in P/OS. ; ;= -.,.+2 % -,,/;WG001/ -/.MCALL...GTIM$S/ .MCALL FDOP$R -/CSI$SW...H2SW/+1 CSI$SW AP,APSW,SWMS3$,SET,NEG -/,HVVAL/,. .IF DF P$$OS CSI$SV DECIMAL,LVNUM$,2,HVVAL .IFF ;P$$OS CSI$SV OCTAL,LVNUM$,2,HVVAL .ENDC ;P$$OS -/LOOP:/ -/5$:/ -/COMMAND ERROR/,/PARSER:/ -/CMDOK:/ -/30$:/ -/CALL....OPFNB/,/40$:/ -/BCS...CS2IER/ ; Open the listing file after input spec switches are determined in order ; to allow the /AP switch on either the output or input specification FDOP$R #LSTFDB,,,,#FO.WRT ; Set write access for listing file BIT #APSW,SWMS3$ ; Was /APPEND switch specified? BEQ 35$ ; EQ - no, open new listing file FDOP$R #LSTFDB,,,,#FO.APD ; Set append access for listing file MOV LSTFDB+F.FNB+N.FVER,R1 ; Save desired file version number CALL .OPFNB ; Try to open the listing file for append BCC DEVATT ; CC - file opened OK ; Could not open file for append MOV R1,LSTFDB+F.FNB+N.FVER ; Restore desired file version number BEQ 32$ ; EQ - highest version (;0) FERR OPNAPF ; Fatal open append (for non-zero file version) ; 32$: DIAG OPNAPW ; Issue warning for open append error (;0) FDOP$R #LSTFDB,,,,#FO.WRT ; Set write access, removing append access 35$: CALL .OPFNB ; Try to open a new listing file BCC DEVATT ; CC - file opened OK FERR OPNO ; Fatal open on output file ; ; Command errors ; CS1ERR: FERR CS1E CS2IER: FERR CS2I CS2OER: FERR CS2O CMDERR: FERR GCME PARSER: FERR PRSE ; DEVATT: /