1
0
mirror of https://github.com/KolibriOS/kolibrios.git synced 2024-12-14 02:47:07 +03:00
kolibrios/programs/games/freecell/freecell.ASM
heavyiron 4daae89053 *kernel - fixes in 15.2 by Mario79 and 67 by mike.dld
updated sysfunc.txt
*programs 
         new icons and logo for CPUID and ICON
         added new version of @ICON and ICONMNGR
         fixes in iconedit and calendar from DedOK
         new algoritm of fill background in pic4
         all apps (fasm-writen only) rewriten to use common macros.inc for easy recompile in fastcall mode (there is a bug in https; run need rewrite to use common macros.inc)
         small fixes in build_all.bat script
         

git-svn-id: svn://kolibrios.org@485 a494cfbc-eb01-0410-851d-a64ba20cac60
2007-05-10 13:48:35 +00:00

2096 lines
45 KiB
NASM

; <--- description --->
; compiler: FASM 1.50
; name: FreeCell for MeOS
; version: 1.00
; last update: 21/07/2004
; written by: Alexandr Gorbovets
; e-mail: gorsash@mail.ru
include "..\..\macros.inc"
meos_app_start
code
call randomize
call draw_window
wait_event:
mov eax, 10
mcall
cmp eax, 1 ; if event == 1
je redraw ; jump to redraw handler
cmp eax, 2 ; else if event == 2
je key ; jump to key handler
cmp eax, 3 ; else if event == 3
je button ; jump to button handler
jmp wait_event ;else return to the start of main cycle
redraw: ; redraw event handler
call draw_window
jmp wait_event
key: ; key event handler
mov eax, 2 ; get key code
mcall
jmp wait_event
button: ; button event handler
mov eax, 17 ; get button identifier
mcall
cmp ah, 1
je exit_app ; return if button id != 1
cmp ah, 1 + 8
jbe common_card ; if 1 < ah <= 9
cmp ah, 1 + 8 + 4 ; if 9 < ah <= 13
jbe temp_cell
cmp ah, 1 + 8 + 8
jbe home_cell
cmp ah, 1 + 8 + 4 + 4 + 1
je new_game_button
cmp ah, 1 + 8 + 4 + 4 + 2
je exit_app
jmp wait_event
exit_app:
mov eax, -1 ; exit application
mcall
common_card:
sub ah, 2 ;going from number of card to number of column
mov [columnclicked], 0
mov byte [columnclicked], ah
call common_card_click
jmp wait_event
temp_cell:
sub ah, 2 + 8
mov [columnclicked], 0
mov byte [columnclicked], ah
call temp_cell_click
jmp wait_event
home_cell:
sub ah, 2 + 8 + 4
mov [columnclicked], 0
mov byte [columnclicked], ah
call home_cell_click
jmp wait_event
new_game_button:
call new_game_click
jmp wait_event
;******************************************************************************
; common_card_click(columnclicked)
common_card_click:
; counting code of card, that has been clicked
mov eax, [columnclicked]
mov [ncolumn], eax
call get_row_of_top_card_in_column
mov eax, [topcardrow] ; eax = topcardrow * 8 + columnofselcard
mov bl, 8
mul bl
add eax, [columnclicked]
add eax, cards
mov ebx, 0
mov bl, byte [eax]
mov [cardclicked], ebx
call get_sel_card_code_and_addr
cmp [selcardcode], 52
jb .something_selected
cmp [cardclicked], 52
je .end
mov [whereisselcard], scCommonCells
mov eax, [columnclicked]
mov [columnofselcard], eax
call draw_window
jmp .end
.something_selected:
; checking if selected and clicked cards are equivalent
mov eax, [selcardcode]
cmp [cardclicked], eax
jne .not_same_card
mov [whereisselcard], scNotSelected
call draw_window
jmp .end
.not_same_card:
cmp [cardclicked], 52
jae .put_in_blank_cell
mov eax, [selcardcode]
mov bl, 4
div bl
mov ebx, 0
mov bl, ah
mov [cardfamily], ebx
mov ecx, 0
mov cl, al
mov [cardrange], ecx
mov eax, [cardclicked]
mov bl, 4
div bl ; reminder in ah, quotient in al
mov ebx, 0
mov bl, ah
mov [clickedcardfamily], ebx
mov ecx, 0
mov cl, al
mov [clickedcardrange], ecx
; clickedcardrange must be = cardrange + 1
mov eax, [cardrange]
inc eax
cmp [clickedcardrange], eax ; eax is such as needed
jne .end
cmp [cardfamily], 1
ja .black_card
; if selected red card
cmp [clickedcardfamily], 1
jbe .end ; if clicked red card (range <= 1) then exit
jmp .valid_cards
.black_card:
; if selected black card
cmp [clickedcardfamily], 1
ja .end ; if clicked black card then exit
jmp .valid_cards
.valid_cards:
; moving card from its place on clicked card
mov eax, [columnclicked]
mov [ncolumn], eax
call get_row_of_top_card_in_column
mov eax, [topcardrow]
inc eax
mov bl, 8
mul bl
and eax, $0000FFFF
add eax, [columnclicked]
add eax, cards
mov bl, byte [selcardcode]
mov byte [eax], bl
mov eax, [selcardaddr]
mov byte [eax], 52
mov [whereisselcard], scNotSelected
call draw_window
jmp .end
.put_in_blank_cell:
mov eax, cards
add eax, [columnclicked]
mov bl, byte [selcardcode]
mov byte [eax], bl
mov eax, [selcardaddr]
mov byte [eax], 52
mov [whereisselcard], scNotSelected
call draw_window
.end:
ret
;******************************************************************************
; temp_cell_click(columnclicked)
temp_cell_click:
call get_sel_card_code_and_addr
cmp [selcardcode], 52
jb .something_selected
mov [whereisselcard], scTempCells
mov eax, [columnclicked]
mov [columnofselcard], eax
call draw_window
jmp .end
.something_selected:
; checking if selected and clicked cards equivalent
mov eax, [columnclicked]
add eax, tempcells
mov ebx, 0
mov bl, byte [eax]
mov [cardclicked], ebx
mov eax, [selcardcode]
cmp [cardclicked], eax
jne .not_same_card
mov [whereisselcard], scNotSelected
call draw_window
.not_same_card:
;putting cards in temp cells
mov eax, [columnclicked]
add eax, tempcells
mov ebx, 0
mov bl, byte [eax]
mov [cardclicked], ebx
cmp [cardclicked], 52
jb .end
; if nothing lay in this cell
; move selected card to temp cell
mov eax, [columnclicked]
add eax, tempcells
mov bl, byte [selcardcode]
mov byte [eax], bl
mov eax, [selcardaddr]
mov byte [eax], 52
mov [whereisselcard], scNotSelected
call draw_window
jmp .end
.end:
ret
;******************************************************************************
; home_cell_click(column_clicked)
home_cell_click:
call get_sel_card_code_and_addr
mov eax, [columnclicked]
add eax, homecells
mov ebx, 0
mov bl, byte [eax]
mov [cardclicked], ebx
mov eax, [selcardcode]
mov bl, 4
div bl ; reminder in ah, quotient in al
mov ebx, 0
mov bl, ah
mov [cardfamily], ebx
mov ecx, 0
mov cl, al
mov [cardrange], ecx
cmp [cardclicked], 52
jb .not_blank
; if nothing lay in this cell
cmp [cardrange], 0
jne .end
; move ace to home
mov eax, [columnclicked]
add eax, homecells
mov bl, byte [selcardcode]
mov byte [eax], bl
mov eax, [selcardaddr]
mov byte [eax], 52
mov [whereisselcard], scNotSelected
call draw_window
jmp .end
.not_blank:
mov eax, [cardclicked]
mov bl, 4
div bl ; reminder in ah, quotient in al
mov ebx, 0
mov bl, ah
mov [clickedcardfamily], ebx
mov ecx, 0
mov cl, al
mov [clickedcardrange], ecx
cmp [cardfamily], ebx
jne .end
inc ecx
cmp [cardrange], ecx
jne .end
; moving card from its place to home with replacing
; of old card in home
mov eax, [columnclicked]
add eax, homecells
mov bl, byte [selcardcode]
mov byte [eax], bl
mov eax, [selcardaddr]
mov byte [eax], 52
mov [whereisselcard], scNotSelected
call draw_window
.end:
ret
;******************************************************************************
new_game_click:
mov [i], 0
.deleting_cards_from_common_cells:
mov eax, cards
add eax, [i]
mov byte [eax], 52
inc [i]
cmp [i], 19*8
jb .deleting_cards_from_common_cells
mov [i], 0
.filling_pack:
mov eax, pack
add eax, [i]
mov bl, byte [i]
mov byte [eax], bl
inc [i]
cmp [i], 52
jb .filling_pack
mov [i], 0
.putting_cards:
mov [range], 52
call random
mov eax, [random_value]
add eax, pack
mov ebx, 0
mov bl, byte [eax]
mov [randomcard], ebx
mov eax, [random_value]
mov [j], eax
cmp [randomcard], 52
jb .found_card
mov [range], 52
call random
cmp [random_value], 26
jae .decreasing_j
.increasing_j:
inc [j]
; j mod 52
mov eax, [j]
mov edx, 0
mov ebx, 52
div ebx
mov [j], edx
mov eax, [j]
add eax, pack
mov ebx, 0
mov bl, byte [eax]
mov [randomcard], ebx
cmp [randomcard], 52
jb .found_card
jmp .increasing_j
.decreasing_j:
dec [j]
; i mod 32
mov eax, [j]
mov edx, 0
mov ebx, 52
div ebx
mov [j], edx
mov eax, [j]
add eax, pack
mov ebx, 0
mov bl, byte [eax]
mov [randomcard], ebx
cmp [randomcard], 52
jb .found_card
jmp .decreasing_j
.found_card:
; putting card from pack
mov eax, cards
add eax, [i]
mov bl, byte [randomcard]
mov byte [eax], bl
; deleting card from pack
mov eax, pack
add eax, [j]
mov byte [eax], 52
inc [i]
cmp [i], 52
jb .putting_cards
mov [i], 0
.deleting_cards_from_temp_cells:
mov eax, tempcells
add eax, [i]
mov byte [eax], 52
inc [i]
cmp [i], 4
jb .deleting_cards_from_temp_cells
mov [i], 0
.deleting_cards_from_home_cells:
mov eax, homecells
add eax, [i]
mov byte [eax], 52
inc [i]
cmp [i], 4
jb .deleting_cards_from_home_cells
mov [whereisselcard], scNotSelected
call draw_window
ret
;******************************************************************************
; get_sel_card_code_and_addr(): selcardcode, selcardaddr
; if nothing selected, then selcardcode is 52
get_sel_card_code_and_addr:
cmp [whereisselcard], scNotSelected
jne .something_selected
mov [selcardcode], 52
jmp .end
.something_selected:
cmp [whereisselcard], scTempCells
je .temp_cells_selected
; common cells selected
mov eax, [columnofselcard]
mov [ncolumn], eax
call get_row_of_top_card_in_column
mov eax, [topcardrow]; eax = topcardrow * 8 + columnofselcard
mov bl, 8
mul bl ; result of multiplication in ax
add eax, [columnofselcard]
add eax, cards
mov [selcardaddr], eax
xor ebx, ebx
mov bl, byte [eax]
mov [selcardcode], ebx
jmp .end
.temp_cells_selected:
mov eax, tempcells
add eax, [columnofselcard]
mov [selcardaddr], eax
mov ebx, 0
mov bl, byte [eax]
mov [selcardcode], ebx
.end:
ret
;******************************************************************************
; draw_window()
draw_window:
mov eax,48 ; get system colors
mov ebx,3
mov ecx,syscolors
mov edx,sizeof.system_colors
mcall
mov eax, 12 ; start drawing
mov ebx, 1
mcall
mov eax, 0 ; create and draw the window
mov ebx, 100 * 65536 + 8 * cardwidth + 10 + 7 * columnspace
mov ecx, 100 * 65536 + 500
mov edx, 0x13008000
mov edi, title
mcall
mov eax, 9 ; getting window info
mov ebx, process_info
mov ecx, -1 ; we want to know info of our window
mcall
mov eax, [process_info.box.height]
mov [WindowHeight], ax
mov eax, [process_info.box.width]
mov [WindowWidth], ax
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; draw top panel
mov eax, 13
mov ebx, 5
shl ebx, 16
add bx, word [process_info.box.width]
sub bx, 9
mov ecx, 22 shl 16 + topbuttonsbarheight - 1
mov edx, [syscolors.work_graph]
mcall
; draw button "new game"
mov eax, 8
mov ebx, 5 shl 16 + 80
mov ecx, 22 shl 16 + topbuttonsbarheight - 2
mov edx, 1 + 8 + 4 + 4 + 1 ;button id
mov esi, [syscolors.work_button]
mcall
mov eax, 4
mov ebx, 20 shl 16 + 22 + topbuttonsbarheight/2 - 4
mov ecx, [syscolors.work_button_text]
mov edx, new_game
mov esi, new_game_len
mcall
; draw button "exit"
mov eax, 8
mov ebx, (5 + 85) shl 16 + 80 + 5
mov ecx, 22 shl 16 + topbuttonsbarheight - 2
mov edx, 1 + 8 + 4 + 4 + 2 ;button id
mov esi, [syscolors.work_button]
mcall
mov eax, 4
mov ebx, (40 + 80) shl 16 + 22 + topbuttonsbarheight/2 - 4
mov ecx, [syscolors.work_button_text]
mov edx, exit
mov esi, exit_len
mcall
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; draw separators between home, temp and common cells
mov eax, 13
; horizontal line
mov ebx, 5
shl ebx, 16
add bx, word [process_info.box.width]
sub bx, 9
mov ecx, (21 + topbuttonsbarheight + cardheight + columnspace) shl 16+1
mov edx, [syscolors.work_graph]
mcall
; verical line
mov eax, [process_info.box.width]
mov edx, 0
mov ecx, 2
div ecx
mov ebx, eax
;
shl ebx, 16
add bx, 1
mov ecx, (21 + topbuttonsbarheight) shl 16 + cardheight + columnspace
mov edx, [syscolors.work_graph]
mov eax, 13
mcall
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; draw temp buttons
mov [j], 0 ;counter that loops from 0 to 51
draw_a_temp_card:
; code of card must be in ecx
mov eax, tempcells
add eax, [j]
xor ecx, ecx
mov cl, byte [eax] ; placing in cl value from memory
; with address [tempcells + j] or
; j-th element of array "tempcells"
mov [cardcode], ecx
mov eax, [j]
xor edx, edx
mov ebx, 8
div ebx ; divsion by 8 (8 columns),
; so in eax quotient - number of row
; and in edx remainder -
; number of column where lay card
mov [row], eax
mov [column], edx
mov eax, [process_info.box.width] ; width of window
sub eax, 10
sub eax, cardwidth
mov ebx, 7
mov edx, 0
div ebx
mov ebx, [column]
mul ebx
add eax, 5
mov [xpos], eax
mov eax, [row]
mov bl, rowsize
mul bl
add eax, 24 + topbuttonsbarheight
mov [ypos], eax
; checking, if this card selected
mov [negativedraw], 0
cmp [whereisselcard], scTempCells
jne .this_temp_cell_isnt_selected
mov eax, [column]
cmp [columnofselcard], eax
jne .this_temp_cell_isnt_selected
mov [negativedraw], 1
.this_temp_cell_isnt_selected:
call draw_card
; define button on place of card
mov eax, 8
mov ebx, [xpos]
shl ebx, 16
add bx, cardwidth - 1
mov ecx, [ypos]
shl ecx, 16
add cx, cardheight - 1
mov edx, [column]
add edx, 01000000000000000000000000000000b + 2 + 8; button id = column
; id = 1 reserved as close button
mcall
inc [j]
cmp [j], 4
jb draw_a_temp_card
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; draw home buttons
mov [j], 0 ;counter that loops from 0 to 51
draw_a_home_card:
; code of card must be in ecx
mov eax, homecells
add eax, [j]
xor ecx, ecx
mov cl, byte [eax] ; placing in cl value from memory
; with address [tempcells + j] or
; j-th element of array "tempcells"
mov [cardcode], ecx
mov eax, [j]
xor edx, edx
mov ebx, 8
div ebx ; divsion by 8 (8 columns),
; so in eax quotient - number of row
; and in edx remainder -
; number of column where lay card
mov [row], eax
mov [column], edx
mov eax, [process_info.box.width] ; width of window
sub eax, 10
sub eax, cardwidth
mov ebx, 7
mov edx, 0
div ebx
mov ebx, [column]
add ebx, 4
mul ebx
add eax, 5
mov [xpos], eax
mov eax, [row]
mov bl, rowsize
mul bl
add eax, 24 + topbuttonsbarheight
mov [ypos], eax
mov [negativedraw], 0
call draw_card
; define button on place of card
mov eax, 8
mov ebx, [xpos]
shl ebx, 16
add bx, cardwidth - 1
mov ecx, [ypos]
shl ecx, 16
add cx, cardheight - 1
mov edx, [column]
add edx, 01000000000000000000000000000000b + 2 + 8 + 4 ; button id
; id = 1 reserved as close button
mcall
inc [j]
cmp [j], 4
jb draw_a_home_card
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; draw common cards
mov [j], 0 ;counter that loops from 0 to 8 * 19
draw_a_card:
; code of card must be in ecx
mov eax, cards
add eax, [j]
xor ecx, ecx
mov cl, byte [eax] ; placing in cl value from memory
; with address [cards + j] or
; j-th element of array "cards"
; cmp ecx, 52 ; if code of card >= 52 then there is no card
; jae no_draw
;
; cmp ecx, 0 ; if code of card < 0 then there is no card
; jb no_draw
mov [cardcode], ecx
mov eax, [j]
xor edx, edx
mov ebx, 8
div ebx ; divsion by 8 (8 columns),
; so in eax quotient - number of row
; and in edx remainder -
; number of column where lay card
mov [row], eax
mov [column], edx
mov eax, [process_info.box.width] ; width of window
sub eax, 10
sub eax, cardwidth
mov ebx, 7
mov edx, 0
div ebx
mov ebx, [column]
mul ebx
add eax, 5
mov [xpos], eax
mov eax, [row]
mov bl, rowsize
mul bl
add eax, cardheight + 24 + topbuttonsbarheight + columnspace
mov [ypos], eax
mov [negativedraw], 0 ;checking, if this is selected card
cmp [whereisselcard], scCommonCells
jne .this_card_isnt_selected
mov eax, [column]
cmp [columnofselcard], eax
jne .this_card_isnt_selected
mov eax, [column]
mov [ncolumn], eax
call get_row_of_top_card_in_column
mov eax, [row]
cmp [topcardrow], eax
jne .this_card_isnt_selected
mov [negativedraw], 1
.this_card_isnt_selected:
call draw_card
; now checking if it is top card in its column
; if it does, we'll define button on its place
mov eax, [column]
mov [ncolumn], eax
call get_row_of_top_card_in_column
mov eax, [row]
cmp [topcardrow], eax
je .define_button
cmp [topcardrow], 0
jne .no_define_button
cmp [row], 0
jne .no_define_button
.define_button:
mov eax, 8
mov ebx, [xpos]
shl ebx, 16
add bx, cardwidth - 1
mov ecx, [ypos]
shl ecx, 16
add cx, cardheight - 1
mov edx, [column]
add edx, 01000000000000000000000000000000b + 2; button id = column + 2,
; id = 1 reserved as close button
mcall
.no_define_button:
inc [j]
cmp [j], 8 * 19
jb draw_a_card
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
mov eax, 12 ; finish drawing
mov ebx, 2
mcall
ret
;******************************************************************************
; get_row_of_top_card_in_column(ncolumn): topcardrow
get_row_of_top_card_in_column:
; number of column in ncolumn
; returns in topcardrow
mov [i], 0 ; i loops from 0 to 1, ... while card i * 8 + ncolumn
; is valid card (0 <= its code < 52)
.cycle:
xor eax, eax
mov al, 8
mov ebx, [i]
mul bl
add eax, [ncolumn]
add eax, cards
xor ecx, ecx
mov cl, byte [eax]
cmp ecx, 52
jae .endcycle
cmp [i], 18
ja .endcycle
inc [i]
jmp .cycle
.endcycle:
cmp [i], 0
je .dont_dec
dec [i]
.dont_dec:
mov eax, [i]
mov [topcardrow], eax
ret
;******************************************************************************
; invert_image_colors(imagetoinvert, sizeofimagetoinvert)
invert_image_colors:
mov [i], 0
.inverting:
mov eax, [imagetoinvert]
add eax, [i]
mov bl, byte [eax]
;xor ebx, ebx
;add ebx, 10
not ebx
mov byte [eax], bl
inc [i]
mov ecx, [sizeofimagetoinvert]
cmp [i], ecx
jb .inverting
jmp .later
.exit:
mov eax, -1
mcall
.later:
ret
;******************************************************************************
; draw_card(xpos, ypos, cardcode, negativedraw)
; if negativedraw = 1 then card drawn in inverted colors
draw_card: ; draws card with left top corner
; in point ([xpos],[ypos]),
; type of card in [cardcode]
cmp [cardcode], 52 ; if code of card >= 52 then there is no card
jae .no_draw_card
cmp [negativedraw], 1
jne .no_invert1
;doing if negativedraw
mov [bgcolor], $00000000
mov [blackcolor], $00FFFFFF
mov [redcolor], $0000FFFF
;inverting all images
call invert_all_images
jmp .colors_selection_done
.no_invert1:
;doing if not negativedraw
mov [bgcolor], $00FFFFFF
mov [blackcolor], $00000000
mov [redcolor], $00FF0000
.colors_selection_done:
mov eax, 13
mov ebx, [xpos] ; filling card with bgcolor
; (big background rectangle)
mov edx, [bgcolor]
add ebx, 2
shl ebx, 16
mov bx, cardwidth - 4
mov ecx, [ypos]
add ecx, 2
shl ecx, 16
mov cx, cardheight - 4
mcall
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
mov ebx, [xpos] ; left black line
shl ebx, 16
mov bx, 1
mov ecx, [ypos]
add ecx, 5
shl ecx, 16
xor cx, cx
mov cx, cardheight - 2 * radius - 2
mov edx, [blackcolor]
mcall
mov ebx, [xpos] ; left white line
inc ebx
shl ebx, 16
mov bx, 1
mov edx, [bgcolor]
mcall
mov ebx, [xpos] ; right black line
add ebx, cardwidth - 1
shl ebx, 16
mov bx, 1
mov edx, [blackcolor]
mcall
mov ebx, [xpos] ; right white line
add ebx, cardwidth - 2
shl ebx, 16
mov bx, 1
mov edx, [bgcolor]
mcall
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
mov ecx, [ypos] ; top black line
shl ecx, 16
mov cx, 1
mov ebx, [xpos]
add ebx, 5
shl ebx, 16
mov bx, cardwidth - 2 * radius - 2
mov edx, [blackcolor]
mcall
mov ecx, [ypos] ; top white line
inc ecx
shl ecx, 16
mov cx, 1
mov edx, [bgcolor]
mcall
mov ecx, [ypos] ; bottom black line
add ecx, cardheight - 1
shl ecx, 16
mov cx, 1
mov edx, [blackcolor]
mcall
mov ecx, [ypos] ; bottom white line
add ecx, cardheight - 2
shl ecx, 16
mov cx, 1
mov edx, [bgcolor]
mcall
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
mov eax, 1 ; drawing points
mov edx, [blackcolor] ; black color for all pixels
mov ebx, [xpos] ; draw top left corner
mov ecx, [ypos]
inc ebx
add ecx, 4
mcall
dec ecx
mcall
dec ecx
inc ebx
mcall
dec ecx
inc ebx
mcall
inc ebx
mcall
mov ebx, [xpos] ;drawing top right corner
mov ecx, [ypos]
add ebx, cardwidth - 2
add ecx, 4
mcall
dec ecx
mcall
dec ebx
dec ecx
mcall
dec ebx
dec ecx
mcall
dec ebx
mcall
;drawing bottom left corner
mov ebx, [xpos]
mov ecx, [ypos]
inc ebx
add ecx, cardheight - 5
mcall
inc ecx
mcall
inc ebx
inc ecx
mcall
inc ebx
inc ecx
mcall
inc ebx
mcall
;drawing bottom right corner
mov ebx, [xpos]
mov ecx, [ypos]
add ebx, cardwidth - 2
add ecx, cardheight - 5
mcall
inc ecx
mcall
dec ebx
inc ecx
mcall
dec ebx
inc ecx
mcall
dec ebx
mcall
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; drawing text and images
mov eax, [cardcode]
mov edx, 0
mov ebx, 4
div ebx
mov [cardfamily], edx
mov [cardrange], eax
; counting position of small card image
mov eax, 7
mov ecx, 8*65536+8
mov edx, [xpos]
add edx, radius
shl edx, 16
mov dx, word [ypos]
add dx, radius + 8
cmp [cardfamily], 0
je .heart
cmp [cardfamily], 1
je .diamond
cmp [cardfamily], 2
je .club
cmp [cardfamily], 3
je .spade
.heart:
mov esi, [redcolor]
mov [color], esi
mov [imageaddr], heart
mov [imageflipaddr], heart_updown
mov ebx, heart_small
mcall
jmp .selnumber
.diamond:
mov esi, [redcolor]
mov [color], esi
mov [imageaddr], diamond
mov [imageflipaddr], diamond_updown
mov ebx, diamond_small
mcall
jmp .selnumber
.club:
mov esi, [blackcolor]
mov [color], esi
mov [imageaddr], club
mov [imageflipaddr], club_updown
mov ebx, club_small
mcall
jmp .selnumber
.spade:
mov esi, [blackcolor]
mov [color], esi
mov [imageaddr], spade
mov [imageflipaddr], spade_updown
mov ebx, spade_small
mcall
.selnumber:
mov ebx, [xpos] ; counting position of text
; in ebx, same for all cards
add ebx, radius
shl ebx, 16
mov bx, word [ypos]
add bx, radius
mov ecx, [color]
cmp [cardrange], 0
je .ace
cmp [cardrange], 1
je .two
cmp [cardrange], 2
je .three
cmp [cardrange], 3
je .four
cmp [cardrange], 4
je .five
cmp [cardrange], 5
je .six
cmp [cardrange], 6
je .seven
cmp [cardrange], 7
je .eight
cmp [cardrange], 8
je .nine
cmp [cardrange], 9
je .ten
cmp [cardrange], 10
je .jack
cmp [cardrange], 11
je .queen
cmp [cardrange], 12
je .king
; +-------+-------+-------+
; | 3 | 2 | 3 | ace = 1
; +-------+-------+-------+ two = 2
; | | | | three = 2 + 1
; +-------+-------+-------+ four = 3
; | | 6 | | five = 3 + 1
; +-------+-------+-------+ six = 3 + 4
; | 5 | | 5 | seven = 3 + 4 + 6
; +-------+-------+-------+ eight = 3 + 5
; | 4 | 1 | 4 | nine = 3 + 5
; +-------+-------+-------+ ten = 3 + 5 + 6 + 7
; | 5 | | 5 |
; +-------+-------+-------+
; | | 7 | | 1 means draw_1
; +-------+-------+-------+
; | | | |
; +-------+-------+-------+
; | 3 | 2 | 3 |
; +-------+-------+-------+
.ace:
mov eax, 4
mov [s], byte 'A'
mov edx, s
mov esi, 1
mcall
call draw_1
jmp .end
.two:
mov eax, 4
mov [s], byte '2'
mov edx, s
mov esi, 1
mcall
call draw_2
jmp .end
.three:
mov eax, 4
mov [s], byte '3'
mov edx, s
mov esi, 1
mcall
call draw_1
call draw_2
jmp .end
.four:
mov eax, 4
mov [s], byte '4'
mov edx, s
mov esi, 1
mcall
call draw_3
jmp .end
.five:
mov eax, 4
mov [s], byte '5'
mov edx, s
mov esi, 1
mcall
call draw_1
call draw_3
jmp .end
.six:
mov eax, 4
mov [s], byte '6'
mov edx, s
mov esi, 1
mcall
call draw_3
call draw_4
jmp .end
.seven:
mov eax, 4
mov [s], byte '7'
mov edx, s
mov esi, 1
mcall
call draw_3
call draw_4
call draw_6
jmp .end
.eight:
mov eax, 4
mov [s], byte '8'
mov edx, s
mov esi, 1
mcall
call draw_3
call draw_5
jmp .end
.nine:
mov eax, 4
mov [s], byte '9'
mov edx, s
mov esi, 1
mcall
call draw_3
call draw_5
call draw_1
jmp .end
.ten:
mov eax, 4
mov [s], word '10'
mov edx, s
mov esi, 2
mcall
call draw_3
call draw_5
call draw_6
call draw_7
jmp .end
.jack:
mov eax, 4
mov [s], byte 'J'
mov edx, s
mov esi, 1
mcall
jmp .end
.queen:
mov eax, 4
mov [s], byte 'Q'
mov edx, s
mov esi, 1
mcall
jmp .end
.king:
mov eax, 4
mov [s], byte 'K'
mov edx,s
mov esi, 1
mcall
.end:
cmp [negativedraw], 1
jne .no_invert2
call invert_all_images
.no_invert2:
.no_draw_card:
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; invert_all_images()
invert_all_images:
mov [sizeofimagetoinvert], 16 * 16 * 3
mov [imagetoinvert], heart
call invert_image_colors
mov [sizeofimagetoinvert], 16 * 16 * 3
mov [imagetoinvert], diamond
call invert_image_colors
mov [sizeofimagetoinvert], 16 * 16 * 3
mov [imagetoinvert], spade
call invert_image_colors
mov [sizeofimagetoinvert], 16 * 16 * 3
mov [imagetoinvert], club
call invert_image_colors
mov [sizeofimagetoinvert], 16 * 16 * 3
mov [imagetoinvert], heart_updown
call invert_image_colors
mov [sizeofimagetoinvert], 16 * 16 * 3
mov [imagetoinvert], diamond_updown
call invert_image_colors
mov [sizeofimagetoinvert], 16 * 16 * 3
mov [imagetoinvert], spade_updown
call invert_image_colors
mov [sizeofimagetoinvert], 16 * 16 * 3
mov [imagetoinvert], club_updown
call invert_image_colors
mov [sizeofimagetoinvert], 8 * 8 * 3
mov [imagetoinvert], heart_small
call invert_image_colors
mov [sizeofimagetoinvert], 8 * 8 * 3
mov [imagetoinvert], diamond_small
call invert_image_colors
mov [sizeofimagetoinvert], 8 * 8 * 3
mov [imagetoinvert], spade_small
call invert_image_colors
mov [sizeofimagetoinvert], 8 * 8 * 3
mov [imagetoinvert], club_small
call invert_image_colors
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
draw_1:
;draw center image
mov ebx, [imageaddr]
mov ecx, 16 * 65536 + 16
mov edx, [xpos]
add edx, cardwidth/2 - 8
shl edx, 16
mov dx, word [ypos]
add dx, cardheight/2 - 8
mov eax, 7
mcall
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
draw_2:
;draw top image
mov ebx, [imageaddr]
mov ecx, 16 * 65536 + 16
mov edx, [xpos]
add edx, 40 - 8
shl edx, 16
mov dx, word [ypos]
add dx, margin
mov eax, 7
mcall
;draw bottom image
mov ebx, [imageflipaddr]
mov edx, [xpos]
add edx, cardwidth/2 - 8
shl edx, 16
mov dx, word [ypos]
add dx, cardheight - 16 - margin
mov eax, 7
mcall
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
draw_3:
;draw top left image
mov ebx, [imageaddr]
mov ecx, 16 * 65536 + 16
mov edx, [xpos]
add edx, margin
shl edx, 16
mov dx, word [ypos]
add dx, margin
mov eax, 7
mcall
;draw bottom left image
mov ebx, [imageflipaddr]
mov edx, [xpos]
add edx, margin
shl edx, 16
mov dx, word [ypos]
add dx, cardheight - margin - 16
mov eax, 7
mcall
;draw top right image
mov ebx, [imageaddr]
mov edx, [xpos]
add edx, cardwidth - margin - 16
shl edx, 16
mov dx, word [ypos]
add dx, margin
mov eax, 7
mcall
;draw bottom right image
mov ebx, [imageflipaddr]
mov edx, [xpos]
add edx, cardwidth - margin - 16
shl edx, 16
mov dx, word [ypos]
add dx, cardheight - margin - 16
mov eax, 7
mcall
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
draw_4:
;draw center left image
mov ebx, [imageaddr]
mov ecx, 16 * 65536 + 16
mov edx, [xpos]
add edx, margin
shl edx, 16
mov dx, word [ypos]
add dx, cardheight/2 - 8
mov eax, 7
mcall
;draw center right image
mov edx, [xpos]
add edx, cardwidth - margin - 16
shl edx, 16
mov dx, word [ypos]
add dx, cardheight/2 - 8
mov eax, 7
mcall
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
draw_5:
;draw top left image
mov ebx, [imageaddr]
mov ecx, 16 * 65536 + 16
mov edx, [xpos]
add edx, margin
shl edx, 16
mov dx, word [ypos]
add dx, cardheight * 3 / 9
mov eax, 7
mcall
;draw bottom left image
mov ebx, [imageflipaddr]
mov edx, [xpos]
add edx, 16
shl edx, 16
mov dx, word [ypos]
add dx, cardheight * 5 / 9
mov eax, 7
mcall
;draw top right image
mov ebx, [imageaddr]
mov edx, [xpos]
add edx, cardwidth - margin - 16
shl edx, 16
mov dx, word [ypos]
add dx, cardheight * 3 / 9
mov eax, 7
mcall
;draw bottom right image
mov ebx, [imageflipaddr]
mov edx, [xpos]
add edx, cardwidth - margin - 16
shl edx, 16
mov dx, word [ypos]
add dx, cardheight * 5 / 9
mov eax, 7
mcall
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
draw_6:
mov ebx, [imageaddr]
mov ecx, 16 * 65536 + 16
mov edx, [xpos]
add edx, cardwidth/2 - 8
shl edx, 16
mov dx, word [ypos]
add dx, cardheight * 2 / 9
mov eax, 7
mcall
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
draw_7:
mov ebx, [imageflipaddr]
mov ecx, 16 * 65536 + 16
mov edx, [xpos]
add edx, cardwidth/2 - 8
shl edx, 16
mov dx, word [ypos]
add dx, cardheight * 6 / 9
mov eax, 7
mcall
ret
;******************************************************************************
randomize:
push eax
mov eax, 3
mcall
mov ebx, $A59E3F1C
mul ebx
mov dword [randseed], eax
pop eax
ret
;******************************************************************************
; function Random(Range): RandomValue
random:
push ebx
mov eax, [randseed]
mov edx, 0
mov ebx, 7
div ebx
cmp edx, 0
je _0
cmp edx, 1
je _1
cmp edx, 2
je _2
cmp edx, 3
je _3
cmp edx, 4
je _4
cmp edx, 5
je _5
cmp edx, 6
je _6
jmp _end
_0:
;base := base + 58 + a[8];
mov eax, [randseed]
add eax, 58
add eax, dword [a + 8 * 4]
mov [randseed], eax
jmp _end;
_1:
;base := base + 1 + a[9];
mov eax, [randseed]
add eax, 1
add eax, dword [a + 9 * 4]
mov [randseed], eax
jmp _end;
_2:
;base := base + 4 + a[88];
mov eax, [randseed]
add eax, 4
add eax, dword [a + 88 * 4]
mov [randseed], eax
jmp _end;
_3:
;randseed := randseed + 79 + a[43];
mov eax, [randseed]
add eax, 79
add eax, dword [a + 43 * 4]
mov [randseed], eax
jmp _end;
_4:
;randseed := randseed + 3 + a[12];
mov eax, [randseed]
add eax, 3
add eax, dword [a + 12 * 4]
mov [randseed], eax
jmp _end;
_5:
;randseed := randseed + 2 + a[63];
mov eax, [randseed]
add eax, 2
add eax, dword [a + 63 * 4]
mov [randseed], eax
jmp _end;
_6:
;randseed := randseed + 151 + a[24];
mov eax, [randseed]
add eax, 151
add eax, dword [a + 24 * 4]
mov [randseed], eax
_end:
mov eax, [randseed]
mov edx, eax
shl edx, 16
mov bx, 100
div bx ; dx = randseed mod 100
mov ax, dx ; ax = randseed mod 100
mov bx, 4
mul bx ; dx:ax = (randseed mod 100) * 4
and eax, $0000FFFF
shr edx, 16
and edx, $FFFF0000
or eax, edx
mov eax, dword [a + eax] ; eax = dword[a + (randseed mod 100) * 4]
; ~ a[randseed mod 100]
mov ebx, dword [a + 47 * 4]
mul ebx ; eax = low(a[randseed mod 100] * a[47])
add eax, [randseed]
add eax, $4AE783A
mov [randseed], eax
mov eax, dword [a + 6 * 4]
mov edx, 0
mov ebx, 100
div ebx
mov eax, edx
mov ebx, 4
mul ebx ; eax = (dword [a + 6 * 4] mod 100) * 4 ~ a[6] mod 100
mov eax, dword [a + eax] ; eax = dword [a + (dword [a + 6 * 4] mod 100) * 4
; ~ a[a[6] mod 100]
add eax, [randseed]
mov [random_value], eax
mov edx, 0
mov ebx, [range]
div ebx
mov [random_value], edx
mov al, [TimesCalled]
xor ah, ah
inc al
mov bl, 100
div bl
mov [TimesCalled], ah ; TimesCalled = (TimesCalled + 1 ) mod 100
mov al, ah
mov bl, 4
mul bl
and eax, $0000FFFF
mov ebx, [randseed]
mov dword [a + eax], ebx ; a[TimesCalled] = randseed
pop ebx
ret
;******************************************************************************
; <--- initialised data --->
data
title db 'Freecell',0
new_game: db "New game"
new_game_len = $ - new_game
exit: db "Exit"
exit_len = $ - exit
s: db "10"
negativedraw db 0 ; for procedure draw_card
spade file 'SPADE.BMP': 54
spade_updown file 'SPADEUD.BMP': 54
spade_small file 'SPADESML.BMP': 54
club file 'CLUB.BMP': 54
club_updown file 'CLUBUD.BMP': 54
club_small file 'CLUBSML.BMP': 54
diamond file 'DIAM.BMP': 54
diamond_updown file 'DIAMUD.BMP': 54
diamond_small file 'DIAMSML.BMP': 54
heart file 'HEART.BMP': 54
heart_updown file 'HEARTUD.BMP': 54
heart_small file 'HEARTSML.BMP': 54
scNotSelected = 0
scCommonCells = 1
scTempCells = 2
whereisselcard dd scNotSelected
columnofselcard dd 0 ; if WhereIsSelCard = scGeneralCells
; then this can be 0 .. 7,
; if scTempCells then - 0 .. 3
; if scNotSelected - no matter
tempcells: times 4 db 52;
homecells: times 4 db 52 ; maximal card code is 51
cards: times 8 * 19 db 52; - %
pack: times 52 db ?
udata
process_info process_information
syscolors system_colors
WindowHeight rw 1
WindowWidth rw 1
xpos rd 1
ypos rd 1
bgcolor rd 1
blackcolor rd 1
redcolor rd 1
lastparam rd 1 ;
randomcard rd 1 ; for new_game_click
columnclicked rd 1 ; used in common_card_click, temp_cell_click,
cardclicked rd 1 ; home_cell_click
clickedcardrange rd 1 ;
clickedcardfamily rd 1 ;
selcardcode rd 1 ; for procedure get_sel_card_code_and_addr
selcardaddr rd 1 ;
column rd 1 ; for procedure draw_window
row rd 1 ;
imagetoinvert rd 1 ; for procedure invert_image_colors
sizeofimagetoinvert rd 1 ;
ncolumn rd 1 ; for procedure get_row_of_top_card_in_column
topcardrow rd 1 ;
color rd 1 ; for procedue draw_card
imageaddr rd 1 ;
imageflipaddr rd 1 ;
cardcode rd 1 ; used in differrent procedures
cardrange rd 1 ; cardcode = cardrange * 4 + cardfamily
cardfamily rd 1 ;
a: times 100 rd 1 ; for function Random
range rd 1 ;
random_value rd 1 ;
randseed rd 1 ;
TimesCalled rb 1 ;
j rd 1 ; number of card (in array cards) drawn now
i rd 1 ; used in many procedures of 1-st level
k rd 1
cardwidth = 80
cardheight = 120
radius = 4 ; not recommended to change
rowsize = 30 ; distance between top poins
;of cards in neighboring rows
columnspace = 5 ; minimal space between cards
margin = 14 ; margin of every card
topbuttonsbarheight = 20
meos_app_end