summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian A. Weber <chris@gna.ch>2020-06-30 04:05:46 +0200
committerChristian A. Weber <chris@gna.ch>2020-06-30 04:05:46 +0200
commit2463fb307217ec70078ee7a4c4755f879d18823a (patch)
tree42343432b5d0023312f9445a61b7fcd492fd28d8
parent74b34af0a91a0303859da828f1fd568217214450 (diff)
downloadgameexec-2463fb307217ec70078ee7a4c4755f879d18823a.tar.gz
gameexec-2463fb307217ec70078ee7a4c4755f879d18823a.tar.bz2
gameexec-2463fb307217ec70078ee7a4c4755f879d18823a.zip
Debug-Output optimiert
-rw-r--r--FileIO.S5
-rw-r--r--Keyboard.S5
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