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

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

2149 03703 0 07 00721 SUB K103 IF IU NOT 'ARR' 2150 03704 101040 SNZ 2151 03705 0 01 03712 JMP FA10 2152 03706 140040 CRA 2153 03707 0410 62 LLL 14 AF = GF(A) 2154 03710 0 04 00630 STA AF 2155 03711 -0 01 03656 JMP* FA00 2156 03712 0410 62 FA10 LLL 14 2157 03713 0 04 00000 STA 0 INDEX = GF(A) 2158 03714 1 02 15404 LDA DP+4,1 2159 03715 0 04 00613 STA X1 POINTER OF DIMENSION 1 2160 03716 1 02 15403 LDA DP+3,1 2161 03717 0 04 00614 STA X2 POINTER OF DIMENSION 2 2162 03720 1 02 15402 LDA DP+2,1 2163 03721 0 04 00615 STA X3 POINTER OF DIMENSION 3 2164 03722 1 02 15401 LDA DP+1,1 2165 03723 0 03 00730 ANA K111 ='37777 2166 03724 0 04 00630 STA AF AF = GF(GF(A)) 2167 03725 1 02 15400 LDA DP,1 2168 03726 0404 67 LGR 9 2169 03727 0 03 00725 ANA K107 =7 2170 03730 0 04 00571 STA ND NUMBER OF DIMENSIONS 2171 03731 0 04 00000 STA 0 2172 03732 0 02 00717 LDA K101 =1 2173 03733 0 04 00635 STA D2 2174 03734 0 04 00636 STA D3 2175 03735 -1 01 03764 JMP* FA91-1,1 2176 03736 0 02 00615 FA22 LDA X3 FETCH 3RD DIMENSION SIZE 2177 03737 0 04 00000 STA XR 2178 03740 0 10 03755 JST FA40 2179 03741 0 04 00636 STA D3 STORE D3 2180 03742 0 02 00614 FA24 LDA X2 2181 03743 0 04 00000 STA XR 2182 03744 0 10 03755 JST FA40 2183 03745 0 04 00635 STA D2 D2 = 2ND DIMENSION SIZE 2184 03746 0 02 00613 FA26 LDA X1 2185 03747 0 04 00000 STA XR 2186 03750 0 10 03755 JST FA40 2187 03751 0 04 00634 STA D1 D1 = 1ST DIMENSION SIZE 2188 03752 0 10 02672 JST STXA EXIT WITH AF IN A 2189 03753 0 02 00630 LDA AF 2190 03754 -0 01 03656 JMP* FA00 2191 03755 0 000000 FA40 DAC ** 2192 03756 1 02 15400 LDA DP,1 IM OF SUBSCRIPT VALUE 2193 03757 140100 SSP 2194 03760 0404 64 LGR 12 2195 03761 0 07 00723 SUB K105 =5 2196 03762 100040 SZE SKIP IF DUMMY SUBSCRIPT 2197 03763 1 02 15404 LDA DP+4,1 FETCH VALUE OF SUBSCRIPT 2198 03764 -0 01 03755 JMP* FA40