C C I N I T P 2 C C INITIALIZE FOR PASS 2 C C THIS ROUTINE INITIALIZES THE ASSEMBLER FOR PASS 2 C SUBROUTINE INITP2 INCLUDE 'BINCOM.CMN' INCLUDE 'BSUCOM.CMN' INCLUDE 'IODEVS.CMN' INCLUDE 'LSTHDG.CMN' INCLUDE 'OUTLIN.CMN' INCLUDE 'PRGDAT.CMN' INCLUDE 'PSHPOP.CMN' INCLUDE 'REPEAT.CMN' C D WRITE (4,1) D 1 FORMAT (' INITP2 CALLED') PRGSIZ = PCNTR !SAVE PROGRAM SIZE RADIX = 10 !RESET DEFAULT RADIX TO BASE 10 PASNUM = 2 !SET PASS INDICATOR TO PASS 2 STKIDX = 0 !RESET THE PUSHDOWN STACK RPTIDX = 0 ! RPTCNT = 0 ! RPTPNT = 0 ! PCNTR = 0 !RESET THE PROGRAM COUNTER LINCNT = 0 !INITIALIZE THE LISTING LINE COUNT PAGCNT = 0 !INIT THE LINES ON THIS PAGE COUNT PAGNUM = 0 !INITIALIZE THE PAGE COUNTER CALL TRIVIA(5,IFLAG) !BLANK FILL ABSCOD ASCLOC = '0000' !START PROGRAM COUNTER AT 0 CURLOC = 0 NBYTES = 0 REWIND SRCUNT !REWIND SOURCE FILE TO START CALL SYMSRT !SORT THE USERS SYMBOL TABLE CALL HEADNG RETURN END