Subversion Repositories Kolibri OS

Rev

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

Rev 109 Rev 485
Line 15... Line 15...
15
    dd     0x300000                ; esp
15
    dd     0x300000                ; esp
16
    dd     temp_area , 0x0         ; I_Param , I_Icon
16
    dd     temp_area , 0x0         ; I_Param , I_Icon
Line 17... Line 17...
17
 
17
 
Line 18... Line -...
18
;******************************************************************************
-
 
-
 
18
;******************************************************************************
19
 
19
 
20
 
20
include '..\..\..\macros.inc'
21
include 'ascl.inc'
21
include 'ascl.inc'
Line 254... Line 254...
254
    call draw_window
254
    call draw_window
255
    jmp  still
255
    jmp  still
Line 256... Line 256...
256
 
256
 
257
  key:                          ; key
257
  key:                          ; key
258
    mov eax,2
258
    mov eax,2
259
    int 0x40
259
    mcall
260
    cmp ah,key_Left
260
    cmp ah,key_Left
261
    jne no_l
261
    jne no_l
262
    sub dword [ply1rx],32 ;16
262
    sub dword [ply1rx],32 ;16
263
no_l:
263
no_l:
Line 280... Line 280...
280
 
280
 
Line 281... Line 281...
281
    jmp  still
281
    jmp  still
282
 
282
 
283
  button:                       ; button
283
  button:                       ; button
284
    mov  eax,17                 ; get id
284
    mov  eax,17                 ; get id
285
    int  0x40
285
    mcall
286
    cmp  ah,1                   ; button id=1 ?
286
    cmp  ah,1                   ; button id=1 ?
287
    jne  noclose
287
    jne  noclose
288
    mov  eax,-1                 ; close this program
288
    mov  eax,-1                 ; close this program
289
    int  0x40
289
    mcall
Line 290... Line 290...
290
  noclose:
290
  noclose: