DAP-16M2

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

1547 * 1548 * VFS : ITEM EVALUATOR 1549 * 1550 * 1551 * CALLING SEQUENCE: 1552 * JST VFS 1553 * ......RETURN IF UNDEFINED SYMBOL 1554 * ......RETURN IF DEFINED SYMBOL OR NUMERIC VALUE 1555 * VALUE IS IN A ON RETURN 1556 * 1557 02244 0 000000 VFS DAC ** VARIABLE FIELD SCAN 1558 02245 0 02 00460 LDA ALFA TEST FOR NUMERIC 1559 02246 100040 SZE SKIP IF ALPHABETIC 1560 02247 0 01 02344 JMP VNUM GO PROCESS NUMBER 1561 02250 0 02 00450 LDA SYL FETCH FIRST WORD OF NAME 1562 02251 0 05 00626 ERA C12 CHECK FOR SINGLE ASTERISK 1563 02252 101040 SNZ SKIP IF NOT 1564 02253 0 01 02353 JMP TLOC VALUE IS CURRENT LOCATION 1565 02254 0 05 00664 ERA C520 CHECK FOR DOUBLE ASTERISK 1566 02255 101040 SNZ SKIP IF NOT 1567 02256 0 01 02351 JMP VNUX VALUE IS ZERO 1568 02257 0 10 02505 JST ISCN SET UP FOR SYMBOL TABLE SEARCH 1569 02260 101040 SNZ SKIP IF ENTRIES IN TABLE 1570 02261 -0 01 02244 JMP* VFS EXIT - SYMBOL NOT IN TABLE 1571 02262 1 02 00000 VL1 LDA 0,1 FETCH FIRST WORD OF CURRENT ENTRY 1572 02263 101400 SMI SKIP IF DEFINED 1573 02264 0 05 00527 ERA ZPTX IS IT PSEUDO UNDEFINED 1574 02265 101400 SMI SKIP IF PSEUDO UNDEFINED 1575 02266 0 01 02333 JMP VL2 ACTUALLY UNDEFINED - CHECK NEXT ENTRY 1576 02267 0 03 00665 ANA CHR2 ELIMINATE CODE BITS 1577 02270 0 05 00450 ERA SYL COMPARE WITH FIRST WORD OF NAME 1578 02271 100040 SZE SKIP IF THEY MATCH 1579 02272 0 01 02333 JMP VL2 NO MATCH - ADVANCE TO NEXT ENTRY 1580 02273 1 02 00001 LDA 1,1 FETCH SECOND WORD OF CURRENT ENTRY 1581 02274 100400 SPL SKIP IF SUBR FLAG NOT SET 1582 02275 0 01 02333 JMP VL2 SET - ADVANCE TO NEXT ENTRY 1583 02276 0 03 00667 ANA CSC1 A(1-3)= 0 1584 02277 0 05 00451 ERA SYL+1 MERGE WIIH SECOND WORD OF NAME 1585 02300 100040 SZE SKIP IF THEY ARE EOUIVALENT 1586 02301 0 01 02333 JMP VL2 NO MATCH - ADVANCE TO NEXT ENTRY 1587 02302 1 02 00000 LDA 0,1 RETRIEVE FIRST WORD OF ENTRY 1588 02303 0 03 00666 ANA CM12 ISOLATE DEFINED AND EXTERNAL FLAGS 1589 02304 0 05 00666 ERA CM12 CHECK TO SEE IF BOTH ARE SET 1590 02305 100040 SZE SKIP IF EXTERNAL ENTRY 1591 02306 0 01 02314 JMP *+6 GO PROCESS INTERNAL REFERENCE 1592 02307 1 02 00002 LDA 2,1 FETCH THIRD WORD OF THIS ENTRY 1593 02310 0 05 00452 ERA SYL+2 COMPARE WITH THIRD WORD OF NAME 1594 02311 100040 SZE SKIP IF THEY MATCH 1595 02312 0 01 02333 JMP VL2 DO NOT MATCH ' ADVANCE TO NEXT ENTRY 1596 02313 0 01 02357 JMP EXTR GO PROCESS DIRECT EXTERNAL REFERENCE