Subversion Repositories Kolibri OS

Rev

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

Rev 551 Rev 4589
Line 37... Line 37...
37 
 
 37 
 
38 
  key:                          ; key
 38 
  key:                          ; key
39 
    mov  eax,2                  ; just read it and ignore
 39 
    mov  eax,2                  ; just read it and ignore
40 
    mcall
 40 
    mcall
- 
 
 41 
    mov  [keyid],ah
- 
 
 42 
    shr  eax,16
41 
    mov  [keyid],ah
 43 
    mov  [scan_keyid],al
42 
    call draw_window
 44 
    call draw_window
Line 43... Line 45...
43 
    jmp  still
 45 
    jmp  still
44 
 
 46 
 
Line 53... Line 55...
53 
    mcall
 55 
    mcall
54 
  noclose:
 56 
  noclose:
Line 55... Line 57...
55 
 
 57 
 
Line 56... Line -...
56 
    jmp  still
 - 
 
57 
 
 - 
 
58 
 
 - 
 
59 
 
 58 
    jmp  still
60 
 
 59 
 
61 
;   *********************************************
 60 
;   *********************************************
Line 62... Line -...
62 
;   *******  WINDOW DEFINITIONS AND DRAW ********
 - 
 
63 
;   *********************************************
 61 
;   *******  WINDOW DEFINITIONS AND DRAW ********
64 
 
 - 
 
65 
 
 - 
 
66 
draw_window:
 - 
 
67 
 
 62 
;   *********************************************
68 
 
 63 
 
Line 69... Line 64...
69 
    mov  eax,12                    ; function 12:tell os about windowdraw
 64 
draw_window:
70 
    mov  ebx,1                     ; 1, start of draw
 65 
; function 12:tell os about windowdraw ; 1, start of draw
71 
    mcall
 66 
	mcall	12,1
72 
 
 67 
 
73 
                                   ; DRAW WINDOW
 68 
                                   ; DRAW WINDOW
74 
    mov  eax,0                     ; function 0 : define and draw window
 69 
	mov	eax,0                     ; function 0 : define and draw window
75 
    mov  ebx,100*65536+270         ; [x start] *65536 + [x size]
 70 
	mov	ebx,100*65536+270         ; [x start] *65536 + [x size]
Line 76... Line 71...
76 
    mov  ecx,100*65536+80          ; [y start] *65536 + [y size]
 71 
	mov	ecx,100*65536+100          ; [y start] *65536 + [y size]
77 
    mov  edx,0x34ffffff            ; color of work area RRGGBB,8->color gl
 72 
	mov	edx,0x34ffffff            ; color of work area RRGGBB,8->color gl
78 
    mov  edi,title
 73 
	mov	edi,title
79 
    mcall
 74 
	mcall
80 
 
 75 
 
81 
    mov  eax,4                     ; function 4 : write text to window
 - 
 
82 
    xor  ecx,ecx
 76 
; function 4 : write text to window
83 
    mov  esi,4
 77 
	xor	ecx,ecx
84 
    mov  ebx,8*65536+8
 - 
 
Line 85... Line 78...
85 
    mov  edx,tdec
 78 
	mcall	4,<33,8>,,text1,6
86 
    mcall
 - 
 
87 
    add  ebx,23
 - 
 
88 
    mov  edx,thex
 - 
 
89 
    mcall
 79 
	mcall	,<85,8>,,text2,9
90 
 
 - 
 
91 
    mov  ecx,[keyid]
 80 
	mcall	,<8,28>,,tdec,4
92 
    mov  eax,47
 81 
	add	ebx,23
93 
    mov  ebx,3*65536
 82 
	mcall	,,,thex
Line -... Line 83...
- 
 
 83 
 
94 
    mov  edx,40*65536+8
 84 
	movzx  ecx,byte [keyid]
95 
    mov  esi,0x224466
 85 
	mcall	47,0x30000,,<40,28>,0x224466
- 
 
 86 
	add	edx,23
- 
 
 87 
	mov	bh,1
96 
    mcall
 88 
	mcall
Line -... Line 89...
- 
 
 89 
 
- 
 
 90 
	mov	bh,0
97 
    add  edx,23
 91 
	movzx	ecx,byte [scan_keyid]
Line 98... Line 92...
98 
    mov  bh,1
 92 
	mcall	,,,<100,28>
99 
    mcall
 - 
 
- 
 
 93 
	add	edx,23
- 
 
 94 
	mov	bh,1
100 
 
 95 
	mcall
101 
    mov  eax,12                    ; function 12:tell os about windowdraw
 96 
 
102 
    mov  ebx,2                     ; 2, end of draw
 97 
; function 12:tell os about windowdraw ; 2, end of draw
103 
    mcall
 - 
 
104 
 
 98 
	mcall	12,2
- 
 
 99 
	ret
- 
 
 100 
 
- 
 
 101