From 2463fb307217ec70078ee7a4c4755f879d18823a Mon Sep 17 00:00:00 2001
From: "Christian A. Weber" <chris@gna.ch>
Date: Tue, 30 Jun 2020 04:05:46 +0200
Subject: Debug-Output optimiert

---
 FileIO.S | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'FileIO.S')

diff --git a/FileIO.S b/FileIO.S
index 74cd21b..291294c 100644
--- a/FileIO.S
+++ b/FileIO.S
@@ -89,12 +89,10 @@ APost:		lea	-dp_SIZEOF-2(SP),SP	; DiskPacket erstellen
 		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
 
@@ -152,14 +150,13 @@ ReplyPacket:	movem.l	d0/a0-a2,-(SP)
 		movea.l	dp_Reply(a2),a1		; A1 :  User's Reply-Adresse
 		btst	#DPB_REPLYHANDLER,d0
 		beq.s	2$
-		SMSG	<"Calling reply handler $%08lx">,a1
+	;;	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$:
-- 
cgit v1.2.3