diff options
| -rw-r--r-- | LoadSeg.S | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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) |