Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 7672 → Rev 7673

/programs/games/gomoku/trunk/gomoku.asm
1,6 → 1,6
;http://sources.ru/pascal/gamestxt/go-moku.zip
 
N equ 19 ; Size of the board
N = 19 ; Size of the board
 
use32
org 0x0
8,8 → 8,8
dd 0x1
dd START
dd I_END
dd (I_END+200+13*N*N) and not 3
dd (I_END+200+13*N*N) and not 3
dd E_END
dd E_END
dd 0x0,0x0
 
include '../../../macros.inc'
36,8 → 36,8
mcall 48,4
xchg eax,ecx
add ecx,100*65536+(16*N+26)
mcall 0,100*65536+(16*N+12),,0x34FFFFFF,,title
mcall 38,2*65536+(16*N),20*65536+20,0x00a0a0a0;000000
mcall 0,<100,16*N+12>,,0x34FFFFFF,,title
mcall 38,<2,16*N>,<20,20>,0x00a0a0a0;000000
mov edi,N
@@: add ecx,16*65536+16
mcall
151,26 → 151,26
@@: ret
 
.one:
mov ecx,0xd04ba010
bt [flags],4
mov [pic_plt+4],0x4ba010
btr [flags],4
jnc @f
mov ecx,0xd0ff0000
btr [flags],4
@@: push edi
mcall 4,,,txt_x,,0xffffff
pop edi
mov [pic_plt+4],0xff0000
@@: pushad
mov edx, ebx
mcall 65,pic_x,<7,7>,,1,pic_plt, 0
popad
.null:
add ebx,16*65536;+16
jmp .end
.two:
mov ecx,0xd000459a
bt [flags],4
mov [pic_plt+4],0x00459a
btr [flags],4
jnc @f
mov ecx,0xd0ff0000
btr [flags],4
@@: push edi
mcall 4,,,txt_o,,0xffffff
pop edi
mov [pic_plt+4],0xff0000
@@: pushad
mov edx, ebx
mcall 65,pic_o,<7,7>,,1,pic_plt, 0
popad
jmp .null
 
 
700,8 → 700,23
 
 
 
txt_x db 'X',0
txt_o db 'O',0
pic_x db 10000010b, \
01000100b, \
00101000b, \
00010000b, \
00101000b, \
01000100b, \
10000010b
 
pic_o db 01111100b, \
10000010b, \
10000010b, \
10000010b, \
10000010b, \
10000010b, \
01111100b
 
pic_plt dd 0xffffff, 0x000000
if lang eq ru
title db 'ƒ®¬®ªã',0
txt_buttons db '®¢ ï €¢â®',0
731,11 → 746,11
;3: å®¤ë ¨áç¥à¯ ­ë
;4: ¢ print_board - ¢ë¤¥«¥­¨¥ ªà á­ë¬ 梥⮬ 5-⨠¢ àï¤ ª«¥â®ª
 
proc_info process_information ; it should be after I_END, but i'm afraid of lines 11-12. dunkaist
I_END:
align 16
Board rb N*N
Value rw N*N*2 ;¯¥à¢ ï ¯®«®¢¨­  - ¤«ï ª®¬¯ , ¢â®à ï - ¤«ï ¨£à®ª 
Line rb 4*N*N*2
 
 
proc_info process_information
rb 0x100 ; stack
E_END: