Previous File Previous Page Single Page Next Page Next File

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

4701 10257 0 10 10404 JST TC00 TEMP STORE CHECK 4702 10260 0 10 10436 CA31 JST ET00 ENTER TRIAD 4703 10261 0 10 02676 CA32 JST STXI 4704 10262 0 02 00576 LDA O1 4705 10263 1 04 15400 STA DP,1 4706 10264 1 02 15401 LDA DP+1,1 4707 10265 0400 61 LRL 15 4708 10266 0 02 10034 LDA T0CA 4709 10267 0404 61 LGR 15 4710 10270 0410 61 LLL 15 4711 10271 1 04 15401 STA DP+1,1 4712 10272 0 02 10036 LDA T2CA IF T2 NOT ZERO, 4713 10273 100040 SZE 4714 10274 0 01 10043 JMP CA04 GO TU CA04 4715 10275 -0 01 10040 JMP* CA00 ELSE, RETURN 4716 10276 0 02 10034 CA35 LDA T0CA 4717 10277 0 05 15034 ERA ='100000 4718 10300 0 04 10034 STA T0CA 4719 10301 0 02 00577 CA37 LDA O2 4720 10302 0 13 00576 IMA O1 O1 * = O2 4721 10303 0 04 00577 STA O2 4722 10304 101040 SNZ IF 02 = 0, 4723 10305 0 01 10261 JMP CA32 GO TO CA32 4724 * 4725 * 4726 * 4727 10306 0 10 10335 JST ST00 TRIAD SEARCH 4728 10307 0 02 10034 LDA T0CA 4729 10310 101400 SMI 4730 10311 0 01 10254 JMP CA28 GO TO CA28 4731 10312 0 02 00600 LDA P 4732 10313 0 01 10251 JMP CA26 ELSE, GO TO CA26 4733 10314 0 07 00746 CA39 SUB K128 4734 10315 101040 SNZ IF P = , OR 4735 10316 0 01 10043 JMP CA04 4736 10317 0 02 10035 LDA T1CA 4737 10320 0 07 00722 SUB K104 4738 10321 100040 SZE ELSE, 4739 10322 0 01 10203 JMP CA18 GO TO CA18 4740 10323 0 01 10043 JMP CA04 4741 10324 0 02 10035 CA45 LDA T1CA 4742 10325 0 04 00041 STA I I = T1 4743 10326 0 04 10036 STA T2CA 4744 10327 140040 CRA 4745 10330 0 04 10034 STA T0CA * * * * * * * * * * * 4746 10331 0 04 00577 STA O2 O2 = C = 0 4747 10332 0 07 00731 SUB K110 P = C 4748 10333 0 04 00600 STA P 4749 10334 0 01 10230 JMP CA24 GO TO CA24 4750 * IF THE CURRENT TRIAD (IN WORKING STORAGE) MATCHES
Previous File Previous Page Single Page Next Page Next File