DAP-16M2

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

0629 * 0630 * COMMON PASS ONE/TWO INITIALIZATION 0631 * 0632 * 0633 01020 0 35 00676 RESG LDX M12 PREPARE TO CLEAR 12 FLAGS 0634 01021 1 04 00421 STA CLOC+12,1 CLEAR A WORD 0635 01022 0 12 00000 IRS 0 INCREMENT COUNTER 0636 01023 0 01 01021 JMP *-2 GO BACK TO CLEAR NEXT WORD 0637 01024 0 02 00671 LDA M1 SET FIRST OBJECT TEXT 0638 01025 0 04 00514 STA OBT BLOCK INDICATOR 0639 01026 0 10 04373 JST BLIN INITIALIZE OBJECT TEXT ENTRY ROUTINE 0640 01027 0 02 00435 LDA D$CB SET UP DEFAULT COMMON BASE 0641 01030 0 04 00502 STA COML 0642 01031 0 02 00777 LDA XF5D ALLOW ALL OPCODES AT START 0643 01032 0 04 00503 STA BOPS 0644 01033 0 02 00670 LDA CSC2 SETUP INITIAL FIN LEVEL 0645 01034 0 04 00525 STA FINF 0646 01035 0 02 00436 LDA ZP 0647 01036 0 04 00511 STA ZPT 0648 01037 0 02 00615 LDA ZX3 CLEAR ASCII ERROR COUNTER 0649 01040 0 04 00725 STA EMES+2 0650 01041 0 04 00726 STA EMES+3 0651 * 0652 * 0653 * END OF INITIALIZATION 0654 * 0655 * 0656 EJCT *************************************************************