DAP-16M2

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

0757 01163 0 01 01132 JMP REGO ADDRESS EXISTS - OK 0758 01164 0 02 00444 LDA TERM FETCH TERMINATING CHARACTER 0759 01165 0 07 00640 SUB C253 TEST FOR '-' 0760 01166 100040 SZE SKIP IF IT IS 0761 01167 0 07 00624 SUB C2 TEST FOR '+' 0762 01170 101040 SNZ SKIP IF NOT 0763 01171 0 01 01132 JMP REGO IT'S EITHER '+' OR '-' - OK 0764 01172 -0 01 00556 JMP* AER ADDRESS ERROR 0765 * 0766 * GENERIC PROCESSOR 0767 * 0768 01173 0 02 00450 GENR LDA SYL FETCH FIRST TWO CHARACTERS OF NAME 0769 01174 101040 SNZ SKIP IF THEY ARE NOT BLANK 0770 01175 0 01 01152 JMP ASMB BLANK - OK 0771 01176 -0 01 00556 JMP* AER ADDRESS ERROR 0772 * 0773 * UNDEFINED PROCESSOR 0774 * 0775 01177 0 02 00420 UNDE LDA E FETCH PREVIOUS UNDEFINED FLAG 0776 01200 101040 SNZ SKIP IF PREVIOUS UNDEFINED SYMBOL 0777 01201 0 01 01220 JMP UND1 FIRST UNDEFINED 0778 01202 0 12 00421 IRS E1 SET EXTENDED FLAG 0779 01203 -0 10 00543 JST* DUST ENTER UNDEFINED SYMBOL 0780 01204 0 05 00620 ERA B3 SET EXTENDED BIT 0781 01205 0 04 00423 STA SUM SET VALUE 0782 01206 0 10 01765 JST DWRD OUTPUT WORD 0783 01207 0 02 00405 LDA CLOC RESTORE THE PROGRAM COUNTER 0784 01210 0 07 00700 SUB ONE 0785 01211 0 04 00405 STA CLOC 0786 01212 140040 CRA 0787 01213 0 04 00423 STA SUM CLEAR ACCUMULATED ADDRESS 0788 01214 0 04 00437 STA WORD CLEAR OP CODE 0789 01215 0 04 00440 STA W2 CLEAR LOW ORDER CODE BITS 0790 01216 0 04 00463 STA RELV CLEAR RELOCATION 0791 01217 0 01 01140 JMP REGL GO PROCESS NEXT TERM 0792 * 0793 01220 0 12 00420 UND1 IRS E SET EXTENSION FLAG 0794 01221 0 10 01270 JST SWAP SYL1=SYL 0795 01222 0 10 01261 JST CLER CLEAR SYL 0796 01223 0 01 01140 JMP REGL GO PROCESS NEXT TERM 0797 * 0798 * 0799 EJCT *************************************************************