FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 36

1351 02130 0 10 02615 JST ER00 1352 02131 141705 BCI 1,CE CONSTANT'S EXPONENT OVER 8 BITS (OVERFLOW) 1353 02132 000201 IAB 1354 02133 0 13 00776 IMA TID+2 1355 02134 000201 IAB 1356 02135 0 02 00775 LDA TID+1 1357 02136 0414 77 LGL 1 1358 02137 0402 70 LRR 8 1359 02140 0 04 00775 STA TID+1 1360 02141 0402 67 LRR 9 1361 02142 0 02 00774 LDA TID PACK UP TRIPLE PRECISION 1362 02143 0414 77 LGL 1 1363 02144 0402 71 LRR 7 REAL CONSTANT 1364 02145 0 04 00774 STA TID 1365 02146 0 02 01343 LDA F2 1366 02147 141140 ICL 1367 02150 100040 SZE 1368 02151 0 01 01647 JMP DN69 GO TO DN69 (20) 1369 02152 0 01 01726 JMP DN84 ELSE, GO TO DN84 (12) 1370 02153 0 04 00706 DN9H STA IM 1371 02154 0 02 00634 LDA SPF 1372 02155 0 07 00736 SUB K102 1373 02156 100040 SZE 1374 02157 0 02 00742 LDA K106 1375 02160 0 07 00745 SUB K124 1376 02161 0 06 00774 ADD TID 1377 02162 101400 SMI 1378 02163 0 01 01651 JMP DN70 1379 02164 0 02 00774 LDA TID 1380 02165 0 04 01347 STA HOLF HOLF=NO.OF HOLLERITH CHARS. 1381 02166 0 04 01344 STA F3 1382 02167 140407 TCA 1383 02170 101040 SNZ 1384 02171 0 01 02212 JMP DN9K FIELD WIDTH OF ZERO 1385 02172 0 04 01343 STA F2 F2= -1(1 CHAR) OR -2(2 CHAR) 1386 02173 0 10 02510 JST BLNK SET ID,ID+1(ID+2 TO ZERO 1387 02174 0 000774 DAC TID 1388 02175 0 10 01061 DN9J JST IC00 INPUT COLUMN (INCLUDING BLANKS) 1389 02176 0 10 02555 JST PACK PACK CHARACTERS 2 PER WORD 1390 02177 0 12 01343 IRS F2 REDUCE CHARACTER COUNT 1391 02200 0 01 02175 JMP DN9J INPUT AND PACK MORE CHARACTERS 1392 02201 0 02 01344 LDA F3 F3= 0 IF 2 CHAR. HAVE BEEN INPUT 1393 02202 0 03 00735 ANA K101 1394 02203 101040 SNZ 1395 02204 0 01 02207 JMP *+3 1396 02205 0 02 00660 LDA K8 ='240 (SP) 1397 02206 0 10 02555 JST PACK SHIFT A SPACE INTO THE LAST WORD 1398 02207 0 12 00706 IRS IM 1399 02210 0 10 01157 JST CH00 INPUT THE TERMINATING CHARACTER 1400 02211 0 01 01643 JMP DN67 FINISH OPERATOR AND EXIT