Previous File Previous Page Single Page Next Page Next File

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

5137 11117 0 04 11144 STA A790 5138 11120 140040 CRA 5139 11121 0 04 00651 STA ICSW 5140 11122 0 10 01521 JST DN00 INPUT DNA 5141 11123 0 02 11144 LDA A790 RESTORE CC 5142 11124 0 04 00662 STA CC 5143 11125 0 04 00651 STA ICSW ICSW = IPL 5144 11126 0 02 00643 LDA DFL IF DFL NOT = 0, GO TO A7B 5145 11127 100040 SZE 5146 11130 0 01 11140 JMP A7B 5147 11131 0 02 01475 LDA TID IF ID = FUNCTI, 5148 11132 0 07 11137 SUB A7K GO TO A9 5149 11133 101040 SNZ SKIP IF NOT 'FUNCTION' 5150 11134 0 01 04602 JMP A9 FUNCTION PROCESSOR 5151 11135 0 10 03116 A7A5 JST ER00 CONSTRUCTION ERROR 5152 11136 152306 BCI 1,TF 'TYPE' NOT FOLLOWED BY 'FUNCTION' OR LIST 5153 11137 143325 A7K BCI 1,FU CONSTANT FOR 'FUNCTION' CHECK 5154 11140 0 10 02373 A7B JST NA00 INPUT NAME 5155 11141 0 02 00045 LDA MFL 5156 11142 0 10 04026 JST DM00 DEFINE IM 5157 11143 0 01 11246 JMP B7 GO TO INPUT DIMENSION 5158 11144 0 00 00000 A790 PZE 0 5159 * 5160 * 5161 * - B2 EXTERNAL 5162 * TAGS NAME AS SUBPROGRAM 5163 11145 0 10 02373 B2 JST NA00 EXTERNAL, INPUT NAME 5164 11146 0 10 03465 JST TG00 TAG SUBPROGRAM 5165 11147 0 01 02567 JMP B1 GO TO , OR C/R TEST 5166 * 5167 * 5168 * ***************** 5169 * *DIMENSION * 5170 * *INPUT DIMENSION* 5171 * ***************** 5172 * PROCESS ARRAYS, PUT DIMENSION INFO IN SPECIAL 5173 * ARRAY POINTER ITEM 5174 11150 0 00 00000 B3T0 PZE 0 5175 11151 0 00 00000 B3T1 PZE 0 5176 11152 0 00 00000 B3T2 PZE 0 5177 11153 0 00 00000 B3T3 PZE 0 5178 11154 0 10 02373 B3 JST NA00 5179 11155 0 02 00631 B3A LDA AT IF AT = DUM 5180 11156 0 07 00723 SUB K105 (A) = 0 5181 11157 100040 SZE ELSE (A) = .LT. 0 5182 11160 140500 SSM 5183 11161 0 04 11150 B3B STA B3T0 T0 = (A) 5184 11162 0 02 00630 LDA AF 5185 11163 0 04 11153 STA B3T3 T3 = AF 5186 11164 0 02 00040 LDA A
Previous File Previous Page Single Page Next Page Next File