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

; Perform special AMSTRAD BIOS call

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

;		Version 1.1 August 1986

; ENTRY	None

; EXIT	Depends on function requested

	entry	userf

userf:
	push	de
	push	hl
	ld	hl,(OS+1)
	ld	de,USRBIOS
	add	hl,de		; Get USERF vector
	ld	(@@USR+1),hl
	pop	hl
	pop	de
@@USR:
	jp	$-$		; Do the jump

	end