DAP-16M2

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

3424 * 3425 * SETC: PLACE LOCATION COUNTER IN OBJECT TEXT BUFFER 3426 * 3427 * 3428 * CALLING SEQUENCE: 3429 * JST SETC 3430 * ......RETURN 3431 * 3432 * 3433 * RESULTS: 3434 * 3435 * OUTB(POUT)=CLOC 3436 * BLKS=BLKS+1 3437 * SKP=NOP 3438 * 3439 * 3440 04464 0 000000 SETC DAC ** PLACE LOC. COUNTER IN OBJECT TEXT BUFFER 3441 04465 0 02 00405 LDA CLOC FETCH THE LOCATION COUNTER 3442 04466 0 10 04473 JST FIL PLACE COUNTER IN OBJECT TEXT BUFFER 3443 04467 0 12 00512 IRS BLKS INCREMENT THE WORD COUNT 3444 04470 0 02 04462 LDA NOP FETCH 'NOP' INSTRUCTION 3445 04471 0 04 04164 STA SKP PLACE IT IN BRANCH POINT 3446 04472 -0 01 04464 JMP* SETC RETURN TO CALLER 3447 * 3448 * 3449 EJCT *************************************************************