ReadFile, WriteFile, LoadFile Copy-Paste von SysCDisk und CDisk in FileIO ausgelagert

3 files changed, 206 insertions, 323 deletions

diff --git a/CDisk.S b/CDisk.S
index fce2e0f..60c959e 100644
--- a/CDisk.S
+++ b/CDisk.S
@@ -34,6 +34,7 @@
 **   29-Dec-90  V3.24  Gecrunchte Files werden automatisch entcruncht      **
 **   06-May-91  V4.00  Tada! Schreibroutine eingebaut                      **
 **   16-Apr-92  V4.01  PP_SAVEMARGIN added, PowerPacker jetzt 100%         **
+**   27-Jun-20  V4.02  File-Routinen nach FileIO.S gegen CopyPasta         **
 **                                                                         **
 *****************************************************************************
 
@@ -42,7 +43,6 @@
 
 CRUNCH
 
-;;DEBUG
 ;;LIGHTSHOW
 
 	IFD DEBUG
@@ -55,16 +55,17 @@ DERR_WRONGDISK:		EQU	$26
 DERR_WRONGPRODUCT:	EQU	$27
 	ENDC
 
-CUSTOMOFFSET:	EQU	$19BE
 
 		INCLUDE	"MyExec.i"
 
 		INCLUDE	"relcustom.i"
-	;;	INCLUDE	"protcustom.i"
 
 		INCLUDE	"hardware/intbits.i"
 		INCLUDE	"hardware/cia.i"
 
+
+		XREF	ReplyPacket
+
 	IFD RAMVERSION
 		XREF	ProcessFFSPacket	; Für ramdrive.device
 	ENDC
@@ -73,13 +74,15 @@ CUSTOMOFFSET:	EQU	$19BE
 		XREF	PPDecrunch
 	ENDC
 
-		XDEF	InitDiskFunc	; Disk-System initialisieren
-		XDEF	SetNoDiskHandlerFunc
-		XDEF	ReadFileFunc	; 'Datei' lesen
-		XDEF	LoadFileFunc	; Speicher reservieren & File lesen
-		XDEF	LoadFastFileFunc	; FAST alloc   & File lesen
-		XDEF	WriteFileFunc	; 'Datei' schreiben
-		XDEF	SendPacketFunc	; Asynchronen Lese-Request schicken
+		XDEF	InitDiskFunc		; Disk-System initialisieren
+		XDEF	SetNoDiskHandlerFunc	; Wird aufgerufen für Diskchange
+
+		XDEF	ProcessNextRequest	; Wird von SendPacket() aufgerufen
+
+	IFND SYSTEM
+		XDEF	GetD7A4A5
+	ENDC
+
 
 ***************************************************************************
 
@@ -298,96 +301,6 @@ SetNoDiskHandlerFunc:
 
 
 ***************************************************************************
-**                                                                       **
-**   R E A D F I L E  -  Datei von Disk an angegebene Adresse laden      **
-**                                                                       **
-**   Parameter :  D0.L :  DiskAdresse (Disk/Track/Offset) der Datei      **
-**                A0.L :  Ladeadresse                                    **
-**                                                                       **
-**   Resultat  :  nix                                                    **
-**                                                                       **
-***************************************************************************
-
-ReadFileFunc:	movem.l	d1/a0-a1,-(SP)
-		moveq	#0|DPF_REPLYBYTE,d1		; LESEN
-		bra.s	APost				; Paket aufgeben
-
-
-***************************************************************************
-**                                                                       **
-**   W R I T E F I L E  -  Existierende 'Datei' auf Disk überschreiben   **
-**                                                                       **
-**   Parameter :  D0.L :  DiskAdresse (Disk/Track/Offset) der Datei      **
-**                A0.L :  Adresse der Daten für das File                 **
-**                                                                       **
-**   Resultat  :  nix                                                    **
-**                                                                       **
-***************************************************************************
-
-WriteFileFunc:	movem.l	d1/a0-a1,-(SP)
-		move.b	#DPF_WRITE|DPF_REPLYBYTE,d1	; SCHREIBEN
-		bra.s	APost				; Paket aufgeben
-
-
-***************************************************************************
-**                                                                       **
-**   L O A D F I L E  -  Speicher reservieren, Datei von Disk lesen      **
-**                                                                       **
-**   Parameter :  D0.L :  DiskAdresse (Disk/Track/Offset) der Datei      **
-**                                                                       **
-**   Resultat  :  D0.L :  Adresse des Files, 0 if error                  **
-**                Z-Bit:  gelöscht wenn OK, gesetzt wenn Error           **
-**                                                                       **
-***************************************************************************
-
-LoadFileFunc:	movem.l	d1/a0-a1,-(SP)
-		moveq	#DPF_REPLYBYTE|DPF_ALLOCMEM,d1	; Packet Flags
-		bra.s	APost				; Paket aufgeben
-
-LoadFastFileFunc:
-		movem.l	d1/a0-a1,-(SP)
-		moveq	#DPF_REPLYBYTE|DPF_ALLOCFASTMEM,d1 ; Packet Flags
-	;;	bra.s	APost				; Paket aufgeben
-
-
-APost:		lea	-dp_SIZEOF-2(SP),SP	; DiskPacket erstellen
-		move.l	a0,dp_Address(SP)	; Ladeadresse eintragen
-		movea.l	SP,a0			; A0 :  Packet
-		move.l	d0,dp_FileName(a0)	; Dateinamen eintragen
-		lea	dp_SIZEOF(SP),a1	; A1 :  End-Flag
-		clr.b	(a1)			; löschen
-		move.l	a1,dp_Reply(a0)
-		move.b	d1,dp_Flags(a0)		; DPF_REPLYBYTE [|DPF_WRITE] usw.
-		bsr.s	SendPacketFunc
-1$:		tst.b	(a1)			; Warten bis File geladen/geschrieben
-		beq.s	1$
-		move.l	dp_Address(SP),d0	; Resultat: Adresse
-		lea	dp_SIZEOF+2(SP),SP	; DiskPacket freigeben
-		movem.l	(SP)+,d1/a0-a1
-		rts
-
-
-***************************************************************************
-**                                                                       **
-**   S E N D P A C K E T  -  Asynchronen Read-Request aufgeben           **
-**                                                                       **
-**   Parameter :  A0.L :  Zeiger auf struct DiskPacket                   **
-**                                                                       **
-**   Resultat  :  nix                                                    **
-**                                                                       **
-***************************************************************************
-
-SendPacketFunc:	movem.l	d7/a0-a1/a4-a5,-(SP)
-		bsr	GetD7A4A5		; Für ProcessNextRequest()
-		movea.l	a0,a1			; Packet
-		lea	meb_DiskList(a6),a0
-		jsr	meb_AddTail(a6)		; Packet anhängen
-		bsr.s	ProcessNextRequest	; System ankicken
-		movem.l	(SP)+,d7/a0-a1/a4-a5
-		rts
-
-
-***************************************************************************
 
 	*** Nächsten Request aus Diskliste verarbeiten
 
@@ -410,7 +323,7 @@ ProcessNextRequest:
 		movea.l	meb_RAMDiskBase(a6),a1	; Filename=RAM-Basis
 		cmpi.l	#FFSMAGIC,(a1)		; RAM-Disk in Ordnung ?
 		beq.s	1$			; ja --->
-		MSG	<"RAMDISK CORRUPT, A0=PACKET, A1=BASE">
+		SMSG	<"RAMDISK CORRUPT, PACKET=$%08lx, BASE=$%08lx">,a0,a1
 1$:		bsr	ProcessFFSPacket	; Packet (A0) bearbeiten (FFS)
 		bsr	ReplyPacket		; Packet (A0) beantworten
 		bra	.EndProcReq		; --->
@@ -518,37 +431,6 @@ StartUnit:	move.l	d0,-(SP)
 		move.l	(SP)+,d0
 		rts
 
-***************************************************************************
-
-	*** Packet (A0) beantworten
-
-ReplyPacket:	movem.l	a0-a2,-(SP)
-		movea.l	a0,a2			; A2 :  Packet
-
-	IFD CRUNCH
-		bclr.b	#DPB_CRUNCHED,dp_Flags(a2)
-		beq.s	1$
-		movea.l	dp_Address(a2),a0	; A0 :  Start der gecrunchten Daten
-		move.l	dp_FileSize(a2),d0	; D0 :  File-Länge gecruncht
-		move.l	(a0),dp_FileSize(a2)	; Echte Länge für User
-		bsr	PPDecrunch		; File decrunchen
-1$:
-	ENDC
-		movea.l	dp_Reply(a2),a1		; A1 :  User's Reply-Adresse
-		btst.b	#DPB_REPLYHANDLER,dp_Flags(a2)
-		beq.s	2$
-		movea.l	a2,a0			; A0 :  Packet für User
-		jsr	(a1)			; ReplyHandler aufrufen
-		bra.s	99$			; --->
-2$:
-		btst.b	#DPB_REPLYBYTE,dp_Flags(a2)
-		beq.s	3$
-		st.b	(a1)			; ReplyByte setzen
-	;;	bra.s	99$			; --->
-3$:
-99$:		movem.l	(SP)+,a0-a2
-		rts
-
 
 ***************************************************************************
 **                                                                       **
@@ -924,9 +806,9 @@ DoWaitDMA:
 
 .ReadError:
 	IFD DEBUG
-		movea.l	du_ActPacket(a3),a0	; Für MSG
-		MSG	<"Read Error D0=Error A0=Packet A2=MFM A3=Unit">
-	ELSEIF
+		movea.l	du_ActPacket(a3),a0	; Für SMSG
+		SMSG	<"Read Error %d, Packet=$%08lx MFM=$%08lx Unit=$%08lx">,d0,a0,a2,a3
+	ELSE
 		move.w	#$fff,$dff180		; Weiss=Failure
 	ENDC
 		clr.w	du_DiskNumber(a3)	; Ungültige Diskette
diff --git a/FileIO.S b/FileIO.S
new file mode 100644
index 0000000..74cd21b
--- /dev/null
+++ b/FileIO.S
@@ -0,0 +1,170 @@
+
+		IDNT	FileIO
+		SECTION	text,CODE
+
+
+		INCLUDE	"MyExec.i"
+
+		XREF	ProcessNextRequest
+
+	IFND SYSTEM
+		XREF	GetD7A4A5
+	ENDC
+
+	IFD RAMVERSION
+		XREF	ProcessFFSPacket	; Für ramdrive.device
+	ENDC
+
+		XDEF	ReadFileFunc		; 'Datei' lesen
+		XDEF	WriteFileFunc		; 'Datei' schreiben
+
+		XDEF	LoadFileFunc		; Speicher reservieren & File lesen
+		XDEF	LoadFastFileFunc	; FAST alloc   & File lesen
+
+		XDEF	SendPacketFunc		; Asynchronen Lese-Request schicken
+
+		XDEF	ReplyPacket		; Internal helper for CDisk.S/SysCDisk.S
+
+
+
+***************************************************************************
+**                                                                       **
+**   R E A D F I L E  -  Datei von Disk an angegebene Adresse laden      **
+**                                                                       **
+**   Parameter :  D0.L :  DiskAdresse (Disk/Track/Offset) der Datei      **
+**                A0.L :  Ladeadresse                                    **
+**                                                                       **
+**   Resultat  :  nix                                                    **
+**                                                                       **
+***************************************************************************
+
+ReadFileFunc:	movem.l	d1/a0-a1,-(SP)
+		moveq	#0|DPF_REPLYBYTE,d1		; LESEN
+		bra.s	APost				; Paket aufgeben
+
+
+***************************************************************************
+**                                                                       **
+**   W R I T E F I L E  -  Existierende 'Datei' auf Disk überschreiben   **
+**                                                                       **
+**   Parameter :  D0.L :  DiskAdresse (Disk/Track/Offset) der Datei      **
+**                A0.L :  Adresse der Daten für das File                 **
+**                                                                       **
+**   Resultat  :  nix                                                    **
+**                                                                       **
+***************************************************************************
+
+WriteFileFunc:	movem.l	d1/a0-a1,-(SP)
+		move.b	#DPF_WRITE|DPF_REPLYBYTE,d1	; SCHREIBEN
+		bra.s	APost				; Paket aufgeben
+
+
+***************************************************************************
+**                                                                       **
+**   L O A D F I L E  -  Speicher reservieren, Datei von Disk lesen      **
+**                                                                       **
+**   Parameter :  D0.L :  DiskAdresse (Disk/Track/Offset) der Datei      **
+**                                                                       **
+**   Resultat  :  D0.L :  Adresse des Files, 0 if error                  **
+**                Z-Bit:  gelöscht wenn OK, gesetzt wenn Error           **
+**                                                                       **
+***************************************************************************
+
+LoadFileFunc:	movem.l	d1/a0-a1,-(SP)
+		moveq	#DPF_REPLYBYTE|DPF_ALLOCMEM,d1	; Packet Flags
+		bra.s	APost				; Paket aufgeben
+
+LoadFastFileFunc:
+		movem.l	d1/a0-a1,-(SP)
+		moveq	#DPF_REPLYBYTE|DPF_ALLOCFASTMEM,d1 ; Packet Flags
+	;;	bra.s	APost				   ; Paket aufgeben
+
+APost:		lea	-dp_SIZEOF-2(SP),SP	; DiskPacket erstellen
+		move.l	a0,dp_Address(SP)	; Ladeadresse eintragen
+		movea.l	SP,a0			; A0 :  Packet
+		move.l	d0,dp_FileName(a0)	; Dateinamen eintragen
+		lea	dp_SIZEOF(SP),a1	; A1 :  End-Flag
+		clr.b	(a1)			; löschen
+		move.l	a1,dp_Reply(a0)
+		move.b	d1,dp_Flags(a0)		; DPF_REPLYBYTE [|DPF_WRITE] usw.
+		bsr	SendPacketFunc
+1$:
+		SMSG	<"Waiting ...">
+		tst.b	(a1)			; Warten bis File geladen/geschrieben
+		beq.s	1$
+		move.l	dp_Address(SP),d0	; Resultat: Adresse
+		lea	dp_SIZEOF+2(SP),SP	; DiskPacket freigeben
+		SMSG	<"LoadFile done">
+		movem.l	(SP)+,d1/a0-a1
+		rts
+
+
+***************************************************************************
+**                                                                       **
+**   S E N D P A C K E T  -  Asynchronen Read-Request aufgeben           **
+**                                                                       **
+**   Parameter :  A0.L :  Zeiger auf struct DiskPacket                   **
+**                                                                       **
+**   Resultat  :  nix                                                    **
+**                                                                       **
+***************************************************************************
+
+SendPacketFunc:
+	IFD SYSTEM
+		movem.l	a0-a1,-(SP)
+	ELSE
+		movem.l	d7/a0-a1/a4-a5,-(SP)
+		bsr	GetD7A4A5		; Für ProcessNextRequest() in CDisk.S (nicht in SysCDisk.S)
+	ENDC
+		movea.l	a0,a1			; Packet
+		lea	meb_DiskList(a6),a0
+		jsr	meb_AddTail(a6)		; Packet anhängen
+		bsr	ProcessNextRequest	; System ankicken
+	IFD SYSTEM
+		movem.l	(SP)+,a0-a1
+	ELSE
+		movem.l	(SP)+,d7/a0-a1/a4-a5
+	ENDC
+		rts
+
+
+***************************************************************************
+
+	*** Packet (A0) beantworten
+
+ReplyPacket:	movem.l	d0/a0-a2,-(SP)
+		movea.l	a0,a2			; A2 :  Packet
+		moveq	#0,d0
+		move.b	dp_Flags(a2),d0
+
+	;;;	SMSG	<"ReplyPacket($%08lx), flags=$%02ld">,a2,d0
+
+	IFD CRUNCH
+		btst	#DPB_CRUNCHED,d0
+		beq.s	1$
+		movea.l	dp_Address(a2),a0	; A0 :  Start der gecrunchten Daten
+		move.l	dp_FileSize(a2),d0	; D0 :  File-Länge gecruncht
+		move.l	(a0),dp_FileSize(a2)	; Echte Länge für User
+		SMSG	<"Decrunching %ld to %ld bytes at $%08lx">,d0,(a0),a0
+		bsr	PPDecrunch		; File decrunchen
+1$:
+	ENDC
+		movea.l	dp_Reply(a2),a1		; A1 :  User's Reply-Adresse
+		btst	#DPB_REPLYHANDLER,d0
+		beq.s	2$
+		SMSG	<"Calling reply handler $%08lx">,a1
+		movea.l	a2,a0			; A0 :  Packet für User
+		jsr	(a1)			; ReplyHandler aufrufen
+		bra.s	99$			; --->
+2$:
+		btst	#DPB_REPLYBYTE,d0
+		beq.s	3$
+		SMSG	<"Setting reply byte $%08lx">,a1
+		st.b	(a1)			; ReplyByte setzen
+	;;	bra.s	99$			; --->
+3$:
+99$:		movem.l	(SP)+,d0/a0-a2
+		rts
+
+
+		END
diff --git a/SysCDisk.S b/SysCDisk.S
index 2d56e30..9385e1b 100644
--- a/SysCDisk.S
+++ b/SysCDisk.S
@@ -11,17 +11,15 @@
 ;CRUNCH
 
 		XREF	_RawPrintfFunc
+		XREF	ReplyPacket
 	IFD CRUNCH
 		XREF	PPDecrunch
 	ENDC
 
-		XDEF	InitDiskFunc	; Disk-System initialisieren
+		XDEF	InitDiskFunc		; Disk-System initialisieren
 		XDEF	SetNoDiskHandlerFunc
-		XDEF	ReadFileFunc	; 'Datei' lesen
-		XDEF	WriteFileFunc	; 'Datei' schreiben
-		XDEF	LoadFileFunc	; Speicher reservieren & File lesen
-		XDEF	LoadFastFileFunc	; FAST alloc   & File lesen
-		XDEF	SendPacketFunc	; Asynchronen Lese-Request schicken
+
+		XDEF	ProcessNextRequest	; Wird von SendPacket() aufgerufen
 
 
 ***************************************************************************
@@ -39,7 +37,7 @@ InitDiskFunc:	movem.l	d0/a0,-(SP)
 	*** DiskRequest-Liste initialisieren
 
 		lea	meb_DiskList(a6),a0
-		jsr	meb_NewList(a6)
+		SYSJSR	NewList
 
 		movem.l	(SP)+,d0/a0
 		rts
@@ -59,91 +57,6 @@ SetNoDiskHandlerFunc:
 
 
 **************************************************************************
-**                                                                      **
-**   R E A D F I L E  -  'Datei' von Disk lesen & MFM-dekodieren        **
-**                                                                      **
-**   Parameter :  D0.L :  DiskAdresse (Disk/Track/Offset) der Datei     **
-**                A0.L :  Ladeadresse                                   **
-**                                                                      **
-**   Resultat  :  D0.L :  Fehlernummer, 0 if successful                 **
-**                Z-Bit:  gesetzt if OK, gelöscht wenn Fehler           **
-**                                                                      **
-**************************************************************************
-
-ReadFileFunc:	movem.l	a0-a1,-(SP)
-		lea	-dp_SIZEOF-2(SP),SP	; DiskPacket erstellen
-		move.l	d0,dp_FileName(SP)
-		move.l	a0,dp_Address(SP)
-		movea.l	SP,a0			; A0 :  Packet
-		lea	dp_SIZEOF(SP),a1	; A1 :  End-Flag
-		clr.b	(a1)			; löschen
-		move.l	a1,dp_Reply(a0)
-		move.b	#DPF_REPLYBYTE,dp_Flags(a0)
-		bsr.s	SendPacketFunc
-1$:		tst.b	(a1)			; Warten bis File geladen!
-		beq.s	1$
-		lea	dp_SIZEOF+2(SP),SP	; DiskPacket freigeben
-		moveq	#0,d0			; Success ** DEBUG **
-		movem.l	(SP)+,a0-a1
-		rts
-
-
-**************************************************************************
-**                                                                      **
-**   L O A D F I L E  -  Speicher reservieren, Datei von Disk lesen     **
-**                                                                      **
-**   Parameter :  D0.L :  DiskAdresse (Disk/Track/Offset) der Datei     **
-**                                                                      **
-**   Resultat  :  D0.L :  Adresse des Files, 0 if error                 **
-**                Z-Bit:  gelöscht wenn OK, gesetzt wenn Error          **
-**                                                                      **
-**************************************************************************
-
-LoadFileFunc:	movem.l	d1/a0-a1,-(SP)
-		moveq	#DPF_REPLYBYTE|DPF_ALLOCMEM,d1	; Packet Flags
-		bra.s	DoLoadFile			   ; --->
-
-LoadFastFileFunc:
-		movem.l	d1/a0-a1,-(SP)
-		moveq	#DPF_REPLYBYTE|DPF_ALLOCFASTMEM,d1 ; Packet Flags
-	;;	bra.s	DoLoadFile			; --->
-
-DoLoadFile:	lea	-dp_SIZEOF-2(SP),SP	; DiskPacket erstellen
-		movea.l	SP,a0			; A0 :  Packet
-		lea	dp_SIZEOF(SP),a1	; A1 :  End-Flag
-		move.l	d0,dp_FileName(a0)
-		clr.b	(a1)			; End-Flag löschen
-		move.l	a1,dp_Reply(a0)
-		move.b	d1,dp_Flags(a0)		; ReplyType & MemoryType
-		bsr.s	SendPacketFunc
-1$:		tst.b	(a1)			; Warten bis File geladen!
-		beq.s	1$
-		move.l	dp_Address(SP),d0	; Resultat: Adresse
-		lea	dp_SIZEOF+2(SP),SP	; Doesn't change CCR
-		movem.l	(SP)+,d1/a0-a1
-		rts
-
-
-**************************************************************************
-**                                                                      **
-**   S E N D P A C K E T  -  Asynchronen Read-Request aufgeben          **
-**                                                                      **
-**   Parameter :  A0.L :  Zeiger auf struct DiskPacket                  **
-**                                                                      **
-**   Resultat  :  nix                                                   **
-**                                                                      **
-**************************************************************************
-
-SendPacketFunc:	movem.l	d7/a0-a1/a4-a5,-(SP)
-		movea.l	a0,a1			; Packet
-		lea	meb_DiskList(a6),a0
-		jsr	meb_AddTail(a6)		; Packet anhängen
-		bsr.s	ProcessNextRequest	; System ankicken
-		movem.l	(SP)+,d7/a0-a1/a4-a5
-		rts
-
-
-**************************************************************************
 
 	*** Nächsten Request aus Diskliste verarbeiten
 
@@ -154,16 +67,11 @@ ProcessNextRequest:
 		jsr	meb_RemHead(a6)		; setzt CCR
 		beq	.EndProcReq		; Kein Request pending --->
 		movea.l	d0,a2			; A2 :  Aktuelles Packet
-
-	*** "Loading 'filename' (flags)" auf Debug-Konsole ausgeben
-
+	IFD DEBUG
 		moveq	#0,d0
-		move.b	dp_Flags(a2),d0
-		move.w	d0,-(SP)
-		move.l	dp_FileName(a2),-(SP)
-		pea	LoadingFmt(PC)
-		bsr	_RawPrintfFunc
-		lea	10(SP),SP
+		move.b	dp_Flags(a2),d0		; für SMSG
+		SMSG	<"Loading '%s' (flags=$%02lx) ... ">,dp_FileName(a2),d0
+	ENDC
 
 	*** Packet bearbeiten
 
@@ -172,28 +80,24 @@ ProcessNextRequest:
 		movea.l	dp_FileName(a2),a0
 		bsr	@CheckFile
 		move.l	d0,d2			; D2 :  File-Länge
-		move.l	d2,-(SP)
 		bne	1$			; OK -->
-		pea	NotFoundText(PC)
-		bsr	_RawPrintfFunc
-		addq.w	#4,SP
+		SMSG	<"'%s': file not found!">,dp_FileName(a2)
 		bra	.Error
-1$
+1$:
 		btst.b	#DPB_ALLOCMEM,dp_Flags(a2) ; CHIP-Alloc gewünscht ?
 		beq.s	.NoChipAlloc		; nein --->
 		move.l	d2,d0			; File-Länge
 		movea.l	a5,a6			; MyExecBase
-		jsr	meb_AllocMem(a6)
+		SYSJSR	AllocMem
 		bra.s	.AllocCont		; --->
 .NoChipAlloc:
 		btst.b	#DPB_ALLOCFASTMEM,dp_Flags(a2) ; FAST-Alloc gewünscht?
 		beq.s	.NoFastAlloc		; nein --->
 		move.l	d2,d0			; File-Länge
 		movea.l	a5,a6			; MyExecBase
-		jsr	meb_AllocFastMem(a6)
+		SYSJSR	AllocFastMem
 .AllocCont:	move.l	d0,dp_Address(a2)	; Adresse ins Packet
 .NoFastAlloc:
-
 		move.l	dp_FileName(a2),d1
 		move.l	#MODE_OLDFILE,d2
 		movea.l	_DOSBase,a6
@@ -201,89 +105,25 @@ ProcessNextRequest:
 		move.l	d0,d7
 		bne.s	2$
 
-		movea.l	dp_FileName(a2),a0
-		lea	df0buf,a1
-.copy:		move.b	(a0)+,(a1)+
-		bne.s	.copy
+.Error:		movea.l	a5,a6			; MyExecBase
+		jmp	meb_ColdReboot(a6)	; Raus hier!
 
-		move.l	#buf,d1
-		JSRLIB	Open
-		move.l	d0,d7
-		beq.s	.Error
-2$
-		move.l	d7,d1
+2$:		move.l	d7,d1
 		move.l	dp_Address(a2),d2
 		move.l	#10000000,d3
 		JSRLIB	Read
 
-		move.l	d0,-(SP)
-		pea	BytesFmt(PC)
-		bsr	_RawPrintfFunc
-		lea	8(SP),SP
+		SMSG	<"Loaded %ld bytes at $%08lx">,d0,d2
 
 		move.l	d7,d1
 		JSRLIB	Close
-
+.DoReply
 		movea.l	a2,a0
 		movea.l	a5,a6			; MyExecBase
-		bsr.s	ReplyPacket		; Packet (A0) beantworten
-
+		bsr	ReplyPacket		; Packet (A0) beantworten
 .EndProcReq:	movem.l	(SP)+,d0-d7/a0-a5
 		rts
 
-.Error:		movea.l	a5,a6			; MyExecBase
-		jmp	meb_ColdReboot(a6)	; Raus hier!
-
-
-***************************************************************************
-
-	*** Packet (A0) beantworten
-
-ReplyPacket:	movem.l	a0-a2,-(SP)
-		movea.l	a0,a2			; A2 :  Packet
-		movea.l	dp_Reply(a2),a1		; A1 :  User's Reply-Adresse
-
-	*** Text ausgeben
-
-		move.l	dp_Address(a2),-(SP)
-		pea	LoadedFmt(PC)
-		bsr	_RawPrintfFunc
-		lea	8(SP),SP
-
-	IFD CRUNCH
-		bclr.b	#DPB_CRUNCHED,dp_Flags(a2)
-		beq.s	1$
-		movea.l	dp_Address(a2),a0	; A0 :  Decrunch-Start
-		move.l	dp_FileSize(a2),d0	; D0 :  File-Länge gecruncht
-		move.l	(a0),dp_FileSize(a2)	; Echte Länge für User
-		bsr	PPDecrunch
-1$:
-	ENDC
-		btst.b	#DPB_REPLYHANDLER,dp_Flags(a2)
-		beq.s	2$
-		movea.l	a2,a0			; A0 :  Packet für User
-		jsr	(a1)			; ReplyHandler aufrufen
-		bra.s	99$			; --->
-2$:
-		btst.b	#DPB_REPLYBYTE,dp_Flags(a2)
-		beq.s	3$
-		st.b	(a1)			; ReplyByte setzen
-	;;	bra.s	99$			; --->
-3$:
-99$:		movem.l	(SP)+,a0-a2
-		rts
-
-**************************************************************************
-**                                                                      **
-**   W R I T E F I L E  -  Existierende 'Datei' auf Disk überschreiben  **
-**                                                                      **
-**   Parameter :  D0.L :  FN_-Konstante (von DiskMaker erzeugt)         **
-**                A0.L :  Adresse der Daten für das File                **
-**                                                                      **
-**************************************************************************
-
-WriteFileFunc:	rts
-
 
 **************************************************************************
 *             D A T E N  (auch im CODE-Segment wegen PC-relativ)         *
@@ -291,13 +131,4 @@ WriteFileFunc:	rts
 
 InsertDiskRoutine:	ds.l	1		; User's InsertDisk handler
 
-
-LoadingFmt:	dc.b	"Loading '%s' (flags=$%02x) ... ",0
-BytesFmt:	dc.b	"%ld bytes ",0
-LoadedFmt:	dc.b	"at $%08lx",10,13,0
-NotFoundText:	dc.b	"file not found",10,13,0
-
-buf:		dc.b	"DF0:"
-df0buf:		ds.b	64
-
 		END