BIAS	EQU	0C000H
RSTNR	EQU	7
RST?	EQU	RSTNR*8

	ORG	RST?

ENTER:	SHLD	TEMP1		; Save HL
	POP	H		; HL= (THERE-HERE
				;      + BIAS+ 1)
	XCHG
	XTHL			; TOS = Original DE
				; HL = (HERE + 3)
	PUSH	PSW		; Save PSW
	DAD	D		; HL - (THERE + BIAS + 4)
	LXI	D,-(BIAS + 4)
	DAD	D		; HL = THERE
	POP	PSW 		; Restore PSW
	XTHL			; TOS = THERE
				; HL = Original DE
	XCHG			; Restore DE
	LHLD	TEMP1		; Restore HL
EXIT:	RET			; Jump THERE
TEMP1:	NOP			; 2 bytes of
				; temporary
	NOP			; storage

	END