DAP-16M2

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

0599 ORG '1000 0600 * 0601 * PASS ONE INITIALIZATION 0602 * 0603 * 0604 * INITIALIZE NORMAL ASSEMBLY 0605 * 0606 01000 0 04 00461 STRT STA TST SAVE PARAMETER WORD 0607 01001 140040 CRA CLEAR A TO INDICATE NORMAL ASSEMBLY 0608 01002 0 01 01005 JMP REST-1 JOIN COMMON PROCESSING 0609 * 0610 * 0611 * INITIALIZE SUBROUTINE ASSEMBLY 0612 * 0613 01003 0 04 00461 SSET STA TST SAVE PARAMETER WORD 0614 01004 0 02 00671 LDA M1 A = -1 TO INDICATE SUBROUTINE ASSEMBLY 0615 01005 0 04 00507 STA SUBF SET ASSEMBLY MODE SWITCH 0616 01006 0 02 00461 REST LDA TST FETCH PARAMETER WORD 0617 01007 0 04 00436 STA ZP SET PASS SWITCH 0618 01010 140100 SSP 0619 01011 0 10 00000 CALL D$IN INITIALIZE IOS 0620 01012 0 02 00433 LDA D$TP BSYM = BASE OF SYMBOL TABLE 0621 01013 0 04 00471 STA BSYM 0622 01014 140040 CRA 0623 01015 0 04 00470 STA CSYM SET SYMBOL COUNT TO ZERO 0624 01016 0 04 00462 STA FREE CLEAR NULL TABLE ENTRY COUNT 0625 01017 0 04 00527 STA ZPTX CLEAR PASS FLAG 0626 * 0627 * 0628 EJCT *************************************************************