Rev 109 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 109 | Rev 485 | ||
---|---|---|---|
Line 34... | Line 34... | ||
34 | incf: |
34 | incf: |
35 | inc byte [clip_file+7] |
35 | inc byte [clip_file+7] |
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 | or 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 |