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

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

1550 * 1551 02611 0 000000 NC00 DAC ** NON CONSTANT TEST 1552 02612 0 02 00573 LDA NT 1553 02613 101040 SNZ IF NT NOT = 0, TO ERROR TEST 1554 02614 -0 01 02611 JMP* NC00 RETURN 1555 02615 0 10 03116 JST ER00 ERROR TEST 1556 02616 147303 BCI 1,NC CONSTANT MUST BE PRESENT 1557 * 1558 * 1559 * ********************* 1560 * *NON SUBPROGRAM TEST* 1561 * ********************* 1562 * 1563 02617 0 000000 NS00 DAC ** NON SUBPROGRAM TEST 1564 02620 0 02 00655 LDA IU 1565 02621 0 07 00717 SUB K101 IF IU = 1, GO TO- 1566 02622 100040 SZE ERROR TEST 1567 02623 -0 01 02617 JMP* NS00 RETURN 1568 02624 0 10 03116 JST ER00 ERROR TEST 1569 02625 147323 BCI 1,NS SUBPROGRAM NAME NOT ALLOWED 1570 * 1571 * 1572 * ********** 1573 * *ARR TEST* 1574 * ********** 1575 * 1576 02626 0 000000 AT00 DAC ** ARRAY TEST 1577 02627 0 02 00655 LDA IU 1578 02630 0 07 00721 SUB K103 IF IU = 3, GO TO 1579 02631 101040 SNZ 1580 02632 -0 01 02626 JMP* AT00 RETURN 1581 02633 0 10 03116 JST ER00 ERROR TEST 1582 02634 140722 BCI 1,AR ITEM NOT AN ARRAY NAME 1583 * 1584 * 1585 * ************** 1586 * *INTEGER TEST* 1587 * ************** 1588 * 1589 02635 0 000000 IT00 DAC ** INTEGER TEST 1590 02636 0 02 00653 LDA IM 1591 02637 0 07 00717 SUB K101 IF IM = 1, GO TO- 1592 02640 101040 SNZ ERROR ROUTINE, ELSE 1593 02641 -0 01 02635 JMP* IT00 RETURN 1594 02642 0 10 03116 JST ER00 TO ERROR TEST 1595 02643 144724 BCI 1,IT ITEM NOT AN INTEGER 1596 * 1597 * 1598 02644 0 000000 TA00 DAC ** 1599 02645 0 02 00631 LDA AT STRING-ABS TEST