Subversion Repositories Kolibri OS

Rev

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

Rev 1728 Rev 1756
Line 125... Line 125...
125 
draw:           movzx edx,byte [current_block_color]
 125 
draw:           movzx edx,byte [current_block_color]
126 
                call  draw_block
 126 
                call  draw_block
127 
                mov   eax,5
 127 
                mov   eax,5
128 
                movzx ebx,byte [delay]
 128 
                movzx ebx,byte [delay]
129 
                int   0x40
 129 
                int   0x40
- 
 
 130 
                mov   [force_down],	1
130 
                jmp   still
 131 
                jmp   still
Line 131... Line 132...
131 
 
 132 
 
132 
block_crash:    dec dword [current_block_y]
 133 
block_crash:    dec dword [current_block_y]
133 
                movzx edx,byte [current_block_color]
 134 
                movzx edx,byte [current_block_color]
Line 205... Line 206...
205 
                mov [current_block_pointer],esi
 206 
                mov [current_block_pointer],esi
206 
adr50:          jmp scendi
 207 
adr50:          jmp scendi
Line 207... Line 208...
207 
 
 208 
 
208 
adr51:          cmp ah,DOWN_KEY
 209 
adr51:          cmp ah,DOWN_KEY
- 
 
 210 
                jne adr61
- 
 
 211 
                cmp [force_down], 1
209 
                jne adr61
 212 
                 jne scendi
210 
                mov byte [delay],5  ;!!! 2
 213 
                mov byte [delay],5  ;!!! 2
Line 211... Line 214...
211 
adr52:          jmp scendi
 214 
adr52:          jmp scendi
212 
 
 215 
 
- 
 
 216 
adr61:          cmp ah,' '
- 
 
 217 
                jne adr62
213 
adr61:          cmp ah,' '
 218 
                cmp [force_down], 1
214 
                jne adr62
 219 
                 jne scendi
Line 215... Line 220...
215 
                mov byte [delay],5  ;!!! 2
 220 
                mov byte [delay],5  ;!!! 2
Line 367... Line 372...
367 
;NEW BLOCK
 372 
;NEW BLOCK
368 
;-------------------------------------------------------------
 373 
;-------------------------------------------------------------
369 
new_block:      mov dword [current_block_y],1
 374 
new_block:      mov dword [current_block_y],1
370 
                mov dword [current_block_x],7
 375 
                mov dword [current_block_x],7
Line -... Line 376...
- 
 
 376 
 
- 
 
 377 
				mov   [force_down],	0				; allow fast falling _after_ first game step
371 
 
 378 
 
372 
                call random
 379 
                call random
373 
                and al,7
 380 
                and al,7
374 
                setz ah
 381 
                setz ah
375 
                add al,ah
 382 
                add al,ah
Line 859... Line 866...
859 
current_block_color:    db 0
 866 
current_block_color:    db 0
860 
number_str:             db 0,0,0,0,0,0,0,0,0
 867 
number_str:             db 0,0,0,0,0,0,0,0,0
861 
end_number_str:
 868 
end_number_str:
862 
size_of_number_str      dd 9
 869 
size_of_number_str      dd 9
863 
delay:                  db 40
 870 
delay:                  db 40
- 
 
 871 
force_down				dd 1
864 
sc     system_colors
 872 
sc     system_colors
865 
table_tetris:
 873 
table_tetris:
Line 866... Line 874...
866 
 
 874