;	TITLE	"SUD2 - Syslib 4.0"
	NAME	('LOGUD')
;=================================================================
;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
;-----------------------------------------------------------------
; Author  : Harold F. Bower
;		Derived from SUD2.Z80 by Richard Conn
; Date    : 17 Sep 89
; Version : 1.2
; Module  : SUD2
; Abstract: This module contains the routine LOGUD which sets the
;	drive and user area to values passed.
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Module Entry Points

	PUBLIC		LOGUD

; From SYSLIB Get..

	EXT		@BDOS

	.Z80
	CSEG
;===============================================================
; NAME - LOGUD
; Entry: BC - Contains Drive & User to Set (Drive A = 0)
; Exit : - Nothing returned.  User Set to (C), Drive set to (B)
; Uses : - None
; Special Requirements: None
;===============================================================

LOGUD:	PUSH	AF
	PUSH	DE
	PUSH	HL
	PUSH	BC
	LD	E,C		; Select User from Reg C
	LD	C,32
	CALL	@BDOS
	LD	E,B		; Select Disk from Reg B
	LD	C,14
	CALL	@BDOS
	POP	BC		; Restore the registers
	POP	HL
	POP	DE
	POP	AF
	RET

	END