; un-log the sysop so he can hide from his callers
;
.z80
;
tdos	equ	50h
;
	cseg
;
; put info away (store login time in DRI format and acl)
; entered with HL=access level
;
unlog:	ld	sp,stack
	ld	de,80h		;set DMA address to 80H
	ld	c,26
	call	5
	xor	a		;set flag byte to 0
	ld	(81h),a
	ld	(100h-65),a	;reset twix flag
	ld	bc,41		;execute save parameter call
	ld	h,90h
	call	tdos
	rst	0
;
	ds	80
stack	equ	$
	end