.TITLE	INIT
	.IDENT	/01/
	.PSECT	CODE,RO

;
; VERSION 01
;
; TOM GETZINGER  11-SEP-80
;
; THIS MODULE INITIALIZES ANYTHING THATS NEEDS TO BE
;

;
; LOCAL DATA
;

	.PSECT	RODATA,RO,D
.LIMIT:	.LIMIT			; GENERATE PROGRAM LIMITS
	.PSECT	CODE

;
; SYSTEM MACRO CALLS
;

	.MCALL	FINIT$	SVTK$S

;
; CODE
;

INIT::	FINIT$			; INITIALIZE FCS
	SVTK$S	#SSTTBL,#7	; SETUP SST VECTOR TABLE ADDRESS AND LENGTH
	MOV	.LIMIT+2,PSCTBL	; SETUP PSECT TABLE START ADDRESS
	RETURN			; WE'RE DONE

	.END