CORR

* SUBR CORRELATION REV H-10 PAGE 2

0051 00056 -0 02 00367 LDA* STO^ GET NOISE LEVEL 0052 00057 0414 65 LGL 11 0053 00060 0 06 00372 ADD TEMP 0054 00061 -0 01 00000 JMP* CORR 0055 00062 0 000000 CORL DAC ** 0056 00063 101000 NOP CORRELATION 0057 00064 0 10 00246 JST RSET 0058 00065 0 02 00362 LDA TOT! 0059 00066 0 04 00363 STA TOT1 0060 00067 0 02 00513 LDA =-40 0061 00070 0 04 00370 STA TIME 0062 00071 140040 CRA 0063 00072 -0 04 00357 STA* TOP 0064 00073 0 12 00357 IRS TOP 0065 00074 0 12 00370 IRS TIME 0066 00075 0 01 00072 JMP *-3 0067 00076 101000 NOP 0068 00077 0 10 00246 JST RSET 0069 00100 0 02 00366 LDA STO! 0070 00101 0 06 00524 ADD =2 0071 00102 0 04 00367 STA STO^ 0072 00103 0 12 00371 IRS REPT 0073 00104 0 10 00161 GR1 JST READ TRANSFER BUFFER 0074 00105 0 12 00357 IRS TOP 0075 00106 0 12 00360 IRS BOT 0076 00107 0 12 00371 IRS REPT 0077 00110 0 01 00104 JMP GR1 0078 00111 101000 NOP 0079 00112 140040 CRA 0080 00113 0 04 00436 STA BIT2 0081 00114 0 10 00246 GR4 JST RSET 0082 00115 -0 02 00360 LDA* BOT 0083 00116 0416 70 ALR 8 0084 00117 0 04 00435 STA BIT1 0085 00120 0 03 00512 ANA ='377 0086 00121 0 06 00436 ADD BIT2 0087 00122 -0 04 00360 STA* BOT 0088 00123 0 02 00435 LDA BIT1 0089 00124 0 03 00511 ANA ='177400 0090 00125 0 04 00436 STA BIT2 0091 00126 0 12 00360 IRS BOT 0092 00127 0 12 00371 IRS REPT 0093 00130 0 01 00115 JMP GR4+1 0094 00131 -0 04 00360 STA* BOT 0095 00132 101000 NOP 0096 00133 0 10 00220 JST ERA ERA WITHOUT SHIFT 0097 00134 140040 CRA 0098 00135 0 04 00436 STA BIT2 0099 00136 0 02 00510 LDA =-16 0100 00137 0 04 00353 STA M16