Subversion Repositories Kolibri OS

Rev

Rev 109 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 109 Rev 180
Line 2... Line 2...
2
;    CHESS CLIENT for CHESSCLUB.COM (VT)
2
;    CHESS CLIENT for CHESSCLUB.COM (VT)
3
;
3
;
4
;    Compile with FASM for Menuet
4
;    Compile with FASM for Menuet
5
;
5
;
Line -... Line 6...
-
 
6
 
-
 
7
appname equ 'Chess Client for Chessclub.com '
-
 
8
version equ '0.2'
6
   
9
 
Line 7... Line 10...
7
use32
10
use32
Line 8... Line 11...
8
   
11
 
Line 17... Line 20...
17
                dd      0x00000000              ; reserved=no extended header
20
		dd	0x00000000		; reserved=no extended header
Line 18... Line 21...
18
   
21
 
19
include 'lang.inc'
22
include 'lang.inc'
Line 20... Line 23...
20
include 'macros.inc'
23
include 'macros.inc'
-
 
24
 
-
 
25
;file_info:
-
 
26
;
Line -... Line 27...
-
 
27
;      dd  0,0,-1,0x4000,0x20000
-
 
28
;      db  '/rd/1/chess.bmp',0
-
 
29
 
-
 
30
file_info:
-
 
31
	dd 0
21
   
32
	dd 0
22
file_info:
33
	dd 0
Line 23... Line 34...
23
   
34
	dd -1
Line 24... Line 35...
24
      dd  0,0,-1,0x4000,0x20000
35
	dd 0x4000
Line 50... Line 61...
50
text   equ  texts+80*32*4
61
text   equ  texts+80*32*4
Line 51... Line 62...
51
   
62
 
Line 52... Line 63...
52
   
63
 
-
 
64
START:				; start of execution
-
 
65
 
53
START:                          ; start of execution
66
;    mov  eax,58
54
   
67
    mov  eax,70
Line 55... Line 68...
55
    mov  eax,58
68
;    mov  ebx,file_info
56
    mov  ebx,file_info
69
    mov  ebx,file_info
Line 894... Line 907...
894
   
907
 
895
     mov  eax,0                     ; DRAW WINDOW
908
    mov  eax,0 		    ; DRAW WINDOW
896
    mov  bx,550
909
    mov  bx,550
897
    mov  cx,470
910
    mov  cx,470
898
    mov  edx,[wcolor]
911
    mov  edx,[wcolor]
899
    add  edx,0x03000000
-
 
900
    mov  esi,0x80557799
-
 
901
    mov  edi,0x00557799
-
 
902
    int  0x40
-
 
903
   
-
 
904
    mov  eax,4                     ; WINDOW LABEL
-
 
905
    mov  ebx,8*65536+8
-
 
906
    mov  ecx,0x10ffffff
912
    add  edx,0x13000000
907
    mov  edx,labelt
-
 
908
    mov  esi,labellen-labelt
913
    mov  edi,header
Line 909... Line 914...
909
    int  0x40
914
    int  0x40
Line 910... Line 915...
910
   
915
 
Line 1211... Line 1216...
1211
tcolor          dd  0x000000
1216
tcolor		dd  0x000000
Line 1212... Line 1217...
1212
   
1217
 
1213
sq_black        dd  0x336688 ; 666666
1218
sq_black	dd  0x336688 ; 666666
Line 1214... Line 1219...
1214
sq_white        dd  0xffffff
1219
sq_white	dd  0xffffff
1215
   
1220
 
1216
labelt          db  'Chess Client for Chessclub.com - v0.1'
1221
header		db  appname,version,0
1217
labellen:
1222
 
1218
setipt          db  '               .   .   .'
1223
setipt		db  '               .   .   .'
1219
setiplen:
1224
setiplen:
1220
setportt        db  '     '
1225
setportt	db  '     '