/OVERLAY SUBROUTINE
/MOVE OVERLAY FILENAME TO 'OVERNAME'
OVERSUB,	0;0
	OPEN	;DEVICE SYS
OVERNAME,	FILENAME  OVRLAY.SV ;OVERLAY
	LOAD2-1	;OVERLAY
	READAB		/GET CONTROL BLOCK
	LOAD2-1	;XAREA+4	/CORE ADDR, PAGES, FIELD.
	STORE2	;OVERTEMP
	LOAD1	;OVERTEMP+1
	ADDIM	;64	/0100, +1 PAGE
	SHIFTR 7	/NO.OF BLOCKS
	STORE1	;OVERBL
	LOAD1	;OVERTEMP+1
	ANDIM	;56	/0070
	ADDIM	;MOVE-9	/FIELD ZERO
	STORE1	;INMOVE
OVERLOOP,	INCREM-1;OVERLAY+1  /BLOCK
	LOAD2-1	;OVERLAY
	READAB
	LOADX2	;OVERTEMP
INMOVE,	MOVE-1	;XAREA	;0;256
	LOADIM	;256
	ADDTO1	;OVERTEMP	/CORE ADDRESS
	GOIFZO	;OVERSUB;OVERBL
	DECGOZ	;OVERSUB;OVERBL	/MORE BLOCKS?
	GOTO	;OVERLOOP
OVERTEMP,	0;0
OVERBL,	0