; ldwrks.mac
	.TITLE	LDWRKS
;	loads desired work space
;	if different work space isloaded, stores it first
;
; 2(SP)		sector for desired work space
;
	.MCALL	READ$,WAIT$,WRITE$
;
LDWRKS::
	CMP	2(SP),CWSECT		;desired work space in core?
	BEQ	100$			;if yes, it was a pleasure...
	MOV	R0,-(SP)
	WRITE$	#WRKFDB			;write work space
	WAIT$	R0			;wait for finish
	MOV	4(SP),CWSECT		;new current sector
	MOV	CWSECT,F.BKVB+2(0)	;set sector in FDB
	READ$	R0			;read it
	WAIT$	R0			;wait for finish
	SUB	WKSCSZ,F.BKVB+2(0)	;back up sector
	MOV	(SP)+,R0
100$:	MOV	(SP)+,(SP)		;pop sector argument
	RETURN				;done
 
	.END