From 55ffc7b549a581b23ab04114ea01bea8029999eb Mon Sep 17 00:00:00 2001
From: "Christian B. Haller" <christian@haller.ch>
Date: Tue, 30 Jun 2020 04:19:48 +0200
Subject: SETNAME added

---
 drawbob.i | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

(limited to 'drawbob.i')

diff --git a/drawbob.i b/drawbob.i
index dd550d7..2623004 100644
--- a/drawbob.i
+++ b/drawbob.i
@@ -1,5 +1,5 @@
 *
-* DrawBob.i  (zu BOBOL V3.16  23-Aug-91)
+* DrawBob.i  (zu BOBOL V3.18  28-Jun-20)
 *
 
          ***********  BOBOL  Kommandos  *************
@@ -234,6 +234,17 @@ SETID:		MACRO
 		DC.W	\1
 		ENDM
 
+
+SETNAME:	MACRO
+	IFD DEBUG
+		DC.W	BOBSETNAME
+		dc.b	\1
+		dc.b	0
+		even
+	ENDC
+		ENDM
+
+
 SETUSERDATA:	MACRO
 		dc.b	bob_UserData
 		dc.b	BOBSETLONG
@@ -473,6 +484,7 @@ COMVAL:		SET	COMVAL-2
 
 	SETCOM	JNE		
 
+	SETCOM	SETNAME
 
 BOBLEFT:		EQU	1
 BOBRIGHT:		EQU	2
@@ -644,9 +656,8 @@ CLIPF_GLOBALL:	EQU	CLIPF_ALL|CLIPF_GLOBAL
 
 	BYTE	bob_sr			; Status-register
 	BYTE	bob_Pad1
-
+	APTR	bob_Name
 	LABEL	bob_SIZEOF		; Länge der Bob Struktur
-
 	LABEL	bob_AnimPtrs		; Array auf die einzelnen Bobs der Animation
 
 bob_Test:	EQU	18504
-- 
cgit v1.2.3