* SUBR CORRELATION REV H- PAGE 4

0172 00247 0 02 00356 LDA TOP! 0173 00250 0 04 00357 STA TOP 0174 00251 0 02 00361 LDA BOT! 0175 00252 0 04 00360 STA BOT 0176 00253 0 02 00354 LDA REP! 0177 00254 0 04 00371 STA REPT 0178 00255 -0 01 00246 JMP* RSET 0179 00256 140040 GR3 CRA 0180 00257 0 04 00437 STA ONE 0181 00260 0 02 00362 LDA TOT! ** GUESS - MISSING LINE * 0182 00261 0 04 00363 STA TOT1 0183 00262 0 02 00505 LDA =-17 0184 00263 0 04 00370 STA TIME FIND LOWEST VALUE 0185 00264 0 02 00504 LDA =-9 0186 00265 0 04 00371 STA REPT 0187 00266 0 02 00503 ST2 LDA ='1000 0188 00267 0 04 00372 STA TEMP 0189 00270 0 12 00437 IRS ONE 0190 00271 -0 02 00363 LDA* TOT1 0191 00272 0 07 00372 SUB TEMP 0192 00273 101400 SMI 0193 00274 0 01 00302 JMP *+6 0194 00275 -0 02 00362 LDA* TOT! 0195 00276 0 04 00372 STA TEMP 0196 00277 0 04 00445 STA VAL2 HOLDS LOWEST VALUE FOR LE 0197 00300 0 02 00437 LDA ONE 0198 00301 0 04 00443 STA PAS2 NO.OF PASS 0199 00302 0 12 00363 IRS TOT1 0200 00303 0 12 00370 IRS TIME 0201 00304 100000 SKP 0202 00305 0 01 00316 JMP GR5 0203 00306 0 12 00371 IRS REPT 0204 00307 0 01 00270 JMP ST2+2 0205 00310 0 02 00445 LDA VAL2 0206 00311 0 04 00446 STA VAL1 0207 00312 0 02 00502 LDA =9 0208 00313 0 07 00443 SUB PAS2 0209 00314 0 04 00444 STA PAS1 0210 00315 0 01 00266 JMP ST2 0211 00316 101000 GR5 NOP 0212 00317 0 02 00443 LDA PAS2 0213 00320 0 07 00502 SUB =9 0214 00321 0 04 00443 STA PAS2 0215 00322 0 02 00445 LDA VAL2 0216 00323 0 07 00446 SUB VAL1 WHICH SIDE HAS LOWEST VAL 0217 00324 101040 SNZ 0218 00325 0 01 00332 JMP EQU THEY ARE EQUAL 0219 00326 100400 SPL SPL 0220 00327 0 01 00337 JMP NEG LEFT IS LOVER 0221 00330 0 02 00444 LDA PAS1 0222 00331 0 01 00341 JMP OUT RIGHT IS LOWER 0223 00332 0 02 00443 EQU LDA PAS2 0224 00333 0 07 00444 SUB PAS1 WHICH SIDE IS NEARER CENT 0225 00334 101040 SNZ 0226 00335 0 01 00351 JMP ZERO THEY ARE EQUAL - 0227 00336 0 01 00326 JMP SPL 0228 00337 140040 NEG CRA