WebSVN – Kolibri OS – Blame – /programs/games/freecell/freecell.ASM

Rev	Author	Line No.	Line
205	heavyiron	1	; <--- description --->
		2	; compiler: FASM 1.50
		3	; name: FreeCell for MeOS
		4	; version: 1.00
		5	; last update: 21/07/2004
		6	; written by: Alexandr Gorbovets
		7	; e-mail: gorsash@mail.ru
		8
		9
485	heavyiron	10	include "..\..\macros.inc"
205	heavyiron	11	meos_app_start
		12
		13	code
		14	call randomize
		15	call draw_window
		16
		17	wait_event:
		18	mov eax, 10
485	heavyiron	19	mcall
205	heavyiron	20
		21	cmp eax, 1 ; if event == 1
		22	je redraw ; jump to redraw handler
		23	cmp eax, 2 ; else if event == 2
		24	je key ; jump to key handler
		25	cmp eax, 3 ; else if event == 3
		26	je button ; jump to button handler
		27
		28
		29	jmp wait_event ;else return to the start of main cycle
		30
		31
		32	redraw: ; redraw event handler
		33	call draw_window
		34	jmp wait_event
		35
		36
		37	key: ; key event handler
		38	mov eax, 2 ; get key code
485	heavyiron	39	mcall
205	heavyiron	40
		41	jmp wait_event
		42
		43	button: ; button event handler
		44	mov eax, 17 ; get button identifier
485	heavyiron	45	mcall
205	heavyiron	46
		47	cmp ah, 1
		48	je exit_app ; return if button id != 1
		49
		50	cmp ah, 1 + 8
		51	jbe common_card ; if 1 < ah <= 9
		52
		53	cmp ah, 1 + 8 + 4 ; if 9 < ah <= 13
		54	jbe temp_cell
		55
		56	cmp ah, 1 + 8 + 8
		57	jbe home_cell
		58
		59	cmp ah, 1 + 8 + 4 + 4 + 1
		60	je new_game_button
		61
		62	cmp ah, 1 + 8 + 4 + 4 + 2
		63	je exit_app
		64
		65
		66	jmp wait_event
		67
		68
		69	exit_app:
		70	mov eax, -1 ; exit application
485	heavyiron	71	mcall
205	heavyiron	72
		73	common_card:
		74	sub ah, 2 ;going from number of card to number of column
		75	mov [columnclicked], 0
		76	mov byte [columnclicked], ah
		77	call common_card_click
		78	jmp wait_event
		79
		80	temp_cell:
		81	sub ah, 2 + 8
		82	mov [columnclicked], 0
		83	mov byte [columnclicked], ah
		84	call temp_cell_click
		85	jmp wait_event
		86
		87
		88	home_cell:
		89	sub ah, 2 + 8 + 4
		90	mov [columnclicked], 0
		91	mov byte [columnclicked], ah
		92	call home_cell_click
		93	jmp wait_event
		94
		95	new_game_button:
		96	call new_game_click
		97	jmp wait_event
		98
		99
		100	;******************************************************************************
		101	; common_card_click(columnclicked)
		102	common_card_click:
		103
		104	; counting code of card, that has been clicked
		105	mov eax, [columnclicked]
		106	mov [ncolumn], eax
		107	call get_row_of_top_card_in_column
		108	mov eax, [topcardrow] ; eax = topcardrow * 8 + columnofselcard
		109	mov bl, 8
		110	mul bl
		111	add eax, [columnclicked]
		112	add eax, cards
		113
		114	mov ebx, 0
		115	mov bl, byte [eax]
		116	mov [cardclicked], ebx
		117
		118
		119	call get_sel_card_code_and_addr
		120
		121	cmp [selcardcode], 52
		122	jb .something_selected
		123
		124
		125	cmp [cardclicked], 52
		126	je .end
		127
		128	mov [whereisselcard], scCommonCells
		129	mov eax, [columnclicked]
		130	mov [columnofselcard], eax
		131	call draw_window
		132	jmp .end
		133
		134
		135	.something_selected:
		136
		137
		138	; checking if selected and clicked cards are equivalent
		139	mov eax, [selcardcode]
		140	cmp [cardclicked], eax
		141	jne .not_same_card
		142
		143	mov [whereisselcard], scNotSelected
		144	call draw_window
		145	jmp .end
		146
		147	.not_same_card:
		148
		149	cmp [cardclicked], 52
		150	jae .put_in_blank_cell
		151
		152
		153	mov eax, [selcardcode]
		154	mov bl, 4
		155	div bl
		156
		157	mov ebx, 0
		158	mov bl, ah
		159	mov [cardfamily], ebx
		160
		161	mov ecx, 0
		162	mov cl, al
		163	mov [cardrange], ecx
		164
		165
		166	mov eax, [cardclicked]
		167	mov bl, 4
		168	div bl ; reminder in ah, quotient in al
		169
		170	mov ebx, 0
		171	mov bl, ah
		172	mov [clickedcardfamily], ebx
		173
		174	mov ecx, 0
		175	mov cl, al
		176	mov [clickedcardrange], ecx
		177
		178	; clickedcardrange must be = cardrange + 1
		179	mov eax, [cardrange]
		180	inc eax
		181
		182	cmp [clickedcardrange], eax ; eax is such as needed
		183	jne .end
		184
		185
		186	cmp [cardfamily], 1
		187	ja .black_card
		188
		189	; if selected red card
		190	cmp [clickedcardfamily], 1
		191	jbe .end ; if clicked red card (range <= 1) then exit
		192
		193	jmp .valid_cards
		194
		195	.black_card:
		196	; if selected black card
		197	cmp [clickedcardfamily], 1
		198	ja .end ; if clicked black card then exit
		199
		200	jmp .valid_cards
		201
		202	.valid_cards:
		203	; moving card from its place on clicked card
		204
		205	mov eax, [columnclicked]
		206	mov [ncolumn], eax
		207	call get_row_of_top_card_in_column
		208	mov eax, [topcardrow]
		209	inc eax
		210
		211	mov bl, 8
		212	mul bl
		213
		214	and eax, $0000FFFF
		215	add eax, [columnclicked]
		216	add eax, cards
		217
		218	mov bl, byte [selcardcode]
		219	mov byte [eax], bl
		220
		221	mov eax, [selcardaddr]
		222	mov byte [eax], 52
		223
		224	mov [whereisselcard], scNotSelected
		225
		226	call draw_window
		227
		228	jmp .end
		229
		230	.put_in_blank_cell:
		231
		232	mov eax, cards
		233	add eax, [columnclicked]
		234	mov bl, byte [selcardcode]
		235	mov byte [eax], bl
		236
		237	mov eax, [selcardaddr]
		238	mov byte [eax], 52
		239
		240	mov [whereisselcard], scNotSelected
		241
		242	call draw_window
		243
		244	.end:
		245
		246	ret
		247
		248
		249	;******************************************************************************
		250	; temp_cell_click(columnclicked)
		251	temp_cell_click:
		252	call get_sel_card_code_and_addr
		253	cmp [selcardcode], 52
		254	jb .something_selected
		255
		256
		257	mov [whereisselcard], scTempCells
		258	mov eax, [columnclicked]
		259	mov [columnofselcard], eax
		260	call draw_window
		261	jmp .end
		262
		263	.something_selected:
		264	; checking if selected and clicked cards equivalent
		265	mov eax, [columnclicked]
		266	add eax, tempcells
		267
		268	mov ebx, 0
		269	mov bl, byte [eax]
		270	mov [cardclicked], ebx
		271
		272	mov eax, [selcardcode]
		273	cmp [cardclicked], eax
		274	jne .not_same_card
		275
		276	mov [whereisselcard], scNotSelected
		277	call draw_window
		278
		279	.not_same_card:
		280
		281	;putting cards in temp cells
		282
		283	mov eax, [columnclicked]
		284	add eax, tempcells
		285
		286	mov ebx, 0
		287	mov bl, byte [eax]
		288	mov [cardclicked], ebx
		289
		290
		291	cmp [cardclicked], 52
		292	jb .end
		293	; if nothing lay in this cell
		294	; move selected card to temp cell
		295	mov eax, [columnclicked]
		296	add eax, tempcells
		297	mov bl, byte [selcardcode]
		298	mov byte [eax], bl
		299
		300	mov eax, [selcardaddr]
		301	mov byte [eax], 52
		302
		303	mov [whereisselcard], scNotSelected
		304
		305	call draw_window
		306
		307
		308	jmp .end
		309
		310
		311	.end:
		312
		313	ret
		314
		315	;******************************************************************************
		316	; home_cell_click(column_clicked)
		317	home_cell_click:
		318	call get_sel_card_code_and_addr
		319
		320	mov eax, [columnclicked]
		321	add eax, homecells
		322
		323
		324	mov ebx, 0
		325	mov bl, byte [eax]
		326	mov [cardclicked], ebx
		327
		328	mov eax, [selcardcode]
		329	mov bl, 4
		330	div bl ; reminder in ah, quotient in al
		331
		332	mov ebx, 0
		333	mov bl, ah
		334	mov [cardfamily], ebx
		335
		336	mov ecx, 0
		337	mov cl, al
		338	mov [cardrange], ecx
		339
		340
		341	cmp [cardclicked], 52
		342	jb .not_blank
		343	; if nothing lay in this cell
		344	cmp [cardrange], 0
		345	jne .end
		346	; move ace to home
		347	mov eax, [columnclicked]
		348	add eax, homecells
		349	mov bl, byte [selcardcode]
		350	mov byte [eax], bl
		351
		352	mov eax, [selcardaddr]
		353	mov byte [eax], 52
		354
		355	mov [whereisselcard], scNotSelected
		356
		357	call draw_window
		358
		359
		360	jmp .end
		361
		362	.not_blank:
		363
		364	mov eax, [cardclicked]
		365	mov bl, 4
		366	div bl ; reminder in ah, quotient in al
		367
		368	mov ebx, 0
		369	mov bl, ah
		370	mov [clickedcardfamily], ebx
		371
		372	mov ecx, 0
		373	mov cl, al
		374	mov [clickedcardrange], ecx
		375
		376	cmp [cardfamily], ebx
		377	jne .end
		378
		379	inc ecx
		380	cmp [cardrange], ecx
		381	jne .end
		382
		383	; moving card from its place to home with replacing
		384	; of old card in home
		385	mov eax, [columnclicked]
		386	add eax, homecells
		387	mov bl, byte [selcardcode]
		388	mov byte [eax], bl
		389
		390	mov eax, [selcardaddr]
		391	mov byte [eax], 52
		392
		393	mov [whereisselcard], scNotSelected
		394
		395	call draw_window
		396
		397
		398
		399	.end:
		400
		401	ret
		402
		403
		404	;******************************************************************************
		405	new_game_click:
		406
		407	mov [i], 0
		408	.deleting_cards_from_common_cells:
		409	mov eax, cards
		410	add eax, [i]
		411	mov byte [eax], 52
		412
		413
		414	inc [i]
		415	cmp [i], 19*8
		416	jb .deleting_cards_from_common_cells
		417
		418
		419	mov [i], 0
		420	.filling_pack:
		421	mov eax, pack
		422	add eax, [i]
		423	mov bl, byte [i]
		424	mov byte [eax], bl
		425
		426	inc [i]
		427	cmp [i], 52
		428	jb .filling_pack
		429
		430	mov [i], 0
		431
		432	.putting_cards:
		433
		434	mov [range], 52
		435	call random
		436	mov eax, [random_value]
		437	add eax, pack
		438
		439	mov ebx, 0
		440	mov bl, byte [eax]
		441	mov [randomcard], ebx
		442
		443	mov eax, [random_value]
		444	mov [j], eax
		445
		446	cmp [randomcard], 52
		447	jb .found_card
		448
		449
		450	mov [range], 52
		451	call random
		452	cmp [random_value], 26
		453	jae .decreasing_j
		454
		455	.increasing_j:
		456	inc [j]
		457	; j mod 52
		458	mov eax, [j]
		459	mov edx, 0
		460	mov ebx, 52
		461	div ebx
		462	mov [j], edx
		463
		464
		465	mov eax, [j]
		466	add eax, pack
		467	mov ebx, 0
		468	mov bl, byte [eax]
		469	mov [randomcard], ebx
		470	cmp [randomcard], 52
		471	jb .found_card
		472
		473	jmp .increasing_j
		474
		475
		476	.decreasing_j:
		477	dec [j]
		478	; i mod 32
		479	mov eax, [j]
		480	mov edx, 0
		481	mov ebx, 52
		482	div ebx
		483	mov [j], edx
		484
		485	mov eax, [j]
		486	add eax, pack
		487	mov ebx, 0
		488	mov bl, byte [eax]
		489	mov [randomcard], ebx
		490	cmp [randomcard], 52
		491	jb .found_card
		492
		493	jmp .decreasing_j
		494
		495	.found_card:
		496	; putting card from pack
		497	mov eax, cards
		498	add eax, [i]
		499	mov bl, byte [randomcard]
		500	mov byte [eax], bl
		501	; deleting card from pack
		502	mov eax, pack
		503	add eax, [j]
		504	mov byte [eax], 52
		505
		506
		507	inc [i]
		508	cmp [i], 52
		509	jb .putting_cards
		510
		511
		512
		513
		514	mov [i], 0
		515	.deleting_cards_from_temp_cells:
		516	mov eax, tempcells
		517	add eax, [i]
		518	mov byte [eax], 52
		519
		520
		521	inc [i]
		522	cmp [i], 4
		523	jb .deleting_cards_from_temp_cells
		524
		525	mov [i], 0
		526	.deleting_cards_from_home_cells:
		527	mov eax, homecells
		528	add eax, [i]
		529	mov byte [eax], 52
		530
		531
		532	inc [i]
		533	cmp [i], 4
		534	jb .deleting_cards_from_home_cells
		535
		536
		537	mov [whereisselcard], scNotSelected
		538	call draw_window
		539
		540
		541	ret
		542
		543
		544	;******************************************************************************
		545	; get_sel_card_code_and_addr(): selcardcode, selcardaddr
		546	; if nothing selected, then selcardcode is 52
		547	get_sel_card_code_and_addr:
		548	cmp [whereisselcard], scNotSelected
		549	jne .something_selected
		550
		551	mov [selcardcode], 52
		552	jmp .end
		553
		554	.something_selected:
		555	cmp [whereisselcard], scTempCells
		556	je .temp_cells_selected
		557
		558	; common cells selected
		559	mov eax, [columnofselcard]
		560	mov [ncolumn], eax
		561	call get_row_of_top_card_in_column
		562
		563
		564	mov eax, [topcardrow]; eax = topcardrow * 8 + columnofselcard
		565	mov bl, 8
		566	mul bl ; result of multiplication in ax
		567	add eax, [columnofselcard]
		568	add eax, cards
		569
		570
		571	mov [selcardaddr], eax
		572	xor ebx, ebx
		573	mov bl, byte [eax]
		574	mov [selcardcode], ebx
		575
		576	jmp .end
		577
		578	.temp_cells_selected:
		579
		580	mov eax, tempcells
		581	add eax, [columnofselcard]
		582	mov [selcardaddr], eax
		583	mov ebx, 0
		584	mov bl, byte [eax]
		585	mov [selcardcode], ebx
		586
		587	.end:
		588
		589	ret
		590
		591	;******************************************************************************
		592	; draw_window()
		593
		594	draw_window:
		595	mov eax,48 ; get system colors
		596	mov ebx,3
		597	mov ecx,syscolors
		598	mov edx,sizeof.system_colors
485	heavyiron	599	mcall
205	heavyiron	600
		601
		602	mov eax, 12 ; start drawing
		603	mov ebx, 1
485	heavyiron	604	mcall
205	heavyiron	605
		606	mov eax, 0 ; create and draw the window
		607	mov ebx, 100 * 65536 + 8 * cardwidth + 10 + 7 * columnspace
		608	mov ecx, 100 * 65536 + 500
		609	mov edx, 0x13008000
485	heavyiron	610	mov edi, title
		611	mcall
205	heavyiron	612
		613	mov eax, 9 ; getting window info
		614	mov ebx, process_info
		615	mov ecx, -1 ; we want to know info of our window
485	heavyiron	616	mcall
205	heavyiron	617
		618
485	heavyiron	619	mov eax, [process_info.box.height]
205	heavyiron	620	mov [WindowHeight], ax
		621
485	heavyiron	622	mov eax, [process_info.box.width]
205	heavyiron	623	mov [WindowWidth], ax
		624
		625	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		626	; draw top panel
		627
		628	mov eax, 13
		629	mov ebx, 5
		630	shl ebx, 16
485	heavyiron	631	add bx, word [process_info.box.width]
205	heavyiron	632	sub bx, 9
		633	mov ecx, 22 shl 16 + topbuttonsbarheight - 1
		634	mov edx, [syscolors.work_graph]
485	heavyiron	635	mcall
205	heavyiron	636
		637	; draw button "new game"
		638
		639	mov eax, 8
		640	mov ebx, 5 shl 16 + 80
		641	mov ecx, 22 shl 16 + topbuttonsbarheight - 2
		642	mov edx, 1 + 8 + 4 + 4 + 1 ;button id
		643	mov esi, [syscolors.work_button]
485	heavyiron	644	mcall
205	heavyiron	645
		646	mov eax, 4
		647	mov ebx, 20 shl 16 + 22 + topbuttonsbarheight/2 - 4
		648	mov ecx, [syscolors.work_button_text]
		649	mov edx, new_game
		650	mov esi, new_game_len
485	heavyiron	651	mcall
205	heavyiron	652
		653
		654	; draw button "exit"
		655	mov eax, 8
		656	mov ebx, (5 + 85) shl 16 + 80 + 5
		657	mov ecx, 22 shl 16 + topbuttonsbarheight - 2
		658	mov edx, 1 + 8 + 4 + 4 + 2 ;button id
		659	mov esi, [syscolors.work_button]
485	heavyiron	660	mcall
205	heavyiron	661
		662	mov eax, 4
		663	mov ebx, (40 + 80) shl 16 + 22 + topbuttonsbarheight/2 - 4
		664	mov ecx, [syscolors.work_button_text]
		665	mov edx, exit
		666	mov esi, exit_len
485	heavyiron	667	mcall
205	heavyiron	668	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		669	; draw separators between home, temp and common cells
		670	mov eax, 13
		671	; horizontal line
		672	mov ebx, 5
		673	shl ebx, 16
485	heavyiron	674	add bx, word [process_info.box.width]
205	heavyiron	675	sub bx, 9
		676	mov ecx, (21 + topbuttonsbarheight + cardheight + columnspace) shl 16+1
		677
		678	mov edx, [syscolors.work_graph]
485	heavyiron	679	mcall
205	heavyiron	680	; verical line
485	heavyiron	681	mov eax, [process_info.box.width]
205	heavyiron	682	mov edx, 0
		683	mov ecx, 2
		684	div ecx
		685
		686	mov ebx, eax
		687
		688	;
		689	shl ebx, 16
		690	add bx, 1
		691	mov ecx, (21 + topbuttonsbarheight) shl 16 + cardheight + columnspace
		692	mov edx, [syscolors.work_graph]
		693	mov eax, 13
485	heavyiron	694	mcall
205	heavyiron	695
		696	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		697	; draw temp buttons
		698
		699	mov [j], 0 ;counter that loops from 0 to 51
		700
		701	draw_a_temp_card:
		702
		703	; code of card must be in ecx
		704	mov eax, tempcells
		705	add eax, [j]
		706	xor ecx, ecx
		707	mov cl, byte [eax] ; placing in cl value from memory
		708	; with address [tempcells + j] or
		709	; j-th element of array "tempcells"
		710
		711	mov [cardcode], ecx
		712
		713	mov eax, [j]
		714	xor edx, edx
		715	mov ebx, 8
		716	div ebx ; divsion by 8 (8 columns),
		717	; so in eax quotient - number of row
		718	; and in edx remainder -
		719	; number of column where lay card
		720
		721	mov [row], eax
		722	mov [column], edx
		723
485	heavyiron	724	mov eax, [process_info.box.width] ; width of window
205	heavyiron	725	sub eax, 10
		726	sub eax, cardwidth
		727	mov ebx, 7
		728	mov edx, 0
		729	div ebx
		730	mov ebx, [column]
		731	mul ebx
		732	add eax, 5
		733
		734	mov [xpos], eax
		735
		736
		737	mov eax, [row]
		738	mov bl, rowsize
		739	mul bl
		740	add eax, 24 + topbuttonsbarheight
		741	mov [ypos], eax
		742
		743	; checking, if this card selected
		744
		745	mov [negativedraw], 0
		746
		747	cmp [whereisselcard], scTempCells
		748	jne .this_temp_cell_isnt_selected
		749
		750	mov eax, [column]
		751	cmp [columnofselcard], eax
		752	jne .this_temp_cell_isnt_selected
		753
		754	mov [negativedraw], 1
		755
		756	.this_temp_cell_isnt_selected:
		757
		758	call draw_card
		759
		760	; define button on place of card
		761	mov eax, 8
		762	mov ebx, [xpos]
		763	shl ebx, 16
		764	add bx, cardwidth - 1
		765	mov ecx, [ypos]
		766	shl ecx, 16
		767	add cx, cardheight - 1
		768	mov edx, [column]
		769	add edx, 01000000000000000000000000000000b + 2 + 8; button id = column
		770	; id = 1 reserved as close button
485	heavyiron	771	mcall
205	heavyiron	772
		773
		774	inc [j]
		775	cmp [j], 4
		776	jb draw_a_temp_card
		777
		778
		779	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		780	; draw home buttons
		781	mov [j], 0 ;counter that loops from 0 to 51
		782
		783	draw_a_home_card:
		784
		785
		786	; code of card must be in ecx
		787	mov eax, homecells
		788	add eax, [j]
		789	xor ecx, ecx
		790	mov cl, byte [eax] ; placing in cl value from memory
		791	; with address [tempcells + j] or
		792	; j-th element of array "tempcells"
		793
		794	mov [cardcode], ecx
		795
		796	mov eax, [j]
		797	xor edx, edx
		798	mov ebx, 8
		799	div ebx ; divsion by 8 (8 columns),
		800	; so in eax quotient - number of row
		801	; and in edx remainder -
		802	; number of column where lay card
		803
		804	mov [row], eax
		805	mov [column], edx
		806
485	heavyiron	807	mov eax, [process_info.box.width] ; width of window
205	heavyiron	808	sub eax, 10
		809	sub eax, cardwidth
		810	mov ebx, 7
		811	mov edx, 0
		812	div ebx
		813	mov ebx, [column]
		814	add ebx, 4
		815	mul ebx
		816	add eax, 5
		817
		818	mov [xpos], eax
		819
		820	mov eax, [row]
		821	mov bl, rowsize
		822	mul bl
		823	add eax, 24 + topbuttonsbarheight
		824	mov [ypos], eax
		825
		826	mov [negativedraw], 0
		827
		828	call draw_card
		829
		830	; define button on place of card
		831
		832	mov eax, 8
		833	mov ebx, [xpos]
		834	shl ebx, 16
		835	add bx, cardwidth - 1
		836	mov ecx, [ypos]
		837	shl ecx, 16
		838	add cx, cardheight - 1
		839	mov edx, [column]
		840	add edx, 01000000000000000000000000000000b + 2 + 8 + 4 ; button id
		841
		842	; id = 1 reserved as close button
485	heavyiron	843	mcall
205	heavyiron	844
		845
		846	inc [j]
		847	cmp [j], 4
		848	jb draw_a_home_card
		849
		850
		851	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		852	; draw common cards
		853
		854	mov [j], 0 ;counter that loops from 0 to 8 * 19
		855
		856	draw_a_card:
		857
		858
		859	; code of card must be in ecx
		860	mov eax, cards
		861	add eax, [j]
		862	xor ecx, ecx
		863	mov cl, byte [eax] ; placing in cl value from memory
		864	; with address [cards + j] or
		865	; j-th element of array "cards"
		866	; cmp ecx, 52 ; if code of card >= 52 then there is no card
		867	; jae no_draw
		868	;
		869	; cmp ecx, 0 ; if code of card < 0 then there is no card
		870	; jb no_draw
		871
		872	mov [cardcode], ecx
		873
		874
		875
		876	mov eax, [j]
		877	xor edx, edx
		878	mov ebx, 8
		879	div ebx ; divsion by 8 (8 columns),
		880	; so in eax quotient - number of row
		881	; and in edx remainder -
		882	; number of column where lay card
		883
		884	mov [row], eax
		885	mov [column], edx
		886
485	heavyiron	887	mov eax, [process_info.box.width] ; width of window
205	heavyiron	888	sub eax, 10
		889	sub eax, cardwidth
		890	mov ebx, 7
		891	mov edx, 0
		892	div ebx
		893	mov ebx, [column]
		894	mul ebx
		895	add eax, 5
		896
		897	mov [xpos], eax
		898
		899	mov eax, [row]
		900	mov bl, rowsize
		901	mul bl
		902	add eax, cardheight + 24 + topbuttonsbarheight + columnspace
		903	mov [ypos], eax
		904
		905
		906	mov [negativedraw], 0 ;checking, if this is selected card
		907
		908	cmp [whereisselcard], scCommonCells
		909	jne .this_card_isnt_selected
		910
		911	mov eax, [column]
		912	cmp [columnofselcard], eax
		913	jne .this_card_isnt_selected
		914
		915
		916	mov eax, [column]
		917	mov [ncolumn], eax
		918	call get_row_of_top_card_in_column
		919	mov eax, [row]
		920	cmp [topcardrow], eax
		921	jne .this_card_isnt_selected
		922
		923	mov [negativedraw], 1
		924
		925	.this_card_isnt_selected:
		926
		927	call draw_card
		928
		929
		930
		931	; now checking if it is top card in its column
		932	; if it does, we'll define button on its place
		933	mov eax, [column]
		934	mov [ncolumn], eax
		935	call get_row_of_top_card_in_column
		936	mov eax, [row]
		937	cmp [topcardrow], eax
		938	je .define_button
		939
		940	cmp [topcardrow], 0
		941	jne .no_define_button
		942
		943	cmp [row], 0
		944	jne .no_define_button
		945
		946
		947	.define_button:
		948	mov eax, 8
		949	mov ebx, [xpos]
		950	shl ebx, 16
		951	add bx, cardwidth - 1
		952	mov ecx, [ypos]
		953	shl ecx, 16
		954	add cx, cardheight - 1
		955	mov edx, [column]
		956	add edx, 01000000000000000000000000000000b + 2; button id = column + 2,
		957	; id = 1 reserved as close button
485	heavyiron	958	mcall
205	heavyiron	959
		960
		961	.no_define_button:
		962
		963	inc [j]
		964	cmp [j], 8 * 19
		965	jb draw_a_card
		966
		967
		968
		969	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		970
		971
		972	mov eax, 12 ; finish drawing
		973	mov ebx, 2
485	heavyiron	974	mcall
205	heavyiron	975
		976	ret
		977
		978
		979	;******************************************************************************
		980	; get_row_of_top_card_in_column(ncolumn): topcardrow
		981
		982	get_row_of_top_card_in_column:
		983	; number of column in ncolumn
		984	; returns in topcardrow
		985
		986	mov [i], 0 ; i loops from 0 to 1, ... while card i * 8 + ncolumn
		987	; is valid card (0 <= its code < 52)
		988
		989	.cycle:
		990	xor eax, eax
		991	mov al, 8
		992	mov ebx, [i]
		993	mul bl
		994	add eax, [ncolumn]
		995	add eax, cards
		996	xor ecx, ecx
		997	mov cl, byte [eax]
		998
		999	cmp ecx, 52
		1000	jae .endcycle
		1001
		1002
		1003	cmp [i], 18
		1004	ja .endcycle
		1005
		1006
		1007	inc [i]
		1008
		1009	jmp .cycle
		1010
		1011	.endcycle:
		1012
		1013	cmp [i], 0
		1014	je .dont_dec
		1015
		1016	dec [i]
		1017
		1018	.dont_dec:
		1019
		1020	mov eax, [i]
		1021	mov [topcardrow], eax
		1022	ret
		1023
		1024
		1025	;******************************************************************************
		1026	; invert_image_colors(imagetoinvert, sizeofimagetoinvert)
		1027	invert_image_colors:
		1028	mov [i], 0
		1029
		1030	.inverting:
		1031	mov eax, [imagetoinvert]
		1032	add eax, [i]
		1033
		1034	mov bl, byte [eax]
		1035	;xor ebx, ebx
		1036	;add ebx, 10
		1037	not ebx
		1038
		1039	mov byte [eax], bl
		1040
		1041
		1042	inc [i]
		1043
		1044	mov ecx, [sizeofimagetoinvert]
		1045	cmp [i], ecx
		1046	jb .inverting
		1047
		1048	jmp .later
		1049
		1050
		1051	.exit:
		1052	mov eax, -1
485	heavyiron	1053	mcall
205	heavyiron	1054
		1055	.later:
		1056
		1057
		1058	ret
		1059
		1060
		1061
		1062	;******************************************************************************
		1063	; draw_card(xpos, ypos, cardcode, negativedraw)
		1064	; if negativedraw = 1 then card drawn in inverted colors
		1065
		1066	draw_card: ; draws card with left top corner
		1067	; in point ([xpos],[ypos]),
		1068	; type of card in [cardcode]
		1069
		1070	cmp [cardcode], 52 ; if code of card >= 52 then there is no card
		1071	jae .no_draw_card
		1072
		1073
		1074	cmp [negativedraw], 1
		1075	jne .no_invert1
		1076	;doing if negativedraw
		1077	mov [bgcolor], $00000000
		1078	mov [blackcolor], $00FFFFFF
		1079	mov [redcolor], $0000FFFF
		1080
		1081	;inverting all images
		1082	call invert_all_images
		1083
		1084	jmp .colors_selection_done
		1085
		1086	.no_invert1:
		1087	;doing if not negativedraw
		1088	mov [bgcolor], $00FFFFFF
		1089	mov [blackcolor], $00000000
		1090	mov [redcolor], $00FF0000
		1091
		1092
		1093	.colors_selection_done:
		1094
		1095	mov eax, 13
		1096
		1097	mov ebx, [xpos] ; filling card with bgcolor
		1098	; (big background rectangle)
		1099	mov edx, [bgcolor]
		1100	add ebx, 2
		1101	shl ebx, 16
		1102	mov bx, cardwidth - 4
		1103
		1104	mov ecx, [ypos]
		1105	add ecx, 2
		1106	shl ecx, 16
		1107	mov cx, cardheight - 4
485	heavyiron	1108	mcall
205	heavyiron	1109
		1110	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1111
		1112	mov ebx, [xpos] ; left black line
		1113	shl ebx, 16
		1114	mov bx, 1
		1115
		1116	mov ecx, [ypos]
		1117	add ecx, 5
		1118	shl ecx, 16
		1119	xor cx, cx
		1120	mov cx, cardheight - 2 * radius - 2
		1121	mov edx, [blackcolor]
485	heavyiron	1122	mcall
205	heavyiron	1123
		1124	mov ebx, [xpos] ; left white line
		1125	inc ebx
		1126	shl ebx, 16
		1127	mov bx, 1
		1128	mov edx, [bgcolor]
485	heavyiron	1129	mcall
205	heavyiron	1130
		1131	mov ebx, [xpos] ; right black line
		1132	add ebx, cardwidth - 1
		1133	shl ebx, 16
		1134	mov bx, 1
		1135	mov edx, [blackcolor]
485	heavyiron	1136	mcall
205	heavyiron	1137
		1138	mov ebx, [xpos] ; right white line
		1139	add ebx, cardwidth - 2
		1140	shl ebx, 16
		1141	mov bx, 1
		1142	mov edx, [bgcolor]
485	heavyiron	1143	mcall
205	heavyiron	1144
		1145	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1146
		1147	mov ecx, [ypos] ; top black line
		1148	shl ecx, 16
		1149	mov cx, 1
		1150
		1151	mov ebx, [xpos]
		1152	add ebx, 5
		1153	shl ebx, 16
		1154	mov bx, cardwidth - 2 * radius - 2
		1155	mov edx, [blackcolor]
485	heavyiron	1156	mcall
205	heavyiron	1157
		1158	mov ecx, [ypos] ; top white line
		1159	inc ecx
		1160	shl ecx, 16
		1161	mov cx, 1
		1162	mov edx, [bgcolor]
485	heavyiron	1163	mcall
205	heavyiron	1164
		1165	mov ecx, [ypos] ; bottom black line
		1166	add ecx, cardheight - 1
		1167	shl ecx, 16
		1168	mov cx, 1
		1169	mov edx, [blackcolor]
485	heavyiron	1170	mcall
205	heavyiron	1171
		1172	mov ecx, [ypos] ; bottom white line
		1173	add ecx, cardheight - 2
		1174	shl ecx, 16
		1175	mov cx, 1
		1176	mov edx, [bgcolor]
485	heavyiron	1177	mcall
205	heavyiron	1178
		1179	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1180
		1181	mov eax, 1 ; drawing points
		1182	mov edx, [blackcolor] ; black color for all pixels
		1183
		1184	mov ebx, [xpos] ; draw top left corner
		1185	mov ecx, [ypos]
		1186	inc ebx
		1187	add ecx, 4
485	heavyiron	1188	mcall
205	heavyiron	1189
		1190	dec ecx
485	heavyiron	1191	mcall
205	heavyiron	1192
		1193	dec ecx
		1194	inc ebx
485	heavyiron	1195	mcall
205	heavyiron	1196
		1197	dec ecx
		1198	inc ebx
485	heavyiron	1199	mcall
205	heavyiron	1200
		1201	inc ebx
485	heavyiron	1202	mcall
205	heavyiron	1203
		1204	mov ebx, [xpos] ;drawing top right corner
		1205	mov ecx, [ypos]
		1206	add ebx, cardwidth - 2
		1207	add ecx, 4
485	heavyiron	1208	mcall
205	heavyiron	1209
		1210	dec ecx
485	heavyiron	1211	mcall
205	heavyiron	1212
		1213	dec ebx
		1214	dec ecx
485	heavyiron	1215	mcall
205	heavyiron	1216
		1217	dec ebx
		1218	dec ecx
485	heavyiron	1219	mcall
205	heavyiron	1220
		1221	dec ebx
485	heavyiron	1222	mcall
205	heavyiron	1223	;drawing bottom left corner
		1224	mov ebx, [xpos]
		1225	mov ecx, [ypos]
		1226	inc ebx
		1227	add ecx, cardheight - 5
485	heavyiron	1228	mcall
205	heavyiron	1229
		1230	inc ecx
485	heavyiron	1231	mcall
205	heavyiron	1232
		1233	inc ebx
		1234	inc ecx
485	heavyiron	1235	mcall
205	heavyiron	1236
		1237	inc ebx
		1238	inc ecx
485	heavyiron	1239	mcall
205	heavyiron	1240
		1241	inc ebx
485	heavyiron	1242	mcall
205	heavyiron	1243	;drawing bottom right corner
		1244	mov ebx, [xpos]
		1245	mov ecx, [ypos]
		1246	add ebx, cardwidth - 2
		1247	add ecx, cardheight - 5
485	heavyiron	1248	mcall
205	heavyiron	1249
		1250	inc ecx
485	heavyiron	1251	mcall
205	heavyiron	1252
		1253	dec ebx
		1254	inc ecx
485	heavyiron	1255	mcall
205	heavyiron	1256
		1257	dec ebx
		1258	inc ecx
485	heavyiron	1259	mcall
205	heavyiron	1260
		1261	dec ebx
485	heavyiron	1262	mcall
205	heavyiron	1263
		1264
		1265	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1266	; drawing text and images
		1267
		1268	mov eax, [cardcode]
		1269	mov edx, 0
		1270	mov ebx, 4
		1271	div ebx
		1272
		1273	mov [cardfamily], edx
		1274	mov [cardrange], eax
		1275
		1276	; counting position of small card image
		1277	mov eax, 7
		1278	mov ecx, 8*65536+8
		1279	mov edx, [xpos]
		1280	add edx, radius
		1281	shl edx, 16
		1282	mov dx, word [ypos]
		1283	add dx, radius + 8
		1284
		1285
		1286
		1287	cmp [cardfamily], 0
		1288	je .heart
		1289
		1290	cmp [cardfamily], 1
		1291	je .diamond
		1292
		1293	cmp [cardfamily], 2
		1294	je .club
		1295
		1296	cmp [cardfamily], 3
		1297	je .spade
		1298
		1299	.heart:
		1300	mov esi, [redcolor]
		1301	mov [color], esi
		1302	mov [imageaddr], heart
		1303	mov [imageflipaddr], heart_updown
		1304
		1305	mov ebx, heart_small
485	heavyiron	1306	mcall
205	heavyiron	1307
		1308	jmp .selnumber
		1309
		1310	.diamond:
		1311	mov esi, [redcolor]
		1312	mov [color], esi
		1313	mov [imageaddr], diamond
		1314	mov [imageflipaddr], diamond_updown
		1315
		1316	mov ebx, diamond_small
485	heavyiron	1317	mcall
205	heavyiron	1318
		1319	jmp .selnumber
		1320
		1321	.club:
		1322	mov esi, [blackcolor]
		1323	mov [color], esi
		1324	mov [imageaddr], club
		1325	mov [imageflipaddr], club_updown
		1326
		1327	mov ebx, club_small
485	heavyiron	1328	mcall
205	heavyiron	1329
		1330	jmp .selnumber
		1331
		1332	.spade:
		1333	mov esi, [blackcolor]
		1334	mov [color], esi
		1335	mov [imageaddr], spade
		1336	mov [imageflipaddr], spade_updown
		1337
		1338	mov ebx, spade_small
485	heavyiron	1339	mcall
205	heavyiron	1340
		1341
		1342
		1343	.selnumber:
		1344
		1345	mov ebx, [xpos] ; counting position of text
		1346	; in ebx, same for all cards
		1347	add ebx, radius
		1348	shl ebx, 16
		1349	mov bx, word [ypos]
		1350	add bx, radius
		1351
		1352
		1353	mov ecx, [color]
		1354
		1355
		1356	cmp [cardrange], 0
		1357	je .ace
		1358
		1359	cmp [cardrange], 1
		1360	je .two
		1361
		1362	cmp [cardrange], 2
		1363	je .three
		1364
		1365	cmp [cardrange], 3
		1366	je .four
		1367
		1368	cmp [cardrange], 4
		1369	je .five
		1370
		1371	cmp [cardrange], 5
		1372	je .six
		1373
		1374	cmp [cardrange], 6
		1375	je .seven
		1376
		1377	cmp [cardrange], 7
		1378	je .eight
		1379
		1380	cmp [cardrange], 8
		1381	je .nine
		1382
		1383	cmp [cardrange], 9
		1384	je .ten
		1385
		1386	cmp [cardrange], 10
		1387	je .jack
		1388
		1389	cmp [cardrange], 11
		1390	je .queen
		1391
		1392	cmp [cardrange], 12
		1393	je .king
		1394
		1395	; +-------+-------+-------+
		1396	; \| 3 \| 2 \| 3 \| ace = 1
		1397	; +-------+-------+-------+ two = 2
		1398	; \| \| \| \| three = 2 + 1
		1399	; +-------+-------+-------+ four = 3
		1400	; \| \| 6 \| \| five = 3 + 1
		1401	; +-------+-------+-------+ six = 3 + 4
		1402	; \| 5 \| \| 5 \| seven = 3 + 4 + 6
		1403	; +-------+-------+-------+ eight = 3 + 5
		1404	; \| 4 \| 1 \| 4 \| nine = 3 + 5
		1405	; +-------+-------+-------+ ten = 3 + 5 + 6 + 7
		1406	; \| 5 \| \| 5 \|
		1407	; +-------+-------+-------+
		1408	; \| \| 7 \| \| 1 means draw_1
		1409	; +-------+-------+-------+
		1410	; \| \| \| \|
		1411	; +-------+-------+-------+
		1412	; \| 3 \| 2 \| 3 \|
		1413	; +-------+-------+-------+
		1414
		1415
		1416
		1417	.ace:
		1418	mov eax, 4
		1419	mov [s], byte 'A'
		1420	mov edx, s
		1421	mov esi, 1
485	heavyiron	1422	mcall
205	heavyiron	1423
		1424	call draw_1
		1425	jmp .end
		1426
		1427	.two:
		1428	mov eax, 4
		1429	mov [s], byte '2'
		1430	mov edx, s
		1431	mov esi, 1
485	heavyiron	1432	mcall
205	heavyiron	1433
		1434	call draw_2
		1435	jmp .end
		1436
		1437
		1438	.three:
		1439	mov eax, 4
		1440	mov [s], byte '3'
		1441	mov edx, s
		1442	mov esi, 1
485	heavyiron	1443	mcall
205	heavyiron	1444
		1445	call draw_1
		1446	call draw_2
		1447
		1448	jmp .end
		1449
		1450	.four:
		1451	mov eax, 4
		1452	mov [s], byte '4'
		1453	mov edx, s
		1454	mov esi, 1
485	heavyiron	1455	mcall
205	heavyiron	1456
		1457	call draw_3
		1458	jmp .end
		1459
		1460	.five:
		1461	mov eax, 4
		1462	mov [s], byte '5'
		1463	mov edx, s
		1464	mov esi, 1
485	heavyiron	1465	mcall
205	heavyiron	1466
		1467	call draw_1
		1468	call draw_3
		1469
		1470	jmp .end
		1471
		1472	.six:
		1473	mov eax, 4
		1474	mov [s], byte '6'
		1475	mov edx, s
		1476	mov esi, 1
485	heavyiron	1477	mcall
205	heavyiron	1478
		1479	call draw_3
		1480	call draw_4
		1481
		1482	jmp .end
		1483
		1484	.seven:
		1485	mov eax, 4
		1486	mov [s], byte '7'
		1487	mov edx, s
		1488	mov esi, 1
485	heavyiron	1489	mcall
205	heavyiron	1490
		1491	call draw_3
		1492	call draw_4
		1493	call draw_6
		1494
		1495	jmp .end
		1496
		1497	.eight:
		1498	mov eax, 4
		1499	mov [s], byte '8'
		1500	mov edx, s
		1501	mov esi, 1
485	heavyiron	1502	mcall
205	heavyiron	1503
		1504	call draw_3
		1505	call draw_5
		1506
		1507	jmp .end
		1508
		1509	.nine:
		1510	mov eax, 4
		1511	mov [s], byte '9'
		1512	mov edx, s
		1513	mov esi, 1
485	heavyiron	1514	mcall
205	heavyiron	1515
		1516	call draw_3
		1517	call draw_5
		1518	call draw_1
		1519
		1520	jmp .end
		1521
		1522	.ten:
		1523	mov eax, 4
		1524	mov [s], word '10'
		1525	mov edx, s
		1526	mov esi, 2
485	heavyiron	1527	mcall
205	heavyiron	1528
		1529	call draw_3
		1530	call draw_5
		1531	call draw_6
		1532	call draw_7
		1533
		1534	jmp .end
		1535
		1536	.jack:
		1537	mov eax, 4
		1538	mov [s], byte 'J'
		1539	mov edx, s
		1540	mov esi, 1
485	heavyiron	1541	mcall
205	heavyiron	1542
		1543	jmp .end
		1544
		1545	.queen:
		1546	mov eax, 4
		1547	mov [s], byte 'Q'
		1548	mov edx, s
		1549	mov esi, 1
485	heavyiron	1550	mcall
205	heavyiron	1551
		1552	jmp .end
		1553
		1554	.king:
		1555	mov eax, 4
		1556	mov [s], byte 'K'
		1557	mov edx,s
		1558	mov esi, 1
485	heavyiron	1559	mcall
205	heavyiron	1560
		1561	.end:
		1562
		1563
		1564	cmp [negativedraw], 1
		1565	jne .no_invert2
		1566
		1567	call invert_all_images
		1568
		1569
		1570	.no_invert2:
		1571	.no_draw_card:
		1572
		1573	ret
		1574
		1575	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1576	; invert_all_images()
		1577	invert_all_images:
		1578	mov [sizeofimagetoinvert], 16 * 16 * 3
		1579	mov [imagetoinvert], heart
		1580	call invert_image_colors
		1581
		1582	mov [sizeofimagetoinvert], 16 * 16 * 3
		1583	mov [imagetoinvert], diamond
		1584	call invert_image_colors
		1585
		1586	mov [sizeofimagetoinvert], 16 * 16 * 3
		1587	mov [imagetoinvert], spade
		1588	call invert_image_colors
		1589
		1590	mov [sizeofimagetoinvert], 16 * 16 * 3
		1591	mov [imagetoinvert], club
		1592	call invert_image_colors
		1593
		1594
		1595	mov [sizeofimagetoinvert], 16 * 16 * 3
		1596	mov [imagetoinvert], heart_updown
		1597	call invert_image_colors
		1598
		1599	mov [sizeofimagetoinvert], 16 * 16 * 3
		1600	mov [imagetoinvert], diamond_updown
		1601	call invert_image_colors
		1602
		1603	mov [sizeofimagetoinvert], 16 * 16 * 3
		1604	mov [imagetoinvert], spade_updown
		1605	call invert_image_colors
		1606
		1607	mov [sizeofimagetoinvert], 16 * 16 * 3
		1608	mov [imagetoinvert], club_updown
		1609	call invert_image_colors
		1610
		1611
		1612	mov [sizeofimagetoinvert], 8 * 8 * 3
		1613	mov [imagetoinvert], heart_small
		1614	call invert_image_colors
		1615
		1616	mov [sizeofimagetoinvert], 8 * 8 * 3
		1617	mov [imagetoinvert], diamond_small
		1618	call invert_image_colors
		1619
		1620	mov [sizeofimagetoinvert], 8 * 8 * 3
		1621	mov [imagetoinvert], spade_small
		1622	call invert_image_colors
		1623
		1624	mov [sizeofimagetoinvert], 8 * 8 * 3
		1625	mov [imagetoinvert], club_small
		1626	call invert_image_colors
		1627
		1628
		1629
		1630	ret
		1631
		1632
		1633	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1634
		1635	draw_1:
		1636	;draw center image
		1637	mov ebx, [imageaddr]
		1638	mov ecx, 16 * 65536 + 16
		1639	mov edx, [xpos]
		1640	add edx, cardwidth/2 - 8
		1641	shl edx, 16
		1642	mov dx, word [ypos]
		1643	add dx, cardheight/2 - 8
		1644	mov eax, 7
485	heavyiron	1645	mcall
205	heavyiron	1646	ret
		1647
		1648	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1649
		1650
		1651	draw_2:
		1652	;draw top image
		1653	mov ebx, [imageaddr]
		1654	mov ecx, 16 * 65536 + 16
		1655	mov edx, [xpos]
		1656	add edx, 40 - 8
		1657	shl edx, 16
		1658	mov dx, word [ypos]
		1659	add dx, margin
		1660	mov eax, 7
485	heavyiron	1661	mcall
205	heavyiron	1662	;draw bottom image
		1663	mov ebx, [imageflipaddr]
		1664	mov edx, [xpos]
		1665	add edx, cardwidth/2 - 8
		1666	shl edx, 16
		1667	mov dx, word [ypos]
		1668	add dx, cardheight - 16 - margin
		1669	mov eax, 7
485	heavyiron	1670	mcall
205	heavyiron	1671	ret
		1672
		1673	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1674
		1675	draw_3:
		1676	;draw top left image
		1677	mov ebx, [imageaddr]
		1678	mov ecx, 16 * 65536 + 16
		1679	mov edx, [xpos]
		1680	add edx, margin
		1681	shl edx, 16
		1682	mov dx, word [ypos]
		1683	add dx, margin
		1684	mov eax, 7
485	heavyiron	1685	mcall
205	heavyiron	1686	;draw bottom left image
		1687	mov ebx, [imageflipaddr]
		1688	mov edx, [xpos]
		1689	add edx, margin
		1690	shl edx, 16
		1691	mov dx, word [ypos]
		1692	add dx, cardheight - margin - 16
		1693	mov eax, 7
485	heavyiron	1694	mcall
205	heavyiron	1695	;draw top right image
		1696	mov ebx, [imageaddr]
		1697	mov edx, [xpos]
		1698	add edx, cardwidth - margin - 16
		1699	shl edx, 16
		1700	mov dx, word [ypos]
		1701	add dx, margin
		1702	mov eax, 7
485	heavyiron	1703	mcall
205	heavyiron	1704	;draw bottom right image
		1705	mov ebx, [imageflipaddr]
		1706	mov edx, [xpos]
		1707	add edx, cardwidth - margin - 16
		1708	shl edx, 16
		1709	mov dx, word [ypos]
		1710	add dx, cardheight - margin - 16
		1711	mov eax, 7
485	heavyiron	1712	mcall
205	heavyiron	1713	ret
		1714
		1715	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1716
		1717	draw_4:
		1718	;draw center left image
		1719	mov ebx, [imageaddr]
		1720	mov ecx, 16 * 65536 + 16
		1721	mov edx, [xpos]
		1722	add edx, margin
		1723	shl edx, 16
		1724	mov dx, word [ypos]
		1725	add dx, cardheight/2 - 8
		1726	mov eax, 7
485	heavyiron	1727	mcall
205	heavyiron	1728	;draw center right image
		1729	mov edx, [xpos]
		1730	add edx, cardwidth - margin - 16
		1731	shl edx, 16
		1732	mov dx, word [ypos]
		1733	add dx, cardheight/2 - 8
		1734	mov eax, 7
485	heavyiron	1735	mcall
205	heavyiron	1736	ret
		1737
		1738	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1739
		1740	draw_5:
		1741	;draw top left image
		1742	mov ebx, [imageaddr]
		1743	mov ecx, 16 * 65536 + 16
		1744	mov edx, [xpos]
		1745	add edx, margin
		1746	shl edx, 16
		1747	mov dx, word [ypos]
		1748	add dx, cardheight * 3 / 9
		1749	mov eax, 7
485	heavyiron	1750	mcall
205	heavyiron	1751	;draw bottom left image
		1752	mov ebx, [imageflipaddr]
		1753	mov edx, [xpos]
		1754	add edx, 16
		1755	shl edx, 16
		1756	mov dx, word [ypos]
		1757	add dx, cardheight * 5 / 9
		1758	mov eax, 7
485	heavyiron	1759	mcall
205	heavyiron	1760	;draw top right image
		1761	mov ebx, [imageaddr]
		1762	mov edx, [xpos]
		1763	add edx, cardwidth - margin - 16
		1764	shl edx, 16
		1765	mov dx, word [ypos]
		1766	add dx, cardheight * 3 / 9
		1767	mov eax, 7
485	heavyiron	1768	mcall
205	heavyiron	1769	;draw bottom right image
		1770	mov ebx, [imageflipaddr]
		1771	mov edx, [xpos]
		1772	add edx, cardwidth - margin - 16
		1773	shl edx, 16
		1774	mov dx, word [ypos]
		1775	add dx, cardheight * 5 / 9
		1776	mov eax, 7
485	heavyiron	1777	mcall
205	heavyiron	1778	ret
		1779
		1780	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1781
		1782	draw_6:
		1783	mov ebx, [imageaddr]
		1784	mov ecx, 16 * 65536 + 16
		1785	mov edx, [xpos]
		1786	add edx, cardwidth/2 - 8
		1787	shl edx, 16
		1788	mov dx, word [ypos]
		1789	add dx, cardheight * 2 / 9
		1790	mov eax, 7
485	heavyiron	1791	mcall
205	heavyiron	1792	ret
		1793
		1794
		1795	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1796	draw_7:
		1797	mov ebx, [imageflipaddr]
		1798	mov ecx, 16 * 65536 + 16
		1799	mov edx, [xpos]
		1800	add edx, cardwidth/2 - 8
		1801	shl edx, 16
		1802	mov dx, word [ypos]
		1803	add dx, cardheight * 6 / 9
		1804	mov eax, 7
485	heavyiron	1805	mcall
205	heavyiron	1806	ret
		1807
		1808
		1809	;******************************************************************************
		1810	randomize:
		1811	push eax
		1812
		1813	mov eax, 3
485	heavyiron	1814	mcall
205	heavyiron	1815
		1816	mov ebx, $A59E3F1C
		1817	mul ebx
		1818	mov dword [randseed], eax
		1819	pop eax
		1820	ret
		1821
		1822
		1823
		1824	;******************************************************************************
		1825	; function Random(Range): RandomValue
		1826	random:
		1827	push ebx
		1828
		1829	mov eax, [randseed]
		1830	mov edx, 0
		1831	mov ebx, 7
		1832	div ebx
		1833
		1834	cmp edx, 0
		1835	je _0
		1836
		1837	cmp edx, 1
		1838	je _1
		1839
		1840	cmp edx, 2
		1841	je _2
		1842
		1843	cmp edx, 3
		1844	je _3
		1845
		1846	cmp edx, 4
		1847	je _4
		1848
		1849	cmp edx, 5
		1850	je _5
		1851
		1852	cmp edx, 6
		1853	je _6
		1854
		1855	jmp _end
		1856
		1857
		1858	_0:
		1859	;base := base + 58 + a[8];
		1860	mov eax, [randseed]
		1861	add eax, 58
		1862	add eax, dword [a + 8 * 4]
		1863	mov [randseed], eax
		1864	jmp _end;
		1865
		1866	_1:
		1867	;base := base + 1 + a[9];
		1868	mov eax, [randseed]
		1869	add eax, 1
		1870	add eax, dword [a + 9 * 4]
		1871	mov [randseed], eax
		1872	jmp _end;
		1873
		1874	_2:
		1875	;base := base + 4 + a[88];
		1876	mov eax, [randseed]
		1877	add eax, 4
		1878	add eax, dword [a + 88 * 4]
		1879	mov [randseed], eax
		1880	jmp _end;
		1881
		1882	_3:
		1883	;randseed := randseed + 79 + a[43];
		1884	mov eax, [randseed]
		1885	add eax, 79
		1886	add eax, dword [a + 43 * 4]
		1887	mov [randseed], eax
		1888	jmp _end;
		1889
		1890	_4:
		1891	;randseed := randseed + 3 + a[12];
		1892	mov eax, [randseed]
		1893	add eax, 3
		1894	add eax, dword [a + 12 * 4]
		1895	mov [randseed], eax
		1896	jmp _end;
		1897
		1898	_5:
		1899	;randseed := randseed + 2 + a[63];
		1900	mov eax, [randseed]
		1901	add eax, 2
		1902	add eax, dword [a + 63 * 4]
		1903	mov [randseed], eax
		1904	jmp _end;
		1905
		1906	_6:
		1907	;randseed := randseed + 151 + a[24];
		1908	mov eax, [randseed]
		1909	add eax, 151
		1910	add eax, dword [a + 24 * 4]
		1911	mov [randseed], eax
		1912
		1913	_end:
		1914
		1915	mov eax, [randseed]
		1916	mov edx, eax
		1917	shl edx, 16
		1918	mov bx, 100
		1919	div bx ; dx = randseed mod 100
		1920
		1921	mov ax, dx ; ax = randseed mod 100
		1922	mov bx, 4
		1923	mul bx ; dx:ax = (randseed mod 100) * 4
		1924	and eax, $0000FFFF
		1925	shr edx, 16
		1926	and edx, $FFFF0000
		1927	or eax, edx
		1928
		1929	mov eax, dword [a + eax] ; eax = dword[a + (randseed mod 100) * 4]
		1930	; ~ a[randseed mod 100]
		1931	mov ebx, dword [a + 47 * 4]
		1932	mul ebx ; eax = low(a[randseed mod 100] * a[47])
		1933
		1934	add eax, [randseed]
		1935	add eax, $4AE783A
		1936	mov [randseed], eax
		1937
		1938	mov eax, dword [a + 6 * 4]
		1939	mov edx, 0
		1940	mov ebx, 100
		1941	div ebx
		1942	mov eax, edx
		1943	mov ebx, 4
		1944	mul ebx ; eax = (dword [a + 6 * 4] mod 100) * 4 ~ a[6] mod 100
		1945
		1946
		1947	mov eax, dword [a + eax] ; eax = dword [a + (dword [a + 6 * 4] mod 100) * 4
		1948
		1949	; ~ a[a[6] mod 100]
		1950	add eax, [randseed]
		1951	mov [random_value], eax
		1952
		1953	mov edx, 0
		1954
		1955	mov ebx, [range]
		1956	div ebx
		1957	mov [random_value], edx
		1958
		1959	mov al, [TimesCalled]
		1960	xor ah, ah
		1961	inc al
		1962	mov bl, 100
		1963	div bl
		1964	mov [TimesCalled], ah ; TimesCalled = (TimesCalled + 1 ) mod 100
		1965
		1966	mov al, ah
		1967	mov bl, 4
		1968	mul bl
		1969	and eax, $0000FFFF
		1970
		1971	mov ebx, [randseed]
		1972	mov dword [a + eax], ebx ; a[TimesCalled] = randseed
		1973
		1974	pop ebx
		1975	ret
		1976
		1977	;******************************************************************************
		1978
		1979	; <--- initialised data --->
		1980	data
485	heavyiron	1981	title db 'Freecell',0
205	heavyiron	1982
		1983	new_game: db "New game"
		1984	new_game_len = $ - new_game
		1985
		1986	exit: db "Exit"
		1987	exit_len = $ - exit
		1988
		1989	s: db "10"
		1990
		1991
		1992	negativedraw db 0 ; for procedure draw_card
		1993
		1994
		1995	spade file 'SPADE.BMP': 54
		1996	spade_updown file 'SPADEUD.BMP': 54
		1997	spade_small file 'SPADESML.BMP': 54
		1998
		1999	club file 'CLUB.BMP': 54
		2000	club_updown file 'CLUBUD.BMP': 54
		2001	club_small file 'CLUBSML.BMP': 54
		2002
		2003	diamond file 'DIAM.BMP': 54
		2004	diamond_updown file 'DIAMUD.BMP': 54
		2005	diamond_small file 'DIAMSML.BMP': 54
		2006
		2007	heart file 'HEART.BMP': 54
		2008	heart_updown file 'HEARTUD.BMP': 54
		2009	heart_small file 'HEARTSML.BMP': 54
		2010
		2011
		2012	scNotSelected = 0
		2013	scCommonCells = 1
		2014	scTempCells = 2
		2015
		2016
		2017	whereisselcard dd scNotSelected
		2018	columnofselcard dd 0 ; if WhereIsSelCard = scGeneralCells
		2019	; then this can be 0 .. 7,
		2020	; if scTempCells then - 0 .. 3
		2021	; if scNotSelected - no matter
		2022
		2023	tempcells: times 4 db 52;
		2024	homecells: times 4 db 52 ; maximal card code is 51
		2025	cards: times 8 * 19 db 52; - %
		2026	pack: times 52 db ?
		2027
		2028
		2029
		2030	udata
		2031	process_info process_information
		2032	syscolors system_colors
		2033
		2034	WindowHeight rw 1
		2035	WindowWidth rw 1
		2036
		2037	xpos rd 1
		2038	ypos rd 1
		2039	bgcolor rd 1
		2040	blackcolor rd 1
		2041	redcolor rd 1
		2042
		2043
		2044	lastparam rd 1 ;
		2045
		2046	randomcard rd 1 ; for new_game_click
		2047
		2048	columnclicked rd 1 ; used in common_card_click, temp_cell_click,
		2049	cardclicked rd 1 ; home_cell_click
		2050	clickedcardrange rd 1 ;
		2051	clickedcardfamily rd 1 ;
		2052
		2053
		2054	selcardcode rd 1 ; for procedure get_sel_card_code_and_addr
		2055	selcardaddr rd 1 ;
		2056
		2057	column rd 1 ; for procedure draw_window
		2058	row rd 1 ;
		2059
		2060	imagetoinvert rd 1 ; for procedure invert_image_colors
		2061	sizeofimagetoinvert rd 1 ;
		2062
		2063	ncolumn rd 1 ; for procedure get_row_of_top_card_in_column
		2064	topcardrow rd 1 ;
		2065
		2066
		2067	color rd 1 ; for procedue draw_card
		2068	imageaddr rd 1 ;
		2069	imageflipaddr rd 1 ;
		2070
		2071	cardcode rd 1 ; used in differrent procedures
		2072	cardrange rd 1 ; cardcode = cardrange * 4 + cardfamily
		2073	cardfamily rd 1 ;
		2074
		2075	a: times 100 rd 1 ; for function Random
		2076	range rd 1 ;
		2077	random_value rd 1 ;
		2078	randseed rd 1 ;
		2079	TimesCalled rb 1 ;
		2080
		2081	j rd 1 ; number of card (in array cards) drawn now
		2082	i rd 1 ; used in many procedures of 1-st level
		2083	k rd 1
		2084
		2085	cardwidth = 80
		2086	cardheight = 120
		2087	radius = 4 ; not recommended to change
		2088	rowsize = 30 ; distance between top poins
		2089	;of cards in neighboring rows
		2090	columnspace = 5 ; minimal space between cards
		2091	margin = 14 ; margin of every card
		2092
		2093	topbuttonsbarheight = 20
		2094
		2095
		2096	meos_app_end

Subversion Repositories Kolibri OS

(root)/programs/games/freecell/freecell.ASM – Rev 485