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

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

5187 11165 0 04 11151 STA B3T1 T1 = A 5188 11166 0 02 00631 LDA AT TEST FOR AT=DUMMY 5189 11167 0 07 00723 SUB K105 =5 5190 11170 100040 SZE SKIP NO-USAGE TEST IF DUMMY 5191 11171 0 10 02603 JST NU00 NO USAGE TEST 5192 11172 0 10 02672 JST STXA 5193 11173 1 02 15401 LDA DP+1,1 IU (A) = ARR 5194 11174 0400 62 LRL 14 5195 11175 0 02 00721 LDA K103 5196 11176 0410 62 LLL 14 5197 11177 1 04 15401 STA DP+1,1 5198 11200 0 02 11150 LDA B3T0 (A) = T0 5199 11201 0 10 10672 JST SC00 INPUT SUBSCRIPT 5200 11202 0 02 00604 LDA S1 5201 11203 0 04 01475 STA ID 5202 11204 0 02 00605 LDA S2 PLACE SUBSCRIPTS IN ID 5203 11205 0 04 01476 STA ID+1 5204 11206 0 02 00606 LDA S3 5205 11207 0 04 01477 STA ID+2 5206 11210 0 02 00572 LDA NS (A) = 0, B = NS 5207 11211 0400 60 LRL 16 5208 11212 0 10 04252 JST AA00 ASSIGN SPECIAL. 5209 11213 0 10 02672 JST STXA 5210 11214 1 02 15401 LDA DP+1,1 5211 11215 0412 76 LLR 2 5212 11216 0 02 11153 LDA B3T3 5213 11217 0414 76 LGL 2 5214 11220 0402 76 LRR 2 5215 11221 1 04 15401 STA DP+1,1 DEFINE GF T0 GF(A) 5216 11222 0 02 00040 LDA A 5217 11223 0 04 11152 STA B3T2 T2 = A 5218 11224 0 02 11151 LDA B3T1 5219 11225 0 04 00040 STA A A = T1 5220 11226 0 10 02672 JST STXA 5221 11227 1 02 15401 LDA DP+1,1 5222 11230 0412 76 LLR 2 5223 11231 0 02 11152 LDA B3T2 5224 11232 0414 76 LGL 2 5225 11233 0402 76 LRR 2 5226 11234 1 04 15401 STA DP+1,1 DEFINE GF TO GF(A) 5227 11235 0 02 00607 B3D LDA TC 5228 11236 0 07 00722 SUB K104 IF TC NOT SLASH 5229 11237 100040 SZE 5230 11240 0 01 02567 JMP B1 GO TO ,-C/R TEST 5231 11241 0 02 04600 LDA A9T2 IF SIDSW = COMMON-4 5232 11242 0 07 11333 SUB B4Z9 5233 11243 100040 SZE GO T0 B4 (COMMON-0) 5234 11244 0 01 02567 JMP B1 ELSE, GO TO ,-C/R TEST 5235 11245 0 01 11265 JMP B40 5236 11246 0 02 00607 B7 LDA TC IF TC = (