FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 185

6134 11743 0 04 11674 STA T0OT T0 = 0 6135 11744 0 04 00077 STA IFLG 6136 11745 0 04 11676 OT06 STA T1OT T1 = I 6137 11746 0 02 00626 OT10 LDA I 6138 11747 0 07 00737 SUB K103 I = I-3 6139 11750 0 04 00626 STA I 6140 11751 0 04 00000 STA 0 6141 11752 0 04 11675 STA T2OT T2 = I 6142 11753 0 07 00627 SUB L 6143 11754 100400 SPL 6144 11755 0 01 12225 JMP OT60 IF FINISHED, GO TO OT60 6145 11756 1 02 17402 LDA DP+2,1 6146 11757 140100 SSP CHECK P (I) 6147 11760 0 11 00701 CAS K139 X 6148 11761 0 01 11763 JMP *+2 6149 11762 0 01 11746 JMP OT10 6150 11763 0 11 00700 CAS K138 H 6151 11764 0 01 11766 JMP *+2 6152 11765 0 01 11746 JMP OT10 6153 11766 0 11 00760 CAS K142 I 6154 11767 0 01 11771 JMP *+2 6155 11770 0 01 12216 JMP OT50 6156 11771 0 11 00761 CAS K143 T 6157 11772 0 01 11774 JMP *+2 6158 11773 0 01 12207 JMP OT40 6159 11774 0 11 12423 CAS OM50 Q 6160 11775 0 01 11777 JMP *+2 6161 11776 0 01 12140 JMP OT35 6162 11777 0 04 11677 STA T3OT SAVE P 6163 12000 1 02 17401 LDA DP+1,1 6164 12001 0 04 00625 STA A A = O1(I) 6165 12002 0 11 11676 CAS T1OT 6166 12003 0 01 12005 JMP *+2 6167 12004 0 01 12054 JMP OT30 6168 12005 0 11 00113 CAS L0 6169 12006 0 01 12061 JMP OT16 6170 12007 0 01 12232 JMP OT99 MAYBE SPECIAL LOAD FOR (A=) STATEMENT 6171 12010 0 01 12061 JMP OT16 6172 12011 0 35 00626 OT18 LDX I 6173 12012 1 02 17400 LDA DP,1 6174 12013 0 04 00625 STA A A = O2 (I) 6175 12014 1 02 17402 LDA DP+2,1 6176 12015 140100 SSP 6177 12016 0 10 12247 JST OM00 OUTPUT ITEM(P(I),A = O2(I)) 6178 12017 0 35 00626 OT22 LDX I 6179 12020 1 02 17402 LDA DP+2,1 6180 12021 101400 SMI 6181 12022 0 01 12052 JMP OT28 6182 12023 140040 CRA ASSIGN TEMP STOR 6183 12024 0 04 00054 STA NT NT = 0