DAP-16M2

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

1711 02433 0 07 00700 SUB ONE SET A REGISTER TO -1 FOR MINUS 1712 02434 0 04 00453 PLUS STA SIGN SET SIGN OF NEXT TERM 1713 02435 0 12 02404 IRS SGNA TAKE NON-TERMINAL EXIT 1714 02436 0 02 00423 SGNX LDA SUM FETCH ACCUMULATED RESULT 1715 02437 -0 01 02404 JMP* SGNA EXIT 1716 * 1717 * 1718 * PMSC: CLASSIFY TERMINATING CHARACTER 1719 * 1720 * 1721 * CALLING SEQUENCE: 1722 * JST PMSC 1723 * ......RETURN TERMINAL DELIMITER (SPACE, COMMA) 1724 * ......RETURN NON-TERMINAL DELIMITER (PLUS, MINUS) 1725 * 1726 02440 0 000000 PMSC DAC ** CLASSIFY TERMINATING CHARACTER 1727 02441 0 02 02440 LDA *-1 FETCH RETURN ADDRESS 1728 02442 0 04 02404 STA SGNA RETURN IS THROUGH SGNA 1729 02443 0 01 02416 JMP CKSG CHECKING IS DONE IN THE SGNA ROUTINE 1730 * 1731 * 1732 EJCT *************************************************************