title	Module from library BASE_1 : USRSET
	name	('USRSET')
	maclib	baselib.lib

; Set user number

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.1 February 1987

; ENTRY	Accu holds user number on SET

; EXIT	Accu holds user number on GET

	entry	usrset,usrget

usrget:
	ld	a,_set		; Force get
usrset:
	_push_
	ld	e,a
	_OSCAL_	.usrcod		; Set or get user
	_pop_
	ret

	end