.TITLE	INIT
	.IDENT	/hah013/

;
; VERSION 01
;
; TOM GETZINGER  11-SEP-80
;
; Modified:	11-Aug-85	hah013
;		Add support for /ID switch to print version number.
;
; THIS MODULE INITIALIZES ANYTHING THATS NEEDS TO BE
;
;
; LOCAL DATA
;

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

	.PSECT	CODE,RO

;
; SYSTEM MACRO CALLS
;

	.MCALL	FINIT$	SVTK$S

;
; CODE
;

INIT::
	mov	r3,savid	;Save .IDENT as set by TKB		;hah013
	mov	r4,savid+2	;Both words				;hah013
	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