DDT/Z	[8101]

High = 017F  Max = 017F

> d 100

0100   C3 2D 01 0C  0D 0A 31 20  4D 42 59 54  45 2D 52 41  	C-....1 MBYTE-RA
0110   4D 2D 46 4C  4F 50 50 59  20 4C 5C 53  43 48 45 4E  	M-FLOPPY L\SCHEN
0120   20 56 65 72  73 2E 32 2E  30 0D 0A 24  1A 11 03 01  	Vers.2.0..$....
0130   0E 09 CD 05  00 0E 89 3E  00 D3 8A CD  56 01 3E 01	..M....>.S.MV.>.
0140   D3 8A CD 56  01 3E 02 D3  8A CD 56 01  3E 03 D3 8A  	S.MV.>.S.MV.>.S.
0150   CD 56 01 C3  00 00 2E 20  3E E5 2D ED  69 2C 06 80  	MV.C... >e-mi,..
0160   D3 88 10 FC  2D C2 5A 01  C9 FF FF FF  FF FF FF FF  	S..|-BZ.I.......
0170   FF FF FF FF  FF FF FF FF  FF FF FF FF  FF FF FF FF  	................

0100 	JP	012D
0103	DB	0C 0D 0A „1. MBYTE-RAM-Floppy LÖSCHEN Ver.2.0“ 0D 0A 24 1A
012D	LD	DE,0103
0130	LD	C,09
0132	Call	0005	;BDOS Text ausgeben

0135	LD	C,89	;RDSEKT Sektor-Port
0137	LD	A,00
0139	OUT	(8A),A	;RDSPUR	Spur-Port, Spur 0
013B	CALL	0156

013E	LD	A,01
0140	OUT	(8A),A	;RDSPUR	Spur-Port, Spur 1
0142	CALL	0156

0145	LD	A,02
0147	OUT	(8A),A	;RDSPUR	Spur-Port, Spur 2
0149	CALL	0156

014C	LD	A,03
014E	OUT	(8A),A	;RDSPUR	Spur-Port, Spur 3
0150	CALL	0156
0153	JP	0000

0156	LD	L,20	
0158	LD	A,E5	;Lösch-Byte
015A	DEC	L	;Zähler -1
015B	OUT	(C),L
015D	INC	L
015E	LD 	B,80
0160	OUT 	(88),A	;Datenport
0162	DJNZ 	0160
0164	DEC	L
0165	JP,NZ 	015A	
0168	RET