From d1ebeef28a848703c65663a6d15464174a3bac15 Mon Sep 17 00:00:00 2001
From: "Christian A. Weber" <chris@gna.ch>
Date: Sat, 27 Jun 2020 02:28:46 +0200
Subject: Obfuscation entfernt, Debug-Output

---
 LoadSeg.S | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/LoadSeg.S b/LoadSeg.S
index 97040d0..a09bbf6 100644
--- a/LoadSeg.S
+++ b/LoadSeg.S
@@ -69,23 +69,22 @@ RELOCMAGIC:	EQU	'RLOC'
 	*** D0 :  Filename
 
 LoadSegFunc:	movem.l	d1-d6/a0-a5,-(SP)
-		move.l	#-RELOCMAGIC,d5
 		bsr	LoadFastFileFunc	; File ins FAST RAM einladen
 		movea.l	d0,a2			; A2 :  File-Base
 		move.l	a2,d6			; D6 :  File-Base für später
-		neg.l	d5			; Gegen Cracker
+		move.l	#RELOCMAGIC,d5
 
 	*** Parameter aus FileHeader holen
 
-		move.l	#~SEGMAGIC,d0
-		not.l	d0			; Gegen Cracker
+		move.l	#SEGMAGIC,d0
 		cmp.l	(a2)+,d0		; Kennung OK ?
 		beq.s	1$			; ja --->
-		MSG	<"Not an object module, D6=File">
+		SMSG	<"Not an object module at $%08lx">,d6
 		jmp	meb_ColdReboot(a6)
 1$:
 		movem.l	(a2)+,d2-d4		; D2 : CODESIZE, D3: DATASIZE
 						; D4 : BSSSIZE
+		SMSG	<"Code:%ld, Data:%ld, BSS:%ld">,d2,d3,d4
 
 	*** Speicher für Code, Data und BSS allozieren
 
@@ -99,6 +98,7 @@ LoadSegFunc:	movem.l	d1-d6/a0-a5,-(SP)
 		movea.l	d0,a4			; A4 :  DATA-Segment
 		move.l	a4,(a3)+		; in Code-Segment merken
 
+	SMSG	<"Allocation BSS ...">
 		move.l	d4,d0			; BSS-Size
 		jsr	meb_AllocClearMem(a6)	; BSS wird gelöscht
 		movea.l	d0,a5			; A5 :  BSS-Segment
@@ -176,7 +176,7 @@ LoadSegEnd:
 		movem.l	(SP)+,d1-d6/a0-a5
 		rts
 
-BadReloc:	MSG	<"Bad reloc, D6=File">
+BadReloc:	SMSG	<"File $%08lx: Bad reloc magic">,d6
 		jmp	meb_ColdReboot(a6)
 
 
-- 
cgit v1.2.3