FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 186

6184 12025 0 02 00736 LDA K102 6185 12026 0 04 00710 STA IU IU = VAR 6186 12027 0 02 11674 LDA T0OT 6187 12030 0400 72 LRL 6 6188 12031 0 02 00635 LDA TCF ID = 6189 12032 0400 75 LRL 3 T$-IM-TCF-T0 6190 12033 0 02 00630 LDA MFL 6191 12034 0 04 00706 STA IM 6192 12035 0410 67 LLL 9 6193 12036 0 10 13272 JST OR80 6194 12037 0 000774 DAC ID 6195 12040 0 02 12240 LDA K77 6196 12041 0 04 00774 STA ID 6197 12042 0 12 11674 IRS T0OT T0 = TD+1 6198 12043 0 10 02762 JST AS00 ASSIGN ITEM 6199 12044 0 35 00626 LDX I 6200 12045 0 02 00625 LDA A 6201 12046 1 04 17400 STA DP,1 O2(I) = A 6202 12047 0 02 00753 LDA K153 6203 12050 140500 SSM SURPRESS TRACE OF TEMPORARY STORAGE 6204 12051 0 10 12247 JST OM00 OUTPUT ITEM (=,A) 6205 12052 0 02 00626 OT28 LDA I 6206 12053 0 01 11745 JMP OT06 6207 12054 0 35 00625 OT30 LDX A 6208 12055 1 02 17402 LDA DP+2,1 6209 12056 140100 SSP IF P (A) = 0 6210 12057 100040 SZE 6211 12060 0 01 12063 JMP OT32 6212 12061 0 02 12427 OT16 LDA K152 GENERATE FETCH 6213 12062 0 10 12247 JST OM00 OUTPUT ITEM 6214 12063 0 02 11677 OT32 LDA T3OT CHECK FOR RELATIONALS 6215 12064 0 07 00744 SUB K125 ='1O 6216 12065 100400 SPL 6217 12066 0 01 12011 JMP OT18 NOT LOGICAL OPERATOR 6218 12067 0 07 00742 SUB K106 =6 6219 12070 101400 SMI 6220 12071 0 01 12011 JMP OT18 NOT A LOGICAL OPERATOR 6221 12072 0 04 00000 STA 0 SET INDEX = -1 TO -6 6222 12073 0 02 00737 LDA K103 =3 (LOG) 6223 12074 0 13 00630 IMA MFL SET MODE TO LOGICAL 6224 12075 0 11 00741 CAS K105 CHECK PREVIOUS MODE 6225 12076 100000 SKP 6226 12077 0 01 12135 JMP OT3H IF IT WAS COMPLEX, FLAG ERROR 6227 12100 140040 CRA 6228 12101 0 04 00625 STA A SET FOR OCTAL ADDRESS 6229 12102 1 01 12111 JMP *+7,1 BRANCH TO OPERATOR PROCESSOR 6230 12103 0 01 12133 JMP OT3G .LT. 6231 12104 0 01 12127 JMP OT3E .LE. 6232 12105 0 01 12120 JMP OT3C .EQ. 6233 12106 0 01 12116 JMP OT3B .GE.