forked from KolibriOS/kolibrios
Added sources of the following games: bnc, checkers, fara, FindNumbers, gomoku, reversi, rforces, sq_game, sudoku, whowtbam, xonix.
git-svn-id: svn://kolibrios.org@1805 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Yogev Ezra
205
programs/games/bnc/trunk/code.inc
Normal file
205
programs/games/bnc/trunk/code.inc
Normal file
@@ -0,0 +1,205 @@
|
||||
macro CODE_SECTION
|
||||
|
||||
{
|
||||
;+-----------------------------------+ Uses:eax,ebx,edx
|
||||
;|-------Random Number Generator-----|---------------------------|
|
||||
;+-----------------------------------+
|
||||
rndseed: ;
|
||||
mov eax,26 ; func 26 subfunc 9
|
||||
mov ebx,9 ;
|
||||
int 0x40 ;
|
||||
mov dword[seed],eax ; system time from boot
|
||||
random9: ; RND=[0..9]
|
||||
mov eax,3 ;
|
||||
int 0x40 ; get current time
|
||||
shr eax,16 ; seconds in al
|
||||
add eax,dword[seed] ;
|
||||
imul eax,0x15a4e35 ; random formula rv=rv*0x15a4e35+1
|
||||
inc eax ; return (rv&0x7FFFFFFF)%N
|
||||
mov dword[seed],eax ;
|
||||
and eax,0x07FFFFFFF ;
|
||||
mov ebx,10 ; N=10
|
||||
xor edx,edx ;
|
||||
div bx ; eax/ebx= int[result]+rest
|
||||
add dl,'0' ; DL='0'..'9' - rest
|
||||
ret ;
|
||||
;=================================================
|
||||
rnew: ; New Random Secret Number
|
||||
xor esi,esi ;----------------------------
|
||||
LoopBegin lb1,0 ;
|
||||
rn: call random9 ; DL=RND('0'..'9')
|
||||
xor edi,edi ;
|
||||
lb2: cmp byte[nA+edi],dl ;
|
||||
je rn ;
|
||||
inc edi ;
|
||||
cmp edi,4 ; 4 digit
|
||||
jne lb2 ;
|
||||
mov byte[nA+esi],dl ;nA - secret number without double digits
|
||||
inc esi ;nA - 4 bytes of non-repeated digits '0'..'9'
|
||||
LoopEnd lb1,4 ;
|
||||
ret ;
|
||||
;-------------------------------------
|
||||
numStr: inc dword[turn] ; turn++
|
||||
mov ebx,dword[turn] ;
|
||||
push ebx ;
|
||||
pop ecx ; ebx=ecx=turn
|
||||
add cl,'0' ;
|
||||
add ch,':' ;
|
||||
dec ebx ; -1
|
||||
shl ebx,4 ; *16
|
||||
mov word[tStr+ebx],cx; begin string by turn number +':'
|
||||
ret
|
||||
;-------------------------------------
|
||||
paint_list:
|
||||
LoopBegin lbList,0
|
||||
mov ebx,ecx
|
||||
shl ebx,4 ; *16
|
||||
mov edx,tStr
|
||||
add edx,ebx
|
||||
add ebx,25*65536 ;x
|
||||
add ebx,45 ;y
|
||||
mov eax,4 ;func 4
|
||||
mov ecx,cTxt ;color
|
||||
mov esi,16 ;line length
|
||||
int 0x40
|
||||
LoopEnd lbList,9 ;
|
||||
ret
|
||||
;-INPUT------------------------------------ KEYBOARD INPUT -----------
|
||||
input: ;ah - key code
|
||||
mov byte[char],ah ;char<-ah
|
||||
cmp ah,13 ;13- enter
|
||||
jne @f
|
||||
jmp _enter
|
||||
@@:
|
||||
cmp ah,8 ;8 - del backSpace <=|
|
||||
jne @f
|
||||
jmp _back
|
||||
@@:
|
||||
|
||||
cmp ah,'0' ; '0'..'9'
|
||||
jae @f
|
||||
ret
|
||||
@@: cmp ah,'9'
|
||||
jbe @f
|
||||
ret ; if not - return subroutine
|
||||
@@:
|
||||
;------------------------pressed:0123456789-----------
|
||||
cmp byte[posn],4
|
||||
je @f ;full line - do nothing
|
||||
call ptrStr ;esi - pointer at tStr
|
||||
xor eax,eax
|
||||
add al,byte[posn]
|
||||
add esi,eax ;+posn
|
||||
mov al,byte[char]
|
||||
mov byte[esi+3],al ;esi+3 = place 4 digits
|
||||
inc byte[posn] ;next digit
|
||||
@@: ret
|
||||
;------------------------
|
||||
_enter:
|
||||
cmp byte[posn],4 ; Enter Turn
|
||||
je @f
|
||||
ret
|
||||
@@:
|
||||
call check ; check input for difference
|
||||
cmp eax,0
|
||||
je @f
|
||||
ret
|
||||
@@:
|
||||
call bcalculate ; calc b+c
|
||||
call numStr ; 'N:' next string number
|
||||
mov byte[posn],0 ; new line
|
||||
ret
|
||||
;------------------------
|
||||
_back: cmp byte[posn],0 ; empty input - do nothing
|
||||
je @f
|
||||
dec byte[posn]
|
||||
call ptrStr ;esi = pointer at tStr
|
||||
xor eax,eax
|
||||
add al,byte[posn] ; byte of esi +posn
|
||||
add esi,eax ;+posn
|
||||
mov byte[esi+3],' '
|
||||
@@: ret
|
||||
;===========================================--end - input -
|
||||
ptrStr: ; esi=tStr+turn*16
|
||||
mov esi,dword[turn]
|
||||
shl esi,4
|
||||
add esi,tStr
|
||||
ret
|
||||
;------------------------
|
||||
clears: mov ecx,160
|
||||
clr1: mov byte[tStr+ecx],0;' '
|
||||
loop clr1
|
||||
mov byte[tStr],0;' '
|
||||
mov byte[posn],0
|
||||
mov dword[turn],0
|
||||
ret
|
||||
;-------------------------CHECK---Input--[1234]-------
|
||||
check: ; check for similar digits (equal)
|
||||
call ptrStr ; esi ...pointer
|
||||
;mov esi,dword[turn]
|
||||
;shl esi,4
|
||||
;add esi,tStr
|
||||
xor eax,eax
|
||||
xor edi,edi ; edi - counter 0..3
|
||||
xor ecx,ecx
|
||||
lb4ch: mov dl,byte[esi+ecx+3]
|
||||
cmp byte[esi+edi+3],dl
|
||||
jne @f
|
||||
inc eax ; =equivalent +1
|
||||
@@:
|
||||
inc edi ;
|
||||
cmp edi,4 ; cycle ,4 digits
|
||||
jne lb4ch ;
|
||||
xor edi,edi ; edi - counter 0..3
|
||||
|
||||
inc ecx
|
||||
cmp ecx,4
|
||||
jne lb4ch
|
||||
|
||||
sub eax,4 ; must be 4, if more - doubles present
|
||||
ret
|
||||
|
||||
bcalculate: ;------------------; calc b:+c:
|
||||
call ptrStr ; esi ...
|
||||
add esi,3
|
||||
;inc esi
|
||||
;inc esi ;+3
|
||||
;inc esi ; ...- pointer to Line
|
||||
LoopBegin lbBu1,0 ;bull count cycle ecx=0..3
|
||||
mov bl,byte[nA+ecx]
|
||||
mov dl,byte[esi+ecx]
|
||||
cmp bl,dl
|
||||
jne @f
|
||||
inc byte[nBul]
|
||||
@@:
|
||||
LoopEnd lbBu1,4
|
||||
|
||||
mov ax,'B:' ; output Bulls
|
||||
mov word[esi+6],ax
|
||||
mov al,byte[nBul]
|
||||
add al,'0'
|
||||
mov byte[esi+8],al
|
||||
|
||||
LoopBegin lbCo2,0 ;Cows count cycle ecx=0..3
|
||||
mov dl,byte[esi+ecx]
|
||||
xor edi,edi ; cycle edi=0..3
|
||||
lb3: mov bl,byte[nA+edi]
|
||||
cmp bl,dl
|
||||
jne @f
|
||||
inc byte[nCow] ;Cows+Bulls
|
||||
@@: inc edi ;
|
||||
cmp edi,4 ;
|
||||
jne lb3 ;
|
||||
LoopEnd lbCo2,4 ;endcycle ecx
|
||||
|
||||
mov ax,'C:' ; output Cows
|
||||
mov word[esi+10],ax
|
||||
mov al,byte[nCow]
|
||||
sub al,byte[nBul]
|
||||
add al,'0'
|
||||
mov byte[esi+12],al
|
||||
mov dword[nBul],0 ;nCow=posn=char=0
|
||||
ret
|
||||
;--------------------------------------
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user