Previous File Previous Page Single Page Next Page Next File

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

1597 02314 0 02 00452 LDA SYL+2 FETCH 5TH AND 6TH CHARS. OF NAME 1598 02315 100040 SZE SKIP IF THEY ARE BLANKS DAV1 1599 02316 0 01 02333 JMP VL2 OTHERWISE CONTINUE SEARCH 1600 02317 1 02 00001 LDA 1,1 RETRIEVE SECOND WORD OF ENTRY 1601 02320 0405 62 ARS 14 POSITION RELOCATION INDICATOR 1602 02321 0 04 00463 STA RELV SAVE RELOCATION 1603 02322 1 02 00000 LDA 0,1 FETCH FIRST WORD OF ENTRY 1604 02323 101400 SMI SKIP IF ACTUALLY DEFINED 1605 02324 -0 10 00610 JST* UER PSEUDO UNDEFINED - FLAG 'U' ERROR 1606 02325 1 02 00000 LDA 0,1 IF BIT 3 OF TABLE ENTRY IS SET 1607 02326 0 03 00620 ANA B3 WE ARE REFERENCING A MULTIPLY DEFINED 1608 02327 100040 SZE SYMBOL 1609 02330 0 10 03767 JST MERR SO FLAG A REFERENCE TO SAME 1610 02331 1 02 00002 LDA 2,1 FETCH VALUE OF SYMBOL 1611 02332 0 01 02347 JMP VVAL TAKE DEFINED EXIT 1612 02333 0 10 02512 VL2 JST ISCP INCREMENT SYMBOL TABLE POINTER 1613 02334 0 12 00467 IRS SYMC INCREMENT SCAN COUNT 1614 02335 0 01 02262 JMP VL1 GO BACK TO CHECK NEXT ENTRY 1615 02336 0 02 00452 LDA SYL+2 FETCH 5TH AND 6TH CHARS. OF NAME 1616 02337 101040 SNZ SKIP IF THEY ARE NOT BLANKS 1617 02340 -0 01 02244 JMP* VFS EXIT - UNDEFINED SYMBOL 1618 02341 140040 CRA CLEAR 5TH AND 6TH CHARACTERS 1619 02342 0 04 00452 STA SYL+2 1620 02343 0 01 02257 JMP VL1-3 GO SEARCH FOR A 4 CHARACTER NAME 1621 02344 140040 VNUM CRA NUMBER - RELOCATION IS ZERO 1622 02345 0 04 00463 STA RELV 1623 02346 0 02 00445 LDA NUM FETCH THE NUMBER 1624 02347 0 12 02244 VVAL IRS VFS INCREMENT RETURN ADDRESS 1625 02350 -0 01 02244 JMP* VFS TAKE DEFINED EXIT 1626 02351 0 04 00445 VNUX STA NUM RESULT IS ZERO FOR '**' 1627 02352 0 01 02345 JMP VNUM+1 CLEAR RELOCATION AND TAKE DEFINED EXIT 1628 02353 0 02 00406 TLOC LDA ABSW ASSEMBLY RELOCATION FACTOR 1629 02354 0 04 00463 STA RELV IT IS RELOCATION OF '*' 1630 02355 0 02 00405 LDA CLOC CURRENT LOCATION IS VALUE OF '*' 1631 02356 0 01 02347 JMP VVAL TAKE DEFINED EXIT 1632 * 1633 * EXTR: PROCESS DIRECT EXTERNAL REFERENCE 1634 * 1635 02357 0 02 00472 EXTR LDA CBT1 CHECK FOR MEMORY REFERENCE INSTRUCTION 1636 02360 0414 76 LGL 2 A(1)=MEMORY REFERENCE FLAG 1637 02361 101400 SMI SKIP IF MEMORY REFERENCE INSTRUCTION 1638 02362 0 01 02375 JMP EXTE ERROR-ILLEGAL REFERENCE TO EXTERNAL SYMBOL 1639 02363 0 02 00423 LDA SUM CHECK FOR PREVIOUS ADDRESS MODIFICATION 1640 02364 100040 SZE SKIP IF UNMODIFIED ADDRESS 1641 02365 -0 10 00560 JST* EER ERROR-MODIFIED EXTERNAL REFERENCE 1642 02366 0 10 02440 JST PMSC CLASSIFY DELIMITING CHARACTER 1643 02367 0 01 02652 JMP XAC1 TERMINAL DELIMITER-OUTPUT THE INSTRUCTION 1644 02370 -0 10 00560 JST* EER NONTERMINAL DELIMITER-EXT. REFERENCE ERROR 1645 02371 -0 10 00533 JST* SYLR INPUT NEXT TERM 1646 02372 0 10 02440 JST PMSC CLASSIFY TERMINATING CHARACTER
Previous File Previous Page Single Page Next Page Next File