DAP-16M2

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

0707 01113 -0 10 00547 JST* DLC DEFINE SYMBOL IN LOCATION FIELD 0708 01114 0 02 00426 LDA INDF FETCH INDIRECT FLAG 0709 01115 101040 SNZ SKIP IF INDIRECT 0710 01116 0 01 01125 JMP VSCN NOT INDIRECT 0711 01117 0 02 00425 LDA INDA FETCH INDIRECT LEGAL FLAG 0712 01120 101040 SNZ SKIP IF LEGAL 0713 01121 -0 01 00562 JMP* IER ILLEGAL INDIRECT - FLAG 'I' ERROR 0714 01122 0 02 00437 LDA WORD FETCH OP-CODE 0715 01123 140500 SSM SET INDIRECT BIT 0716 01124 0 04 00437 STA WORD REPLACE OP-CODE 0717 01125 -0 10 00573 VSCN JST* ADVD ADVANCE TO ADDRESS FIELD 0718 01126 0 10 01300 VSC2 JST SYLL INPUT A TERM 0719 01127 0 02 00424 LDA ADRF CHECK ADDRESS REQUIRED FLAG 0720 01130 100040 SZE SKIP IF NOT REQUIRED 0721 01131 0 01 01161 JMP L1 GO PROCESS ADDRESS 0722 01132 0 02 00474 REGO LDA CBT2 FETCH OPCODE TYPE CODE BITS 0723 01133 0414 75 LGL 3 A(1)=GENERIC FLAG 0724 01134 100400 SPL SKIP IF NOT GENERIC 0725 01135 0 01 01173 JMP GENR GO PROCESS GENERIC INSTRUCTION 0726 01136 -0 10 00531 REGP JST* VF PROCESS ADDRESS TERM 0727 01137 0 01 01177 JMP UNDE PROCESS UNDEFINED SYMBOL 0728 01140 -0 10 00534 REGL JST* SGN SUM AND SET SIGN 0729 01141 100000 SKP TERMINAL DELIMITER RETURN 0730 01142 0 01 01126 JMP VSC2 PROCESS NEXT ITEM 0731 * 0732 * END OF ADDRESS 0733 * 0734 01143 0 02 00420 LDA E CHECK FOR UNENTERED UNDEFINED SYMBOL 0735 01144 101040 SNZ SKIP IF THERE IS 0736 01145 0 01 01151 JMP TRM1 GO PROCESS INDEX TAG 0737 01146 0 10 01270 JST SWAP SYL=SYL1 0738 01147 -0 10 00543 JST* DUST ENTER UNDEFINED SYMBOL 0739 01150 0 04 00423 STA SUM SAVE SYMBOL NUMBER 0740 01151 0 10 01224 TRM1 JST TRTG PROCESS INDEX TAG 0741 * 0742 * FINISH PROCESSING MACHINE-OP 0743 * 0744 01152 0 02 00444 ASMB LDA TERM FETCH TERMINATING CHARACTER 0745 01153 0 05 00635 ERA C240 TEST FOR A SPACE 0746 01154 100040 SZE SKIP IF A SPACE 0747 01155 -0 10 00561 JST* FER IF NOT, FORMAT ERROR 0748 01156 0 10 01765 JST DWRD PLACE INSTRUCTION IN OBJECT TEXT 0749 01157 -0 10 00551 COMM JST* LSTD LIST THIS STATEMENT 0750 01160 0 01 01042 JMP LINE GO PROCESS NEXT STATEMENT 0751 * 0752 * 0753 * HERE IF ADDRESS REQUIRED 0754 * 0755 01161 0 02 00450 L1 LDA SYL FETCH FIRST 2 CHARS. OF SYMBOL 0756 01162 100040 SZE SKIP IF BLANKS