PROCEDUREv2.10 ; STEREO CAPTURE AND ANALYSIS PROCEDURE WITH DOS ERASE OUTFILE.DAT/R; STEREO SEPARATION L-R & R-L PLOTTED ON SAME LOAD TEST trg-resp/R ; GRAPH, DIFFERENTIAL GAIN PLOTTED WITH PHASE /F9/A6/E SAVE TEST response/Ry ;saves absolute response of both stereo channels NAMES DELTA response/R ;establishes same file on disk as "delta" reference COMPUTE DELTA 1,2/R ;subtracts right channel on disk from left in memory SAVE DATA INFILE2/Ry ;resulting channel imbalance saved as ASCII data file LOAD OVERLAY phasgain/R;interchannel phase as DATA-1, amplitude units in DATA-2 /A6/E ;obtains interchannel phase from acquired waveform SAVE DATA INFILE1/RY ;saves phase as ASCII data file DOS COMBINE -3/R ;combines phase into DATA-1 and chan. balance into DATA-2 LOAD DATA OUTFILE/R ;loads combined data PANEL ‡/E ;restores punched-out fields so .OVL can save as .TST SAVE TEST phasgain/R yLOAD OVERLAY dist-ste/R /A6/E PANEL ‡/E SAVE TEST distort/R yLOAD OVERLAY nois-ste/R /A6/E PANEL ‡/E SAVE TEST noise/R LOAD OVERLAY hum-ste/R ; REMOVE THESE FOUR LINES WHEN HUM /A6/E ; MEASUREMENTS ARE NOT DESIRED, OR PANEL ‡/E ; NOT POSSIBLE DUE TO USE OF WAVEFORM SAVE TEST hum/R ; WITH "N_" AS 6TH & 7TH CHARACTERS. LOAD OVERLAY sep-l-r/R ; attached .SWP file has left channel unique freq's /A6/E PANEL ‡/E SAVE TEST sep-l-r/R ; DATA-1 driven channel (left), DATA-2 right NAMES DELTA sep-l-r/R ; establishes same file on disk as reference COMPUTE DELTA 2,1/R ; subtracts left from right, results into DATA-2 COMPUTE EXCHANGE/E ; exchanges DATA-2 into DATA-1 SAVE DATA INFILE1/Ry ; saves result as ASCII data file LOAD OVERLAY sep-r-l/R ; attached .SWP file has right channel unique freq's /A6/E PANEL ‡/E SAVE TEST sep-r-l/R ; DATA-2 driven (right), DATA-1 left NAMES DELTA sep-r-l/R ; establishes same file on disk as reference COMPUTE DELTA 1,2/R ; subtracts right from left, results into DATA-1 SAVE DATA INFILE2/Ry ; saves result as ASCII data file DOS COMBINE -3/R ; combines results of separation L-R and R-L LOAD DATA OUTFILE/R ; loads ASCII data SAVE TEST separati/R ; saves result UTIL END