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

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

4937 10652 0 07 00722 SUB K104 4938 10653 100040 SZE 4939 10654 -0 01 10650 JMP* NM00 4940 10655 0 10 03116 JST ER00 4941 10656 141722 BCI 1,CR ILLEGAL COMMON REFERENCE 4942 * 4943 * 4944 * ************************** 4945 * *NON DUMMY OR SUBPRO TEST* 4946 * ************************** 4947 10657 0 000000 ND00 DAC ** 4948 10660 0 02 00631 LDA AT TEST 4949 10661 0 07 00723 SUB K105 4950 10662 100040 SZE 4951 10663 0 01 10667 JMP ND10 4952 10664 0 10 03116 JST ER00 4953 10665 142301 BCI 1,DA ILLEGAL USE OF A DUMMY ARGUMENT 4954 10666 -0 01 10657 JMP* ND00 4955 10667 0 10 02617 ND10 JST NS00 4956 10670 -0 01 10657 JMP* ND00 4957 * 4958 * 4959 * ***************** 4960 * *INPUT SUBSCRIPT* 4961 * ***************** 4962 10671 0 00 00000 SCT0 PZE 0 4963 10672 0 000000 SC00 DAC ** 4964 10673 0 04 10671 STA SCT0 T0 = (A) 4965 10674 140040 CRA 4966 10675 0 04 00572 STA NS 4967 10676 0 04 00605 STA S2 NS = S2 = S3 = 0 4968 10677 0 04 00606 STA S3 4969 10700 0 02 00702 LDA K17 (-TEST 4970 10701 0 10 02547 JST TS00 4971 10702 0 02 00660 SC10 LDA EBAR 4972 10703 101400 SMI 4973 10704 0 01 10710 JMP SC15 EBAR .GR. 0 4974 10705 0 10 02525 JST XN00 EXAMINE NEXT CHAR, 4975 10706 100040 SZE 4976 10707 0 01 10745 JMP SC70 IF (A) NON ZERO, 4977 10710 0 10 02404 SC15 JST IG00 GO TO SC70 4978 10711 0 02 10671 LDA SCT0 INPUT INTEGER 4979 10712 100040 SZE 4980 10713 100400 SPL 4981 10714 0 01 10720 JMP SC60 4982 10715 0 02 01475 LDA ID 4983 10716 0 07 00717 SUB K101 4984 10717 0 01 10722 JMP SC30 4985 10720 0 10 03241 SC60 JST AS00 ASSIGN ITEM 4986 10721 0 02 00040 SC20 LDA A S (NS+1) = A