C C C I N I T P 1 C C INITIALIZE FOR PASS1 C C THIS ROUTINE INITIALIZES THE CROSS-ASSEMBLER FOR PASS 1. C SUBROUTINE INITP1 INCLUDE 'BSUCOM.CMN' INCLUDE 'LSTHDG.CMN' INCLUDE 'OUTLIN.CMN' INCLUDE 'PRGDAT.CMN' INCLUDE 'PSHPOP.CMN' INCLUDE 'REPEAT.CMN' INCLUDE 'USRSYM.CMN' RADIX= 10 !SET DEFAULT RADIX TO BASE 10 PASNUM = 1 !SET PASS NUMBER INDICATOR TO PASS 1 PRGSIZ = 0 !INITIALIZE PROGRAM SIZE TO 0 BYTES ERRCNT = 0 !SET ERROR COUNT TO 0 LERCNT = 0 !SET LINE ERROR COUNT TO 0 SYMNUM = 0 !INITIALIZE SYMBOL TABLE TO NO SYMBOLS PCNTR= 0 !SET PROGRAM COUNTER TO 0 STKIDX = 0 !INITIALIZE THE STACK RPTIDX = 0 !INITIALIZE - .REPT STATEMENT POINTER RPTPNT = 0 !REPEAT TABLE POINTER RPTCNT = 0 !.REPT LEVEL COUNTER CALL TIMER ( 0 ) !START ELAPSED TIME CALL DATE ( ADATE ) !GET ASSEMBLE DATE CALL TIME ( ATIME ) !GET ASSEMBLE TIME D WRITE (4,1) ADATE,ATIME D 1 FORMAT (' INITP1 CALLED AT ',4A2,A1,2X,4A2) CALL TRIVIA ( 5 , IFLAG ) !BLANK OUT ABSCOD DO 10 I = 1 , 30 TITLE(I)= KEYCHR(12) !BLANK OUT TITLE SUBTTL(I)= KEYCHR(12) !BLANK OUT SUBTITLE SUBTTL(I+30) = KEYCHR(12) 10 CONTINUE RETURN END