DAP-16M2

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

2603 * 2604 * DBP : DBP PSEUDO-OP PROCESSOR 2605 * 2606 * 2607 03475 0 02 00405 DBP LDA CLOC FETCH LOCATION COUNTER 2608 03476 101100 SLN SKIP IF AT ODD LOCATION 2609 03477 0 01 03503 JMP *+4 DOES NOT NEED UPDATING 2610 03500 0 12 00405 IRS CLOC INCREMENT LOCATION COUNTER 2611 03501 -0 10 00577 JST* OBTD SET NEW ORIGIN IN OBJECT TEXT 2612 03502 000007 OCT 7 2613 03503 0 12 00422 IRS DBFL SET DOUBLE PRECISION FLAG 2614 * FALL IHROUGH TO DEC PROCESSOR 2615 * 2616 * DEC : DEC PSEUDO-OP PROLESSOR 2617 * 2618 * 2619 03504 0 02 00671 DEC LDA M1 2620 03505 0 04 00430 STA DECF SET DECIMAL FLAG 2621 03506 0 01 03510 JMP OCT GO TO OCT PROCESSOR 2622 * 2623 * 2624 EJCT *************************************************************