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

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

6186 12741 0 04 12677 STA T3OT SAVE P 6187 12742 1 02 15401 LDA DP+1,1 6188 12743 0 04 00040 STA A A = O1(I) 6189 12744 0 11 12676 CAS T1OT 6190 12745 0 01 12747 JMP *+2 6191 12746 0 01 13016 JMP OT30 6192 12747 0 11 00113 CAS L0 6193 12750 0 01 13023 JMP OT16 6194 12751 0 01 13125 JMP OT99 MAYBE SPECIAL LOAD FOR (A=) STATEMENT 6195 12752 0 01 13023 JMP OT16 6196 12753 0 10 02676 OT18 JST STXI 6197 12754 1 02 15400 LDA DP,1 6198 12755 0 04 00040 STA A A = O2 (I) 6199 12756 1 02 15402 LDA DP+2,1 6200 12757 140100 SSP 6201 12760 0 10 13147 JST OM00 OUTPUT ITEM(P(I),A = 02(I)) 6202 12761 0 10 02676 OT22 JST STXI 6203 12762 1 02 15402 LDA DP+2,1 6204 12763 101400 SMI 6205 12764 0 01 13014 JMP OT28 6206 12765 140040 CRA ASSIGN TEMP STOR 6207 12766 0 04 00573 STA NT NT = 0 6208 12767 0 02 00720 LDA K102 6209 12770 0 04 00655 STA IU IU = VAR 6210 12771 0 02 12674 LDA T0OT 6211 12772 0400 72 LRL 6 6212 12773 0 02 00052 LDA TCF ID = 6213 12774 0400 75 LRL 3 TS-IM-TCF-T0 6214 12775 0 02 00045 LDA MFL 6215 12776 0 04 00653 STA IM 6216 12777 0410 67 LLL 9 6217 13000 0 10 14150 JST OR80 6218 13001 0 001475 DAC ID 6219 13002 0 02 13133 LDA K77 6220 13003 0 04 01475 STA ID 6221 13004 0 12 12674 IRS T0OT T0 = T0+1 6222 13005 0 10 03241 JST AS00 ASSIGN ITEM 6223 13006 0 10 02676 JST STXI 6224 13007 0 02 00040 LDA A 6225 13010 1 04 15400 STA DP,1 O2(I) = A 6226 13011 0 02 02702 LDA K153 6227 13012 140500 SSM SURPRESS TRACE OF TEMPORARY STORAGE 6228 13013 0 10 13147 JST OM00 OUTPUT ITEM (=,A) 6229 13014 0 02 00041 OT28 LDA I 6230 13015 0 01 12707 JMP OT06 6231 13016 0 10 02672 OT30 JST STXA 6232 13017 1 02 15402 LDA DP+2,1 6233 13020 140100 SSP IF P (A) = 0 6234 13021 100040 SZE 6235 13022 0 01 13025 JMP OT32