;
; BOOTSTRAP ROUTINE FOR PROCESSOR TECHNOLOGY PT-DOS ON HELIOS DISK SYSTEM
;
	ORG	800H
;
BOOTS:	MVI	A,0CFH
	OUT	0F7H
	OUT	0F5H
	MVI	A,0FFH
	OUT	0F1H
BOOTL:	IN	0F0H
	ANI	40H
	JNZ	BOOTL
	MVI	A,0DFH
	OUT	0F7H
IFIN:	IN	0F0H
	RLC
	JC	IFIN
	LXI	D,1290H/6
IFIN2:	DCX	D
	MOV	A,D
	ORA	E
	JNZ	IFIN2
IFIN3:	IN	0F0H
	RLC
	JC	IFIN3
SWAIT:	IN	0F0H
	ANI	2
	JZ	SWAIT
	MVI	A,40H
	OUT	0F3H
	MVI	A,3
	OUT	0F4H
	XRA	A
	OUT	0F5H
	OUT	0F6H
	MVI	A,3
	OUT	0F1H
DLOOP:	IN	0F0H
	ANI	0BH
	JZ	DLOOP
	ANI	8
	JNZ	BOOTS
	JMP	4
;
	END	800H