.TITLE	TECOV	VIRTUAL ROOT MODULE
.SBTTL	VIRTUAL ROOT MODULE

; LAST EDIT ON 17-MAR-80 BY MARK BRAMHALL

.IDENT	/V36/

;+
; TO BECOME A VIRTUAL JOB WITH THE VIRTUAL .SETTOP FEATURE WE MUST:
;
;	1) PLACE THE .RAD50 OF "VIR" INTO LOCATION 000000
;	2) PLACE OUR VIRTUAL HIGH LIMIT INTO LOCATION 000002
;	3) TURN ON THE "VIRTUAL" BIT IN THE JSW
;-

	.ASECT

.	=	0

	.RAD50	/VIR/
	.WORD	<<DCDEND+<020000-1>>&^C<020000-1>>-2

.	=	44
.ASSUME	44	EQ	JSW

	.WORD	VIRT$

;+
; DEFINE THE "SCPLOD" GLOBAL TO AVIOD UNDEFINED GLOBAL ERRORS AND
; TO ENSURE NO VT11/VS60 CODE IS LINKED IN.
;-

SCPLOD	==	1

.END