Subversion Repositories Kolibri OS

Rev

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

Rev 5410 Rev 5476
Line 32... Line 32...
32
 
32
 
Line 33... Line 33...
33
;=====================================================================
33
;=====================================================================
Line 34... Line -...
34
 
-
 
35
 @entry:
-
 
36
 
-
 
37
    mcall   40, 101b
-
 
38
 
34
 
39
 ;----------------------------
35
 @entry:
40
 
36
 
41
  ;; CHECK FOR PARAMS
37
  ;; CHECK FOR PARAMS
42
    cmpne   [@params], byte 0, parse
38
    cmpne   [@params], byte 0, parse
Line 322... Line 318...
322
 ;----------------------------
318
 ;----------------------------
Line 323... Line 319...
323
 
319
 
324
 update:
320
 update:
325
    mcall   23, 10
321
    mcall   23, 10
-
 
322
    cmpe    al, EV_REDRAW, redraw
326
    cmpe    al, EV_REDRAW, redraw
323
    cmpe    al, EV_KEY, key
Line 327... Line 324...
327
    cmpe    al, EV_BUTTON, exit
324
    cmpe    al, EV_BUTTON, exit
328
 
325
 
329
    mov     eax, [timer.step]
326
    mov     eax, [timer.step]
Line 345... Line 342...
345
 
342
 
Line 346... Line 343...
346
    mcall   -1
343
    mcall   -1
Line -... Line 344...
-
 
344
 
-
 
345
 ;----------------------------
-
 
346
 
-
 
347
 key:
-
 
348
    mcall   2
-
 
349
    cmpne   ah, 27, update
-
 
350
    jmp     exit
347
 
351
 
348
 ;----------------------------
352
 ;----------------------------
349
 
353
 
Line 350... Line 354...
350
 redraw:
354
 redraw: