LDBUF.MAC;11/AU/-BF=LDBUF.MAC;10
\
-2,2
	.IDENT	/02.1/
-5,5
; COPYRIGHT (C) 1975, 1976, 1977
-30
;
;		EB064 -- SAVE AND RESTORE APR1 AROUND A CONTEXT SWITCH
;			(THE CD038 CORRECTION M U S T BE APPLIED TO
;			LDDRV BEFORE THIS CORRECTION IS APPLIED)
;
%
-39,,/; EB064/

	.IF DF	M$$MGE

	.MCALL	HWDDF$
	HWDDF$		;DEFINE HARDWARE REGISTER SYMBOLS

UISAR1=UISAR0+2		;DEFINE USER APR1 ADDRESS

	.ENDC
-74,,/; EB064/

	.IF DF	M$$MGE

	MOV	UISAR1,-(SP)	;SAVE APR1 (USED TO MAP READ OF DRIVER)

	.IFTF

-75,,/; EB064/

	.IFT

	MOV	(SP)+,UISAR1	;RESTORE APR1

	.ENDC

/