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

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

4651 10200 0 02 00717 LDA K101 GO TO 4652 10201 0 06 00717 ADD K101 P = - OR + 4653 10202 0 04 00600 STA P 4654 10203 0 02 00041 CA18 LDA I 4655 10204 0 04 00000 STA 0 J=I 4656 10205 1 02 15402 CA20 LDA DP+2,1 4657 10206 1 04 15400 STA DP,1 AOIN(J) = AOIN(J+2) 4658 10207 1 02 15403 LDA DP+3,1 4659 10210 1 04 15401 STA DP+1,1 4660 10211 140100 SSP 4661 10212 101040 SNZ 4662 10213 0 01 10217 JMP CA22 4663 10214 0 12 00000 IRS XR J = J+2 4664 10215 0 12 00000 IRS XR 4665 10216 0 01 10205 JMP CA20 4666 10217 0 10 02676 CA22 JST STXI 4667 10220 1 02 15401 LDA DP+1,1 4668 10221 140100 SSP IF O (I) = , 4669 10222 0404 67 LGR 9 4670 10223 0 11 00600 CAS P 4671 10224 0 01 10230 JMP CA24 4672 10225 0 11 00752 CAS K134 4673 10226 0 01 10230 JMP CA24 4674 10227 0 01 10256 JMP CA30 GO TO CA30 4675 10230 0 10 10335 CA24 JST ST00 TRIAD SEARCH 4676 10231 0 02 00600 LDA P 4677 10232 0 11 00751 CAS K132 IF P = +,*, AND, OR 4678 10233 0 01 10254 JMP CA28 4679 10234 0 01 10301 JMP CA37 GO TO CA37 4680 10235 0 11 00725 CAS K107 4681 10236 0 01 10254 JMP CA28 ELSE, GO TO CA26 4682 10237 0 01 10301 JMP CA37 4683 10240 0 11 00724 CAS K106 4684 10241 0 01 10254 JMP CA28 4685 10242 0 01 10301 JMP CA37 4686 10243 0 11 00721 CAS K103 4687 10244 0 01 10254 JMP CA28 4688 10245 0 01 10301 JMP CA37 4689 10246 0 11 00717 CAS K101 4690 10247 0 01 10251 JMP CA26 4691 * 4692 * 4693 * 4694 10250 0 01 10301 JMP CA37 4695 10251 0 11 00720 CA26 CAS K102 4696 10252 0 01 10254 JMP *+2 IF P = - 4697 10253 0 01 10276 JMP CA35 GO TO 4698 10254 0 02 00576 CA28 LDA O1 4699 10255 0 10 10404 JST TC00 TEMP STORE CHECK 4700 10256 0 02 00577 CA30 LDA O2