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

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

1356 02401 0 00 00011 PZE 9 1357 02402 0 02 00653 NA10 LDA IM (A) = IM 1358 02403 -0 01 02373 JMP* NA00 RETURN 1359 * 1360 * 1361 * *************** 1362 * *INPUT INTEGER* 1363 * *************** 1364 * INPUT ITEM AND ENSURE THAT IT IS AN INTEGER CONSTANT 1365 * GREATER THAN ZERO 1366 * 1367 02404 0 000000 IG00 DAC ** INPUT INTEGER 1368 02405 0 10 01521 JST DN00 INPUT - DNA 1369 02406 0 02 01511 LDA F1 1370 02407 100040 SZE IF F1 = 0, 1371 02410 0 01 02430 JMP IG20 AND NT = 1, 1372 02411 0 02 00573 LDA NT AND IM = INT, 1373 02412 101040 SNZ AND TID L2**15, 1374 02413 0 01 02430 JMP IG20 GO TO IG10 1375 02414 0 02 00653 LDA IM LSE, GO TO IG20 1376 02415 0 07 00717 SUB K101 1377 02416 100040 SZE 1378 02417 0 01 02430 JMP IG20 1379 02420 0 02 01476 LDA TID+1 1380 02421 100040 SZE 1381 02422 0 01 02430 JMP IG20 1382 02423 0 02 01477 LDA TID+2 1383 02424 100040 SZE 1384 02425 0 01 02430 JMP IG20 1385 02426 0 02 01475 IG10 LDA TID 1386 02427 -0 01 02404 JMP* IG00 1387 02430 0 10 03116 IG20 JST ER00 ERROR 1388 02431 144716 BCI 1,IN INTEGER REQUIRED 1389 * 1390 * 1391 * *********************** 1392 * *INPUT INTEGER VAR/CON* 1393 * *********************** 1394 * 1395 02432 0 000000 IV00 DAC ** 1396 02433 0 10 02363 JST OP00 INPUT OPERAND 1397 02434 0 10 02635 JST IT00 INTER TEST 1398 02435 0 10 03642 JST TV00 TAG VARIABLE 1399 02436 -0 01 02432 JMP* IV00 EXIT 1400 * 1401 * 1402 * ************************ 1403 * *INPUT INTEGER VARIABLE* 1404 * ************************ 1405 *