CORR

* SUBR CORRELATION REV H-10 PAGE 1

0001 * SUBR CORRELATION REV H-10 0002 * 3-13-70 0003 SUBR CORR 0004 REL 0005 00000 0 000000 CORR DAC ** 0006 00001 -0 01 00002 JMP* GO 0007 00002 0 000003 GO DAC GO+1 0008 00003 0 02 00366 LDA STO! 0009 00004 0 06 00524 ADD =2 0010 00005 0 04 17700 STA '17700 0011 00006 0 02 00477 LDA STR! 0012 00007 0 04 00002 STA GO 0013 00010 0 10 00246 STRT JST RSET 0014 00011 0 02 00355 LDA TIM! 0015 00012 0 04 00370 STA TIME 0016 00013 0 02 00366 LDA STO! 0017 00014 0 04 00367 STA STO^ 0018 00015 54 1006 LOOP INA '1006 ACCOUSTIC LOOP 0019 00016 0 01 00015 JMP *-1 0020 00017 -0 04 00367 STA* STO^ 0021 00020 0 12 00367 IRS STO^ 0022 00021 0 12 00370 IRS TIME 0023 00022 0 01 00015 JMP LOOP 0024 00023 101000 NOP 0025 00024 0 02 00523 LDA ='100000 0026 00025 0 04 00447 STA MK1 0027 00026 140040 CRA 0028 00027 0 04 00450 STA MK2 0029 00030 0 02 00522 LDA ='40000 0030 00031 0 04 00451 STA MK3 0031 00032 0 02 00521 LDA ='140000 0032 00033 0 04 00452 STA MK4 0033 00034 0 10 00062 JST CORL 0034 00035 101000 NOP 0035 00036 0414 73 LGL 5 0036 00037 0 04 00454 STA T+1 0037 00040 0 02 00520 LDA ='20000 0038 00041 0 04 00447 STA MK1 0039 00042 0 02 00517 LDA ='120000 0040 00043 0 04 00450 STA MK2 0041 00044 0 02 00516 LDA ='10000 0042 00045 0 04 00451 STA MK3 0043 00046 0 02 00515 LDA ='110000 0044 00047 0 04 00452 STA MK4 0045 00050 0 10 00062 JST CORL 0046 00051 0 05 00454 ERA T+1 0047 00052 0 04 00372 STA TEMP 0048 00053 0 02 00367 LDA STO^ GET LAST STOR LOCATION 0049 00054 0 07 00514 SUB =3 0050 00055 0 04 00367 STA STO^