Quote:
Originally Posted by DamienD
Great, tested both and all working now!!!
Thank you Sting, much appreciated
|
Excellent.
For those curious here's the source as well.
Code:
START movem.l d0/a0,-(a7) ; save command line params
move.l $4.w,a6
lea DOSName(pc),a1
jsr -408(a6) ; OpenLibrary()
tst.l d0
beq.b .exit
move.l d0,a6
pea Name(pc)
move.l (a7)+,d1
jsr -150(a6) ; LoadSeg()
move.l d0,d7
lsl.l #2,d7
move.l d7,a1
addq.w #4,a1
pea Crack(pc)
move.w #$4ef9,$236(a1)
move.l (a7)+,$236+2(a1)
movem.l (a7)+,d0/a0
jmp (a1)
.exit movem.l (a7)+,d0/a0
rts
Crack subq.l #4,d0 ; back to segment list
move.l d0,a0
moveq #7-1,d7
.secloop
move.l (a0),a0
add.l a0,a0
add.l a0,a0
dbf d7,.secloop
addq.w #4,a0
move.w #$4e71,$d8e3c-$d7994(a0) ; disable protection check
;move.l #$7cff4e75,$d8cb0-$d7994(a0) ; completely disable manual protection
movem.l (a7)+,d0-a6 ; original code
rts
dc.b "Cracked by StingRay/[S]carab^Scoopex, 20.03.2018",10,0
DOSName dc.b "dos.library",0
Name dc.b "golf",0