FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 34

1251 01766 0 13 03271 IMA TIDB 3 CELLS 1252 01767 0 04 00774 STA TID TID 1253 01770 0 02 00775 LDA TID+1 WITH 1254 01771 0 13 03272 IMA TIDB+1 3 CELLS 1255 01772 0 04 00775 STA TID+1 OF 1256 01773 0 02 00776 LDA TID+2 TIDB 1257 01774 0 13 03273 IMA TIDB+2 1258 01775 0 04 00776 STA TID+2 1259 01776 0 10 02360 JST IP00 )-INPUT OPERATOR 1260 01777 0 01 01652 JMP DN71 1261 02000 0 02 00067 DN87 LDA TC IF TC = , 1262 02001 0 07 00734 SUB K5 1263 02002 100040 SZE 1264 02003 0 01 01643 JMP DN67 TID-BAR = TID 1265 02004 0 02 00774 LDA TID F6 = 1 1266 02005 0 04 03271 STA TIDB GO TO DN01 (1) 1267 02006 0 02 00775 LDA TID+1 1268 02007 0 04 03272 STA TIDB+1 ELSE, GO TO DN67 (18) 1269 02010 0 02 00776 LDA TID+2 1270 02011 0 04 03273 STA TIDB+2 1271 02012 0 02 00735 LDA K101 1272 02013 0 04 01346 STA F6 1273 02014 0 01 01351 JMP DN01 1274 02015 0 02 01343 DN90 LDA F2 IF F2= 0, GO TO DN9A (10) 1275 02016 101040 SNZ 1276 02017 0 01 02023 JMP DN9A 1277 02020 0 02 01344 LDA F3 F3 = - F3 1278 02021 140407 TCA 1279 02022 0 04 01344 STA F3 1280 02023 0 02 01344 DN9A LDA F3 F4 = F3 - F4 1281 02024 0 07 01345 SUB F4 1282 02025 0 04 01345 STA F4 1283 02026 0 02 00716 LDA K12 F2 = EXP. BIAS + MANTISSA 1284 02027 0 04 01343 STA F2 1285 02030 0 02 00774 LDA TID IF TID = 0, 1286 02031 0 06 00775 ADD TID+1 1287 02032 101040 SNZ 1288 02033 0 06 00776 ADD TID+2 GO TO DN85(13) 1289 02034 101040 SNZ 1290 02035 0 01 01751 JMP DN85 1291 02036 0 02 00776 DN9C LDA TID+2 1292 02037 0414 77 DN9B LGL 1 NORMALIZE ID 1293 02040 100400 SPL 1294 02041 0 01 02050 JMP DN9D ID IS NORMALIZED 1295 02042 0 10 02720 JST SFT 1296 02043 0 000774 DAC ID 1297 * F2 = F2 - = SHIFTS 1298 02044 0 02 01343 LDA F2 1299 02045 0 07 00735 SUB K101 1300 02046 0 04 01343 STA F2