DAP-16M2

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

0800 * 0801 * TRTG: INDEX TAG PROCESSOR 0802 * 0803 * 0804 01224 0 000000 TRTG DAC ** 0805 01225 0 02 00444 LDA TERM CHECK FOR COMMA THAT DELIMITS 0806 01226 0 07 00641 SUB C254 THE INDEX TERM 0807 01227 100040 SZE SKIP IF INDEX TAG PRESENT 0808 01230 -0 01 01224 JMP* TRTG EXIT - NO TAG 0809 01231 0 04 00453 STA SIGN CLEAR SIGN OF INDEX TERM 0810 01232 0 02 00425 LDA INDA CHECK INDEX/INDIRECT LEGAL FLAG 0811 01233 101040 SNZ SKIP IF SET 0812 01234 -0 10 00565 JST* TER FLAG 'T' ERROR 0813 01235 0 02 00503 LDA BOPS CHECK FOR DDP-416 ASSEMBLY 0814 01236 0 05 00776 ERA XF4 INDEX NOT LEGAL ON DDP-416 0815 01237 101040 SNZ SKIP IF NOT DDP-416 0816 01240 -0 10 00565 JST* TER FLAG 'T' ERROR - NO X REG. ON DDP-416 0817 01241 0 02 00437 LDA WORD FETCH OP-CODE 0818 01242 0405 66 ARS 10 A(13-16)=OPCODE 0819 01243 0 03 00630 ANA C17 WIPE OUT OTHER BITS 0820 01244 0 07 00627 SUB C15 CHECK FOR LDX, STX 0821 01245 101040 SNZ SKIP IF NOT 0822 01246 -0 10 00565 JST* TER INDEX NOT ALLOWED ON LDX, STX 0823 01247 0 10 01300 JST SYLL INPUT INDEX TERM 0824 01250 -0 10 00531 JST* VF EVALUATE IT 0825 01251 -0 10 00565 JST* TER UNDEFINED SYMBOL RETURN 0826 01252 0404 77 LGR 1 PLACE INDEX BIT IN C 0827 01253 100040 SZE SKIP IF INDEX WAS 0 OR 1 0828 01254 -0 10 00565 JST* TER FLAG 'T' ERROR 0829 01255 141216 ACA PLACE INDEX IN A 0830 01256 0406 76 ARR 2 A(2) = INDEX TAG 0831 01257 0 04 00427 STA TAG SAVE THE TAG 0832 01260 -0 01 01224 JMP* TRTG EXIT 0833 * 0834 * 0835 EJCT *************************************************************