	org	$0
	incbin	dune2.bin		;   2

	org	$D54
	nop				;   
	nop
	nop
	

	org	$4E5A
	move.w  radar_xlight(pc,d0.w),d0
	or.w    d0,6(a0)	
	clr.w   ($FFFFBF6A).w
	rts

radar_xlight:
	dc.w	$0
	dc.w	$2000
	dc.w	$6000
	dc.w	$4000
	dc.w	$4000


	org	$4F44
	dc.w	$4000
	move.l  #$68BD2,($FFFFBF6E).w


	org	$4FA4
	move.l  radar_borders(pc,d3.w),d0


	org	$4FCC
	move.w  radar_borders(pc,d3.w),d0

	org	$4FF6
radar_borders:
	dc.l	$44444444
	dc.l	$77777777
	dc.l	$66666666
	dc.l	$77777777
	dc.l	$EEEEEEEE
radar_upper_border:
	move.l  radar_borders(pc,d1.w),d0
	rts


	org	$518C
	lea	radar_xlight(pc),a1


	org	$5458
	jsr	(radar_upper_border).w


	org	$BF5E
	blt.s   $BF8C

	org	$FB04
	nop				; 'thopter (upgrades)


	org	$10092
	dc.w	$6006			; s-tank  devastor  



	org	$127EC
	lea     (planet_colors).l,a1

	org	$160BC
	jmp	($100000).l		;       

	
	org	$1A8BC			; radar
	jsr	($4F44+2).l


	org	$1F43E
	lea     (mentat_text).l,a2


	org	$1F520
	lea     (mentat_text).l,a2


	org	$1F5AC
	lea     (mentat_text).l,a2


	org	$21918
	lea     (PASSWORDS).l,a3

	org	$21954
	lea     (PASSWORDS+4).l,a0

	org	$21984
	dc.w	$0016

	org	$21994
	lea     (PASSWORDS+4).l,a0

	org	$219A4
	lea     (PASSWORDS+6).l,a0


	org	$2499C
	lea     (region_colors).l,a3

	org	$24A00
	lea     (region_colors).l,a3

	org	$25970
	move.w	($FFFFC274).w,d0
	andi.w	#3,d0			;   ()
	asl.w	#2,d0

	org	$25F48
	lea     (region_colors).l,a3
	
	org	$25F9C
	move.w	($FFFFC274).w,d0
	andi.w	#3,d0			;  ?
	asl.w	#2,d0

	org	$2600C
	move.w	($FFFFC274).w,d7
	andi.w	#3,d7			;   ()
	asl.w	#2,d7


	org	$26086
	jmp	mentat_palette	


	org	$262C4
	lea     (region_colors).l,a3

	org	$26966
	nop				;   

	
	org	$26F3A
	jmp	password_sardukar
	

	org	$26F6A
	lea     (house_name_txt).l,a0



	org	$100000	
					
	move.w  $A(a6),d0		;  id  (   )
	lea	missions_list(pc),a2	;     
	add.w	d0,d0
	add.w	d0,d0
	movea.l	(a2,d0.w),a2		;   2  

	move.w  8(a6),d0		;    (   )
	subq.w	#1,d0
	add.w	d0,d0
	add.w	d0,d0
	movea.l	(a2,d0.w),a2		;   2  

	clr.l	($FFFFC71C).w		;   (   )

	jmp	$16110			; 



password_sardukar:
	cmpi.w	#4,($FFFFFC274).w
	beq.s	sardukar_pw
	lea     (PASSWORDS).l,a0
	jmp	$26F40

sardukar_pw:
	lea	(sardukar_pass).l,a0
	asl.w	#3,d7
	jmp	$26F50

missions_list:
	dc.l	hark_miss
	dc.l	atreides_miss
	dc.l	ordos_miss
	dc.l	fremen_miss
	dc.l	sardukar_miss

* 

hark_miss:
	dc.l	$0005A378 
	dc.l	$0005A4EE
	dc.l	$0005A74A
	dc.l	$0005AA48
	dc.l	$0005AF16
	dc.l	$0005B528
	dc.l	$0005BBA0
	dc.l	$0005C50E
	dc.l	$0005D00C

fremen_miss:
atreides_miss:
	dc.l	$00056FAE
	dc.l	$00057144
	dc.l	$00057378
	dc.l	$000575E4
	dc.l	$00057A96
	dc.l	$00058044
	dc.l	$00058654
	dc.l	$00058DD2
	dc.l	$000598BA

ordos_miss:
	dc.l	$0005DB2C
	dc.l	$0005DCA2
	dc.l	$0005DEEC
	dc.l	$0005E36C
	dc.l	$0005E7DC
	dc.l	$0005EC06
	dc.l	$0005F262
	dc.l	$0005F874
	dc.l	$000603E6

sardukar_miss:
	dc.l	sardukar_miss1
	dc.l	sardukar_miss2
	dc.l	sardukar_miss3
	dc.l	sardukar_miss4
	dc.l	sardukar_miss5
	dc.l	sardukar_miss6
	dc.l	sardukar_miss7
	dc.l	sardukar_miss8
	dc.l	sardukar_miss9

*    (  )

sardukar_miss1:
	incbin	sardukar\1.bin
sardukar_miss2:
	incbin	sardukar\2.bin
sardukar_miss3:
	incbin	sardukar\3.bin
sardukar_miss4:
	incbin	sardukar\4.bin
sardukar_miss5:
	incbin	sardukar\5.bin
sardukar_miss6:
	incbin	sardukar\6.bin
sardukar_miss7:
	incbin	sardukar\7.bin
sardukar_miss8:
	incbin	sardukar\8.bin
sardukar_miss9:
	incbin	sardukar\9.bin



mentat_palette:
	move.w  ($FFFFC274).w,d0
	cmpi.w	#4,d0
	beq.s	mentat_sard
	lea	($A2C3E).l,a1
	jmp	$26092

mentat_sard:
	lea	(sard_mentat_pal),a1
	jmp	$26098


sard_mentat_pal:
	incbin	files\sardmpal.bin

mentat_text:
	dc.l	$87EA8
	dc.l	$87D88
	dc.l	$87E18
	dc.l	$87D88
	dc.l	mentat_text_sardaukar


region_colors:
	dc.l	$95EA4
	dc.l	$95D14
	dc.l	$95DDC
	dc.l	$95D14
	dc.l	sard_colors


mentat_text_sardaukar:
	
	dc.l	sardukar_mission1_brief
	dc.l	sardukar_mission1_win
	dc.l	sardukar_mission1_lose
	dc.l	sardukar_mission1_advice

	dc.l	sardukar_mission2_brief
	dc.l	sardukar_mission2_win
	dc.l	sardukar_mission2_lose
	dc.l	sardukar_mission2_advice

	dc.l	sardukar_mission3_brief
	dc.l	sardukar_mission3_win
	dc.l	sardukar_mission3_lose
	dc.l	sardukar_mission3_advice

	dc.l	sardukar_mission4_brief
	dc.l	sardukar_mission4_win
	dc.l	sardukar_mission4_lose
	dc.l	sardukar_mission4_advice

	dc.l	sardukar_mission5_brief
	dc.l	sardukar_mission5_win
	dc.l	sardukar_mission5_lose
	dc.l	sardukar_mission5_advice

	dc.l	sardukar_mission6_brief
	dc.l	sardukar_mission6_win
	dc.l	sardukar_mission6_lose
	dc.l	sardukar_mission6_advice

	dc.l	sardukar_mission7_brief
	dc.l	sardukar_mission7_win
	dc.l	sardukar_mission7_lose
	dc.l	sardukar_mission7_advice

	dc.l	sardukar_mission8_brief
	dc.l	sardukar_mission8_win
	dc.l	sardukar_mission8_lose
	dc.l	sardukar_mission8_advice

	dc.l	sardukar_mission9_brief
	dc.l	sardukar_mission9_win
	dc.l	sardukar_mission9_lose
	dc.l	sardukar_mission9_advice
	

planet_colors:
	incbin	files\finalpal.bin

sard_colors:
	include files\regionsa.txt



PASSWORDS:
	incbin	files\codesoff.bin
sardukar_pass:
	dc.l	sard_1
	dc.l	$00040001
	dc.l	sard_2
	dc.l	$00040002
	dc.l	sard_3
	dc.l	$00040003
	dc.l	sard_4
	dc.l	$00040004
	dc.l	sard_5
	dc.l	$00040005
	dc.l	sard_6
	dc.l	$00040006
	dc.l	sard_7
	dc.l	$00040007
	dc.l	sard_8
	dc.l	$00040008
	dc.l	sard_9
	dc.l	$00040009
	dc.l	0
	dc.l	0

	
	include	files\sardpass.txt



house_name_txt:
		dc.b 'HARKONNEN'
		dc.b 'ATREIDES '
		dc.b '  ORDOS  '
		dc.b ' FREMEN  '
		dc.b 'SARDAUKAR'



	include	files\sardtext.txt