; I/OS BOOT AS A RUNABLE .COM
;
;	01/25/82 kls
;
	nam	mvb3
;
	EXT	DOSEND,INITDOS
;
	ORG	100H
;
	DI			; DISABLE INTERRUPTS
;
; *** PLACE YOUR SPECIAL STARTUP CODE WHICH DOES
; *** HARDWARE INITIALIZATION, HERE
;
	lxi	sp,0100h
	LXI	H,INITDOS
	mov	a,h
	cma
	mov	h,a
	mov	a,l
	cma
	mov	l,a
	inx	h	; HL:=-HL
	lxi	d,dosend
	dad	d
	lxi	b,180H
	dad	b
	xchg
	DCX	B
;
;  BC = End of run  (17FH)
;  DE = TOP of loaded area
;  HL = TOP of result (DOSEND)
;
CLP:	LDAX	D
	MOV	M,A
	DCX	H
	DCX	D
;
	MOV	A,D
	CMP	B
	JNZ	CLP
	MOV	A,E
	CMP	C
	JNZ	CLP
;
; *** PLACE YOUR SPECIAL STARTUP CODE WHICH MODIFIES
; *** THE RELOCATED OPERATING SYSTEM, HERE
;
	JMP	INITDOS
