DAP-16M2

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

3450 * 3451 * FIL : PLACE WORD IN OBJECT TEXT BUFFER 3452 * 3453 * 3454 * CALLING SEQUENCE: 3455 * LDA WORD VALUE TO BE INSERTED IN A ON ENTRY 3456 * JST FIL 3457 * ......RETURN 3458 * 3459 * RESULTS: 3460 * 3461 * OUTB(POUT)=A 3462 * POUT=POUT+1 3463 * CKSM=CKSM.XOR.A 3464 * 3465 * 3466 04473 0 000000 FIL DAC ** PLACE WORD IN OBJECT TEXT BUFFER 3467 04474 -0 04 00523 STA* POUT PLACE THE WORD IN BUFFER 3468 04475 0 12 00523 IRS POUT INCREMENT THE BUFFER POINTER 3469 04476 0 05 00515 ERA CKSM UPDATE THE CHECKSUM 3470 04477 0 04 00515 STA CKSM SAVE NEW CHECKSUM VALUE 3471 04500 -0 01 04473 JMP* FIL EXIT 3472 * 3473 * 3474 EJCT *************************************************************