.Z80
;BESCHREIBEN SPUR 79 SEKTOR 0
;
TOP:	LD	SP,STACK
	LD	BC,80H
	LD	DE,33	;PUFFER
	CALL	BIOS
	LD	BC,79
	LD	DE,27	;SPUR
LOOP:	CALL	BIOS
	LD	BC,0
	LD	DE,30	;SEKTOR
	CALL	BIOS
	LD	DE,39	;SCHREIBEN
	CALL	BIOS
	ADD	A,30H
	LD	C,A
	LD	DE,9	;CRT
	CALL	BIOS
	LD	DE,3	;TASTATUR
	CALL	BIOS
	JP	NZ,0
	LD	BC,42
	LD	DE,30	;SEKTOR
	CALL	BIOS
	LD	DE,36	;LESEN
	CALL	BIOS
	ADD	A,30H
	LD	C,A
	LD	DE,9
	CALL	BIOS
	JR	LOOP
;
BIOS:	LD	HL,(1)
	ADD	HL,DE
	JP	(HL)
;
	DEFS	100
STACK	EQU	$
	END