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

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

1156 02117 0 02 01476 LDA TID+1 WITH 1157 02120 0 13 03640 IMA TIDB+1 3 CELLS 1158 02121 0 04 01476 STA TID+1 OF 1159 02122 0 02 01477 LDA TID+2 TIDB 1160 02123 0 13 03641 IMA TIDB+2 1161 02124 0 04 01477 STA TID+2 1162 02125 0 10 02555 JST IP00 )-INPUT OPERATOR 1163 02126 0 01 02000 JMP DN70 GO TO DN70 (21) 1164 02127 0 02 00607 DN87 LDA TC IF TC = , 1165 02130 0 07 00672 SUB K5 1166 02131 100040 SZE 1167 02132 0 01 01772 JMP DN67 TID-BAR = TID 1168 02133 0 02 01475 LDA TID F6 = 1 1169 02134 0 04 03637 STA TIDB GO TO DN01 (1) 1170 02135 0 02 01476 LDA TID+1 1171 02136 0 04 03640 STA TIDB+1 ELSE, GO TO DN67 (18) 1172 02137 0 02 01477 LDA TID+2 1173 02140 0 04 03641 STA TIDB+2 1174 02141 0 02 00717 LDA K101 1175 02142 0 04 01516 STA F6 1176 02143 0 01 01522 JMP DN01 1177 02144 0 02 01512 DN90 LDA F2 IF F2= 0, GO TO DN9A (10) 1178 02145 101040 SNZ 1179 02146 0 01 02152 JMP DN9A 1180 02147 0 02 01513 LDA F3 F3 = - F3 1181 02150 140407 TCA 1182 02151 0 04 01513 STA F3 1183 02152 0 02 01513 DN9A LDA F3 F4 = F3 - F4 1184 02153 0 07 01514 SUB F4 1185 02154 0 04 01514 STA F4 1186 02155 0 02 00676 LDA K12 F2 = EXP, BIAS + MANTISSA 1187 02156 0 04 01512 STA F2 1188 02157 0 02 01475 LDA TID IF TID = 0, 1189 02160 0 06 01476 ADD TID+1 1190 02161 0 06 01477 ADD TID+2 GO TO DN85(13) 1191 02162 101040 SNZ 1192 02163 0 01 02100 JMP DN85 1193 02164 0 02 01477 DN9C LDA TID+2 1194 02165 0414 77 LGL 1 NORMALIZE ID 1195 02166 100400 SPL 1196 02167 0 01 02176 JMP DN9D ID IS NORMALIZED 1197 02170 0 10 03202 JST SFT 1198 02171 0 001475 DAC ID 1199 * F2 = F2 - = SHIFTS 1200 02172 0 02 01512 LDA F2 1201 02173 0 07 00717 SUB K101 1202 02174 0 04 01512 STA F2 1203 02175 0 01 02164 JMP DN9C CONTINUE NORMALIZE LOOP 1204 02176 0 02 01514 DN9D LDA F4 1205 02177 0 11 00757 CAS ZERO