.TITLE DRKSET
	.GLOBL DRSET,DRREAD
;
DRSTAT=167760
DRIN=DRSTAT+2
DROUT=DRSTAT+4
;
	.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