FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 35

1301 02047 0 01 02036 JMP DN9C CONTINUE NORMALIZE LOOP 1302 02050 0 02 01345 DN9D LDA F4 1303 02051 0 11 03313 CAS ZERO 1304 02052 0 01 02104 JMP DN9E 1305 02053 0 01 02122 JMP DN9G FINISHED E FACTOR LOOP 1306 02054 0 12 01345 IRS F4 1307 02055 101000 NOP F4 = F4 +1 1308 02056 0 02 01336 LDA K155 DIVIDE LOOP COUNTER 1309 02057 0 04 00766 STA TIDN 1310 02060 0 10 02675 JST SRT RIGHT SHIFT TID 1311 02061 0 000774 DAC TID 1312 02062 0 10 02675 JST SRT 1313 02063 0 000774 DAC TID 1314 02064 0 10 02720 DND1 JST SFT 1315 02065 0 000774 DAC TID 1316 02066 0 02 00776 LDA TID+2 1317 02067 0 07 01337 SUB K156 10 AT B:4 1318 02070 101400 SMI 1319 02071 0 04 00776 STA TID+2 1320 02072 101400 SMI 1321 02073 0 12 00774 IRS TID 1322 02074 0 12 00766 IRS TIDN 1323 02075 0 01 02064 JMP DND1 REDUCE DIVIDE COUNTER 1324 02076 0 10 02720 JST SFT 1325 02077 0 000774 DAC TID 1326 02100 0 02 00776 LDA TID+2 1327 02101 0 03 01340 ANA K157 1328 02102 0 04 00776 STA TID+2 1329 02103 0 01 02036 JMP DN9C 1330 02104 0 07 00735 DN9E SUB K101 1331 02105 0 04 01345 STA F4 F4 = F4-1 1332 02106 0 02 01343 LDA F2 F2 = F2+4 1333 02107 0 06 00740 ADD K104 1334 02110 0 04 01343 STA F2 1335 02111 0 10 02675 JST SRT 1336 02112 0 000774 DAC ID 1337 02113 0 10 02523 JST MOV3 1338 02114 0 10 02675 JST SRT ID = ID*10 1339 02115 0 000774 DAC ID 1340 02116 0 10 02675 JST SRT 1341 02117 0 000774 DAC ID 1342 02120 0 10 02442 JST AD3 ADD THREE WORD INTEGERS 1343 02121 0 01 02037 JMP DN9B 1344 * CONVERT THREE WORD INTEGER TO INTERNAL FORMAT 1345 02122 0 02 00776 DN9G LDA TID+2 1346 02123 000201 IAB 1347 02124 0 02 01343 LDA F2 1348 02125 0401 70 LRS 8 1349 02126 101040 SNZ 1350 02127 0 01 02132 JMP *+3