title	usermd.mac version 1.0

;	this routine will set the cp/m user number
;	user number is passed as an integeri 

setuser	equ	32
bdos	equ	5
	public	usermd
;
;	hl points to parameter
;
usermd:
	mov	e,m
	mvi	c,setuser
	call	bdos
	ret

	end