summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--LoadSeg.S12
1 files 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)