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

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

1406 02437 0 000000 IR00 DAC ** INPUT INT VAR 1407 02440 0 10 02432 JST IV00 INPUT INT VAR/CON 1408 02441 0 10 02611 JST NC00 NON-CONSTANT TEST 1409 02442 -0 01 02437 JMP* IR00 RETURN 1410 * 1411 * 1412 * ************************ 1413 * *INPUT STATEMENT NUMBER* 1414 * ************************ 1415 * NUMBER IS FORMED AS SPECIAL NAME , NOT CONVERTED 1416 * TO NUMERIC 1417 * 1418 02443 0 000000 IS00 DAC ** 1419 02444 140040 IS04 CRA 1420 02445 0 04 00573 STA NT 1421 02446 0 04 00653 STA IM 1422 02447 0 04 00655 STA IU IU = IM = IT = 0 1423 02450 0 04 00575 STA NTID PUT LEADING 'S' IN STATEMENT NO, 1424 02451 0 02 02516 LDA K79 1425 02452 0 10 03055 JST PACK 1426 02453 0 10 01342 IS10 JST ID00 INPUT DIGIT 1427 02454 100040 SZE 1428 02455 0 01 02471 JMP IS20 NOT A DIGIT GO TO IS20 1429 02456 0 02 00575 LDA NTID 1430 02457 0 07 00724 SUB K106 1431 02460 101400 SMI 1432 02461 0 01 02475 JMP IS22 1433 02462 0 02 00607 LDA TC 1434 02463 0 10 03055 JST PACK PACK TC TO ID - LEGAL ST, NO, CHAR 1435 02464 0 02 01475 LDA TID 1436 02465 0 11 02517 CAS K79X 1437 02466 0 01 02453 JMP IS10 1438 02467 0 01 02444 JMP IS04 IGNORE LEAD ZERO ON ST. NO, 1439 02470 0 01 02453 JMP IS10 1440 02471 0 02 00575 IS20 LDA NTID 1441 02472 0 07 00717 SUB K101 1442 02473 101400 SMI 1443 02474 0 01 02477 JMP IS25 1444 02475 0 10 03116 IS22 JST ER00 1445 02476 151724 BCI 1,ST ILLEGAL STATEMENT NUMBER FORMAT 1446 02477 0 10 03241 IS25 JST AS00 ASSIGN ITEM 1447 02500 0 10 02672 JST STXA 1448 02501 1 02 15401 LDA DP+1,1 1449 02502 0 03 00730 ANA K111 1450 02503 1 04 15401 STA DP+1,1 IU = 0 1451 02504 0 02 00630 LDA AF ADDRESS FIELD IS 1452 02505 0 11 00055 CAS XST LE XST - ALREADY ASSIGNED 1453 02506 -0 01 02443 JMP* IS00 1454 02507 -0 01 02443 JMP* IS00 OK - OTHERWISE 1455 02510 0 02 00631 LDA AT MUST HAVE STR-ABS OTHERWISE