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

---
 Keyboard.S | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Keyboard.S')

diff --git a/Keyboard.S b/Keyboard.S
index 50fdb2d..486612f 100644
--- a/Keyboard.S
+++ b/Keyboard.S
@@ -94,8 +94,8 @@ ExitKeyFunc:	movem.l	d1-d2/a0-a1/a6,-(SP)
 		JSRLIB	CloseDevice
 
 		movea.l	d2,a1			; IO-Request
-	;;	MSG	<"Trying to DeleteIO (a1)">
-	;;	bsr	@DeleteIO		; freigeben
+	;;;	SMSG	<"Deleting Keyboard IO-Request $%08lx">,a1
+		bsr	@DeleteIO		; freigeben
 		clr.l	InputIOReq
 1$:
 		movem.l	(SP)+,d1-d2/a0-a1/a6
@@ -290,6 +290,7 @@ keydown:	cmpi.b	#$60,d0		; shift, alt, ctrl amiga etc. ?
 		addi.w	#$60,d0		; shift: Daten aus Tabelle 2
 2$:		movea.l	KeyMapPtr,a0	; Zeiger auf aktuelle Keymap
 		move.b	0(a0,d0.w),d0
+		SMSG	<"Key pressed: '%lc' (%ld)">,d0,d0
 		move.b	d0,meb_ActualASCIIKey(a6)
 		beq.s	keyend		; wenn 0: ignorieren
 		move.w	KeyBufPtr,d1	; D0 in den Tastaturpuffer
-- 
cgit v1.2.3