.TITLE BP2T
BP2RES:	.RAD50	/BP2RES/
$INITM::

	MOV	#BP2RES,R0	; 12.K BASIC2+RMSSEQ RES
	CALL	$LDLIB		; LOAD IT
	JMP	$INITN		; JUMP TO NORMAL INIT CODE
	.END