extrn	.dos
;
@user	equ	32
;
; get current user
; a,f
.getusr::
	mvi	a,0ffh
;	"	"
; setuser # a
; a,f
.setusr::
	push	d
	mov	e,a
	mvi	a,@user
	call	.dos
	pop	d
	ret