DAP-16M2

* O100-01-H101 (DPM2UP) DRAWING NO. 41286623-001-02 PAGE 65

2250 * 2251 * FINX: LITERAL POOL DEFINITION ROUTINE 2252 * 2253 * 2254 * CALLING SEQUENCE: 2255 * JST FINX 2256 * ......RETURN 2257 * 2258 * THIS ROUTINE DEFINES ALL LITERALS AT THE LEVEL GIVEN BY THE 2259 * COUNTER 'FINF'. THEN UPDATES THE COUNTER. 2260 * 2261 * 2262 03175 0 000000 FINX DAC ** ENTRY 2263 03176 140040 CRA 2264 03177 0 04 00472 STA CBT1 CLEAR CODE BITS - LITERALS ARE PURE DATA 2265 03200 0 10 02505 JST ISCN SETUP FOR SYMBOL TABLE SEARCH 2266 03201 0 04 00473 STA DSYM SET SCAN COUNTER 2267 03202 101040 SNZ SKIP IF SYMBOL TABLE IS NOT EMPTY 2268 03203 -0 01 03175 JMP* FINX EXIT - NO SYMBOLS IN TABLE 2269 03204 1 02 00001 FIRN LDA 1,1 FETCH SECOND WORD OF CURRENT ENTRY 2270 03205 0 03 00667 ANA CSC1 ELIMINATE CODE BITS BUT NOT LITERAL FLAG 2271 03206 0 04 00455 STA SYL1+1 SAVE RESULT FOR DEFINITION 2272 03207 0400 64 LRL 12 PLACE LOW ORDER 12 BITS OF VALUE IN B 2273 03210 101100 SLN SKIP IF LITERAL ENTRY (BIT 4 SET) 2274 03211 0 01 03231 JMP FSTP NO - ADVANCE TO NEXT ENTRY 2275 03212 1 02 00000 LDA 0,1 FETCH FIRST WORD OF THIS ENTRY 2276 03213 0 03 00670 ANA CSC2 ISOLATE FIN LEVEL CODE 2277 03214 0 05 00525 ERA FINF MERGE WITH CURRENT LEVEL 2278 03215 100040 SZE SKIP IF AT PROPER LEVEL 2279 03216 0 01 03231 JMP FSTP NO - ADVANCE TO NEXT ENTRY 2280 03217 1 02 00000 LDA 0,1 FETCH FIRST WORD OF ENTRY AGAIN 2281 03220 0 03 00665 ANA CHR2 ELIMINATE CODE BITS 2282 03221 0 04 00454 STA SYL1 SAVE RESULT FOR DEFINITION 2283 03222 0410 64 LLL 12 PUT THE VALUE TOGETHER 2284 03223 0 04 00423 STA SUM SAVE IT IN 'SUM' 2285 03224 0 15 03156 STX MESG SAVE TABLE POINTER DURING DEFINITION 2286 03225 -0 10 00547 JST* DLC DEFINE THE LITERAL 2287 03226 0 35 03156 LDX MESG RESTORE THE TABLE POINTER 2288 03227 -0 10 00544 FDMP JST* DUMP OUTPUT THE LITERAL 2289 03230 -0 10 00551 JST* LSTD LIST THIS LINE 2290 03231 0 10 02512 FSTP JST ISCP INCREMENT SYMBOL TABLE POINTER 2291 03232 0 12 00473 IRS DSYM INCREMENT SCAN COUNTER 2292 03233 0 01 03204 JMP FIRN GO EXAMINE THE NEXT ENTRY 2293 03234 0 02 00525 LDA FINF FETCH THE FIN LEVEL CODE 2294 03235 0 07 00631 SUB C20 DECREMENT THE COUNT 2295 03236 0 04 00525 STA FINF REPLACE THE CODE 2296 03237 -0 01 03175 JMP* FINX EXIT 2297 * 2298 * 2299 EJCT *************************************************************