; Ssets values back to user that were set to Sysop with SETSYS
;
; ==> Does not need EMXSUBS.REL <==
; ==> Ignore any L80 generated errors that reference 'undefined globals'
;
TMPLEV	EQU	00057H		; Pick address of 5 free bytes somewhere
;
	ASEG
	.Z80
	ORG	100H
;
	JP	START
;
	INCLUDE	EMXHDR.MAC
;
START::	LD	HL,0
	ADD	HL,SP
	LD	(CCPSTK),HL
	LD	SP,STACK
;
	LD	A,(TMPLEV)	; Match address selected in setsys
	LD	(LOCK),A	; Reinstate it
	LD	HL,(TMPLEV+1)	; Get user area map
	LD	(USRMAP),HL	; In place
	LD	HL,(TMPLEV+3)	; And drives
	LD	(DRVMAP),HL	; In place
;
	LD	HL,(CCPSTK)
	LD	SP,HL
	RET
;
	DS	16
;
STACK::	DW	0
CCPSTK::DW	0
;
	END