Previous File Previous Page Single Page Next Page Next File

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

4151 07235 100040 SZE 4152 07236 0 01 07251 JMP EX38 NO, GO TO EX38 4153 07237 140040 EX35 CRA 4154 07240 0 04 00652 STA IFLG IFLG = 0 4155 07241 0 02 00664 LDA F 4156 07242 141206 AOA 4157 07243 101400 SMI F . GE. -1 4158 07244 0 01 07246 JMP EX36 YES 4159 07245 -0 01 07041 JMP* EX00 RETURN - NO 4160 07246 0 10 10040 EX36 JST CA00 SCAN 4161 07247 0 10 12700 JST OT00 OUTPUT TRIADS 4162 07250 -0 01 07041 JMP* EX00 RETURN 4163 07251 0 10 02676 EX38 JST STXI 4164 07252 0 02 00642 LDA B 4165 07253 0 07 00726 SUB K109 4166 07254 0 04 00642 STA B 4167 07255 0 02 00721 LDA K103 4168 07256 0 04 00045 STA MFL 4169 07257 0 02 07031 LDA T0EX 4170 07260 0414 67 LGL 9 O (I) = T (0) 4171 07261 0 06 00642 ADD B I (I) = B+9 4172 07262 0 06 00742 ADD K124 I = I+2 4173 07263 1 04 15401 STA DP+1,1 4174 07264 0 10 10016 JST EX99 DATA POOL CHECK 4175 07265 140040 CRA 4176 07266 0 04 07031 STA T0EX T0 = 0 4177 07267 0 04 07037 STA EXT7 T7 = 0 4178 07270 0 02 00113 EX39 LDA L0 4179 07271 0 04 00040 STA A A = L0 4180 07272 0 04 00653 STA IM IM NOT EQ 0 4181 07273 0 01 07066 JMP EX10 4182 07274 0 02 00607 EX40 LDA TC TC 0 , 4183 07275 0 11 00672 CAS K5 ='254 (,) IN BCD MODE 4184 07276 0 01 07300 JMP *+2 4185 07277 0 01 07303 JMP EX41 4186 07300 0 07 00752 SUB K134 =17 4187 07301 100040 SZE 4188 07302 0 01 07316 JMP EX44 NO, GO TO EX44 4189 07303 0 02 00041 EX41 LDA I 4190 07304 0 07 00720 EX42 SUB K102 4191 07305 0 04 00000 STA XR B VS. I (J) 4192 07306 1 02 15401 LDA DP+1,1 4193 07307 0 03 00735 ANA K118 4194 07310 0 11 00642 CAS B 4195 07311 0 01 07314 JMP *+3 4196 07312 0 01 07175 JMP EX24 EQUAL, GO TO EX24 4197 07313 -0 01 07041 JMP* EX00 LESS, RETURN 4198 07314 0 02 00000 LDA XR GREATER, REPEAT LOOP 4199 07315 0 01 07304 JMP EX42 4200 07316 0 10 02555 EX44 JST IP00 ) - INPUT OPERATOR
Previous File Previous Page Single Page Next Page Next File