C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 95

4551 * TO CONTROL THE ORDER OF ENTRY INTO 4552 * THE TRIADS. SIGN CONTROL IS ALSO 4553 * ACCOMPLISHED IN THIS ROUTINE. 4554 10040 0 000000 CA00 DAC ** 4555 10041 0 02 00113 LDA L0 4556 10042 0 04 10457 STA ACCP INDICATE EMPTY ACCUM 4557 10043 0 10 02676 CA04 JST STXI ESTABLISH I 4558 10044 0 04 10035 STA T1CA T1 = I 4559 10045 1 02 15377 LDA DP-1,1 4560 10046 0 03 00735 ANA K118 IF I (I-2) = 0, 4561 * OR .LT. I (I) 4562 10047 0 04 10037 STA T9CA 4563 10050 1 02 15401 LDA DP+1,1 4564 10051 0 03 00735 ANA K118 4565 10052 0 11 10037 CAS T9CA 4566 10053 0 01 10061 JMP CA08 GO TO CA08 4567 10054 101000 NOP 4568 10055 0 02 00041 LDA I 4569 10056 0 07 00720 SUB K102 4570 10057 0 04 00041 STA I I = I-2 4571 10060 0 04 00000 STA 0 4572 10061 1 02 15403 CA08 LDA DP+3,1 4573 10062 1 05 15401 ERA DP+1,1 4574 10063 0 04 10034 STA T0CA 4575 10064 1 02 15401 LDA DP+1,1 4576 10065 0 03 00735 ANA K118 4577 10066 0 04 10036 STA T2CA 4578 10067 1 02 15401 LDA DP+1,1 4579 10070 140100 SSP 4580 10071 0404 67 LGR 9 P = O (I) 4581 10072 0 04 00600 STA P 4582 10073 0 11 00720 CAS K102 IF P IS NOT * OR /, GO TO CCA10 4583 10074 0 11 00723 CAS K105 4584 10075 0 01 10100 JMP CA10 4585 10076 0 01 10100 JMP CA10 4586 10077 0 01 10143 JMP CA14 GO T0 CA14 4587 10100 0 02 10034 CA10 LDA T0CA 4588 10101 101400 SMI 4589 10102 0 01 10121 JMP CA13 4590 10103 0 02 10033 LDA KM8 4591 10104 0 13 00000 IMA XR 4592 10105 000201 IAB 4593 10106 0 02 00600 LDA P 4594 10107 1 11 10426 CAS CA90+8,1 4595 10110 0 01 10112 JMP *+2 4596 10111 0 01 10115 JMP *+4 4597 10112 0 12 00000 IRS XR 4598 10113 0 01 10107 JMP *-4 4599 10114 0 01 10324 JMP CA45 4600 10115 1 02 10436 LDA CA91+8,1