NEWENTRY EQU	8006H		; Define relocated DOS entry point
LF	 EQU	0AH
CR	 EQU	0DH

	ORG	100H

	LD	HL,(006)	; Set pointer to JUMP to BDOS
	EX	DE,HL		; Save it
	LD	A,0C3H		; Load a Jump Op-Code
	LD	HL,NEWENTRY	; Set pointer to Dummy BDOS entry point
	LD	(006),HL	; Store pointer into Page Zero jump
	LD	(HL),A		; Set up..
	INC	HL		;  ..dummy..
	LD	(HL),E		;   ..BDOS..
	INC	HL		;    ..jump..
	LD	(HL),D		;     ..instruction
	LD	DE,RELOCMSG	; Report..
	LD	C,9		;  ..relocation..
	CALL	NEWENTRY	;   ..to user
	RET			; Return to CCP without warm-boot

RELOCMSG DB	CR,LF,'SID and Z8E load point relocated below 8000H$'
	END