;	This is CLUSYS;ALPHA >, a file to be inserted
; in front of CLUMAC files.  It cooperates with the file
; CLUSYS;OMEGA >, which goes at the end of CLUMAC files.

sblk
nosyms
.mllit==1
if1 [
	%its==0
	%pits==1
	printc	/
****    Pass 1    ****
/]
if2 [
	printc	/
****    Pass 2    ****
/]
bugflg==0

if2 [	jlink== jsp xr,linker	]

if1 [	.insrt clusys;pass1
	]

$init

usrflg==1	; shows user-ness

if1 [	.insrt	clusys;types
	.insrt	clusys;common
	]

loc	userlo
; 	ld.cod== 0	; tvec+6
;	ld.siz== 1	; size of load file
;	ld.low== 2	; virtual low bound
;	ld.ent== 3	; ref to entry block vector
;	ld.ver== 4	; clu version number
;	ld.ref== 5	; ptr to ref area
start:	tvec+6		; to make this a proper object
	finish-start	; the size of the file in words
	start		; the lowest load address
	tref+ents$	; the entry blocks vector
	myvers		; the current version number
	tref+pur$lo	; ptr to reference area