ùúùúÿú+ßÿú+ßÿú+ßÿú+ßÿú+ßÿú+ßÿú+ßÿú+ßÿú+ßj:
       lea     pik(pc),a1
       move.l  a1,$80
       trap    #0

pik:   lea     $74000,a0        ; dest addr.
       lea     $71000,a1        ; decode addr. 
       move.l  #$2c00,d5        ; offset
       moveq   #0,d4		; drive nr.
       move.l  #$1600,d6        ; lenght
       jsr     LB_0200
       rts
       
 ORG  $70200
 LOAD $70200
 
*********************************MAINLOAD**************************************
LB_0200	MOVEM.L	D1-A6,-(A7)
	MOVE.L	D4,D0
	LEA	$00DFF000,A6
	BSR.B	LB_025E
	BNE.B	LB_0240
	LEA	LB_043E(PC),A4
	MOVE.L	A1,(A4)
	MOVE.W	#$4489,$007E(A6)
	MOVE.W	#$7F00,$009E(A6)
	MOVE.W	#$9500,$009E(A6)
	MOVE.L	#$55555555,D4
	LEA	LB_0443(PC),A4
	DIVU.W	#$1600,D5
	MOVE.B	D5,(A4)
	CLR.W	D5
	SWAP	D5
	BSR.W	LB_03D8
LB_0240	BSR.B	LB_024A
	TST.L	D0
	MOVEM.L	(A7)+,D1-A6
	RTS	


LB_024A	MOVEQ	#-$79,D1
LB_024C	BSR.B	LB_0256
	ST	(A5)
	MOVE.B	D1,(A5)
	ST	(A5)
	RTS	
LB_0256	LEA	$00BFD100,A5
	RTS	

LB_025E	ADDQ.B	#3,D0
	ST	D1
	BSR.B	LB_024C
	BCLR	D0,D1
	MOVE.B	D1,(A5)
	BSR.B	LB_029A
	MOVEQ	#$7F,D3
	BSR.B	LB_02A0
	BTST	#$02,$0F01(A5)
	BEQ.B	LB_0292
	MOVE.B	D3,(A5)
	AND.B	D3,D1
	MOVE.B	D1,(A5)
	MOVE.W	#$3A00,D1
LB_0280	BTST	#$05,$0F01(A5)
	BEQ.B	LB_0296
	BSR.B	LB_02B8
	DBF	D1,LB_0280
	MOVEQ	#-$04,D0
	RTS	

LB_0292	MOVEQ	#-$03,D0
	RTS	

LB_0296	MOVEQ	#$00,D0
	RTS	

LB_029A	BCLR	#$01,(A5)
	BRA.B	LB_02A4

LB_02A0	BSET	#$01,(A5)
LB_02A4	BCLR	#$00,(A5)
	BSR.B	LB_02B8
	BSET	#$00,(A5)
	MOVEQ	#$5A,D2
LB_02B0	BSR.B	LB_02B8
	DBF	D2,LB_02B0
	RTS	

LB_02B8	MOVE.B	D7,-(A7)
	MOVE.B	$0006(A6),D7
LB_02BE	CMP.B	$0006(A6),D7
	BEQ.B	LB_02BE
	MOVE.B	(A7)+,D7
	RTS	

LB_02C8	MOVE.B	LB_0442(PC),D1
	BNE.B	LB_02DE
	BSR.B	LB_0256
LB_02D0	BTST	#$04,$0F01(A5)
	BEQ.B	LB_02DC
	BSR.B	LB_02A0
	BRA.B	LB_02D0
LB_02DC	MOVEQ	#$00,D1
LB_02DE	LEA	LB_0443(PC),A5
	MOVE.B	(A5),D0
	MOVE.B	D0,-(A5)
	BSR.W	LB_0256
	BSET	#$02,(A5)
	LSR.B	#1,D0
	BCC.B	LB_02F6
	BCLR	#$02,(A5)
LB_02F6	LSR.B	#1,D1
LB_02F8	CMP.B	D1,D0
	BEQ.B	LB_030A
	BCS.B	LB_0304
	BSR.B	LB_029A
	ADDQ.B	#1,D1
	BRA.B	LB_02F8
LB_0304	BSR.B	LB_02A0
	SUBQ.B	#1,D1
	BRA.B	LB_02F8
LB_030A	RTS	

LB_030C	MOVE.W	#$4000,$0024(A6)
	BSR.B	LB_02C8
	SUBQ.W	#1,-$0002(A4)
	BEQ.W	LB_03B0
	MOVE.L	LB_043E(PC),A2
	MOVE.L	A2,$0020(A6)
	MOVE.W	#$8210,$0096(A6)
	MOVE.W	#$0002,$009C(A6)
	MOVE.W	#$99C0,D1
	MOVE.W	D1,$0024(A6)
	MOVE.W	D1,$0024(A6)
	MOVEQ	#$0C,D1
	SWAP	D1
LB_0340	SUBQ.L	#1,D1
	BEQ.B	LB_03B0
	BTST	#$01,$001F(A6)
	BEQ.B	LB_0340
	MOVE.W	#$4000,$0024(A6)
	MOVEQ	#$0A,D3
LB_0354	LEA	$0800(A2),A3
LB_0358	CMPI.W	#$4489,(A2)+
	BNE.B	LB_0358
	CMPI.W	#$4489,(A2)
	BNE.B	LB_036A
	CMPA.L	A3,A2
	BCS.B	LB_0358
	BRA.B	LB_030C
LB_036A	MOVE.L	$0004(A2),D1
	BSR.B	LB_03B4
	SWAP	D0
	CMP.B	LB_0442(PC),D0
	BEQ.B	LB_0380
	LEA	LB_0442(PC),A5
	CLR.B	(A5)
	BRA.B	LB_030C
LB_0380	MOVE.L	A2,A3
	MOVE.W	#$010D,D7
	BSR.B	LB_03C0
	BNE.B	LB_030C
	MOVE.L	$0004(A2),D1
	BSR.B	LB_03B4
	LSR.W	#6,D0
	LEA	$0038(A2),A2
	MOVE.L	A2,$00(A4,D0.W)
	LEA	$0200(A2),A5
	MOVEQ	#$7F,D2
LB_03A0	BSR.B	LB_03B2
	MOVE.L	D0,(A2)+
	DBF	D2,LB_03A0
	MOVE.L	A5,A2
	DBF	D3,LB_0354
	MOVEQ	#$01,D1
LB_03B0	RTS	

LB_03B2	MOVE.L	(A5)+,D1
LB_03B4	MOVE.L	(A2),D0
	AND.L	D4,D1
	AND.L	D4,D0
	ADD.L	D0,D0
	ADD.L	D1,D0
	RTS	

LB_03C0	MOVEM.L	D1/A3,-(A7)
	MOVEQ	#$00,D0
LB_03C6	MOVE.L	(A3)+,D1
	EOR.L	D1,D0
	DBF	D7,LB_03C6
	AND.L	D4,D0
	MOVEM.L	(A7)+,D1/A3
	TST.L	D0
	RTS	

LB_03D8	LEA	$00(A0,D6.L),A1
	MOVEQ	#$00,D6
	DIVU.W	#$0200,D5
	SWAP	D5
	MOVE.W	D5,D6
	SWAP	D5
	LINK.W	A4,#$FFD2
	LEA	-$002C(A4),A4
LB_03F0	MOVE.W	#$0004,-$0002(A4)
LB_03F6	BSR.W	LB_030C
	BEQ.B	LB_042A
	MOVEQ	#$0A,D0
	SUB.W	D5,D0
	LSL.W	#2,D5
	LEA	$00(A4,D5.W),A2
	ADD.L	D6,(A2)
LB_0408	MOVE.L	(A2)+,A3
	MOVE.W	#$01FF,D1
	SUB.W	D6,D1
LB_0410	MOVE.B	(A3)+,(A0)+
	CMPA.L	A0,A1
	BEQ.B	LB_0434
	DBF	D1,LB_0410
	MOVEQ	#$00,D6
	DBF	D0,LB_0408
	MOVEQ	#$00,D5
	LEA	LB_0443(PC),A5
	ADDQ.B	#1,(A5)
	BRA.B	LB_03F0
LB_042A	SUBQ.W	#1,-$0002(A4)
	BPL.B	LB_03F6
	MOVEQ	#-$01,D0
	BRA.B	LB_0436
LB_0434	MOVEQ	#$00,D0
LB_0436	LEA	$002C(A4),A4
	UNLK	A4
	RTS	

LB_043E	DC.B	$00,$07,$00,$00
LB_0442 DC.B    $00
LB_0443 DC.B    $00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00