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

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

1206 02200 0 01 02232 JMP DN9E 1207 02201 0 01 02250 JMP DN9G FINISHED E FACTOR LOOP 1208 02202 0 12 01514 IRS F4 1209 02203 101000 NOP F4 = F4 +1 1210 02204 0 02 01505 LDA K155 DIVIDE LOOP COUNTER 1211 02205 0 04 01504 STA TIDN 1212 02206 0 10 03157 JST SRT 1213 02207 0 001475 DAC TID 1214 02210 0 10 03157 JST SRT 1215 02211 0 001475 DAC TID 1216 02212 0 10 03202 DND1 JST SFT 1217 02213 0 001475 DAC TID 1218 02214 0 02 01477 LDA TID+2 1219 02215 0 07 01506 SUB K156 10 AT B=4 1220 02216 101400 SMI 1221 02217 0 04 01477 STA TID+2 1222 02220 101400 SMI 1223 02221 0 12 01475 IRS TID 1224 02222 0 12 01504 IRS TIDN 1225 02223 0 01 02212 JMP DND1 REDUCE DIVIDE COUNTER 1226 02224 0 10 03202 JST SFT 1227 02225 0 001475 DAC TID 1228 02226 0 02 01477 LDA TID+2 1229 02227 0 03 01507 ANA K157 1230 02230 0 04 01477 STA TID+2 1231 02231 0 01 02164 JMP DN9C 1232 02232 0 07 00717 DN9E SUB K101 1233 02233 0 04 01514 STA F4 F4 = F4-1 1234 02234 0 02 01512 LDA F2 F2 = F2+4 1235 02235 0 06 00722 ADD K104 1236 02236 0 04 01512 STA F2 1237 02237 0 10 03157 JST SRT 1238 02240 0 001475 DAC ID 1239 02241 0 10 02754 JST MOV3 1240 02242 0 10 03157 JST SRT ID = ID*10 1241 02243 0 001475 DAC ID 1242 02244 0 10 03157 JST SRT 1243 02245 0 001475 DAC ID 1244 02246 0 10 02653 JST AD3 ADD THREE WORD INTEGERS 1245 02247 0 01 02164 JMP DN9C 1246 * CONVERT THREE WORD INTEGER TO INTERNAL FORMAT 1247 02250 0 02 01477 DN9G LDA TID+2 1248 02251 000201 IAB 1249 02252 0 02 01512 LDA F2 1250 02253 0401 70 LRS 8 1251 02254 101040 SNZ 1252 02255 0 01 02260 JMP *+3 1253 02256 0 10 03116 JST ER00 1254 02257 141705 BCI 1,CE CONSTANT'S EXPONENT OVER 8 BITS (OVERFLOW) 1255 02260 000201 IAB