DAP-16M2

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

1661 * 1662 * SGNA: PUT SIGN ON RESULT 1663 * 1664 * 1665 * CALLING SEQUENCE: 1666 * LDA VALU VALUE OF TERM IN A REGISTER ON ENTRY 1667 * JST SGNA DAP1 1668 * ......RETURN TERMINAL DELIMITER (SPACE, COMMA) 1669 * ......RETURN NON-TERMINAL DELIMETER (PLUS, MINUS) 1670 * 1671 * THE FOLLOWING LOCATIONS CONTAIN INFORMATION 1672 * USED IN THIS ROJTINE: 1673 * 1674 * TERM - TERMINATING CHARACTER IN ASCII CODE 1675 * SIGN - 0 IF CURRENT TERM IS POSITIVE, -1 IF MINUS 1676 * RELV - RELOCATION FACTOR OF CURRENT TERM 1677 * SUM - PREVIOUS ACCUMULATED EXPRESSION VALUE 1678 * RBIT - PREVIOUS RELOCATION OF EXPRESSION 1679 * 1680 * 1681 * RESULTS: 1682 * 1683 * SUM - NEW ACCUMULATED VALUE 1684 * RBIT - NEW ACCUMULATED RELOCATION FACTOR 1685 * SIGN - 0 IF NEXT TERM IS POSITIVE, -1 IF MINUS 1686 * (ONLY SET IF NON-TERMINAL DELIMITER IS DETECTED) 1687 * 1688 02404 0 000000 SGNA DAC ** VALUE IN A ON ENTRY 1689 02405 0 05 00453 ERA SIGN TWOS COMPLEMENT RESULT 1690 02406 0 07 00453 SUB SIGN IF SIGN IS MINUS 1691 02407 0 06 00423 ADD SUM ADD TO PREVIOUS VALUE 1692 02410 0 04 00423 STA SUM SAVE NEW VALUE 1693 02411 0 02 00463 LDA RELV FETCH RELOCATION OF NEW TERM 1694 02412 0 05 00453 ERA SIGN TWOS COMPLEMENT RELOCATION 1695 02413 0 07 00453 SUB SIGN IF SIGN WAS MINUS 1696 02414 0 06 00417 ADD RBIT ADD TO PREVIOUS RELOCATION 1697 02415 0 04 00417 STA RBIT SAVE NEW RELOCATION FACTOR 1698 02416 0 02 00444 CKSG LDA TERM FETCH TERMINATING CHARACTER 1699 02417 0 07 00635 SUB C240 CHECK FOR SPACE 1700 02420 101040 SNZ SKIP IF NOT 1701 02421 0 01 02436 JMP SGNX TAKE TERMINAL DELIMITER EXIT 1702 02422 0 07 00707 SUB C13 CHECK FOR '+' 1703 02423 101040 SNZ SKIP IF NOT 1704 02424 0 01 02434 JMP PLUS GO SET NEW SIGN 1705 02425 0 07 00700 SUB ONE CHECK FOR COMMA 1706 02426 101040 SNZ SKIP IF NOT 1707 02427 0 01 02436 JMP SGNX TAKE TERMINAL DELIMITER EXIT 1708 02430 0 07 00700 SUB ONE CHECK FOR '-' 1709 02431 100040 SZE SKIP IF MINUS SIGN 1710 02432 -0 10 00561 JST* FER ILLEGAL TERMINATING CHAR. - FORMAT ERROR