DAP-16M2

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

1511 * VAR : ANALYZE FIRST PSEUDO-OP ADDRESS SUBFIELD 1512 * 1513 * 1514 * CALLING SEQUENCE: 1515 * JST VAR 1516 * ......RETURN RESULT IN A REGISTER 1517 * 1518 02224 0 000000 VAR DAC ** ENTRY 1519 02225 -0 10 00573 JST* ADVD ADVANCE TO ADDRESS FIELD 1520 02226 0 10 02230 JST VARX EVALUATE FIRST SUBFIELD 1521 02227 -0 01 02224 JMP* VAR RETURN TO CALLER - RESULT IN A 1522 * 1523 * 1524 * 1525 * VARX: ANALYZE PSEUDO-OP ADDRESS SUBFIELD 1526 * 1527 * 1528 * CALLING SEQUENCE: 1529 * JST VARX 1530 * ......RETURN RESULT IN A REGISTER 1531 * 1532 02230 0 000000 VARX DAC ** ENTRY 1533 02231 -0 10 00532 JST* CLE CLEAR ACCUMULATORS 1534 02232 0 04 00423 STA SUM CLEAR EXPRESSION VALUE AND 1535 02233 0 04 00453 STA SIGN SIGN ACCUMULATORS 1536 02234 -0 10 00533 VR1 JST* SYLR ISOLATE NEXT TERM 1537 02235 0 02 00506 LDA LITF CHECK FOR A LITERAL 1538 02236 100040 SZE DO NOT ALLOW LITERALS IN PSEUDO-OP ADDRESS 1539 02237 0 10 02244 JST VFS EVALUATE TERM 1540 02240 -0 10 00566 JST* VER UDEFINED SYMBOL OR LITERAL 1541 02241 0 10 02404 JST SGNA UPDATE RESULT 1542 02242 -0 01 02230 JMP* VARX TERMINAL DELIMITER - EXIT 1543 02243 0 01 02234 JMP VR1 NON TERMINAL - EVALUATE NEXT ELEMENT 1544 * 1545 * 1546 EJCT *************************************************************