; This file updates SRDINI.MAC;1 from SRD V6.5 to SRDINI.MAC;2 for SRD V6.6. SRDINI.MAC;2/AU=SRDINI.MAC;1 \ -/.IDENT/,. .IDENT -6.6- ; Jun-85 -/;=/,. ; ; Version 6.6 - 12-Jun-85 (;WG6.6) ; ; SRD Working Group ; ; Turn off /HD (command line display) when a listing file is ; not specified. There is no need to display the command ; line when listing files on TI:. ; Move restoring of the original command line to the end of ; the module to correct problem where an output filename ; spec with embedded blanks resulted in a "Directory not ; found" error message. ; ;= % -,,/;WG6.6/ -/DEVATT:/ -/45$:/+1,/43$:/ -/SETUP:/ -/100$:/,. 100$: BIT #OUTFSW,FLAGS$ ; Listing file specified? BNE 110$ ; NE - yes BIC #HDSW,SWMS3$ ; If listing defaults to terminal, set to /-HD 110$: -/SRTDIR:/ -/20$:/ -/RETURN/,. BR INIXIT ; Exit routine -/INIEX:/ -/ALUN$S...#HDRLUN/ ; ; Copy back original command line for including in output later INIXIT: MOV CMDBLK+G.CMLD+2,R1 ; Command start MOV CMDBLK+G.CMLD,R2 ; Command length BEQ 43$ ; EQ - no command string entered MOV #LINBUF,R3 ; Point to copy of original cmd line 44$: MOVB (R3)+,(R1)+ ; Copy back each byte of original command SOB R2,44$ ; Continue to end of command 43$: /