* SUBR CORRELATION REV H- PAGE 3
0115 00156 0 01 00140 JMP GR2
0116 00157 101000 NOP
0117 00160 0 01 00256 JMP GR3
0118 00161 0 000000 READ DAC **
0119 00162 0 02 00510 LDA =-16
0120 00163 0 04 00353 STA M16
0121 00164 -0 02 00367 LDA*
STO^
0122 00165 0 03 00447 ANA MK1
0123 00166 100040 SZE
0124 00167 0 05 00450 ERA MK2
0125 00170 -0 06 00357 ADD*
TOP
0126 00171 0416 77 ALR 1
0127 00172 -0 04 00357 STA*
TOP
0128 00173 -0 02 00367 LDA*
STO^
0129 00174 0 03 00451 ANA MK3
0130 00175 100040 SZE
0131 00176 0 05 00452 ERA MK4
0132 00177 -0 06 00360 ADD*
BOT
0133 00200 0416 77 ALR 1
0134 00201 -0 04 00360 STA*
BOT
0135 00202 0 12 00367 IRS STO^
0136 00203 0 12 00353 IRS M16
0137 00204 0 01 00164 JMP READ+3
0138 00205 -0 01 00161 JMP*
READ
0139 00206 0 000000 ADBT DAC **
0140 00207 0 03 00506 ANA =1
0141 00210 100040 SZE
0142 00211 0 12 00442 IRS TOT
0143 00212 0 02 00372 LDA TEMP
0144 00213 101040 SNZ
0145 00214 -0 01 00206 JMP*
ADBT
0146 00215 0404 77 LGR 1
0147 00216 0 04 00372 STA TEMP
0148 00217 0 01 00207 JMP ADBT+1
0149 00220 0 000000 ERA DAC **
0150 00221 0 10 00246 JST RSET
0151 00222 140040 CRA
0152 00223 0 04 00442 STA TOT
0153 00224 -0 02 00357 LDA*
TOP
0154 00225 -0 05 00360 ERA*
BOT
0155 00226 0 04 00372 STA TEMP
0156 00227 0 12 00357 IRS TOP
0157 00230 0 12 00360 IRS BOT
0158 00231 0 10 00206 JST ADBT
0159 00232 0 02 00442 LDA TOT
0160 00233 0 06 00441 ADD TOTT
0161 00234 0 04 00441 STA TOTT
0162 00235 0 12 00371 IRS REPT
0163 00236 0 01 00222 JMP ERA+2
0164 00237 0 02 00441 LDA TOTT
0165 00240 -0 04 00363 STA*
TOT1
0166 00241 140040 CRA
0167 00242 0 04 00441 STA TOTT
0168 00243 0 12 00363 IRS TOT1
0169 00244 0 10 00246 JST RSET
0170 00245 -0 01 00220 JMP*
ERA
0171 00246 0 000000 RSET DAC **