LOOK2/ 	ORG	7000H
 ENTRY	DI
 	LD	SP,ENTRY
 	LD	A,1
 	LD	(DRIVE+1),A
 	CALL	GOREST
 NUST	LD	HL,BUFFER
 	LD	DE,BUFFER+1
 	LD	BC,0FFH
 	LD	(HL),0
 	LDIR
 START	LD	SP,ENTRY
 	CALL	DISPLY
 	DEFW	1F1CH
 	DEFM	'- BREEZE DISK EXAMINE UTILITY -'
 	DEFW	0D0DH
 	DEFM	'<1>.  SELECT A DRIVE'
 	DEFB	0DH
 	DEFM	'<2>.  RESTORE DRIVE'
 	DEFB	0DH
 	DEFM	'<3>.  ENTER STEP PULSES'
 	DEFB	0DH
 	DEFM	'<4>.  READ A SECTOR'
 	DEFB	0DH
 	DEFM	'<5>.  DISPLAY ADDRESS MARKS'
 	DEFB	0DH
 	DEFM	'<6>.  DISPLAY BUFFER'
 	DEFB	0DH
 	DEFM	'<7>.  CHANGE STEP RATE'
 	DEFB	0DH
 	DEFM	'<8>.  CHANGE READ TYPE'
 	DEFB	0DH
 	DEFM	'<9>.  ZERO BUFFER'
 	DEFB	0DH
 	DEFM	'<0>.  EXIT PROGRAM'
 	DEFB	0DH
 	DEFM	'SELECTION ? '
 	DEFB	0
 	LD	HL,INPUT
 	LD	B,1
 	CALL	40H
 	LD	A,(HL)
 	CP	'1'
 	JP	Z,GETDRV
 	CP	'2'
 	JP	Z,RESTOR
 	CP	'3'
 	JP	Z,STEPS
 	CP	'4'
 	JP	Z,READIT
 	CP	'5'
 	JP	Z,GETAD
 	CP	'6'
 	JP	Z,SHOWIT
 	CP	'7'
 	JP	Z,CHSTEP
 	CP	'8'
 	JP	Z,SETIBM
 	CP	'9'
 	JP	Z,NUST
 	CP	'0'
 	JP	Z,402DH
 	JP	START
 GETDRV	CALL	DISPLY
 	DEFW	1F1CH
 	DEFM	'- SELECT DRIVE -'
 	DEFW	0D0DH
 	DEFM	'ENTER DRIVE # ? '
 	DEFB	0
 	LD	HL,INPUT
 	LD	B,1
 	CALL	40H
 	LD	A,(HL)
 	CP	'X'
 	JP	Z,START
 	SUB	30H
 	JR	C,GETDRV
 	CP	4
 	JR	NC,GETDRV
 	LD	C,1
 CHEKDR	OR	A
 	JR	Z,CHEKOK
 	SLA	C
 	DEC	A
 	JR	CHEKDR
 CHEKOK	LD	A,C
 	LD	(DRIVE+1),A
 RESTOR	CALL	DISPLY
 	DEFW	1F1CH
 	DEFM	'- RESTORE DRIVE -'
 	DEFB	0
 	CALL	GOREST
 	JP	START
 GOREST	CALL	SELECT
 RETYPE	LD	A,0BH
 	LD	(37ECH),A
 	PUSH	AF
 	POP	AF
 	PUSH	AF
 	POP	AF
 RESWT	LD	A,(37ECH)
 	RRCA
 	JR	C,RESWT
 	XOR	A
 	LD	(TRUE),A
 	LD	(GTRACK),A
 	RET
 STEPS	CALL	DISPLY
 	DEFW	1F1CH
 	DEFM	'- APPLY STEP PULSES -'
 	DEFW	0D0DH
 	DEFM	'HOW MANY STEPS ? '
 	DEFB	0
 	LD	HL,INPUT
 	LD	B,2
 	CALL	40H
 	LD	A,(HL)
 	CP	'X'
 	JP	Z,START
 	CALL	VALUE
 	PUSH	DE
 	LD	A,E
 	OR	A
 	JR	Z,BAD12
 	CP	97
 	JR	C,BAD11
 BAD12	POP	AF
 	JR	BAD12
 BAD11	CALL	DISPLY
 	DEFB	0DH
 	DEFM	'STEP <I>N OR <O>UT ? '
 	DEFB	0
 	LD	B,1
 	LD	HL,INPUT
 	CALL	40H
 	LD	A,(HL)
 	CP	'X'
 	JP	Z,START
 	CP	'I'
 	JR	Z,STIN
 	CP	'O'
 	JR	Z,STOT
 	JR	BAD11
 STIN	POP	DE
 	CALL	STEPIN
 STCONT	CALL	ADDR
 	LD	A,(INPUT)
 	LD	(TRACK),A
 	LD	A,(INPUT+2)
 	LD	(SECTOR),A
 	CALL	READ
 	JP	NZ,ERROR
 	JP	SHOWIT
 STOT	POP	DE
 	CALL	STEPOT
 	JP	STCONT
 STEPIN	LD	B,E
 	LD	A,(TRUE)
 	ADD	A,E
 	LD	(TRUE),A
 INTYPE	LD	A,5BH
 	JR	STEP
 STEPOT	LD	B,E
 	LD	A,(TRUE)
 	OR	A
 	SBC	A,E
 	LD	(TRUE),A
 OTTYPE	LD	A,7BH
 STEP	LD	HL,37ECH
 	LD	(STEPTP+1),A
 STEPLP	CALL	SELECT
 STEPTP	LD	(HL),5BH
 	PUSH	AF
 	POP	AF
 	PUSH	AF
 	POP	AF
 STEPWT	LD	A,(HL)
 	RRCA
 	JR	C,STEPWT
 	DJNZ	STEPLP
 	RET
 READIT	CALL	DISPLY
 	DEFW	1F1CH
 	DEFM	'- READ SECTOR -'
 	DEFW	0D0DH
 	DEFM	'ENTER SECTOR TO READ ? '
 	DEFB	0
 	LD	HL,INPUT
 	LD	B,2
 	CALL	40H
 	CALL	VALUE
 	LD	A,E
 	LD	(SECTOR),A
 	CALL	ADDR
 	JP	NZ,ADDERR
 	LD	A,(INPUT)
 	LD	(TRACK),A
 	CALL	READ
 	JP	Z,SHOWIT
 ERROR	CALL	DISPLY
 	DEFW	1F1CH
 	DEFM	'READ ERROR !'
 	DEFB	0DH
 	DEFB	0
 	CALL	DERROR
 CONT	CALL	DISPLY
 	DEFB	0DH
 	DEFM	'<ENTER> TO CONTINUE '
 	DEFB	0
 	LD	HL,INPUT
 	LD	B,1
 	CALL	40H
 	JP	START
 ADDR	CALL	SELECT
 	LD	BC,INPUT
 	LD	HL,37ECH
 	LD	(HL),0C4H
 	PUSH	AF
 	POP	AF
 	PUSH	AF
 	POP	AF
 	JR	ADDRBZ
 ADDRDN	RRCA
 	JR	NC,ADDONE
 ADDRBZ	LD	A,(HL)
 	BIT	1,A
 	JR	Z,ADDRDN
 	LD	A,(37EFH)
 	LD	(BC),A
 	INC	BC
 	JR	ADDRBZ
 ADDONE	LD	A,(HL)
 	LD	(ID),A
 	AND	1CH
 	RET	Z
 	LD	(HL),0D0H
 	RET
 ADDERR	CALL	DISPLY
 	DEFW	1F1CH
 	DEFM	'ADDRESS READ ERROR !'
 	DEFB	0DH
 	DEFB	0
 	CALL	DERROR
 	JP	CONT
 DISPLY	POP	HL
 DISLP	LD	A,(HL)
 	INC	HL
 	OR	A
 	JR	Z,DISDN
 	CALL	33H
 	JR	DISLP
 DISDN	JP	(HL)
 READ	LD	A,(SECTOR)
 	LD	E,A
 	LD	A,(TRACK)
 	LD	D,A
 	LD	BC,BUFFER
 	PUSH	BC
 	CALL	READ1
 	POP	HL
 	RET	Z
 	LD	B,H
 	LD	C,L
 READ1	LD	A,D
 	LD	(37EDH),A
 	LD	(37EEH),DE
 	CALL	SELECT
 	LD	HL,37ECH
 SETYPE	LD	(HL),1BH
 	PUSH	AF
 	POP	AF
 	PUSH	AF
 	POP	AF
 READWT	CALL	SELECT
 	LD	A,(HL)
 	RRCA
 	JR	C,READWT
 IBM	LD	(HL),88H
 	PUSH	DE
 	LD	DE,37EFH
 	PUSH	BC
 	POP	BC
 	PUSH	BC
 	POP	BC
 	JR	READBZ
 READDN	RRCA
 	JR	NC,RDDONE
 READBZ	LD	A,(HL)
 	BIT	1,A
 	JR	Z,READDN
 	LD	A,(DE)
 	LD	(BC),A
 	INC	BC
 	JR	READBZ
 RDDONE	LD	A,(HL)
 	LD	(ID),A
 	AND	1CH
 	POP	DE
 	RET	Z
 	LD	(HL),0D0H
 	RET
 VALUE	LD	E,0
 	LD	A,(HL)
 	CP	30H
 	RET	C
 	CP	'G'
 	RET	NC
 	SUB	30H
 	CP	0AH
 	JR	C,VAL1
 	SUB	7
 VAL1	SLA	A
 	SLA	A
 	SLA	A
 	SLA	A
 	LD	E,A
 	INC	HL
 	LD	A,(HL)
 	CP	30H
 	RET	C
 	CP	'G'
 	RET	NC
 	SUB	30H
 	CP	0AH
 	JR	C,VAL2
 	SUB	7
 VAL2	ADD	A,E
 	LD	E,A
 	RET
 SELECT	LD	A,(37ECH)
 	BIT	7,A
 DRIVE	LD	A,1
 	LD	(37E1H),A
 	RET	Z
 	PUSH	BC
 	LD	BC,8000H
 	CALL	60H
 	POP	BC
 	RET
 DERROR	CALL	DISPLY
 	DEFM	'STATUS BITS SET: '
 	DEFB	0
 	LD	A,(ID)
 	BIT	0,A
 	JR	Z,BIT1
 	PUSH	AF
 	CALL	DISPLY
 	DEFM	'0 -'
 	DEFB	0
 	POP	AF
 BIT1	BIT	1,A
 	JR	Z,BIT2
 	PUSH	AF
 	CALL	DISPLY
 	DEFM	'1 -'
 	DEFB	0
 	POP	AF
 BIT2	BIT	2,A
 	JR	Z,BIT3
 	PUSH	AF
 	CALL	DISPLY
 	DEFM	'2 -'
 	DEFB	0
 	POP	AF
 BIT3	BIT	3,A
 	JR	Z,BIT4
 	PUSH	AF
 	CALL	DISPLY
 	DEFM	'3 -'
 	DEFB	0
 	POP	AF
 BIT4	BIT	4,A
 	JR	Z,BIT5
 	PUSH	AF
 	CALL	DISPLY
 	DEFM	'4 -'
 	DEFB	0
 	POP	AF
 BIT5	BIT	5,A
 	JR	Z,BIT6
 	PUSH	AF
 	CALL	DISPLY
 	DEFM	'5 -'
 	DEFB	0
 	POP	AF
 BIT6	BIT	6,A
 	JR	Z,BIT7
 	PUSH	AF
 	CALL	DISPLY
 	DEFM	'6 -'
 	DEFB	0
 	POP	AF
 BIT7	BIT	7,A
 	JR	Z,BIT00
 	PUSH	AF
 	CALL	DISPLY
 	DEFM	'7 -'
 	DEFB	0
 	POP	AF
 BIT00	BIT	2,A
 	JR	Z,BIT01
 	PUSH	AF
 	CALL	DISPLY
 	DEFB	0DH
 	DEFM	'DATA LOST DURING READ OPERATION'
 	DEFB	0
 	POP	AF
 BIT01	BIT	3,A
 	JR	Z,BIT02
 	PUSH	AF
 	CALL	DISPLY
 	DEFB	0DH
 	DEFM	'ERROR IN DATA OR ID FIELD'
 	DEFB	0
 	POP	AF
 BIT02	BIT	4,A
 	JR	Z,BIT03
 	PUSH	AF
 	CALL	DISPLY
 	DEFB	0DH
 	DEFM	'TRACK OR SECTOR NOT FOUND DURING READ'
 	DEFB	0
 	POP	AF
 BIT03	BIT	7,A
 	RET	Z
 	CALL	DISPLY
 	DEFB	0DH
 	DEFM	'DRIVE NOT READY'
 	DEFB	0
 	RET
 CHSTEP	CALL	DISPLY
 	DEFW	1F1CH
 	DEFM	'- CHANGE STEP RATE -'
 	DEFW	0D0DH
 	DEFM	'<1>.  40 MS - <2>.  20 MS - <3>.  10 MS - <4>.  5 MS ? '
 	DEFB	0
 	LD	B,1
 	LD	HL,INPUT
 	CALL	40H
 	LD	A,(HL)
 	CP	'1'
 	JR	Z,S40
 	CP	'2'
 	JR	Z,S20
 	CP	'3'
 	JR	Z,S10
 	CP	'4'
 	JR	Z,S5
 	CP	'X'
 	JP	Z,START
 	JR	CHSTEP
 S40	LD	A,0BH
 	LD	B,1BH
 	LD	C,5BH
 	LD	D,7BH
 SETSTP	LD	(RETYPE+1),A
 	LD	A,B
 	LD	(SETYPE+1),A
 	LD	A,C
 	LD	(INTYPE+1),A
 	LD	A,D
 	LD	(OTTYPE+1),A
 	JP	START
 S20	LD	A,0AH
 	LD	B,1AH
 	LD	C,5AH
 	LD	D,7AH
 	JR	SETSTP
 S10	LD	A,09H
 	LD	B,19H
 	LD	C,59H
 	LD	D,79H
 	JR	SETSTP
 S5	LD	A,08H
 	LD	B,18H
 	LD	C,58H
 	LD	D,78H
 	JR	SETSTP
 SETIBM	CALL	DISPLY
 	DEFW	1F1CH
 	DEFM	'- SET READ TYPE -'
 	DEFW	0D0DH
 	DEFM	'<I>BM OR <N>ON-IBM ? '
 	DEFB	0
 	LD	B,1
 	LD	HL,INPUT
 	CALL	40H
 	LD	A,(HL)
 	CP	'X'
 	JP	Z,START
 	CP	'I'
 	JR	Z,YIBM
 	CP	'N'
 	JR	Z,NIBM
 	JR	SETIBM
 YIBM	LD	A,88H
 SIBM	LD	(IBM+1),A
 	JP	START
 NIBM	LD	A,80H
 	JR	SIBM
 SHOW	CALL	1C9H
 	LD	IX,3C00H+4
 	LD	IY,BUFFER
 	LD	D,16
 	LD	H,00
 	LD	L,10H
 SHOWLP	PUSH	IX
 	PUSH	HL
 	PUSH	DE
 	PUSH	IY
 	LD	A,H
 	CALL	HEXCV
 	LD	(IX),C
 	INC	IX
 	LD	(IX),B
 	INC	IX
 	INC	IX
 	LD	E,8
 SHOLP1	LD	A,(IY)
 	CALL	HEXCV
 	LD	(IX),C
 	INC	IX
 	LD	(IX),B
 	INC	IX
 	INC	IY
 	LD	A,(IY)
 	CALL	HEXCV
 	LD	(IX),C
 	INC	IX
 	LD	(IX),B
 	INC	IY
 	INC	IX
 	INC	IX
 	DEC	E
 	JR	NZ,SHOLP1
 	INC	IX
 	POP	IY
 	LD	E,16
 SHOLP2	LD	A,(IY)
 	CP	20H
 	JR	NC,SHOK
 	LD	A,2EH
 SHOK	LD	(IX),A
 	INC	IY
 	INC	IX
 	DEC	E
 	JR	NZ,SHOLP2
 	POP	DE
 	POP	HL
 	POP	IX
 	LD	BC,40H
 	ADD	IX,BC
 	LD	A,H
 	ADD	A,L
 	LD	H,A
 	DEC	D
 	JR	NZ,SHOWLP
 	LD	HL,3C00H+64
 	LD	(HL),'D'
 	INC	HL
 	LD	(HL),'R'
 	INC	HL
 	LD	(HL),'V'
 	LD	HL,3C00H+129
 	LD	A,(DRIVE+1)
 	LD	C,'0'
 FINALP	RRCA
 	JR	C,FINAFN
 	INC	C
 	JR	FINALP
 FINAFN	LD	A,C
 	LD	(HL),A
 	LD	HL,3C00H+256
 	LD	(HL),'T'
 	INC	HL
 	LD	(HL),'R'
 	INC	HL
 	LD	(HL),'K'
 	LD	A,(TRACK)
 	CALL	HEXCV
 	LD	(3C00H+321),BC
 	LD	HL,3C00H+448
 	LD	(HL),'S'
 	INC	HL
 	LD	(HL),'E'
 	INC	HL
 	LD	(HL),'C'
 	LD	A,(SECTOR)
 	CALL	HEXCV
 	LD	(3C00H+513),BC
 	LD	HL,3C00H+640
 	LD	(HL),'T'
 	INC	HL
 	LD	(HL),'R'
 	INC	HL
 	LD	(HL),'U'
 	LD	A,(TRUE)
 	CALL	HEXCV
 	LD	(3C00H+705),BC
 	LD	HL,3C00H+833
 	LD	(HL),'I'
 	INC	HL
 	LD	(HL),'D'
 	LD	A,(ID)
 	AND	60H
 	JR	NZ,ID1
 	LD	B,'S'
 	LD	C,'D'
 	JR	PUTID
 ID1	CP	20H
 	JR	NZ,ID2
 	LD	B,'R'
 	LD	C,'P'
 	JR	PUTID
 ID2	CP	40H
 	JR	NZ,ID3
 	LD	B,'D'
 	LD	C,'D'
 	JR	PUTID
 ID3	LD	B,'U'
 	LD	C,'D'
 PUTID	LD	HL,3C00H+897
 	LD	(HL),B
 	INC	HL
 	LD	(HL),C
 	RET
 HEXCV	LD	C,A
 	SRL	A
 	SRL	A
 	SRL	A
 	SRL	A
 	CALL	HEXTST
 	LD	B,A
 	LD	A,C
 	AND	0FH
 	CALL	HEXTST
 	LD	C,B
 	LD	B,A
 	RET
 HEXTST	ADD	A,30H
 	CP	3AH
 	RET	M
 	ADD	A,7
 	RET
 SHOWIT	LD	SP,ENTRY
 	CALL	SHOW
 SHOWWT	CALL	2BH
 	OR	A
 	JR	Z,SHOWWT
 	CP	'R'
 	JR	Z,DORESX
 	CP	'X'
 	JP	Z,START
 	CP	8
 	JR	Z,LESS1
 	CP	9
 	JR	Z,MORE1
 	CP	19H
 	JR	Z,MOST
 	CP	18H
 	JR	Z,LEAST
 	CP	0AH
 	JR	Z,DOWN
 	CP	91
 	JR	Z,UP
 	CP	1BH
 	JP	Z,GOUP
 	CP	1AH
 	JR	Z,GODOWN
 	JR	SHOWWT
 DORESX	CALL	GOREST
 	XOR	A
 	LD	(TRACK),A
 	LD	(SECTOR),A
 	LD	(TRUE),A
 	CALL	READ
 	JP	NZ,NOFIND
 	JP	SHOWIT
 LESS1	LD	A,(SECTOR)
 	DEC	A
 LESS11	LD	(SECTOR),A
 RDCONT	CALL	READ
 	JP	NZ,NOFIND
 	JR	SHOWIT
 MORE1	LD	A,(SECTOR)
 	INC	A
 	JR	LESS11
 MOST	LD	B,50
 MOSTLP	PUSH	BC
 	CALL	ADDR
 	LD	A,(SECTOR)
 	LD	B,A
 	LD	A,(INPUT+2)
 	CP	B
 	JR	C,MOSTCT
 	LD	(SECTOR),A
 MOSTCT	POP	BC
 	DJNZ	MOSTLP
 	JR	RDCONT
 LEAST	LD	B,50
 LELP	PUSH	BC
 	CALL	ADDR
 	LD	A,(SECTOR)
 	LD	B,A
 	LD	A,(INPUT+2)
 	CP	B
 	JR	NC,LECONT
 	LD	(SECTOR),A
 LECONT	POP	BC
 	DJNZ	LELP
 	JP	RDCONT
 UP	LD	E,1
 	CALL	STEPIN
 	CALL	ADDR
 	LD	A,(INPUT)
 	LD	(TRACK),A
 	JR	RDCONT
 DOWN	LD	E,1
 	CALL	STEPOT
 	CALL	ADDR
 	LD	A,(INPUT)
 	LD	(TRACK),A
 	JR	RDCONT
 GODOWN	CALL	GOREST
 	CALL	ADDR
 	LD	A,(INPUT)
 	LD	(TRACK),A
 	XOR	A
 	LD	(SECTOR),A
 	JR	RDCONT
 GOUP	CALL	ADDR
 	LD	A,(INPUT)
 	LD	(TRACK),A
 	LD	E,1
 	CALL	STEPIN
 	CALL	ADDR
 	JP	NZ,RDFIX
 	LD	A,(INPUT)
 	LD	B,A
 	LD	A,(TRACK)
 	CP	B
 	JR	NZ,GOUP
 	LD	A,(INPUT+2)
 	LD	(SECTOR),A
 	JP	GOUP
 RDFIX	LD	E,1
 	CALL	STEPOT
 	CALL	ADDR
 	LD	A,(INPUT)
 	LD	(TRACK),A
 	LD	A,(INPUT+2)
 	LD	(SECTOR),A
 	JP	RDCONT
 NOFIND	LD	A,(DRIVE+1)
 	LD	C,'0'
 NOLP1	RRCA
 	JR	C,NOLP2
 	INC	C
 	JR	NOLP1
 NOLP2	LD	A,C
 	LD	(ASCDR),A
 	LD	A,(TRACK)
 	CALL	HEXCV
 	LD	(ASCTR),BC
 	LD	A,(SECTOR)
 	CALL	HEXCV
 	LD	(ASCSE),BC
 	LD	A,(TRUE)
 	CALL	HEXCV
 	LD	(ASCTU),BC
 	CALL	DISPLY
 	DEFW	1F1CH
 	DEFM	'READ ERROR !    '
 	DEFM	'DRIVE: '
 ASCDR	DEFM	'0, TRACK: '
 ASCTR	DEFM	'00, SECTOR: '
 ASCSE	DEFM	'00, TRUE: '
 ASCTU	DEFM	'00.'
 	DEFB	0DH
 	DEFB	0
 	CALL	DERROR
 	JP	SHOWWT
 GETAD	CALL	DISPLY
 	DEFW	1F1CH
 	DEFM	'    PASS, TRACK#, HEAD#, SECTOR#, SECTOR LENGTH, CRC1, CRC2     '
 	DEFB	0
 	LD	IX,BUFF2
 	LD	C,30
 GETADL	PUSH	BC
 	CALL	ADDR
 	POP	BC
 	LD	HL,INPUT
 	LD	B,6
 GETADA	LD	A,(HL)
 	LD	(IX),A
 	INC	HL
 	INC	IX
 	DJNZ	GETADA
 	DEC	C
 	JR	NZ,GETADL
 	LD	IX,3C00H+64
 	LD	L,30
 	LD	IY,BUFF2
 	LD	H,1
 ADALP	LD	A,H
 	CALL	HEXCV
 	LD	(IX),C
 	INC	IX
 	LD	(IX),B
 	INC	IX
 	LD	(IX),','
 	INC	IX
 	PUSH	HL
 	LD	L,5
 ADBLP	LD	A,(IY)
 	CALL	HEXCV
 	LD	(IX),C
 	INC	IX
 	LD	(IX),B
 	INC	IX
 	LD	(IX),','
 	INC	IX
 	INC	IY
 	DEC	L
 	JR	NZ,ADBLP
 	LD	A,(IY)
 	CALL	HEXCV
 	LD	(IX),C
 	INC	IX
 	LD	(IX),B
 	INC	IX
 	INC	IY
 	POP	HL
 	LD	BC,12
 	ADD	IX,BC
 	INC	H
 	DEC	L
 	JR	NZ,ADALP
 WAIT	CALL	2BH
 	CP	'X'
 	JP	Z,START
 	CP	0DH
 	JR	NZ,WAIT
 	JP	START
 TRACK	DEFB	0
 GTRACK	DEFB	0
 SECTOR	DEFB	0
 ID	DEFB	0
 TRUE	DEFB	0
 INPUT	DEFS	10H
 BUFF2	DEFS	400H
 BUFFER	DEFS	100H
 	END	ENTRY
 	CP	'X'
 	JP	Z,START
 	CP	0DH
 	JR	NZ,WAIT
 	JP	START
 TRACK	DEFB	0
 GTRACK	DEFB	0
 SECTOR	DEFB	0
 ID	DEFB	0
 TRUE	DEFB	0
 INPUT	DEFS	10H
 BUFF2	DEFS	400H
 BUF