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

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

4987 10722 000201 SC30 IAB 4988 10723 0 02 10757 LDA SC90 4989 10724 0 06 00572 ADD NS 4990 10725 0 04 10760 STA SC91 4991 10726 000201 IAB S(NS + 1) = A 4992 10727 -0 04 10760 STA* SC91 4993 10730 0 02 00572 LDA NS 4994 10731 141206 AOA 4995 10732 0 04 00572 STA NS NS = NS + 1 4996 10733 0 07 00721 SUB K103 4997 10734 100040 SZE 4998 10735 0 01 10740 JMP SC50 MORE SUBSCRIPTS PERMITTED 4999 10736 0 10 02555 SC40 JST IP00 )-INPUT OPERATOR 5000 10737 -0 01 10672 JMP* SC00 RETURN 5001 10740 0 02 00607 SC50 LDA TC 5002 10741 0 07 00752 SUB K134 5003 10742 100040 SZE 5004 10743 0 01 10736 JMP SC40 TERMINATOR NOT A COMMA 5005 10744 0 01 10702 JMP SC10 G0 TO SC10 5006 10745 0 10 02437 SC70 JST IR00 INPUT INT VARIABLE 5007 10746 0 02 10671 LDA SCT0 CHECK FOR NON-DUMMY 5008 10747 101040 SNZ VARIABLE DIMENSIONS 5009 10750 0 01 10721 JMP SC20 5010 10751 0 02 00631 LDA AT 5011 10752 0 07 00723 SUB K105 5012 10753 101040 SNZ 5013 10754 0 01 10721 JMP SC20 5014 10755 0 10 03116 JST ER00 5015 10756 153304 BCI 1,VD ILLEGAL SYMBOLIC SUBSCRIPT 5016 10757 0 000604 SC90 DAC S1 5017 10760 0 000000 SC91 DAC ** 5018 * 5019 * 5020 * ******************** 5021 * *INPUT LIST ELEMENT* 5022 * ******************** 5023 * IF THE ITEM IS AN ARRAY, PROCESS THE SUBSCRIPT 5024 10761 0 000000 IL00 DAC ** 5025 10762 0 10 02373 JST NA00 INPUT NAME 5026 10763 0 02 00631 LDA AT 5027 10764 0 07 00723 SUB K105 NON-DUMMY TEST 5028 10765 100040 SZE 5029 10766 0 01 10771 JMP *+3 5030 10767 0 10 03116 JST ER00 USAGE ERROR 5031 10770 142304 BCI 1,DD DUMMY ITEM IN AN EQUIV, OR DATA LIST 5032 10771 0 02 00655 LDA IU IF IU NOT ARR, 5033 10772 0 07 00721 SUB K103 5034 10773 100040 SZE 5035 10774 0 01 11037 JMP IL30 GO TO IL30 5036 10775 0 02 00721 LDA K103