FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 193

6528 12522 0 01 12531 JMP OM80 P(A)='X' (END OF ARRAY CALCULATION) 6529 12523 0 11 00700 CAS K138 6530 12524 0 01 12526 JMP *+2 6531 12525 0 01 12605 JMP OMHW P(4)= 'H' (HOLLERITH DATA) 6532 12526 0 02 12243 OM78 LDA T2OM 6533 12527 0 04 00625 STA A RESET A 6534 12530 0 01 12301 JMP OM10 6535 * 6536 12531 0 35 00626 OM80 LDX I 6537 12532 0 02 12243 LDA T2OM 6538 12533 1 04 17401 STA DP+1,1 O1(I) = T(2) 6539 12534 0 02 00625 LDA A SAVE A 6540 12535 0 04 12242 STA T1OM 6541 12536 140040 CRA SET A=0 (NOT SYMBOLIC) 6542 12537 0 04 11676 STA T1OT 6543 12540 0 04 00625 STA A 6544 12541 0 02 00643 LDA RPL 6545 12542 0 06 00736 ADD K102 AF=RPL+2 6546 12543 0 04 00025 STA AF 6547 12544 0 02 13025 LDA OMI4 =ADD INSTRUCTION 6548 12545 0 10 13072 JST OR00 OUTPUT RELATIVE 6549 12546 0 02 00643 LDA RPL 6550 12547 0 06 00736 ADD K102 AF = RPL P+ 2 6551 12550 0 04 00025 STA AF 6552 12551 0 02 13026 LDA OMI5 = JMP INSTR. 6553 12552 0 10 13072 JST OR00 OUTPUT RELATIVE 6554 12553 0 02 12242 LDA T1OM 6555 12554 0 04 00625 STA A RESTORE A 6556 12555 0 04 00647 STA SOF SET SPECIAL OUTPUT FLAG TO NON-ZERO 6557 12556 140040 CRA = DAC INSTR. 6558 12557 0 04 12242 STA T1OM 6559 12560 0 02 00735 LDA K101 6560 12561 0 04 00026 STA AT 6561 12562 0 01 12601 JMP OM88 6562 12563 1 02 17401 OM84 LDA DP+1,1 O1(A) 6563 12564 0 04 00625 STA A A=O1(A) 6564 12565 0 11 00113 CAS L0 6565 12566 0 01 12570 JMP *+2 6566 12567 0 01 12573 JMP OM86 A=L(0)....CONSTANT SUPSCRIPT ONLY 6567 12570 0 02 13021 LDA OMI0 T(I) = INDIRECT BIT 6568 12571 0 04 12242 STA T1OM 6569 12572 0 01 12301 JMP OM10 6570 * 6571 12573 0 02 12243 OM86 LDA T2OM A=T(2) 6572 12574 0 04 00625 STA A 6573 12575 0 04 00000 STA 0 6574 12576 0 04 00647 STA SOF 6575 12577 1 02 17400 LDA DP,1 T(2) = O2(A) 6576 12600 0 04 12243 STA T2OM 6577 12601 0 35 00625 OM88 LDX A