	org	$0
	incbin	dune2.bin		;   2

	org	$D54
	nop				;   
	nop
	nop
	


	org	$A3C
	btst    #1,d0
	beq.s   SKIPUP
	move.w  #$CC,($FFFFBEFA).w
	rts
SKIPUP:
	btst    #0,d0
	beq.s   SKIPDOWN
	move.w	#$88,($FFFFBEFA).w
	rts
SKIPDOWN:
	andi.w  #$70,d0
	beq.s   no_buttons
	cmpi.w	#$CC,($FFFFBEFA).w
	bne.s	nextcheck
	move.w	#$4444,d0
no_buttons
	rts
nextcheck:
	jmp	($4990).w

house_select:
	move.w  d0,d4
	cmpi.w  #'D',d0
	beq.s   sard
	jmp	$26bf0
sard:
	moveq	#4,d3
	jmp	$26c12
	
	org	$498A
	jmp	($A3C).w




	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	$54C8
	dc.w	$0E00


	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	$1B2E6
	dc.l	smap28-$80000000
	dc.l	smap29-$80000000
	dc.l	map30
	dc.l	map31
	dc.l	map32
	dc.l	map33
	dc.l	map34
	dc.l	map35
	dc.l	map36

	org	$1F39E
	lea     (house_info_txt).l,a1


	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	$25FA8
	lea	(region_map).l,a0


	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	$26BEC
	jmp	(house_select).w


	
	org	$26F3A
	jmp	password_sardukar
	

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


	org	$27EA6
	jmp	death_hand_ex


	org	$6C7E0
	dc.w	$000A			; starport delay sardaukar


	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


smap28:
	incbin	sardukar\map27.bin
smap29:
	incbin	sardukar\map28.bin
map30:
	incbin	sardukar\map29.bin
map31:
	incbin	sardukar\map30.bin
map32:
	incbin	sardukar\map31.bin
map33:
	incbin	sardukar\map32.bin
map34:
	incbin	sardukar\map33.bin
map35:
	incbin	sardukar\map34.bin
map36:
	incbin	sardukar\map35.bin




death_hand_ex:
	move.b	8(a3),d0
	beq.s	hark_dh
	cmpi.b	#4,d0			; sardaukar dh  
	beq.s	hark_dh
	jmp	$27EB4

hark_dh:
	jmp	$27EAC


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


region_map:
	dc.l	$96008
	dc.l	$95F78
	dc.l	$95FC0
	dc.l	$95F78
	dc.l	region_sardukar

region_sardukar:
	include	files\regions2.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


house_info_txt:
	dc.l	hark_info_txt
	dc.l	atreides_info_txt
	dc.l	ordos_info_txt
	dc.l	fremen_info_txt
	dc.l	sard_info_txt

	
	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

	include files\houseinf.txt
