extrn	.getusr
;
; xltusr imposes the same usr/default relationship as used for
; drives, i.e. 0 specifies default (current user), other values
; specify user number (a)-1.  Returns actual user number for dos.
; a,f
.xltusr::
	dcr	a
	jm	.getusr;	0, return current, i.e. default
	ani	01fh
	ret