		org	$0
		incbin	contrahc.bin
		org	$388
		bra.s	$39E




		org	$1c8
fixxx:
		move.w  (a1),d0
		cmpi.w	#4,d0
		ble.s	normal_chars
		subq.w	#4,d0
normal_chars:
		add.w   d0,d0
		rts


		org	$5a4
		rte

		org	$341a
		jsr	($1FFF00).l
	
		org	$91da
		nop
		nop


		
		org	$D01C
		andi.b  #7,d7


		org	$D024
		nop
		nop
		nop
		nop

		org	$CF86
		andi.b  #7,$15(a3)


		org	$949c
		jsr	icons_new2

		org	$94be
		jsr	icons_new

		org	$1F23A
		jsr	icons_new2


		org	$926e
		jmp	fixmm

		org	$9172
		andi.w  #7,d1

		org	$9192
		andi.w  #7,d1

		org	$91ce
		andi.w  #7,d1

		org	$e162
		jmp	volk_fix



		org	$E2ac
		jsr	(fixxx).w

		org	$e2d0
		jsr	(fixxx).w


		org	$11F28
		jmp	(weaponfix).l
weapon:

		org	$1304a
		jmp	xz_fix
fix1:



		org	$12ffa
		jsr	xz_fix4		; podkat fix
fix2:


		org	$13b84
		jmp	xz_fix3
fix3:



		org	$12e8c
		jsr	xz_fix4
fix4:



		org	$12FB8
		jsr	xz_fix4




		org	$12d60
		jsr	xz_fix4

		org	$12c00
		jsr	xz_fix5
		
		org	$12F62
		jsr	xz_fix4


		org	$1311A
		jsr	xz_fix4
		
		org	$1318C
		jsr	xz_fix4

		org	$12a86
		jmp	robot_fix
robot_fixed:



		org	$15b94
		jmp	xz_fix6
fix6:
		
		org	$130b4
		jmp	xz_fix7
fix7:



*		org	$FCF0A
		org	$1FBEEA


		
weaponfix:
		add.w	d0,d0
		move.w  (a1),d7
		add.w	d7,d7
		add.w	d7,d7
		movea.l	orujie(pc,d7.w),a3
		jmp	(a3)



orujie:
		dc.l	$11f40
		dc.l	$11f42
		dc.l	$1206A
		dc.l	$125FC
		dc.l	$12378

		dc.l	robo1_weap
		dc.l	robo2_weap
		dc.l	volkorobot
		dc.l	$12378




robo2_weap
robo1_weap:
		
		move.w	d0,d7
		add.w	d7,d7
		movea.l	robot1_orujie(pc,d7.w),a3
		move.w  r_wdis(pc,d0.w),d7
		jmp	(a3)


		
robot1_orujie:
		dc.l	$11FCE
		dc.l	$11Fce
		dc.l	$11FCE
		dc.l	$11FCE
		dc.l	$11FCE
		dc.l	$1224C


r_wdis:
		dc.w	1
		dc.w	$c
		dc.w	$e
		dc.w	$14
		dc.w	$1C
		dc.w	$15

;	1c, c , e, 14





volkorobot:
		move.w	d0,d7
		add.w	d7,d7
		movea.l	robovolk_orujie(pc,d7.w),a3
		move.w  r_wdis(pc,d0.w),d7
		jmp	(a3)


robovolk_orujie:
		dc.l	$11FCE
		dc.l	$11FCE
		dc.l	$11FCE
		dc.l	$12572
		dc.l	$120fa
		dc.l	$1224C



f_wdis:
		dc.w	1
		dc.w	$14
		dc.w	$c
		dc.w	$e
		dc.w	$12
		dc.w	$15


xz_fix:
		move.w  (a1),d0
		subq.w  #1,d0
		andi.w	#3,d0
		lsl.w   #3,d0
		jmp	fix1







xz_fix3:
		move.w  (a1),d1
		beq.s	kliuiouio
		subq.w  #1,d1
		andi.w	#3,d1

		jmp	fix3
kliuiouio:
		rts











xz_fix4:
		move.w  (a1),d0
		subq.w  #1,d0
		andi.w	#3,d0
		move.w  d0,d1
		rts


xz_fix5:
		move.w  (a1),d1		; jumps fix
		subq.w  #1,d1
		andi.w	#3,d1
		add.w   d1,d1
locret_0_E160:
		rts


volk_fix
		move.w  (a1),d0
		beq.s   locret_0_E160
		cmpi.w  #3,d0           ; volk?
		bne.s   loc_0_E1B6
		jmp	($e16c).l

loc_0_E1B6:
		cmpi.w  #7,d0
		bne.s	loc_0_E1B6X
		jmp	($e16c).l
loc_0_E1B6X:
		jmp	($E1B6).l






robot_fix:
		cmpi.w  #4,(a1)
		bne.s   locret_0_12AC2
		jmp	robot_fixed

locret_0_12AC2
		cmpi.w  #8,(a1)
		bne.s   locret_0_12AC2X
		jmp	robot_fixed

locret_0_12AC2X:
		rts


xz_fix6:
		add.w   d0,d0
		move.w  word_0_15BB2(pc,d0.w),d0
		jmp	fix6



word_0_15BB2:
		dc.w 0
		dc.w $10
		dc.w $10
		dc.w $10
		dc.w 8
		dc.w $10
		dc.w $10
		dc.w $10
		dc.w 8


xz_fix7:
		move.w  (a1),d0
		subq.w  #1,d0
		andi.w	#3,d0
		lsl.w   #3,d0
		jmp	fix7




fixmm:

		andi.w	#3,d1
		move.w  d1,d2
		add.w   d2,d2
		add.w   d2,d2
		add.w   d1,d2
		rts	






icons_new:
		cmpi.b	#3,$15(a3)
		bgt.s	new_chars_icon
		lea     ($124000).l,a5
		rts
new_chars_icon:
		lea     ($324000).l,a5
		rts


icons_new2:
		cmpi.b	#3,d2
		bgt.s	new_chars_icon
		lea     ($124000).l,a5
		rts



		org	$1FFF00
		cmpi.w	#$0005,d6
		bge.s	robots
		move.l	#$100000,d6
		rts
robots:	
		move.l	#$300000,d6
		rts


	
		org	$200000
		incbin	probotec.bin
