FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 158

5086 * 5087 * 5088 * ***************** 5089 * *DIMENSION * 5090 * *INPUT DIMENSION* 5091 * ***************** 5092 * PROCESS ARRAYS, PUT DIMENSION INFO IN SPECIAL 5093 * ARRAY POINTER ITEM 5094 10142 0 00 00000 B3T0 PZE 0 5095 10143 0 00 00000 B3T1 PZE 0 5096 10144 0 00 00000 B3T3 PZE 0 5097 10145 0 10 02242 B3 JST NA00 5098 10146 0 02 00026 B3A LDA AT IF AT = DUM 5099 10147 0 07 00741 SUB K105 (A) = 0 5100 10150 100040 SZE ELSE (A) = .LT. 0 5101 10151 140500 SSM 5102 10152 0 04 10142 STA B3T0 T0 = (A) 5103 10153 0 02 00025 LDA AF 5104 10154 0 04 10144 STA B3T3 T3 = AF 5105 10155 0 02 00625 LDA A 5106 10156 0 04 10143 STA B3T1 T1 = A 5107 10157 0 02 00026 LDA AT TEST FOR AT=DUMMY 5108 10160 0 07 00741 SUB K105 =5 5109 10161 100040 SZE SKIP NO-USAGE TEST IF DUMMY 5110 10162 0 10 02401 JST NU00 NO USAGE TEST 5111 10163 0 02 10142 LDA B3T0 (A) = T0 5112 10164 0 10 07666 JST SC00 INPUT SUBSCRIPT 5113 10165 0 02 00064 LDA S1 5114 10166 0 04 00774 STA ID 5115 10167 0 02 00065 LDA S2 PLACE SUBSCRIPTS IN ID 5116 10170 0 04 00775 STA ID+1 5117 10171 0 02 00066 LDA S3 5118 10172 0 04 00776 STA ID+2 5119 10173 0 02 00053 LDA NS (A) = 0, B = NS 5120 10174 0400 60 LRL 16 5121 10175 0 10 03623 JST AA00 ASSIGN SPECIAL 5122 10176 0 35 00625 LDX A 5123 10177 1 02 17401 LDA DP+1,1 5124 10200 0412 76 LLR 2 5125 10201 0 02 10144 LDA B3T3 5126 10202 0414 76 LGL 2 5127 10203 0402 76 LRR 2 5128 10204 1 04 17401 STA DP+1,1 DEFINE GF TO GF(A) 5129 10205 0 02 00625 LDA A 5130 10206 0400 62 LRL 14 5131 10207 0 02 10143 LDA B3T1 5132 10210 0 04 00625 STA A A = T1 5133 10211 0 04 00000 STA 0 5134 10212 0 02 00737 LDA K103 5135 10213 0410 62 LLL 14