Subversion Repositories Kolibri OS

Rev

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

Rev 109 Rev 485
Line 36... Line 36...
36
    mov eax,6
36
    mov eax,6
37
    mov ebx,clip_file
37
    mov ebx,clip_file
38
    mov ecx,0
38
    mov ecx,0
39
    mov edx,-1
39
    mov edx,-1
40
    mov esi,path
40
    mov esi,path
41
    int 0x40
41
    mcall
42
    cmp byte [clip_file+7],'Z'
42
    cmp byte [clip_file+7],'Z'
43
    je  erroff
43
    je  erroff
44
    cmp eax,0xffffffff
44
    cmp eax,0xffffffff
45
    jne incf
45
    jne incf
Line 52... Line 52...
52
    mov ebx,clip_file
52
    mov ebx,clip_file
53
    mov ecx,path
53
    mov ecx,path
54
    mov edx,100
54
    mov edx,100
55
    mov esi,0
55
    mov esi,0
56
    mov eax,33
56
    mov eax,33
57
    int 0x40
57
    mcall
Line 58... Line 58...
58
 
58
 
59
    mov ebx,dlg_file
59
    mov ebx,dlg_file
60
    mov ecx,clip_file
60
    mov ecx,clip_file
61
    mov eax,19
61
    mov eax,19
Line 62... Line 62...
62
    int 0x40
62
    mcall
63
 
63
 
64
still:
64
still:
65
    scevent red,key,button
65
    scevent red,key,button
Line 70... Line 70...
70
    mov eax,6
70
    mov eax,6
71
    mov ebx,clip_file
71
    mov ebx,clip_file
72
    mov ecx,0
72
    mov ecx,0
73
    mov edx,-1
73
    mov edx,-1
74
    mov esi,path
74
    mov esi,path
75
    int 0x40
75
    mcall
76
    cmp eax,0xffffffff
76
    cmp eax,0xffffffff
77
    je  erroff ;errexit
77
    je  erroff ;errexit
78
    mov dword [redwait],0
78
    mov dword [redwait],0
79
zzz:
79
zzz:
80
    delay 5
80
    delay 5
Line 82... Line 82...
82
    jmp still
82
    jmp still
Line 83... Line 83...
83
 
83
 
84
file_is_open:
84
file_is_open:
85
    mov eax,32
85
    mov eax,32
86
    mov ebx,clip_file
86
    mov ebx,clip_file
87
    int 0x40
87
    mcall
Line 88... Line 88...
88
    jmp openoff
88
    jmp openoff
89
 
89
 
90
key:                          ; key
90
key:                          ; key
91
    int  0x40                   ; read (eax=2)
91
    mcall                   ; read (eax=2)
92
    jmp  still
92
    jmp  still
93
button:                       ; button
93
button:                       ; button
94
    mov  eax,17                 ; get id
94
    mov  eax,17                 ; get id
95
    int  0x40
95
    mcall
96
    cmp  ah,1                   ; button id=1 ?
96
    cmp  ah,1                   ; button id=1 ?
97
    jne  still
97
    jne  still
Line 98... Line 98...
98
    mov  eax,-1                 ; close this program
98
    mov  eax,-1                 ; close this program
99
    int  0x40
99
    mcall
100
 
100
 
Line 125... Line 125...
125
    mov eax,6
125
    mov eax,6
126
    mov ebx,clip_file
126
    mov ebx,clip_file
127
    mov ecx,0
127
    mov ecx,0
128
    mov edx,-1
128
    mov edx,-1
129
    mov esi,path
129
    mov esi,path
130
    int 0x40
130
    mcall
131
    cmp byte [clip_file+7],'Z'
131
    cmp byte [clip_file+7],'Z'
132
    je  erroff
132
    je  erroff
133
    cmp eax,0xffffffff
133
    cmp eax,0xffffffff
134
    jne incf
134
    jne incf
Line 141... Line 141...
141
    mov ebx,clip_file
141
    mov ebx,clip_file
142
    mov ecx,path
142
    mov ecx,path
143
    mov edx,100
143
    mov edx,100
144
    mov esi,0
144
    mov esi,0
145
    mov eax,33
145
    mov eax,33
146
    int 0x40
146
    mcall
Line 147... Line 147...
147
 
147
 
148
    mov ebx,dlg_file
148
    mov ebx,dlg_file
149
    mov ecx,clip_file
149
    mov ecx,clip_file
150
    mov eax,19
150
    mov eax,19
Line 151... Line 151...
151
    int 0x40
151
    mcall
152
 
152
 
153
still:
153
still:
154
    scevent red,key,button
154
    scevent red,key,button
Line 159... Line 159...
159
    mov eax,6
159
    mov eax,6
160
    mov ebx,clip_file
160
    mov ebx,clip_file
161
    mov ecx,0
161
    mov ecx,0
162
    mov edx,-1
162
    mov edx,-1
163
    mov esi,path
163
    mov esi,path
164
    int 0x40
164
    mcall
165
    cmp eax,0xffffffff
165
    cmp eax,0xffffffff
166
    je  erroff ;errexit
166
    je  erroff ;errexit
167
    mov dword [redwait],0
167
    mov dword [redwait],0
168
zzz:
168
zzz:
169
    delay 5
169
    delay 5
Line 171... Line 171...
171
    jmp still
171
    jmp still
Line 172... Line 172...
172
 
172
 
173
file_is_open:
173
file_is_open:
174
    mov eax,32
174
    mov eax,32
175
    mov ebx,clip_file
175
    mov ebx,clip_file
176
    int 0x40
176
    mcall
Line 177... Line 177...
177
    jmp openoff
177
    jmp openoff
178
 
178
 
179
key:                          ; key
179
key:                          ; key
180
    int  0x40                   ; read (eax=2)
180
    mcall                   ; read (eax=2)
181
    jmp  still
181
    jmp  still
182
button:                       ; button
182
button:                       ; button
183
    mov  eax,17                 ; get id
183
    mov  eax,17                 ; get id
184
    int  0x40
184
    mcall
185
    cmp  ah,1                   ; button id=1 ?
185
    cmp  ah,1                   ; button id=1 ?
186
    jne  still
186
    jne  still
Line 187... Line 187...
187
    mov  eax,-1                 ; close this program
187
    mov  eax,-1                 ; close this program
188
    int  0x40
188
    mcall
189
 
189
 
Line 270... Line 270...
270
}
270
}
Line 271... Line 271...
271
 
271
 
272
macro scank
272
macro scank
273
{
273
{
274
    mov eax,10
274
    mov eax,10
275
    int 0x40
275
    mcall
Line 276... Line 276...
276
}
276
}
277
 
277
 
278
macro putpix x,y,color
278
macro putpix x,y,color
279
{
279
{
280
    mov ebx,x
280
    mov ebx,x
281
    mov ecx,y
281
    mov ecx,y
282
    mov edx,color
282
    mov edx,color
283
    mov eax,1
283
    mov eax,1
Line 284... Line 284...
284
    int 0x40
284
    mcall
285
}
285
}
286
 
286
 
Line 291... Line 291...
291
    add ebx,y
291
    add ebx,y
292
    mov ecx,color
292
    mov ecx,color
293
    mov edx,offs
293
    mov edx,offs
294
    mov esi,size
294
    mov esi,size
295
    mov eax,4
295
    mov eax,4
296
    int 0x40
296
    mcall
297
}
297
}
Line 298... Line 298...
298
 
298
 
Line 299... Line 299...
299
;_ equ '____'
299
;_ equ '____'
Line 304... Line 304...
304
;    mov ebx,x
304
;    mov ebx,x
305
;end if
305
;end if
306
;    mov ecx,y
306
;    mov ecx,y
307
;    mov edx,color
307
;    mov edx,color
308
;    mov eax,1
308
;    mov eax,1
309
;    int 0x40
309
;    mcall
310
;}
310
;}
Line 311... Line 311...
311
 
311
 
312
 
312
 
Line 316... Line 316...
316
    mov ebx,numtype
316
    mov ebx,numtype
317
    mov bl,0
317
    mov bl,0
318
    mov edx,x*65536+y
318
    mov edx,x*65536+y
319
    mov esi,color
319
    mov esi,color
320
    mov eax,47
320
    mov eax,47
321
    int 0x40
321
    mcall
322
}
322
}
Line 323... Line 323...
323
 
323
 
Line 324... Line 324...
324
; SCEVENT - Scan event
324
; SCEVENT - Scan event
325
 
325
 
326
macro scevent red,key,but
326
macro scevent red,key,but
327
{
327
{
328
    mov eax,11
328
    mov eax,11
329
    int 0x40
329
    mcall
330
    dec eax
330
    dec eax
331
    jz  red
331
    jz  red
332
    dec eax
332
    dec eax
Line 338... Line 338...
338
; WTEVENT - Wait event
338
; WTEVENT - Wait event
Line 339... Line 339...
339
 
339
 
340
macro wtevent red,key,but
340
macro wtevent red,key,but
341
{
341
{
342
    mov eax,10
342
    mov eax,10
343
    int 0x40
343
    mcall
344
    dec eax
344
    dec eax
345
    jz  red
345
    jz  red
346
    dec eax
346
    dec eax
347
    jz  key
347
    jz  key
Line 353... Line 353...
353
 
353
 
354
macro timeevent xfps,noevent,red,key,but
354
macro timeevent xfps,noevent,red,key,but
355
{
355
{
356
    mov eax,23
356
    mov eax,23
357
    mov ebx,xfps
357
    mov ebx,xfps
358
    int 0x40
358
    mcall
359
    cmp eax,0
359
    cmp eax,0
360
    je  noevent
360
    je  noevent
361
    dec eax
361
    dec eax
362
    jz  red
362
    jz  red
Line 370... Line 370...
370
; CLOSE - Close program
370
; CLOSE - Close program
Line 371... Line 371...
371
 
371
 
372
macro close
372
macro close
373
{
373
{
374
    mov eax,-1
374
    mov eax,-1
375
    int 0x40
375
    mcall
Line 376... Line 376...
376
}
376
}
377
 
377
 
378
; DELAY - Create delay 1/100 sec
378
; DELAY - Create delay 1/100 sec
Line 379... Line 379...
379
; (SYNTAX)  Delay time
379
; (SYNTAX)  Delay time
380
; (SAMPLE)  Delay 100   ;delay 2 sec 1/100*200=2 sec
380
; (SAMPLE)  Delay 100   ;delay 2 sec 1/100*200=2 sec
381
 
381
 
382
macro delay arg1
382
macro delay arg1
383
{
383
{
384
    mov eax,5
384
    mov eax,5
Line 385... Line 385...
385
    mov ebx,arg1
385
    mov ebx,arg1
386
    int 0x40
386
    mcall
387
}
387
}
Line 394... Line 394...
394
{
394
{
395
    mov ebx,arg1*65536+arg3
395
    mov ebx,arg1*65536+arg3
396
    mov ecx,arg2*65536+arg4
396
    mov ecx,arg2*65536+arg4
397
    mov edx,arg5
397
    mov edx,arg5
398
    mov eax,0
398
    mov eax,0
399
    int 0x40
399
    mcall
400
}
400
}
Line 401... Line 401...
401
 
401
 
402
macro colorwindow arg1,arg2,arg3,arg4,arg5,arg6,arg7
402
macro colorwindow arg1,arg2,arg3,arg4,arg5,arg6,arg7
403
{
403
{
404
    mov ebx,arg1*65536+arg3
404
    mov ebx,arg1*65536+arg3
405
    mov ecx,arg2*65536+arg4
405
    mov ecx,arg2*65536+arg4
406
    mov edx,arg5
406
    mov edx,arg5
407
    mov esi,arg6
407
    mov esi,arg6
408
    mov edi,arg7
408
    mov edi,arg7
409
    mov eax,0
409
    mov eax,0
410
    int 0x40
410
    mcall
Line 411... Line 411...
411
}
411
}
Line 412... Line 412...
412
 
412
 
413
 
413
 
414
; STARTWD - Start of window draw
414
; STARTWD - Start of window draw
415
 
415
 
416
macro startwd
416
macro startwd
417
{
417
{
Line 418... Line 418...
418
    mov eax,12
418
    mov eax,12
Line 419... Line 419...
419
    mov ebx,1
419
    mov ebx,1
420
    int 0x40
420
    mcall
421
}
421
}
422
 
422
 
423
; ENDWD - End window draw
423
; ENDWD - End window draw
424
 
424
 
Line 425... Line 425...
425
macro endwd
425
macro endwd
426
{
426
{
427
    mov eax,12
427
    mov eax,12
Line 444... Line 444...
444
    add ebx,arg2
444
    add ebx,arg2
445
    mov ecx,arg4             ;arg4 color
445
    mov ecx,arg4             ;arg4 color
446
    mov edx,lab
446
    mov edx,lab
447
    mov esi,asd-lab          ;calc size
447
    mov esi,asd-lab          ;calc size
448
    mov eax,4
448
    mov eax,4
449
    int 0x40
449
    mcall
450
}
450
}
Line 451... Line 451...
451
 
451
 
452
;Key's
452
;Key's
453
key_Up     equ 178
453
key_Up     equ 178