.TITLE DRCSET
	.GLOBL DRSET,DRREAD
;
DRSTAT=167770
DRIN=DRSTAT+4
DROUT=DRSTAT+2
;
	.PSECT DRVAL,D,GBL,REL,OVR
IVAL:	.WORD 0
IVAL2:	.WORD 0
;
;
	.PSECT
DRSET:	MOV IVAL,@#DROUT
	RTS PC
;
;
DRREAD:	MOV @#DRIN,IVAL2
	RTS PC
;
;
	.END