;----------------------------------------------------------------
; This is a module in the PL/I-80 utility library
;
; This module must return the user number or set the user number
;
;	Written By     Richard Holmes  09-12-84
;	Last update    Richard Holmes  09-12-84
;----------------------------------------------------------------
;
	name	'puser'
	public	getusr,setusr
	extrn	getp1
;
bdos	equ	5
;
getusr:
	mvi	c,32		; user code
	mvi	e,0ffh		; get sub-function
	call	bdos
	mov	l,a
	mvi	h,00		; return the value in HL 
	ret
;
setusr:
	call	getp1		; fetch user number into E
	mvi	c,32
	call	bdos
	ret
;
	end