CORR

* SUBR CORRELATION REV H-10 PAGE 5

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 VALUE 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 CENTRE 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 0229 00340 0 07 00443 SUB PAS2 GET NEG OF RIGHT 0230 00341 0 04 00372 OUT STA TEMP 0231 00342 0 05 00501 ERA ='400 0232 00343 101040 SNZ 0233 00344 0 01 00351 JMP ZERO 0234 00345 0 02 00372 LDA TEMP 0235 00346 0 03 00500 ANA ='37 0236 00347 101000 NOP 0237 00350 -0 01 00062 JMP* CORL 0238 00351 140040 ZERO CRA 0239 00352 0 01 00341 JMP OUT 0240 00353 000000 M16 BSZ 1 0241 00354 177757 REP! DEC -17 0242 00355 177400 TIM! DEC -256 0243 00356 0 000373 TOP! DAC LFT$ 0244 00357 0 000373 TOP DAC LFT$ 0245 00360 000000 BOT BSZ 1 0246 00361 0 000414 BOT! DAC LFT$+17 0247 00362 0 000455 TOT! DAC TOT$ 0248 00363 0 000455 TOT1 DAC TOT$ 0249 00364 000000 LEFT BSZ 1 0250 00365 000000 RGHT BSZ 1