Subversion Repositories Kolibri OS

Rev

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

Rev 685 Rev 686
Line 14... Line 14...
14
; Thanks to Ville, the author of this wonderful OS !
14
; Thanks to Ville, the author of this wonderful OS !
15
; Join with us to code !
15
; Join with us to code !
16
;
16
;
17
;
17
;
18
; Changelog:
18
; Changelog:
-
 
19
; 30.12.2007 - cleaning keybuffer before reading an key - Gluk
19
; 09.11.2005 - fix for work under MeosDebug & better random - Andrey Halyavin
20
; 09.11.2005 - fix for work under MeosDebug & better random - Andrey Halyavin
20
; 23.09.2005 - fixed bug, when 011111111111111-like sequence interpreted
21
; 23.09.2005 - fixed bug, when 011111111111111-like sequence interpreted
21
;              as _11111111111111 in check_full_line - Sergey Kuzmin aka Wildwest
22
;              as _11111111111111 in check_full_line - Sergey Kuzmin aka Wildwest
22
; 18.09.2005 - added 'Pause' button and made appropriate code and interface redesign
23
; 18.09.2005 - added 'Pause' button and made appropriate code and interface redesign
23
;              BTW, you can MOVE and ROTATE block during Pause ;)  - Sergey Kuzmin aka Wildwest
24
;              BTW, you can MOVE and ROTATE block during Pause ;)  - Sergey Kuzmin aka Wildwest
Line 165... Line 166...
165
                mov eax,5
166
                mov eax,5
166
                movzx ebx,byte [delay]
167
                movzx ebx,byte [delay]
167
                int 0x40
168
                int 0x40
168
                jmp still
169
                jmp still
Line 169... Line 170...
169
 
170
 
170
key:            mov  eax,2
171
key:            mov  eax,2 ; Gluk
171
                int  0x40
172
                int  0x40
172
				cmp eax,1
173
				cmp eax,1
173
				jne getkeyi
174
				jne getkeyi
174
				mov ah,dh
175
				mov ah,dh
Line 175... Line 176...
175
				jmp adr32
176
				jmp adr32
176
 
177
 
Line 177... Line 178...
177
getkeyi:		mov dh,ah
178
getkeyi:		mov dh,ah ; Gluk
178
				jmp key
179
				jmp key
179
 
180