;
; Sets values as though Sysop was on line
;
; Useful for accessing EMXMNT etc. after using standby to suspend remote
; output.
;
; ==> Does not need EMXSUBS.REL <===
; ==> Ignore any L80 generated errors that reference 'undefined globals'
;
TMPLEV	EQU	00057H		; Select 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,(LOCK)	; Get old level
	LD	(TMPLEV),A	; And save it
	LD	HL,(USRMAP)	; Get old user map
	LD	(TMPLEV+1),HL	; And save
	LD	HL,(DRVMAP)	; Get old drive map
	LD	(TMPLEV+3),HL	; And save
;
	LD	A,9		; Set sysop access
	LD	(LOCK),A
	LD	HL,0FFFFH	; Access all user area
	LD	(USRMAP),HL	; Set it
	LD	(DRVMAP),HL	; And all drives
;
	LD	HL,(CCPSTK)
	LD	SP,HL
	RET
;
	DS	16
;
STACK::	DW	0
CCPSTK::DW	0
;
	END