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

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

2099 * 2100 * 2101 03634 TIDA BSS 3 2102 03637 TIDB BSS 3 2103 * 2104 * - TV00 TAG VARIABLE 2105 03642 0 000000 TV00 DAC ** 2106 03643 0 02 00655 LDA IU IF IU = 'VAR', 2107 03644 0 07 00720 SUB K102 2108 03645 101040 SNZ 2109 03646 -0 01 03642 JMP* TV00 RETURN 2110 03647 0 10 02603 JST NU00 ELSE, NO USAGE TEST 2111 03650 0 10 02672 JST STXA 2112 03651 1 02 15401 LDA DP+1,1 2113 03652 0 03 00730 ANA K111 IU (A) = 'VAR' 2114 03653 140500 SSM 2115 03654 1 04 15401 STA DP+1,1 2116 03655 -0 01 03642 JMP* TV00 RETURN 2117 * 2118 * 2119 * 2120 * 2121 * 2122 * ************** 2123 * *FETCH ASSIGN* 2124 * ************** 2125 * SET ASSIGNMENT DATA FROM ASSIGN (EXCEPT ID) 2126 * EXPAND DIMENSION INFO IF ARRAY 2127 * 2128 03656 0 000000 FA00 DAC ** 2129 03657 0 10 02672 JST STXA 2130 03660 1 02 15400 LDA DP,1 2131 03661 0400 61 LRL 15 2132 03662 0 04 00573 STA NT NT=NT(A) 2133 03663 140040 CRA 2134 03664 0410 75 LLL 3 2135 03665 0 04 00631 STA AT AT=AT(A) 2136 03666 140040 CRA 2137 03667 0410 75 LLL 3 IM = IM(A) 2138 03670 0 04 00653 STA IM 2139 03671 0 04 00000 STA 0 2140 03672 1 02 02731 LDA KM92-1,1 2141 03673 0 04 00633 STA D0 D0 = NUMBER OF WORDS 2142 03674 0415 76 ALS 2 2143 03675 0 06 00633 ADD D0 2144 03676 0 04 00612 STA X X = POINTER TO CONSTANT NUMBER OF WORDS 2145 03677 0 10 02672 JST STXA 2146 03700 1 02 15401 LDA DP+1,1 2147 03701 0400 62 LRL 14 2148 03702 0 04 00655 STA IU