Previous File Previous Page Single Page Next Page Next File

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

4101 07153 0 02 00743 LDA K125 =8 4102 07154 0 04 07032 STA T1EX T1 = 8 4103 07155 0 10 02676 JST STXI 4104 07156 1 02 15377 LDA DP-1,1 4105 07157 0 03 00735 ANA K118 4106 07160 0 07 00642 SUB B 8 .GT. I (I-2) -B 4107 07161 0 07 07032 SUB T1EX 4108 07162 100400 SPL 4109 07163 0 01 07166 JMP *+3 4110 07164 0 10 03116 EX19 JST ER00 NO, ERROR 4111 07165 147324 BCI 1,NT LOGICAL .NOT. NOT A UNARY OPERATOR 4112 07166 0 02 07031 EX20 LDA T0EX YES 4113 07167 100040 SZE T (0) = 0 4114 07170 0 01 07230 JMP EX34 4115 07171 0 02 00642 EX22 LDA B YES, 4116 07172 0 06 00664 ADD F B + + (5) .GT. 0 4117 07173 100400 SPL NO, ERROR 4118 07174 0 01 10012 JMP EX96 4119 07175 0 10 02676 EX24 JST STXI 4120 07176 0 02 00607 LDA TC 4121 07177 0414 67 LGL 9 4122 07200 0 06 07032 ADD T1EX 4123 07201 0 06 00642 ADD B 4124 07202 1 04 15401 STA DP+1,1 OI(I) = TC , T1+B 4125 07203 0 10 10016 JST EX99 DATA POOL CHECK 4126 07204 0 01 07123 JMP EX14 4127 07205 0 10 02676 EX26 JST STXI 4128 07206 1 02 15377 LDA DP-1,1 4129 07207 0 03 00735 ANA K118 IF I (I-2) .LT. B 4130 07210 0 11 00642 CAS B 4131 07211 0 01 10014 JMP EX97 ERROR-----MULTIPLE + OR - SIGNS 4132 07212 101000 NOP 4133 07213 0 02 00750 EX30 LDA K131 SET INDEX TO 4134 07214 0 04 00000 STA 0 SEARCH OPERATOR TABLE FOR TRAILING 4135 07215 1 02 07772 EX31 LDA EX92+14,1 OPERATOR AFTER HAVING ENCOUNTERED AN 4136 07216 0 07 00607 SUB TC ITEM 0R A NEGATE, 4137 07217 100040 SZE 4138 07220 0 01 07226 JMP EX32 4139 07221 1 02 10010 LDA EX93+14,1 4140 07222 0 04 07225 STA *+3 4141 07223 0 10 02676 JST STXI 4142 07224 -0 01 07225 JMP* *+1 4143 07225 0 000000 DAC ** 4144 07226 0 12 00000 EX32 IRS XR CONTROL OPERATOR LOOP 4145 07227 0 01 07215 JMP EX31 CONTINUE 4146 07230 0 02 00642 EX34 LDA B IF B = 0 4147 07231 0 07 07037 SUB EXT7 4148 07232 100040 SZE 4149 07233 0 01 07274 JMP EX40 NO, GO TO EX40 4150 07234 0 02 07031 LDA T0EX IF T (0) = 0
Previous File Previous Page Single Page Next Page Next File