DISKTO ;		* * * * * * * * * * * * *
 ;		*  PROGRAM BY KIM WATT  *
 ;		* BREEZE COMPUTING INC. *
 ;		*     P.O. BOX  1013    *
 ;		* BERKLEY, MICH.  48072 *
 ;		*    (313)  288-9422    *
 ;		* * * * * * * * * * * * *			
 ;	ORG	4F90H	;4-K
 ;	ORG	7F90H	;16-K
 ;	ORG	0BF90H	;32-K
 	ORG	0FF90H	;48-K
 ENTRY	DI
 	CALL	0A7FH
 	LD	A,L
 	LD	(BYTE1),A
 	JP	PLANOT
 CHANGE	CALL	0A7FH
 	LD	A,L
 	CP	16
 	JR	Z,REALOW
 	CP	17
 	JR	Z,LOW
 	CP	18
 	JR	Z,HIGH
 	CP	19
 	RET	Z
 	RET	P
 	OR	A
 	RET	M
 	LD	(BYTE3),A
 	RET
 REALOW	LD	A,2
 	LD	(BYTE2),A
 	RET
 LOW	LD	A,1
 	LD	(BYTE2),A
 	RET
 HIGH	XOR	A
 	LD	(BYTE2),A
 	RET
 PLANOT	DI
 	LD	HL,BYTE3
 	LD	E,(HL)
 CONT	LD	HL,BYTE1
 	LD	C,(HL)
 	LD	HL,BYTE2
 	LD	B,(HL)
 	LD	A,1
 	OUT	(0FFH),A
 LOOP1	DEC	BC
 	LD	A,B
 	OR	C
 	JR	NZ,LOOP1
 	LD	HL,BYTE1
 	LD	C,(HL)
 	LD	HL,BYTE2
 	LD	B,(HL)
 	LD	A,2
 	OUT	(0FFH),A
 LOOP2	DEC	BC
 	LD	A,B
 	OR	C
 	JR	NZ,LOOP2
 	DEC	E
 	JR	NZ,CONT
 	RET
 BYTE1	DEFB	80H
 BYTE2	DEFB	00H
 BYTE3	DEFB	10H
 	END	402DH
