Turrican II boot loader (Cracked version)

******* Turrican II Boot Code
******* Run's without the cracktro

Boot dc.b 'DOS',0
CLR.W $00DFF180
MOVE.L A1,-(A7)
CLR.L D5
CLR.L D7
; MOVEQ #$04,D6
; BSR.W LB_008A
; MOVEQ #$02,D6
; BSR.W LB_008A
MOVE.L D7,-(A7)
MOVE.L $0004(A7),A1
MOVE.W #$0002,$001C(A1) ****** Command 2 = Read
MOVE.L #$00060000,$0028(A1) ****** located $60000
MOVE.L #$00000800,$0024(A1) ****** length 4*512 sect.
MOVE.L #$00000400,$002C(A1) ****** at offset 2 (sector)
JSR -$01C8(A6) ****** Do IO (Read)
MOVE.W #$0009,$001C(A1) ****** ?
CLR.L $0024(A1) ****** length = 0 ????
JSR -$01C8(A6)
MOVE.L (A7)+,D0
MOVE.L $0004.W,A6
BTST #$01,$0129(A6)
BEQ.B LB_0080
LEA LB_007A(PC),A0
MOVE.L A0,$0080.W
TRAP #$0
LB_007A CLR.W D1
DC $4E7B
MOVE.B D2,D0
LB_0080 MOVE.L #$00060000,$0080.W
TRAP #$0
LB_008A MOVE.L $0004.W,A6
MOVE.L D6,D1 ****** D1 = #4
ORI.L #$00020000,D1 ****** D1 = $20004
JSR -$00D8(A6) ****** Gosub 216 (IsInteractive) D=file
MOVE.L D0,D1 ****** Answer put 2 D1
CLR.W D1 ****** D1 = 0 or $ffff0000
TST.L D1 ****** Test D1
BEQ.B LB_00E2 ****** If error then Rts
MOVE.L D0,-(A7) ****** Move D0 2 Stack ?
MOVE.L D6,D1 ****** D1 = #4
JSR -$00C6(A6) ****** Gosub 198 (Wait 4 ticks) why ?
MOVE.L (A7)+,D1 ****** Return old D1
CMPI.L #$00080000,D0
BGT.B LB_00C4
MOVE.L #$00080000,D2
SUB.L D0,D2
SUB.L D2,D1
BMI.B LB_00E2
BEQ.B LB_00E2
ADD.L D2,D0
LB_00C4 MOVE.L D0,A0
CLR.L (A0)
MOVE.L D1,$0004(A0)
CLR.L $0008(A0)
TST.L D5
BEQ.B LB_00D8
MOVE.L D5,A0
MOVE.L D0,(A0)
LB_00D8 MOVE.L D0,D5
TST.L D7
BNE.B LB_008A
MOVE.L D0,D7
BRA.B LB_008A
LB_00E2 RTS
*************1 2 3 4 5 6 7 8 9 a
dc.b 0,0,0,0,0,0,0,0,0,0
dc.b 0,0,0,0,0,0,0,0,0,0
dc.b 0,0,0,0,0,0,0,0,0,0
dc.b 0,0,0,0,0,0,0,0,0,0
dc.b 0,0,0,0,0,0,0,0,0,0
dc.b 0,0,0,0

cd /