FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 137

4438 * 4439 * 4440 * 4441 * 4442 * ****************** 4443 * *SCAN * 4444 * *TRIAD SEARCH * 4445 * *TEMP STORE CHECK* 4446 * ****************** 4447 07120 177770 KM8 DEC -8 4448 07121 0 00 00000 T0CA PZE 0 4449 07122 0 00 00000 T1CA PZE 0 4450 07123 0 00 00000 T2CA PZE 0 4451 07124 0 00 00000 T9CA PZE 0 4452 * THE AOIN TABLE IS PROCESSED FROM THE BOTTOM 4453 * UP AND ENTRIES ARE FORMED FOR INCLUSION 4454 * IN THE TRIAD TABLE. LEVELS ARE USED 4455 * TO CONTROL THE ORDER OF ENTRY INTO 4456 * THE TRIADS. SIGN CONTROL IS ALSO 4457 * ACCCMPLISHED IN THIS ROUTINE. 4458 07125 0 000000 CA00 DAC ** 4459 07126 0 02 00113 LDA L0 4460 07127 0 04 07512 STA ACCP INDICATE EMPTY ACCUM 4461 07130 0 35 00626 CA04 LDX I 4462 07131 0 15 07122 STX T1CA T1 = I 4463 07132 1 02 17377 LDA DP-1,1 4464 07133 0 03 00673 ANA K118 IF I (I-2) = O, 4465 * OR .LT. I (I) 4466 07134 0 04 07124 STA T9CA 4467 07135 1 02 17401 LDA DP+1,1 4468 07136 0 03 00673 ANA K118 4469 07137 0 11 07124 CAS T9CA 4470 07140 0 01 07146 JMP CA08 GO TO CA08 4471 07141 101000 NOP 4472 07142 0 02 00626 LDA I 4473 07143 0 07 00736 SUB K102 4474 07144 0 04 00626 STA I I = I-2 4475 07145 0 04 00000 STA 0 4476 07146 1 02 17403 CA08 LDA DP+3,1 4477 07147 1 05 17401 ERA DP+1,1 4478 07150 0 04 07121 STA T0CA 4479 07151 1 02 17401 LDA DP+1,1 4480 07152 0 03 00673 ANA K118 4481 07153 0 04 07123 STA T2CA 4482 07154 1 02 17401 LDA DP+1,1 4483 07155 140100 SSP 4484 07156 0404 67 LGR 9 P = O (I) 4485 07157 0 04 00061 STA P 4486 07160 0 11 00736 CAS K102 IF P IS NOT * OR /, GO TO CCA10 4487 07161 0 11 00741 CAS K105