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

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

1500 * 1501 * ******************* 1502 * *)- INPUT OPERATOR* 1503 * ******************* 1504 * 1505 02555 0 000000 IP00 DAC ** 1506 02556 0 02 00671 LDA K4 TEST - ) 1507 02557 0 10 02547 JST TS00 1508 02560 0 10 01256 JST CH00 INPUT CHAR 1509 02561 0 10 01412 JST FN00 FINISH OPERATOR 1510 02562 0 02 00642 LDA B B = B-16 1511 02563 0 07 00726 SUB K109 1512 02564 0 04 00642 STA B 1513 02565 140040 CRA (A) = 0 1514 02566 -0 01 02555 JMP* IP00 RETURN 1515 * 1516 * 1517 * 1518 * B1 COMMA OR C/R TST 1519 02567 0 02 00752 B1 LDA K134 IF TC = ','(CONVERTED TO 17) 1520 02570 0 07 00607 SUB TC 1521 02571 101040 SNZ 1522 02572 -0 01 04600 JMP* A9T2 GO TO SIDSW 1523 02573 0 01 04266 JMP A1 ELSE, GO TO C/R TEST 1524 * 1525 * 1526 02574 0 000000 NR00 DAC ** NON-REL TEST 1527 02575 0 02 00631 LDA AT 1528 02576 0 07 00717 SUB K101 IF AT = 1 GO TO ERROR- 1529 02577 100040 SZE TEST 1530 02600 -0 01 02574 JMP* NR00 RETURN 1531 02601 0 10 03116 JST ER00 ERROR TEST ROUTINE 1532 02602 146723 BCI 1,MS MULTIPLY DEFINED STATEMENT NUMBER 1533 * 1534 * 1535 * *************** 1536 * *NO USAGE TEST* 1537 * *************** 1538 * 1539 02603 0 000000 NU00 DAC ** N0 USAGE TEST 1540 02604 0 02 00655 LDA IU 1541 02605 101040 SNZ IF IU NOT = 0, TO ERROR 1542 02606 -0 01 02603 JMP* NU00 RETURN 1543 02607 0 10 03116 JST ER00 ERROR TEST 1544 02610 147325 BCI 1,NU NAME ALREADY BEING USED 1545 * 1546 * 1547 * ******************* 1548 * *NON-CONSTANT TEST* 1549 * *******************