From 2463fb307217ec70078ee7a4c4755f879d18823a Mon Sep 17 00:00:00 2001 From: "Christian A. Weber" Date: Tue, 30 Jun 2020 04:05:46 +0200 Subject: Debug-Output optimiert --- FileIO.S | 5 +---- Keyboard.S | 5 +++-- 2 files changed, 4 insertions(+), 6 deletions(-) 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$: 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