Subversion Repositories Kolibri OS

Rev

Rev 1632 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
255 heavyiron 1 
;------------------------------------------
2 
;-------------KEYS-------------------------
3 
;------------------------------------------
6357 IgorA 4 
align 4
5 
keys:
255 heavyiron 6 
 
6357 IgorA 7 
   mcall SF_GET_KEY
255 heavyiron 8 
   shr eax,8
9 
 
6357 IgorA 10 
   cmp al,176
255 heavyiron 11 
   jne key2
12 
   sub [PosX],20
13 
   jmp change_screen
14 
 key2:
6357 IgorA 15 
   cmp al,179
255 heavyiron 16 
   jne key3
17 
   add [PosX],20
18 
   jmp change_screen
19 
 key3:
6357 IgorA 20 
   cmp al,177
255 heavyiron 21 
   jne key4
22 
   add [PosY],20
23 
   jmp change_screen
24 
 key4:
6357 IgorA 25 
  cmp al,178
255 heavyiron 26 
   jne key5
27 
   sub [PosY],20
28 
   jmp change_screen
29 
 key5:
6357 IgorA 30 
   cmp al,49 ;1
255 heavyiron 31 
   jne key6
32 
   mov [k],1
6357 IgorA 33 
   call scrollbar_move_00
255 heavyiron 34 
   call drawwin
35 
   jmp change_screen
36 
 key6:
6357 IgorA 37 
   cmp al,50 ;2
255 heavyiron 38 
   jne key7
39 
   mov [k],2
6357 IgorA 40 
   call scrollbar_move_00
255 heavyiron 41 
   call drawwin
42 
   jmp change_screen
43 
 key7:
6357 IgorA 44 
   cmp al,52 ;4
255 heavyiron 45 
   jne key8
46 
   mov [k],4
6357 IgorA 47 
   call scrollbar_move_00
255 heavyiron 48 
   call drawwin
49 
   jmp change_screen
50 
 key8:
6357 IgorA 51 
   cmp al,56 ;8
255 heavyiron 52 
   jne key9
53 
   mov [k],8
6357 IgorA 54 
   call scrollbar_move_00
255 heavyiron 55 
   call drawwin
56 
   jmp change_screen
57 
 key9:
6357 IgorA 58 
   cmp al,48 ;0
255 heavyiron 59 
   jne key10
60 
   mov [k],16
6357 IgorA 61 
   call scrollbar_move_00
255 heavyiron 62 
   call drawwin
63 
   jmp change_screen
64 
 key10:
6357 IgorA 65 
   cmp al,255
255 heavyiron 66 
   jne key11
67 
   call analizing_picture_to_palette
68 
   call drawwin
69 
   jmp change_screen
70 
 key11:
6357 IgorA 71 
   ;cmp al,27 ;Esc
72 
   ;jne still
73 
   jmp still
255 heavyiron 74 
 
75 
    mov eax,CursorsID
76 
    call delete_cursors
1632 mario79 77 
close:
6357 IgorA 78 
    mcall SF_TERMINATE_PROCESS
255 heavyiron 79 
 
80 
   jmp still
81 
 
82 
   change_screen:
83 
 
84 
   call CalculatePositionScreen
85 
   call MovePictureToWorkScreen
86 
   call draw_scrollers
87 
   call PrintMousePos
88 
 
89 
   jmp still