	.title	pasvir
	.ident	/850124/
;+
; Dummy root to allow NBS programs to load into high memory.
;-
	.globl	III000
;
	.asect
jsw	= 44
	virt$	= 2000
.	= jsw
	.word	virt$
;
	.psect	$root$,sav
$root$::
	mov	#1000,sp	;need to kick start stack
	jmp	III000		;assume a standard NBS program
	.end
