.PSECT
	ALWAYS	03SEP0	INIT	<INITIALIZE VIRTUAL MEMORY AND OFFSET>
;************************************************************************
;*									*
;*	MODULE:	INIT - INITIALIZE LOGIC, OFFSET, VIRTUAL MEMORY		*
;*									*
;*	AUTHOR: KEVIN ANGLEY						*
;*									*
;*	DATE:	18-AUG-80						*
;*									*
;*	INPUT PARAMETERS:	NONE					*
;*									*
;*	OUTPUT PARAMTERS:	NONE					*
;*									*
;*	DESTROYS:	R1						*
;*									*
;************************************************************************

INIT::
	PUSH	R0
	MOV	#MEMORY,R0	; MEMORY START ADDRESS IN R0
	MOV	#MEMSIZE,R1	; MEMSIZE (WORDS) INTO R1
1$:
	MOV	#177777,(R0)+	; FF-FILL VIRTUAL MEMORY
	SOB	R1,1$		; FOR AS LONG AS IT TAKES

	CLR	OFFST		; CLEAR OFFSET VALUE
	CLR	TRNSFR		; CLEAR TRANSFER VALUE
	POP	R0
	RETURN
	.END