00100	COMMENT 8/24/74	DEFINITIONS COMMON TO PASSES 1 AND 2 OF PUB ;
00200	
00210	DEFINE		TES = [COMMENT], RKJ = [COMMENT], CMU = [COMMENT],
00220			PLK = [COMMENT], PJ = [COMMENT], RT01 = [COMMENT],
00240			TVR = [COMMENT], BH = [COMMENT] ;
00260	
00270	IFCR PARCVER THENC REQUIRE "<TESLER>PARCPUB" SOURCE!FILE ; ENDC
00275	
00300	DEFINE DSCR=[COMMENT ];
00400	DSCR **** DYNAMIC ARRAY MANIPULATION PACKAGE ****
00500	 ;
00600	DEFINE TEMPO=['14], LPSA=['13];
00700	EXTERNAL INTEGER SIMPLE PROCEDURE LRMAK(INTEGER L,H,D);
00800	EXTERNAL INTEGER SIMPLE PROCEDURE LRCOP(INTEGER A);
00900	EXTERNAL SIMPLE PROCEDURE ARYEL(INTEGER I);
01000	
01100	DSCR PTR ← CREATE(LOWBND,HIBND)
01200	CAL MACRO -- EXPRESSION
01300	PAR LOWBND IS LOWER BOUND FOR INTEGER ARRAY
01400	 HIBND IS UPPER BOUND
01500	RES PTR IS AN ARRAY DESCRIPTOR
01600	DES CALLS LRMAK TO GET AN UNMARKED ARRAY
01700	;
01800	
01900	DEFINE CREATE(L,H)= [LRMAK(L,H,1)];
02000	
02100	DSCR MAKEBE(PTR,ARRAY)
02200	CAL MACRO -- STATEMENT
02300	PAR PTR IS INTEGER HOLDING ARRAY DESCRIPTOR
02400	 ARRAY IS DUMMY TO RECEIVE DESCRIPTOR (DON'T LEAVE THAT BLOCK!)
02500	DES EFFECT IS "ARRAY←PTR", BUT SAIL WON'T DO THAT DIRECTLY
02600	;
02700	
02800	DEFINE MAKEBE(I,A)="
02900	 START!CODE
03000	  MOVE TEMPO,I;
03100	  MOVEM  TEMPO,A;
03200	 END ";
03300	
03400	TERNAL INTEGER
03500		DOPASS3,	COMMENT RKJ CMU flag for pass 3;
03600		XCRIBL,		COMMENT TRUE IF IN XCRIBL MODE;
03700		LOFONT,HIFONT,	COMMENT WHICH ONES USED ;
03800		CHARW,		COMMENT WIDTH OF A TYPICAL "CHAR" ;
03900		WCW,		COMMENT WHATIS CW;
04000		BASELINE,	COMMENT FOR SU-AI UNDERLINE ;
04100		MINLFTMAR,	COMMENT (RASTERS) CAN'T PRINT CLOSER THAN THIS ;
04200		VBPI,		COMMENT DEVICE RASTER (VERTICAL);
04300		HBPI,		COMMENT DEVICE RASTER (HORIZONTAL) ;
04600		COMDUMMY ;
04700	
04800	TERNAL INTEGER ARRAY FNTFIL[0:35] ; COMMENT HOLDS CW POINTERS ;
04900	TERNAL STRING ARRAY FNTNAME,XFNTNAME[0:35] ;
05000	TERNAL THAFE INTEGER ARRAY FNTINF[0:35] ; COMMENT font info ;
05025	IFC PARCVER THENC TES 10/17/74 ;
05050	TERNAL THAFE INTEGER ARRAY FNTNUMBER[0:35] ;
05075	ENDC
05100	
05200	DEFINE  CHARH		= [FNTINF[THISFONT]],
05300		STDCHARH	= [FNTINF[DEFAULTFONT]],
05400		CMUKST2		= [FALSE],
05500		COMDEFINE	= [] ;
05600	
05700	DEFINE DEFAULTFONT =
05800		IFC CMUVER OR ISIVER THENC [10] ELSEC [1] ENDC;  RT01 10/24/74 ;