WebSVN – Kolibri OS – Diff – /programs/network/chess/trunk/chess.asm


;
;    CHESS CLIENT for CHESSCLUB.COM (VT)
;
;    Compile with FASM for Menuet
;
 
appname equ 'Chess Client for Chessclub.com '
version equ '0.2'
 
use32
 org	0x0
 db	'MENUET01'    ; header
 dd	0x01	      ; header version
 dd	START	      ; entry point
 dd	I_END	      ; image size
 dd	0x100000      ; required memory
 dd	0x100000      ; esp
 dd	0x0 , 0x0     ; I_Param , I_Path
 
include 'lang.inc'
include '..\..\..\macros.inc'
 
pawn_color:
 
     dd  0x000000
     dd  0x222222
     dd  0x444444
     dd  0xf0f0f0
     dd  0xc0c0c0
     dd  0xa0a0a0
     dd  0xa0a0a0
     dd  0x707070
     dd  0xb0b0b0
     dd  0xc0c0c0
     dd  0xd0d0d0
     dd  0xd8d8d8
     dd  0xe0e0e0
     dd  0xe8e8e8
     dd  0x00ff00
     dd  0xffffff
 
 
 
texts  equ  board_old+80*30
 
text   equ  texts+80*32*4
 
 
START:				; start of execution
 
    mov  esi,chess_bmp
    mov  edi,0x10000+18*3
 
    mov  ebx,0
    mov  ecx,0
 
  newp:
 
    xor  eax,eax
    mov  al,[esi]
    and  al,0xf0
    shr  al,4
    shl  eax,2
    mov  eax,[pawn_color+eax]
    mov  [edi+0],eax
 
    xor  eax,eax
    mov  al,[esi]
    and  al,0x0f
    shl  eax,2
    mov  eax,[pawn_color+eax]
    mov  [edi+3],eax
 
    add  edi,6
    add  esi,1
 
    inc  ebx
    cmp  ebx,23
    jbe  newp
 
    sub  edi,12
 
    mov  ebx,0
 
    inc  ecx
    cmp  ecx,279
    jb	 newp
 
    ; Clear the screen memory
    mov     eax, '    '
    mov     edi,text
    mov     ecx,80*30 /4
    cld
    rep     stosd
 
 
    call draw_window
 
still:
 
    call  check_for_board
 
    call  board_changed
 
    call  draw_board
 
    ; check connection status
    mov  eax,53
    mov  ebx,6
    mov  ecx,[socket]
    mcall
 
    mov     ebx, [socket_status]
    mov     [socket_status], eax
 
    cmp     eax, ebx
    je	    waitev
 
    call    display_status
 
waitev:
    mov  eax,23 		; wait here for event
    mov  ebx,20
    mcall
 
    cmp  eax,1			; redraw request ?
    je	 red
    cmp  eax,2			; key in buffer ?
    je	 key
    cmp  eax,3			; button in buffer ?
    je	 button
 
    ; any data from the socket?
 
    mov     eax, 53
    mov     ebx, 2
    mov     ecx, [socket]
    mcall
    cmp     eax, 0
    jne      read_input
 
    jmp  still
 
 
read_input:
 
    push ecx
    mov     eax, 53
    mov     ebx, 3
    mov     ecx, [socket]
    mcall
    pop  ecx
 
    call    handle_data
 
    push    ecx
    mov     eax, 53
    mov     ebx, 2
    mov     ecx, [socket]
    mcall
    pop     ecx
    cmp     eax, 0
 
 
    jne   read_input
    call draw_text
    jmp  still
 
 
 
check_for_board:
 
    pusha
 
     mov  esi,text-80
   news:
    add  esi,80
    cmp  esi,text+80*10
    je	 board_not_found
    cmp  [esi+12],dword '----'
    je	 cfb1
    jmp  news
   cfb1:
    cmp  [esi+16*80+12],dword '----'
    je	 cfb2
    jmp  news
  cfb2:
    cmp  [esi+2*80+12],dword '+---'
    jne  news
 
    cmp  [esi+4*80+12],dword '+---'
    jne  news
 
  board_found:
 
    mov  edi,chess_board
    mov  ecx,80*18
    cld
    rep  movsb
 
   board_not_found:
 
     popa
 
     ret
 
 
yst	dd  150
textx	equ 10
ysts	equ 410
 
boardx	dd 45
boardy	dd 45
 
boardxs dd 44
boardys dd 44
 
conx	equ 420
cony	equ 118
 
dconx	equ 420
dcony	equ 148
 
statusx equ 420
statusy equ 178
 
 
drsq:
 
     push eax ebx
 
     mov  ecx,ebx
     mov  ebx,eax
 
     mov  eax,ebx
     add  eax,ecx
 
     imul ebx,[boardxs]
     add  ebx,[boardx]
     shl  ebx,16
     imul ecx,[boardys]
     add  ecx,[boardy]
     shl  ecx,16
 
     add  ebx,[boardxs]
     add  ecx,[boardys]
 
     mov  edx,[sq_black]
     test eax,1
     jnz  dbl22
     mov  edx,[sq_white]
   dbl22:
 
     mov  eax,13
     mcall
 
     pop  ebx eax
 
     ret
 
 
 
draw_pawn:
 
;    edi,0  ; white / black
;    esi,0  ; from position 2  , 20 square
;    eax,2  ; board x
;    ebx,0  ; board y
 
     pusha
 
     call drsq
 
     cmp  esi,20
     jne  no_sqd
 
     popa
     ret
 
   no_sqd:
 
     imul eax,[boardxs]
     imul ebx,[boardys]
 
     add  eax,[boardx]
     add  ebx,[boardy]
 
     imul esi,44*45*3
     add  esi,0x10000+18*3
 
     mov  ecx,43
 
   dp0:
 
     pusha
 
     mov  ecx,44
 
   ldp1:
 
     pusha
 
     mov  ecx,ebx
     mov  ebx,eax
 
     mov  edx,[esi]
     and  edx,0xffffff
     mov  eax,1
     cmp  edx,0x00ff00
     je   nowp
     cmp  edi,1
     jne  nobl
     shr  edx,1
     and  edx,0x7f7f7f
   nobl:
     mcall
   nowp:
 
     popa
 
     add  esi,3
     add  eax,1
 
     dec  ecx
     jnz  ldp1
 
     popa
 
     add  ebx,1
     add  esi,3*44
 
     dec  ecx
     jnz  dp0
 
     popa
 
     ret
 
 
board_changed:
 
    pusha
 
    mov  eax,0
    mov  esi,chess_board
  bcl1:
    add  eax,[esi]
    add  esi,4
    cmp  esi,chess_board+19*80
    jb	 bcl1
 
    cmp  eax,[checksum]
    je	 bcl2
    mov  [changed],1
  bcl2:
    mov  [checksum],eax
 
    popa
 
    ret
 
 
 
checksum dd 0
 
changed db 1
 
draw_board:
 
     pusha
 
     cmp  [changed],1
     jne  no_change_in_board
 
     mov  [changed],0
 
     mov    eax,0
     mov    ebx,0
   scan_board:
 
     push   eax ebx
 
     mov    esi,ebx
     imul   esi,2
     imul   esi,80
     add    esi,80
 
     imul   eax,4
     add    eax,10
 
     add    esi,eax
 
     movzx  edx,word [chess_board+esi]
     cmp    dx,[board_old+esi]
     je     empty_slot
 
     mov    ecx,13
   newseek2:
     mov    edi,ecx
     imul   edi,8
     sub    edi,8
     cmp    dx,[edi+nappulat]
     je     foundnappula2
     loop   newseek2
 
     jmp    empty_slot
 
    foundnappula2:
 
     mov   esi,[edi+nappulat+4]
     mov   edi,0
     cmp   dl,'*'
     jne   nnbb
     mov   edi,1
   nnbb:
     mov   eax,[esp+4]
     mov   ebx,[esp]
     call  draw_pawn
 
    empty_slot:
 
     pop  ebx eax
 
     inc  eax
     cmp  eax,8
     jb   scan_board
     mov  eax,0
     inc  ebx
     cmp  ebx,8
     jb   scan_board
 
     mov  esi,chess_board
     mov  edi,board_old
     mov  ecx,80*19
     cld
     rep  movsb
 
     mov  eax,13
     mov  ebx,[boardx]
     sub  ebx,14
     shl  ebx,16
     add  ebx,8
     mov  ecx,[boardy]
     shl  ecx,16
     add  ecx,46*8
     mov  edx,[wcolor]
     mcall
 
     mov  eax,4 		   ; numbers at left
     mov  ebx,[boardx]
     sub  ebx,14
     shl  ebx,16
     add  ebx,[boardy]
     add  ebx,18
     mov  ecx,[tcolor]
     mov  edx,chess_board+80+5
     mov  esi,3
    db1:
     mcall
     add  edx,80*2
     add  ebx,[boardxs]
     cmp  edx,chess_board+80*16
     jb   db1
 
     mov  eax,13
     mov  ebx,[boardx]
     shl  ebx,16
     add  ebx,8*46
     mov  ecx,[boardys]
     imul ecx,8
     add  ecx,[boardy]
     add  ecx,8
     shl  ecx,16
     add  ecx,10
     mov  edx,[wcolor]
     mcall
 
     mov  eax,4 		   ; letters at bottom
     mov  ebx,[boardx]
     add  ebx,3
     shl  ebx,16
     mov  bx,word [boardys]
     imul bx,8
     add  ebx,[boardy]
     add  ebx,8
     mov  ecx,[tcolor]
     mov  edx,chess_board+80*17+8
     mov  esi,4
   db3:
     mcall
     mov  edi,[boardxs]
     shl  edi,16
     add  ebx,edi
     add  edx,4
     cmp  edx,chess_board+80*17+8+4*8
     jb   db3
 
     ; print player times
 
     mov  edi,74
     cmp  [chess_board+80+5],byte '1'
     jne  nowww2
     mov  edi,371
   nowww2:
 
     mov  eax,13
     mov  ebx,(conx)*65536+100
     mov  ecx,edi
     shl  ecx,16
     add  ecx,10
     mov  edx,[wcolor]
     mcall
 
     mov  eax,4
     mov  ebx,(conx)*65536
     add  ebx,edi
     mov  ecx,[tcolor]
     mov  edx,chess_board+80*7+59-1
     mov  esi,20
     mcall
 
     mov  edi,74
     cmp  [chess_board+80+5],byte '1'
     je   nowww
     mov  edi,371
   nowww:
 
     mov  eax,13
     mov  ebx,(conx)*65536+100
     mov  ecx,edi
     shl  ecx,16
     add  ecx,10
     mov  edx,[wcolor]
     mcall
 
     mov  eax,4
     mov  ebx,(conx)*65536
     add  ebx,edi
     mov  ecx,[tcolor]
     mov  edx,chess_board+80*9+59-1
     mov  esi,20
     mcall
 
     ; move #
 
     mov  eax,13
     mov  ebx,conx*65536+120
     mov  ecx,200*65536+10
     mov  edx,[wcolor]
     mcall
 
     mov  eax,4
     mov  ebx,conx*65536
     add  ebx,200
     mov  ecx,[tcolor]
     mov  edx,chess_board+80*1+46
     mov  esi,30
     mcall
 
   no_change_in_board:
 
     popa
 
     ret
 
 
handle_data:
    ; Telnet servers will want to negotiate options about our terminal window
    ; just reject them all.
    ; Telnet options start with the byte 0xff and are 3 bytes long.
 
    mov     al, [telnetstate]
    cmp     al, 0
    je	    state0
    cmp     al, 1
    je	    state1
    cmp     al, 2
    je	    state2
    jmp     hd001
 
state0:
    cmp     bl, 255
    jne     hd001
    mov     al, 1
    mov     [telnetstate], al
    ret
 
state1:
    mov     al, 2
    mov     [telnetstate], al
    ret
 
state2:
    mov     al, 0
    mov     [telnetstate], al
    mov     [telnetrep+2], bl
 
    mov     edx, 3
    mov     eax,53
    mov     ebx,7
    mov     ecx,[socket]
    mov     esi, telnetrep
    mcall
    ret
 
hd001:
    cmp  bl,13				; BEGINNING OF LINE
    jne  nobol
    mov  ecx,[pos]
    add  ecx,1
  boll1:
    sub  ecx,1
    mov  eax,ecx
    xor  edx,edx
    mov  ebx,80
    div  ebx
    cmp  edx,0
    jne  boll1
    mov  [pos],ecx
 
    call check_for_board
 
    jmp  newdata
  nobol:
 
    cmp  bl,10				  ; LINE DOWN
    jne  nolf
   addx1:
    add  [pos],dword 1
    mov  eax,[pos]
    xor  edx,edx
    mov  ecx,80
    div  ecx
    cmp  edx,0
    jnz  addx1
    mov  eax,[pos]
    jmp  cm1
  nolf:
 
     cmp  bl,9				   ; TAB
     jne  notab
    add  [pos],dword 8
    jmp  newdata
  notab:
 
    cmp  bl,8				 ; BACKSPACE
    jne  nobasp
    mov  eax,[pos]
    dec  eax
    mov  [pos],eax
    mov  [eax+text],byte 32
    mov  [eax+text+60*80],byte 0
    jmp  newdata
   nobasp:
 
    cmp  bl,15				 ; CHARACTER
    jbe  newdata
    mov  eax,[pos]
    mov  [eax+text],bl
    mov  eax,[pos]
    add  eax,1
  cm1:
    mov  ebx,[scroll+4]
    imul ebx,80
    cmp  eax,ebx
    jb	 noeaxz
    mov  esi,text+80
    mov  edi,text
    mov  ecx,ebx
    cld
    rep  movsb
    mov  eax,ebx
    sub  eax,80
  noeaxz:
    mov  [pos],eax
  newdata:
    ret
 
 
  red:				; REDRAW WINDOW
    call draw_window
    jmp  still
 
  key:				; KEY
    mov  eax,2			; send to modem
    mcall
 
    mov     ebx, [socket_status]
    cmp     ebx, 4		; connection open?
    jne     still		; no, so ignore key
 
    shr  eax,8
    cmp  eax,178		; ARROW KEYS
    jne  noaup
    mov  al,'A'
    call arrow
    jmp  still
  noaup:
    cmp  eax,177
    jne  noadown
    mov  al,'B'
    call arrow
    jmp  still
  noadown:
    cmp  eax,179
    jne  noaright
    mov  al,'C'
    call arrow
    jmp  still
  noaright:
    cmp  eax,176
    jne  noaleft
    mov  al,'D'
    call arrow
    jmp  still
  noaleft:
  modem_out:
 
    call    to_modem
 
    jmp  still
 
  button:			; BUTTON
    mov  eax,17
    mcall
    cmp  ah,1			; CLOSE PROGRAM
    jne  noclose
 
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    mcall
 
     mov  eax,-1
     mcall
  noclose:
 
    cmp     ah, 4		; connect
    jne     notcon
 
    mov     eax, [socket_status]
    cmp     eax, 4
    je	   still
    call    connect
 
    jmp     still
 
notcon:
    cmp     ah,5		; disconnect
    jne     notdiscon
 
    call    disconnect
    jmp  still
 
 notdiscon:
 
    jmp     still
 
arrow:
 
    push eax
    mov  al,27
    call to_modem
    mov  al,'['
    call to_modem
    pop  eax
    call to_modem
 
    ret
 
 
to_modem:
    pusha
    push    ax
    mov     [tx_buff], al
    mov     edx, 1
    cmp     al, 13
    jne     tm_000
    mov     edx, 2
tm_000:
    mov     eax,53
    mov     ebx,7
    mov     ecx,[socket]
    mov     esi, tx_buff
    mcall
    pop     bx
    mov     al, [echo]
    cmp     al, 0
    je	    tm_001
 
    push    bx
    call    handle_data
    pop     bx
 
    cmp     bl, 13
    jne     tm_002
 
    mov     bl, 10
    call    handle_data
 
tm_002:
    call    draw_text
 
tm_001:
    popa
    ret
 
 
 
disconnect:
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    mcall
    ret
 
 
 
connect:
    pusha
 
 mov	 ecx, 1000  ; local port starting at 1000
 
getlp:
 inc	 ecx
 push ecx
 mov	 eax, 53
 mov	 ebx, 9
 mcall
 pop	 ecx
 cmp	 eax, 0   ; is this local port in use?
 jz  getlp	; yes - so try next
 
    mov     eax,53
    mov     ebx,5
    mov     dl, [ip_address + 3]
    shl     edx, 8
    mov     dl, [ip_address + 2]
    shl     edx, 8
    mov     dl, [ip_address + 1]
    shl     edx, 8
    mov     dl, [ip_address]
    mov     esi, edx
    movzx   edx, word [port]	  ; telnet port id
    mov     edi,1      ; active open
    mcall
    mov     [socket], eax
 
    popa
 
    ret
 
 
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window:
 
    pusha
 
    mov  eax,12
    mov  ebx,1
    mcall
 
    mov  eax,14
    mcall
 
    mov  ebx,eax
    mov  ecx,eax
 
    shr  ebx,16
    and  ebx,0xffff
    and  ecx,0xffff
 
    shr  ebx,1
    shr  ecx,1
 
    sub  ebx,275
    sub  ecx,235
 
    shl  ebx,16
    shl  ecx,16
 
    mov  eax,0 		    ; DRAW WINDOW
    mov  bx,550
    mov  cx,470
    mov  edx,[wcolor]
    add  edx,0x14000000
    mov  edi,title
    mcall
 
    call display_status
 
    mov  eax,8			   ; BUTTON 4: Connect
    mov  ebx,conx*65536+80
    mov  ecx,cony*65536+15
     mov  esi,[wbutton]
     mov  edx,4
    mcall
    mov  eax,4			   ; Button text
    mov  ebx,(conx+4)*65536+cony+4
    mov  ecx,0xffffff
    mov  edx,cont
    mov  esi,conlen-cont
    mcall
 
 
    mov  eax,8			   ; BUTTON 5: disconnect
    mov  ebx,dconx*65536+80
    mov  ecx,dcony*65536+15
    mov  edx,5
     mov  esi,[wbutton]
     mcall
    mov  eax,4			   ; Button text
    mov  ebx,(dconx+4)*65536+dcony+4
    mov  ecx,0x00ffffff
    mov  edx,dist
    mov  esi,dislen-dist
    mcall
 
 
    xor  eax,eax
    mov  edi,text+80*30
    mov  ecx,80*30 /4
    cld
    rep  stosd
 
    call draw_text
 
    mov  [changed],1
 
    mov  edi,board_old
    mov  ecx,80*19
    mov  al,0
    cld
    rep  stosb
 
    mov  eax,4
    mov  ebx,conx*65536+52
    mov  ecx,[tcolor]
    mov  edx,quick_start
    mov  esi,30
 
  prqs:
 
    mcall
    add  ebx,10
    add  edx,30
    cmp  [edx],byte 'x'
    jne  prqs
 
    mov  eax,12
    mov  ebx,2
    mcall
 
    popa
 
    ret
 
 
display_status:
 
    pusha
 
    ; draw status bar
    mov  eax, 13
    mov  ebx, statusx*65536+80
    mov  ecx, statusy*65536 + 16
    mov  edx, [wcolor]
    mcall
 
    mov  esi,contlen-contt	    ; display connected status
    mov  edx, contt
    mov  eax, [socket_status]
    cmp  eax, 4 		 ; 4 is connected
    je	 pcon
    mov  esi,discontlen-discontt
    mov  edx, discontt
  pcon:
    mov  eax,4			   ; status text
    mov  ebx,statusx*65536+statusy+2
     mov  ecx,[tcolor]
     mcall
 
    popa
    ret
 
 
nappulat:
 
    dd '*P  ',5
    dd '*K  ',3
    dd '*Q  ',4
    dd '*R  ',0
    dd '*N  ',1
    dd '*B  ',2
 
    dd '    ',20
 
    dd 'P   ',5
    dd 'K   ',3
    dd 'Q   ',4
    dd 'R   ',0
    dd 'N   ',1
    dd 'B   ',2
 
 
row   dd  0x0
col   dd  0x0
 
 
 
draw_text:
 
    mov  esi,text+80*24
    mov  edi,texts+80*3
 
  dtl1:
 
    cmp  [esi],dword 'logi'
    je	 add_text
    cmp  [esi],dword 'aics'
    je	 add_text
    cmp  [esi],dword 'You '
    je	 add_text
    cmp  [esi],dword 'Your'
    je	 add_text
    cmp  [esi],dword 'Game'
    je	 add_text
    cmp  [esi],dword 'Ille'
    je	 add_text
    cmp  [esi],dword 'No s'
    je	 add_text
 
    sub  esi,80
    cmp  esi,text
    jge  dtl1
 
  dtl2:
 
    mov  eax,13
    mov  ebx,10*65536+532
    mov  ecx,420*65536+40
     mov  edx,[wtcom]
     mcall
 
    mov  eax,4
    mov  ebx,10*65536+420
     mov  ecx,[wtxt]
     mov  edx,texts
    mov  esi,80
 
  dtl3:
 
    mcall
    add  edx,80
    add  ebx,10
    cmp  edx,texts+4*80
    jb	 dtl3
 
    ret
 
  add_text:
 
    pusha
 
    cld
    mov  ecx,80
    rep  movsb
 
    popa
 
 
    sub  esi,80
    sub  edi,80
 
    cmp  edi,texts
    jb	 dtl2
 
    jmp  dtl1
 
 
read_string:
 
    mov  edi,string
    mov  eax,'_'
    mov  ecx,[string_length]
    inc     ecx
    cld
    rep  stosb
    call print_text
 
    mov  edi,string
  f11:
    mov  eax,10
    mcall
    cmp  eax,2
    jne  read_done
    mov  eax,2
    mcall
    shr  eax,8
    cmp  eax,13
    je	 read_done
    cmp  eax,8
    jnz  nobsl
    cmp  edi,string
    jz	 f11
    sub  edi,1
    mov  [edi],byte '_'
    call print_text
    jmp  f11
  nobsl:
    cmp  eax,dword 31
    jbe  f11
    cmp  eax,dword 95
    jb	 keyok
    sub  eax,32
  keyok:
    mov  [edi],al
    call print_text
 
    inc  edi
    mov  esi,string
    add  esi,[string_length]
    cmp  esi,edi
    jnz  f11
 
  read_done:
 
    call print_text
 
    ret
 
 
print_text:
 
    pusha
 
    mov  eax,13
    mov  ebx,[string_x]
    shl  ebx,16
    add  ebx,[string_length]
    imul bx,6
    mov  ecx,[string_y]
    shl  ecx,16
    mov  cx,8
    mov  edx,[wcolor]
    mcall
 
    mov  eax,4
    mov  ebx,[string_x]
    shl  ebx,16
    add  ebx,[string_y]
    mov  ecx,[tcolor]
    mov  edx,string
    mov  esi,[string_length]
    mcall
 
    popa
    ret
 
 
 
 
; DATA AREA
 
telnetrep	db 0xff,0xfc,0x00
telnetstate	db 0
 
string_length  dd    16
string_x       dd    200
string_y       dd    60
 
string	       db    '________________'
 
tx_buff 	db  0, 10
ip_address	db  204,178,125,65
port		dw  5051 ;  0,0
echo		db  1
socket		dd  0x0
socket_status	dd  0x0
pos		dd  80 * 22
scroll		dd  1
		dd  24
 
wbutton 	dd  0x336688
 
wtcom		dd  0x336688 ; 0x666666
wtxt		dd  0xffffff
 
wcolor		dd  0xe0e0e0
tcolor		dd  0x000000
 
sq_black	dd  0x336688 ; 666666
sq_white	dd  0xffffff
 
title		db  appname,version,0
 
setipt		db  '               .   .   .'
setiplen:
setportt	db  '     '
setportlen:
cont		db  'Connect'
conlen:
dist		db  'Disconnect'
dislen:
contt		db  'Connected'
contlen:
discontt	db  'Disconnected'
discontlen:
echot	     db  'Echo On'
echolen:
echoot	      db  'Echo Off'
echoolen:
 
quick_start:
 
    db	'( OPPONENT )                  '
 
   times 16  db  '                             1'
 
    db	'Quick start:                  '
    db	'                              '
    db	'1 Connect                     '
    db	'2 login: "guest"              '
    db	'3 aics% "seek 10 0"           '
    db	'  (for a player)              '
    db	'  (wait)                      '
    db	'4 Play eg. "e7e5"             '
    db	'  or  "d2d4"                  '
    db	'5 aics% "resign"              '
    db	'  (quit game)                 '
    db	'6 Disconnect                  '
 
  times 5  db  '                              '
 
    db	'( YOU )                       '
 
    db	'x'
 
 
chess_board:
 
    times  80	 db 0
 
 db '     8    *R  *N  *B  *Q  *K  *B  *N  *R'
 db '                                        '
 
     times  80	db 0
 
 db '     7    *P  *P  *P  *P  *P  *P  *P  *P'
 db '                                        '
 
     times  80	db 0
 
 db '     6                                  '
 db '                                        '
 
     times  80	db 0
 
 db '     5                                  '
 db '                                        '
 
     times  80	db 0
 
 db '     4                                  '
 db '                                        '
 
     times  80	db 0
 
 db '     3                                  '
 db '                                        '
 
     times  80	db 0
 
 db '     2    P   P   P   P   P   P   P   P '
 db '                                        '
 
    times  80	   db 0
 
 db '     1    R   N   B   Q   K   B   N   R '
 db '                                        '
 
    times  80	   db 0
 
 db '          a   b   c   d   e   f   g   h '
 db '                                        '
 
 
    times  80*20 db 0
 
chess_bmp:
        file    'chess.bmp':22*3+4+24*2
 
board_old:
 
 
I_END:

Rev 532	Rev 551
1	;	1	;
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	;
6		6
7	appname equ 'Chess Client for Chessclub.com '	7	appname equ 'Chess Client for Chessclub.com '
8	version equ '0.2'	8	version equ '0.2'
9		9
10	use32	10	use32
11	org 0x0	11	org 0x0
12	db 'MENUET01' ; header	12	db 'MENUET01' ; header
13	dd 0x01 ; header version	13	dd 0x01 ; header version
14	dd START ; entry point	14	dd START ; entry point
15	dd I_END ; image size	15	dd I_END ; image size
16	dd 0x100000 ; required memory	16	dd 0x100000 ; required memory
17	dd 0x100000 ; esp	17	dd 0x100000 ; esp
18	dd 0x0 , 0x0 ; I_Param , I_Path	18	dd 0x0 , 0x0 ; I_Param , I_Path
19		19
20	include 'lang.inc'	20	include 'lang.inc'
21	include '..\..\..\macros.inc'	21	include '..\..\..\macros.inc'
22		22
23	pawn_color:	23	pawn_color:
24		24
25	dd 0x000000	25	dd 0x000000
26	dd 0x222222	26	dd 0x222222
27	dd 0x444444	27	dd 0x444444
28	dd 0xf0f0f0	28	dd 0xf0f0f0
29	dd 0xc0c0c0	29	dd 0xc0c0c0
30	dd 0xa0a0a0	30	dd 0xa0a0a0
31	dd 0xa0a0a0	31	dd 0xa0a0a0
32	dd 0x707070	32	dd 0x707070
33	dd 0xb0b0b0	33	dd 0xb0b0b0
34	dd 0xc0c0c0	34	dd 0xc0c0c0
35	dd 0xd0d0d0	35	dd 0xd0d0d0
36	dd 0xd8d8d8	36	dd 0xd8d8d8
37	dd 0xe0e0e0	37	dd 0xe0e0e0
38	dd 0xe8e8e8	38	dd 0xe8e8e8
39	dd 0x00ff00	39	dd 0x00ff00
40	dd 0xffffff	40	dd 0xffffff
41		41
42		42
43		43
44	texts equ board_old+80*30	44	texts equ board_old+80*30
45		45
46	text equ texts+80324	46	text equ texts+80324
47		47
48		48
49	START: ; start of execution	49	START: ; start of execution
50		50
51	mov esi,chess_bmp	51	mov esi,chess_bmp
52	mov edi,0x10000+18*3	52	mov edi,0x10000+18*3
53		53
54	mov ebx,0	54	mov ebx,0
55	mov ecx,0	55	mov ecx,0
56		56
57	newp:	57	newp:
58		58
59	xor eax,eax	59	xor eax,eax
60	mov al,[esi]	60	mov al,[esi]
61	and al,0xf0	61	and al,0xf0
62	shr al,4	62	shr al,4
63	shl eax,2	63	shl eax,2
64	mov eax,[pawn_color+eax]	64	mov eax,[pawn_color+eax]
65	mov [edi+0],eax	65	mov [edi+0],eax
66		66
67	xor eax,eax	67	xor eax,eax
68	mov al,[esi]	68	mov al,[esi]
69	and al,0x0f	69	and al,0x0f
70	shl eax,2	70	shl eax,2
71	mov eax,[pawn_color+eax]	71	mov eax,[pawn_color+eax]
72	mov [edi+3],eax	72	mov [edi+3],eax
73		73
74	add edi,6	74	add edi,6
75	add esi,1	75	add esi,1
76		76
77	inc ebx	77	inc ebx
78	cmp ebx,23	78	cmp ebx,23
79	jbe newp	79	jbe newp
80		80
81	sub edi,12	81	sub edi,12
82		82
83	mov ebx,0	83	mov ebx,0
84		84
85	inc ecx	85	inc ecx
86	cmp ecx,279	86	cmp ecx,279
87	jb newp	87	jb newp
88		88
89	; Clear the screen memory	89	; Clear the screen memory
90	mov eax, ' '	90	mov eax, ' '
91	mov edi,text	91	mov edi,text
92	mov ecx,80*30 /4	92	mov ecx,80*30 /4
93	cld	93	cld
94	rep stosd	94	rep stosd
95		95
96		96
97	call draw_window	97	call draw_window
98		98
99	still:	99	still:
100		100
101	call check_for_board	101	call check_for_board
102		102
103	call board_changed	103	call board_changed
104		104
105	call draw_board	105	call draw_board
106		106
107	; check connection status	107	; check connection status
108	mov eax,53	108	mov eax,53
109	mov ebx,6	109	mov ebx,6
110	mov ecx,[socket]	110	mov ecx,[socket]
111	mcall	111	mcall
112		112
113	mov ebx, [socket_status]	113	mov ebx, [socket_status]
114	mov [socket_status], eax	114	mov [socket_status], eax
115		115
116	cmp eax, ebx	116	cmp eax, ebx
117	je waitev	117	je waitev
118		118
119	call display_status	119	call display_status
120		120
121	waitev:	121	waitev:
122	mov eax,23 ; wait here for event	122	mov eax,23 ; wait here for event
123	mov ebx,20	123	mov ebx,20
124	mcall	124	mcall
125		125
126	cmp eax,1 ; redraw request ?	126	cmp eax,1 ; redraw request ?
127	je red	127	je red
128	cmp eax,2 ; key in buffer ?	128	cmp eax,2 ; key in buffer ?
129	je key	129	je key
130	cmp eax,3 ; button in buffer ?	130	cmp eax,3 ; button in buffer ?
131	je button	131	je button
132		132
133	; any data from the socket?	133	; any data from the socket?
134		134
135	mov eax, 53	135	mov eax, 53
136	mov ebx, 2	136	mov ebx, 2
137	mov ecx, [socket]	137	mov ecx, [socket]
138	mcall	138	mcall
139	cmp eax, 0	139	cmp eax, 0
140	jne read_input	140	jne read_input
141		141
142	jmp still	142	jmp still
143		143
144		144
145	read_input:	145	read_input:
146		146
147	push ecx	147	push ecx
148	mov eax, 53	148	mov eax, 53
149	mov ebx, 3	149	mov ebx, 3
150	mov ecx, [socket]	150	mov ecx, [socket]
151	mcall	151	mcall
152	pop ecx	152	pop ecx
153		153
154	call handle_data	154	call handle_data
155		155
156	push ecx	156	push ecx
157	mov eax, 53	157	mov eax, 53
158	mov ebx, 2	158	mov ebx, 2
159	mov ecx, [socket]	159	mov ecx, [socket]
160	mcall	160	mcall
161	pop ecx	161	pop ecx
162	cmp eax, 0	162	cmp eax, 0
163		163
164		164
165	jne read_input	165	jne read_input
166	call draw_text	166	call draw_text
167	jmp still	167	jmp still
168		168
169		169
170		170
171	check_for_board:	171	check_for_board:
172		172
173	pusha	173	pusha
174		174
175	mov esi,text-80	175	mov esi,text-80
176	news:	176	news:
177	add esi,80	177	add esi,80
178	cmp esi,text+80*10	178	cmp esi,text+80*10
179	je board_not_found	179	je board_not_found
180	cmp [esi+12],dword '----'	180	cmp [esi+12],dword '----'
181	je cfb1	181	je cfb1
182	jmp news	182	jmp news
183	cfb1:	183	cfb1:
184	cmp [esi+16*80+12],dword '----'	184	cmp [esi+16*80+12],dword '----'
185	je cfb2	185	je cfb2
186	jmp news	186	jmp news
187	cfb2:	187	cfb2:
188	cmp [esi+2*80+12],dword '+---'	188	cmp [esi+2*80+12],dword '+---'
189	jne news	189	jne news
190		190
191	cmp [esi+4*80+12],dword '+---'	191	cmp [esi+4*80+12],dword '+---'
192	jne news	192	jne news
193		193
194	board_found:	194	board_found:
195		195
196	mov edi,chess_board	196	mov edi,chess_board
197	mov ecx,80*18	197	mov ecx,80*18
198	cld	198	cld
199	rep movsb	199	rep movsb
200		200
201	board_not_found:	201	board_not_found:
202		202
203	popa	203	popa
204		204
205	ret	205	ret
206		206
207		207
208	yst dd 150	208	yst dd 150
209	textx equ 10	209	textx equ 10
210	ysts equ 410	210	ysts equ 410
211		211
212	boardx dd 45	212	boardx dd 45
213	boardy dd 45	213	boardy dd 45
214		214
215	boardxs dd 44	215	boardxs dd 44
216	boardys dd 44	216	boardys dd 44
217		217
218	conx equ 420	218	conx equ 420
219	cony equ 118	219	cony equ 118
220		220
221	dconx equ 420	221	dconx equ 420
222	dcony equ 148	222	dcony equ 148
223		223
224	statusx equ 420	224	statusx equ 420
225	statusy equ 178	225	statusy equ 178
226		226
227		227
228	drsq:	228	drsq:
229		229
230	push eax ebx	230	push eax ebx
231		231
232	mov ecx,ebx	232	mov ecx,ebx
233	mov ebx,eax	233	mov ebx,eax
234		234
235	mov eax,ebx	235	mov eax,ebx
236	add eax,ecx	236	add eax,ecx
237		237
238	imul ebx,[boardxs]	238	imul ebx,[boardxs]
239	add ebx,[boardx]	239	add ebx,[boardx]
240	shl ebx,16	240	shl ebx,16
241	imul ecx,[boardys]	241	imul ecx,[boardys]
242	add ecx,[boardy]	242	add ecx,[boardy]
243	shl ecx,16	243	shl ecx,16
244		244
245	add ebx,[boardxs]	245	add ebx,[boardxs]
246	add ecx,[boardys]	246	add ecx,[boardys]
247		247
248	mov edx,[sq_black]	248	mov edx,[sq_black]
249	test eax,1	249	test eax,1
250	jnz dbl22	250	jnz dbl22
251	mov edx,[sq_white]	251	mov edx,[sq_white]
252	dbl22:	252	dbl22:
253		253
254	mov eax,13	254	mov eax,13
255	mcall	255	mcall
256		256
257	pop ebx eax	257	pop ebx eax
258		258
259	ret	259	ret
260		260
261		261
262		262
263	draw_pawn:	263	draw_pawn:
264		264
265	; edi,0 ; white / black	265	; edi,0 ; white / black
266	; esi,0 ; from position 2 , 20 square	266	; esi,0 ; from position 2 , 20 square
267	; eax,2 ; board x	267	; eax,2 ; board x
268	; ebx,0 ; board y	268	; ebx,0 ; board y
269		269
270	pusha	270	pusha
271		271
272	call drsq	272	call drsq
273		273
274	cmp esi,20	274	cmp esi,20
275	jne no_sqd	275	jne no_sqd
276		276
277	popa	277	popa
278	ret	278	ret
279		279
280	no_sqd:	280	no_sqd:
281		281
282	imul eax,[boardxs]	282	imul eax,[boardxs]
283	imul ebx,[boardys]	283	imul ebx,[boardys]
284		284
285	add eax,[boardx]	285	add eax,[boardx]
286	add ebx,[boardy]	286	add ebx,[boardy]
287		287
288	imul esi,44453	288	imul esi,44453
289	add esi,0x10000+18*3	289	add esi,0x10000+18*3
290		290
291	mov ecx,43	291	mov ecx,43
292		292
293	dp0:	293	dp0:
294		294
295	pusha	295	pusha
296		296
297	mov ecx,44	297	mov ecx,44
298		298
299	ldp1:	299	ldp1:
300		300
301	pusha	301	pusha
302		302
303	mov ecx,ebx	303	mov ecx,ebx
304	mov ebx,eax	304	mov ebx,eax
305		305
306	mov edx,[esi]	306	mov edx,[esi]
307	and edx,0xffffff	307	and edx,0xffffff
308	mov eax,1	308	mov eax,1
309	cmp edx,0x00ff00	309	cmp edx,0x00ff00
310	je nowp	310	je nowp
311	cmp edi,1	311	cmp edi,1
312	jne nobl	312	jne nobl
313	shr edx,1	313	shr edx,1
314	and edx,0x7f7f7f	314	and edx,0x7f7f7f
315	nobl:	315	nobl:
316	mcall	316	mcall
317	nowp:	317	nowp:
318		318
319	popa	319	popa
320		320
321	add esi,3	321	add esi,3
322	add eax,1	322	add eax,1
323		323
324	dec ecx	324	dec ecx
325	jnz ldp1	325	jnz ldp1
326		326
327	popa	327	popa
328		328
329	add ebx,1	329	add ebx,1
330	add esi,3*44	330	add esi,3*44
331		331
332	dec ecx	332	dec ecx
333	jnz dp0	333	jnz dp0
334		334
335	popa	335	popa
336		336
337	ret	337	ret
338		338
339		339
340	board_changed:	340	board_changed:
341		341
342	pusha	342	pusha
343		343
344	mov eax,0	344	mov eax,0
345	mov esi,chess_board	345	mov esi,chess_board
346	bcl1:	346	bcl1:
347	add eax,[esi]	347	add eax,[esi]
348	add esi,4	348	add esi,4
349	cmp esi,chess_board+19*80	349	cmp esi,chess_board+19*80
350	jb bcl1	350	jb bcl1
351		351
352	cmp eax,[checksum]	352	cmp eax,[checksum]
353	je bcl2	353	je bcl2
354	mov [changed],1	354	mov [changed],1
355	bcl2:	355	bcl2:
356	mov [checksum],eax	356	mov [checksum],eax
357		357
358	popa	358	popa
359		359
360	ret	360	ret
361		361
362		362
363		363
364	checksum dd 0	364	checksum dd 0
365		365
366	changed db 1	366	changed db 1
367		367
368	draw_board:	368	draw_board:
369		369
370	pusha	370	pusha
371		371
372	cmp [changed],1	372	cmp [changed],1
373	jne no_change_in_board	373	jne no_change_in_board
374		374
375	mov [changed],0	375	mov [changed],0
376		376
377	mov eax,0	377	mov eax,0
378	mov ebx,0	378	mov ebx,0
379	scan_board:	379	scan_board:
380		380
381	push eax ebx	381	push eax ebx
382		382
383	mov esi,ebx	383	mov esi,ebx
384	imul esi,2	384	imul esi,2
385	imul esi,80	385	imul esi,80
386	add esi,80	386	add esi,80
387		387
388	imul eax,4	388	imul eax,4
389	add eax,10	389	add eax,10
390		390
391	add esi,eax	391	add esi,eax
392		392
393	movzx edx,word [chess_board+esi]	393	movzx edx,word [chess_board+esi]
394	cmp dx,[board_old+esi]	394	cmp dx,[board_old+esi]
395	je empty_slot	395	je empty_slot
396		396
397	mov ecx,13	397	mov ecx,13
398	newseek2:	398	newseek2:
399	mov edi,ecx	399	mov edi,ecx
400	imul edi,8	400	imul edi,8
401	sub edi,8	401	sub edi,8
402	cmp dx,[edi+nappulat]	402	cmp dx,[edi+nappulat]
403	je foundnappula2	403	je foundnappula2
404	loop newseek2	404	loop newseek2
405		405
406	jmp empty_slot	406	jmp empty_slot
407		407
408	foundnappula2:	408	foundnappula2:
409		409
410	mov esi,[edi+nappulat+4]	410	mov esi,[edi+nappulat+4]
411	mov edi,0	411	mov edi,0
412	cmp dl,'*'	412	cmp dl,'*'
413	jne nnbb	413	jne nnbb
414	mov edi,1	414	mov edi,1
415	nnbb:	415	nnbb:
416	mov eax,[esp+4]	416	mov eax,[esp+4]
417	mov ebx,[esp]	417	mov ebx,[esp]
418	call draw_pawn	418	call draw_pawn
419		419
420	empty_slot:	420	empty_slot:
421		421
422	pop ebx eax	422	pop ebx eax
423		423
424	inc eax	424	inc eax
425	cmp eax,8	425	cmp eax,8
426	jb scan_board	426	jb scan_board
427	mov eax,0	427	mov eax,0
428	inc ebx	428	inc ebx
429	cmp ebx,8	429	cmp ebx,8
430	jb scan_board	430	jb scan_board
431		431
432	mov esi,chess_board	432	mov esi,chess_board
433	mov edi,board_old	433	mov edi,board_old
434	mov ecx,80*19	434	mov ecx,80*19
435	cld	435	cld
436	rep movsb	436	rep movsb
437		437
438	mov eax,13	438	mov eax,13
439	mov ebx,[boardx]	439	mov ebx,[boardx]
440	sub ebx,14	440	sub ebx,14
441	shl ebx,16	441	shl ebx,16
442	add ebx,8	442	add ebx,8
443	mov ecx,[boardy]	443	mov ecx,[boardy]
444	shl ecx,16	444	shl ecx,16
445	add ecx,46*8	445	add ecx,46*8
446	mov edx,[wcolor]	446	mov edx,[wcolor]
447	mcall	447	mcall
448		448
449	mov eax,4 ; numbers at left	449	mov eax,4 ; numbers at left
450	mov ebx,[boardx]	450	mov ebx,[boardx]
451	sub ebx,14	451	sub ebx,14
452	shl ebx,16	452	shl ebx,16
453	add ebx,[boardy]	453	add ebx,[boardy]
454	add ebx,18	454	add ebx,18
455	mov ecx,[tcolor]	455	mov ecx,[tcolor]
456	mov edx,chess_board+80+5	456	mov edx,chess_board+80+5
457	mov esi,3	457	mov esi,3
458	db1:	458	db1:
459	mcall	459	mcall
460	add edx,80*2	460	add edx,80*2
461	add ebx,[boardxs]	461	add ebx,[boardxs]
462	cmp edx,chess_board+80*16	462	cmp edx,chess_board+80*16
463	jb db1	463	jb db1
464		464
465	mov eax,13	465	mov eax,13
466	mov ebx,[boardx]	466	mov ebx,[boardx]
467	shl ebx,16	467	shl ebx,16
468	add ebx,8*46	468	add ebx,8*46
469	mov ecx,[boardys]	469	mov ecx,[boardys]
470	imul ecx,8	470	imul ecx,8
471	add ecx,[boardy]	471	add ecx,[boardy]
472	add ecx,8	472	add ecx,8
473	shl ecx,16	473	shl ecx,16
474	add ecx,10	474	add ecx,10
475	mov edx,[wcolor]	475	mov edx,[wcolor]
476	mcall	476	mcall
477		477
478	mov eax,4 ; letters at bottom	478	mov eax,4 ; letters at bottom
479	mov ebx,[boardx]	479	mov ebx,[boardx]
480	add ebx,3	480	add ebx,3
481	shl ebx,16	481	shl ebx,16
482	mov bx,word [boardys]	482	mov bx,word [boardys]
483	imul bx,8	483	imul bx,8
484	add ebx,[boardy]	484	add ebx,[boardy]
485	add ebx,8	485	add ebx,8
486	mov ecx,[tcolor]	486	mov ecx,[tcolor]
487	mov edx,chess_board+80*17+8	487	mov edx,chess_board+80*17+8
488	mov esi,4	488	mov esi,4
489	db3:	489	db3:
490	mcall	490	mcall
491	mov edi,[boardxs]	491	mov edi,[boardxs]
492	shl edi,16	492	shl edi,16
493	add ebx,edi	493	add ebx,edi
494	add edx,4	494	add edx,4
495	cmp edx,chess_board+8017+8+48	495	cmp edx,chess_board+8017+8+48
496	jb db3	496	jb db3
497		497
498	; print player times	498	; print player times
499		499
500	mov edi,74	500	mov edi,74

Subversion Repositories Kolibri OS

(root)/programs/network/chess/trunk/chess.asm – Rev 532 → 551