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

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

4601 10116 0 04 00600 STA P 4602 10117 000201 IAB 4603 10120 0 04 00000 STA XR 4604 10121 0 02 10030 CA13 LDA K130 4605 10122 0 13 00000 IMA XR 4606 10123 000201 IAB 4607 10124 0 02 00600 LDA P 4608 10125 1 11 10426 CAS CA90+8,1 4609 10126 0 01 10130 JMP *+2 4610 10127 0 01 10137 JMP CA50 4611 10130 0 12 00000 IRS XR 4612 10131 0 01 10125 JMP *-4 4613 10132 000201 IAB 4614 10133 0 04 00000 STA XR 4615 10134 000201 IAB 4616 10135 1 02 15401 LDA DP+1,1 4617 10136 0 01 10140 JMP *+2 4618 10137 140040 CA50 CRA 4619 10140 0 04 10034 STA T0CA 4620 10141 000201 IAB 4621 10142 0 04 00000 STA XR 4622 10143 1 02 15400 CA14 LDA DP,1 4623 10144 0 04 00576 STA O1 O1=A(I) 4624 10145 1 02 15402 LDA DP+2,1 4625 10146 0 04 00577 STA O2 O2 = A (I+2) 4626 10147 0 02 10036 LDA T2CA 4627 10150 101040 SNZ 4628 10151 0 01 10301 JMP CA37 IF ZER0, GO TO CA37 4629 10152 1 02 15377 LDA DP-1,1 4630 10153 140100 SSP 4631 10154 0404 67 LGR 9 4632 10155 0 04 10035 STA T1CA 4633 10156 1 02 15377 LDA DP-1,1 4634 10157 0 03 00735 ANA K118 IF T2 .GT. I (I-2) 4635 10160 0 07 10036 SUB T2CA 4636 10161 100400 SPL 4637 10162 0 01 10203 JMP CA18 4638 10163 100040 SZE 4639 10164 0 01 10043 JMP CA04 4640 10165 0 02 00577 LDA O2 4641 10166 0 07 10457 SUB ACCP 4642 10167 100040 SZE 4643 10170 0 01 10043 JMP CA04 4644 10171 0 02 00600 LDA P 4645 10172 0 07 00721 SUB K103 4646 10173 101400 SMI 4647 10174 0 01 10314 JMP CA39 4648 10175 0 02 10035 LDA T1CA 4649 10176 0 07 00600 SUB P 4650 10177 100040 SZE