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

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

1256 02261 0 13 01477 IMA TID+2 1257 02262 000201 IAB 1258 02263 0 02 01476 LDA TID+1 1259 02264 0414 77 LGL 1 1260 02265 0402 70 LRR 8 1261 02266 0 04 01476 STA TID+1 1262 02267 0402 67 LRR 9 1263 02270 0 02 01475 LDA TID PACK UP TRIPLE PRECISION 1264 02271 0414 77 LGL 1 1265 02272 0402 71 LRR 7 REAL CONSTANT 1266 02273 0 04 01475 STA TID 1267 02274 0 02 01512 LDA F2 1268 02275 0404 70 LGR 8 1269 02276 100040 SZE 1270 02277 0 01 01776 JMP DN69 GO TO DN69 (20) 1271 02300 0 01 02055 JMP DN84 ELSE. GO TO DN84 (12) 1272 02301 0 04 00653 DN9H STA IM 1273 02302 0 02 00051 LDA SPF 1274 02303 0 07 00720 SUB K102 1275 02304 100040 SZE 1276 02305 0 02 00724 LDA K106 1277 02306 0 07 00742 SUB K124 1278 02307 0 06 01475 ADD TID 1279 02310 101400 SMI 1280 02311 0 01 02000 JMP DN70 1281 02312 0 02 01475 LDA TID 1282 02313 0 04 01520 STA HOLF HOLF=NO.OF HOLLERITH CHARS, 1283 02314 0 04 01513 STA F3 1284 02315 140407 TCA 1285 02316 101040 SNZ 1286 02317 0 01 02340 JMP DN9K FIELD WIDTH OF ZERO 1287 02320 0 04 01512 STA F2 F2= -1(1 CHAR) OR -2(2 CHAR) 1288 02321 0 10 02741 JST BLNK SET ID,ID+1(ID+2 TO ZERO 1289 02322 0 001475 DAC TID 1290 02323 0 10 01066 DN9J JST IC00 INPUT COLUMN (INCLUDING BLANKS) 1291 02324 0 10 03055 JST PACK PACK CHARACTERS 2 PER WORD 1292 02325 0 12 01512 IRS F2 REDUCE CHARACTER COUNT 1293 02326 0 01 02323 JMP DN9J INPUT AND PACK MORE CHARACTERS 1294 02327 0 02 01513 LDA F3 F3= 0 IF 2 CHAR. HAVE BEEN INPUT 1295 02330 0 03 00717 ANA K101 1296 02331 101040 SNZ 1297 02332 0 01 02335 JMP *+3 1298 02333 0 02 00673 LDA K8 ='240 (SP) 1299 02334 0 10 03055 JST PACK SHIFT A SPACE INTO THE LAST WORD 1300 02335 0 12 00653 IRS IM 1301 02336 0 10 01256 DN9M JST CH00 INPUT THE TERMINATING CHARACTER 1302 02337 0 01 01772 JMP DN67 FINISH OPERATOR AND EXIT 1303 02340 0 10 03116 DN9K JST ER00 1304 02341 144306 BCI 1,HF 1305 02342 0 02 00723 DN9N LDA K105 SET .NOT. OPERATOR (TC=5)