Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
8177 superturbo 1
 
2
3
 
4
global go.os.Event
5
global go.os.GetButtonID
6
global go.os.CreateButton
7
global go.os.Exit
8
global go.os.Redraw
9
global go.os.Window
10
global go.os.WriteText
11
global go.os.GetTime
12
global go.os.DrawLine
13
global go.os.DrawBar
14
global go.os.DebugOutHex
15
global go.os.DebugOutChar
16
global go.os.DebugOutStr
17
global go.os.WriteText2
9053 pavelyakov 18
8177 superturbo 19
 
20
    push ebp
21
    mov ebp,esp
22
	mov eax, 5
23
	mov ebx, [ebp+8]
24
	int 0x40
25
    mov esp,ebp
26
    pop ebp
27
    ret
28
29
 
30
 
31
	mov eax, 10
32
	int 0x40
33
	ret
34
35
 
36
  mov   eax,17
37
  int   0x40
38
  test  al,al
39
  jnz   .no_button
40
  shr   eax,8
41
  ret
42
.no_button:
43
  xor   eax,eax
44
  dec   eax
45
  ret
46
47
 
48
	mov eax, -1
49
	int 0x40
50
    ret
51
52
 
53
    push ebp
54
    mov ebp,esp
55
	mov eax, 12
56
	mov ebx, [ebp+8]
57
	int 0x40
58
    mov esp,ebp
59
    pop ebp
60
    ret
61
62
 
63
    push ebp
64
    mov ebp,esp
65
	mov ebx, [ebp+8]
66
	shl ebx, 16
67
	or ebx, [ebp+16]
68
	mov ecx, [ebp+12]
69
	shl ecx, 16
70
	or ecx, [ebp+20]
71
	mov edx, 0x14
72
	shl edx, 24
73
	or edx, 0xFFFFFF
74
	mov esi, 0x808899ff
75
	mov edi, [ebp+24]
76
	xor eax, eax
77
	int 0x40
78
    mov esp,ebp
79
    pop ebp
80
    ret
81
82
 
83
    push ebp
9053 pavelyakov 84
    mov ebp,esp
85
    mov eax,4
8177 superturbo 86
    mov ebx,[ebp+8]
9053 pavelyakov 87
    shl ebx,16
8177 superturbo 88
    mov bx,[ebp+12]
9053 pavelyakov 89
    mov ecx,[ebp+16]
90
    mov edx,[ebp+20]
91
    mov esi,[ebp+24]
92
    int 0x40
8177 superturbo 93
    mov esp,ebp
9053 pavelyakov 94
    pop ebp
95
    ret
8177 superturbo 96
97
 
9053 pavelyakov 98
    push ebp
99
    mov ebp,esp
100
    mov eax,47
101
    mov ebx,[ebp+8]
102
    shl ebx,16
8177 superturbo 103
    mov ecx,[ebp+12]
9053 pavelyakov 104
    mov edx,[ebp+20]
105
    shl edx,16
106
    add edx, [ebp+24]
107
    mov esi,[ebp+28]
108
    int 0x40
109
    mov esp,ebp
110
    pop ebp
111
    ret
112
113
 
114
    push ebp
115
    mov ebp,esp
116
    mov ebx,[ebp+8]
117
    shl ebx,16
118
    mov bx,[ebp+16]
119
    mov ecx,[ebp+12]
120
    shl ecx,16
8177 superturbo 121
    mov cx,[ebp+20]
9053 pavelyakov 122
    mov edx,[ebp+24]
123
    mov eax,38
8177 superturbo 124
    int 0x40
125
    mov esp,ebp
9053 pavelyakov 126
    pop ebp
127
    ret
8177 superturbo 128
129
 
130
    push ebp
9053 pavelyakov 131
    mov ebp,esp
132
    mov   eax,13
8177 superturbo 133
    mov   ebx,[ebp+8]
9053 pavelyakov 134
    shl   ebx,16
8177 superturbo 135
    mov   bx,[ebp+16]
9053 pavelyakov 136
    mov   ecx,[ebp+12]
137
    shl   ecx,16
8177 superturbo 138
    mov   cx,[ebp+20]
9053 pavelyakov 139
    mov   edx,[ebp+24]
140
    int   0x40
8177 superturbo 141
    mov esp,ebp
9053 pavelyakov 142
    pop ebp
143
    ret
8177 superturbo 144
145
 
146
    mov eax, 3
147
    int 0x40
148
    ret
149
150
 
9053 pavelyakov 151
    mov eax, [esp+4]
8177 superturbo 152
    mov   edx, 8
153
    .new_char:
154
    rol   eax, 4
155
    movzx ecx, al
156
    and   cl,  0x0f
157
    mov   cl,  [__hexdigits + ecx]
158
    pushad
159
    mov eax, 63
160
    mov ebx, 1
161
    int 0x40
162
    popad
163
    dec   edx
164
    jnz   .new_char
165
    ret
166
167
 
9053 pavelyakov 168
   mov al, [esp+4]
8177 superturbo 169
   pushf
170
   pushad
171
   mov  cl,al
172
   mov  eax,63
173
   mov  ebx,1
174
   int  0x40
175
   popad
176
   popf
177
   ret
178
179
 
180
   mov  edx,[esp+4]
181
   mov  eax,63
182
   mov  ebx,1
183
 m2:
184
   mov  cl, [edx]
185
   test cl,cl
186
   jz   m1
187
   int  40h
188
   inc  edx
189
   jmp  m2
190
 m1:
191
   ret
192
193
 
194
  push  ebp
9053 pavelyakov 195
  mov   ebp,esp
196
  mov   eax, 8
197
  mov ebx, [ebp+8]
198
  shl ebx, 16
199
  mov bx, [ebp+16]
200
  mov ecx, [ebp+12]
201
  shl ecx, 16
202
  mov cx, [ebp+20]
203
  mov edx, [ebp+24]
204
  mov esi, [ebp+28]
205
  int   0x40
8177 superturbo 206
  mov   esp,ebp
9053 pavelyakov 207
  pop   ebp
208
  ret
8177 superturbo 209
210
 
211
__hexdigits:
212
  db '0123456789ABCDEF'
213