FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 133

4273 06655 0 01 06553 JMP EX55 4274 06656 0 35 00626 EX62 LDX I 4275 06657 1 02 17377 LDA DP-1,1 DOES O(I-2) = * 4276 06660 140100 SSP 4277 06661 0404 67 LGR 9 4278 06662 0 11 00737 CAS K103 4279 06663 0 01 06665 JMP *+2 4280 06664 0 01 06736 JMP EX66 YES. 4281 06665 101040 SNZ NO. 4282 06666 0 01 06722 JMP EX64 O(I-2) = 0 - YES 4283 06667 0 11 00677 CAS K132 DOES O(I-2) = A 4284 06670 0 01 06676 JMP EX63 4285 06671 0 01 06673 JMP *+2 YES 4286 06672 0 01 06676 JMP EX63 4287 06673 0 02 06220 LDA T2EX IS T2 = 0 4288 06674 101040 SNZ 4289 06675 0 01 06727 JMP EX65 YES (DUMMY ARRAY (1,1,1)) 4290 06676 0 02 00735 EX63 LDA K101 4291 06677 1 04 17377 STA DP-1,1 OI(I-2) = 1 4292 06700 0 02 06220 LDA T2EX A(I) = T2 4293 06701 1 04 17400 STA DP,1 4294 06702 0 02 06721 LDA K137 O='X' ('24), I=2 4295 06703 1 04 17401 STA DP+1,1 4296 06704 140040 CRA 4297 06705 1 04 17403 STA DP+3,1 OI(I+2) = 0 4298 06706 0 02 06222 LDA T5EX 4299 06707 1 04 17402 STA DP+2,1 A(I+2) = T5 4300 06710 0 10 07106 JST EX99 DATA POOL CHECK 4301 06711 0 10 07125 JST CA00 SCAN 4302 06712 0 02 00057 LDA O1 4303 06713 0 04 00625 STA A A = O1 4304 06714 0 35 00625 LDX A 4305 06715 1 02 17402 LDA DP+2,1 S(A) = NON-ZERO 4306 06716 140500 SSM 4307 06717 1 04 17402 STA DP+2,1 S(A) = 1 4308 06720 0 01 06475 JMP EX44 4309 06721 024002 K137 OCT 24002 4310 06722 0 02 00113 EX64 LDA L0 4311 06723 1 04 17400 STA DP,1 A(I) = L0 4312 06724 0 10 07106 JST EX99 DATA POOL CHECK 4313 06725 0 35 00626 LDX I 4314 06726 0 01 06676 JMP EX63 4315 06727 0 02 00626 EX65 LDA I 4316 06730 0 07 00740 SUB K104 4317 06731 0 04 00626 STA I I = I-4 4318 06732 0 02 06222 LDA T5EX 4319 06733 1 04 17374 STA DP-4,1 A (I) = T5 4320 06734 0 04 00625 STA A 4321 06735 0 01 06475 JMP EX44 4322 06736 0 02 00626 EX66 LDA I