Aren/kolibrios
1
0
Fork 0
mirror of https://github.com/KolibriOS/kolibrios.git synced 2024-11-22 09:01:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

Compare commits

base: Aren:162079aa4b5021083d05b7e4a481e63bb195094e
Branches Tags
Aren:main
Aren:rewrite_ide_drv
Aren:change-get-version-api
Aren:0.7.7.0
Aren:0.7.5.0
Aren:0.7.0.0
Aren:0.6.5.0
Aren:0.6.3.0
Aren:0.6.0.0
Aren:0.5.3.0
Aren:0.5.2.1
...
compare: Aren:e772302db4bde45b0113c8a8d35169c7e34712e1
Branches Tags
Aren:rewrite_ide_drv
Aren:main
Aren:change-get-version-api
Aren:0.7.7.0
Aren:0.7.5.0
Aren:0.7.0.0
Aren:0.6.5.0
Aren:0.6.3.0
Aren:0.6.0.0
Aren:0.5.3.0
Aren:0.5.2.1

5 Commits
162079aa4b ... e772302db4

Author SHA1 Message Date
Егор
e772302db4
Merge branch 'KolibriOS:main' into patch-1 2024-07-12 08:59:23 +05:00
Ivan Baravy
4a166ede82 Another fix for locale names 2024-07-11 09:00:28 +01:00
Ivan Baravy
46e816c366 Fix locale codes for kernel build scripts 2024-07-10 17:42:26 +01:00
Ivan Baravy
65239bc359 [taskbar] Fix context menu strings 2024-07-10 05:02:08 +01:00
Andrew
f222e98a09 All: Update locale codes (Part 2) (#76) 
- Update language codes and add comments.
- Correct `en_US` translations.
- Some whitespace clean-up (mainly EOL sanitation).

Reviewed-on: https://git.kolibrios.org/KolibriOS/kolibrios/pulls/76
Co-authored-by: Andrew <dent.ace@gmail.com>
Co-committed-by: Andrew <dent.ace@gmail.com>
 2024-06-14 10:35:46 +02:00
98 changed files with 61429 additions and 60684 deletions
Show Stats Expand all files Collapse all files

9
build.txt
View File

@ -31,10 +31,11 @@ A1. Fine. You will need a corresponding compiler, obviously.
If the compiler produces an error "file not found" regarding 'lang.inc', If the compiler produces an error "file not found" regarding 'lang.inc',
the program can be compiled using different languages of interface. the program can be compiled using different languages of interface.
Create a file 'lang.inc' in the same folder as <input.asm> like follows: Create a file 'lang.inc' in the same folder as <input.asm> like follows:
lang fix en lang fix en_US
Here the last word selects the language. Valid languages are Here the last word selects the language. Valid languages are
en, ru, et, it, sp. Not all programs provide all translations, en_US, ru_RU, et_EE, it_IT, es_ES, ca_ES. Not all programs provide all
en should always be available, ru is the most frequent after en. translations, en_US should always be available, ru_RU is the most frequent
after en_US.
* For a NASM program, get NASM at http://www.nasm.us/. * For a NASM program, get NASM at http://www.nasm.us/.
To compile, find the main .asm file of the program and run To compile, find the main .asm file of the program and run
@ -42,7 +43,7 @@ A1. Fine. You will need a corresponding compiler, obviously.
Multi-language is rarely supported in this category, but you could still Multi-language is rarely supported in this category, but you could still
see sometimes an error "file not found" regarding 'lang_nasm.inc'. If so, see sometimes an error "file not found" regarding 'lang_nasm.inc'. If so,
create a file 'lang_nasm.inc' in the same folder as <input.asm> like follows: create a file 'lang_nasm.inc' in the same folder as <input.asm> like follows:
%define lang 'en' %define lang 'en_US'
Read the entry about fasm for description of valid languages. Read the entry about fasm for description of valid languages.
* For a c-- program, try to avoid compiling it and instead rewrite the code * For a c-- program, try to avoid compiling it and instead rewrite the code

2
kernel/trunk/Makefile
View File

@ -1,6 +1,6 @@
FASM=fasm FASM=fasm
FLAGS=-m 65536 FLAGS=-m 65536
languages=en|ru|ge|et|sp languages=en_US|ru_RU|de_DE|et_EE|es_ES
.PHONY: all kernel bootloader clean .PHONY: all kernel bootloader clean

4
kernel/trunk/build.bat
View File

@ -11,8 +11,8 @@ pause
goto :eof goto :eof
:Target_kernel :Target_kernel
rem valid languages: en ru ge et sp rem valid languages: en_US ru_RU de_DE et_EE es_ES
set lang=en set lang=en_US
echo *** building kernel with language '%lang%' ... echo *** building kernel with language '%lang%' ...

2
kernel/trunk/build.sh
View File

@ -6,7 +6,7 @@ KERPACK=$HOME/kolibrios/programs/other/kpack/kerpack_linux/kerpack
KOLIBRI_IMG=$HOME/nightly/kolibri.img KOLIBRI_IMG=$HOME/nightly/kolibri.img
replace=0; # Replace kernel in the image file? replace=0; # Replace kernel in the image file?
echo 'lang fix en' > lang.inc echo 'lang fix en_US' > lang.inc
fasm -m 65536 bootbios.asm bootbios.bin fasm -m 65536 bootbios.asm bootbios.bin
fasm -m 65536 kernel.asm kernel.mnt fasm -m 65536 kernel.asm kernel.mnt
$KERPACK kernel.mnt kernel.mnt $KERPACK kernel.mnt kernel.mnt

589
programs/demos/ScreenRuler/ScreenRuler.asm
View File

@ -1,294 +1,295 @@
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
; Screen Ruler v1.0 ; Screen Ruler v1.0
; Version for KolibriOS 2005-2023 ; Version for KolibriOS 2005-2023
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
; last update: 11.09.2023 ; last update: 11.09.2023
; created by: Subbotin Anton aka Spaceraven ; created by: Subbotin Anton aka Spaceraven
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
use32 use32
org 0x0 org 0x0
db 'MENUET01'; 8 byte id db 'MENUET01'; 8 byte id
dd 1 ; header version dd 1 ; header version
dd START ; program start dd START ; program start
dd I_END ; program image size dd I_END ; program image size
dd 0x1000 ; required amount of memory dd 0x1000 ; required amount of memory
dd 0x1000 ; esp dd 0x1000 ; esp
dd 0, 0 ; no parameters, no path dd 0, 0 ; no parameters, no path
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (UTF-8), en_US.
include '..\..\macros.inc' include '..\..\macros.inc'
delay = 20 delay = 20
magnify_width = 48 magnify_width = 48
magnify_height = 30 magnify_height = 30
magnify_halfwidth = magnify_width / 2 magnify_halfwidth = magnify_width / 2
magnify_halfheight = magnify_height / 2 magnify_halfheight = magnify_height / 2
aim0 = (magnify_halfheight - 1) * 65536 + magnify_halfwidth - 1 aim0 = (magnify_halfheight - 1) * 65536 + magnify_halfwidth - 1
aim1 = (magnify_halfheight - 1) * 65536 + magnify_halfwidth + 1 aim1 = (magnify_halfheight - 1) * 65536 + magnify_halfwidth + 1
aim2 = (magnify_halfheight + 1) * 65536 + magnify_halfwidth - 1 aim2 = (magnify_halfheight + 1) * 65536 + magnify_halfwidth - 1
aim3 = (magnify_halfheight + 1) * 65536 + magnify_halfwidth + 1 aim3 = (magnify_halfheight + 1) * 65536 + magnify_halfwidth + 1
;------------------------- Main cycle ;------------------------- Main cycle
START: START:
redraw: redraw:
call draw_window call draw_window
still: still:
call draw_magnify call draw_magnify
wtevent: wtevent:
mcall 23, delay ; wait here for event with timeout mcall 23, delay ; wait here for event with timeout
dec eax dec eax
js still js still
jz redraw jz redraw
dec eax dec eax
jnz button jnz button
; key in buffer ; key in buffer
mov eax, 2 mov eax, 2
mcall mcall
cmp ah, 32 cmp ah, 32
jnz wtevent jnz wtevent
mov eax, [mouse_x] mov eax, [mouse_x]
mov [pix1_x], eax mov [pix1_x], eax
mov eax, [mouse_y] mov eax, [mouse_y]
mov [pix1_y], eax mov [pix1_y], eax
jmp wtevent jmp wtevent
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
button: button:
; we have only one button, close ; we have only one button, close
or eax, -1 or eax, -1
mcall mcall
;------------------------- Window draw ;------------------------- Window draw
draw_window: draw_window:
mcall 12, 1 mcall 12, 1
mov al, 48 ; function 48 : graphics parameters mov al, 48 ; function 48 : graphics parameters
mov bl, 4 ; subfunction 4 : get skin height mov bl, 4 ; subfunction 4 : get skin height
mcall mcall
; DRAW WINDOW ; DRAW WINDOW
mov ebx, 100*65536 + 4*magnify_width + 9 mov ebx, 100*65536 + 4*magnify_width + 9
lea ecx, [eax + 100*65536 + 4*magnify_height + 128] lea ecx, [eax + 100*65536 + 4*magnify_height + 128]
mov edx, 0x34000000 ; color of work area RRGGBB mov edx, 0x34000000 ; color of work area RRGGBB
mov edi, labelt ; header mov edi, labelt ; header
xor eax, eax ; function 0 : define and draw window xor eax, eax ; function 0 : define and draw window
mcall mcall
mcall 71, 1, labelt mcall 71, 1, labelt
mcall 12,2 mcall 12,2
ret ret
;------------------------- Magnify draw ;------------------------- Magnify draw
draw_magnify: draw_magnify:
mcall 9, procinfo, -1 mcall 9, procinfo, -1
mov eax, [procinfo+70] ;status of window mov eax, [procinfo+70] ;status of window
test eax,100b test eax,100b
jne .end jne .end
mcall 14 ; get screen size mcall 14 ; get screen size
movzx ecx, ax movzx ecx, ax
inc ecx inc ecx
mov [screen_size_y], ecx mov [screen_size_y], ecx
shr eax, 16 shr eax, 16
inc eax inc eax
mov [screen_size_x], eax mov [screen_size_x], eax
xor ebx, ebx xor ebx, ebx
mcall 37 ; get mouse coordinates mcall 37 ; get mouse coordinates
mov ecx, eax mov ecx, eax
shr ecx, 16 ; ecx = x shr ecx, 16 ; ecx = x
movzx edx, ax ; edx = y movzx edx, ax ; edx = y
mov [mouse_x], ecx mov [mouse_x], ecx
mov [mouse_y], edx mov [mouse_y], edx
add ecx, magnify_halfwidth add ecx, magnify_halfwidth
add edx, magnify_halfheight add edx, magnify_halfheight
mov [magnify_area_end_x], ecx mov [magnify_area_end_x], ecx
mov [magnify_area_end_y], edx mov [magnify_area_end_y], edx
sub ecx, magnify_width sub ecx, magnify_width
sub edx, magnify_height sub edx, magnify_height
mov [magnify_area_start_x], ecx mov [magnify_area_start_x], ecx
mov [magnify_area_start_y], edx mov [magnify_area_start_y], edx
.loop_y: .loop_y:
.loop_x: .loop_x:
xor eax, eax ; assume black color for invalid pixels xor eax, eax ; assume black color for invalid pixels
test ecx, ecx test ecx, ecx
js .nopix js .nopix
cmp ecx, [screen_size_x] cmp ecx, [screen_size_x]
jge .nopix jge .nopix
test edx, edx test edx, edx
js .nopix js .nopix
cmp edx, [screen_size_y] cmp edx, [screen_size_y]
jge .nopix jge .nopix
mov ebx, edx mov ebx, edx
sub ebx, [magnify_area_start_y] sub ebx, [magnify_area_start_y]
shl ebx, 16 shl ebx, 16
mov bx, cx mov bx, cx
sub ebx, [magnify_area_start_x] sub ebx, [magnify_area_start_x]
cmp ebx, aim0 cmp ebx, aim0
jz .nopix jz .nopix
cmp ebx, aim1 cmp ebx, aim1
jz .nopix jz .nopix
cmp ebx, aim2 cmp ebx, aim2
jz .nopix jz .nopix
cmp ebx, aim3 cmp ebx, aim3
jz .nopix jz .nopix
mov ebx, edx mov ebx, edx
imul ebx, [screen_size_x] imul ebx, [screen_size_x]
add ebx, ecx add ebx, ecx
mcall 35 ; read pixel mcall 35 ; read pixel
.nopix: .nopix:
push ecx edx push ecx edx
sub ecx, [magnify_area_start_x] sub ecx, [magnify_area_start_x]
sub edx, [magnify_area_start_y] sub edx, [magnify_area_start_y]
mov ebx, ecx mov ebx, ecx
shl ebx, 2+16 shl ebx, 2+16
mov bl, 4 mov bl, 4
mov ecx, edx mov ecx, edx
shl ecx, 2+16 shl ecx, 2+16
mov cl, 4 mov cl, 4
mov edx, eax mov edx, eax
mcall 13 ; draw rectangle 8x8 mcall 13 ; draw rectangle 8x8
pop edx ecx pop edx ecx
inc ecx inc ecx
cmp ecx, [magnify_area_end_x] cmp ecx, [magnify_area_end_x]
jnz .loop_x jnz .loop_x
mov ecx, [magnify_area_start_x] mov ecx, [magnify_area_start_x]
inc edx inc edx
cmp edx, [magnify_area_end_y] cmp edx, [magnify_area_end_y]
jnz .loop_y jnz .loop_y
;------------------------- Measure labels draw ;------------------------- Measure labels draw
mov eax, 4 mov eax, 4
mov ebx, 8*65536 + 124 mov ebx, 8*65536 + 124
mov ecx, 11110000111100001111000011110000b mov ecx, 11110000111100001111000011110000b
mov edx, start_pix mov edx, start_pix
xor edi, edi xor edi, edi
mcall 4 mcall 4
add ebx, 20 add ebx, 20
mov edx, end_pix mov edx, end_pix
mcall 4 mcall 4
add ebx, 20 add ebx, 20
mov edx, measure_x mov edx, measure_x
mcall 4 mcall 4
add ebx, 20 add ebx, 20
mov edx, measure_y mov edx, measure_y
mcall 4 mcall 4
add ebx, 20 add ebx, 20
mov edx, measure_d mov edx, measure_d
mcall 4 mcall 4
add ebx, 20 add ebx, 20
mov edx, inf mov edx, inf
mcall 4 mcall 4
mov ebx, 0x80040000 mov ebx, 0x80040000
mov ecx, [mouse_x] mov ecx, [mouse_x]
mov edx, 12*8*65536 + 144 mov edx, 12*8*65536 + 144
mov esi, 0x50FFFFFF mov esi, 0x50FFFFFF
xor edi, edi xor edi, edi
mcall 47 mcall 47
sub ecx, [pix1_x] sub ecx, [pix1_x]
jns .sign1 jns .sign1
neg ecx neg ecx
.sign1: .sign1:
mov edx, 14*8*65536 + 164 mov edx, 14*8*65536 + 164
mov [dist_x], ecx mov [dist_x], ecx
mcall 47 mcall 47
mov ecx, [mouse_y] mov ecx, [mouse_y]
mov edx, 18*8*65536 + 144 mov edx, 18*8*65536 + 144
mcall 47 mcall 47
sub ecx, [pix1_y] sub ecx, [pix1_y]
jns .sign2 jns .sign2
neg ecx neg ecx
.sign2: .sign2:
mov [dist_y], ecx mov [dist_y], ecx
mov edx, 14*8*65536 + 184 mov edx, 14*8*65536 + 184
mcall 47 mcall 47
mov ecx, [pix1_y] mov ecx, [pix1_y]
mov edx, 18*8*65536 + 124 mov edx, 18*8*65536 + 124
mcall 47 mcall 47
mov ecx, [pix1_x] mov ecx, [pix1_x]
mov edx, 12*8*65536 + 124 mov edx, 12*8*65536 + 124
mcall 47 mcall 47
mov eax, [dist_x] mov eax, [dist_x]
mov ebx, eax mov ebx, eax
mul bx mul bx
mov cx, dx mov cx, dx
shl ecx, 16 shl ecx, 16
mov cx, ax mov cx, ax
mov eax, [dist_y] mov eax, [dist_y]
mov ebx, eax mov ebx, eax
mul bx mul bx
mov si, dx mov si, dx
shl esi, 16 shl esi, 16
mov si, ax mov si, ax
add ecx, esi add ecx, esi
mov [diag_l], ecx mov [diag_l], ecx
finit finit
fild [diag_l] fild [diag_l]
fsqrt fsqrt
fistp [diag_l] fistp [diag_l]
mov ebx, 0x80040000 mov ebx, 0x80040000
mov ecx, [diag_l] mov ecx, [diag_l]
mov edx, 12*8*65536 + 204 mov edx, 12*8*65536 + 204
mov esi, 0x50FFFFFF mov esi, 0x50FFFFFF
xor edi, edi xor edi, edi
mcall 47 mcall 47
.end: .end:
ret ret
;------------------------- Data area ;------------------------- Data area
if lang eq ru_RU if lang eq ru_RU
labelt: labelt:
db 3, 'Измеритель', 0 db 3, 'Измеритель', 0
start_pix: start_pix:
db 'Пиксель 1 ( , )', 0 db 'Пиксель 1 ( , )', 0
end_pix: end_pix:
db 'Пиксель 2 ( , )', 0 db 'Пиксель 2 ( , )', 0
measure_x: measure_x:
db 'Дистанция x ( )', 0 db 'Дистанция x ( )', 0
measure_y: measure_y:
db 'Дистанция y ( )', 0 db 'Дистанция y ( )', 0
measure_d: measure_d:
db 'Диагональ ( )', 0 db 'Диагональ ( )', 0
inf: inf:
db 'Нажмите пробел', 0 db 'Нажмите пробел', 0
else else ; Default to en_US
labelt: labelt:
db 3, 'Ruler', 0 db 3, 'Ruler', 0
start_pix: start_pix:
db 'Pixel 1 ( , )', 0 db 'Pixel 1 ( , )', 0
end_pix: end_pix:
db 'Pixel 2 ( , )', 0 db 'Pixel 2 ( , )', 0
measure_x: measure_x:
db 'Distance x ( )', 0 db 'Distance x ( )', 0
measure_y: measure_y:
db 'Distance y ( )', 0 db 'Distance y ( )', 0
measure_d: measure_d:
db 'Diagonal ( )', 0 db 'Diagonal ( )', 0
inf: inf:
db 'Press Space', 0 db 'Press Space', 0
end if end if
I_END:
align 4 I_END:
magnify_area_start_x dd ? align 4
magnify_area_start_y dd ? magnify_area_start_x dd ?
magnify_area_end_x dd ? magnify_area_start_y dd ?
magnify_area_end_y dd ? magnify_area_end_x dd ?
screen_size_x dd ? magnify_area_end_y dd ?
screen_size_y dd ? screen_size_x dd ?
mouse_x dd ? screen_size_y dd ?
mouse_y dd ? mouse_x dd ?
pix1_x dd 0 mouse_y dd ?
pix1_y dd 0 pix1_x dd 0
dist_x dd 0 pix1_y dd 0
dist_y dd 0 dist_x dd 0
diag_l dd 0 dist_y dd 0
;--------------------------------------------------------------------- diag_l dd 0
procinfo: ;---------------------------------------------------------------------
rb 1024 procinfo:
;--------------------------------------------------------------------- rb 1024
;---------------------------------------------------------------------

10
programs/demos/magnify/trunk/magnify.asm
View File

@ -19,7 +19,7 @@
dd 0x1000 ; esp dd 0x1000 ; esp
dd 0, 0 ; no parameters, no path dd 0, 0 ; no parameters, no path
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
include '..\..\..\macros.inc' include '..\..\..\macros.inc'
delay equ 20 delay equ 20
@ -52,7 +52,7 @@ button:
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
draw_window: draw_window:
mcall 12,1 mcall 12,1
mov al, 48 ; function 48 : graphics parameters mov al, 48 ; function 48 : graphics parameters
mov bl, 4 ; subfunction 4 : get skin height mov bl, 4 ; subfunction 4 : get skin height
mcall mcall
@ -63,7 +63,7 @@ draw_window:
mov edi, labelt ; header mov edi, labelt ; header
xor eax, eax ; function 0 : define and draw window xor eax, eax ; function 0 : define and draw window
mcall mcall
mcall 12,2 mcall 12,2
ret ret
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@ -80,7 +80,7 @@ draw_magnify:
shr eax, 16 shr eax, 16
inc eax inc eax
mov [size_x], eax mov [size_x], eax
xor ebx, ebx xor ebx, ebx
mcall 37 ; get mouse coordinates mcall 37 ; get mouse coordinates
mov ecx, eax mov ecx, eax
@ -137,7 +137,7 @@ draw_magnify:
if lang eq ru_RU if lang eq ru_RU
labelt: labelt:
db 'Magnifier - <20>ªà ­­ ï «ã¯ ', 0 db 'Magnifier - <20>ªà ­­ ï «ã¯ ', 0
else else ; Default to en_US
labelt: labelt:
db 'Magnifier', 0 db 'Magnifier', 0
end if end if

4
programs/demos/timer/trunk/timer.asm
View File

@ -16,7 +16,7 @@ use32
dd 0x1000 ; esp dd 0x1000 ; esp
dd 0x0 , 0x0 ; I_Param , I_Icon dd 0x0 , 0x0 ; I_Param , I_Icon
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
include '..\..\..\macros.inc' include '..\..\..\macros.inc'
START: ; start of execution START: ; start of execution
@ -139,7 +139,7 @@ draw_window:
if lang eq ru_RU if lang eq ru_RU
title db '’€‰Œ…<C592>',0 title db '’€‰Œ…<C592>',0
else else ; Default to en_US
title db 'TIMER',0 title db 'TIMER',0
end if end if

4
programs/develop/examples/template/trunk/build_fr.bat
View File

@ -1,5 +1,5 @@
@erase lang.inc @erase lang.inc
@echo lang fix fr >lang.inc @echo lang fix fr_FR >lang.inc
@fasm template.asm template @fasm template.asm template
@erase lang.inc @erase lang.inc
@pause @pause

8
programs/develop/examples/template/trunk/template.asm
View File

@ -5,10 +5,10 @@
; last update: 1/03/2007 ; last update: 1/03/2007
; written by: Ivan Poddubny ; written by: Ivan Poddubny
; e-mail: ivan-yar@bk.ru ; e-mail: ivan-yar@bk.ru
;modified by: Heavyiron, maxcodehack ; modified by: Heavyiron, maxcodehack
; <--- include all KolibriOS stuff ---> ; <--- include all KolibriOS stuff --->
include "lang.inc" include "lang.inc" ; Language support for locales: ru_RU (CP866), fr_FR, en_US.
include "..\..\..\..\macros.inc" include "..\..\..\..\macros.inc"
@ -62,7 +62,7 @@ CODE
xor eax, eax ; create and draw the window xor eax, eax ; create and draw the window
mov ebx, 100*65536+200 ; (window_cx)*65536+(window_sx) mov ebx, 100*65536+200 ; (window_cx)*65536+(window_sx)
mov ecx, 100*65536+100 ; (window_cy)*65536+(window_sy) mov ecx, 100*65536+100 ; (window_cy)*65536+(window_sy)
mov edx, [sc.work] ; work area color mov edx, [sc.work] ; work area color
or edx, 0x33000000 ; & window type 3 or edx, 0x33000000 ; & window type 3
mov edi, title ; window title mov edi, title ; window title
int 0x40 int 0x40
@ -80,7 +80,7 @@ if lang eq ru_RU
title db '˜ ¡«®­ ¯à®£à ¬¬ë',0 title db '˜ ¡«®­ ¯à®£à ¬¬ë',0
else if lang eq fr_FR else if lang eq fr_FR
title db 'La programme poncive',0 title db 'La programme poncive',0
else else ; Default to en_US
title db 'Template program',0 title db 'Template program',0
end if end if

10
programs/develop/examples/thread/trunk/thread.asm
View File

@ -15,7 +15,7 @@
dd 0x2000 ; esp dd 0x2000 ; esp
dd 0x0 , 0x0 ; I_Param , I_Icon dd 0x0 , 0x0 ; I_Param , I_Icon
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
include '..\..\..\..\macros.inc' include '..\..\..\..\macros.inc'
@ -97,7 +97,7 @@ draw_window:
mov edi,title ; WINDOW LABEL mov edi,title ; WINDOW LABEL
mcall mcall
mov eax,8 ; NEW THREAD BUTTON mov eax,8 ; NEW THREAD BUTTON
mov ebx,20*65536+128 mov ebx,20*65536+128
mov ecx,63*65536+20 mov ecx,63*65536+20
@ -136,11 +136,11 @@ if lang eq ru_RU
db '<27> ¬ïâì ¤«ï ¢á¥å ¯®â®ª®¢ ®¡é ï. ' db '<27> ¬ïâì ¤«ï ¢á¥å ¯®â®ª®¢ ®¡é ï. '
db ' ' db ' '
db ' ‘Ž‡„€’œ <20>Ž‚›‰ <20>Ž’ŽŠ ' db ' ‘Ž‡„€’œ <20>Ž‚›‰ <20>Ž’ŽŠ '
db 'x' ; <- END MARKER, DONT DELETE db 'x' ; <- END MARKER, DO NOT DELETE
title db '<27>ਬ¥à ¨á¯®«ì§®¢ ­¨ï ¯®â®ª®¢',0 title db '<27>ਬ¥à ¨á¯®«ì§®¢ ­¨ï ¯®â®ª®¢',0
else else ; Default to en_US
text: text:
db 'THIS EXAMPLE CREATES THREADS BY RUNNING ' db 'THIS EXAMPLE CREATES THREADS BY RUNNING '
db 'THE SAME CODE MULTIPLE TIMES. ALL WE ' db 'THE SAME CODE MULTIPLE TIMES. ALL WE '
@ -149,7 +149,7 @@ else
db ' ' db ' '
db ' ' db ' '
db ' CREATE NEW THREAD ' db ' CREATE NEW THREAD '
db 'x' ; <- END MARKER, DONT DELETE db 'x' ; <- END MARKER, DO NOT DELETE
title db 'THREAD EXAMPLE',0 title db 'THREAD EXAMPLE',0

85
programs/develop/fasm/1.73/traslations.inc
View File

@ -1,43 +1,42 @@
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
if lang eq ru_RU if lang eq ru_RU
text db ' ‚å” ©«:','‚ëå” ©«:',' <20>ãâì:' text db ' ‚å” ©«:','‚ëå” ©«:',' <20>ãâì:'
.line_size = ($-text)/3 .line_size = ($-text)/3
s_compile db 'Š®¬¯¨«.' s_compile db 'Š®¬¯¨«.'
s_run db ' <20>ã᪠' s_run db ' <20>ã᪠'
s_debug db 'Žâ« ¤ª ' s_debug db 'Žâ« ¤ª '
s_dbgdescr db '‘®§¤ ¢ âì ®â« ¤®ç­ãî ¨­ä®à¬ æ¨î',0 s_dbgdescr db '‘®§¤ ¢ âì ®â« ¤®ç­ãî ¨­ä®à¬ æ¨î',0
sz_EPnotFound db 'Not found entry point to ',0 sz_EPnotFound db 'Not found entry point to ',0
sizeof.sz_EPnotFound = $-sz_EPnotFound sizeof.sz_EPnotFound = $-sz_EPnotFound
sz_cantLL db 'Can not load library ',0 sz_cantLL db 'Cannot load library ',0
sizeof.sz_cantLL = $-sz_cantLL sizeof.sz_cantLL = $-sz_cantLL
sz_system_error db 'System error: ',0 sz_system_error db 'System error: ',0
sizeof.sz_system_error = $-sz_system_error sizeof.sz_system_error = $-sz_system_error
else else ; Default to en_US
text db ' InFile:','OutFile:',' Path:' text db ' InFile:','OutFile:',' Path:'
.line_size = ($-text)/3 .line_size = ($-text)/3
s_compile db 'COMPILE' s_compile db 'COMPILE'
s_run db ' RUN ' s_run db ' RUN '
s_debug db ' DEBUG ' s_debug db ' DEBUG '
s_dbgdescr db 'Generate debug information',0 s_dbgdescr db 'Generate debug information',0
sz_EPnotFound db 'Not found entry point to ',0 sz_EPnotFound db 'Not found entry point to ',0
sizeof.sz_EPnotFound = $-sz_EPnotFound sizeof.sz_EPnotFound = $-sz_EPnotFound
sz_cantLL db 'Can not load library ',0 sz_cantLL db 'Cannot load library ',0
sizeof.sz_cantLL = $-sz_cantLL sizeof.sz_cantLL = $-sz_cantLL
sz_system_error db 'System error: ',0 sz_system_error db 'System error: ',0
sizeof.sz_system_error = $-sz_system_error sizeof.sz_system_error = $-sz_system_error
end if end if

8
programs/develop/h2d2b/trunk/h2d2b.asm
View File

@ -22,7 +22,7 @@ include '../../../macros.inc' ;
include '../../../KOSfuncs.inc' include '../../../KOSfuncs.inc'
include '../../../load_lib.mac' include '../../../load_lib.mac'
include '../../../develop/libraries/box_lib/trunk/box_lib.mac' include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
@use_library @use_library
@ -170,7 +170,7 @@ draw_window:
;or esi, [sys_colors.grab_text] ;or esi, [sys_colors.grab_text]
mcall SF_CREATE_WINDOW, 200*65536+WIN_W, 200*65536+179, ,,title mcall SF_CREATE_WINDOW, 200*65536+WIN_W, 200*65536+179, ,,title
mcall SF_DEFINE_BUTTON, 15*65536+42,106*65536+ 21, 2, [sys_colors.work_button] ; ª­®¯ª  shl mcall SF_DEFINE_BUTTON, 15*65536+42,106*65536+ 21, 2, [sys_colors.work_button] ; ª­®¯ª  shl
mcall , 70*65536+42, , , ; ª­®¯ª  sal mcall , 70*65536+42, , , ; ª­®¯ª  sal
mcall , (WIN_W-55)*65536+42, , 3, ; ª­®¯ª  shr mcall , (WIN_W-55)*65536+42, , 3, ; ª­®¯ª  shr
@ -196,7 +196,7 @@ draw_window:
mcall SF_DRAW_NUMBER, 10*65536, ,(WIN_W-92)*65536+62, ; 10-­ ï á® §­ ª®¬ mcall SF_DRAW_NUMBER, 10*65536, ,(WIN_W-92)*65536+62, ; 10-­ ï á® §­ ª®¬
BIN_LINE_BLOCK_W = 76 BIN_LINE_BLOCK_W = 76
mcall SF_DRAW_NUMBER, 8*65536+512,,(WIN_W-BIN_LINE_BLOCK_W)*65536+30 ; 2-­ ï mcall SF_DRAW_NUMBER, 8*65536+512,,(WIN_W-BIN_LINE_BLOCK_W)*65536+30 ; 2-­ ï
ror ecx, 8 ror ecx, 8
mov edx, (WIN_W-BIN_LINE_BLOCK_W*2)*65536+30 mov edx, (WIN_W-BIN_LINE_BLOCK_W*2)*65536+30
mcall mcall
@ -275,7 +275,7 @@ string1_end:
if lang eq ru_RU if lang eq ru_RU
numstr db '—¨á«®:',0 numstr db '—¨á«®:',0
Okstr db '‚¢®¤',0 Okstr db '‚¢®¤',0
else else ; Default to en_US
numstr db 'Number:',0 numstr db 'Number:',0
Okstr db 'Enter',0 Okstr db 'Enter',0
end if end if

46
programs/develop/heed/trunk/heed.asm
View File

@ -13,7 +13,7 @@
; Marat Zakiyanov aka Mario79, aka Mario ; Marat Zakiyanov aka Mario79, aka Mario
;-------------------------------------------------------------------- ;--------------------------------------------------------------------
; v.014 05.02.2010 ; v.014 05.02.2010
; ;
; PageUp, PageDown - áâà ­¨æ  ¢¢¥àå/¢­¨§ ; PageUp, PageDown - áâà ­¨æ  ¢¢¥àå/¢­¨§
; Ctrl+UP, Ctrl+Down - ¯à®ªàã⪠ áâà ­¨æë ­  áâப㠢¢¥àå/¢­¨§ ¡¥§ ᬥ饭¨ï ªãàá®à  ; Ctrl+UP, Ctrl+Down - ¯à®ªàã⪠ áâà ­¨æë ­  áâப㠢¢¥àå/¢­¨§ ¡¥§ ᬥ饭¨ï ªãàá®à 
; Home,End - ¢ ­ ç «®/ª®­¥æ áâப¨ ; Home,End - ¢ ­ ç «®/ª®­¥æ áâப¨
@ -59,9 +59,9 @@ use32
;-------------------------------------------------------------------- ;--------------------------------------------------------------------
_title equ 'HeEd 0.16', 0 _title equ 'HeEd 0.16', 0
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
include '../../../KOSfuncs.inc' include '../../../KOSfuncs.inc'
include '../../../config.inc' ;for nightbuild include '../../../config.inc' ; for nightbuild
include '../../../macros.inc' include '../../../macros.inc'
include '../../libraries/box_lib/trunk/box_lib.mac' include '../../libraries/box_lib/trunk/box_lib.mac'
include '../../../load_lib.mac' include '../../../load_lib.mac'
@ -108,25 +108,25 @@ load_libraries l_libs_start,end_l_libs
;OpenDialog initialisation ;OpenDialog initialisation
push dword OpenDialog_data push dword OpenDialog_data
call [OpenDialog_Init] call [OpenDialog_Init]
;-------------------------------------------------------------------- ;--------------------------------------------------------------------
mov esi,fname_buf mov esi,fname_buf
cmp [esi],byte 0 cmp [esi],byte 0
je .start_temp_file_name je .start_temp_file_name
cld cld
@@: @@:
lodsb lodsb
test al,al test al,al
jne @b jne @b
std std
@@: @@:
lodsb lodsb
cmp al,'/' cmp al,'/'
jne @b jne @b
add esi,2 add esi,2
jmp .selected_start_file_name jmp .selected_start_file_name
;-------------------------------------------------------------------- ;--------------------------------------------------------------------
.start_temp_file_name: .start_temp_file_name:
mov esi,start_temp_file_name mov esi,start_temp_file_name
.selected_start_file_name: .selected_start_file_name:
@ -1068,7 +1068,7 @@ main_area:
mov ecx,edx mov ecx,edx
mov edx,frgrd_color mov edx,frgrd_color
movzx ebx,[scroll_bar_data_vertical.x_pos] movzx ebx,[scroll_bar_data_vertical.x_pos]
mov ax,[scroll_bar_data_vertical.x_size] mov ax,[scroll_bar_data_vertical.x_size]
test ax,ax test ax,ax
jnz .no_inc_ebx jnz .no_inc_ebx
@ -1091,7 +1091,7 @@ main_area:
shl ebx,16 shl ebx,16
mov bx,ax mov bx,ax
mov cx,16 mov cx,16
mov ax,[scroll_bar_data_vertical.x_size] mov ax,[scroll_bar_data_vertical.x_size]
test ax,ax test ax,ax
jnz .no_inc_ebx_2 jnz .no_inc_ebx_2
@ -1938,13 +1938,13 @@ draw_ed_box: ;
cmp al,1 cmp al,1
jne .2 jne .2
call draw_window call draw_window
mov eax,[threath_buf+70] mov eax,[threath_buf+70]
test eax,10b test eax,10b
jnz .2 jnz .2
test eax,100b test eax,100b
jnz .2 jnz .2
call main_area call main_area
bt [flags],2 bt [flags],2
jnc @f jnc @f
@ -2805,7 +2805,7 @@ Ctrl_V:
mov [shblock_end],eax mov [shblock_end],eax
jmp red jmp red
;-------------------------------------------------------------------- ;--------------------------------------------------------------------
;¥á«¨ ¡«®ª ­¥ ¢ë¤¥«¥­, â® ¢áâ ¢«ï¥¬ ¡«®ª ¯¥à¥¤ ªãàá®à®¬ ;¥á«¨ ¡«®ª ­¥ ¢ë¤¥«¥­, â® ¢áâ ¢«ï¥¬ ¡«®ª ¯¥à¥¤ ªãàá®à®¬
.past_kurs: .past_kurs:
; bt [flags],1 ; bt [flags],1
; jnc still ; jnc still
@ -2965,7 +2965,7 @@ menu_data_1:
.x1: .x1:
if lang eq ru_RU if lang eq ru_RU
.size_x1 dw 4*2+9*6 ;+32 .size_x1 dw 4*2+9*6 ;+32
else else ; Default to en_US
.size_x1 dw 40 ;+32 .size_x1 dw 40 ;+32
end if end if
.start_x1 dw 2 ;+34 .start_x1 dw 2 ;+34
@ -3000,7 +3000,7 @@ if lang eq ru_RU
db 'Žâªàëâì',0 db 'Žâªàëâì',0
db '‘®åà ­¨âì',0 db '‘®åà ­¨âì',0
db '‚ë室',0 db '‚ë室',0
else else ; Default to en_US
db 'File',0 db 'File',0
.1: .1:
db 'Open',0 db 'Open',0
@ -3056,7 +3056,7 @@ menu_text_area_2:
if lang eq ru_RU if lang eq ru_RU
db '‚¨¤',0 db '‚¨¤',0
.1: .1:
else else ; Default to en_US
db 'View',0 db 'View',0
.1: .1:
end if end if
@ -3074,7 +3074,7 @@ menu_data_3:
.x: .x:
if lang eq ru_RU if lang eq ru_RU
.size_x dw 4*2+7*6 ;+32 .size_x dw 4*2+7*6 ;+32
else else ; Default to en_US
.size_x dw 40 ;+4 .size_x dw 40 ;+4
end if end if
.start_x dw 84 ;+6 .start_x dw 84 ;+6
@ -3089,7 +3089,7 @@ end if
.x1: .x1:
if lang eq ru_RU if lang eq ru_RU
.size_x1 dw 4*2+7*6 ;+32 .size_x1 dw 4*2+7*6 ;+32
else else ; Default to en_US
.size_x1 dw 40 ;+32 .size_x1 dw 40 ;+32
end if end if
.start_x1 dw 84 ;+34 .start_x1 dw 84 ;+34
@ -3122,7 +3122,7 @@ if lang eq ru_RU
db '‘¯à ¢ª ',0 db '‘¯à ¢ª ',0
.1: .1:
db '‘¯à ¢ª ',0 db '‘¯à ¢ª ',0
else else ; Default to en_US
db 'Help',0 db 'Help',0
.1: .1:
db 'Help',0 db 'Help',0
@ -3155,7 +3155,7 @@ if lang eq ru_RU
.e2: .e2:
.3 db '<27> § ¤' .3 db '<27> § ¤'
.e3: .e3:
else else ; Default to en_US
.1 db 'Absolutely' .1 db 'Absolutely'
.e1: .e1:
.2 db 'Forward' .2 db 'Forward'
@ -3181,7 +3181,7 @@ head_f_i:
if lang eq ru_RU if lang eq ru_RU
error_open_file_string db "” ©« ­¥ ­ ©¤¥­!",0 error_open_file_string db "” ©« ­¥ ­ ©¤¥­!",0
error_save_file_string db "” ©« ­¥ á®åà ­¥­!",0 error_save_file_string db "” ©« ­¥ á®åà ­¥­!",0
else else ; Default to en_US
error_open_file_string db "Isn't found!",0 error_open_file_string db "Isn't found!",0
error_save_file_string db "Isn't saved!",0 error_save_file_string db "Isn't saved!",0
end if end if
@ -3240,7 +3240,7 @@ if lang eq ru_RU
db 'Ctrl+C - ª®¯¨à®¢ âì ¡«®ª ' db 'Ctrl+C - ª®¯¨à®¢ âì ¡«®ª '
db 'Ctrl+V - ¢áâ ¢¨âì ¢ ¢ë¤¥«¥­­ãî ®¡« áâì' db 'Ctrl+V - ¢áâ ¢¨âì ¢ ¢ë¤¥«¥­­ãî ®¡« áâì'
db 'Ctrl+X - ¢ë१ âì ¢ ¡ãä¥à ' db 'Ctrl+X - ¢ë१ âì ¢ ¡ãä¥à '
else else ; Default to en_US
db 'Ctrl+O - open file ' db 'Ctrl+O - open file '
db 'Ctrl+S - save file ' db 'Ctrl+S - save file '
db 'PageUp, PageDown - page up/down ' db 'PageUp, PageDown - page up/down '
@ -3268,7 +3268,7 @@ help_end:
;align 4096 ;align 4096
font_buffer file 'cp866-8x16' ;ASCII+cp866 (+ð,ñ) font_buffer file 'cp866-8x16' ;ASCII+cp866 (+ð,ñ)
cp1251 file 'cp1251-8x16' cp1251 file 'cp1251-8x16'
koi8_r file 'koi8-r-8x16' koi8_r file 'koi8-r-8x16'
title db _title title db _title
;--------------------------------------------------------------------- ;---------------------------------------------------------------------

919
programs/develop/info3ds/convert_stl_3ds.inc
View File

@ -1,459 +1,460 @@
; ;
; ”㭪樨 ¤«ï ¯à¥®¡à §®¢ ­¨ï ä ©«  *.stl ¢ *.3ds ; ”㭪樨 ¤«ï ¯à¥®¡à §®¢ ­¨ï ä ©«  *.stl ¢ *.3ds
; ;
; ‘âàãªâãà  á®§¤ ¢ ¥¬®£® ä ©«  *.3ds: ; ‘âàãªâãà  á®§¤ ¢ ¥¬®£® ä ©«  *.3ds:
; CHUNK_MAIN (40+n+v+f) ; CHUNK_MAIN (40+n+v+f)
; + CHUNK_OBJMESH (34+n+v+f) ; + CHUNK_OBJMESH (34+n+v+f)
; + CHUNK_OBJBLOCK (28+n+v+f) ; + CHUNK_OBJBLOCK (28+n+v+f)
; + CHUNK_TRIMESH (22+v+f) ; + CHUNK_TRIMESH (22+v+f)
; + CHUNK_VERTLIST (8+v) ; + CHUNK_VERTLIST (8+v)
; + CHUNK_FACELIST (8+f) ; + CHUNK_FACELIST (8+f)
; ;
; ¢ ᪮¡ª å 㪠§ ­ë à §¬¥àë ¡«®ª®¢: ; ¢ ᪮¡ª å 㪠§ ­ë à §¬¥àë ¡«®ª®¢:
; n - ¯ ¬ïâì ¤«ï ¨¬¥­¨ ®¡ê¥ªâ  ; n - ¯ ¬ïâì ¤«ï ¨¬¥­¨ ®¡ê¥ªâ 
; v - ¯ ¬ïâì ¤«ï ¢¥à設 ; v - ¯ ¬ïâì ¤«ï ¢¥à設
; f - ¯ ¬ïâì ¤«ï £à ­¥© ; f - ¯ ¬ïâì ¤«ï £à ­¥©
; ”®à¬ â ¡¨­ à­®£® *.stl: ; ”®à¬ â ¡¨­ à­®£® *.stl:
; char[80] - § £®«®¢®ª ; char[80] - § £®«®¢®ª
; uint32 - ç¨á«® £à ­¥© ; uint32 - ç¨á«® £à ­¥©
; ¤«ï ª ¦¤®© £à ­¨: ; ¤«ï ª ¦¤®© £à ­¨:
; float[3] - ¢¥ªâ®à ­®à¬ «¨ ; float[3] - ¢¥ªâ®à ­®à¬ «¨
; float[9] - ¢¥à設ë 1,2,3 ; float[9] - ¢¥à設ë 1,2,3
; uint16 -  âਡãâë ; uint16 -  âਡãâë
; Language support for locales: ru_RU (CP866), en_US.
if lang eq ru_RU
txt_err_stl_open: if lang eq ru_RU
db '"STL',13,10 txt_err_stl_open:
db '” ©« *.stl ®ç¥­ì ¡®«ì让." -tW',0 db '"STL',13,10
txt_err_stl_null_v: db '” ©« *.stl ®ç¥­ì ¡®«ì让." -tW',0
db '"STL',13,10 txt_err_stl_null_v:
db '‚¥àè¨­ë ­¥ ­ ©¤¥­ë." -tE',0 db '"STL',13,10
else db '‚¥àè¨­ë ­¥ ­ ©¤¥­ë." -tE',0
txt_err_stl_open: else ; Default to en_US
db '"STL',13,10 txt_err_stl_open:
db 'File *.stl is very large." -tW',0 db '"STL',13,10
txt_err_stl_null_v: db 'File *.stl is very large." -tW',0
db '"STL',13,10 txt_err_stl_null_v:
db 'Vertexes not found." -tE',0 db '"STL',13,10
end if db 'Vertexes not found." -tE',0
end if
;output:
; eax - 㪠§ â¥«ì ­  áä®à¬¨à®¢ ­ë© ä ©« 3ds (¢ á«ãç ¥ ­¥ã¤ ç¨ 0) ;output:
; ecx - à §¬¥à áä®à¬¨à®¢ ­®£® ä ©«  3ds ; eax - 㪠§ â¥«ì ­  áä®à¬¨à®¢ ­ë© ä ©« 3ds (¢ á«ãç ¥ ­¥ã¤ ç¨ 0)
align 4 ; ecx - à §¬¥à áä®à¬¨à®¢ ­®£® ä ©«  3ds
proc convert_stl_3ds uses ebx edx edi esi, f_data:dword, f_size:dword align 4
locals proc convert_stl_3ds uses ebx edx edi esi, f_data:dword, f_size:dword
c_mem dd ? ;¯ ¬ïâì ¤«ï ¯à¥®¡à §®¢ ­¨ï (convert memory) locals
c_size dd ? ;à §¬¥à ¯ ¬ï⨠¤«ï ¯à¥®¡à §®¢ ­¨© (convert memory size) c_mem dd ? ;¯ ¬ïâì ¤«ï ¯à¥®¡à §®¢ ­¨ï (convert memory)
vert_c dd ? ;ç¨á«® ¢¥à設 (vertex count) c_size dd ? ;à §¬¥à ¯ ¬ï⨠¤«ï ¯à¥®¡à §®¢ ­¨© (convert memory size)
face_c dd ? ;ç¨á«® £à ­¥© (faces count) vert_c dd ? ;ç¨á«® ¢¥à設 (vertex count)
endl face_c dd ? ;ç¨á«® £à ­¥© (faces count)
xor eax,eax endl
mov esi,[f_data] xor eax,eax
cmp dword[esi],'soli' mov esi,[f_data]
jne .bin_stl cmp dword[esi],'soli'
cmp word[esi+4],'d ' jne .bin_stl
jne .bin_stl cmp word[esi+4],'d '
jne .bin_stl
jmp @f
.bin_stl: jmp @f
;¯à®¢¥à塞 ä ©« ­  ¡¨­ à­ë© ä®à¬ â .bin_stl:
mov ecx,[esi+80] ;¯à®¢¥à塞 ä ©« ­  ¡¨­ à­ë© ä®à¬ â
imul ecx,50 mov ecx,[esi+80]
add ecx,84 ;§ £®«®¢®ª imul ecx,50
cmp ecx,[f_size] add ecx,84 ;§ £®«®¢®ª
jne .no_stl cmp ecx,[f_size]
call convert_binary_stl jne .no_stl
jmp .no_stl call convert_binary_stl
@@: jmp .no_stl
@@:
;¢ ­ ç «¥ ­ ©¤¥­® 'solid '
stdcall txt_next_line, 80 ;¢ ­ ç «¥ ­ ©¤¥­® 'solid '
stdcall txt_next_line, 80
mov eax,[f_data]
sub eax,esi mov eax,[f_data]
add eax,[f_size] sub eax,esi
stdcall get_stl_vertex_count, esi,eax add eax,[f_size]
or eax,eax stdcall get_stl_vertex_count, esi,eax
jnz @f or eax,eax
notify_window_run txt_err_stl_null_v jnz @f
jmp .no_stl notify_window_run txt_err_stl_null_v
@@: jmp .no_stl
cmp eax,0xffff @@:
jle @f cmp eax,0xffff
notify_window_run txt_err_stl_open jle @f
mov eax,0xffff notify_window_run txt_err_stl_open
@@: mov eax,0xffff
@@:
mov [vert_c],eax
mov ecx,3 mov [vert_c],eax
xor edx,edx mov ecx,3
div ecx xor edx,edx
mov [face_c],eax div ecx
shl eax,3 mov [face_c],eax
mov ecx,[vert_c] shl eax,3
imul ecx,12 mov ecx,[vert_c]
lea ecx,[ecx+eax+40] imul ecx,12
lea edx,[esi-6] lea ecx,[ecx+eax+40]
sub edx,[f_data] lea edx,[esi-6]
cmp edx,2 sub edx,[f_data]
jge @f cmp edx,2
mov edx,2 ;¬¨­¨¬ «ì­ë© à §¬¥à ¤«ï ¨¬¥­¨ ®¡ê¥ªâ  jge @f
@@: mov edx,2 ;¬¨­¨¬ «ì­ë© à §¬¥à ¤«ï ¨¬¥­¨ ®¡ê¥ªâ 
add ecx,edx ;for object name @@:
mov [c_size],ecx add ecx,edx ;for object name
stdcall mem.Alloc,ecx mov [c_size],ecx
mov [c_mem],eax stdcall mem.Alloc,ecx
mov ebx,eax mov [c_mem],eax
mov ebx,eax
mov word[ebx],CHUNK_MAIN
mov dword[ebx+2],ecx mov word[ebx],CHUNK_MAIN
add ebx,6 mov dword[ebx+2],ecx
add ebx,6
;3d3d
mov word[ebx],CHUNK_OBJMESH ;3d3d
sub ecx,6 mov word[ebx],CHUNK_OBJMESH
mov dword[ebx+2],ecx sub ecx,6
add ebx,6 mov dword[ebx+2],ecx
add ebx,6
;4000
mov word[ebx],CHUNK_OBJBLOCK ;4000
sub ecx,6 mov word[ebx],CHUNK_OBJBLOCK
mov dword[ebx+2],ecx sub ecx,6
add ebx,6 mov dword[ebx+2],ecx
add ebx,6
push ecx esi
mov ecx,edx push ecx esi
mov edi,ebx mov ecx,edx
mov esi,[f_data] mov edi,ebx
add esi,6 ;¯à®¯ã᪠¥¬ 'solid ' mov esi,[f_data]
rep movsb ;ª®¯¨à㥬 ¨¬ï ®¡ê¥ªâ  add esi,6 ;¯à®¯ã᪠¥¬ 'solid '
mov byte[edi-1],0 rep movsb ;ª®¯¨à㥬 ¨¬ï ®¡ê¥ªâ 
add ebx,edx mov byte[edi-1],0
pop esi ecx add ebx,edx
pop esi ecx
;4100
mov word[ebx],CHUNK_TRIMESH ;4100
sub ecx,6 mov word[ebx],CHUNK_TRIMESH
mov dword[ebx+2],ecx sub ecx,6
add ebx,6 mov dword[ebx+2],ecx
add ebx,6
;4110
mov word[ebx],CHUNK_VERTLIST ;4110
mov dword[ebx+2],8 ;+ ç¨á«® ¢¥à設 * 12 mov word[ebx],CHUNK_VERTLIST
add ebx,6 mov dword[ebx+2],8 ;+ ç¨á«® ¢¥à設 * 12
add ebx,6
mov edx,ebx
mov word[edx],0 ;ª®«. ¢¥à設 mov edx,ebx
add ebx,2 mov word[edx],0 ;ª®«. ¢¥à設
finit add ebx,2
.cycle0: finit
call txt_ignore_space .cycle0:
cmp dword[esi],'face' call txt_ignore_space
jne .end_v cmp dword[esi],'face'
stdcall txt_next_line, 80 jne .end_v
stdcall txt_next_line, 80
call txt_ignore_space
cmp dword[esi],'oute' call txt_ignore_space
jne .end_v cmp dword[esi],'oute'
stdcall txt_next_line, 80 jne .end_v
stdcall txt_next_line, 80
mov ecx,3 ;3 â®çª¨ ­  1 £à ­ì
@@: mov ecx,3 ;3 â®çª¨ ­  1 £à ­ì
stdcall stl_vertex_init, ebx @@:
or eax,eax stdcall stl_vertex_init, ebx
jz .end_v or eax,eax
add ebx,12 jz .end_v
inc word[edx] add ebx,12
loop @b inc word[edx]
loop @b
mov eax,[vert_c]
cmp word[edx],ax mov eax,[vert_c]
jge .end_v cmp word[edx],ax
call txt_ignore_space jge .end_v
cmp dword[esi],'endl' call txt_ignore_space
jne .end_v cmp dword[esi],'endl'
stdcall txt_next_line, 80 jne .end_v
stdcall txt_next_line, 80
call txt_ignore_space
cmp dword[esi],'endf' call txt_ignore_space
jne .end_v cmp dword[esi],'endf'
stdcall txt_next_line, 80 jne .end_v
jmp .cycle0 stdcall txt_next_line, 80
.end_v: jmp .cycle0
.end_v:
movzx eax,word[edx]
imul eax,12 movzx eax,word[edx]
add [edx-4],eax ;¨á¯à ¢«ï¥¬ à §¬¥à ¡«®ª  4110 imul eax,12
add [edx-4],eax ;¨á¯à ¢«ï¥¬ à §¬¥à ¡«®ª  4110
;4120
mov word[ebx],CHUNK_FACELIST ;4120
mov ecx,[face_c] mov word[ebx],CHUNK_FACELIST
mov edx,ecx mov ecx,[face_c]
shl edx,3 ;ª®«. £à ­¥© * 8 mov edx,ecx
add edx,8 shl edx,3 ;ª®«. £à ­¥© * 8
mov [ebx+2],edx add edx,8
add ebx,6 mov [ebx+2],edx
mov [ebx],cx ;ª®«. £à ­¥© add ebx,6
add ebx,2 mov [ebx],cx ;ª®«. £à ­¥©
xor eax,eax add ebx,2
@@: xor eax,eax
mov [ebx],ax @@:
inc eax mov [ebx],ax
mov [ebx+2],ax inc eax
inc eax mov [ebx+2],ax
mov [ebx+4],ax inc eax
inc eax mov [ebx+4],ax
mov word[ebx+6],0 ; âਡãâë inc eax
add ebx,8 mov word[ebx+6],0 ; âਡãâë
loop @b add ebx,8
loop @b
mov eax,[c_mem]
mov ecx,[c_size] mov eax,[c_mem]
.no_stl: mov ecx,[c_size]
ret .no_stl:
endp ret
endp
;input:
; esi - 㪠§ â¥«ì ­  ­ ç «® ä ©«  ;input:
; ecx - à §¬¥à ä ©«  ; esi - 㪠§ â¥«ì ­  ­ ç «® ä ©« 
align 4 ; ecx - à §¬¥à ä ©« 
proc convert_binary_stl align 4
locals proc convert_binary_stl
c_mem dd ? ;¯ ¬ïâì ¤«ï ¯à¥®¡à §®¢ ­¨ï (convert memory) locals
c_size dd ? ;à §¬¥à ¯ ¬ï⨠¤«ï ¯à¥®¡à §®¢ ­¨© (convert memory size) c_mem dd ? ;¯ ¬ïâì ¤«ï ¯à¥®¡à §®¢ ­¨ï (convert memory)
vert_c dd ? ;ç¨á«® ¢¥à設 (vertex count) c_size dd ? ;à §¬¥à ¯ ¬ï⨠¤«ï ¯à¥®¡à §®¢ ­¨© (convert memory size)
face_c dd ? ;ç¨á«® £à ­¥© (faces count) vert_c dd ? ;ç¨á«® ¢¥à設 (vertex count)
endl face_c dd ? ;ç¨á«® £à ­¥© (faces count)
mov eax,[esi+80] endl
or eax,eax mov eax,[esi+80]
jnz @f or eax,eax
notify_window_run txt_err_stl_null_v jnz @f
jmp .no_stl notify_window_run txt_err_stl_null_v
@@: jmp .no_stl
cmp eax,0xffff/3 @@:
jle @f cmp eax,0xffff/3
notify_window_run txt_err_stl_open jle @f
mov eax,0xffff/3 notify_window_run txt_err_stl_open
@@: mov eax,0xffff/3
@@:
mov [face_c],eax
mov ecx,eax mov [face_c],eax
imul eax,3 mov ecx,eax
mov [vert_c],eax imul eax,3
shl ecx,3 mov [vert_c],eax
imul eax,12 shl ecx,3
lea ecx,[ecx+eax+40+4] ;+4 à §¬¥à ¤«ï ¨¬¥­¨ ®¡ê¥ªâ  imul eax,12
mov [c_size],ecx lea ecx,[ecx+eax+40+4] ;+4 à §¬¥à ¤«ï ¨¬¥­¨ ®¡ê¥ªâ 
stdcall mem.Alloc,ecx mov [c_size],ecx
mov [c_mem],eax stdcall mem.Alloc,ecx
mov ebx,eax mov [c_mem],eax
mov ebx,eax
mov word[ebx],CHUNK_MAIN
mov dword[ebx+2],ecx mov word[ebx],CHUNK_MAIN
add ebx,6 mov dword[ebx+2],ecx
add ebx,6
;3d3d
mov word[ebx],CHUNK_OBJMESH ;3d3d
sub ecx,6 mov word[ebx],CHUNK_OBJMESH
mov dword[ebx+2],ecx sub ecx,6
add ebx,6 mov dword[ebx+2],ecx
add ebx,6
;4000
mov word[ebx],CHUNK_OBJBLOCK ;4000
sub ecx,6 mov word[ebx],CHUNK_OBJBLOCK
mov dword[ebx+2],ecx sub ecx,6
add ebx,6 mov dword[ebx+2],ecx
mov dword[ebx],'Stl' ;¨¬ï ®¡ê¥ªâ  add ebx,6
add ebx,4 mov dword[ebx],'Stl' ;¨¬ï ®¡ê¥ªâ 
add ebx,4
;4100
mov word[ebx],CHUNK_TRIMESH ;4100
sub ecx,6 mov word[ebx],CHUNK_TRIMESH
mov dword[ebx+2],ecx sub ecx,6
add ebx,6 mov dword[ebx+2],ecx
add ebx,6
;4110
mov word[ebx],CHUNK_VERTLIST ;4110
mov dword[ebx+2],8 ;+ ç¨á«® ¢¥à設 * 12 mov word[ebx],CHUNK_VERTLIST
add ebx,6 mov dword[ebx+2],8 ;+ ç¨á«® ¢¥à設 * 12
add ebx,6
mov edx,ebx
mov ecx,[vert_c] mov edx,ebx
mov word[edx],cx ;ª®«. ¢¥à設 mov ecx,[vert_c]
add ebx,2 mov word[edx],cx ;ª®«. ¢¥à設
add ebx,2
add esi,80+4+12 ;¯à®¯ã᪠§ £®«®¢ª , ç¨á«  £à ­¥©, 1-£® ¢¥ªâ®à  ­®à¬ «¥©
mov edi,ebx add esi,80+4+12 ;¯à®¯ã᪠§ £®«®¢ª , ç¨á«  £à ­¥©, 1-£® ¢¥ªâ®à  ­®à¬ «¥©
mov eax,[face_c] mov edi,ebx
@@: ;横« ¯® £à ­ï¬ mov eax,[face_c]
mov ecx,9 @@: ;横« ¯® £à ­ï¬
rep movsd ;ª®¯¨à㥬 ª®®à¤¨­ âë 3-å ¢¥à設 mov ecx,9
add esi,14 ;¯à®¯ã᪠¢¥ªâ®à  ­®à¬ «¥© ¨  âਡã⮢ rep movsd ;ª®¯¨à㥬 ª®®à¤¨­ âë 3-å ¢¥à設
dec eax add esi,14 ;¯à®¯ã᪠¢¥ªâ®à  ­®à¬ «¥© ¨  âਡã⮢
jnz @b dec eax
mov ebx,edi jnz @b
mov ebx,edi
movzx eax,word[edx]
imul eax,12 movzx eax,word[edx]
add [edx-4],eax ;¨á¯à ¢«ï¥¬ à §¬¥à ¡«®ª  4110 imul eax,12
add [edx-4],eax ;¨á¯à ¢«ï¥¬ à §¬¥à ¡«®ª  4110
;4120
mov word[ebx],CHUNK_FACELIST ;4120
mov ecx,[face_c] mov word[ebx],CHUNK_FACELIST
mov edx,ecx mov ecx,[face_c]
shl edx,3 ;ª®«. £à ­¥© * 8 mov edx,ecx
add edx,8 shl edx,3 ;ª®«. £à ­¥© * 8
mov [ebx+2],edx add edx,8
add ebx,6 mov [ebx+2],edx
mov [ebx],cx ;ª®«. £à ­¥© add ebx,6
add ebx,2 mov [ebx],cx ;ª®«. £à ­¥©
xor eax,eax add ebx,2
@@: xor eax,eax
mov [ebx],ax @@:
inc eax mov [ebx],ax
mov [ebx+2],ax inc eax
inc eax mov [ebx+2],ax
mov [ebx+4],ax inc eax
inc eax mov [ebx+4],ax
mov word[ebx+6],0 ; âਡãâë inc eax
add ebx,8 mov word[ebx+6],0 ; âਡãâë
loop @b add ebx,8
loop @b
mov eax,[c_mem]
mov ecx,[c_size] mov eax,[c_mem]
.no_stl: mov ecx,[c_size]
ret .no_stl:
endp ret
endp
;output:
; eax - vertex count ;output:
align 4 ; eax - vertex count
proc get_stl_vertex_count uses ebx ecx edi, f_data:dword, f_size:dword align 4
mov al,'v' proc get_stl_vertex_count uses ebx ecx edi, f_data:dword, f_size:dword
xor ebx,ebx mov al,'v'
mov ecx,[f_size] xor ebx,ebx
mov edi,[f_data] mov ecx,[f_size]
.cycle0: mov edi,[f_data]
repne scasb .cycle0:
cmp dword[edi],'erte' repne scasb
jne @f cmp dword[edi],'erte'
inc ebx jne @f
add edi,4 inc ebx
sub ecx,4 add edi,4
cmp ecx,4 sub ecx,4
jg .cycle0 cmp ecx,4
@@: jg .cycle0
mov eax,ebx @@:
ret mov eax,ebx
endp ret
endp
;input:
; esi - input description text ;input:
; ppoi - pointer to vertex struct ; esi - input description text
;output: ; ppoi - pointer to vertex struct
; eax - 0 (if error init) or 1 ;output:
; esi - output description text ; eax - 0 (if error init) or 1
align 4 ; esi - output description text
proc stl_vertex_init uses ebx ecx edi, ppoi:dword align 4
call txt_ignore_space proc stl_vertex_init uses ebx ecx edi, ppoi:dword
cmp dword[esi],'vert' call txt_ignore_space
jne .err_init cmp dword[esi],'vert'
cmp word[esi+4],'ex' jne .err_init
jne .err_init cmp word[esi+4],'ex'
add esi,6 jne .err_init
mov ebx,[ppoi] add esi,6
mov ebx,[ppoi]
call txt_copy_data
call String_to_DoubleFloat call txt_copy_data
fld qword[Data_Double] call String_to_DoubleFloat
fstp dword[ebx] ;coord X fld qword[Data_Double]
fstp dword[ebx] ;coord X
call txt_copy_data
call String_to_DoubleFloat call txt_copy_data
fld qword[Data_Double] call String_to_DoubleFloat
fstp dword[ebx+4] ;coord X fld qword[Data_Double]
fstp dword[ebx+4] ;coord X
call txt_copy_data
call String_to_DoubleFloat call txt_copy_data
fld qword[Data_Double] call String_to_DoubleFloat
fstp dword[ebx+8] ;coord Z fld qword[Data_Double]
fstp dword[ebx+8] ;coord Z
stdcall txt_next_line, 80
jmp @f stdcall txt_next_line, 80
.err_init: jmp @f
xor eax,eax .err_init:
jmp .end_f xor eax,eax
@@: jmp .end_f
xor eax,eax @@:
inc eax xor eax,eax
.end_f: inc eax
ret .end_f:
endp ret
endp
;input:
; esi - 㪠§ â¥«ì ­  ­ ç «® áâப¨ á ¯à®¡¥« ¬¨ ;input:
;output: ; esi - 㪠§ â¥«ì ­  ­ ç «® áâப¨ á ¯à®¡¥« ¬¨
; al - destroy ;output:
; ecx - destroy ; al - destroy
; esi - 㪠§ â¥«ì ­  ¯¥à¢ë© ­¥¯à®¡¥«ì­ë© ᨬ¢®« ; ecx - destroy
align 4 ; esi - 㪠§ â¥«ì ­  ¯¥à¢ë© ­¥¯à®¡¥«ì­ë© ᨬ¢®«
txt_ignore_space: align 4
mov ecx,64 ;§ é¨â  ®â § æ¨ª«¨¢ ­¨ï txt_ignore_space:
@@: mov ecx,64 ;§ é¨â  ®â § æ¨ª«¨¢ ­¨ï
lodsb @@:
cmp al,' ' lodsb
jne @f cmp al,' '
loop @b jne @f
@@: loop @b
dec esi @@:
ret dec esi
ret
;input:
; esi - 㪠§ â¥«ì ­  áâபã á ç¨á«®¬ (¯à®¡¥«ë ¢ ­ ç «¥ áâப¨ ¨£­®à¨àãîâìáï) ;input:
;output: ; esi - 㪠§ â¥«ì ­  áâபã á ç¨á«®¬ (¯à®¡¥«ë ¢ ­ ç «¥ áâப¨ ¨£­®à¨àãîâìáï)
; al - destroy ;output:
; ecx - destroy ; al - destroy
; edi - destroy ; ecx - destroy
; esi - 㪠§ â¥«ì ­  ª®­¥æ ª®¯¨à®¢ ­­®£® ç¨á«  ; edi - destroy
; Data_String - áâப  á ç¨á«®¬ ¨§ esi ; esi - 㪠§ â¥«ì ­  ª®­¥æ ª®¯¨à®¢ ­­®£® ç¨á« 
align 4 ; Data_String - áâப  á ç¨á«®¬ ¨§ esi
txt_copy_data: align 4
call txt_ignore_space txt_copy_data:
mov ecx,32 call txt_ignore_space
mov edi,esi mov ecx,32
@@: mov edi,esi
lodsb @@:
or al,al lodsb
jz @f or al,al
cmp al,' ' jz @f
je @f cmp al,' '
cmp al,13 je @f
je @f cmp al,13
loop @b je @f
@@: loop @b
mov esi,edi @@:
sub ecx,32 mov esi,edi
neg ecx sub ecx,32
mov edi,Data_String neg ecx
rep movsb mov edi,Data_String
mov byte[edi],0 rep movsb
ret mov byte[edi],0
ret
;input:
; esi - text pointer ;input:
align 4 ; esi - text pointer
proc txt_next_line uses eax ecx edi, mlen:dword align 4
mov al,13 proc txt_next_line uses eax ecx edi, mlen:dword
mov ecx,[mlen] mov al,13
mov edi,esi mov ecx,[mlen]
repne scasb mov edi,esi
cmp byte[edi],10 repne scasb
jne @f cmp byte[edi],10
inc edi jne @f
@@: inc edi
mov esi,edi @@:
ret mov esi,edi
endp ret
endp

644
programs/develop/info3ds/data.inc
View File

@ -1,320 +1,324 @@
; ;
; §¤¥áì á®¡à ­ë ¤ ­­ë¥ ¯® ¡«®ª ¬ *.3ds ; §¤¥áì á®¡à ­ë ¤ ­­ë¥ ¯® ¡«®ª ¬ *.3ds
; ;
MAX_FILE_LEVEL equ 20 ;¬ ªá¨¬ «ì­ë© ã஢¥­ì ¢«®¦¥­­®á⨠¡«®ª®¢ ¤«ï  ­ «¨§  ; Language support for locales: ru_RU (CP866), en_US.
sizeof.block_3ds equ 9 MAX_FILE_LEVEL equ 20 ;¬ ªá¨¬ «ì­ë© ã஢¥­ì ¢«®¦¥­­®á⨠¡«®ª®¢ ¤«ï  ­ «¨§ 
can_save db 0 ;¨§¬¥­ï«áï «¨ ä ©«
sizeof.block_3ds equ 9
macro block_3ds id,icon,par,caption can_save db 0 ;¨§¬¥­ï«áï «¨ ä ©«
{
dw id ;+0 ¨¤¥­â¨ä¨ª â®à ¡«®ª  ¢ ä ©«¥ 3ds macro block_3ds id,icon,par,caption
dw icon ;+2 ­®¬¥à ¨ª®­ª¨ ¤«ï ¡«®ª  {
db par ;+4 ᮤ¥à¦¨â «¨ ¡«®ª ¯®¤¡«®ª¨ (0-¤  1-­¥â) dw id ;+0 ¨¤¥­â¨ä¨ª â®à ¡«®ª  ¢ ä ©«¥ 3ds
dd caption+0 ;+5 ®¯¨á ­¨¥ ¡«®ª  dw icon ;+2 ­®¬¥à ¨ª®­ª¨ ¤«ï ¡«®ª 
} db par ;+4 ᮤ¥à¦¨â «¨ ¡«®ª ¯®¤¡«®ª¨ (0-¤  1-­¥â)
dd caption+0 ;+5 ®¯¨á ­¨¥ ¡«®ª 
CHUNK_MAIN equ 0x4D4D ; [-] á業  }
CHUNK_ambient_color equ 0x2100 ; [-] ambient color
CHUNK_OBJMESH equ 0x3D3D ; [-] ­ ¡®à ®¡ê¥ªâ®¢ CHUNK_MAIN equ 0x4D4D ; [-] á業 
CHUNK_OBJBLOCK equ 0x4000 ; [+] ®¡ê¥ªâ CHUNK_ambient_color equ 0x2100 ; [-] ambient color
CHUNK_TRIMESH equ 0x4100 ; [-] trimesh-®¡ê¥ªâ CHUNK_OBJMESH equ 0x3D3D ; [-] ­ ¡®à ®¡ê¥ªâ®¢
CHUNK_VERTLIST equ 0x4110 ; [+] ᯨ᮪ ¢¥à設 CHUNK_OBJBLOCK equ 0x4000 ; [+] ®¡ê¥ªâ
CHUNK_FACELIST equ 0x4120 ; [+] ᯨ᮪ £à ­¥© CHUNK_TRIMESH equ 0x4100 ; [-] trimesh-®¡ê¥ªâ
CHUNK_FACEMAT equ 0x4130 ; [+] ¬ â¥à¨ «ë £à ­¥© CHUNK_VERTLIST equ 0x4110 ; [+] ᯨ᮪ ¢¥à設
CHUNK_MAPLIST equ 0x4140 ; [+] ⥪áâãà­ë¥ ª®®à¤¨­ âë CHUNK_FACELIST equ 0x4120 ; [+] ᯨ᮪ £à ­¥©
CHUNK_TRMATRIX equ 0x4160 ; [+] ¬ âà¨æ  ¯¥à¥¢®¤  CHUNK_FACEMAT equ 0x4130 ; [+] ¬ â¥à¨ «ë £à ­¥©
CHUNK_CAMERA equ 0x4700 ; [+] ®¡ê¥ªâ-ª ¬¥à  CHUNK_MAPLIST equ 0x4140 ; [+] ⥪áâãà­ë¥ ª®®à¤¨­ âë
CHUNK_MATERIAL equ 0xAFFF ; [-] ¬ â¥à¨ « CHUNK_TRMATRIX equ 0x4160 ; [+] ¬ âà¨æ  ¯¥à¥¢®¤ 
CHUNK_MATNAME equ 0xA000 ; [+] ­ §¢ ­¨¥ ¬ â¥à¨ «  CHUNK_CAMERA equ 0x4700 ; [+] ®¡ê¥ªâ-ª ¬¥à 
CHUNK_TEXTURE equ 0xA200 ; [-] ⥪áâãà  ¬ â¥à¨ «  CHUNK_MATERIAL equ 0xAFFF ; [-] ¬ â¥à¨ «
CHUNK_MAPFILE equ 0xA300 ; [+] ¨¬ï ä ©«  ⥪áâãàë CHUNK_MATNAME equ 0xA000 ; [+] ­ §¢ ­¨¥ ¬ â¥à¨ « 
CHUNK_KEYFRAMER equ 0xB000 ; [-] ¨­ä®à¬ æ¨ï ®¡  ­¨¬ æ¨¨ CHUNK_TEXTURE equ 0xA200 ; [-] ⥪áâãà  ¬ â¥à¨ « 
CHUNK_TRACKINFO equ 0xB002 ; [-] ¯®¢¥¤¥­¨¥ ®¡ê¥ªâ  CHUNK_MAPFILE equ 0xA300 ; [+] ¨¬ï ä ©«  ⥪áâãàë
CHUNK_TRACKOBJNAME equ 0xB010 ; [+] ­ §¢ ­¨¥ í⮣® ®¡ê¥ªâ  CHUNK_KEYFRAMER equ 0xB000 ; [-] ¨­ä®à¬ æ¨ï ®¡  ­¨¬ æ¨¨
CHUNK_TRACKPIVOT equ 0xB013 ; [+] 業âà ¢à é¥­¨ï ®¡ê¥ªâ  CHUNK_TRACKINFO equ 0xB002 ; [-] ¯®¢¥¤¥­¨¥ ®¡ê¥ªâ 
CHUNK_TRACKPOS equ 0xB020 ; [+] âà ¥ªâ®à¨ï ®¡ê¥ªâ  CHUNK_TRACKOBJNAME equ 0xB010 ; [+] ­ §¢ ­¨¥ í⮣® ®¡ê¥ªâ 
CHUNK_TRACKROTATE equ 0xB021 ; [+] âà ¥ªâ®à¨ï ¢à é¥­¨ï ®¡ê¥ªâ  CHUNK_TRACKPIVOT equ 0xB013 ; [+] 業âà ¢à é¥­¨ï ®¡ê¥ªâ 
CHUNK_TRACKCAMERA equ 0xB003 ; [-] ¯®¢¥¤¥­¨¥ ª ¬¥àë CHUNK_TRACKPOS equ 0xB020 ; [+] âà ¥ªâ®à¨ï ®¡ê¥ªâ 
CHUNK_TRACKFOV equ 0xB023 ; [+] ¯®¢¥¤¥­¨¥ fov ª ¬¥àë CHUNK_TRACKROTATE equ 0xB021 ; [+] âà ¥ªâ®à¨ï ¢à é¥­¨ï ®¡ê¥ªâ 
CHUNK_TRACKROLL equ 0xB024 ; [+] ¯®¢¥¤¥­¨¥ roll ª ¬¥àë CHUNK_TRACKCAMERA equ 0xB003 ; [-] ¯®¢¥¤¥­¨¥ ª ¬¥àë
CHUNK_TRACKCAMTGT equ 0xB004 ; [-] ¯®¢¥¤¥­¨¥ "楫¨" ª ¬¥àë CHUNK_TRACKFOV equ 0xB023 ; [+] ¯®¢¥¤¥­¨¥ fov ª ¬¥àë
CHUNK_TRACKROLL equ 0xB024 ; [+] ¯®¢¥¤¥­¨¥ roll ª ¬¥àë
;¤ ­­ë¥ ᮤ¥à¦ â «¨èì ¡«®ª¨, ®â¬¥ç¥­­ë¥ ¯«îᮬ, ®áâ «ì­ë¥ ¡«®ª¨ CHUNK_TRACKCAMTGT equ 0xB004 ; [-] ¯®¢¥¤¥­¨¥ "楫¨" ª ¬¥àë
; á®áâ®ïâ «¨èì ¨§ ¯®¤¡«®ª®¢
;¤ ­­ë¥ ᮤ¥à¦ â «¨èì ¡«®ª¨, ®â¬¥ç¥­­ë¥ ¯«îᮬ, ®áâ «ì­ë¥ ¡«®ª¨
align 4 ; á®áâ®ïâ «¨èì ¨§ ¯®¤¡«®ª®¢
type_bloks:
block_3ds 0x0002,5,1,txt_0002 align 4
block_3ds 0x3d3e,5,1 ; [+] mesh version type_bloks:
block_3ds 0x0011,4,1,txt_0011 block_3ds 0x0002,5,1,txt_0002
block_3ds 0x0100,3,1,txt_0100 block_3ds 0x3d3e,5,1 ; [+] mesh version
block_3ds CHUNK_ambient_color,3,0,txt_2100 ; [-] ambient color block_3ds 0x0011,4,1,txt_0011
block_3ds CHUNK_OBJMESH, 3,0,txt_3d3d block_3ds 0x0100,3,1,txt_0100
block_3ds CHUNK_OBJBLOCK,11,1,txt_4000 block_3ds CHUNK_ambient_color,3,0,txt_2100 ; [-] ambient color
block_3ds CHUNK_TRIMESH, 3,0,txt_4100 block_3ds CHUNK_OBJMESH, 3,0,txt_3d3d
block_3ds CHUNK_VERTLIST,8,1,txt_4110 block_3ds CHUNK_OBJBLOCK,11,1,txt_4000
block_3ds CHUNK_FACELIST,3,1,txt_4120 block_3ds CHUNK_TRIMESH, 3,0,txt_4100
block_3ds CHUNK_FACEMAT,10,1,txt_4130 block_3ds CHUNK_VERTLIST,8,1,txt_4110
block_3ds CHUNK_MAPLIST, 3,1,txt_4140 block_3ds CHUNK_FACELIST,3,1,txt_4120
block_3ds CHUNK_TRMATRIX,3,1,txt_4160 block_3ds CHUNK_FACEMAT,10,1,txt_4130
block_3ds 0x4600,3,1,txt_4600 block_3ds CHUNK_MAPLIST, 3,1,txt_4140
block_3ds CHUNK_CAMERA, 3,1,txt_4700 block_3ds CHUNK_TRMATRIX,3,1,txt_4160
block_3ds CHUNK_MATERIAL,10,0,txt_afff block_3ds 0x4600,3,1,txt_4600
block_3ds CHUNK_MATNAME, 3,1,txt_a000 block_3ds CHUNK_CAMERA, 3,1,txt_4700
block_3ds 0xa010,4,0,txt_a010 block_3ds CHUNK_MATERIAL,10,0,txt_afff
block_3ds 0xa020,4,0,txt_a020 block_3ds CHUNK_MATNAME, 3,1,txt_a000
block_3ds 0xa030,4,0,txt_a030 block_3ds 0xa010,4,0,txt_a010
block_3ds 0xa100,5,1,txt_a100 block_3ds 0xa020,4,0,txt_a020
block_3ds CHUNK_TEXTURE, 3,0,txt_a200 block_3ds 0xa030,4,0,txt_a030
block_3ds CHUNK_MAPFILE, 6,1,txt_a300 block_3ds 0xa100,5,1,txt_a100
block_3ds CHUNK_KEYFRAMER, 7,0,txt_b000 block_3ds CHUNK_TEXTURE, 3,0,txt_a200
block_3ds CHUNK_TRACKINFO, 3,0,txt_b002 block_3ds CHUNK_MAPFILE, 6,1,txt_a300
block_3ds CHUNK_TRACKOBJNAME,3,1,txt_b010 block_3ds CHUNK_KEYFRAMER, 7,0,txt_b000
block_3ds 0xb011,3,1,txt_b011 block_3ds CHUNK_TRACKINFO, 3,0,txt_b002
block_3ds CHUNK_TRACKPIVOT, 3,1,txt_b013 block_3ds CHUNK_TRACKOBJNAME,3,1,txt_b010
block_3ds 0xb014,3,1,txt_b014 block_3ds 0xb011,3,1,txt_b011
block_3ds CHUNK_TRACKPOS, 3,1,txt_b020 block_3ds CHUNK_TRACKPIVOT, 3,1,txt_b013
block_3ds CHUNK_TRACKROTATE, 3,1,txt_b021 block_3ds 0xb014,3,1,txt_b014
block_3ds CHUNK_TRACKCAMERA, 7,0,txt_b003 block_3ds CHUNK_TRACKPOS, 3,1,txt_b020
block_3ds CHUNK_TRACKFOV, 7,1,txt_b023 block_3ds CHUNK_TRACKROTATE, 3,1,txt_b021
block_3ds CHUNK_TRACKROLL, 7,1,txt_b024 block_3ds CHUNK_TRACKCAMERA, 7,0,txt_b003
block_3ds CHUNK_TRACKCAMTGT, 7,0,txt_b004 block_3ds CHUNK_TRACKFOV, 7,1,txt_b023
block_3ds CHUNK_TRACKROLL, 7,1,txt_b024
;--- ¤ «¥¥ ­¥ ¢® ¢á¥å ¡«®ª å ᬮ£ ­ ©â¨ ®¯¨á ­¨¥ ­  àãá᪮¬ ï§ëª¥ block_3ds CHUNK_TRACKCAMTGT, 7,0,txt_b004
block_3ds 0x4111, 3,1,txt_4111
block_3ds 0x4150, 3,1,txt_4150 ;--- ¤ «¥¥ ­¥ ¢® ¢á¥å ¡«®ª å ᬮ£ ­ ©â¨ ®¯¨á ­¨¥ ­  àãá᪮¬ ï§ëª¥
block_3ds 0x4165, 3,1,txt_4165 block_3ds 0x4111, 3,1,txt_4111
block_3ds 0x4610, 3,1,txt_4610 block_3ds 0x4150, 3,1,txt_4150
block_3ds 0x4627, 3,1,txt_4627 block_3ds 0x4165, 3,1,txt_4165
block_3ds 0x4630, 3,1,txt_4630 block_3ds 0x4610, 3,1,txt_4610
block_3ds 0x4641, 3,1,txt_4641 block_3ds 0x4627, 3,1,txt_4627
block_3ds 0x4650, 3,1,txt_4650 block_3ds 0x4630, 3,1,txt_4630
block_3ds 0x4651, 3,1,txt_4651 block_3ds 0x4641, 3,1,txt_4641
block_3ds 0x4652, 3,1,txt_4652 block_3ds 0x4650, 3,1,txt_4650
block_3ds 0x4653, 3,1,txt_4653 block_3ds 0x4651, 3,1,txt_4651
block_3ds 0x4656, 3,1,txt_4656 block_3ds 0x4652, 3,1,txt_4652
block_3ds 0x4658, 3,1,txt_4658 block_3ds 0x4653, 3,1,txt_4653
block_3ds 0x4620, 3,1,txt_4620 block_3ds 0x4656, 3,1,txt_4656
block_3ds 0x4625, 3,1,txt_4625 block_3ds 0x4658, 3,1,txt_4658
block_3ds 0x4659, 3,1,txt_4659 block_3ds 0x4620, 3,1,txt_4620
block_3ds 0x465a, 3,1,txt_465a block_3ds 0x4625, 3,1,txt_4625
block_3ds 0x465b, 3,1,txt_465b block_3ds 0x4659, 3,1,txt_4659
block_3ds 0xa230, 3,1,txt_a230 block_3ds 0x465a, 3,1,txt_465a
block_3ds 0xa220, 3,1,txt_a220 block_3ds 0x465b, 3,1,txt_465b
block_3ds 0xa351, 3,1,txt_a351 block_3ds 0xa230, 3,1,txt_a230
block_3ds 0xb007, 3,1,txt_b007 block_3ds 0xa220, 3,1,txt_a220
block_3ds 0xb008, 3,1,txt_b008 block_3ds 0xa351, 3,1,txt_a351
block_3ds 0xb022, 3,1,txt_b022 block_3ds 0xb007, 3,1,txt_b007
block_3ds 0xb030, 3,1,txt_b030 block_3ds 0xb008, 3,1,txt_b008
block_3ds 0xa040, 3,1,txt_a040 block_3ds 0xb022, 3,1,txt_b022
block_3ds 0xa041, 3,1,txt_a041 block_3ds 0xb030, 3,1,txt_b030
block_3ds 0xa050, 3,1,txt_a050 block_3ds 0xa040, 3,1,txt_a040
block_3ds 0xa052, 3,1,txt_a052 block_3ds 0xa041, 3,1,txt_a041
block_3ds 0xa053, 3,1,txt_a053 block_3ds 0xa050, 3,1,txt_a050
block_3ds 0xa081, 3,1,txt_a081 block_3ds 0xa052, 3,1,txt_a052
block_3ds 0xa083, 3,1,txt_a083 block_3ds 0xa053, 3,1,txt_a053
block_3ds 0xa084, 3,1,txt_a084 block_3ds 0xa081, 3,1,txt_a081
block_3ds 0xa085, 3,1,txt_a085 block_3ds 0xa083, 3,1,txt_a083
block_3ds 0xa087, 3,1,txt_a087 block_3ds 0xa084, 3,1,txt_a084
block_3ds 0xa088, 3,1,txt_a088 block_3ds 0xa085, 3,1,txt_a085
block_3ds 0xa08a, 3,1,txt_a08a block_3ds 0xa087, 3,1,txt_a087
block_3ds 0xa08c, 3,1,txt_a08c block_3ds 0xa088, 3,1,txt_a088
block_3ds 0xa08e, 3,1,txt_a08e block_3ds 0xa08a, 3,1,txt_a08a
.end: block_3ds 0xa08c, 3,1,txt_a08c
block_3ds 0xa08e, 3,1,txt_a08e
if lang eq ru_RU .end:
txt_0002 db '3ds ¢¥àá¨ï',0
txt_0011 db '–¢¥â rgb (¡ ©â®¢ë© ä®à¬ â)',0 if lang eq ru_RU
;txt_0012 db 'LIN_COLOR_24',0 txt_0002 db '3ds ¢¥àá¨ï',0
;txt_0030 db 'Percentage value (int)',0 txt_0011 db '–¢¥â rgb (¡ ©â®¢ë© ä®à¬ â)',0
;txt_0031 db 'Percentage value (float)',0 ;txt_0012 db 'LIN_COLOR_24',0
txt_0100 db 'Master scale',0 ;txt_0030 db 'Percentage value (int)',0
txt_2100 db '–¢¥â ®ªà㦠î饩 á।ë',0 ;txt_0031 db 'Percentage value (float)',0
txt_3d3d db '<27> ¡®à ®¡ê¥ªâ®¢',0 txt_0100 db 'Master scale',0
txt_4000 db 'Ž¡ê¥ªâ (á ¨¬¥­¥¬)',0 txt_2100 db '–¢¥â ®ªà㦠î饩 á।ë',0
txt_4100 db '’à¥ã£®«ì­ë¥ á¥âª¨',0 txt_3d3d db '<27> ¡®à ®¡ê¥ªâ®¢',0
txt_4110 db '‘¯¨á®ª ¢¥à設',0 txt_4000 db 'Ž¡ê¥ªâ (á ¨¬¥­¥¬)',0
txt_4120 db '‘¯¨á®ª £à ­¥©',0 txt_4100 db '’à¥ã£®«ì­ë¥ á¥âª¨',0
txt_4130 db 'Œ â¥à¨ «ë £à ­¥©',0 txt_4110 db '‘¯¨á®ª ¢¥à設',0
txt_4140 db '’¥ªáâãà­ë¥ ª®®à¤¨­ âë',0 txt_4120 db '‘¯¨á®ª £à ­¥©',0
txt_4160 db 'Œ âà¨æ  ¯¥à¥¢®¤ ',0 txt_4130 db 'Œ â¥à¨ «ë £à ­¥©',0
txt_4600 db '‘¢¥â',0 txt_4140 db '’¥ªáâãà­ë¥ ª®®à¤¨­ âë',0
txt_4700 db 'Š ¬¥à ',0 txt_4160 db 'Œ âà¨æ  ¯¥à¥¢®¤ ',0
txt_a000 db '<27> §¢ ­¨¥ ¬ â¥à¨ « ',0 txt_4600 db '‘¢¥â',0
txt_a010 db 'Žªà㦠î騩 梥â',0 txt_4700 db 'Š ¬¥à ',0
txt_a020 db '„¨ääã§­ë© æ¢¥â',0 txt_a000 db '<27> §¢ ­¨¥ ¬ â¥à¨ « ',0
txt_a030 db '‡¥àª «ì­ë© 梥â',0 txt_a010 db 'Žªà㦠î騩 梥â',0
txt_a100 db '’¨¯ ¬ â¥à¨ «  [1=flat 2=gouraud 3=phong 4=metal]',0 txt_a020 db '„¨ääã§­ë© æ¢¥â',0
txt_a200 db '’¥ªáâãà  ¬ â¥à¨ «  1',0 txt_a030 db '‡¥àª «ì­ë© 梥â',0
txt_a300 db 'ˆ¬ï ä ©«  ⥪áâãàë',0 txt_a100 db '’¨¯ ¬ â¥à¨ «  [1=flat 2=gouraud 3=phong 4=metal]',0
;txt_a353 db 'MAT_MAP_TEXBLUR',0 txt_a200 db '’¥ªáâãà  ¬ â¥à¨ «  1',0
txt_afff db 'Œ â¥à¨ «',0 txt_a300 db 'ˆ¬ï ä ©«  ⥪áâãàë',0
txt_b000 db 'ˆ­ä®à¬ æ¨ï ®¡  ­¨¬ æ¨¨',0 ;txt_a353 db 'MAT_MAP_TEXBLUR',0
txt_b002 db '<27>®¢¥¤¥­¨¥ ®¡ê¥ªâ ',0 txt_afff db 'Œ â¥à¨ «',0
;txt_b009 db 'KFCURTIME',0 txt_b000 db 'ˆ­ä®à¬ æ¨ï ®¡  ­¨¬ æ¨¨',0
;txt_b00a db 'KFHDR',0 txt_b002 db '<27>®¢¥¤¥­¨¥ ®¡ê¥ªâ ',0
txt_b010 db '<27> §¢ ­¨¥ ®¡ê¥ªâ ',0 ;txt_b009 db 'KFCURTIME',0
txt_b011 db 'ˆ¬ï íª§¥¬¯«ïà ',0 ;txt_b00a db 'KFHDR',0
txt_b013 db '–¥­âà ¢à é¥­¨ï ®¡ê¥ªâ ',0 txt_b010 db '<27> §¢ ­¨¥ ®¡ê¥ªâ ',0
txt_b014 db 'Bound box',0 txt_b011 db 'ˆ¬ï íª§¥¬¯«ïà ',0
txt_b020 db '’à ¥ªâ®à¨ï ¤¢¨¦¥­¨ï',0 txt_b013 db '–¥­âà ¢à é¥­¨ï ®¡ê¥ªâ ',0
txt_b021 db '’à ¥ªâ®à¨ï ¢à é¥­¨ï',0 txt_b014 db 'Bound box',0
txt_b003 db '<27>®¢¥¤¥­¨¥ ª ¬¥àë',0 txt_b020 db '’à ¥ªâ®à¨ï ¤¢¨¦¥­¨ï',0
txt_b023 db '<27>®¢¥¤¥­¨¥ fov ª ¬¥àë',0 txt_b021 db '’à ¥ªâ®à¨ï ¢à é¥­¨ï',0
txt_b024 db '<27>®¢¥¤¥­¨¥ roll ª ¬¥àë',0 txt_b003 db '<27>®¢¥¤¥­¨¥ ª ¬¥àë',0
txt_b004 db '<27>®¢¥¤¥­¨¥ "楫¨" ª ¬¥àë',0 txt_b023 db '<27>®¢¥¤¥­¨¥ fov ª ¬¥àë',0
txt_b024 db '<27>®¢¥¤¥­¨¥ roll ª ¬¥àë',0
;--- ¤ «¥¥ ­¥ ¢® ¢á¥å ¡«®ª å ᬮ£ ­ ©â¨ ®¯¨á ­¨¥ ­  àãá᪮¬ ï§ëª¥ txt_b004 db '<27>®¢¥¤¥­¨¥ "楫¨" ª ¬¥àë',0
txt_4111 db '”« £¨ ¢¥à設',0
txt_4150 db 'Smoothing group list',0 ;--- ¤ «¥¥ ­¥ ¢® ¢á¥å ¡«®ª å ᬮ£ ­ ©â¨ ®¯¨á ­¨¥ ­  àãá᪮¬ ï§ëª¥
txt_4165 db 'Object color in editor',0 txt_4111 db '”« £¨ ¢¥à設',0
txt_4610 db '<27> ¯à ¢«¥­­ë© ᢥâ',0 txt_4150 db 'Smoothing group list',0
txt_4627 db 'Spot raytrace',0 txt_4165 db 'Object color in editor',0
txt_4630 db 'Light shadowed',0 txt_4610 db '<27> ¯à ¢«¥­­ë© ᢥâ',0
txt_4641 db 'Spot shadow map',0 txt_4627 db 'Spot raytrace',0
txt_4650 db 'Spot show cone',0 txt_4630 db 'Light shadowed',0
txt_4651 db 'Spot is rectangular',0 txt_4641 db 'Spot shadow map',0
txt_4652 db 'Spot overshoot',0 txt_4650 db 'Spot show cone',0
txt_4653 db 'Spot map',0 txt_4651 db 'Spot is rectangular',0
txt_4656 db 'Spot roll',0 txt_4652 db 'Spot overshoot',0
txt_4658 db 'Spot ray trace bias',0 txt_4653 db 'Spot map',0
txt_4620 db 'Light off',0 txt_4656 db 'Spot roll',0
txt_4625 db 'Attenuation on',0 txt_4658 db 'Spot ray trace bias',0
txt_4659 db 'Range start',0 txt_4620 db 'Light off',0
txt_465a db 'Range end',0 txt_4625 db 'Attenuation on',0
txt_465b db 'Multiplier',0 txt_4659 db 'Range start',0
txt_a230 db '<27> §¬¥âª  ५ì¥ä ',0 txt_465a db 'Range end',0
txt_a220 db '<27> §¬¥âª  ®âà ¦¥­¨ï',0 txt_465b db 'Multiplier',0
txt_a351 db '<27> à ¬¥âàë à §¬¥âª¨',0 txt_a230 db '<27> §¬¥âª  ५ì¥ä ',0
txt_b007 db 'ˆ­ä®à¬ æ¨ï ® ­ ¯à ¢«¥­®¬ ®á¢¥é¥­¨¨',0 txt_a220 db '<27> §¬¥âª  ®âà ¦¥­¨ï',0
txt_b008 db 'Š ¤àë (­ ç «ì­ë© ¨ ª®­¥ç­ë©)',0 txt_a351 db '<27> à ¬¥âàë à §¬¥âª¨',0
txt_b022 db 'Œ áèâ ¡¨à®¢ ­¨¥',0 txt_b007 db 'ˆ­ä®à¬ æ¨ï ® ­ ¯à ¢«¥­®¬ ®á¢¥é¥­¨¨',0
txt_b030 db '<27>®§¨æ¨ï ¢ ¨¥à à娨',0 txt_b008 db 'Š ¤àë (­ ç «ì­ë© ¨ ª®­¥ç­ë©)',0
txt_a040 db 'Shininess percent',0 txt_b022 db 'Œ áèâ ¡¨à®¢ ­¨¥',0
txt_a041 db 'Shininess strength percent',0 txt_b030 db '<27>®§¨æ¨ï ¢ ¨¥à à娨',0
txt_a050 db 'Transparency percent',0 txt_a040 db 'Shininess percent',0
txt_a052 db 'Transparency falloff percent',0 txt_a041 db 'Shininess strength percent',0
txt_a053 db 'Reflection blur percent',0 txt_a050 db 'Transparency percent',0
txt_a081 db '2 sided',0 txt_a052 db 'Transparency falloff percent',0
txt_a083 db 'Add trans',0 txt_a053 db 'Reflection blur percent',0
txt_a084 db 'Self illum',0 txt_a081 db '2 sided',0
txt_a085 db 'Wire frame on',0 txt_a083 db 'Add trans',0
txt_a087 db 'Wire thickness',0 txt_a084 db 'Self illum',0
txt_a088 db 'Face map',0 txt_a085 db 'Wire frame on',0
txt_a08a db 'In tranc',0 txt_a087 db 'Wire thickness',0
txt_a08c db 'Soften',0 txt_a088 db 'Face map',0
txt_a08e db 'Wire in units',0 txt_a08a db 'In tranc',0
txt_a08c db 'Soften',0
txt_not_delete db '<27>¥ ¬®£ã 㤠«¨âì ¢ë¡à ­­ë© ¡«®ª. Ž­ § é¨é¥­.',0 txt_a08e db 'Wire in units',0
else
txt_not_delete db '<27>¥ ¬®£ã 㤠«¨âì ¢ë¡à ­­ë© ¡«®ª. Ž­ § é¨é¥­.',0
txt_0002 db '3ds version',0
txt_0011 db 'Color rgb (byte format)',0 else ; Default to en_US
txt_0100 db 'Master scale',0
txt_2100 db 'Ambient color',0 txt_0002 db '3ds version',0
txt_3d3d db 'Editor chunk',0 txt_0011 db 'Color rgb (byte format)',0
txt_4000 db 'Object (with name)',0 txt_0100 db 'Master scale',0
txt_4100 db 'Triangular mesh',0 txt_2100 db 'Ambient color',0
txt_4110 db 'Vertices list',0 txt_3d3d db 'Editor chunk',0
txt_4120 db 'Faces description',0 txt_4000 db 'Object (with name)',0
txt_4130 db 'Faces material',0 txt_4100 db 'Triangular mesh',0
txt_4140 db 'Mapping coordinates list',0 txt_4110 db 'Vertices list',0
txt_4160 db 'Local coordinate system',0 txt_4120 db 'Faces description',0
txt_4600 db 'Light',0 txt_4130 db 'Faces material',0
txt_4700 db 'Camera',0 txt_4140 db 'Mapping coordinates list',0
txt_a000 db 'Material name',0 txt_4160 db 'Local coordinate system',0
txt_a010 db 'Ambient color',0 txt_4600 db 'Light',0
txt_a020 db 'Diffuse color',0 txt_4700 db 'Camera',0
txt_a030 db 'Specular color',0 txt_a000 db 'Material name',0
txt_a100 db 'Material type [1=flat 2=gouraud 3=phong 4=metal]',0 txt_a010 db 'Ambient color',0
txt_a200 db 'Texture map 1',0 txt_a020 db 'Diffuse color',0
txt_a300 db 'Mapping filename',0 txt_a030 db 'Specular color',0
txt_afff db 'Meterial',0 txt_a100 db 'Material type [1=flat 2=gouraud 3=phong 4=metal]',0
txt_b000 db 'Keyframer',0 txt_a200 db 'Texture map 1',0
txt_b002 db 'Mesh information',0 txt_a300 db 'Mapping filename',0
txt_b010 db 'Object name',0 txt_afff db 'Meterial',0
txt_b011 db 'Instance name',0 txt_b000 db 'Keyframer',0
txt_b013 db 'Object pivot point',0 txt_b002 db 'Mesh information',0
txt_b014 db 'Bound box',0 txt_b010 db 'Object name',0
txt_b020 db 'Position track',0 txt_b011 db 'Instance name',0
txt_b021 db 'Rotation track',0 txt_b013 db 'Object pivot point',0
txt_b003 db 'Camera information',0 txt_b014 db 'Bound box',0
txt_b023 db 'Fov track',0 txt_b020 db 'Position track',0
txt_b024 db 'Roll track',0 txt_b021 db 'Rotation track',0
txt_b004 db 'Camera target information',0 txt_b003 db 'Camera information',0
txt_b023 db 'Fov track',0
;--- txt_b024 db 'Roll track',0
txt_4111 db 'Vertex flags',0 txt_b004 db 'Camera target information',0
txt_4150 db 'Smoothing group list',0
txt_4165 db 'Object color in editor',0 ;---
txt_4610 db 'Spotlight',0 txt_4111 db 'Vertex flags',0
txt_4627 db 'Spot raytrace',0 txt_4150 db 'Smoothing group list',0
txt_4630 db 'Light shadowed',0 txt_4165 db 'Object color in editor',0
txt_4641 db 'Spot shadow map',0 txt_4610 db 'Spotlight',0
txt_4650 db 'Spot show cone',0 txt_4627 db 'Spot raytrace',0
txt_4651 db 'Spot is rectangular',0 txt_4630 db 'Light shadowed',0
txt_4652 db 'Spot overshoot',0 txt_4641 db 'Spot shadow map',0
txt_4653 db 'Spot map',0 txt_4650 db 'Spot show cone',0
txt_4656 db 'Spot roll',0 txt_4651 db 'Spot is rectangular',0
txt_4658 db 'Spot ray trace bias',0 txt_4652 db 'Spot overshoot',0
txt_4620 db 'Light off',0 txt_4653 db 'Spot map',0
txt_4625 db 'Attenuation on',0 txt_4656 db 'Spot roll',0
txt_4659 db 'Range start',0 txt_4658 db 'Spot ray trace bias',0
txt_465a db 'Range end',0 txt_4620 db 'Light off',0
txt_465b db 'Multiplier',0 txt_4625 db 'Attenuation on',0
txt_a230 db 'Bump map',0 txt_4659 db 'Range start',0
txt_a220 db 'Reflection map',0 txt_465a db 'Range end',0
txt_a351 db 'Mapping parameters',0 txt_465b db 'Multiplier',0
txt_b007 db 'Spot light information',0 txt_a230 db 'Bump map',0
txt_b008 db 'Frames (Start and End)',0 txt_a220 db 'Reflection map',0
txt_b022 db 'Scale track',0 txt_a351 db 'Mapping parameters',0
txt_b030 db 'Hierarchy position',0 txt_b007 db 'Spot light information',0
txt_a040 db 'Shininess percent',0 txt_b008 db 'Frames (Start and End)',0
txt_a041 db 'Shininess strength percent',0 txt_b022 db 'Scale track',0
txt_a050 db 'Transparency percent',0 txt_b030 db 'Hierarchy position',0
txt_a052 db 'Transparency falloff percent',0 txt_a040 db 'Shininess percent',0
txt_a053 db 'Reflection blur percent',0 txt_a041 db 'Shininess strength percent',0
txt_a081 db '2 sided',0 txt_a050 db 'Transparency percent',0
txt_a083 db 'Add trans',0 txt_a052 db 'Transparency falloff percent',0
txt_a084 db 'Self illum',0 txt_a053 db 'Reflection blur percent',0
txt_a085 db 'Wire frame on',0 txt_a081 db '2 sided',0
txt_a087 db 'Wire thickness',0 txt_a083 db 'Add trans',0
txt_a088 db 'Face map',0 txt_a084 db 'Self illum',0
txt_a08a db 'In tranc',0 txt_a085 db 'Wire frame on',0
txt_a08c db 'Soften',0 txt_a087 db 'Wire thickness',0
txt_a08e db 'Wire in units',0 txt_a088 db 'Face map',0
txt_a08a db 'In tranc',0
txt_not_delete db 'I can not delete the selected chunk. It is protected.',0 txt_a08c db 'Soften',0
end if txt_a08e db 'Wire in units',0
if lang eq ru_RU txt_not_delete db 'Cannot delete the selected chunk: it is protected.',0
txt_open_3ds db 'Žâªàëâ ä ©«:',0 end if
txt_no_3ds: db 'Žâªàëâë© ä ©« ­¥ ¢ ä®à¬ â¥ *.3ds ',39
.zag: rb 8 if lang eq ru_RU
db 39,0 txt_open_3ds db 'Žâªàëâ ä ©«:',0
txt_3ds_err_sizes db '‚®§¬®¦­® ä ©« ¯®¢à¥¦¤¥­',0 txt_no_3ds: db 'Žâªàëâë© ä ©« ­¥ ¢ ä®à¬ â¥ *.3ds ',39
txt_count db 'Š®«¨ç¥á⢮',0 .zag: rb 8
txt_3ds_offs: db 39,0
db '‘¬¥é¥­¨¥: ' txt_3ds_err_sizes db '‚®§¬®¦­® ä ©« ¯®¢à¥¦¤¥­',0
.dig: rb 8 txt_count db 'Š®«¨ç¥á⢮',0
db ' <20> §¬¥à: ' txt_3ds_offs:
.siz: rb 8 db '‘¬¥é¥­¨¥: '
db 0 .dig: rb 8
txt_mat_null db 'Œ â¥à¨ «ë ­¥ ­ ©¤¥­ë',0 db ' <20> §¬¥à: '
else .siz: rb 8
txt_open_3ds db 'Open file:',0 db 0
txt_no_3ds: db 'Open file not in format *.3ds ',39 txt_mat_null db 'Œ â¥à¨ «ë ­¥ ­ ©¤¥­ë',0
.zag: rb 8
db 39,0 else ; Default to en_US
txt_3ds_err_sizes db 'File may be corrupted',0 txt_open_3ds db 'Open file:',0
txt_count db 'Count',0 txt_no_3ds: db 'Open file not in format *.3ds ',39
txt_3ds_offs: .zag: rb 8
db 'Offset: ' db 39,0
.dig: rb 8 txt_3ds_err_sizes db 'File may be corrupted',0
db ' Size: ' txt_count db 'Count',0
.siz: rb 8 txt_3ds_offs:
db 0 db 'Offset: '
txt_mat_null db 'No materials found',0 .dig: rb 8
end if db ' Size: '
.siz: rb 8
db 0
txt_mat_null db 'No materials found',0
end if

2798
programs/develop/info3ds/info3ds.asm
View File

File diff suppressed because it is too large Load Diff

2918
programs/develop/info3ds/info3ds_u.asm
View File

File diff suppressed because it is too large Load Diff

56
programs/develop/info3ds/info_menu.inc
View File

@ -1 +1,55 @@
if lang eq ru_RU sz_main_menu_View db '‚¨¤', 0 sz_main_menu_Veiw_Vertexes db '‚¥àè¨­ë ¢ª«.', 0 sz_main_menu_Veiw_Faces db 'Š àª á­ë¥ £à ­¨ ¢ª«.', 0 sz_main_menu_Veiw_Faces_Fill db '‘¯«®è­ë¥ £à ­¨ ¢ª«.', 0 sz_main_menu_Veiw_Light db '‘¢¥â ¢ª«./¢ëª«.', 0 sz_main_menu_Veiw_Smooth db '‘£« ¦¨¢ ­¨¥ ¢ª«./¢ëª«.', 0 sz_main_menu_Veiw_Reset db '‘¡à®á ­ áâ஥ª', 0 if version_edit eq 0 sz_main_menu_Veiw_Faces_Mat db '<27> §­®æ¢¥â­ë¥ £à ­¨ ¢ª«.', 0 else sz_main_menu_Vertexes db '‚¥à設ë', 0 sz_main_menu_Vertexes_Select db '‚뤥«¨âì ¢¥à設ã', 0 sz_main_menu_Vertexes_Deselect db 'Žâ¬¥­¨âì ¢áñ ¢ë¤¥«¥­¨¥', 0 sz_main_menu_Average_x db '‘।­¥¥ x',0 sz_main_menu_Average_y db '‘।­¥¥ y',0 sz_main_menu_Average_z db '‘।­¥¥ z',0 end if else sz_main_menu_View db 'View', 0 sz_main_menu_Veiw_Vertexes db 'Vertexes on', 0 sz_main_menu_Veiw_Faces db 'Edges on', 0 sz_main_menu_Veiw_Faces_Fill db 'Faces on', 0 sz_main_menu_Veiw_Light db 'Light on/off', 0 sz_main_menu_Veiw_Smooth db 'Smooth on/off', 0 sz_main_menu_Veiw_Reset db 'Reset settings', 0 if version_edit eq 0 sz_main_menu_Veiw_Faces_Mat db 'Diferent color faces on', 0 else sz_main_menu_Vertexes db 'Vertexes', 0 sz_main_menu_Vertexes_Select db 'Select vertex', 0 sz_main_menu_Vertexes_Deselect db 'Deselect all', 0 sz_main_menu_Average_x db 'Average x',0 sz_main_menu_Average_y db 'Average y',0 sz_main_menu_Average_z db 'Average z',0 end if end if main_menu dd 0 main_menu_file dd 0 main_menu_view dd 0 main_menu_vertexes dd 0 KMENUITEM_NORMAL equ 0 KMENUITEM_SUBMENU equ 1 KMENUITEM_SEPARATOR equ 2
; Language support for locales: ru_RU (CP866), en_US.
if lang eq ru_RU
sz_main_menu_View db '‚¨¤', 0
sz_main_menu_Veiw_Vertexes db '‚¥àè¨­ë ¢ª«.', 0
sz_main_menu_Veiw_Faces db 'Š àª á­ë¥ £à ­¨ ¢ª«.', 0
sz_main_menu_Veiw_Faces_Fill db '‘¯«®è­ë¥ £à ­¨ ¢ª«.', 0
sz_main_menu_Veiw_Light db '‘¢¥â ¢ª«./¢ëª«.', 0
sz_main_menu_Veiw_Smooth db '‘£« ¦¨¢ ­¨¥ ¢ª«./¢ëª«.', 0
sz_main_menu_Veiw_Reset db '‘¡à®á ­ áâ஥ª', 0
if version_edit eq 0
sz_main_menu_Veiw_Faces_Mat db '<27> §­®æ¢¥â­ë¥ £à ­¨ ¢ª«.', 0
else
sz_main_menu_Vertexes db '‚¥à設ë', 0
sz_main_menu_Vertexes_Select db '‚뤥«¨âì ¢¥à設ã', 0
sz_main_menu_Vertexes_Deselect db 'Žâ¬¥­¨âì ¢áñ ¢ë¤¥«¥­¨¥', 0
sz_main_menu_Average_x db '‘।­¥¥ x',0
sz_main_menu_Average_y db '‘।­¥¥ y',0
sz_main_menu_Average_z db '‘।­¥¥ z',0
end if
else ; Default to en_US
sz_main_menu_View db 'View', 0
sz_main_menu_Veiw_Vertexes db 'Vertexes on', 0
sz_main_menu_Veiw_Faces db 'Edges on', 0
sz_main_menu_Veiw_Faces_Fill db 'Faces on', 0
sz_main_menu_Veiw_Light db 'Light on/off', 0
sz_main_menu_Veiw_Smooth db 'Smooth on/off', 0
sz_main_menu_Veiw_Reset db 'Reset settings', 0
if version_edit eq 0
sz_main_menu_Veiw_Faces_Mat db 'Diferent color faces on', 0
else
sz_main_menu_Vertexes db 'Vertexes', 0
sz_main_menu_Vertexes_Select db 'Select vertex', 0
sz_main_menu_Vertexes_Deselect db 'Deselect all', 0
sz_main_menu_Average_x db 'Average x',0
sz_main_menu_Average_y db 'Average y',0
sz_main_menu_Average_z db 'Average z',0
end if
end if
main_menu dd 0
main_menu_file dd 0
main_menu_view dd 0
main_menu_vertexes dd 0
KMENUITEM_NORMAL equ 0
KMENUITEM_SUBMENU equ 1
KMENUITEM_SEPARATOR equ 2

1654
programs/develop/info3ds/info_wnd_coords.inc
View File

File diff suppressed because it is too large Load Diff

8968
programs/develop/libraries/box_lib/trunk/t_edit.asm
View File

File diff suppressed because it is too large Load Diff

636
programs/develop/str_double/trunk/str_double.asm
View File

@ -1,318 +1,318 @@
; <20>ணࠬ¬  ¤«ï ¯à¥®¡à §®¢ ­¨ï ç¨á¥« ¨§ áâப¨ ; <20>ணࠬ¬  ¤«ï ¯à¥®¡à §®¢ ­¨ï ç¨á¥« ¨§ áâப¨
; ¢ ä®à¬ â float, double,   â ª¦¥ ¨§ 10 ¨«¨ 16 à¨ç­®£® ; ¢ ä®à¬ â float, double,   â ª¦¥ ¨§ 10 ¨«¨ 16 à¨ç­®£®
; ¢® float. ; ¢® float.
; ‘¤¥« ­  ­  ®á­®¢¥ hex2dec2bin ¨ ¯à¨¬¥à®¢ ¨§ ä ©«  list2_05.inc ; ‘¤¥« ­  ­  ®á­®¢¥ hex2dec2bin ¨ ¯à¨¬¥à®¢ ¨§ ä ©«  list2_05.inc
; ( ¢â®à Šã« ª®¢ ‚« ¤¨¬¨à ƒ¥­­ ¤ì¥¢¨ç 24.05.2002), ; ( ¢â®à Šã« ª®¢ ‚« ¤¨¬¨à ƒ¥­­ ¤ì¥¢¨ç 24.05.2002),
; ª®â®àë¥ ChE ¯¥à¥¤¥« « á 16 ­  32 ¡¨â  ­   áᥬ¡«¥à fasm. ; ª®â®àë¥ ChE ¯¥à¥¤¥« « á 16 ­  32 ¡¨â  ­   áᥬ¡«¥à fasm.
; <20>ணࠬ¬  ¯®§¢®«ï¥â à¥è âì â ª¨¥ § ¤ ç¨: ; <20>ணࠬ¬  ¯®§¢®«ï¥â à¥è âì â ª¨¥ § ¤ ç¨:
; 1) ç¨á«® ¢ áâப®¢®¬ ¢¨¤¥ ¯¥à¥¢¥á⨠¢ 4 ¡ ©â  (float) ¢ ¬ è¨­­ë© ¢¨¤ ; 1) ç¨á«® ¢ áâப®¢®¬ ¢¨¤¥ ¯¥à¥¢¥á⨠¢ 4 ¡ ©â  (float) ¢ ¬ è¨­­ë© ¢¨¤
; 2) ç¨á«® ¢ áâப®¢®¬ ¢¨¤¥ ¯¥à¥¢¥á⨠¢ 8 ¡ ©â (double) ¢ ¬ è¨­­ë© ¢¨¤ ; 2) ç¨á«® ¢ áâப®¢®¬ ¢¨¤¥ ¯¥à¥¢¥á⨠¢ 8 ¡ ©â (double) ¢ ¬ è¨­­ë© ¢¨¤
; 3) ç¨á«® ¢ ¬ è¨­­®¬ ¢¨¤¥ (float) ¯¥à¥¢¥á⨠¢ áâப®¢ë© ¢¨¤ (5 §­ ª®¢ ¯®á«¥ § ¯ï⮩) ; 3) ç¨á«® ¢ ¬ è¨­­®¬ ¢¨¤¥ (float) ¯¥à¥¢¥á⨠¢ áâப®¢ë© ¢¨¤ (5 §­ ª®¢ ¯®á«¥ § ¯ï⮩)
use32 use32
org 0 org 0
db 'MENUET01' db 'MENUET01'
dd 1,start,i_end,e_end,e_end,0,sys_path dd 1,start,i_end,e_end,e_end,0,sys_path
include '../../../proc32.inc' include '../../../proc32.inc'
include '../../../macros.inc' include '../../../macros.inc'
include '../../../KOSfuncs.inc' include '../../../KOSfuncs.inc'
include '../../../load_lib.mac' include '../../../load_lib.mac'
include '../../../develop/libraries/box_lib/trunk/box_lib.mac' include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../../develop/info3ds/info_fun_float.inc' include '../../../develop/info3ds/info_fun_float.inc'
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
@use_library @use_library
align 4 align 4
start: start:
load_libraries l_libs_start,l_libs_end load_libraries l_libs_start,l_libs_end
;¯à®¢¥àª  ­  ᪮«ìª® 㤠筮 § £ã§¨« áì ­ è  ¡¨¡«¨®â¥ª  ;¯à®¢¥àª  ­  ᪮«ìª® 㤠筮 § £ã§¨« áì ­ è  ¡¨¡«¨®â¥ª 
mov ebp,lib_0 mov ebp,lib_0
cmp dword[ebp+ll_struc_size-4],0 cmp dword[ebp+ll_struc_size-4],0
jz @f jz @f
mcall SF_TERMINATE_PROCESS mcall SF_TERMINATE_PROCESS
@@: @@:
mcall SF_SET_EVENTS_MASK,0xC0000027 mcall SF_SET_EVENTS_MASK,0xC0000027
mcall SF_STYLE_SETTINGS,SSF_GET_COLORS, sys_colors, sizeof.system_colors mcall SF_STYLE_SETTINGS,SSF_GET_COLORS, sys_colors, sizeof.system_colors
edit_boxes_set_sys_color edit1,editboxes_end,sys_colors edit_boxes_set_sys_color edit1,editboxes_end,sys_colors
option_boxes_set_sys_color sys_colors,Option_boxes1 option_boxes_set_sys_color sys_colors,Option_boxes1
align 4 align 4
red: red:
call draw_window call draw_window
align 4 align 4
still: still:
mcall SF_WAIT_EVENT mcall SF_WAIT_EVENT
cmp eax,1 ; ¯¥à¥à¨á®¢ âì ®ª­® ? cmp eax,1 ; ¯¥à¥à¨á®¢ âì ®ª­® ?
je red ; ¥á«¨ ¤  - ­  ¬¥âªã red je red ; ¥á«¨ ¤  - ­  ¬¥âªã red
cmp eax,2 ; ­ ¦ â  ª« ¢¨è  ? cmp eax,2 ; ­ ¦ â  ª« ¢¨è  ?
je key ; ¥á«¨ ¤  - ­  key je key ; ¥á«¨ ¤  - ­  key
cmp eax,3 ; ­ ¦ â  ª­®¯ª  ? cmp eax,3 ; ­ ¦ â  ª­®¯ª  ?
je button ; ¥á«¨ ¤  - ­  button je button ; ¥á«¨ ¤  - ­  button
cmp eax,6 cmp eax,6
je mouse je mouse
jmp still ; ¥á«¨ ¤à㣮¥ ᮡë⨥ - ¢ ­ ç «® 横«  jmp still ; ¥á«¨ ¤à㣮¥ ᮡë⨥ - ¢ ­ ç «® 横« 
align 4 align 4
key: ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãॠkey: ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãà¥
mcall SF_GET_KEY mcall SF_GET_KEY
;cmp ah,13 ;cmp ah,13
stdcall [edit_box_key], edit1 stdcall [edit_box_key], edit1
jmp still ; ¢¥à­ãâìáï ª ­ ç «ã 横«  jmp still ; ¢¥à­ãâìáï ª ­ ç «ã 横« 
align 4 align 4
button: button:
mcall SF_GET_BUTTON mcall SF_GET_BUTTON
cmp ah, 1 ; ¥á«¨ <20>… ­ ¦ â  ª­®¯ª  á ­®¬¥à®¬ 1, cmp ah, 1 ; ¥á«¨ <20>… ­ ¦ â  ª­®¯ª  á ­®¬¥à®¬ 1,
jne @f jne @f
mcall SF_TERMINATE_PROCESS mcall SF_TERMINATE_PROCESS
@@: @@:
cmp ah, 5 cmp ah, 5
jne @f jne @f
cmp dword[option_group1],opt3 cmp dword[option_group1],opt3
jne .opt_3_end jne .opt_3_end
stdcall conv_str_to_int,[edit1.text] stdcall conv_str_to_int,[edit1.text]
mov dword[Data_Double],eax mov dword[Data_Double],eax
finit finit
fld dword[Data_Double] fld dword[Data_Double]
fstp qword[Data_Double] fstp qword[Data_Double]
; Data_Double - ¯à¥®¡à §ã¥¬®¥ ç¨á«® ; Data_Double - ¯à¥®¡à §ã¥¬®¥ ç¨á«®
mov word[NumberSymbolsAD],8 ; ª®«¨ç¥á⢮ §­ ª®¢ ç¨á«  ¯®á«¥ § ¯ï⮩ (1-17) mov word[NumberSymbolsAD],8 ; ª®«¨ç¥á⢮ §­ ª®¢ ç¨á«  ¯®á«¥ § ¯ï⮩ (1-17)
call DoubleFloat_to_String call DoubleFloat_to_String
call String_crop_0 call String_crop_0
mov dword[Data_Double],eax ;¢®ááâ ­ ¢«¨¢ ¥¬ §­ ç¥­¨¥ ¢ ä®à¬ â¥ float mov dword[Data_Double],eax ;¢®ááâ ­ ¢«¨¢ ¥¬ §­ ç¥­¨¥ ¢ ä®à¬ â¥ float
jmp .opt_all_end jmp .opt_all_end
.opt_3_end: .opt_3_end:
mov esi,string1 mov esi,string1
mov edi,Data_String mov edi,Data_String
cld cld
mov ecx,32 mov ecx,32
rep movsb rep movsb
call String_to_DoubleFloat call String_to_DoubleFloat
cmp dword[option_group1],opt1 cmp dword[option_group1],opt1
jne .opt_all_end ;¥á«¨ ¢ë¡à ­ float, â® ¯à¥®¡à §ã¥¬ ¨§ à ­¥¥ ¯®«ã祭­®£® double jne .opt_all_end ;¥á«¨ ¢ë¡à ­ float, â® ¯à¥®¡à §ã¥¬ ¨§ à ­¥¥ ¯®«ã祭­®£® double
finit finit
fld qword[Data_Double] ;ç¨â ¥¬ ¨§ double fld qword[Data_Double] ;ç¨â ¥¬ ¨§ double
fstp dword[Data_Double] ;  ¢®§¢à é ¥¬ ¢® float fstp dword[Data_Double] ;  ¢®§¢à é ¥¬ ¢® float
.opt_all_end: .opt_all_end:
jmp red jmp red
@@: @@:
jmp still jmp still
align 4 align 4
mouse: mouse:
stdcall [edit_box_mouse], edit1 stdcall [edit_box_mouse], edit1
stdcall [option_box_mouse], Option_boxes1 stdcall [option_box_mouse], Option_boxes1
jmp still jmp still
;------------------------------------------------ ;------------------------------------------------
align 4 align 4
draw_window: draw_window:
mcall SF_STYLE_SETTINGS,SSF_GET_COLORS, sys_colors, sizeof.system_colors mcall SF_STYLE_SETTINGS,SSF_GET_COLORS, sys_colors, sizeof.system_colors
mcall SF_REDRAW,SSF_BEGIN_DRAW mcall SF_REDRAW,SSF_BEGIN_DRAW
mov edx, 0x14000000 mov edx, 0x14000000
or edx, [sys_colors.work] or edx, [sys_colors.work]
mcall SF_CREATE_WINDOW, (200 shl 16)+300, (200 shl 16)+175, ,,title mcall SF_CREATE_WINDOW, (200 shl 16)+300, (200 shl 16)+175, ,,title
mcall SF_DEFINE_BUTTON, ((300-53) shl 16)+38, (145 shl 16)+15, 5, [sys_colors.work_button] ; ª­®¯ª  Ok mcall SF_DEFINE_BUTTON, ((300-53) shl 16)+38, (145 shl 16)+15, 5, [sys_colors.work_button] ; ª­®¯ª  Ok
mov ecx, 0x80000000 mov ecx, 0x80000000
or ecx, [sys_colors.work_text] or ecx, [sys_colors.work_text]
mcall SF_DRAW_TEXT, (15 shl 16) +30,, binstr, mcall SF_DRAW_TEXT, (15 shl 16) +30,, binstr,
mcall , (15 shl 16) +58,, decstr, mcall , (15 shl 16) +58,, decstr,
mcall , ((240-56*3) shl 16) +58,, Data_String, mcall , ((240-56*3) shl 16) +58,, Data_String,
mcall , (15 shl 16) +72,, hexstr, mcall , (15 shl 16) +72,, hexstr,
mcall , (15 shl 16)+150,, numstr, mcall , (15 shl 16)+150,, numstr,
mov ecx, 0x80000000 mov ecx, 0x80000000
or ecx, [sys_colors.work_button_text] or ecx, [sys_colors.work_button_text]
mcall , ((300-42) shl 16)+149, , Okstr,3 mcall , ((300-42) shl 16)+149, , Okstr,3
cmp dword[option_group1],opt1 cmp dword[option_group1],opt1
je @f ;¥á«¨ ¢ë¡à ­ float, â® áâ à訥 4 ¡ ©â  (¨§ double) ­¥ ¯¥ç â ¥¬ je @f ;¥á«¨ ¢ë¡à ­ float, â® áâ à訥 4 ¡ ©â  (¨§ double) ­¥ ¯¥ç â ¥¬
cmp dword[option_group1],opt3 cmp dword[option_group1],opt3
je @f ;¥á«¨ ¢ë¡à ­ float, â® áâ à訥 4 ¡ ©â  (¨§ double) ­¥ ¯¥ç â ¥¬ je @f ;¥á«¨ ¢ë¡à ­ float, â® áâ à訥 4 ¡ ©â  (¨§ double) ­¥ ¯¥ç â ¥¬
mov ecx, dword[Data_Double+4] mov ecx, dword[Data_Double+4]
mcall SF_DRAW_NUMBER, (8 shl 16)+256,,(185 shl 16)+72,[sys_colors.work_text] ; 16-­ ï mcall SF_DRAW_NUMBER, (8 shl 16)+256,,(185 shl 16)+72,[sys_colors.work_text] ; 16-­ ï
mov ecx, dword[Data_Double+4] mov ecx, dword[Data_Double+4]
mcall ,(8 shl 16)+512,,(240 shl 16)+30, ; 2-­ ï mcall ,(8 shl 16)+512,,(240 shl 16)+30, ; 2-­ ï
ror ecx, 8 ror ecx, 8
mcall ,,,((240-56) shl 16)+30, mcall ,,,((240-56) shl 16)+30,
ror ecx, 8 ror ecx, 8
mcall ,,,((240-56*2) shl 16)+30, mcall ,,,((240-56*2) shl 16)+30,
ror ecx, 8 ror ecx, 8
mcall ,,,((240-56*3) shl 16)+30, mcall ,,,((240-56*3) shl 16)+30,
ror ecx, 8 ror ecx, 8
@@: @@:
mov ecx,dword[Data_Double] mov ecx,dword[Data_Double]
mcall SF_DRAW_NUMBER, (8 shl 16)+256,,(240 shl 16)+72,[sys_colors.work_text] ; 16-­ ï mcall SF_DRAW_NUMBER, (8 shl 16)+256,,(240 shl 16)+72,[sys_colors.work_text] ; 16-­ ï
mov ecx,dword[Data_Double] mov ecx,dword[Data_Double]
mcall , (8 shl 16)+512,,(240 shl 16)+44, ; 2-­ ï mcall , (8 shl 16)+512,,(240 shl 16)+44, ; 2-­ ï
ror ecx, 8 ror ecx, 8
mcall ,,,((240-56) shl 16)+44, mcall ,,,((240-56) shl 16)+44,
ror ecx, 8 ror ecx, 8
mcall ,,,((240-56*2) shl 16)+44, mcall ,,,((240-56*2) shl 16)+44,
ror ecx, 8 ror ecx, 8
mcall ,,,((240-56*3) shl 16)+44, mcall ,,,((240-56*3) shl 16)+44,
ror ecx, 8 ror ecx, 8
mcall SF_DRAW_LINE, (15 shl 16)+300-15, (137 shl 16)+137, [sys_colors.work_graph] mcall SF_DRAW_LINE, (15 shl 16)+300-15, (137 shl 16)+137, [sys_colors.work_graph]
stdcall [edit_box_draw], edit1 stdcall [edit_box_draw], edit1
stdcall [option_box_draw], Option_boxes1 stdcall [option_box_draw], Option_boxes1
mcall SF_REDRAW,SSF_END_DRAW mcall SF_REDRAW,SSF_END_DRAW
ret ret
string1 db 32 dup (0) string1 db 32 dup (0)
string1_end: string1_end:
;input: ;input:
; buf - 㪠§ â¥«ì ­  áâபã, ç¨á«® ¤®«¦­® ¡ëâì ¢ 10 ¨«¨ 16 à¨ç­®¬ ¢¨¤¥ ; buf - 㪠§ â¥«ì ­  áâபã, ç¨á«® ¤®«¦­® ¡ëâì ¢ 10 ¨«¨ 16 à¨ç­®¬ ¢¨¤¥
;output: ;output:
; eax - ç¨á«® ; eax - ç¨á«®
align 4 align 4
proc conv_str_to_int uses ebx ecx esi, buf:dword proc conv_str_to_int uses ebx ecx esi, buf:dword
xor eax,eax xor eax,eax
xor ebx,ebx xor ebx,ebx
mov esi,[buf] mov esi,[buf]
;®¯à¥¤¥«¥­¨¥ ®âà¨æ â¥«ì­ëå ç¨á¥« ;®¯à¥¤¥«¥­¨¥ ®âà¨æ â¥«ì­ëå ç¨á¥«
xor ecx,ecx xor ecx,ecx
inc ecx inc ecx
cmp byte[esi],'-' cmp byte[esi],'-'
jne @f jne @f
dec ecx dec ecx
inc esi inc esi
@@: @@:
cmp word[esi],'0x' cmp word[esi],'0x'
je .load_digit_16 je .load_digit_16
.load_digit_10: ;áç¨â뢠­¨¥ 10-â¨ç­ëå æ¨äà .load_digit_10: ;áç¨â뢠­¨¥ 10-â¨ç­ëå æ¨äà
mov bl,byte[esi] mov bl,byte[esi]
cmp bl,'0' cmp bl,'0'
jl @f jl @f
cmp bl,'9' cmp bl,'9'
jg @f jg @f
sub bl,'0' sub bl,'0'
imul eax,10 imul eax,10
add eax,ebx add eax,ebx
inc esi inc esi
jmp .load_digit_10 jmp .load_digit_10
jmp @f jmp @f
.load_digit_16: ;áç¨â뢠­¨¥ 16-à¨ç­ëå æ¨äà .load_digit_16: ;áç¨â뢠­¨¥ 16-à¨ç­ëå æ¨äà
add esi,2 add esi,2
.cycle_16: .cycle_16:
mov bl,byte[esi] mov bl,byte[esi]
cmp bl,'0' cmp bl,'0'
jl @f jl @f
cmp bl,'f' cmp bl,'f'
jg @f jg @f
cmp bl,'9' cmp bl,'9'
jle .us1 jle .us1
cmp bl,'A' cmp bl,'A'
jl @f ;®âᥨ¢ ¥¬ ᨬ¢®«ë >'9' ¨ <'A' jl @f ;®âᥨ¢ ¥¬ ᨬ¢®«ë >'9' ¨ <'A'
.us1: ;á®áâ ¢­®¥ ãá«®¢¨¥ .us1: ;á®áâ ¢­®¥ ãá«®¢¨¥
cmp bl,'F' cmp bl,'F'
jle .us2 jle .us2
cmp bl,'a' cmp bl,'a'
jl @f ;®âᥨ¢ ¥¬ ᨬ¢®«ë >'F' ¨ <'a' jl @f ;®âᥨ¢ ¥¬ ᨬ¢®«ë >'F' ¨ <'a'
sub bl,32 ;¯¥à¥¢®¤¨¬ ᨬ¢®«ë ¢ ¢¥àå­¨© ॣ¨áâà, ¤«ï ã¯à®é¥­¨ï ¨å ¯®á«¥¤ã饩 ®¡à ¡®âª¨ sub bl,32 ;¯¥à¥¢®¤¨¬ ᨬ¢®«ë ¢ ¢¥àå­¨© ॣ¨áâà, ¤«ï ã¯à®é¥­¨ï ¨å ¯®á«¥¤ã饩 ®¡à ¡®âª¨
.us2: ;á®áâ ¢­®¥ ãá«®¢¨¥ .us2: ;á®áâ ¢­®¥ ãá«®¢¨¥
sub bl,'0' sub bl,'0'
cmp bl,9 cmp bl,9
jle .cor1 jle .cor1
sub bl,7 ;convert 'A' to '10' sub bl,7 ;convert 'A' to '10'
.cor1: .cor1:
shl eax,4 shl eax,4
add eax,ebx add eax,ebx
inc esi inc esi
jmp .cycle_16 jmp .cycle_16
@@: @@:
cmp ecx,0 ;¥á«¨ ç¨á«® ®âà¨æ â¥«ì­®¥ cmp ecx,0 ;¥á«¨ ç¨á«® ®âà¨æ â¥«ì­®¥
jne @f jne @f
sub ecx,eax sub ecx,eax
mov eax,ecx mov eax,ecx
@@: @@:
ret ret
endp endp
;------------------------------------------------- ;-------------------------------------------------
title db 'string to double 03.01.21',0 title db 'string to double 03.01.21',0
hexstr db 'hex:',0 hexstr db 'hex:',0
decstr db 'dec:',0 decstr db 'dec:',0
binstr db 'bin:',0 binstr db 'bin:',0
if lang eq ru_RU if lang eq ru_RU
numstr db '—¨á«®:',0 numstr db '—¨á«®:',0
Okstr db '‚¢®¤',0 Okstr db '‚¢®¤',0
else else ; Default to en_US
numstr db 'Number:',0 numstr db 'Number:',0
Okstr db 'Ok',0 Okstr db 'Ok',0
end if end if
mouse_dd dd 0 mouse_dd dd 0
edit1 edit_box 182, 59, 146, 0xffffff, 0xff, 0x80ff, 0, 0x8000, (string1_end-string1), string1, mouse_dd, 0 edit1 edit_box 182, 59, 146, 0xffffff, 0xff, 0x80ff, 0, 0x8000, (string1_end-string1), string1, mouse_dd, 0
editboxes_end: editboxes_end:
;option_boxes ;option_boxes
opt1 option_box option_group1, 15, 90, 8, 12, 0xffffff, 0x80ff, 0, op_text.1, 17 opt1 option_box option_group1, 15, 90, 8, 12, 0xffffff, 0x80ff, 0, op_text.1, 17
opt2 option_box option_group1, 15, 106, 8, 12, 0xffffff, 0x80ff, 0, op_text.2, 18 opt2 option_box option_group1, 15, 106, 8, 12, 0xffffff, 0x80ff, 0, op_text.2, 18
opt3 option_box option_group1, 15, 122, 8, 12, 0xffffff, 0x80ff, 0, op_text.3, 21 opt3 option_box option_group1, 15, 122, 8, 12, 0xffffff, 0x80ff, 0, op_text.3, 21
op_text: ;⥪áâ ¤«ï à ¤¨® ª­®¯®ª op_text: ;⥪áâ ¤«ï à ¤¨® ª­®¯®ª
.1 db 'str(dec) -> float' .1 db 'str(dec) -> float'
.2 db 'str(dec) -> double' .2 db 'str(dec) -> double'
.3 db 'float(dec,hex) -> str' .3 db 'float(dec,hex) -> str'
;㪠§ â¥«¨ ¤«ï option_box ;㪠§ â¥«¨ ¤«ï option_box
option_group1 dd opt1 option_group1 dd opt1
Option_boxes1 dd opt1, opt2, opt3, 0 Option_boxes1 dd opt1, opt2, opt3, 0
system_dir_0 db '/sys/lib/' system_dir_0 db '/sys/lib/'
lib_name_0 db 'box_lib.obj',0 lib_name_0 db 'box_lib.obj',0
l_libs_start: l_libs_start:
lib_0 l_libs lib_name_0, library_path, system_dir_0,import_box_lib lib_0 l_libs lib_name_0, library_path, system_dir_0,import_box_lib
l_libs_end: l_libs_end:
align 4 align 4
import_box_lib: import_box_lib:
;dd sz_init1 ;dd sz_init1
edit_box_draw dd sz_edit_box_draw edit_box_draw dd sz_edit_box_draw
edit_box_key dd sz_edit_box_key edit_box_key dd sz_edit_box_key
edit_box_mouse dd sz_edit_box_mouse edit_box_mouse dd sz_edit_box_mouse
;edit_box_set_text dd sz_edit_box_set_text ;edit_box_set_text dd sz_edit_box_set_text
option_box_draw dd aOption_box_draw option_box_draw dd aOption_box_draw
option_box_mouse dd aOption_box_mouse option_box_mouse dd aOption_box_mouse
;version_op dd aVersion_op ;version_op dd aVersion_op
dd 0,0 dd 0,0
;sz_init1 db 'lib_init',0 ;sz_init1 db 'lib_init',0
sz_edit_box_draw db 'edit_box_draw',0 sz_edit_box_draw db 'edit_box_draw',0
sz_edit_box_key db 'edit_box_key',0 sz_edit_box_key db 'edit_box_key',0
sz_edit_box_mouse db 'edit_box_mouse',0 sz_edit_box_mouse db 'edit_box_mouse',0
;sz_edit_box_set_text db 'edit_box_set_text',0 ;sz_edit_box_set_text db 'edit_box_set_text',0
aOption_box_draw db 'option_box_draw',0 aOption_box_draw db 'option_box_draw',0
aOption_box_mouse db 'option_box_mouse',0 aOption_box_mouse db 'option_box_mouse',0
;aVersion_op db 'version_op',0 ;aVersion_op db 'version_op',0
i_end: i_end:
sys_colors system_colors sys_colors system_colors
align 16 align 16
sys_path rb 4096 sys_path rb 4096
library_path rb 4096 library_path rb 4096
rb 0x400 ;stack rb 0x400 ;stack
e_end: ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë e_end: ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë

992
programs/develop/tinypad/trunk/data/tp-locale.inc
View File

@ -1,491 +1,501 @@
sz htext,'TINYPAD ',APP_VERSION sz htext,'TINYPAD ',APP_VERSION
menubar_res main_menu,\ ; Language support for locales: ru_RU (CP866), en_US, it_IT, et_EE, es_ES.
ru,'” ©«' ,mm.File ,onshow.file ,\
ru,'<27>à ¢ª ' ,mm.Edit ,onshow.edit ,\ menubar_res main_menu,\
ru,'<27>®¨áª' ,mm.Search ,onshow.search ,\ ru_RU,'” ©«' ,mm.File ,onshow.file ,\
ru,'‡ ¯ãáª' ,mm.Run ,onshow.run ,\ ru_RU,'<27>à ¢ª ' ,mm.Edit ,onshow.edit ,\
ru,'Š®¤¨à®¢ª ',mm.Encoding,onshow.recode ,\ ru_RU,'<27>®¨áª' ,mm.Search ,onshow.search ,\
ru,'Ž¯æ¨¨' ,mm.Options ,onshow.options,\ ru_RU,'‡ ¯ãáª' ,mm.Run ,onshow.run ,\
\ ru_RU,'Š®¤¨à®¢ª ',mm.Encoding,onshow.recode ,\
en,'File' ,mm.File ,onshow.file ,\ ru_RU,'Ž¯æ¨¨' ,mm.Options ,onshow.options,\
en,'Edit' ,mm.Edit ,onshow.edit ,\ \
en,'Search' ,mm.Search ,onshow.search ,\ en_US,'File' ,mm.File ,onshow.file ,\
en,'Run' ,mm.Run ,onshow.run ,\ en_US,'Edit' ,mm.Edit ,onshow.edit ,\
en,'Encoding' ,mm.Encoding,onshow.recode ,\ en_US,'Search' ,mm.Search ,onshow.search ,\
en,'Options' ,mm.Options ,onshow.options,\ en_US,'Run' ,mm.Run ,onshow.run ,\
\ en_US,'Encoding' ,mm.Encoding,onshow.recode ,\
it,'File' ,mm.File ,onshow.file ,\ en_US,'Options' ,mm.Options ,onshow.options,\
it,'Modificare' ,mm.Edit ,onshow.edit ,\ \
it,'Ricerca' ,mm.Search ,onshow.search ,\ it_IT,'File' ,mm.File ,onshow.file ,\
it,'Correre' ,mm.Run ,onshow.run ,\ it_IT,'Modificare' ,mm.Edit ,onshow.edit ,\
it,'Codifica' ,mm.Encoding,onshow.recode ,\ it_IT,'Ricerca' ,mm.Search ,onshow.search ,\
it,'Opzioni' ,mm.Options ,onshow.options,\ it_IT,'Correre' ,mm.Run ,onshow.run ,\
\ it_IT,'Codifica' ,mm.Encoding,onshow.recode ,\
et,'Fail' ,mm.File ,onshow.file ,\ it_IT,'Opzioni' ,mm.Options ,onshow.options,\
et,'Muuda' ,mm.Edit ,onshow.edit ,\ \
et,'Otsi' ,mm.Search ,onshow.search ,\ et_EE,'Fail' ,mm.File ,onshow.file ,\
et,'Käivita' ,mm.Run ,onshow.run ,\ et_EE,'Muuda' ,mm.Edit ,onshow.edit ,\
et,'Kodeering',mm.Encoding,onshow.recode ,\ et_EE,'Otsi' ,mm.Search ,onshow.search ,\
et,'Seaded' ,mm.Options ,onshow.options,\ et_EE,'Käivita' ,mm.Run ,onshow.run ,\
\ et_EE,'Kodeering',mm.Encoding,onshow.recode ,\
sp,'Archivo' ,mm.File ,onshow.file ,\ et_EE,'Seaded' ,mm.Options ,onshow.options,\
sp,'Editar' ,mm.Edit ,onshow.edit ,\ \
sp,'Buscar' ,mm.Search ,onshow.search ,\ es_ES,'Archivo' ,mm.File ,onshow.file ,\
sp,'Ejecutar' ,mm.Run ,onshow.run ,\ es_ES,'Editar' ,mm.Edit ,onshow.edit ,\
sp,'Codificación',mm.Encoding,onshow.recode,\ es_ES,'Buscar' ,mm.Search ,onshow.search ,\
sp,'Opciones' ,mm.Options ,onshow.options es_ES,'Ejecutar' ,mm.Run ,onshow.run ,\
es_ES,'Codificación',mm.Encoding,onshow.recode,\
popup_res mm.File,\ es_ES,'Opciones' ,mm.Options ,onshow.options
ru,'<27>®¢ë©' ,'Ctrl+N' ,New ,\
ru,'Žâªàëâì...','Ctrl+O' ,Open ,\ popup_res mm.File,\
ru,'‘®åà ­¨âì' ,'Ctrl+S' ,Save ,\ ru_RU,'<27>®¢ë©' ,'Ctrl+N' ,New ,\
ru,'‘®åà ­¨âì ª ª...','Ctrl+Shift+S',SaveAs,\ ru_RU,'Žâªàëâì...','Ctrl+O' ,Open ,\
ru,'-','',,\ ru_RU,'‘®åà ­¨âì' ,'Ctrl+S' ,Save ,\
ru,'‡ ªàëâì' ,'Ctrl+F4' ,Close ,\ ru_RU,'‘®åà ­¨âì ª ª...','Ctrl+Shift+S',SaveAs,\
ru,'-','',,\ ru_RU,'-','',,\
ru,'‚ë室' ,'Alt+X' ,Exit ,\ ru_RU,'‡ ªàëâì' ,'Ctrl+F4' ,Close ,\
\ ru_RU,'-','',,\
en,'New' ,'Ctrl+N' ,New ,\ ru_RU,'‚ë室' ,'Alt+X' ,Exit ,\
en,'Open...' ,'Ctrl+O' ,Open ,\ \
en,'Save' ,'Ctrl+S' ,Save ,\ en_US,'New' ,'Ctrl+N' ,New ,\
en,'Save as...','Ctrl+Shift+S',SaveAs ,\ en_US,'Open...' ,'Ctrl+O' ,Open ,\
en,'-','',,\ en_US,'Save' ,'Ctrl+S' ,Save ,\
en,'Close' ,'Ctrl+F4' ,Close ,\ en_US,'Save as...','Ctrl+Shift+S',SaveAs ,\
en,'-','',,\ en_US,'-','',,\
en,'Exit' ,'Alt+X' ,Exit ,\ en_US,'Close' ,'Ctrl+F4' ,Close ,\
\ en_US,'-','',,\
it,'Nuovo' ,'Ctrl+N' ,New ,\ en_US,'Exit' ,'Alt+X' ,Exit ,\
it,'Aperto...' ,'Ctrl+O' ,Open ,\ \
it,'Salva' ,'Ctrl+S' ,Save ,\ it_IT,'Nuovo' ,'Ctrl+N' ,New ,\
it,'Salva come...','Ctrl+Shift+S',SaveAs ,\ it_IT,'Aperto...' ,'Ctrl+O' ,Open ,\
it,'-','',,\ it_IT,'Salva' ,'Ctrl+S' ,Save ,\
it,'Chiudi' ,'Ctrl+F4' ,Close ,\ it_IT,'Salva come...','Ctrl+Shift+S',SaveAs ,\
it,'-','',,\ it_IT,'-','',,\
it,'Uscita' ,'Alt+X' ,Exit ,\ it_IT,'Chiudi' ,'Ctrl+F4' ,Close ,\
\ it_IT,'-','',,\
et,'Uus' ,'Ctrl+N' ,New ,\ it_IT,'Uscita' ,'Alt+X' ,Exit ,\
et,'Ava...' ,'Ctrl+O' ,Open ,\ \
et,'Salvesta' ,'Ctrl+S' ,Save ,\ et_EE,'Uus' ,'Ctrl+N' ,New ,\
et,'Salvesta nimega...','Ctrl+Shift+S',SaveAs,\ et_EE,'Ava...' ,'Ctrl+O' ,Open ,\
et,'-','',,\ et_EE,'Salvesta' ,'Ctrl+S' ,Save ,\
et,'Sulge' ,'Ctrl+F4' ,Close ,\ et_EE,'Salvesta nimega...','Ctrl+Shift+S',SaveAs,\
et,'-','',,\ et_EE,'-','',,\
et,'Välju' ,'Alt+X' ,Exit ,\ et_EE,'Sulge' ,'Ctrl+F4' ,Close ,\
\ et_EE,'-','',,\
sp,'Nuevo' ,'Ctrl+N' ,New ,\ et_EE,'Välju' ,'Alt+X' ,Exit ,\
sp,'Abrir...' ,'Ctrl+O' ,Open ,\ \
sp,'Guardar' ,'Ctrl+S' ,Save ,\ es_ES,'Nuevo' ,'Ctrl+N' ,New ,\
sp,'Guardar como...','Ctrl+Shift+S',SaveAs,\ es_ES,'Abrir...' ,'Ctrl+O' ,Open ,\
sp,'-','',,\ es_ES,'Guardar' ,'Ctrl+S' ,Save ,\
sp,'Cerrar' ,'Ctrl+F4',Close,\ es_ES,'Guardar como...','Ctrl+Shift+S',SaveAs,\
sp,'-','',,\ es_ES,'-','',,\
sp,'Salir' ,'Alt+X' ,Exit es_ES,'Cerrar' ,'Ctrl+F4',Close,\
es_ES,'-','',,\
popup_res mm.Edit,\ es_ES,'Salir' ,'Alt+X' ,Exit
ru,'‚ë१ âì' ,'Ctrl+X',Cut ,\
ru,'Š®¯¨à®¢ âì' ,'Ctrl+C',Copy ,\ popup_res mm.Edit,\
ru,'‚áâ ¢¨âì' ,'Ctrl+V',Insert,\ ru_RU,'‚ë१ âì' ,'Ctrl+X',Cut ,\
ru,'“¤ «¨âì' ,'' ,Delete,\ ru_RU,'Š®¯¨à®¢ âì' ,'Ctrl+C',Copy ,\
ru,'-','',,\ ru_RU,'‚áâ ¢¨âì' ,'Ctrl+V',Insert,\
ru,'‚뤥«¨âì ¢áñ' ,'Ctrl+A',SelAll,\ ru_RU,'“¤ «¨âì' ,'' ,Delete,\
\ ru_RU,'-','',,\
en,'Cut' ,'Ctrl+X',Cut ,\ ru_RU,'‚뤥«¨âì ¢áñ' ,'Ctrl+A',SelAll,\
en,'Copy' ,'Ctrl+C',Copy ,\ \
en,'Paste' ,'Ctrl+V',Insert,\ en_US,'Cut' ,'Ctrl+X',Cut ,\
en,'Delete' ,'' ,Delete,\ en_US,'Copy' ,'Ctrl+C',Copy ,\
en,'-','',,\ en_US,'Paste' ,'Ctrl+V',Insert,\
en,'Select all','Ctrl+A',SelAll,\ en_US,'Delete' ,'' ,Delete,\
\ en_US,'-','',,\
it,'Taglio' ,'Ctrl+X',Cut ,\ en_US,'Select all','Ctrl+A',SelAll,\
it,'Copia' ,'Ctrl+C',Copy ,\ \
it,'Incolla' ,'Ctrl+V',Insert,\ it_IT,'Taglio' ,'Ctrl+X',Cut ,\
it,'Elimina' ,'' ,Delete,\ it_IT,'Copia' ,'Ctrl+C',Copy ,\
it,'-','',,\ it_IT,'Incolla' ,'Ctrl+V',Insert,\
it,'Seleziona tutto','Ctrl+A',SelAll,\ it_IT,'Elimina' ,'' ,Delete,\
\ it_IT,'-','',,\
et,'Lõika' ,'Ctrl+X',Cut ,\ it_IT,'Seleziona tutto','Ctrl+A',SelAll,\
et,'Kopeeri' ,'Ctrl+C',Copy ,\ \
et,'Kleebi' ,'Ctrl+V',Insert,\ et_EE,'Lõika' ,'Ctrl+X',Cut ,\
et,'Kustuta' ,'' ,Delete,\ et_EE,'Kopeeri' ,'Ctrl+C',Copy ,\
et,'-','',,\ et_EE,'Kleebi' ,'Ctrl+V',Insert,\
et,'Vali kõik','Ctrl+A',SelAll,\ et_EE,'Kustuta' ,'' ,Delete,\
\ et_EE,'-','',,\
sp,'Cortar' ,'Ctrl+X',Cut ,\ et_EE,'Vali kõik','Ctrl+A',SelAll,\
sp,'Copiar' ,'Ctrl+C',Copy ,\ \
sp,'Pegar' ,'Ctrl+V',Insert,\ es_ES,'Cortar' ,'Ctrl+X',Cut ,\
sp,'Eliminar' ,'' ,Delete,\ es_ES,'Copiar' ,'Ctrl+C',Copy ,\
sp,'-','',,\ es_ES,'Pegar' ,'Ctrl+V',Insert,\
sp,'Seleccionar todo','Ctrl+A',SelAll es_ES,'Eliminar' ,'' ,Delete,\
es_ES,'-','',,\
popup_res mm.Search,\ es_ES,'Seleccionar todo','Ctrl+A',SelAll
ru,'<27>¥à¥©â¨...' ,'Ctrl+G',Position,\
ru,'-','',,\ popup_res mm.Search,\
ru,'<27> ©â¨...' ,'Ctrl+F',Find ,\ ru_RU,'<27>¥à¥©â¨...' ,'Ctrl+G',Position,\
ru,'<27> ©â¨ ¤ «¥¥','F3' ,FindNext,\ ru_RU,'-','',,\
ru,'‡ ¬¥­¨âì...','Ctrl+H',Replace ,\ ru_RU,'<27> ©â¨...' ,'Ctrl+F',Find ,\
\ ru_RU,'<27> ©â¨ ¤ «¥¥','F3' ,FindNext,\
en,'Position...','Ctrl+G',Position,\ ru_RU,'‡ ¬¥­¨âì...','Ctrl+H',Replace ,\
en,'-','',,\ \
en,'Find...' ,'Ctrl+F',Find ,\ en_US,'Position...','Ctrl+G',Position,\
en,'Find next' ,'F3' ,FindNext,\ en_US,'-','',,\
en,'Replace...' ,'Ctrl+H',Replace ,\ en_US,'Find...' ,'Ctrl+F',Find ,\
\ en_US,'Find next' ,'F3' ,FindNext,\
it,'Posizione...','Ctrl+G',Position,\ en_US,'Replace...' ,'Ctrl+H',Replace ,\
it,'-','',,\ \
it,'Trova...' ,'Ctrl+F',Find ,\ it_IT,'Posizione...','Ctrl+G',Position,\
it,'Trova il prossimo' ,'F3' ,FindNext,\ it_IT,'-','',,\
it,'Sostituire...' ,'Ctrl+H',Replace ,\ it_IT,'Trova...' ,'Ctrl+F',Find ,\
\ it_IT,'Trova il prossimo' ,'F3' ,FindNext,\
et,'Positsioon...','Ctrl+G',Position,\ it_IT,'Sostituire...' ,'Ctrl+H',Replace ,\
et,'-','',,\ \
et,'Leia...' ,'Ctrl+F',Find ,\ et_EE,'Positsioon...','Ctrl+G',Position,\
et,'Leia järgmine','F3' ,FindNext,\ et_EE,'-','',,\
et,'Asenda...' ,'Ctrl+H',Replace ,\ et_EE,'Leia...' ,'Ctrl+F',Find ,\
\ et_EE,'Leia järgmine','F3' ,FindNext,\
sp,'Posición...' ,'Ctrl+G',Position,\ et_EE,'Asenda...' ,'Ctrl+H',Replace ,\
sp,'-','',,\ \
sp,'Buscar...' ,'Ctrl+F',Find ,\ es_ES,'Posición...' ,'Ctrl+G',Position,\
sp,'Buscar siguiente','F3' ,FindNext,\ es_ES,'-','',,\
sp,'Reemplazar...','Ctrl+H',Replace es_ES,'Buscar...' ,'Ctrl+F',Find ,\
es_ES,'Buscar siguiente','F3' ,FindNext,\
popup_res mm.Run,\ es_ES,'Reemplazar...','Ctrl+H',Replace
ru,'‡ ¯ãáâ¨âì' ,'F9' ,Run ,\
ru,'‡ ¯ãáâ¨âì ¢ ¤¥¡ ££¥à¥','F10',Debug ,\ popup_res mm.Run,\
ru,'Š®¬¯¨«¨à®¢ âì' ,'Ctrl+F9',Compile ,\ ru_RU,'‡ ¯ãáâ¨âì' ,'F9' ,Run ,\
ru,'-','',,\ ru_RU,'‡ ¯ãáâ¨âì ¢ ¤¥¡ ££¥à¥','F10',Debug ,\
ru,'„®áª  ®â« ¤ª¨' ,'' ,DbgBoard,\ ru_RU,'Š®¬¯¨«¨à®¢ âì' ,'Ctrl+F9',Compile ,\
ru,'‘¨á⥬­ë¥ ä㭪樨','' ,SysFuncs,\ ru_RU,'-','',,\
\ ru_RU,'„®áª  ®â« ¤ª¨' ,'' ,DbgBoard,\
en,'Run' ,'F9' ,Run ,\ ru_RU,'‘¨á⥬­ë¥ ä㭪樨','' ,SysFuncs,\
en,'Run in debugger' ,'F10' ,Debug ,\ \
en,'Compile' ,'Ctrl+F9',Compile ,\ en_US,'Run' ,'F9' ,Run ,\
en,'-','',,\ en_US,'Run in debugger' ,'F10' ,Debug ,\
en,'Debug board' ,'' ,DbgBoard,\ en_US,'Compile' ,'Ctrl+F9',Compile ,\
en,'System functions' ,'' ,SysFuncs,\ en_US,'-','',,\
\ en_US,'Debug board' ,'' ,DbgBoard,\
it,'Correre' ,'F9' ,Run ,\ en_US,'System functions' ,'' ,SysFuncs,\
it,'Esegui nel debugger','F10',Debug ,\ \
it,'Compilare','Ctrl+F9',Compile ,\ it_IT,'Correre' ,'F9' ,Run ,\
it,'-','',,\ it_IT,'Esegui nel debugger','F10',Debug ,\
it,'Scheda di debug' ,'' ,DbgBoard,\ it_IT,'Compilare','Ctrl+F9',Compile ,\
it,'Funzioni di sistema','' ,SysFuncs,\ it_IT,'-','',,\
\ it_IT,'Scheda di debug' ,'' ,DbgBoard,\
et,'Käivita' ,'F9' ,Run ,\ it_IT,'Funzioni di sistema','' ,SysFuncs,\
et,'Käivita aastal siluri','F10',Debug ,\ \
et,'Kompileeri' ,'Ctrl+F9',Compile ,\ et_EE,'Käivita' ,'F9' ,Run ,\
et,'-','',,\ et_EE,'Käivita aastal siluri','F10',Debug ,\
et,'Silumis paneel' ,'' ,DbgBoard,\ et_EE,'Kompileeri' ,'Ctrl+F9',Compile ,\
et,'Süsteemi funktsioonid','' ,SysFuncs,\ et_EE,'-','',,\
\ et_EE,'Silumis paneel' ,'' ,DbgBoard,\
sp,'Ejecutar' ,'F9' ,Run ,\ et_EE,'Süsteemi funktsioonid','' ,SysFuncs,\
sp,'Ejecutar en el depurador','F10',Debug,\ \
sp,'Compilar' ,'Ctrl+F9',Compile ,\ es_ES,'Ejecutar' ,'F9' ,Run ,\
sp,'-','',,\ es_ES,'Ejecutar en el depurador','F10',Debug,\
sp,'Depuración' ,'' ,DbgBoard,\ es_ES,'Compilar' ,'Ctrl+F9',Compile ,\
sp,'Funciones del sistema' ,'',SysFuncs es_ES,'-','',,\
es_ES,'Depuración' ,'' ,DbgBoard,\
popup_res mm.Encoding,\ es_ES,'Funciones del sistema' ,'',SysFuncs
@!,<'CP866 ',0x1A,' CP1251'>,'',CP866.CP1251,\
@!,<'CP1251 ',0x1A,' CP866' >,'',CP1251.CP866,\ popup_res mm.Encoding,\
@!,<'-'>,'',,\ @!,<'CP866 ',0x1A,' CP1251'>,'',CP866.CP1251,\
@!,<'CP866 ',0x1A,' KOI8-R'>,'',CP866.KOI8R ,\ @!,<'CP1251 ',0x1A,' CP866' >,'',CP1251.CP866,\
@!,<'KOI8-R ',0x1A,' CP866' >,'',KOI8R.CP866 ,\ @!,<'-'>,'',,\
@!,<'-'>,'',,\ @!,<'CP866 ',0x1A,' KOI8-R'>,'',CP866.KOI8R ,\
@!,<'CP1251 ',0x1A,' KOI8-R'>,'',CP1251.KOI8R,\ @!,<'KOI8-R ',0x1A,' CP866' >,'',KOI8R.CP866 ,\
@!,<'KOI8-R ',0x1A,' CP1251'>,'',KOI8R.CP1251 @!,<'-'>,'',,\
@!,<'CP1251 ',0x1A,' KOI8-R'>,'',CP1251.KOI8R,\
popup_res mm.Options,\ @!,<'KOI8-R ',0x1A,' CP1251'>,'',KOI8R.CP1251
ru,'“¢¥«¨ç¨âì' ,'Ctrl +',ZoomIn ,\
ru,'“¬¥­ìè¨âì' ,'Ctrl -',ZoomOut ,\ popup_res mm.Options,\
ru,'-','',,\ ru_RU,'“¢¥«¨ç¨âì' ,'Ctrl +',ZoomIn ,\
ru,'<27>®¬¥à  áâப' ,'',LineNumbers ,\ ru_RU,'“¬¥­ìè¨âì' ,'Ctrl -',ZoomOut ,\
ru,'<27>¥§®¯ á­®¥ ¢ë¤¥«¥­¨¥' ,'',SecureSel ,\ ru_RU,'-','',,\
ru,'€¢â®¬ â¨ç¥áª¨¥ ᪮¡ª¨' ,'',AutoBrackets,\ ru_RU,'<27>®¬¥à  áâப' ,'',LineNumbers ,\
ru,'€¢â®¬ â¨ç¥áª¨© ®âáâã¯' ,'',AutoIndents ,\ ru_RU,'<27>¥§®¯ á­®¥ ¢ë¤¥«¥­¨¥' ,'',SecureSel ,\
ru,'Ž¯â¨¬ «ì­®¥ á®åà ­¥­¨¥' ,'',OptimalFill ,\ ru_RU,'€¢â®¬ â¨ç¥áª¨¥ ᪮¡ª¨' ,'',AutoBrackets,\
ru,'-','',,\ ru_RU,'€¢â®¬ â¨ç¥áª¨© ®âáâã¯' ,'',AutoIndents ,\
ru,'‚­¥è­¨© ¢¨¤...' ,'',Appearance ,\ ru_RU,'Ž¯â¨¬ «ì­®¥ á®åà ­¥­¨¥' ,'',OptimalFill ,\
\ ru_RU,'-','',,\
en,'Zoom in' ,'Ctrl +',ZoomIn ,\ ru_RU,'‚­¥è­¨© ¢¨¤...' ,'',Appearance ,\
en,'Zoom out' ,'Ctrl -',ZoomOut ,\ \
en,'-','',,\ en_US,'Zoom in' ,'Ctrl +',ZoomIn ,\
en,'Line numbers' ,'',LineNumbers ,\ en_US,'Zoom out' ,'Ctrl -',ZoomOut ,\
en,'Secure selection' ,'',SecureSel ,\ en_US,'-','',,\
en,'Automatic brackets' ,'',AutoBrackets,\ en_US,'Line numbers' ,'',LineNumbers ,\
en,'Automatic indents' ,'',AutoIndents ,\ en_US,'Secure selection' ,'',SecureSel ,\
en,'Optimal fill on saving' ,'',OptimalFill ,\ en_US,'Automatic brackets' ,'',AutoBrackets,\
en,'-','',,\ en_US,'Automatic indents' ,'',AutoIndents ,\
en,'Appearance...' ,'',Appearance ,\ en_US,'Optimal fill on saving' ,'',OptimalFill ,\
\ en_US,'-','',,\
it,'Ingrandire' ,'Ctrl +',ZoomIn ,\ en_US,'Appearance...' ,'',Appearance ,\
it,'Rimpicciolisci' ,'Ctrl -',ZoomOut ,\ \
it,'-','',,\ it_IT,'Ingrandire' ,'Ctrl +',ZoomIn ,\
it,'Numeri di riga' ,'',LineNumbers ,\ it_IT,'Rimpicciolisci' ,'Ctrl -',ZoomOut ,\
it,'Selezione sicura' ,'',SecureSel ,\ it_IT,'-','',,\
it,'Staffe automatiche' ,'',AutoBrackets,\ it_IT,'Numeri di riga' ,'',LineNumbers ,\
it,'Rientri automatici' ,'',AutoIndents ,\ it_IT,'Selezione sicura' ,'',SecureSel ,\
it,'Combina spazi' ,'',OptimalFill ,\ it_IT,'Staffe automatiche' ,'',AutoBrackets,\
it,'-','',,\ it_IT,'Rientri automatici' ,'',AutoIndents ,\
it,'Aspetto...' ,'',Appearance ,\ it_IT,'Combina spazi' ,'',OptimalFill ,\
\ it_IT,'-','',,\
et,'Zoom in' ,'Ctrl +',ZoomIn ,\ it_IT,'Aspetto...' ,'',Appearance ,\
et,'Zoom out' ,'Ctrl -',ZoomOut ,\ \
et,'-','',,\ et_EE,'Zoom in' ,'Ctrl +',ZoomIn ,\
et,'Rea numbrid' ,'',LineNumbers ,\ et_EE,'Zoom out' ,'Ctrl -',ZoomOut ,\
et,'Turvaline valimine' ,'',SecureSel ,\ et_EE,'-','',,\
et,'Automaatsed sulud' ,'',AutoBrackets,\ et_EE,'Rea numbrid' ,'',LineNumbers ,\
et,'Automaatsed taandread' ,'',AutoIndents ,\ et_EE,'Turvaline valimine' ,'',SecureSel ,\
et,'Optimaalne täitmine salvestamisel','',OptimalFill,\ et_EE,'Automaatsed sulud' ,'',AutoBrackets,\
et,'-','',,\ et_EE,'Automaatsed taandread' ,'',AutoIndents ,\
et,'Välimus...' ,'',Appearance ,\ et_EE,'Optimaalne täitmine salvestamisel','',OptimalFill,\
\ et_EE,'-','',,\
sp,'Zoom in' ,'Ctrl +',ZoomIn ,\ et_EE,'Välimus...' ,'',Appearance ,\
sp,'Zoom out' ,'Ctrl -',ZoomOut ,\ \
sp,'-','',,\ es_ES,'Zoom in' ,'Ctrl +',ZoomIn ,\
sp,'Números en líneas' ,'',LineNumbers ,\ es_ES,'Zoom out' ,'Ctrl -',ZoomOut ,\
sp,'Selección segura' ,'',SecureSel ,\ es_ES,'-','',,\
sp,'Paréntesis automáticos' ,'',AutoBrackets,\ es_ES,'Números en líneas' ,'',LineNumbers ,\
sp,'Identación automática' ,'',AutoIndents ,\ es_ES,'Selección segura' ,'',SecureSel ,\
sp,'Llenado óptimo al guardar','',OptimalFill ,\ es_ES,'Paréntesis automáticos' ,'',AutoBrackets,\
sp,'-','',,\ es_ES,'Identación automática' ,'',AutoIndents ,\
sp,'Apariencia...' ,'',Appearance es_ES,'Llenado óptimo al guardar','',OptimalFill ,\
es_ES,'-','',,\
lsz s_defname,\ es_ES,'Apariencia...' ,'',Appearance
ru,<'<27>¥§ë¬ï­­ë©',0>,\
en,<'Untitled',0>,\ lsz s_defname,\
it,<'Senza titolo',0>,\ ru_RU,<'<27>¥§ë¬ï­­ë©',0>,\
et,<'Nimetu',0>,\ en_US,<'Untitled',0>,\
sp,<'Sin título',0> it_IT,<'Senza titolo',0>,\
et_EE,<'Nimetu',0>,\
lsz s_modified,\ es_ES,<'Sin título',0>
ru,'ˆ§¬¥­¥­®',\
en,'Modified',\ lsz s_modified,\
it,'Modificato',\ ru_RU,'ˆ§¬¥­¥­®',\
et,'Muudetud',\ en_US,'Modified',\
sp,'Modificado' it_IT,'Modificato',\
et_EE,'Muudetud',\
lsz s_2filename,\ es_ES,'Modificado'
ru,'ˆ¬ï ä ©« :',\
en,'Filename:',\ lsz s_2filename,\
en,'Nome del file:',\ ru_RU,'ˆ¬ï ä ©« :',\
et,'Faili nimi:',\ en_US,'Filename:',\
sp,'Nombre de archivo:' en_US,'Nome del file:',\
lsz s_2open,\ et_EE,'Faili nimi:',\
ru,'Žâªàëâì',\ es_ES,'Nombre de archivo:'
en,'Open',\
it,'Aperto',\ lsz s_2open,\
et,'Ava',\ ru_RU,'Žâªàëâì',\
sp,'Abrir' en_US,'Open',\
lsz s_2save,\ it_IT,'Aperto',\
ru,'‘®åà ­¨âì',\ et_EE,'Ava',\
en,'Save',\ es_ES,'Abrir'
it,'Salva',\
et,'Salvesta',\ lsz s_2save,\
sp,'Guardar' ru_RU,'‘®åà ­¨âì',\
lsz s_2save_no,\ en_US,'Save',\
ru,'<27>¥â',\ it_IT,'Salva',\
en,'No',\ et_EE,'Salvesta',\
it,'No',\ es_ES,'Guardar'
et,'Ei',\
sp,'No' lsz s_2save_no,\
lsz s_2find,\ ru_RU,'<27>¥â',\
ru,'<27> ©â¨',\ en_US,'No',\
en,'Find',\ it_IT,'No',\
it,'Trova',\ et_EE,'Ei',\
et,'Leia',\ es_ES,'No'
sp,'Buscar'
db ':' lsz s_2find,\
lsz s_2replace,\ ru_RU,'<27> ©â¨',\
ru,'‡ ¬¥­¨âì',\ en_US,'Find',\
en,'Replace',\ it_IT,'Trova',\
it,'Sostituire',\ et_EE,'Leia',\
et,'Asenda',\ es_ES,'Buscar'
sp,'Reemplazar' db ':'
db ':'
lsz s_2cancel,\ lsz s_2replace,\
ru,'Žâ¬¥­ ',\ ru_RU,'‡ ¬¥­¨âì',\
en,'Cancel',\ en_US,'Replace',\
it,'Annulla',\ it_IT,'Sostituire',\
et,'Tühista',\ et_EE,'Asenda',\
sp,'Cancelar' es_ES,'Reemplazar'
lsz s_color,\ db ':'
ru,'–¢¥â: 0x',\
en,'Color: 0x',\ lsz s_2cancel,\
it,'Colore: 0x',\ ru_RU,'Žâ¬¥­ ',\
et,'Värv: 0x',\ en_US,'Cancel',\
sp,'Color: 0x' it_IT,'Annulla',\
lsz s_tabpos,\ et_EE,'Tühista',\
ru,'<27> á¯®«®¦¥­¨¥ § ª« ¤®ª',\ es_ES,'Cancelar'
en,'Tabs placement',\
it,'Posizionamento delle schede',\ lsz s_color,\
et,'Saki asetus',\ ru_RU,'–¢¥â: 0x',\
sp,'Lugar de tabulador' en_US,'Color: 0x',\
it_IT,'Colore: 0x',\
lsz s_enter_filename,\ et_EE,'Värv: 0x',\
ru,<'‚¢¥¤¨â¥ ¨¬ï ä ©« ',0>,\ es_ES,'Color: 0x'
en,<'Enter filename',0>,\
it,<'Inserisci il nome del file',0>,\ lsz s_tabpos,\
et,<'Sisesta faili nimi',0>,\ ru_RU,'<27> á¯®«®¦¥­¨¥ § ª« ¤®ª',\
sp,<'Ingresa el nombre del archivo',0> en_US,'Tabs placement',\
it_IT,'Posizionamento delle schede',\
lsz s_ask_save,\ et_EE,'Saki asetus',\
ru,<'†¥« ¥â¥ á®åà ­¨âì?',0>,\ es_ES,'Lugar de tabulador'
en,<'Would you like to save?',0>,\
it,<'Vorresti salvare?',0>,\ lsz s_enter_filename,\
et,<'Kas soovite salvestada?',0>,\ ; Now correct ru_RU,<'‚¢¥¤¨â¥ ¨¬ï ä ©« ',0>,\
sp,<'¿Quieres guardar?',0> en_US,<'Enter filename',0>,\
it_IT,<'Inserisci il nome del file',0>,\
lsz s_enter_text_to_find,\ et_EE,<'Sisesta faili nimi',0>,\
ru,<'‚¢¥¤¨â¥ ⥪áâ ¤«ï ¯®¨áª ',0>,\ es_ES,<'Ingresa el nombre del archivo',0>
en,<'Enter text to find',0>,\
it,<'Inserisci il testo per trovare',0>,\ lsz s_ask_save,\
et,<'Sisesta otsitav tekst',0>,\ ru_RU,<'†¥« ¥â¥ á®åà ­¨âì?',0>,\
sp,<'Ingresa el texto a buscar',0> en_US,<'Would you like to save?',0>,\
it_IT,<'Vorresti salvare?',0>,\
lsz s_enter_text_to_replace,\ et_EE,<'Kas soovite salvestada?',0>,\
ru,<'‚¢¥¤¨â¥ ⥪áâ ¤«ï § ¬¥­ë',0>,\ es_ES,<'¿Quieres guardar?',0>
en,<'Enter text to replace',0>,\
it,<'Inserisci il testo da sostituire',0>,\ lsz s_enter_text_to_find,\
et,<'Sisesta asendatav tekst',0>,\ ru_RU,<'‚¢¥¤¨â¥ ⥪áâ ¤«ï ¯®¨áª ',0>,\
sp,<'Ingresa el texto a reemplazar',0> en_US,<'Enter text to find',0>,\
it_IT,<'Inserisci il testo per trovare',0>,\
lsz s_text_not_found,\ et_EE,<'Sisesta otsitav tekst',0>,\
ru,<'„®á⨣­ãâ ª®­¥æ ä ©« , ⥪áâ ­¥ ­ ©¤¥­',0>,\ es_ES,<'Ingresa el texto a buscar',0>
en,<'Reached end of file, text not found',0>,\
it,<'Raggiunta la fine del file, testo non trovato',0>,\ lsz s_enter_text_to_replace,\
et,<'Faili lõpp, teksti ei leitud',0>,\ ru_RU,<'‚¢¥¤¨â¥ ⥪áâ ¤«ï § ¬¥­ë',0>,\
sp,<'Se llegó al final del archivo, texto no encontrado',0> en_US,<'Enter text to replace',0>,\
it_IT,<'Inserisci il testo da sostituire',0>,\
lszc s_fs_error,b,\ et_EE,<'Sisesta asendatav tekst',0>,\
ru,<'Ž¯¥à æ¨ï § ¢¥à襭  ãᯥ譮 (0)',0>,\ es_ES,<'Ingresa el texto a reemplazar',0>
ru,<'',0>,\
ru,<'”ã­ªæ¨ï ­¥ ¯®¤¤¥à¦¨¢ ¥âáï ¤«ï ¤ ­­®© ä ©«®¢®© á¨á⥬ë (2)',0>,\ lsz s_text_not_found,\
ru,<'<27>¥¨§¢¥áâ­ ï ä ©«®¢ ï á¨á⥬  (3)',0>,\ ru_RU,<'„®á⨣­ãâ ª®­¥æ ä ©« , ⥪áâ ­¥ ­ ©¤¥­',0>,\
ru,<'',0>,\ en_US,<'Reached end of file, text not found',0>,\
ru,<'<27>¥¢®§¬®¦­® ®âªàëâì ä ©« (5)',0>,\ it_IT,<'Raggiunta la fine del file, testo non trovato',0>,\
ru,<'Ž¯¥à æ¨ï § ¢¥à襭  ãᯥ譮 (6)',0>,\ et_EE,<'Faili lõpp, teksti ei leitud',0>,\
ru,<'€¤à¥á ­ å®¤¨âáï §  £à ­¨æ ¬¨ ¯ ¬ï⨠¯à®£à ¬¬ë (7)',0>,\ es_ES,<'Se llegó al final del archivo, texto no encontrado',0>
ru,<'<27>  ¤¨áª¥ ­¥â ᢮¡®¤­®£® ¬¥áâ  (8)',0>,\
ru,<'’ ¡«¨æ  FAT ã­¨ç⮦¥­  (9)',0>,\ lszc s_fs_error,b,\
ru,<'„®áâ㯠§ ¯à¥éñ­ (10)',0>,\ ru_RU,<'Ž¯¥à æ¨ï § ¢¥à襭  ãᯥ譮 (0)',0>,\
ru,<'Žè¨¡ª  ãáâனá⢠ (11)',0>,\ ru_RU,<'',0>,\
\ ru_RU,<'”ã­ªæ¨ï ­¥ ¯®¤¤¥à¦¨¢ ¥âáï ¤«ï ¤ ­­®© ä ©«®¢®© á¨á⥬ë (2)',0>,\
en,<'Operation executed successfully (0)',0>,\ ru_RU,<'<27>¥¨§¢¥áâ­ ï ä ©«®¢ ï á¨á⥬  (3)',0>,\
en,<'',0>,\ ru_RU,<'',0>,\
en,<'Function is not supported for the given filesystem (2)',0>,\ ru_RU,<'<27>¥¢®§¬®¦­® ®âªàëâì ä ©« (5)',0>,\
en,<'Unknown filesystem (3)',0>,\ ru_RU,<'Ž¯¥à æ¨ï § ¢¥à襭  ãᯥ譮 (6)',0>,\
en,<'',0>,\ ru_RU,<'€¤à¥á ­ å®¤¨âáï §  £à ­¨æ ¬¨ ¯ ¬ï⨠¯à®£à ¬¬ë (7)',0>,\
en,<'Unable to open file (5)',0>,\ ru_RU,<'<27>  ¤¨áª¥ ­¥â ᢮¡®¤­®£® ¬¥áâ  (8)',0>,\
en,<'Operation executed successfully (6)',0>,\ ru_RU,<'’ ¡«¨æ  FAT ã­¨ç⮦¥­  (9)',0>,\
en,<'Pointer lies outside of application memory (7)',0>,\ ru_RU,<'„®áâ㯠§ ¯à¥éñ­ (10)',0>,\
en,<'Disk is full (8)',0>,\ ru_RU,<'Žè¨¡ª  ãáâனá⢠ (11)',0>,\
en,<'FAT table is destroyed (9)',0>,\ \
en,<'Access denied (10)',0>,\ en_US,<'Operation executed successfully (0)',0>,\
en,<'Device error (11)',0>,\ en_US,<'',0>,\
\ en_US,<'Function is not supported for the given filesystem (2)',0>,\
it,<'Operazione eseguita correttamente (0)',0>,\ en_US,<'Unknown filesystem (3)',0>,\
it,<'',0>,\ en_US,<'',0>,\
it,<'La funzione non e supportata per il file system specificato (2)', 0>, \ en_US,<'Unable to open file (5)',0>,\
it,<'Unknown filesystem (3)',0>,\ en_US,<'Operation executed successfully (6)',0>,\
it,<'',0>,\ en_US,<'Pointer lies outside of application memory (7)',0>,\
it,<'Impossibile aprire il file (5)',0>,\ en_US,<'Disk is full (8)',0>,\
it,<'Operazione eseguita correttamente (6)',0>,\ en_US,<'FAT table is destroyed (9)',0>,\
it,<'Il puntatore si trova al di fuori della memoria dell',96,'applicazione (7)', 0>, \ en_US,<'Access denied (10)',0>,\
it,<'Il disco e pieno (8)',0>,\ en_US,<'Device error (11)',0>,\
it,<'La tabella FAT e distrutta (9)',0>,\ \
it,<'Accesso negato (10)',0>,\ it_IT,<'Operazione eseguita correttamente (0)',0>,\
it,<'Errore dispositivo (11)',0>,\ it_IT,<'',0>,\
\ it_IT,<'La funzione non e supportata per il file system specificato (2)', 0>, \
et,<'Operatsioon käivitati edukalt (0)',0>,\ it_IT,<'Unknown filesystem (3)',0>,\
et,<'',0>,\ it_IT,<'',0>,\
et,<'Failisüsteem ei toeta funktsiooni (2)',0>,\ it_IT,<'Impossibile aprire il file (5)',0>,\
et,<'Tundmatu failisüsteem (3)',0>,\ it_IT,<'Operazione eseguita correttamente (6)',0>,\
et,<'',0>,\ it_IT,<'Il puntatore si trova al di fuori della memoria dell',96,'applicazione (7)', 0>, \
et,<'Faili ei suudetud avada (5)',0>,\ it_IT,<'Il disco e pieno (8)',0>,\
et,<'Operatsioon käivitatud edukalt (6)',0>,\ it_IT,<'La tabella FAT e distrutta (9)',0>,\
et,<'Viit on väljaspool programmi mälu (7)',0>,\ it_IT,<'Accesso negato (10)',0>,\
et,<'Ketas täis (8)',0>,\ it_IT,<'Errore dispositivo (11)',0>,\
et,<'FAT tabel hävitatud (9)',0>,\ \
et,<'Juurdepääs keelatud (10)',0>,\ et_EE,<'Operatsioon käivitati edukalt (0)',0>,\
et,<'Seadme viga (11)',0>,\ et_EE,<'',0>,\
\ et_EE,<'Failisüsteem ei toeta funktsiooni (2)',0>,\
sp,<'Operación ejecutada correctamente (0)',0>,\ et_EE,<'Tundmatu failisüsteem (3)',0>,\
sp,<'',0>,\ et_EE,<'',0>,\
sp,<'La función no está soportada por el sistema de archivos dado (2)',0>,\ et_EE,<'Faili ei suudetud avada (5)',0>,\
sp,<'Sistema de archivos desconocido (3)',0>,\ et_EE,<'Operatsioon käivitatud edukalt (6)',0>,\
sp,<'',0>,\ et_EE,<'Viit on väljaspool programmi mälu (7)',0>,\
sp,<'No es posible abrir el archivo (5)',0>,\ et_EE,<'Ketas täis (8)',0>,\
sp,<'Operación ejecutada correctamente (6)',0>,\ et_EE,<'FAT tabel hävitatud (9)',0>,\
sp,<'El puntero está fuera de la memoria de la aplicación (7)',0>,\ et_EE,<'Juurdepääs keelatud (10)',0>,\
sp,<'El disco está lleno (8)',0>,\ et_EE,<'Seadme viga (11)',0>,\
sp,<'La tabla FAT está destruida (9)',0>,\ \
sp,<'Acceso denegado (10)',0>,\ es_ES,<'Operación ejecutada correctamente (0)',0>,\
sp,<'Error de dispositivo (11)',0> es_ES,<'',0>,\
es_ES,<'La función no está soportada por el sistema de archivos dado (2)',0>,\
lszc s_appearance,b,\ es_ES,<'Sistema de archivos desconocido (3)',0>,\
ru,'’¥ªáâ',\ es_ES,<'',0>,\
ru,'”®­',\ es_ES,<'No es posible abrir el archivo (5)',0>,\
ru,'’¥ªá⠢뤥«¥­¨ï',\ es_ES,<'Operación ejecutada correctamente (6)',0>,\
ru,'”®­ ¢ë¤¥«¥­¨ï',\ es_ES,<'El puntero está fuera de la memoria de la aplicación (7)',0>,\
ru,'‘¨¬¢®«ë',\ es_ES,<'El disco está lleno (8)',0>,\
ru,'—¨á« ',\ es_ES,<'La tabla FAT está destruida (9)',0>,\
ru,'‘âப¨',\ es_ES,<'Acceso denegado (10)',0>,\
ru,'Š®¬¬¥­â à¨¨',\ es_ES,<'Error de dispositivo (11)',0>
ru,'ˆ§¬¥­ñ­ë¥ áâப¨',\
ru,'‘®åà ­ñ­­ë¥ áâப¨',\ lszc s_appearance,b,\
\ ru_RU,'’¥ªáâ',\
en,'Text',\ ru_RU,'”®­',\
en,'Background',\ ru_RU,'’¥ªá⠢뤥«¥­¨ï',\
en,'Selection text',\ ru_RU,'”®­ ¢ë¤¥«¥­¨ï',\
en,'Selection background',\ ru_RU,'‘¨¬¢®«ë',\
en,'Symbols',\ ru_RU,'—¨á« ',\
en,'Numbers',\ ru_RU,'‘âப¨',\
en,'Strings',\ ru_RU,'Š®¬¬¥­â à¨¨',\
en,'Comments',\ ru_RU,'ˆ§¬¥­ñ­ë¥ áâப¨',\
en,'Modified lines',\ ru_RU,'‘®åà ­ñ­­ë¥ áâப¨',\
en,'Saved lines',\ \
\ en_US,'Text',\
it,'Testo',\ en_US,'Background',\
it,'Sfondo',\ en_US,'Selection text',\
it,'Testo di selezione',\ en_US,'Selection background',\
it,'Sfondo di selezione',\ en_US,'Symbols',\
it,'Simboli',\ en_US,'Numbers',\
it,'Numeri',\ en_US,'Strings',\
it,'Stringhe',\ en_US,'Comments',\
it,'Commenti',\ en_US,'Modified lines',\
it,'Linee modificate',\ en_US,'Saved lines',\
it,'Linee salvate',\ \
\ it_IT,'Testo',\
et,'Tekst',\ it_IT,'Sfondo',\
et,'Taust',\ it_IT,'Testo di selezione',\
et,'Valitud tekst',\ it_IT,'Sfondo di selezione',\
et,'Valitud taust',\ it_IT,'Simboli',\
et,'Sümbolid',\ it_IT,'Numeri',\
et,'Numbrid',\ it_IT,'Stringhe',\
et,'Stringid',\ it_IT,'Commenti',\
et,'Kommentaarid',\ it_IT,'Linee modificate',\
et,'Muudetud read',\ it_IT,'Linee salvate',\
et,'Salvestatud read',\ \
\ et_EE,'Tekst',\
sp,'Texto',\ et_EE,'Taust',\
sp,'Fondo',\ et_EE,'Valitud tekst',\
sp,'Texto de selección',\ et_EE,'Valitud taust',\
sp,'Fondo de selección',\ et_EE,'Sümbolid',\
sp,'Símbolos',\ et_EE,'Numbrid',\
sp,'Números',\ et_EE,'Stringid',\
sp,'Cadenas',\ et_EE,'Kommentaarid',\
sp,'Comentarios',\ et_EE,'Muudetud read',\
sp,'Líneas modificadas',\ et_EE,'Salvestatud read',\
sp,'Líneas guardadas' \
es_ES,'Texto',\
lsz sysfuncs_filename,\ es_ES,'Fondo',\
ru,<'SYSFUNCR.TXT',0>,\ es_ES,'Texto de selección',\
en,<'SYSFUNCS.TXT',0>,\ es_ES,'Fondo de selección',\
it,<'SYSFUNCS.TXT',0>,\ es_ES,'Símbolos',\
et,<'SYSFUNCET.TXT',0>,\ es_ES,'Números',\
sp,<'SYSFUNCS.TXT',0> es_ES,'Cadenas',\
es_ES,'Comentarios',\
sz s_example,'/sys/example.asm' es_ES,'Líneas modificadas',\
sz s_still ,'still' es_ES,'Líneas guardadas'
lsz sysfuncs_filename,\
ru_RU,<'SYSFUNCR.TXT',0>,\
en_US,<'SYSFUNCS.TXT',0>,\
it_IT,<'SYSFUNCS.TXT',0>,\
et_EE,<'SYSFUNCET.TXT',0>,\
es_ES,<'SYSFUNCS.TXT',0>
sz s_example,'/sys/example.asm'
sz s_still ,'still'

16
programs/fs/copyr/trunk/copyr.asm
View File

@ -8,7 +8,7 @@
; ; ; ;
; On base SYSTREE FILE COPIER 1.02 ; ; On base SYSTREE FILE COPIER 1.02 ;
; Ivan Poddubny ivan-yar@bk.ru ; ; Ivan Poddubny ivan-yar@bk.ru ;
; ; ; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;„ ­­ ï ¯à®£  ¥é¥ áëà ï ¨ £«îç­ ï ­® 㦥 ª®¥ ª ª à ¡®â ¥â ;„ ­­ ï ¯à®£  ¥é¥ áëà ï ¨ £«îç­ ï ­® 㦥 ª®¥ ª ª à ¡®â ¥â
@ -23,11 +23,11 @@
dd 0x10000 ; esp dd 0x10000 ; esp
dd param_area , 0x0 ; I_Param , I_Icon dd param_area , 0x0 ; I_Param , I_Icon
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
include '..\..\..\macros.inc' ; very useful stuff for MeOS include '..\..\..\macros.inc' ; very useful stuff for MeOS
include 'ascl.inc' include 'ascl.inc'
START: ; start of execution START: ; start of execution
; <20> à ¬¥âàë: ; <20> à ¬¥âàë:
; db n1 = ¤«¨­  ¯ã⨠ª ¨áâ®ç­¨ªã ; db n1 = ¤«¨­  ¯ã⨠ª ¨áâ®ç­¨ªã
@ -187,7 +187,7 @@ draw_window:
mov edi,labelt ; WINDOW LABEL mov edi,labelt ; WINDOW LABEL
mcall mcall
mov eax,8 mov eax,8
mov ebx,105*65536+290 mov ebx,105*65536+290
mov ecx,33*65536+12 mov ecx,33*65536+12
@ -264,12 +264,13 @@ errors:
db "(§ ¯¨áì) ­¥¨§¢¥áâ­ ï ®è¨¡ª  " db "(§ ¯¨áì) ­¥¨§¢¥áâ­ ï ®è¨¡ª  "
db "<22>ãâì ª ¨áâ®ç­¨ªã ¨ ¯à¨¥¬­¨ªã ­¥ 㪠§ ­ë!!! " db "<22>ãâì ª ¨áâ®ç­¨ªã ¨ ¯à¨¥¬­¨ªã ­¥ 㪠§ ­ë!!! "
db "<22>ãâì ª ¯à¨¥¬­¨ªã ­¥ 㪠§ ­!!! " db "<22>ãâì ª ¯à¨¥¬­¨ªã ­¥ 㪠§ ­!!! "
else
else ; Default to en_US
text: text:
db 'SOURCE: | ' db 'SOURCE: | '
db 'DESTINATION: | ' db 'DESTINATION: | '
db ' ' db ' '
db 'x' ; <- END MARKER, DONT DELETE db 'x' ; <- END MARKER, DO NOT DELETE
labelt: labelt:
db 'SYSTREE FILE COPIER' db 'SYSTREE FILE COPIER'
labellen: labellen:
@ -292,6 +293,7 @@ errors:
db "(write) unknown error " db "(write) unknown error "
db "Path to source is not given!!! " db "Path to source is not given!!! "
db "Path to destination is not given!!! " db "Path to destination is not given!!! "
end if end if
;0123456789012345678901234567890123456789012 ;0123456789012345678901234567890123456789012

17866
programs/fs/kfar/trunk/kfar.asm
View File

File diff suppressed because it is too large Load Diff

1828
programs/fs/unz/unz.asm
View File

File diff suppressed because it is too large Load Diff

980
programs/games/15/trunk/15.ASM
View File

@ -1,490 +1,490 @@
; ;
; The famous game 15 ; The famous game 15
; Author: Lloyd, coded by Ivushkin Andrey ; Author: Lloyd, coded by Ivushkin Andrey
; Compile with FASM ; Compile with FASM
; ;
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (CP866), it_IT, de_DE, en_US.
include '..\..\..\macros.inc' ; decreases program size (not required) include '..\..\..\macros.inc' ; decreases program size (not required)
StatusColor equ 0x00ffffff StatusColor equ 0x00ffffff
StatusColor2 equ 0x00dc1e14 StatusColor2 equ 0x00dc1e14
BgdColor equ 0x14aabbcc BgdColor equ 0x14aabbcc
; Main window dimensions ; Main window dimensions
XXwindow equ 200 shl 16+276 XXwindow equ 200 shl 16+276
YYwindow equ 200 shl 16+300 YYwindow equ 200 shl 16+300
; Status bar ; Status bar
XYstatus equ 35 shl 16+283 XYstatus equ 35 shl 16+283
XXbar equ 35 shl 16+136 XXbar equ 35 shl 16+136
YYbar equ 280 shl 16+15 YYbar equ 280 shl 16+15
; Buttons ; Buttons
BtnTop equ 28 BtnTop equ 28
BtnLeft equ 13 BtnLeft equ 13
BtnSize equ 60 BtnSize equ 60
BtnColor equ 0xafbb55 BtnColor equ 0xafbb55
BtnColor2 equ 0x0228c314 BtnColor2 equ 0x0228c314
NumColor equ 0x10000000 NumColor equ 0x10000000
; Number shifting for nice look ; Number shifting for nice look
NumShift equ 23 shl 16+23 NumShift equ 23 shl 16+23
NumShift2 equ 4 shl 16 NumShift2 equ 4 shl 16
; Shuffle button ; Shuffle button
XXSh equ 202 shl 16+60 XXSh equ 202 shl 16+60
YYSh equ 280 shl 16+12 YYSh equ 280 shl 16+12
XYShText equ 212 shl 16+283 XYShText equ 212 shl 16+283
; Conf button ; Conf button
XXCnf equ 13 shl 16+13 XXCnf equ 13 shl 16+13
YYCnf equ 280 shl 16+12 YYCnf equ 280 shl 16+12
XYCnfText equ 18 shl 16+283 XYCnfText equ 18 shl 16+283
; Position of the 'hole' ; Position of the 'hole'
null equ (curconf+16) null equ (curconf+16)
; Amount of moves to perform shuffle ; Amount of moves to perform shuffle
SH_CYCLES equ 400 SH_CYCLES equ 400
; (Amount of tasks)-1 ; (Amount of tasks)-1
CONF_COUNT equ 2 CONF_COUNT equ 2
use32 use32
org 0x0 org 0x0
db 'MENUET01' db 'MENUET01'
dd 0x01 dd 0x01
dd START dd START
dd I_END dd I_END
dd 0x2000 ; 8 Kb dd 0x2000 ; 8 Kb
dd 0x2000 dd 0x2000
dd 0x0 dd 0x0
dd 0x0 dd 0x0
START: START:
mov [cptr],CONF_COUNT ; number of task mov [cptr],CONF_COUNT ; number of task
mov eax,3 mov eax,3
mcall mcall
mov cl,16 mov cl,16
ror eax,cl ror eax,cl
mov [generator],eax ; random generator from Tetris mov [generator],eax ; random generator from Tetris
init: init:
mov ecx,17 mov ecx,17
movzx eax,[cptr] movzx eax,[cptr]
inc eax inc eax
cmp eax,CONF_COUNT cmp eax,CONF_COUNT
jna init_ok jna init_ok
xor eax,eax ; cycling 0..CONF_COUNT xor eax,eax ; cycling 0..CONF_COUNT
init_ok: init_ok:
mov [cptr],al mov [cptr],al
mov esi,eax mov esi,eax
shl esi,4 shl esi,4
add esi,conf add esi,conf
add esi,eax add esi,eax
add al,0x31 add al,0x31
mov [txtTitle+17],al ;task number to program title mov [txtTitle+17],al ;task number to program title
mov [task],esi mov [task],esi
mov edi,curconf mov edi,curconf
rep movsb ; initial configuration rep movsb ; initial configuration
mov [sts],4 mov [sts],4
jmp red jmp red
SHUF: SHUF:
call shuffle ; immediate shuffle call shuffle ; immediate shuffle
red: ; window redraw red: ; window redraw
call draw_window call draw_window
still: ; MAIN PROGRAM CYCLE still: ; MAIN PROGRAM CYCLE
mov eax,10 ; wait for event mov eax,10 ; wait for event
mcall mcall
cmp eax,1 ; redraw? - cmp eax,1 ; redraw? -
je red ; goto red je red ; goto red
cmp eax,2 ; key pressed? - cmp eax,2 ; key pressed? -
je key ; goto key je key ; goto key
cmp eax,3 ; button pressed? - cmp eax,3 ; button pressed? -
je button ; goto button je button ; goto button
jmp still ; no more events to process jmp still ; no more events to process
key: ; Key pressed key: ; Key pressed
mov eax,2 mov eax,2
mcall mcall
shr eax,8 shr eax,8
cmp eax,32 ; <Space> = Shuffle cmp eax,32 ; <Space> = Shuffle
je SHUF je SHUF
cmp eax,13 ; <Enter> = Choose task cmp eax,13 ; <Enter> = Choose task
je init je init
cmp eax,176 cmp eax,176
jl still jl still
sub eax,176 sub eax,176
cmp eax,3 cmp eax,3
ja still ja still
movzx eax,byte [eax+correct] ; 'delta' value from correct[] movzx eax,byte [eax+correct] ; 'delta' value from correct[]
jmp m_check jmp m_check
button: ; Button pressed button: ; Button pressed
mov eax,17 mov eax,17
mcall mcall
shr eax,8 shr eax,8
sub eax,2 sub eax,2
cmp eax,-1 ; id == 1 (closeme)? cmp eax,-1 ; id == 1 (closeme)?
jne noclose jne noclose
mcall mcall
noclose: noclose:
jl SHUF ; Shuffle (id=0) pressed jl SHUF ; Shuffle (id=0) pressed
cmp eax,18 cmp eax,18
je init ; Conf button pressed je init ; Conf button pressed
sub al,byte [null] sub al,byte [null]
mov edi,correct mov edi,correct
mov ecx,4 mov ecx,4
repne scasb ; checking for valid move-part 1 repne scasb ; checking for valid move-part 1
jne fail jne fail
m_check: m_check:
cmp byte[sts],4 ; puzzle completed, blocking buttons cmp byte[sts],4 ; puzzle completed, blocking buttons
ja still ja still
call move_check ; checking for valid move-part 2 call move_check ; checking for valid move-part 2
jnc fail jnc fail
inc [move_count] inc [move_count]
call draw_moves call draw_moves
fail: fail:
jmp still ; ¢®§¢à é ¥¬áï jmp still ; ¢®§¢à é ¥¬áï
; ******************************* ; *******************************
; ******* WINDOW DRAWING ******* ; ******* WINDOW DRAWING *******
; ******************************* ; *******************************
draw_window: draw_window:
mcall 12, 1 ; begin draw mcall 12, 1 ; begin draw
mcall 0, XXwindow, YYwindow, BgdColor,, txtTitle ; CREATING WINDOW mcall 0, XXwindow, YYwindow, BgdColor,, txtTitle ; CREATING WINDOW
mov eax,8 ; SHUFFLE BUTTON mov eax,8 ; SHUFFLE BUTTON
mov ebx,XXSh mov ebx,XXSh
mov ecx,YYSh mov ecx,YYSh
xor edx,edx xor edx,edx
mov esi,BtnColor mov esi,BtnColor
mcall mcall
mov ebx,XXCnf ; CONF BUTTON mov ebx,XXCnf ; CONF BUTTON
mov ecx,YYCnf mov ecx,YYCnf
mov edx,20 mov edx,20
;mov esi,BtnColor ;mov esi,BtnColor
mcall mcall
mov ebx, XYShText ; SHUFFLE TEXT mov ebx, XYShText ; SHUFFLE TEXT
mov ecx, StatusColor mov ecx, StatusColor
mov edx,txtSh mov edx,txtSh
mov esi,lenSh-txtSh mov esi,lenSh-txtSh
mov eax,4 mov eax,4
mcall mcall
mov ebx, XYCnfText ; CONF TEXT mov ebx, XYCnfText ; CONF TEXT
mov edx,lenVictory-1 mov edx,lenVictory-1
mov esi,1 mov esi,1
mcall mcall
mov ecx, 16 ; FIELD BUTTONS mov ecx, 16 ; FIELD BUTTONS
dbut: dbut:
call draw_button call draw_button
loop dbut loop dbut
call draw_moves call draw_moves
mcall 12, 2 ; end of drawing mcall 12, 2 ; end of drawing
ret ret
; ********************************************* ; *********************************************
; ******* DRAWING A FIELD BUTTON ************** ; ******* DRAWING A FIELD BUTTON **************
; ********************************************* ; *********************************************
; ECX - button number ; ECX - button number
draw_button: draw_button:
pusha pusha
dec ecx dec ecx
; calculating button dimensions ; calculating button dimensions
mov edi, ecx mov edi, ecx
lea edx,[ecx+2] lea edx,[ecx+2]
mov ebx,ecx mov ebx,ecx
and ebx,11b and ebx,11b
shr ecx,2 shr ecx,2
imul ebx,BtnSize+3 imul ebx,BtnSize+3
add ebx,BtnLeft add ebx,BtnLeft
shl ebx,16 shl ebx,16
add ebx,BtnSize add ebx,BtnSize
imul ecx,BtnSize+3 imul ecx,BtnSize+3
add ecx,BtnTop add ecx,BtnTop
shl ecx,16 shl ecx,16
add ecx,BtnSize add ecx,BtnSize
movzx eax,byte [null] movzx eax,byte [null]
cmp eax,edi cmp eax,edi
jne no_hole jne no_hole
pusha pusha
inc ebx inc ebx
inc ecx inc ecx
mov edx,BgdColor mov edx,BgdColor
mov eax,13 ; clearing - 'hole' mov eax,13 ; clearing - 'hole'
mcall mcall
popa popa
or edx,0x80000000 ; and removing button under it or edx,0x80000000 ; and removing button under it
no_hole: no_hole:
mov al,byte[edi+curconf] mov al,byte[edi+curconf]
mov esi,[task] mov esi,[task]
cmp al,byte[edi+esi] cmp al,byte[edi+esi]
je highlight je highlight
mov esi,BtnColor mov esi,BtnColor
jmp s_rbutton jmp s_rbutton
highlight: highlight:
mov esi,BtnColor2 mov esi,BtnColor2
s_rbutton: s_rbutton:
mov eax,8 ; set/remove button mov eax,8 ; set/remove button
mcall mcall
movzx eax,byte [null] movzx eax,byte [null]
cmp eax,edi cmp eax,edi
je no_text ; no digits - that's hole je no_text ; no digits - that's hole
mov edx,ebx mov edx,ebx
shr ecx,16 shr ecx,16
mov dx,cx mov dx,cx
add edx,NumShift add edx,NumShift
mov ebx,0x20000 mov ebx,0x20000
movzx ecx,byte [edi+curconf] movzx ecx,byte [edi+curconf]
cmp ecx,9 cmp ecx,9
ja two_num ja two_num
add edx,NumShift2 ; shift to center digits add edx,NumShift2 ; shift to center digits
sub ebx,0x10000 sub ebx,0x10000
two_num: two_num:
mov esi,NumColor mov esi,NumColor
mov eax,47 mov eax,47
mcall mcall
no_text: no_text:
popa popa
ret ret
; ********************************************* ; *********************************************
; ******* DRAWING STATUS LINE ***************** ; ******* DRAWING STATUS LINE *****************
; ********************************************* ; *********************************************
draw_moves: draw_moves:
mov eax, 13 ; clear area mov eax, 13 ; clear area
mov ebx, XXbar mov ebx, XXbar
mov ecx, YYbar mov ecx, YYbar
mov edx, BgdColor mov edx, BgdColor
mcall mcall
mov eax, 4 mov eax, 4
mov ebx, XYstatus mov ebx, XYstatus
mov ecx, StatusColor mov ecx, StatusColor
cmp ax, [sts] cmp ax, [sts]
jl report_victory jl report_victory
jne report_moves jne report_moves
mov edx,txtCnf ; prompt to choose configuration mov edx,txtCnf ; prompt to choose configuration
mov esi,lenCnf-txtCnf mov esi,lenCnf-txtCnf
jmp e_dm jmp e_dm
report_moves: report_moves:
mov edx,txtMoves ; how many moves done mov edx,txtMoves ; how many moves done
mov esi,lenMoves-txtMoves mov esi,lenMoves-txtMoves
mov eax,4 mov eax,4
mcall mcall
mov esi,ecx mov esi,ecx
mov edx,ebx mov edx,ebx
add edx, 40 shl 16 add edx, 40 shl 16
mov ebx,0x030000 mov ebx,0x030000
movzx ecx, byte[move_count] movzx ecx, byte[move_count]
mov eax,47 mov eax,47
jmp e_dm jmp e_dm
report_victory: ; puzzle completed report_victory: ; puzzle completed
mov ecx,StatusColor2 mov ecx,StatusColor2
mov edx,txtVictory mov edx,txtVictory
mov esi,lenVictory-txtVictory mov esi,lenVictory-txtVictory
e_dm: e_dm:
mcall mcall
ret ret
; ********************************************* ; *********************************************
; ********* SHUFFLE *************************** ; ********* SHUFFLE ***************************
; ********************************************* ; *********************************************
shuffle: shuffle:
xor eax,eax xor eax,eax
mov [sts],ax mov [sts],ax
mov [move_count],ax ; reset moves to 0 mov [move_count],ax ; reset moves to 0
mov [sh_off],al mov [sh_off],al
mov eax, [generator] mov eax, [generator]
mov ecx,SH_CYCLES mov ecx,SH_CYCLES
sh_cycle: sh_cycle:
sub eax,0x43ab45b5 ; next random number sub eax,0x43ab45b5 ; next random number
ror eax,1 ror eax,1
xor eax,0x32c4324f xor eax,0x32c4324f
ror eax,1 ror eax,1
mov [generator],eax mov [generator],eax
push eax push eax
and eax,11b ; direction 0..3 and eax,11b ; direction 0..3
movzx eax,byte [eax+correct] movzx eax,byte [eax+correct]
call move_check call move_check
pop eax pop eax
jnc sh_cycle ; if fails then retry jnc sh_cycle ; if fails then retry
loop sh_cycle loop sh_cycle
inc byte[sh_off] ; shuffling complete inc byte[sh_off] ; shuffling complete
ret ret
; ********************************************* ; *********************************************
; ********* MOVE VALIDITY CHECK *************** ; ********* MOVE VALIDITY CHECK ***************
; ********************************************* ; *********************************************
; AL - 'DELTA' DIRECTION ; AL - 'DELTA' DIRECTION
move_check: move_check:
pusha pusha
mov ah,byte [null] mov ah,byte [null]
mov bx,ax mov bx,ax
cmp bh,3 cmp bh,3
ja no_top ja no_top
cmp al,-4 ; top of field cmp al,-4 ; top of field
je no_move je no_move
no_top: no_top:
cmp bh,12 cmp bh,12
jb no_bottom jb no_bottom
cmp al,4 ; bottom of field cmp al,4 ; bottom of field
je no_move je no_move
no_bottom: no_bottom:
and bh,11b and bh,11b
cmp bh,0 cmp bh,0
jnz no_left jnz no_left
cmp al,-1 ; left of field cmp al,-1 ; left of field
je no_move je no_move
no_left: no_left:
cmp bh,11b cmp bh,11b
jnz ok jnz ok
cmp al,1 ; right of field cmp al,1 ; right of field
je no_move je no_move
ok: ok:
mov bx,ax mov bx,ax
add bh,bl ; bh-new hole add bh,bl ; bh-new hole
mov byte [null],bh mov byte [null],bh
movzx ecx,ah movzx ecx,ah
mov al,byte[ecx+curconf] mov al,byte[ecx+curconf]
movzx edx,bh movzx edx,bh
mov bl,byte[edx+curconf] ; swapping button & hole mov bl,byte[edx+curconf] ; swapping button & hole
mov byte[ecx+curconf],bl mov byte[ecx+curconf],bl
mov byte[edx+curconf],al mov byte[edx+curconf],al
cmp byte[sh_off],0 ; if shuffle in progress, cmp byte[sh_off],0 ; if shuffle in progress,
jz no_win ; then no redraw jz no_win ; then no redraw
; drawing button & hole ; drawing button & hole
inc ecx inc ecx
call draw_button call draw_button
movzx ecx,bh movzx ecx,bh
inc ecx inc ecx
call draw_button call draw_button
; testing if task completed ; testing if task completed
mov esi,[task] mov esi,[task]
mov edi,curconf mov edi,curconf
mov ecx,16 mov ecx,16
repe cmpsb repe cmpsb
cmp ecx,0 cmp ecx,0
jne no_win jne no_win
mov word[sts],6 ; puzzle done. Victory! mov word[sts],6 ; puzzle done. Victory!
no_win: no_win:
popa popa
stc stc
ret ret
no_move: no_move:
popa popa
clc clc
ret ret
; this is deprecated debug routine ; this is deprecated debug routine
;ud: ;ud:
; ud2 ; ud2
; These are data used by program ; These are data used by program
correct db 1,-4,4,-1 correct db 1,-4,4,-1
conf db 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0,15 conf db 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0,15
db 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0 db 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0
db 1,2,3,4,12,13,14,5,11,0,15,6,10,9,8,7,9 db 1,2,3,4,12,13,14,5,11,0,15,6,10,9,8,7,9
txtMoves: txtMoves:
if lang eq ru_RU if lang eq ru_RU
db '•®¤®¢:' db '•®¤®¢:'
else if lang eq it_IT else if lang eq it_IT
db 'Movimenti:' db 'Movimenti:'
else if lang eq de_DE else if lang eq de_DE
db 'Bewegungen:' db 'Bewegungen:'
else else ; Default to en_US
db 'Moves:' db 'Moves:'
end if end if
lenMoves: lenMoves:
txtSh: txtSh:
if lang eq ru_RU if lang eq ru_RU
db '’ á®¢ª ' db '’ á®¢ª '
else if lang eq it_IT else if lang eq it_IT
db 'Mischia' db 'Mischia'
else if lang eq de_DE else if lang eq de_DE
db 'Mischen' db 'Mischen'
else else ; Default to en_US
db 'Shuffle' db 'Shuffle'
end if end if
lenSh: lenSh:
txtCnf: txtCnf:
if lang eq ru_RU if lang eq ru_RU
db '‚ë¡¥à¨â¥ § ¤ çã ¨ ­ ¦¬¨â¥->' db '‚ë¡¥à¨â¥ § ¤ çã ¨ ­ ¦¬¨â¥->'
else if lang eq it_IT else if lang eq it_IT
db 'Seleziona un compito, poi premi->' db 'Seleziona un compito, poi premi->'
else if lang eq de_DE else if lang eq de_DE
db 'Waehle eine Aufgabe, dann clicke au->' db 'Waehle eine Aufgabe, dann clicke au->'
else else ; Default to en_US
db 'Select task, then press ->' db 'Select task, then press ->'
end if end if
lenCnf: lenCnf:
txtTitle: ; áâப  § £®«®¢ª  txtTitle: ; áâப  § £®«®¢ª 
if lang eq ru_RU if lang eq ru_RU
db 'ˆ£à  15 - § ¤ ç  X', 0 db 'ˆ£à  15 - § ¤ ç  X', 0
else if lang eq it_IT else if lang eq it_IT
db 'Gioco del quindici - partita X', 0 db 'Gioco del quindici - partita X', 0
else if lang eq de_DE else if lang eq de_DE
db '15-Puzzle - Spiel X', 0 db '15-Puzzle - Spiel X', 0
else else ; Default to en_US
db 'Game 15 - puzzle X', 0 db 'Game 15 - puzzle X', 0
end if end if
txtVictory: txtVictory:
if lang eq ru_RU if lang eq ru_RU
db '‚ë à¥è¨«¨ § ¤ çã! <20> ¦¬¨â¥->' db '‚ë à¥è¨«¨ § ¤ çã! <20> ¦¬¨â¥->'
else if lang eq it_IT else if lang eq it_IT
db 'Gioco completato! Premi ->' db 'Gioco completato! Premi ->'
else if lang eq de_DE else if lang eq de_DE
db 'Spiel beendet! Druecken sie auf ->' db 'Spiel beendet! Druecken sie auf ->'
else else ; Default to en_US
db 'Puzzle completed! Press->' db 'Puzzle completed! Press->'
end if end if
lenVictory: lenVictory:
arrow equ lenVictory-2 arrow equ lenVictory-2
I_END: ; ª®­¥æ ¯à®£à ¬¬ë I_END: ; ª®­¥æ ¯à®£à ¬¬ë
;null db ? ;null db ?
move_count dw ? move_count dw ?
cptr db ? cptr db ?
sts dw ? sts dw ?
sh_off db ? sh_off db ?
task dd ? task dd ?
generator dd ? generator dd ?
curconf: curconf:

190
programs/games/Dungeons/data.inc
View File

@ -1,93 +1,97 @@
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
struc langstr [lng, data] ; FIXME:
{ ; This translation mechanism should fallback to en_US if the language
if lang eq lng ; is unlisted (e.g. es_ES). Either fix the macros or use a different method.
sz ., data ; The problem doesn't manifest, as we only bundle Dungeons in the RU distro.
end if struc langstr [lng, data]
} {
if lang eq lng
struc langstr0 [lng, data] sz ., data
{ end if
if lang eq lng }
sz0 ., data
end if struc langstr0 [lng, data]
} {
if lang eq lng
include 'AKODE/data.inc' sz0 ., data
include 'Resources/Textures/textures.inc' end if
include 'Resources/Levels/levels.inc' }
FULLSCREEN = 0 include 'AKODE/data.inc'
FSAA = 0 include 'Resources/Textures/textures.inc'
DISABLE_SHADING = 0 include 'Resources/Levels/levels.inc'
MOVEMENT_SPEED = BLOCK_BASE_SIZE + BLOCK_BASE_SIZE / 4 FULLSCREEN = 0
FSAA = 0
FIELD_OF_VIEW = 60 DISABLE_SHADING = 0
BLOCK_BASE_SIZE = 512
BLOCK_HEIGHT = 512 MOVEMENT_SPEED = BLOCK_BASE_SIZE + BLOCK_BASE_SIZE / 4
INVENTORY_SIZE = 10 FIELD_OF_VIEW = 60
BLOCK_BASE_SIZE = 512
HUD_PANEL_HEIGHT = 120 BLOCK_HEIGHT = 512
INVENTORY_X = 570 INVENTORY_SIZE = 10
INVENTORY_Y = 15
INVENTORY_PADDING_X = 10 HUD_PANEL_HEIGHT = 120
INVENTORY_PADDING_Y = 10
OBJECT_IMAGE_WIDTH = 40 INVENTORY_X = 570
OBJECT_IMAGE_HEIGHT = 40 INVENTORY_Y = 15
INVENTORY_PADDING_X = 10
GAME_MESSAGE_X = 150 + 15 INVENTORY_PADDING_Y = 10
GAME_MESSAGE_Y = 15 + 15 OBJECT_IMAGE_WIDTH = 40
GAME_MESSAGE_COLOR = 0E4E2ADh OBJECT_IMAGE_HEIGHT = 40
if FULLSCREEN GAME_MESSAGE_X = 150 + 15
;MAIN_WINDOW_X = 0 GAME_MESSAGE_Y = 15 + 15
;MAIN_WINDOW_Y = 0 GAME_MESSAGE_COLOR = 0E4E2ADh
;MAIN_WINDOW_WIDTH = 0FFFFh
;MAIN_WINDOW_HEIGHT = 0FFFFh if FULLSCREEN
MAIN_WINDOW_STYLE = (01000001b) shl 24 ;MAIN_WINDOW_X = 0
MAIN_WINDOW_STYLE2 = 1 shl 24 ;MAIN_WINDOW_Y = 0
else ;MAIN_WINDOW_WIDTH = 0FFFFh
MAIN_WINDOW_X = 20 ;MAIN_WINDOW_HEIGHT = 0FFFFh
MAIN_WINDOW_Y = 20 MAIN_WINDOW_STYLE = (01000001b) shl 24
MAIN_WINDOW_WIDTH = 960 ; client area width MAIN_WINDOW_STYLE2 = 1 shl 24
MAIN_WINDOW_HEIGHT = 712 ; client area height else
MAIN_WINDOW_STYLE = (01110100b) shl 24 MAIN_WINDOW_X = 20
MAIN_WINDOW_STYLE2 = 0 MAIN_WINDOW_Y = 20
end if MAIN_WINDOW_WIDTH = 960 ; client area width
MAIN_WINDOW_HEIGHT = 712 ; client area height
MAIN_EVENT_MASK = EVM_REDRAW or EVM_KEY or EVM_BUTTON or EVM_MOUSE or EVM_MOUSE_FILTER MAIN_WINDOW_STYLE = (01110100b) shl 24
MAIN_WINDOW_STYLE2 = 0
MAIN_WINDOW_TITLE langstr0 \ end if
en_US, 'Dungeons of Augastes 0.1', \
ru_RU, '<27>®¤§¥¬¥«ìï €ã£ áâ¥á  0.1' MAIN_EVENT_MASK = EVM_REDRAW or EVM_KEY or EVM_BUTTON or EVM_MOUSE or EVM_MOUSE_FILTER
LevelLoadingImageFile db 'Resources/Textures/HUD/LevelLoading.png', 0 MAIN_WINDOW_TITLE langstr0 \
HudPanelImageFile db 'Resources/Textures/HUD/Panel.png', 0 en_US, 'Dungeons of Augastes 0.1', \
DeathImageFile db 'Resources/Textures/HUD/Death.png', 0 ru_RU, '<27>®¤§¥¬¥«ìï €ã£ áâ¥á  0.1'
EndImageFile db 'Resources/Textures/HUD/End.png', 0
LevelLoadingImageFile db 'Resources/Textures/HUD/LevelLoading.png', 0
align 4 HudPanelImageFile db 'Resources/Textures/HUD/Panel.png', 0
LevelLoadingImagePtr dd 0 DeathImageFile db 'Resources/Textures/HUD/Death.png', 0
HudPanelImagePtr dd 0 EndImageFile db 'Resources/Textures/HUD/End.png', 0
DeathImagePtr dd 0
EndImagePtr dd 0 align 4
LevelLoadingImagePtr dd 0
ImageBufferPtr dd 0 HudPanelImagePtr dd 0
DeathImagePtr dd 0
HudPanelNeedsRedraw dd 0 EndImagePtr dd 0
GameMessage dd 0 ImageBufferPtr dd 0
GameStatus dd 0
HudPanelNeedsRedraw dd 0
GAME_STATUS.LEVEL_LOAD_FAILED = 1
GAME_STATUS.DEAD = 2 GameMessage dd 0
GAME_STATUS.END = 3 GameStatus dd 0
ACTION.DO_SOMETHING = AKODE_ACTION.CUSTOM + 1 GAME_STATUS.LEVEL_LOAD_FAILED = 1
ACTION.LOOK_AROUND = AKODE_ACTION.CUSTOM + 2 GAME_STATUS.DEAD = 2
ACTION.USE_OBJECT = AKODE_ACTION.CUSTOM + 3 GAME_STATUS.END = 3
ACTION.LOOK_AT_OBJECT = AKODE_ACTION.CUSTOM + 4
ACTION.DO_SOMETHING = AKODE_ACTION.CUSTOM + 1
ACTION.LOOK_AROUND = AKODE_ACTION.CUSTOM + 2
ACTION.USE_OBJECT = AKODE_ACTION.CUSTOM + 3
ACTION.LOOK_AT_OBJECT = AKODE_ACTION.CUSTOM + 4

16
programs/games/arcanii/trunk/arcanii.asm
View File

@ -4,7 +4,7 @@
; contact: 4nic8@casiocalc.org ; contact: 4nic8@casiocalc.org
;---------------------------------------- ;----------------------------------------
include 'lang.inc' include 'lang.inc' ; Language support for locales: it_IT, en_US.
include '../../../macros.inc' include '../../../macros.inc'
include 'ascl.inc' include 'ascl.inc'
include 'ascgl.inc' include 'ascgl.inc'
@ -142,7 +142,7 @@ still:
; ********************************************* ; *********************************************
show_screen: ; flips the virtual screen to the window show_screen: ; flips the virtual screen to the window
push_abc push_abc
mcall 7, screen, <X_SIZE, Y_SIZE>, 0 mcall 7, screen, <X_SIZE, Y_SIZE>, 0
pop_abc pop_abc
ret ret
@ -389,7 +389,7 @@ grad_fill_screen: ; eax - screen color ( 0x00RRGGBB ), ebx - mack
.no_ch: .no_ch:
pop ecx pop ecx
loop .lab1 loop .lab1
pop_abc pop_abc
ret ret
@ -409,7 +409,7 @@ intro: ; INTRO ;
jne @f jne @f
ret ret
@@: @@:
mcall 4,<115,150>,0x82050505,VERSION mcall 4,<115,150>,0x82050505,VERSION
mcall ,<125,180>,0x80050505,AUTHOR mcall ,<125,180>,0x80050505,AUTHOR
mcall ,<90,210>,0x81EE0800,PRESS_SPACE mcall ,<90,210>,0x81EE0800,PRESS_SPACE
@ -468,13 +468,13 @@ fast_gfx:
mov ebx,0xFFFF mov ebx,0xFFFF
.g_ok: .g_ok:
call grad_fill_screen call grad_fill_screen
;black_bg ;black_bg
;mov eax,0 ;mov eax,0
;mov ebx,0 ;mov ebx,0
;call fill_screen ;call fill_screen
mov eax,37 ; get mouse position mov eax,37 ; get mouse position
mov ebx,1 mov ebx,1
mcall mcall
@ -805,7 +805,7 @@ draw_window:
mcall 48,4 mcall 48,4
lea ecx, [100*65536+Y_SIZE+4+eax]; [y start] *65536 + [y size] + [skin_height] lea ecx, [100*65536+Y_SIZE+4+eax]; [y start] *65536 + [y size] + [skin_height]
mcall 0,<100,X_SIZE+9>,,0x74ffffff,,0 mcall 0,<100,X_SIZE+9>,,0x74ffffff,,0
mov eax, [lives] mov eax, [lives]
add eax, '0' add eax, '0'
mov esi, HEADER mov esi, HEADER
@ -836,7 +836,7 @@ if lang eq it_IT
THANKS_FOR_PLAYING db 'Grazie per aver giocato', 0 THANKS_FOR_PLAYING db 'Grazie per aver giocato', 0
PRESS_SPACE db 'Premi spazio per iniziare',0 PRESS_SPACE db 'Premi spazio per iniziare',0
LEVEL db 'LIVELLO',0 LEVEL db 'LIVELLO',0
else else ; Default to en_US
THANKS_FOR_PLAYING db 'Thanks for playing', 0 THANKS_FOR_PLAYING db 'Thanks for playing', 0
PRESS_SPACE db 'press SPACE to start',0 PRESS_SPACE db 'press SPACE to start',0
LEVEL db 'LEVEL',0 LEVEL db 'LEVEL',0

26
programs/games/arcanoid/trunk/arcanoid.asm
View File

@ -19,7 +19,7 @@
;****************************************************************************** ;******************************************************************************
include 'lang.inc' include 'lang.inc' ; Language support for locales: it_IT, en_US.
include '..\..\..\macros.inc' include '..\..\..\macros.inc'
include 'ascl.inc' include 'ascl.inc'
include 'ascgl.inc' include 'ascgl.inc'
@ -285,7 +285,7 @@ end_col:
cmp [delay_cnt],0 cmp [delay_cnt],0
jne no_delay jne no_delay
mov [delay_cnt],1 mov [delay_cnt],1
delay 1 ;don't generate delay for fast speed programm delay 1 ; don't generate delay for fast speed program
no_delay: no_delay:
dec [delay_cnt] dec [delay_cnt]
@ -297,9 +297,9 @@ win_test:
mov [againbut],1 mov [againbut],1
call draw_window call draw_window
; label 160,200,'You Win!',cl_Green+font_Big ; label 160,200,'You Win!',cl_Green+font_Big
; label 130,220,'Youre Score:',cl_Green+font_Big ; label 130,220,'Your Score:',cl_Green+font_Big
; outcount dword [scorea],230,220,cl_Green,5*65536 ; outcount dword [scorea],230,220,cl_Green,5*65536
; label 130,234,'Youre Lives:',cl_Green+font_Big ; label 130,234,'Your Lives:',cl_Green+font_Big
; outcount dword [scoreb],230,234,cl_Green,5*65536 ; outcount dword [scoreb],230,234,cl_Green,5*65536
; delay 600 ;wait 2sec ; delay 600 ;wait 2sec
; close ;exit from program ; close ;exit from program
@ -310,7 +310,7 @@ lose_test:
jne stl2 jne stl2
; call draw_window ; call draw_window
; label 160,200,'You Lose!',cl_Red+font_Big ; label 160,200,'You Lose!',cl_Red+font_Big
; label 130,220,'Youre Score:',cl_Red+font_Big ; label 130,220,'Your Score:',cl_Red+font_Big
; outcount dword [scorea],230,220,cl_Red,5*65536 ; outcount dword [scorea],230,220,cl_Red,5*65536
; delay 300 ;wait 2sec ; delay 300 ;wait 2sec
; close ;exit from program ; close ;exit from program
@ -420,7 +420,7 @@ draw_window:
window 0,0,400+8,480+24,window_Skinned window 0,0,400+8,480+24,window_Skinned
if lang eq it_IT if lang eq it_IT
label 12,8,'ARCANOID: Usa le freccie Vite Punti',cl_White+font_Big label 12,8,'ARCANOID: Usa le freccie Vite Punti',cl_White+font_Big
else else ; Default to en_US
label 12,8,'ARCANOID: USE ARROW KEYS LIVES SCORE',cl_White+font_Big label 12,8,'ARCANOID: USE ARROW KEYS LIVES SCORE',cl_White+font_Big
end if end if
@ -433,9 +433,9 @@ draw_window:
if lang eq it_IT if lang eq it_IT
label 160,200,'Hai perso!',cl_Red+font_Big label 160,200,'Hai perso!',cl_Red+font_Big
label 130,220,'Punteggio:',cl_Red+font_Big label 130,220,'Punteggio:',cl_Red+font_Big
else else ; Default to en_US
label 160,200,'You Lose!',cl_Red+font_Big label 160,200,'You Lose!',cl_Red+font_Big
label 130,220,'Youre Score:',cl_Red+font_Big label 130,220,'Your Score:',cl_Red+font_Big
end if end if
outcount dword [scorea],230,220,cl_Red,5*65536 outcount dword [scorea],230,220,cl_Red,5*65536
mov ebx,150*65536+80 mov ebx,150*65536+80
@ -449,7 +449,7 @@ draw_window:
mcall mcall
if lang eq it_IT if lang eq it_IT
label 152,244,'Rigioca',cl_Red+font_Big label 152,244,'Rigioca',cl_Red+font_Big
else else ; Default to en_US
label 152,244,'Play again?',cl_Red+font_Big label 152,244,'Play again?',cl_Red+font_Big
end if end if
jmp elev jmp elev
@ -457,9 +457,9 @@ nlev:
if lang eq it_IT if lang eq it_IT
label 160,200,'Hai vinto!',cl_Green+font_Big label 160,200,'Hai vinto!',cl_Green+font_Big
label 130,220,'Punteggio:',cl_Green+font_Big label 130,220,'Punteggio:',cl_Green+font_Big
else else ; Default to en_US
label 160,200,'You Win!',cl_Green+font_Big label 160,200,'You Win!',cl_Green+font_Big
label 130,220,'Youre Score:',cl_Green+font_Big label 130,220,'Your Score:',cl_Green+font_Big
end if end if
outcount dword [scorea],230,220,cl_Green,5*65536 outcount dword [scorea],230,220,cl_Green,5*65536
mov ebx,150*65536+120 ;mov ebx,150*65536+80 mov ebx,150*65536+120 ;mov ebx,150*65536+80
@ -473,13 +473,13 @@ nlev:
mcall mcall
if lang eq it_IT if lang eq it_IT
label 152,244,'Prossimo Livello',cl_Red+font_Big label 152,244,'Prossimo Livello',cl_Red+font_Big
else else ; Default to en_US
label 152,244,'Next level?',cl_Red+font_Big label 152,244,'Next level?',cl_Red+font_Big
end if end if
elev: elev:
if lang eq it_IT if lang eq it_IT
label 178,264,'Esci',cl_Red+font_Big label 178,264,'Esci',cl_Red+font_Big
else else ; Default to en_US
label 178,264,'Exit?',cl_Red+font_Big label 178,264,'Exit?',cl_Red+font_Big
end if end if

4738
programs/games/bomber/bomber.asm
View File

File diff suppressed because it is too large Load Diff

34
programs/games/bomber/englang.inc → programs/games/bomber/lang-en_US.inc
View File

@ -1,17 +1,17 @@
_window_caption db 'Soft landing',0 ;çàãîëîâîê ïðèëîæåíèÿ _window_caption db 'Soft landing',0 ; Application title
_text_game_over db 'G A M E O V E R', 0 _text_game_over db 'G A M E O V E R', 0
_text_level_complete db 'L E V E L C O M P L E T E', 0 _text_level_complete db 'L E V E L C O M P L E T E', 0
_text_intro_title db ' S O F T L A N D I N G', 0 _text_intro_title db ' S O F T L A N D I N G', 0
_text_intro_description1 db 'Provide a soft landing, clearing the runway from the city buildings', 0 _text_intro_description1 db 'Provide a soft landing, clearing the runway from the city buildings', 0
_text_intro_key_controls db ' Control keys:', 0 _text_intro_key_controls db ' Control keys:', 0
_text_intro_key_ctrl db ' CTRL - drop a bomb', 0 _text_intro_key_ctrl db ' CTRL - drop a bomb', 0
_text_intro_key_space db 'SPACE - do a barrel roll', 0 _text_intro_key_space db 'SPACE - do a barrel roll', 0
_text_intro_select_level db ' Use UP and DOWN arrow keys for select game level:', 0 _text_intro_select_level db ' Use UP and DOWN arrow keys to select the game level:', 0
_text_intro_level_num db ' LEVEL', 0 _text_intro_level_num db ' LEVEL', 0
_text_intro_set_volume db ' Use LEFT and RIGHT arrow keys for setting volume:', 0 _text_intro_set_volume db ' Use LEFT and RIGHT arrow keys for setting volume:', 0
_text_intro_volume_num db 'VOLUME', 0 _text_intro_volume_num db 'VOLUME', 0
_text_intro_start_space db 'Press SPACE for start game', 0 _text_intro_start_space db 'Press SPACE for start game', 0
_text_intro_exit_key db 'Esc - exit', 0 _text_intro_exit_key db 'Esc - exit', 0

0
programs/games/bomber/ruslang.inc → programs/games/bomber/lang-ru_RU.inc
View File

1512
programs/games/gomoku/trunk/gomoku.asm
View File

File diff suppressed because it is too large Load Diff

3464
programs/games/life3/trunk/life3.asm
View File

File diff suppressed because it is too large Load Diff

550
programs/games/lines/lines.asm
View File

@ -1,275 +1,275 @@
use32 use32
org 0x0 org 0x0
db 'MENUET01' db 'MENUET01'
dd 0x01 dd 0x01
dd _preSTART dd _preSTART
dd I_END dd I_END
dd 0x4000 dd 0x4000
dd 0x4000 dd 0x4000
dd 0x0,0x0 dd 0x0,0x0
include '../../macros.inc' include '../../macros.inc'
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
include 'draw_window.inc' include 'draw_window.inc'
include 'ball_operations.inc' include 'ball_operations.inc'
include 'basic_alg.inc' include 'basic_alg.inc'
_preSTART: _preSTART:
mcall 66, 1, 1 ;¯à¨­¨¬ ¥¬ ᪠­-ª®¤ë mcall 66, 1, 1 ;¯à¨­¨¬ ¥¬ ᪠­-ª®¤ë
mcall 3 ;randomize mcall 3 ;randomize
ror eax, 16 ror eax, 16
mov [TC_U_SYSTEM_RANDSEED], eax ;from PPro "system.inc" mov [TC_U_SYSTEM_RANDSEED], eax ;from PPro "system.inc"
new_game: new_game:
;®¡­ã«¥­¨¥ ¬ âà¨æë ;®¡­ã«¥­¨¥ ¬ âà¨æë
mov eax, 0 mov eax, 0
mov ecx, 81 / 4 mov ecx, 81 / 4
mov edi, lineBall mov edi, lineBall
rep stosd rep stosd
stosb stosb
mov [score], 0 mov [score], 0
mov [countAllBall], 0 mov [countAllBall], 0
mov [current], 0 mov [current], 0
@@: @@:
mov ebx, 7 mov ebx, 7
call random call random
inc dl inc dl
call add_new_ball call add_new_ball
call test_new_ball call test_new_ball
cmp [countAllBall], 5 cmp [countAllBall], 5
jb @b jb @b
call generate_new___new_color call generate_new___new_color
START: START:
draw_window draw_window
still: still:
mcall 10 mcall 10
dec eax dec eax
jz START ; ¯¥à¥à¨á®¢ âì ®ª­® jz START ; ¯¥à¥à¨á®¢ âì ®ª­®
dec eax dec eax
jnz button ;¥á«¨ ­¥ ª« ¢¨è  - §­ ç¨â ª­®¯ª  jnz button ;¥á«¨ ­¥ ª« ¢¨è  - §­ ç¨â ª­®¯ª 
key: ; ­ ¦ â¨¥ ª« ¢¨è¨ key: ; ­ ¦ â¨¥ ª« ¢¨è¨
mcall 2 ; ¯®«ãç ¥¬ ª®¤ ª« ¢¨è¨ mcall 2 ; ¯®«ãç ¥¬ ª®¤ ª« ¢¨è¨
cmp ah, 60 cmp ah, 60
je new_game je new_game
jmp still jmp still
button: ; ­ ¦ â¨¥ ª­®¯ª¨ button: ; ­ ¦ â¨¥ ª­®¯ª¨
mcall 17 mcall 17
shr eax, 8 shr eax, 8
cmp ax, 1 ; ¥á«¨ ª­®¯ª  ¢ë室 ? cmp ax, 1 ; ¥á«¨ ª­®¯ª  ¢ë室 ?
je .exit je .exit
;¯à®¢¥à¨¬, ­¥ ¯ãáâ  «¨ ª«¥âª  ;¯à®¢¥à¨¬, ­¥ ¯ãáâ  «¨ ª«¥âª 
mov edx, [current] mov edx, [current]
test byte [eax + lineBall - 2], 0x7 test byte [eax + lineBall - 2], 0x7
jz .blank jz .blank
;¯à®¢¥à¨¬ ­¥ ¡ë«  «¨ íâ  ª«¥âª  㦥 ¢ë¡à ­  ;¯à®¢¥à¨¬ ­¥ ¡ë«  «¨ íâ  ª«¥âª  㦥 ¢ë¡à ­ 
cmp eax, edx cmp eax, edx
je .double_choice je .double_choice
mov [current], eax mov [current], eax
call choice_ball call choice_ball
call paint_ball ;á­ ç «  ¯à®à¨á㥬 ­®¢ë© ¢ë¡à ­­ë© è à¨ª call paint_ball ;á­ ç «  ¯à®à¨á㥬 ­®¢ë© ¢ë¡à ­­ë© è à¨ª
test edx, edx ;cmp [current], 0 test edx, edx ;cmp [current], 0
jz still jz still
mov eax, edx mov eax, edx
@@: @@:
call redraw_cell ;  㦥 ¯®â®¬ 㡥६ à ¬ªã ®â áâ à®£® call redraw_cell ;  㦥 ¯®â®¬ 㡥६ à ¬ªã ®â áâ à®£®
call paint_ball call paint_ball
jmp still jmp still
.double_choice: .double_choice:
mov [current], 0 mov [current], 0
jmp @B jmp @B
.blank: ;­ ¦ â ï ª­®¯ª  - ¯ãáâ  .blank: ;­ ¦ â ï ª­®¯ª  - ¯ãáâ 
test edx, edx ;cmp [current], 0 test edx, edx ;cmp [current], 0
jz still jz still
mov [dest], eax ;ª­®¯ªã ­ §­ ç¥­¨ï -> ¢ [dest] mov [dest], eax ;ª­®¯ªã ­ §­ ç¥­¨ï -> ¢ [dest]
mov eax, edx ;¯ à ¬¥âà ¢ eax mov eax, edx ;¯ à ¬¥âà ¢ eax
call test_path ;¢ë§ë¢ ¥¬ ४ãàá¨î test_path call test_path ;¢ë§ë¢ ¥¬ ४ãàá¨î test_path
call zero_cheked call zero_cheked
jnc still jnc still
;^^^^^^^^^^^^^^^^^ move_ball proc ;^^^^^^^^^^^^^^^^^ move_ball proc
mov eax, [current] mov eax, [current]
mov cl, byte [eax + lineBall - 2] mov cl, byte [eax + lineBall - 2]
mov byte [eax + lineBall - 2], 0 mov byte [eax + lineBall - 2], 0
mov eax, [dest] mov eax, [dest]
mov byte [eax + lineBall - 2], cl mov byte [eax + lineBall - 2], cl
mov eax, [current] mov eax, [current]
call redraw_cell call redraw_cell
mov eax, [dest] mov eax, [dest]
call paint_ball call paint_ball
mov [current], 0 mov [current], 0
;^^^^^^^^^^^^^^^^^ move_ball endp ;^^^^^^^^^^^^^^^^^ move_ball endp
call find_line call find_line
call vanish_balls call vanish_balls
call zero_cheked call zero_cheked
cmp [countVanishBall], 0 cmp [countVanishBall], 0
je new_3_balls je new_3_balls
movzx eax, [countVanishBall] movzx eax, [countVanishBall]
inc eax inc eax
add [score], eax add [score], eax
sub [countAllBall], al sub [countAllBall], al
call redraw_score call redraw_score
jmp still jmp still
.exit: .exit:
mcall -1 ;¢ë室¨¬ mcall -1 ;¢ë室¨¬
new_3_balls: new_3_balls:
rept 3 num rept 3 num
{ {
mov dl, [newColor#num] mov dl, [newColor#num]
call add_new_ball call add_new_ball
call test_new_ball call test_new_ball
cmp [countAllBall],81 cmp [countAllBall],81
je .record_li je .record_li
} }
call generate_new___new_color call generate_new___new_color
call paint_new_color call paint_new_color
jmp still jmp still
.record_li: .record_li:
mov eax, [score] mov eax, [score]
cmp eax, [record] cmp eax, [record]
jbe still jbe still
mov [record], eax mov [record], eax
jmp START jmp START
zero_cheked: ;®¡­ã«¥­¨¥ ¬ âà¨æë cheked zero_cheked: ;®¡­ã«¥­¨¥ ¬ âà¨æë cheked
pushfd pushfd
mov eax, lineBall mov eax, lineBall
mov ecx, 81 mov ecx, 81
@@: @@:
and byte [eax], 0x7 and byte [eax], 0x7
inc eax inc eax
loop @B loop @B
popfd popfd
ret ret
random: ; edx := random [0..(ebx-1)] random: ; edx := random [0..(ebx-1)]
mov eax, 134775813 mov eax, 134775813
mul [TC_U_SYSTEM_RANDSEED] mul [TC_U_SYSTEM_RANDSEED]
inc eax inc eax
mov [ TC_U_SYSTEM_RANDSEED], eax mov [ TC_U_SYSTEM_RANDSEED], eax
xor edx, edx xor edx, edx
div ebx div ebx
ret ret
generate_new___new_color: generate_new___new_color:
rept 3 num rept 3 num
{ {
mov ebx, 7 mov ebx, 7
call random call random
inc dl inc dl
mov [newColor#num], dl mov [newColor#num], dl
} }
ret ret
add_new_ball: ;¢ dl - 梥â è à¨ª  add_new_ball: ;¢ dl - 梥â è à¨ª 
mov ebp, edx mov ebp, edx
mov ebx, 81 mov ebx, 81
sub bl, [countAllBall] sub bl, [countAllBall]
call random call random
mov ecx, edx mov ecx, edx
mov eax, lineBall-1 mov eax, lineBall-1
inc ecx inc ecx
@@: @@:
inc eax inc eax
test byte [eax], 0x7 test byte [eax], 0x7
jnz @B jnz @B
loop @B loop @B
;⥯¥àì ã ­ á ¢ eax -  ¤à¥á ­ è¥£® è à¨ª  ;⥯¥àì ã ­ á ¢ eax -  ¤à¥á ­ è¥£® è à¨ª 
mov edx, ebp mov edx, ebp
or byte [eax], dl or byte [eax], dl
inc [countAllBall] inc [countAllBall]
;¯®«ã稬 ID ª­®¯ª¨ ;¯®«ã稬 ID ª­®¯ª¨
sub eax, lineBall-2 sub eax, lineBall-2
mov [dest], eax mov [dest], eax
ret ret
test_new_ball: test_new_ball:
call paint_ball call paint_ball
call find_line call find_line
call vanish_balls call vanish_balls
call zero_cheked call zero_cheked
cmp [countVanishBall], 0 cmp [countVanishBall], 0
je @F je @F
movzx eax, [countVanishBall] movzx eax, [countVanishBall]
inc eax inc eax
add [score], eax add [score], eax
sub [countAllBall], al sub [countAllBall], al
call redraw_score call redraw_score
@@: @@:
ret ret
if lang eq ru_RU if lang eq ru_RU
szTitle db '–¢¥â­ë¥ «¨­¨¨ v 0.3',0 szTitle db '–¢¥â­ë¥ «¨­¨¨ v 0.3',0
szNewGame db 'F2 - ­®¢ ï ¨£à ',0 szNewGame db 'F2 - ­®¢ ï ¨£à ',0
szRecord db '<27>¥ª®à¤',0 szRecord db '<27>¥ª®à¤',0
szScore db 'Žçª¨',0 szScore db 'Žçª¨',0
else else ; Default to en_US
szTitle db 'Color lines v 0.3',0 szTitle db 'Color lines v 0.3',0
szNewGame db 'F2 - new game',0 szNewGame db 'F2 - new game',0
szRecord db 'Record',0 szRecord db 'Record',0
szScore db 'Score',0 szScore db 'Score',0
end if end if
blank = 0xB8C2D3 blank = 0xB8C2D3
brown = 0x804000 brown = 0x804000
red = 0xff0000 red = 0xff0000
yellow = 0xffff00 yellow = 0xffff00
green = 0x008000 green = 0x008000
cyan = 0x00ffff cyan = 0x00ffff
blue = 0x0000ff blue = 0x0000ff
purple = 0x800080 purple = 0x800080
tableColor dd blank,brown,red,yellow,green,cyan,blue,purple tableColor dd blank,brown,red,yellow,green,cyan,blue,purple
lineCoord: lineCoord:
rept 9 coory:0 rept 9 coory:0
{ {
rept 9 coorx:0 rept 9 coorx:0
\{ \{
dw coorx*256+coory dw coorx*256+coory
\} \}
} }
record dd 25 record dd 25
lineBall db 81 dup ? lineBall db 81 dup ?
score dd ? score dd ?
baseAddr dd ? baseAddr dd ?
current dd ? current dd ?
dest dd ? dest dd ?
newColor1 db ? newColor1 db ?
newColor2 db ? newColor2 db ?
newColor3 db ? newColor3 db ?
countVanishBall db ? countVanishBall db ?
countAllBall db ? countAllBall db ?
TC_U_SYSTEM_RANDSEED dd ? TC_U_SYSTEM_RANDSEED dd ?
bitID dd ? bitID dd ?
I_END: I_END:

282
programs/games/megamaze/trunk/colzone.inc
View File

@ -1,140 +1,142 @@
; level format ; Language support for locales: ru_RU (CP866), en_US.
; [fx|fy]..[field cells x2]..[worm_count]..[worm_len][start cell #][body dirs x2]
; level format
; internal format ; [fx|fy]..[field cells x2]..[worm_count]..[worm_len][start cell #][body dirs x2]
; [stepptr]= worms #
; area: [worm_len][start_cell #][end_cell #]..[dirs].. ; internal format
; [cur_step]: dragged worm pointer ; [stepptr]= worms #
; [finish]: 0 - if head dragged, 1- if tail ; area: [worm_len][start_cell #][end_cell #]..[dirs]..
CZ_levelp: ; [cur_step]: dragged worm pointer
call get_xy_sf ; [finish]: 0 - if head dragged, 1- if tail
call LP_levelp.bit2 CZ_levelp:
mov dword[area],5;0 call get_xy_sf
ret call LP_levelp.bit2
mov dword[area],5;0
CZ_key: ret
mov [jump],still
cmp eax,176 CZ_key:
jb .ex mov [jump],still
cmp eax,179 cmp eax,176
ja .ex jb .ex
mov ecx,dword[area] cmp eax,179
lea ebx,[eax-176] ja .ex
mov eax,[player] mov ecx,dword[area]
call check_bounds lea ebx,[eax-176]
je .ex mov eax,[player]
cmp ecx,5 call check_bounds
jne .novert je .ex
.vert: cmp ecx,5
add eax,[dirs+ebx*4] jne .novert
call check_bounds .vert:
je .ex add eax,[dirs+ebx*4]
mov ecx,eax call check_bounds
add ecx,[dirs+ebx*4] je .ex
mov cl,[field+ecx] mov ecx,eax
cmp cl,[field+eax] add ecx,[dirs+ebx*4]
jne .ex mov cl,[field+ecx]
mov dword[area],ebx cmp cl,[field+eax]
.ok: jne .ex
mov [player],eax mov dword[area],ebx
cmp eax,[finish] .ok:
jne .jm mov [player],eax
cmp dword[area],5 cmp eax,[finish]
jne .jm jne .jm
mov [win_flag],1 cmp dword[area],5
.jm: jne .jm
mov [jump],drw mov [win_flag],1
.ex: .jm:
ret mov [jump],drw
.novert: .ex:
mov edx,ebx ret
cmp edx,ecx ; the same dir .novert:
jne .nosame mov edx,ebx
add eax,[dirs+ebx*4] cmp edx,ecx ; the same dir
call check_bounds jne .nosame
je .ex add eax,[dirs+ebx*4]
.set5: call check_bounds
mov dword[area],5 je .ex
add eax,[dirs+ebx*4] .set5:
jmp .ok mov dword[area],5
.nosame: add eax,[dirs+ebx*4]
xor edx,11b jmp .ok
cmp edx,ecx ; the opposite dir .nosame:
je .set5 xor edx,11b
add eax,[dirs+ebx*4] cmp edx,ecx ; the opposite dir
mov ebx,ecx je .set5
xor ecx,11b add eax,[dirs+ebx*4]
add eax,[dirs+ecx*4] mov ebx,ecx
jmp .vert xor ecx,11b
add eax,[dirs+ecx*4]
CZ_drawm: jmp .vert
mov ecx,[cell_count]
mov esi,field CZ_drawm:
mov [sq_size],3 mov ecx,[cell_count]
.lp: mov esi,field
push ecx mov [sq_size],3
movzx ebx,byte[field+ecx-1] .lp:
shr ebx,6 push ecx
lea eax,[ecx-1] movzx ebx,byte[field+ecx-1]
call get_xy shr ebx,6
add [lx],5-2 shl 16 lea eax,[ecx-1]
add [ly],5-2 shl 16 call get_xy
mov edx,[f_colors+ebx*4] add [lx],5-2 shl 16
mcall 13,[lx],[ly] add [ly],5-2 shl 16
.no: mov edx,[f_colors+ebx*4]
pop ecx mcall 13,[lx],[ly]
loop .lp .no:
pop ecx
inc [sq_size] loop .lp
mov eax,[player]
call get_xy inc [sq_size]
xor edx,edx mov eax,[player]
cmp dword[area],5 call get_xy
je .vert xor edx,edx
push [lx] cmp dword[area],5
push [ly] je .vert
mov edx,dword[area] push [lx]
add eax,[dirs+edx*4] push [ly]
call get_xy mov edx,dword[area]
mcall 13,[lx],[ly] add eax,[dirs+edx*4]
pop [ly] call get_xy
pop [lx] mcall 13,[lx],[ly]
.vert: pop [ly]
mcall 13,[lx],[ly] pop [lx]
add [sq_size],5 .vert:
mov eax,[finish] mcall 13,[lx],[ly]
call get_xy add [sq_size],5
mcall 13,[lx],[ly],0xffffff mov eax,[finish]
call get_xy
ret mcall 13,[lx],[ly],0xffffff
ret
CZ_level:
file 'colzone.bin'
CZ_level:
if lang eq ru_RU file 'colzone.bin'
CZ_help mstr \
'—¥à­ë© ¡«®ª ¨§ 2 ªã¡¨ª®¢ á⮨⠭  à áªà è¥­­®©',\ if lang eq ru_RU
'ª«¥âç â®© ¤®áª¥. ‚ è  § ¤ ç  - ¯¥à¥ª â¨âì ¥£® ­ ',\ CZ_help mstr \
'ª«¥âªã á ¡¥«ë¬ ª¢ ¤à â¨ª®¬. <20>«®ª ­ ç¨­ ¥â áâ®ï ¨',\ '—¥à­ë© ¡«®ª ¨§ 2 ªã¡¨ª®¢ á⮨⠭  à áªà è¥­­®©',\
'¤®«¦¥­ § ª®­ç¨âì ⮦¥ ¢ ¢¥à⨪ «ì­®¬ ¯®«®¦¥­¨¨.',\ 'ª«¥âç â®© ¤®áª¥. ‚ è  § ¤ ç  - ¯¥à¥ª â¨âì ¥£® ­ ',\
'<27>¥«ì§ï ¢ëª â뢠âì ¥£® §  ¯à¥¤¥«ë á¥âª¨ ¨ ᢥàå',\ 'ª«¥âªã á ¡¥«ë¬ ª¢ ¤à â¨ª®¬. <20>«®ª ­ ç¨­ ¥â áâ®ï ¨',\
'⮣® - ªã¡¨ª¨ ¡«®ª  ¤®«¦­ë ¢á¥£¤  «®¦¨âìáï ­ ',\ '¤®«¦¥­ § ª®­ç¨âì ⮦¥ ¢ ¢¥à⨪ «ì­®¬ ¯®«®¦¥­¨¨.',\
'ª«¥âª¨ ®¤¨­ ª®¢®£® 梥â . <20>«®ª ­¥ ®â®¡à ¦¥­ ¢ 3D,',\ '<27>¥«ì§ï ¢ëª â뢠âì ¥£® §  ¯à¥¤¥«ë á¥âª¨ ¨ ᢥàå',\
'¯®íâ®¬ã ‚ë ¢¨¤¨â¥ «¨èì ¥£® ¯à®¥ªæ¨î.','',\ '⮣® - ªã¡¨ª¨ ¡«®ª  ¤®«¦­ë ¢á¥£¤  «®¦¨âìáï ­ ',\
'http://www.clickmazes.com' 'ª«¥âª¨ ®¤¨­ ª®¢®£® 梥â . <20>«®ª ­¥ ®â®¡à ¦¥­ ¢ 3D,',\
else '¯®íâ®¬ã ‚ë ¢¨¤¨â¥ «¨èì ¥£® ¯à®¥ªæ¨î.','',\
CZ_help mstr \ 'http://www.clickmazes.com'
'A black block, made of two black cubes stuck',\ else ; Default to en_US
'together, sits on a coloured grid. Your challenge',\ CZ_help mstr \
'is to roll the black block to its target',\ 'A black block, made of two black cubes stuck',\
'position, which is marked with a small white',\ 'together, sits on a coloured grid. Your challenge',\
'square. The block starts on one end (vertical)',\ 'is to roll the black block to its target',\
'and must also finish in this position. The block',\ 'position, which is marked with a small white',\
'is not permitted to roll off the grid and, in',\ 'square. The block starts on one end (vertical)',\
'addition, the block must always lie entirely',\ 'and must also finish in this position. The block',\
'within one colour-zone. Note the block is not',\ 'is not permitted to roll off the grid and, in',\
'displayed in 3D, in effect you see only its',\ 'addition, the block must always lie entirely',\
'shadow.','',\ 'within one colour-zone. Note the block is not',\
'http://www.clickmazes.com' 'displayed in 3D, in effect you see only its',\
end if 'shadow.','',\
'http://www.clickmazes.com'
end if

134
programs/games/megamaze/trunk/cstep.inc
View File

@ -1,66 +1,68 @@
; level format ; Language support for locales: ru_RU (CP866), en_US.
; [fx|fy][blue xy][red xy]..[maze walls]
; level format
; internal format ; [fx|fy][blue xy][red xy]..[maze walls]
; [player]= blue
; [finish]= red ; internal format
; [player]= blue
; [finish]= red
CSTEP_key:
cmp eax,176
jb .ex CSTEP_key:
cmp eax,179 cmp eax,176
ja .ex jb .ex
mov esi,area cmp eax,179
inc esi ja .ex
lea ebx,[eax-176] mov esi,area
mov [jump],still inc esi
mov eax,[player] lea ebx,[eax-176]
call check_move mov [jump],still
jc .ex mov eax,[player]
add eax,[dirs+ebx*4] call check_move
mov edx,eax jc .ex
.nom1: add eax,[dirs+ebx*4]
mov eax,[finish] mov edx,eax
xor ebx,11b .nom1:
call check_move mov eax,[finish]
jc .ex xor ebx,11b
add eax,[dirs+ebx*4] call check_move
mov [finish],eax jc .ex
mov [player],edx add eax,[dirs+ebx*4]
mov [jump],drw mov [finish],eax
cmp eax,edx mov [player],edx
jnz .ex mov [jump],drw
mov [win_flag],1 cmp eax,edx
.ex: jnz .ex
ret mov [win_flag],1
.ex:
CSTEP_drawm: ret
mov eax,[player]
call get_xy CSTEP_drawm:
mcall 13,[lx],[ly],0xff0000 mov eax,[player]
mov eax,[finish] call get_xy
call get_xy mcall 13,[lx],[ly],0xff0000
mcall 13,[lx],[ly],0xff mov eax,[finish]
ret call get_xy
mcall 13,[lx],[ly],0xff
CSTEP_level: ret
file 'cstep.bin'
CSTEP_level:
if lang eq ru_RU file 'cstep.bin'
CSTEP_help mstr \
'‘®¥¤¨­¨â¥ ªà á­ë© ¨ ᨭ¨© ¡«®ª¨ ¯ã⥬ ã¯à ¢«¥­¨ï',\ if lang eq ru_RU
'®¤­¨¬ ªà á­ë¬ ¡«®ª®¬. ‘¨­¨© ¡«®ª á«¥¤ã¥â § ',\ CSTEP_help mstr \
'ªà á­ë¬, ­® ¤¢¨¦¥âáï ¢ ¯àאַ ¯à®â¨¢®¯®«®¦­®¬',\ '‘®¥¤¨­¨â¥ ªà á­ë© ¨ ᨭ¨© ¡«®ª¨ ¯ã⥬ ã¯à ¢«¥­¨ï',\
'­ ¯à ¢«¥­¨¨. •®¤ à §à¥è¥­ ⮫쪮 ¢ á«ãç ¥',\ '®¤­¨¬ ªà á­ë¬ ¡«®ª®¬. ‘¨­¨© ¡«®ª á«¥¤ã¥â § ',\
'®âáãâáâ¢¨ï ¯à¥¯ïâá⢨© ¤«ï ®¡®¨å ¡«®ª®¢.','',\ 'ªà á­ë¬, ­® ¤¢¨¦¥âáï ¢ ¯àאַ ¯à®â¨¢®¯®«®¦­®¬',\
'http://www.clickmazes.com' '­ ¯à ¢«¥­¨¨. •®¤ à §à¥è¥­ ⮫쪮 ¢ á«ãç ¥',\
else '®âáãâáâ¢¨ï ¯à¥¯ïâá⢨© ¤«ï ®¡®¨å ¡«®ª®¢.','',\
CSTEP_help mstr \ 'http://www.clickmazes.com'
'Unite the red and blue dots by moving just the',\ else ; Default to en_US
'red dot. The blue dot follows the red dot, but',\ CSTEP_help mstr \
'moves in exactly in the opposite direction. A',\ 'Unite the red and blue dots by moving just the',\
'move is only permitted if the path is clear for',\ 'red dot. The blue dot follows the red dot, but',\
'both dots.','',\ 'moves in exactly in the opposite direction. A',\
'http://www.clickmazes.com' 'move is only permitted if the path is clear for',\
end if 'both dots.','',\
'http://www.clickmazes.com'
end if

396
programs/games/megamaze/trunk/fhouse.inc
View File

@ -1,197 +1,199 @@
FH_levelp: ; Language support for locales: ru_RU (CP866), en_US.
mcall 40,100111b
call get_xy_sf FH_levelp:
call erase_field mcall 40,100111b
sub esi,2 call get_xy_sf
mov [levptr],esi call erase_field
movzx ecx,byte[esi-2] sub esi,2
sub ecx,2 mov [levptr],esi
xor eax,eax movzx ecx,byte[esi-2]
.lp: sub ecx,2
lodsb xor eax,eax
mov byte[field+eax],-1 .lp:
loop .lp lodsb
mov dword[player],-1 mov byte[field+eax],-1
mov [win_flag],3 loop .lp
ret mov dword[player],-1
mov [win_flag],3
FH_key: ret
cmp eax,-1
je FH_mouse FH_key:
cmp eax,8 cmp eax,-1
jne .nobsp je FH_mouse
cmp [stepptr],0 cmp eax,8
jne .no1st jne .nobsp
mov [jump],run.game cmp [stepptr],0
ret jne .no1st
.no1st: mov [jump],run.game
mov [win_flag],0 ret
sub [cur_step],2 .no1st:
mov esi,[cur_step] mov [win_flag],0
mov edi,[finish] sub [cur_step],2
mov eax,3 mov esi,[cur_step]
movzx ebx,byte[esi] mov edi,[finish]
sub eax,ebx mov eax,3
movzx ecx,byte[esi+1] movzx ebx,byte[esi]
.lp0: sub eax,ebx
and byte[field+edi],0 movzx ecx,byte[esi+1]
add edi,[dirs+eax*4] .lp0:
loop .lp0 and byte[field+edi],0
mov [finish],edi add edi,[dirs+eax*4]
dec [stepptr] loop .lp0
ret mov [finish],edi
.nobsp: dec [stepptr]
cmp eax,176 ret
jb .ex .nobsp:
cmp eax,179 cmp eax,176
ja .ex jb .ex
sub eax,176 cmp eax,179
jmp FH_mouse.fromkey ja .ex
.ex: sub eax,176
ret jmp FH_mouse.fromkey
.ex:
FH_drawm: ret
mov ecx,[cell_count]
.lp: FH_drawm:
push ecx mov ecx,[cell_count]
movzx ebx,byte[field+ecx-1] .lp:
test ebx,ebx push ecx
jz .no movzx ebx,byte[field+ecx-1]
lea eax,[ecx-1] test ebx,ebx
call get_xy jz .no
mov edx,0 lea eax,[ecx-1]
cmp ebx,0xf call get_xy
jne .stable mov edx,0
mov edx,0x909090 cmp ebx,0xf
.stable: jne .stable
mcall 13,[lx],[ly] mov edx,0x909090
.no: .stable:
pop ecx mcall 13,[lx],[ly]
loop .lp .no:
pop ecx
mov eax,[player] loop .lp
cmp eax,-1
je .ex mov eax,[player]
call get_xy cmp eax,-1
mcall 13,[lx],[ly],0xff00 je .ex
mov eax,[finish] call get_xy
call get_xy mcall 13,[lx],[ly],0xff00
mcall 13,[lx],[ly],0xff0000 mov eax,[finish]
call get_xy
mov ecx,[stepptr] mcall 13,[lx],[ly],0xff0000
jecxz .ex
mov ebx,area mov ecx,[stepptr]
mov edi,[player] jecxz .ex
mov edx,0xffffff mov ebx,area
.lp3: mov edi,[player]
push ecx mov edx,0xffffff
mov esi,edi .lp3:
movzx eax,byte[ebx] push ecx
movzx ecx,byte[ebx+1] mov esi,edi
add ebx,2 movzx eax,byte[ebx]
.lp2: movzx ecx,byte[ebx+1]
add edi,[dirs+eax*4] add ebx,2
loop .lp2 .lp2:
call getline add edi,[dirs+eax*4]
pop ecx loop .lp2
loop .lp3 call getline
.ex: pop ecx
ret loop .lp3
.ex:
FH_mouse: ret
mov [jump],drw;red
call get_last_mclick FH_mouse:
cmp byte[field+ebx],0 mov [jump],drw;red
jne .ex call get_last_mclick
cmp dword[player],-1 cmp byte[field+ebx],0
jne .nostart jne .ex
mov dword[player],ebx cmp dword[player],-1
mov byte[field+ebx],0xf jne .nostart
mov [finish],ebx mov dword[player],ebx
and [win_flag],0 mov byte[field+ebx],0xf
mov [cur_step],area mov [finish],ebx
and [stepptr],0 and [win_flag],0
ret mov [cur_step],area
.nostart: and [stepptr],0
mov eax,[finish] ret
call get_offset .nostart:
cmp eax,-1 mov eax,[finish]
je .ex call get_offset
.fromkey: cmp eax,-1
xor ecx,ecx je .ex
mov edx,eax .fromkey:
mov esi,[finish] xor ecx,ecx
.lp: mov edx,eax
add esi,[dirs+edx*4] mov esi,[finish]
cmp byte[field+esi],0 .lp:
jnz .exlp add esi,[dirs+edx*4]
mov eax,[finish] cmp byte[field+esi],0
mov ebx,esi jnz .exlp
call get_offset mov eax,[finish]
cmp eax,edx mov ebx,esi
jne .exlp call get_offset
mov byte[field+esi],0xf cmp eax,edx
inc ecx jne .exlp
mov [finish],esi mov byte[field+esi],0xf
jmp .lp inc ecx
mov [finish],esi
.exlp: jmp .lp
jecxz .ex
mov eax,edx .exlp:
mov edi,[cur_step] jecxz .ex
stosb mov eax,edx
mov [edi],cl mov edi,[cur_step]
inc edi stosb
mov [cur_step],edi mov [edi],cl
inc [stepptr] inc edi
mov edi,field mov [cur_step],edi
mov ecx,[cell_count] inc [stepptr]
xor eax,eax mov edi,field
repne scasb mov ecx,[cell_count]
je .ch_deadend xor eax,eax
mov [win_flag],1 repne scasb
.ex: je .ch_deadend
ret mov [win_flag],1
.ch_deadend: .ex:
mov ecx,4 ret
mov edx,dirs .ch_deadend:
.lpp: mov ecx,4
mov eax,[finish] mov edx,dirs
mov ebx,[edx] .lpp:
add ebx,eax mov eax,[finish]
push ebx mov ebx,[edx]
call get_offset add ebx,eax
pop ebx push ebx
cmp eax,-1 call get_offset
je .nxtlp pop ebx
cmp byte[field+ebx],0 cmp eax,-1
jz .ex je .nxtlp
.nxtlp: cmp byte[field+ebx],0
add edx,4 jz .ex
loop .lpp .nxtlp:
mov [win_flag],4 add edx,4
ret loop .lpp
mov [win_flag],4
FH_level: ret
file 'fhouse.bin'
FH_level:
if lang eq ru_RU file 'fhouse.bin'
FH_help mstr \
'‚ § ¤ ­¨¨ ­ ©¤¨â¥ ­ ç «ì­ãî ª«¥âªã ¨ ¯à®¢¥¤¨â¥',\ if lang eq ru_RU
'«¨­¨î, ª®â®à ï ¯à®å®¤¨â ç¥à¥§ ¯ãáâë¥ ª«¥âª¨ ¯®',\ FH_help mstr \
'®¤­®¬ã à §ã.',\ '‚ § ¤ ­¨¨ ­ ©¤¨â¥ ­ ç «ì­ãî ª«¥âªã ¨ ¯à®¢¥¤¨â¥',\
' Š ¦¤ë© à § ªà á­ë© ª¢ ¤à â ¤¢¨£ ¥âáï ¯àאַ,',\ '«¨­¨î, ª®â®à ï ¯à®å®¤¨â ç¥à¥§ ¯ãáâë¥ ª«¥âª¨ ¯®',\
'®áâ ­ ¢«¨¢ ïáì ⮫쪮 ã ªà ï, ¯¥à¥¤ ç¥à­ë¬¨',\ '®¤­®¬ã à §ã.',\
'ª¢ ¤à â ¬¨ ¨«¨ 㦥 ¯®á¥é¥­­ë¬¨ ª«¥âª ¬¨.','',\ ' Š ¦¤ë© à § ªà á­ë© ª¢ ¤à â ¤¢¨£ ¥âáï ¯àאַ,',\
'http://www.clickmazes.com' '®áâ ­ ¢«¨¢ ïáì ⮫쪮 ã ªà ï, ¯¥à¥¤ ç¥à­ë¬¨',\
else 'ª¢ ¤à â ¬¨ ¨«¨ 㦥 ¯®á¥é¥­­ë¬¨ ª«¥âª ¬¨.','',\
FH_help mstr \ 'http://www.clickmazes.com'
'For each puzzle find the starting square and draw',\ else ; Default to en_US
'a path moving horizontally and vertically that',\ FH_help mstr \
'passes through each open square exactly once.','',\ 'For each puzzle find the starting square and draw',\
'At each move the red runner will always run',\ 'a path moving horizontally and vertically that',\
'straight, as far as possible, stopping only when',\ 'passes through each open square exactly once.','',\
"blocked by the grid's edge, a black square, or a",\ 'At each move the red runner will always run',\
'square already visited.','',\ 'straight, as far as possible, stopping only when',\
'http://www.clickmazes.com' "blocked by the grid's edge, a black square, or a",\
end if 'square already visited.','',\
'http://www.clickmazes.com'
end if

492
programs/games/megamaze/trunk/loops.inc
View File

@ -1,245 +1,247 @@
LP_levelp: ; Language support for locales: ru_RU (CP866), en_US.
mcall 40,100111b
inc [drag_flag] LP_levelp:
lodsb mcall 40,100111b
lodsw inc [drag_flag]
mov byte[fx],al lodsb
mov byte[fy],ah lodsw
and dword[player],0 mov byte[fx],al
and dword[finish],0 mov byte[fy],ah
call get_xy_sf.count and dword[player],0
call erase_field and dword[finish],0
; mov [levptr],esi call get_xy_sf.count
.bit2: call erase_field
mov edx,8/2 ; mov [levptr],esi
mov edi,field .bit2:
lodsb mov edx,8/2
mov ecx,[cell_count] mov edi,field
.lp: lodsb
mov bl,al mov ecx,[cell_count]
rol al,2 .lp:
and bl,11000000b mov bl,al
mov [edi],bl rol al,2
inc edi and bl,11000000b
dec edx mov [edi],bl
test edx,edx inc edi
jnz .nxt dec edx
mov edx,8/2 test edx,edx
lodsb jnz .nxt
.nxt: mov edx,8/2
loop .lp lodsb
ret .nxt:
loop .lp
LP_key: ret
cmp eax,0
jl LP_mouse LP_key:
cmp eax,8 cmp eax,0
jne .nobsp jl LP_mouse
cmp [stepptr],0 cmp eax,8
jne .no1st jne .nobsp
mov [jump],run.game cmp [stepptr],0
ret jne .no1st
.no1st: mov [jump],run.game
mov [win_flag],0 ret
sub [cur_step],2 .no1st:
mov esi,[cur_step] mov [win_flag],0
mov edi,[finish] sub [cur_step],2
mov eax,3 mov esi,[cur_step]
movzx ebx,byte[esi] mov edi,[finish]
sub eax,ebx mov eax,3
movzx ecx,byte[esi+1] movzx ebx,byte[esi]
.lp0: sub eax,ebx
and byte[field+edi],0 movzx ecx,byte[esi+1]
add edi,[dirs+eax*4] .lp0:
loop .lp0 and byte[field+edi],0
mov [finish],edi add edi,[dirs+eax*4]
dec [stepptr] loop .lp0
ret mov [finish],edi
.nobsp: dec [stepptr]
cmp eax,176 ret
jb .ex .nobsp:
cmp eax,179 cmp eax,176
ja .ex jb .ex
sub eax,176 cmp eax,179
.ex: ja .ex
ret sub eax,176
.ex:
LP_drawm: ret
and [pause_time],0
mov ecx,[cell_count] LP_drawm:
.lp: and [pause_time],0
push ecx mov ecx,[cell_count]
mov bl,byte[field+ecx-1] .lp:
push ebx push ecx
lea eax,[ecx-1] mov bl,byte[field+ecx-1]
mov ecx,eax push ebx
call get_xy lea eax,[ecx-1]
mov ecx,eax
mov al,bl call get_xy
and al,0xf
test bl,11000000b mov al,bl
jnz .noempty and al,0xf
mov esi,LP_aw test bl,11000000b
mov ecx,11 jnz .noempty
call LP_draw_alert mov esi,LP_aw
jmp .no mov ecx,11
.noempty: call LP_draw_alert
mov edx,0 jmp .no
test bl,10000000b .noempty:
je .stable mov edx,0
mov edx,0xffffff test bl,10000000b
mov esi,LP_aw je .stable
mov ecx,7 mov edx,0xffffff
jmp .d13 mov esi,LP_aw
.stable: mov ecx,7
mov esi,LP_em jmp .d13
mov ecx,9 .stable:
.d13: mov esi,LP_em
call LP_draw_alert mov ecx,9
mcall 13,[lx],[ly] .d13:
.no: call LP_draw_alert
mov esi,[esp+4] mcall 13,[lx],[ly]
dec esi .no:
mov edi,esi mov esi,[esp+4]
mov edx,0x0000FF dec esi
; ecx - cell # mov edi,esi
test byte[esp],10b mov edx,0x0000FF
je .no_dn ; ecx - cell #
add edi,[dirs+4*1] test byte[esp],10b
call getline je .no_dn
.no_dn: add edi,[dirs+4*1]
test byte[esp],1000b call getline
je .no_right .no_dn:
mov edi,esi test byte[esp],1000b
add edi,[dirs+4*3] je .no_right
call getline mov edi,esi
.no_right: add edi,[dirs+4*3]
pop ebx call getline
pop ecx .no_right:
.valid: pop ebx
loop .lp2 pop ecx
jmp .exlp .valid:
.lp2: loop .lp2
jmp .lp jmp .exlp
.exlp: .lp2:
jmp .lp
mov esi,[player] .exlp:
mov edi,[finish]
cmp esi,edi mov esi,[player]
je .ex mov edi,[finish]
mov edx,0x7777FF cmp esi,edi
call getline je .ex
.ex: mov edx,0x7777FF
cmp [pause_time],0 call getline
jne .ex2 .ex:
xor ecx,ecx cmp [pause_time],0
xor ebx,ebx jne .ex2
mov edx,5 xor ecx,ecx
; eax - cur cell content, ebx - cell #, ecx - cell counter, edx - dir xor ebx,ebx
.chwin: mov edx,5
movzx eax,byte[field+ebx] ; eax - cur cell content, ebx - cell #, ecx - cell counter, edx - dir
and eax,0xf .chwin:
btr eax,edx movzx eax,byte[field+ebx]
bsf edx,eax and eax,0xf
je .ex3 btr eax,edx
inc ecx bsf edx,eax
add ebx,[dirs+edx*4] je .ex3
jz .ex3 inc ecx
xor edx,11b add ebx,[dirs+edx*4]
jmp .chwin jz .ex3
.ex3: xor edx,11b
cmp ecx,[cell_count] jmp .chwin
jne .ex2 .ex3:
mov [win_flag],1 cmp ecx,[cell_count]
.ex2: jne .ex2
ret mov [win_flag],1
.ex2:
LP_mouse: ret
cmp [win_flag],1
je .ex LP_mouse:
mov [jump],still cmp [win_flag],1
mov edx,eax je .ex
call get_last_mclick mov [jump],still
cmp edx,-2 mov edx,eax
jne .no1st call get_last_mclick
test eax,eax cmp edx,-2
jnz .noempty jne .no1st
mov eax,[player] test eax,eax
mov ebx,[finish] jnz .noempty
call get_offset mov eax,[player]
mov ecx,eax mov ebx,[finish]
mov edx,0x101 call get_offset
shl dl,cl mov ecx,eax
xor ecx,11b mov edx,0x101
shl dh,cl shl dl,cl
mov ecx,ebx xor ecx,11b
jecxz LP_drawm.ex2 shl dh,cl
mov esi,[player] mov ecx,ebx
.lp: jecxz LP_drawm.ex2
xor [field+esi],dl mov esi,[player]
add esi,[dirs+eax*4] .lp:
xor [field+esi],dh xor [field+esi],dl
loop .lp add esi,[dirs+eax*4]
xor ebx,ebx xor [field+esi],dh
.noempty: loop .lp
mov [player],ebx xor ebx,ebx
jmp .exx .noempty:
.no1st: mov [player],ebx
test eax,eax jmp .exx
jz .ex .no1st:
mov eax,[player] test eax,eax
push ebx jz .ex
call get_offset mov eax,[player]
pop ebx push ebx
cmp eax,-1 call get_offset
je .ex pop ebx
.exx: cmp eax,-1
mov [finish],ebx je .ex
mov [jump],drw .exx:
; ud2 mov [finish],ebx
.ex: mov [jump],drw
ret ; ud2
.ex:
ret
LP_aw db 1001b,0110b
LP_em db 0000b,0001b,0010b,0100b,1000b
LP_ab db 0011b,0101b,1100b,1010b,1001b,0110b LP_aw db 1001b,0110b
LP_em db 0000b,0001b,0010b,0100b,1000b
LP_draw_alert: LP_ab db 0011b,0101b,1100b,1010b,1001b,0110b
; al-cell, esi - ptr,ecx - len
.lp: LP_draw_alert:
cmp al,[esi] ; al-cell, esi - ptr,ecx - len
je .ex .lp:
inc esi cmp al,[esi]
loop .lp je .ex
pusha inc esi
mov ebx,[lx] loop .lp
mov ecx,[ly] pusha
add ebx,4-2 shl 16 mov ebx,[lx]
add ecx,4-2 shl 16 mov ecx,[ly]
mcall 13,,,0xFFAAAA add ebx,4-2 shl 16
mov [pause_time],eax add ecx,4-2 shl 16
popa mcall 13,,,0xFFAAAA
.ex: mov [pause_time],eax
ret popa
.ex:
LP_level: ret
file 'loops.bin'
LP_level:
if lang eq ru_RU file 'loops.bin'
LP_help mstr \
'—¥à¥§ ¢á¥ ª«¥âª¨ ¯àאַ㣮«ì­¨ª  ­¥®¡å®¤¨¬®',\ if lang eq ru_RU
'¯à®¢¥á⨠§ ¬ª­ãâãî «®¬ ­ãî. <20>à®å®¤ï ç¥à¥§ ç¥à­ë©',\ LP_help mstr \
'ªà㦮ª, «®¬ ­ ï ®¡ï§ ­  ¯®¢¥à­ãâì,   ¯à®å®¤ï',\ '—¥à¥§ ¢á¥ ª«¥âª¨ ¯àאַ㣮«ì­¨ª  ­¥®¡å®¤¨¬®',\
'ç¥à¥§ ¡¥«ë© ªà㦮ª, «®¬ ­ ï ¯®¢®à ç¨¢ âì ­¥',\ '¯à®¢¥á⨠§ ¬ª­ãâãî «®¬ ­ãî. <20>à®å®¤ï ç¥à¥§ ç¥à­ë©',\
'¬®¦¥â. ‚ ¯ãáâëå ¦¥ ª«¥âª å «®¬ ­ ï ¢¥¤¥â á¥¡ï ª ª',\ 'ªà㦮ª, «®¬ ­ ï ®¡ï§ ­  ¯®¢¥à­ãâì,   ¯à®å®¤ï',\
'§ å®ç¥â.','',\ 'ç¥à¥§ ¡¥«ë© ªà㦮ª, «®¬ ­ ï ¯®¢®à ç¨¢ âì ­¥',\
'http://puzzleprograms.narod.ru' '¬®¦¥â. ‚ ¯ãáâëå ¦¥ ª«¥âª å «®¬ ­ ï ¢¥¤¥â á¥¡ï ª ª',\
else '§ å®ç¥â.','',\
LP_help mstr \ 'http://puzzleprograms.narod.ru' ; FIXME: Check link works
'You have to draw closed line over every grid',\ else ; Default to en_US
'cell. On black square line must turn, and it must',\ LP_help mstr \
'go straight when over white square. The line may',\ 'You have to draw a closed line over every grid',\
'behave anyhow elsewhere.','',\ 'cell. On black square line must turn, and it must',\
'http://puzzleprograms.narod.ru' 'go straight when over white square. The line may',\
end if 'behave anyhow elsewhere.','',\
'http://puzzleprograms.narod.ru' ; FIXME: Check link works
end if

278
programs/games/megamaze/trunk/marble.inc
View File

@ -1,138 +1,140 @@
; level format ; Language support for locales: ru_RU (CP866), en_US.
; [fx|fy][hole xy][balls #]..[1-red,0-black xy]..[maze walls]
; level format
; internal format ; [fx|fy][hole xy][balls #]..[1-red,0-black xy]..[maze walls]
; [stepptr]= balls #
; [finish]= hole cell ; internal format
; area: ..[1-red,0-black xy].. ( -1 if empty) ; [stepptr]= balls #
; [finish]= hole cell
MAR_levelp: ; area: ..[1-red,0-black xy].. ( -1 if empty)
call get_xy_sf
movzx eax,byte[esi-2] MAR_levelp:
mov [finish],eax call get_xy_sf
movzx ecx,byte[esi-1] movzx eax,byte[esi-2]
mov [stepptr],ecx mov [finish],eax
mov edi,area movzx ecx,byte[esi-1]
rep movsb mov [stepptr],ecx
mov [pause_time],10 mov edi,area
call unpack_level rep movsb
ret mov [pause_time],10
call unpack_level
MAR_key: ret
cmp eax,176
jb .ex MAR_key:
cmp eax,179 cmp eax,176
ja .ex jb .ex
mov esi,area-1 cmp eax,179
lea ebx,[eax-176] ja .ex
.again: mov esi,area-1
and [cur_step],0 lea ebx,[eax-176]
mov ecx,[stepptr] .again:
.lp: and [cur_step],0
movzx eax,byte[esi+ecx] mov ecx,[stepptr]
cmp al,-1 .lp:
je .ex1 movzx eax,byte[esi+ecx]
mov byte[player],al cmp al,-1
and byte[player],0x80 je .ex1
and eax,0x7f mov byte[player],al
call check_move and byte[player],0x80
jc .ex1 and eax,0x7f
add eax,[dirs+ebx*4] call check_move
cmp eax,[finish] jc .ex1
jne .nohole add eax,[dirs+ebx*4]
mov byte[esi+ecx],-1 cmp eax,[finish]
jmp .ex2 jne .nohole
.nohole: mov byte[esi+ecx],-1
push ecx jmp .ex2
mov ecx,[stepptr] .nohole:
mov edi,area push ecx
.lp2: mov ecx,[stepptr]
mov dl,[edi] mov edi,area
and dl,0x7f .lp2:
cmp al,dl mov dl,[edi]
je .exlp2 and dl,0x7f
inc edi cmp al,dl
loop .lp2 je .exlp2
.exlp2: inc edi
pop ecx loop .lp2
je .ex1 .exlp2:
or al,byte[player] pop ecx
mov [esi+ecx],al je .ex1
.ex2: or al,byte[player]
inc [cur_step] mov [esi+ecx],al
.ex1: .ex2:
loop .lp inc [cur_step]
cmp [cur_step],0 .ex1:
je .exx loop .lp
call delay cmp [cur_step],0
call drwfld je .exx
jmp .again call delay
.exx: call drwfld
mov ecx,[stepptr] jmp .again
inc esi .exx:
.lp3: mov ecx,[stepptr]
lodsb inc esi
cmp al,-1 .lp3:
je .nxt lodsb
test al,0x80 cmp al,-1
jne .ex je .nxt
.nxt: test al,0x80
loop .lp3 jne .ex
mov [win_flag],1 .nxt:
.ex: loop .lp3
ret mov [win_flag],1
.ex:
MAR_drawm: ret
shl [sq_size],1
mov eax,[finish] MAR_drawm:
call get_xy shl [sq_size],1
shr [sq_size],1 mov eax,[finish]
mcall 13,[lx],[ly],0xa0a0a0 call get_xy
movzx ecx,byte[stepptr] shr [sq_size],1
mov edi,area mcall 13,[lx],[ly],0xa0a0a0
.lp: movzx ecx,byte[stepptr]
push ecx mov edi,area
movzx eax,byte[edi] .lp:
mov edx,0x0 push ecx
cmp al,-1 movzx eax,byte[edi]
je .exlp mov edx,0x0
test eax,0x80 cmp al,-1
je .no je .exlp
mov edx,0xff00000 test eax,0x80
.no: je .no
and eax,0x7f mov edx,0xff00000
call get_xy .no:
mcall 13,[lx],[ly] and eax,0x7f
.exlp: call get_xy
pop ecx mcall 13,[lx],[ly]
inc edi .exlp:
loop .lp pop ecx
.ex: inc edi
ret loop .lp
.ex:
MAR_level: ret
file 'marble.bin'
MAR_level:
if lang eq ru_RU file 'marble.bin'
MAR_help mstr \
'<27>¥áª®«ìª® ªà á­ëå ¨ ç¥à­ëå ¯« è¥ª «¥¦ â ­  ¤®áª¥,',\ if lang eq ru_RU
'¤ëઠ ®¡®§­ ç¥­  á¥à®© ª«¥âª®©. Š®£¤  ¯« èª ',\ MAR_help mstr \
'¯à®å®¤¨â ­ ¤ ¤ëમ©, ®­  ¯ ¤ ¥â â㤠 ¨ ¨á祧 ¥â.',\ '<27>¥áª®«ìª® ªà á­ëå ¨ ç¥à­ëå ¯« è¥ª «¥¦ â ­  ¤®áª¥,',\
'ˆá¯®«ì§ã©â¥ áâ५ª¨ ¤«ï ­ ª«®­  ¤®áª¨.',\ '¤ëઠ ®¡®§­ ç¥­  á¥à®© ª«¥âª®©. Š®£¤  ¯« èª ',\
' ‚ è  § ¤ ç  - á¡à®á¨âì ¢á¥ ªà á­ë¥ ¯« èª¨.',\ '¯à®å®¤¨â ­ ¤ ¤ëમ©, ®­  ¯ ¤ ¥â â㤠 ¨ ¨á祧 ¥â.',\
'Š®«¨ç¥á⢮ 㯠¢è¨å ç¥à­ëå ¯« è¥ª ஫¨ ­¥ ¨£à ¥â.','',\ 'ˆá¯®«ì§ã©â¥ áâ५ª¨ ¤«ï ­ ª«®­  ¤®áª¨.',\
'http://www.clickmazes.com' ' ‚ è  § ¤ ç  - á¡à®á¨âì ¢á¥ ªà á­ë¥ ¯« èª¨.',\
else 'Š®«¨ç¥á⢮ 㯠¢è¨å ç¥à­ëå ¯« è¥ª ஫¨ ­¥ ¨£à ¥â.','',\
MAR_help mstr \ 'http://www.clickmazes.com'
'Several red and black marbles sit on a flat tray,',\ else ; Default to en_US
'a grey square indicate a hole in the tray. If a',\ MAR_help mstr \
'marble rolls onto or over the hole it drops',\ 'Several red and black marbles sit on a flat tray,',\
'through and disappears. Use the cursor keys to',\ 'a grey square indicate a hole in the tray. If a',\
'tilt the tray and start the marbles rolling, the',\ 'marble rolls onto or over the hole it drops',\
'marbles roll in a straight line until they come',\ 'through and disappears. Use the cursor keys to',\
'to rest, you can then roll again. Your challenge',\ 'tilt the tray and start the marbles rolling, the',\
'is to drop all the red marbles, it does not',\ 'marbles roll in a straight line until they come',\
'matter how many black marbles you lose in the',\ 'to rest, you can then roll again. Your challenge',\
'process.','',\ 'is to drop all the red marbles, it does not',\
'http://www.clickmazes.com' 'matter how many black marbles you lose in the',\
end if 'process.','',\
'http://www.clickmazes.com'
end if

1724
programs/games/megamaze/trunk/megamaze.asm
View File

File diff suppressed because it is too large Load Diff

186
programs/games/megamaze/trunk/nolt.inc
View File

@ -1,92 +1,94 @@
NLT_levelp: ; Language support for locales: ru_RU (CP866), en_US.
mov eax,OR_strip
call need_image NLT_levelp:
xor eax,eax mov eax,OR_strip
lodsb call need_image
lodsb xor eax,eax
mov [fx],eax lodsb
lodsb lodsb
mov [fy],eax mov [fx],eax
lodsw lodsb
mov [player],eax mov [fy],eax
mov dword[area],5 lodsw
lodsw mov [player],eax
mov [finish],eax mov dword[area],5
call get_xy_sf.count lodsw
mov [levptr],esi mov [finish],eax
call unpack_level call get_xy_sf.count
ret mov [levptr],esi
call unpack_level
NLT_key: ret
mov [jump],still
cmp eax,176 NLT_key:
jb .ex mov [jump],still
cmp eax,179 cmp eax,176
ja .ex jb .ex
lea ebx,[eax-176] cmp eax,179
mov eax,[player] ja .ex
call check_move lea ebx,[eax-176]
jc .ex mov eax,[player]
mov ecx,ebx call check_move
mov edx,ebx jc .ex
movzx ecx,byte[dir_rotate+ecx] mov ecx,ebx
cmp ecx,dword[area] mov edx,ebx
je .ex movzx ecx,byte[dir_rotate+ecx]
xor edx,11b cmp ecx,dword[area]
cmp edx,dword[area] je .ex
je .ex xor edx,11b
add eax,[dirs+ebx*4] cmp edx,dword[area]
mov dword[area],ebx je .ex
mov [player],eax add eax,[dirs+ebx*4]
cmp eax,[finish] mov dword[area],ebx
jne .nowin mov [player],eax
mov [win_flag],1 cmp eax,[finish]
.nowin: jne .nowin
mov [jump],drw mov [win_flag],1
.ex: .nowin:
ret mov [jump],drw
.ex:
NLT_drawm: ret
push [sq_size]
mov [sq_size],0 NLT_drawm:
mov eax,[finish] push [sq_size]
mov ebx,6 mov [sq_size],0
call out_image mov eax,[finish]
; mcall 13,[lx],[ly],0xff0000 mov ebx,6
mov ebx,dword[area] call out_image
cmp ebx,5 ; mcall 13,[lx],[ly],0xff0000
jne .skip mov ebx,dword[area]
mov eax,[player] cmp ebx,5
mov edi,eax jne .skip
pop [sq_size] mov eax,[player]
call get_xy mov edi,eax
mcall 13,[lx],[ly],0x8000 pop [sq_size]
jmp .ex call get_xy
.skip: mcall 13,[lx],[ly],0x8000
add ebx,8 jmp .ex
mov eax,[player] .skip:
call out_image add ebx,8
pop [sq_size] mov eax,[player]
.ex: call out_image
ret pop [sq_size]
.ex:
NLT_level: ret
file 'nolt.bin'
NLT_level:
if lang eq ru_RU file 'nolt.bin'
NLT_help mstr \
'‚ è  § ¤ ç  - ¯à®¢¥á⨠§¥«¥­ë© ª¢ ¤à â ª ªà á­®¬ã',\ if lang eq ru_RU
'¡¥§ ¯®¢®à®â  ­ «¥¢® ¨ ¤¢¨¦¥­¨ï ­ § ¤. <20>â® âà㤭¥¥',\ NLT_help mstr \
'祬 ª ¦¥âáï. ‚­¨¬ ­¨¥: ¥á«¨ ‚ë ¯à¨¬¥â¥ ¯«®å®¥',\ '‚ è  § ¤ ç  - ¯à®¢¥á⨠§¥«¥­ë© ª¢ ¤à â ª ªà á­®¬ã',\
'à¥è¥­¨¥, ¬®¦¥â¥ ¯®¯ áâì ¢ â㯨ª ¨ ¡ã¤¥â¥',\ '¡¥§ ¯®¢®à®â  ­ «¥¢® ¨ ¤¢¨¦¥­¨ï ­ § ¤. <20>â® âà㤭¥¥',\
'¢ë­ã¦¤¥­ë ­ ç âì á­ ç « .','',\ '祬 ª ¦¥âáï. ‚­¨¬ ­¨¥: ¥á«¨ ‚ë ¯à¨¬¥â¥ ¯«®å®¥',\
'http://puzzleprograms.narod.ru' 'à¥è¥­¨¥, ¬®¦¥â¥ ¯®¯ áâì ¢ â㯨ª ¨ ¡ã¤¥â¥',\
else '¢ë­ã¦¤¥­ë ­ ç âì á­ ç « .','',\
NLT_help mstr \ 'http://puzzleprograms.narod.ru' ; FIXME: Check link works
'Your challenge is to manouvre the green dot to',\ else ; Default to en_US
'the red square without ever turning left, or',\ NLT_help mstr \
'making a U-turn. Harder than it looks. Beware, if',\ 'Your challenge is to manouvre the green dot to',\
'you make a bad decision in this maze you may get',\ 'the red square without ever turning left, or',\
'completely stuck and have to restart.','',\ 'making a U-turn. Harder than it looks. Beware, if',\
'http://www.clickmazes.com' 'you make a bad decision in this maze you may get',\
end if 'completely stuck and have to restart.','',\
'http://www.clickmazes.com' ; FIXME: Why are links different?
end if

456
programs/games/megamaze/trunk/orient.inc
View File

@ -1,227 +1,229 @@
; level format ; Language support for locales: ru_RU (CP866), en_US.
; [fx|fy]..[field cells x2]..[worm_count]..[worm_len][start cell #][body dirs x2]
; level format
; internal format ; [fx|fy]..[field cells x2]..[worm_count]..[worm_len][start cell #][body dirs x2]
; [stepptr]= worms #
; area: [worm_len][start_cell #][end_cell #]..[dirs].. ; internal format
; [cur_step]: dragged worm pointer ; [stepptr]= worms #
; [finish]: 0 - if head dragged, 1- if tail ; area: [worm_len][start_cell #][end_cell #]..[dirs]..
; [cur_step]: dragged worm pointer
OR_levelp: ; [finish]: 0 - if head dragged, 1- if tail
mov [Ces],40
mcall 40,100111b OR_levelp:
inc [drag_flag] mov [Ces],40
mov eax,OR_strip mcall 40,100111b
call need_image inc [drag_flag]
inc esi mov eax,OR_strip
movzx ecx,byte[esi] call need_image
inc esi inc esi
push esi movzx ecx,byte[esi]
mov esi,OR_maze inc esi
jecxz .sk push esi
.nxtmz: mov esi,OR_maze
movzx eax,byte[esi] jecxz .sk
add esi,eax .nxtmz:
loop .nxtmz movzx eax,byte[esi]
.sk: add esi,eax
call get_xy_sf loop .nxtmz
call unpack_level .sk:
pop esi call get_xy_sf
movzx ecx,byte[esi] call unpack_level
inc esi pop esi
mov [cur_step],ecx movzx ecx,byte[esi]
jecxz .sk2 inc esi
mov edi,area mov [cur_step],ecx
rep movsb jecxz .sk2
.sk2: mov edi,area
mov ecx,[cell_count] rep movsb
mov edi,area+16 .sk2:
rep movsb mov ecx,[cell_count]
mov [stepptr],2 mov edi,area+16
; call erase_field rep movsb
; ud2 mov [stepptr],2
ret ; call erase_field
; ud2
OR_key: ret
cmp eax,0
jl OR_mouse OR_key:
ret cmp eax,0
jl OR_mouse
OR_drawf: ret
mov ecx,[cell_count]
push [sq_size] OR_drawf:
mov [sq_size],0 mov ecx,[cell_count]
.lp: push [sq_size]
push ecx mov [sq_size],0
movzx ebx,byte[area+16+ecx-1] .lp:
cmp bl,0xf push ecx
je .no movzx ebx,byte[area+16+ecx-1]
lea eax,[ecx-1] cmp bl,0xf
call out_image je .no
.no: lea eax,[ecx-1]
pop ecx call out_image
loop .lp .no:
pop [sq_size] pop ecx
ret loop .lp
pop [sq_size]
OR_drawm: ret
push [sq_size]
mov [sq_size],0 OR_drawm:
mov eax,[player] push [sq_size]
mov ebx,[stepptr] mov [sq_size],0
add ebx,8 mov eax,[player]
call out_image mov ebx,[stepptr]
mov ecx,[cur_step] add ebx,8
jecxz .skipb call out_image
mov ebx,7 mov ecx,[cur_step]
mov esi,area jecxz .skipb
xor eax,eax mov ebx,7
.nxtb: mov esi,area
lodsb xor eax,eax
call out_image .nxtb:
loop .nxtb lodsb
.skipb: call out_image
mov eax,[player] loop .nxtb
.again: .skipb:
mov ebx,[stepptr] mov eax,[player]
call check_move .again:
jc .ex mov ebx,[stepptr]
add eax,[dirs+ebx*4] call check_move
cmp byte[area+16+eax],6 jc .ex
je .ex add eax,[dirs+ebx*4]
mov ecx,[cur_step] cmp byte[area+16+eax],6
jecxz .skbchk je .ex
mov edi,area mov ecx,[cur_step]
repne scasb jecxz .skbchk
je .again mov edi,area
.skbchk: repne scasb
mov [sq_size],1 je .again
push eax .skbchk:
call get_xy mov [sq_size],1
mov ebx,[lx] push eax
sub bx,2 call get_xy
mov ecx,[ly] mov ebx,[lx]
mov cx,3 sub bx,2
mcall 13,,,0xFFC633 mov ecx,[ly]
xchg bx,cx mov cx,3
mcall mcall 13,,,0xFFC633
mov esi,[Ces] xchg bx,cx
sub esi,3+2 mcall
shl esi,16 mov esi,[Ces]
push ebx sub esi,3+2
add ebx,esi shl esi,16
mcall push ebx
pop ebx add ebx,esi
add ecx,esi mcall
xchg bx,cx pop ebx
add bx,2 add ecx,esi
mcall xchg bx,cx
pop eax add bx,2
jmp .again mcall
.ex: pop eax
pop [sq_size] jmp .again
ret .ex:
pop [sq_size]
OR_mouse: ret
cmp [win_flag],1
je .ex OR_mouse:
mov [jump],still cmp [win_flag],1
mov edx,eax je .ex
call get_last_mclick mov [jump],still
cmp edx,-2 mov edx,eax
jne .ex call get_last_mclick
test eax,eax cmp edx,-2
jnz .noempty jne .ex
.drw: test eax,eax
mov [jump],drw jnz .noempty
ret .drw:
.noempty: mov [jump],drw
ret
; First Click at ebx cell .noempty:
mov eax,[player]
cmp eax,ebx ; First Click at ebx cell
je OR_drawf mov eax,[player]
mov ecx,[cur_step] cmp eax,ebx
jecxz .skbchk je OR_drawf
mov edi,area mov ecx,[cur_step]
xchg eax,ebx jecxz .skbchk
repne scasb mov edi,area
xchg eax,ebx xchg eax,ebx
je OR_drawf repne scasb
.skbchk: xchg eax,ebx
cmp byte[area+16+ebx],0xf je OR_drawf
je .ex .skbchk:
cmp byte[area+16+ebx],6 cmp byte[area+16+ebx],0xf
je .ex je .ex
push eax cmp byte[area+16+ebx],6
mov edx,ebx je .ex
call get_offset push eax
mov ebx,eax mov edx,ebx
pop eax call get_offset
cmp ebx,[stepptr] mov ebx,eax
jne .ex pop eax
cmp ebx,[stepptr]
call check_move jne .ex
jc .ex
movzx ecx,byte[area+16+edx] call check_move
cmp ecx,4 jc .ex
jae .noarr movzx ecx,byte[area+16+edx]
mov ebx,ecx cmp ecx,4
call check_move jae .noarr
jc .ex mov ebx,ecx
mov edx,eax call check_move
add eax,[dirs+ebx*4] jc .ex
mov [player],eax mov edx,eax
mov ecx,[cur_step] add eax,[dirs+ebx*4]
jecxz .skbchk2 mov [player],eax
mov edi,area mov ecx,[cur_step]
repne scasb jecxz .skbchk2
jne .skbchk2 mov edi,area
mov [edi-1],dl repne scasb
.skbchk2: jne .skbchk2
cmp eax,[finish] mov [edi-1],dl
jne .drw .skbchk2:
mov [win_flag],1 cmp eax,[finish]
jmp .drw jne .drw
.noarr: mov [win_flag],1
mov edx,[stepptr] jmp .drw
cmp ecx,4 .noarr:
jne .nocw mov edx,[stepptr]
movzx edx,byte[dir_rotate+edx] cmp ecx,4
jmp .ex2 jne .nocw
.nocw: movzx edx,byte[dir_rotate+edx]
cmp ecx,5 jmp .ex2
jne .ex .nocw:
movzx edx,byte[dir_rotate+4+edx] cmp ecx,5
.ex2: jne .ex
mov [stepptr],edx movzx edx,byte[dir_rotate+4+edx]
jmp .drw .ex2:
.ex: mov [stepptr],edx
ret jmp .drw
.ex:
OR_maze: ret
file 'omaze.bin'
OR_maze:
OR_level: file 'omaze.bin'
file 'or2.bin'
OR_level:
if lang eq ru_RU file 'or2.bin'
OR_help mstr \
'™¥«ç®ª ­  ¢ë¤¥«¥­­®© ª«¥âª¥ ¯¥à¥¤¢¨£ ¥â ¨«¨',\ if lang eq ru_RU
'¢à é ¥â ªà á­ãî áâ५ªã. ‘¨­¨© ¡«®ª ¤¥©áâ¢ã¥â',\ OR_help mstr \
'ª ª ¯à¥¯ïâá⢨¥, áªàë¢ ï ®¤­ã ª«¥âªã. <20>à¨',\ '™¥«ç®ª ­  ¢ë¤¥«¥­­®© ª«¥âª¥ ¯¥à¥¤¢¨£ ¥â ¨«¨',\
'¯¥à¥å®¤¥ áâ५ª¨ ­  ª«¥âªã ᨭ¥£® ¡«®ª  ®­¨',\ '¢à é ¥â ªà á­ãî áâ५ªã. ‘¨­¨© ¡«®ª ¤¥©áâ¢ã¥â',\
'¯®¬¥­ïîâáï ¬¥áâ ¬¨. ‡ ¤ ç  - ¯à®¢¥á⨠ªà á­ãî',\ 'ª ª ¯à¥¯ïâá⢨¥, áªàë¢ ï ®¤­ã ª«¥âªã. <20>à¨',\
'áâ५ªã ¨§ ­¨¦­¥© ª«¥âª¨ ¢ ¢¥àå­îî.','',\ '¯¥à¥å®¤¥ áâ५ª¨ ­  ª«¥âªã ᨭ¥£® ¡«®ª  ®­¨',\
'http://www.clickmazes.com' '¯®¬¥­ïîâáï ¬¥áâ ¬¨. ‡ ¤ ç  - ¯à®¢¥á⨠ªà á­ãî',\
else 'áâ५ªã ¨§ ­¨¦­¥© ª«¥âª¨ ¢ ¢¥àå­îî.','',\
OR_help mstr \ 'http://www.clickmazes.com' ; FIXME: Check link works
'Click on a highlighted square to move or rotate',\ else ; Default to en_US
'the red pointer. The blue switcher acts as an',\ OR_help mstr \
'obstacle, hiding one square. The red pointer and',\ 'Click on a highlighted square to move or rotate',\
'blue switcher will swap places if the red pointer',\ 'the red pointer. The blue switcher acts as an',\
'is pushed onto a square occupied by a blue',\ 'obstacle, hiding one square. The red pointer and',\
'switcher. Your challenge is to negotiate the red',\ 'blue switcher will swap places if the red pointer',\
'arrow from the bottom to the top square.','',\ 'is pushed onto a square occupied by a blue',\
'http://www.clickmazes.com' 'switcher. Your challenge is to negotiate the red',\
end if 'arrow from the bottom to the top square.','',\
'http://www.clickmazes.com' ; FIXME: Check link works
end if

190
programs/games/megamaze/trunk/smz.inc
View File

@ -1,94 +1,96 @@
SMZ_levelp: ; Language support for locales: ru_RU (CP866), en_US.
call get_xy_sf
xor eax,eax SMZ_levelp:
mov [stepptr],esi call get_xy_sf
lodsb xor eax,eax
mov [cur_step],esi mov [stepptr],esi
add esi,eax lodsb
mov [levptr],esi mov [cur_step],esi
call unpack_level add esi,eax
ret mov [levptr],esi
call unpack_level
SMZ_key: ret
cmp eax,176
jb .ex SMZ_key:
cmp eax,179 cmp eax,176
ja .ex jb .ex
mov ecx,[cur_step] cmp eax,179
movzx ecx,byte[ecx] ja .ex
lea ebx,[eax-176] mov ecx,[cur_step]
mov eax,[player] movzx ecx,byte[ecx]
.lp: lea ebx,[eax-176]
call check_move mov eax,[player]
jc .exl .lp:
add eax,[dirs+ebx*4] call check_move
loop .lp jc .exl
.exl: add eax,[dirs+ebx*4]
test ecx,ecx loop .lp
jne .ex .exl:
mov [player],eax test ecx,ecx
cmp eax,[finish] jne .ex
jne .nowin mov [player],eax
mov [win_flag],1 cmp eax,[finish]
.nowin: jne .nowin
mov esi,[stepptr] mov [win_flag],1
movzx eax,byte[esi] .nowin:
inc esi mov esi,[stepptr]
lea ebx,[esi+eax] movzx eax,byte[esi]
inc [cur_step] inc esi
cmp [cur_step],ebx lea ebx,[esi+eax]
jb .ex inc [cur_step]
mov [cur_step],esi cmp [cur_step],ebx
.ex: jb .ex
ret mov [cur_step],esi
.ex:
SMZ_drawm: ret
mov eax,[player]
call get_xy SMZ_drawm:
mcall 13,[lx],[ly],0xff00 mov eax,[player]
mov eax,[finish] call get_xy
call get_xy mcall 13,[lx],[ly],0xff00
mcall 13,[lx],[ly],0xff0000 mov eax,[finish]
cmp [win_flag],1 call get_xy
je .ex mcall 13,[lx],[ly],0xff0000
mov edi,[stepptr] cmp [win_flag],1
movzx ecx,byte[edi] je .ex
inc edi mov edi,[stepptr]
mov edx,(XFOFS+MSGXO) shl 16+42 movzx ecx,byte[edi]
mov ebx,0x010000 inc edi
mov eax,47 mov edx,(XFOFS+MSGXO) shl 16+42
.lp: mov ebx,0x010000
push ecx mov eax,47
mov esi,0x10000000 .lp:
movzx ecx,byte[edi] push ecx
cmp edi,[cur_step] mov esi,0x10000000
jne .nocur movzx ecx,byte[edi]
mov esi,0x100000ff cmp edi,[cur_step]
mcall jne .nocur
add edx,1 shl 16 mov esi,0x100000ff
.nocur: mcall
mcall add edx,1 shl 16
pop ecx .nocur:
add edx,10 shl 16 mcall
inc edi pop ecx
loop .lp add edx,10 shl 16
.ex: inc edi
ret loop .lp
.ex:
SMZ_level: ret
file 'smz.bin'
SMZ_level:
if lang eq ru_RU file 'smz.bin'
SMZ_help mstr \
'𧎚Ｔ桌鴭漭 祚嶉奶恥罱市鴙桑碪 摰亢<E691B0>, 丐見𩤃',\ if lang eq ru_RU
'坏咱卿<E592B1> 炎𨸹<E7828E><F0A8B8B9> <20> 祚戶╞蟡限恭 狙咧蟡摵╳ 物乒悚',\ SMZ_help mstr \
'祚 能麍悟, 祚<> 郊 亢摵見郊漭 芹<>陋ㄝ 炎𨸹<E7828E><F0A8B8B9>.','',\ '𧎚Ｔ桌鴭漭 祚嶉奶恥罱市鴙桑碪 摰亢<E691B0>, 丐見𩤃',\
'http://puzzleprograms.narod.ru' '坏咱卿<E592B1> 炎𨸹<E7828E><F0A8B8B9> <20> 祚戶╞蟡限恭 狙咧蟡摵╳ 物乒悚',\
else '祚 能麍悟, 祚<> 郊 亢摵見郊漭 芹<>陋ㄝ 炎𨸹<E7828E><F0A8B8B9>.','',\
SMZ_help mstr \ 'http://puzzleprograms.narod.ru' ; FIXME: Check link works
'Repeat sequence shown above the field moving the',\ else ; Default to en_US
'green square by highlighted count of spaces as',\ SMZ_help mstr \
'many times as you like, until you finish at the',\ 'Repeat sequence shown above the field moving the',\
'red square.','',\ 'green square by highlighted count of spaces as',\
'http://puzzleprograms.narod.ru' 'many times as you like, until you finish at the',\
end if 'red square.','',\
'http://puzzleprograms.narod.ru' ; FIXME: Check link works
end if

330
programs/games/megamaze/trunk/tam.inc
View File

@ -1,164 +1,166 @@
TM_levelp: ; Language support for locales: ru_RU (CP866), en_US.
call get_xy_sf
mov [levptr],esi TM_levelp:
call unpack_level call get_xy_sf
ret mov [levptr],esi
call unpack_level
TM_key: ret
cmp eax,' '
je .mm TM_key:
cmp eax,176 cmp eax,' '
jb .still je .mm
cmp eax,179 cmp eax,176
ja .still jb .still
lea ebx,[eax-176] cmp eax,179
mov eax,[teseus] ja .still
call check_move lea ebx,[eax-176]
jc .still mov eax,[teseus]
call move_teseus call check_move
cmp [win_flag],0 jc .still
jne .ex call move_teseus
.nowin: cmp [win_flag],0
call drwfld jne .ex
.mm: .nowin:
call move_minotaur call drwfld
cmp eax,[teseus] .mm:
jne .still call move_minotaur
mov [win_flag],2 cmp eax,[teseus]
jmp .ex jne .still
.still: mov [win_flag],2
mov [jump],still jmp .ex
.ex: .still:
ret mov [jump],still
.ex:
move_minotaur: ret
xor esi,esi
mov eax,[teseus] move_minotaur:
mov ebx,[fx] xor esi,esi
div bl mov eax,[teseus]
mov ecx,eax ;teseus: ch-x, cl-y mov ebx,[fx]
mov eax,[minotaur] div bl
.again: mov ecx,eax ;teseus: ch-x, cl-y
call mino_xy mov eax,[minotaur]
xor ebx,ebx .again:
cmp dh,ch call mino_xy
je .stand2 xor ebx,ebx
ja .ok1 cmp dh,ch
add ebx,3 je .stand2
.ok1: ja .ok1
call check_move add ebx,3
jc .stand2 .ok1:
add eax,[dirs+ebx*4] call check_move
mov [minotaur],eax jc .stand2
inc esi add eax,[dirs+ebx*4]
call delay mov [minotaur],eax
call drwfld inc esi
cmp esi,2 call delay
jb .again call drwfld
jmp .ex cmp esi,2
.stand1: jb .again
call mino_xy jmp .ex
.stand2: .stand1:
mov ebx,2 call mino_xy
cmp dl,cl .stand2:
je .ex mov ebx,2
ja .ok2 cmp dl,cl
dec ebx je .ex
.ok2: ja .ok2
call check_move dec ebx
jc .ex .ok2:
add eax,[dirs+ebx*4] call check_move
mov [minotaur],eax jc .ex
inc esi add eax,[dirs+ebx*4]
call delay mov [minotaur],eax
call drwfld inc esi
cmp esi,2 call delay
jb .again call drwfld
.ex: cmp esi,2
ret jb .again
.ex:
mino_xy: ret
push eax
div byte[fx] mino_xy:
mov edx,eax ;minotaur: dh-x, dl-y push eax
pop eax div byte[fx]
ret mov edx,eax ;minotaur: dh-x, dl-y
pop eax
move_teseus: ret
pusha
cdq move_teseus:
mov ecx,[fx] pusha
div cl cdq
add ax,1 shl 8+1 mov ecx,[fx]
test ebx,ebx div cl
jne .no0 add ax,1 shl 8+1
cmp ah,1 test ebx,ebx
jne .move jne .no0
.win: cmp ah,1
inc [win_flag] jne .move
jmp .ex .win:
.no0: inc [win_flag]
cmp ebx,1 jmp .ex
jne .no1 .no0:
cmp al,byte[fy] cmp ebx,1
je .win jne .no1
jmp .move cmp al,byte[fy]
.no1: je .win
cmp ebx,2 jmp .move
jne .no2 .no1:
cmp al,1 cmp ebx,2
je .win jne .no2
jmp .move cmp al,1
.no2: je .win
cmp ebx,3 jmp .move
jne .move .no2:
cmp ah,byte[fx] cmp ebx,3
je .win jne .move
.move: cmp ah,byte[fx]
mov eax,[esp+28] je .win
add eax,[dirs+ebx*4] .move:
mov [teseus],eax mov eax,[esp+28]
.ex: add eax,[dirs+ebx*4]
popa mov [teseus],eax
ret .ex:
popa
TM_drawm: ret
mov eax,[teseus]
call get_xy TM_drawm:
mcall 13,[lx],[ly],0xff00 mov eax,[teseus]
mov eax,[minotaur] call get_xy
call get_xy mcall 13,[lx],[ly],0xff00
mcall 13,[lx],[ly],0xff0000 mov eax,[minotaur]
ret call get_xy
mcall 13,[lx],[ly],0xff0000
TM_level: ret
file 'tam.bin'
TM_level:
if lang eq ru_RU file 'tam.bin'
TM_help mstr \
' ’¥á¥© (§¥«¥­ë© ª¢ ¤à â) ¤®«¦¥­ ã¡¥¦ âì ¨§',\ if lang eq ru_RU
'« ¡¨à¨­â . ‡  ­¨¬ £®­¨âáï ¬¥å ­¨ç¥áª¨© Œ¨­®â ¢à',\ TM_help mstr \
'(ªà á­ë© ª¢ ¤à â). <20>  ª ¦¤ë© 室 ’¥á¥© Œ¨­®â ¢à',\ ' ’¥á¥© (§¥«¥­ë© ª¢ ¤à â) ¤®«¦¥­ ã¡¥¦ âì ¨§',\
'¤¥« ¥â 2 室  ¯® â ª®© á奬¥:',\ '« ¡¨à¨­â . ‡  ­¨¬ £®­¨âáï ¬¥å ­¨ç¥áª¨© Œ¨­®â ¢à',\
' ‘­ ç «  ®­ ¯ëâ ¥âáï ¯à¨¡«¨§¨âìáï ª ’¥á¥î ¯®',\ '(ªà á­ë© ª¢ ¤à â). <20>  ª ¦¤ë© 室 ’¥á¥© Œ¨­®â ¢à',\
'£®à¨§®­â «¨ ­  1 ª¢ ¤à â. …᫨ íâ® ­¥¢®§¬®¦­®,',\ '¤¥« ¥â 2 室  ¯® â ª®© á奬¥:',\
'®­ ¯ëâ ¥âáï ¯®¤®©â¨ ¯® ¢¥à⨪ «¨ ­  1 ª¢ ¤à â.',\ ' ‘­ ç «  ®­ ¯ëâ ¥âáï ¯à¨¡«¨§¨âìáï ª ’¥á¥î ¯®',\
'…᫨ ­¥¢®§¬®¦­® ᤥ« âì ­¨ ⮣®, ­¨ ¤à㣮£®,',\ '£®à¨§®­â «¨ ­  1 ª¢ ¤à â. …᫨ íâ® ­¥¢®§¬®¦­®,',\
'Œ¨­®â ¢à ¯à®¯ã᪠¥â ¤ ­­ë© 室.','',\ '®­ ¯ëâ ¥âáï ¯®¤®©â¨ ¯® ¢¥à⨪ «¨ ­  1 ª¢ ¤à â.',\
'http://puzzleprograms.narod.ru' '…᫨ ­¥¢®§¬®¦­® ᤥ« âì ­¨ ⮣®, ­¨ ¤à㣮£®,',\
else 'Œ¨­®â ¢à ¯à®¯ã᪠¥â ¤ ­­ë© 室.','',\
TM_help mstr \ 'http://puzzleprograms.narod.ru' ; FIXME: Check link works
' Theseus (the green dot) must escape from a maze.',\ else ; Default to en_US
'There is also a mechanical Minotaur (the red',\ TM_help mstr \
'dot) in each maze. For every turn that Theseus',\ ' Theseus (the green dot) must escape from a maze.',\
'takes, the Minotaur takes two turns.',\ 'There is also a mechanical Minotaur (the red',\
' Each turn he decides following:',\ 'dot) in each maze. For every turn that Theseus',\
'First he tests if he can move horizontally and',\ 'takes, the Minotaur takes two turns.',\
'get closer to Theseus. If he can, he will move',\ ' Each turn he decides following:',\
"one square horizontally. If he can't, he will",\ 'First he tests if he can move horizontally and',\
'test if he could move vertically and get closer',\ 'get closer to Theseus. If he can, he will move',\
'to Theseus. If he can, he will move one square',\ "one square horizontally. If he can't, he will",\
"vertically. If he can't move either horizontally",\ 'test if he could move vertically and get closer',\
'or vertically, then he just skips that turn.','',\ 'to Theseus. If he can, he will move one square',\
'http://puzzleprograms.narod.ru' "vertically. If he can't move either horizontally",\
end if 'or vertically, then he just skips that turn.','',\
'http://puzzleprograms.narod.ru' ; FIXME: Check link works
end if

188
programs/games/megamaze/trunk/tilt.inc
View File

@ -1,93 +1,95 @@
TILT_levelp: ; Language support for locales: ru_RU (CP866), en_US.
call SMZ_levelp
mov esi,[stepptr] TILT_levelp:
movzx ecx,byte[esi] call SMZ_levelp
mov [finish],ecx mov esi,[stepptr]
inc ecx movzx ecx,byte[esi]
mov edi,area mov [finish],ecx
rep movsb inc ecx
mov [pause_time],10 mov edi,area
ret rep movsb
mov [pause_time],10
TILT_key: ret
cmp eax,176
jb .ex TILT_key:
cmp eax,179 cmp eax,176
ja .ex jb .ex
mov esi,area cmp eax,179
inc esi ja .ex
lea ebx,[eax-176] mov esi,area
mov eax,[player] inc esi
.lp: lea ebx,[eax-176]
call check_move mov eax,[player]
jc .ex1 .lp:
add eax,[dirs+ebx*4] call check_move
movzx ecx,byte[esi-1] jc .ex1
mov edi,esi add eax,[dirs+ebx*4]
repne scasb movzx ecx,byte[esi-1]
jne .notfound mov edi,esi
mov byte[edi-1],0xff repne scasb
dec dword[finish] jne .notfound
.notfound: mov byte[edi-1],0xff
mov [player],eax dec dword[finish]
call delay .notfound:
call drwfld mov [player],eax
jmp .lp call delay
.ex1: call drwfld
cmp dword[finish],0 jmp .lp
jnz .ex .ex1:
mov [win_flag],1 cmp dword[finish],0
.ex: jnz .ex
ret mov [win_flag],1
.ex:
TILT_drawm: ret
mov eax,[player]
call get_xy TILT_drawm:
mcall 13,[lx],[ly],0xff00 mov eax,[player]
cmp [win_flag],1 call get_xy
je .ex mcall 13,[lx],[ly],0xff00
mov edi,area cmp [win_flag],1
movzx ecx,byte[edi] je .ex
jecxz .ex mov edi,area
inc edi movzx ecx,byte[edi]
.lp: jecxz .ex
push ecx inc edi
movzx eax,byte[edi] .lp:
cmp eax,0xff push ecx
je .no movzx eax,byte[edi]
call get_xy cmp eax,0xff
mcall 13,[lx],[ly],0xff0000 je .no
.no: call get_xy
pop ecx mcall 13,[lx],[ly],0xff0000
inc edi .no:
loop .lp pop ecx
.ex: inc edi
ret loop .lp
.ex:
TILT_level: ret
file 'tilt.bin'
TILT_level:
if lang eq ru_RU file 'tilt.bin'
TILT_help mstr \
'<27>« èª  (§¥«¥­ë© ª¢ ¤à â) «¥¦¨â ­  ¤®áª¥, ª®â®àãî',\ if lang eq ru_RU
'¬®¦­® ­ ª«®­ïâì ¯® £®à¨§®­â «¨ ¨ ¢¥à⨪ «¨',\ TILT_help mstr \
' <20>®á«¥ ­ ª«®­  ¯« èª  ᪮«ì§¨â, ¯®ª  ­¥ ­ âª­¥âáï',\ '<27>« èª  (§¥«¥­ë© ª¢ ¤à â) «¥¦¨â ­  ¤®áª¥, ª®â®àãî',\
'­  á⥭ªã. <20>¥«ì§ï ®áâ ­®¢¨âì ¯« èªã ¢® á¥à¥¤¨­¥',\ '¬®¦­® ­ ª«®­ïâì ¯® £®à¨§®­â «¨ ¨ ¢¥à⨪ «¨',\
'¯ãâ¨.',\ ' <20>®á«¥ ­ ª«®­  ¯« èª  ᪮«ì§¨â, ¯®ª  ­¥ ­ âª­¥âáï',\
' ‚ è  § ¤ ç  - § áâ ¢¨âì ¯« èªã ¯®á¥â¨âì ª«¥âª¨',\ '­  á⥭ªã. <20>¥«ì§ï ®áâ ­®¢¨âì ¯« èªã ¢® á¥à¥¤¨­¥',\
'á ªà á­ë¬¨ ª¢ ¤à â ¬¨.','',\ '¯ãâ¨.',\
'http://www.clickmazes.com' ' ‚ è  § ¤ ç  - § áâ ¢¨âì ¯« èªã ¯®á¥â¨âì ª«¥âª¨',\
else 'á ªà á­ë¬¨ ª¢ ¤à â ¬¨.','',\
TILT_help mstr \ 'http://www.clickmazes.com'
'You are to imagine that a marble (shown here as a',\ else ; Default to en_US
'green square) is on a board that you can tilt',\ TILT_help mstr \
'only to the north, south, east, or west. (You',\ 'You are to imagine that a marble (shown here as a',\
"can't do anything tricky like tilt it southeast.)",\ 'green square) is on a board that you can tilt',\
' Once you tilt the board, the marble will roll',\ 'only to the north, south, east, or west. (You',\
'(horizontally or vertically) until it hits a',\ "can't do anything tricky like tilt it southeast.)",\
"barrier. There's no way you can stop the marble",\ ' Once you tilt the board, the marble will roll',\
'in the middle of its roll.',\ '(horizontally or vertically) until it hits a',\
' The object is to roll the marble onto or over',\ "barrier. There's no way you can stop the marble",\
'every red square in the maze.','',\ 'in the middle of its roll.',\
'http://www.clickmazes.com' ' The object is to roll the marble onto or over',\
end if 'every red square in the maze.','',\
'http://www.clickmazes.com'
end if

212
programs/games/megamaze/trunk/tilt2.inc
View File

@ -1,105 +1,107 @@
; level format ; Language support for locales: ru_RU (CP866), en_US.
; [fx|fy][blue xy][red xy][blue point xy][red point xy]..[maze walls]
; level format
; internal format ; [fx|fy][blue xy][red xy][blue point xy][red point xy]..[maze walls]
; points db=[stepptr]
; [player]= blue ; internal format
; [finish]= red ; points db=[stepptr]
; area: ..[1-red,0-black xy].. ( -1 if empty) ; [player]= blue
; [finish]= red
TILT2_levelp: ; area: ..[1-red,0-black xy].. ( -1 if empty)
call get_xy_sf
mov [stepptr],esi TILT2_levelp:
add esi,2 call get_xy_sf
call unpack_level mov [stepptr],esi
mov [pause_time],10 add esi,2
ret call unpack_level
mov [pause_time],10
TILT2_key: ret
cmp eax,176
jb .ex TILT2_key:
cmp eax,179 cmp eax,176
ja .ex jb .ex
mov esi,area cmp eax,179
inc esi ja .ex
lea ebx,[eax-176] mov esi,area
.lp: inc esi
xor edx,edx lea ebx,[eax-176]
mov eax,[player] .lp:
call check_move xor edx,edx
jc .nom1 mov eax,[player]
inc edx call check_move
add eax,[dirs+ebx*4] jc .nom1
mov [player],eax inc edx
.nom1: add eax,[dirs+ebx*4]
mov eax,[finish] mov [player],eax
call check_move .nom1:
jc .nom2 mov eax,[finish]
inc edx call check_move
add eax,[dirs+ebx*4] jc .nom2
mov [finish],eax inc edx
.nom2: add eax,[dirs+ebx*4]
test edx,edx mov [finish],eax
jz .ex1 .nom2:
call delay test edx,edx
call drwfld jz .ex1
jmp .lp call delay
.ex1: call drwfld
mov eax,[finish] jmp .lp
cmp eax,[player] .ex1:
jnz .ex2 mov eax,[finish]
mov [win_flag],2 cmp eax,[player]
jmp TILT2_drawm.skip jnz .ex2
.ex2: mov [win_flag],2
mov esi,[stepptr] jmp TILT2_drawm.skip
cmp al,[esi+1] .ex2:
jne .ex mov esi,[stepptr]
mov eax,[player] cmp al,[esi+1]
cmp al,[esi] jne .ex
jne .ex mov eax,[player]
mov [win_flag],1 cmp al,[esi]
.ex: jne .ex
ret mov [win_flag],1
.ex:
TILT2_drawm: ret
cmp [win_flag],2
je .skip TILT2_drawm:
; mov [sq_size],3 cmp [win_flag],2
mov eax,[player] je .skip
call get_xy ; mov [sq_size],3
mcall 13,[lx],[ly],0xff mov eax,[player]
mov eax,[finish] call get_xy
call get_xy mcall 13,[lx],[ly],0xff
mcall 13,[lx],[ly],0xff0000 mov eax,[finish]
.skip: call get_xy
shl [sq_size],1 mcall 13,[lx],[ly],0xff0000
mov esi,[stepptr] .skip:
lodsb shl [sq_size],1
call get_xy mov esi,[stepptr]
mcall 13,[lx],[ly],0xff lodsb
lodsb call get_xy
call get_xy mcall 13,[lx],[ly],0xff
shr [sq_size],1 lodsb
mcall 13,[lx],[ly],0xff0000 call get_xy
ret shr [sq_size],1
mcall 13,[lx],[ly],0xff0000
TILT2_level: ret
file 'tilt2.bin'
TILT2_level:
if lang eq ru_RU file 'tilt2.bin'
TILT2_help mstr \
'Šà á­ë© ¨ ᨭ¨© ¡«®ª¨ ¤®«¦­ë ¤®áâ¨çì ª«¥â®ª',\ if lang eq ru_RU
'ᮮ⢥âáâ¢ãî饣® 梥â . ‚­¨¬ ­¨¥! <20>«®ª¨ ᤥ« ­ë',\ TILT2_help mstr \
'¨§  £à¥áᨢ­®£® ¬ â¥à¨ « , ¨ ¯à¨ á⮫ª­®¢¥­¨¨',\ 'Šà á­ë© ¨ ᨭ¨© ¡«®ª¨ ¤®«¦­ë ¤®áâ¨çì ª«¥â®ª',\
'¬£­®¢¥­­® ¨á¯ àïîâáï. ‚ í⮬ á«ãç ¥ ‚ ¬ ¯à¨¤¥âáï',\ 'ᮮ⢥âáâ¢ãî饣® 梥â . ‚­¨¬ ­¨¥! <20>«®ª¨ ᤥ« ­ë',\
'­ ç âì ã஢¥­ì á­ ç « .','',\ '¨§  £à¥áᨢ­®£® ¬ â¥à¨ « , ¨ ¯à¨ á⮫ª­®¢¥­¨¨',\
'http://www.clickmazes.com' '¬£­®¢¥­­® ¨á¯ àïîâáï. ‚ í⮬ á«ãç ¥ ‚ ¬ ¯à¨¤¥âáï',\
else '­ ç âì ã஢¥­ì á­ ç « .','',\
TILT2_help mstr \ 'http://www.clickmazes.com'
'The red block must reach the red target and the',\ else ; Default to en_US
'blue block the blue target. Beware! The two',\ TILT2_help mstr \
'blocks are made of highly reactive material and,',\ 'The red block must reach the red target and the',\
'if they collide, will instantly evaporate. At',\ 'blue block the blue target. Beware! The two',\
'this point you must start all over again.','',\ 'blocks are made of highly reactive material and,',\
'http://www.clickmazes.com' 'if they collide, will instantly evaporate. At',\
end if 'this point you must start all over again.','',\
'http://www.clickmazes.com'
end if

4
programs/games/megamaze/trunk/wriggle.inc
View File

@ -1,3 +1,5 @@
; Language support for locales: ru_RU (CP866), en_US.
; level format ; level format
; [fx|fy]..[field cells x2]..[worm_count]..[worm_len][start cell #][body dirs x2] ; [fx|fy]..[field cells x2]..[worm_count]..[worm_len][start cell #][body dirs x2]
@ -241,7 +243,7 @@ if lang eq ru_RU
'—¥à¢ïª¨ ­¥ ¬®£ãâ ¯¥à¥ªà뢠âì ¨ ¯¥à¥á¥ª âì ¤àã£',\ '—¥à¢ïª¨ ­¥ ¬®£ãâ ¯¥à¥ªà뢠âì ¨ ¯¥à¥á¥ª âì ¤àã£',\
'¤à㣠.','',\ '¤à㣠.','',\
'http://www.clickmazes.com' 'http://www.clickmazes.com'
else else ; Default to en_US
WG_help mstr \ WG_help mstr \
'Your aim is to drag the wriggley worms by head or',\ 'Your aim is to drag the wriggley worms by head or',\
'tail until each worm covers the squares of its',\ 'tail until each worm covers the squares of its',\

1221
programs/games/pipes/pipes.asm
View File

File diff suppressed because it is too large Load Diff

4
programs/games/pong/trunk/pong.asm
View File

@ -456,10 +456,10 @@ is_dn1 dd 0x0 ; |
is_up2 dd 0x0 ; | is_up2 dd 0x0 ; |
is_dn2 dd 0x0 ; / is_dn2 dd 0x0 ; /
include "lang.inc" include "lang.inc" ; Language support for locales: ru_RU (CP866), en_US.
if lang eq ru_RU if lang eq ru_RU
include "russian.inc" include "russian.inc"
else else ; Default to en_US
include "english.inc" include "english.inc"
end if end if

2288
programs/games/soko/trunk/SOKO.ASM
View File

File diff suppressed because it is too large Load Diff

483
programs/games/sq_game/trunk/SQ_GAME.ASM
View File

@ -1,241 +1,242 @@
; SQ_game for MenuetOS ; SQ_game for MenuetOS
; Author: Alexei Ershov aka ealex ; Author: Alexei Ershov aka ealex
; E-mail: e-al[at]yandex[dot]ru ; E-mail: e-al[at]yandex[dot]ru
; Fidonet: 2:469/335.38 ; Fidonet: 2:469/335.38
; slightly updated by leency and renamed to Lights ; slightly updated by leency and renamed to Lights
; https://en.wikipedia.org/wiki/Lights_Out_(game) ; https://en.wikipedia.org/wiki/Lights_Out_(game)
; slightly optimized by diamond ; slightly optimized by diamond
; english translation by diamond (two strings in end of source) ; English translation by diamond (two strings in end of source)
BtnSize equ 36 ; à §¬¥à ª­®¯ª¨ BtnSize equ 36 ; à §¬¥à ª­®¯ª¨
BtnSpace equ 0 ; ¯à®¬¥¦ã⮪ ¬¥¦¤ã ª­®¯ª ¬¨ BtnSpace equ 0 ; ¯à®¬¥¦ã⮪ ¬¥¦¤ã ª­®¯ª ¬¨
NofBtn equ 4 ; à §¬¥à ¯®«ï (3-15) NofBtn equ 4 ; à §¬¥à ¯®«ï (3-15)
Color1 equ 0xcc0000 Color1 equ 0xcc0000
Color2 equ 0x00cc00 Color2 equ 0x00cc00
FieldSize = (BtnSize+BtnSpace)*NofBtn + BtnSpace*3 FieldSize = (BtnSize+BtnSpace)*NofBtn + BtnSpace*3
center = FieldSize / 2 center = FieldSize / 2
margin = 20 margin = 20
use32 ; ¢ª«îç¨âì 32-¡¨â­ë© ०¨¬  áᥬ¡«¥à  use32 ; ¢ª«îç¨âì 32-¡¨â­ë© ०¨¬  áᥬ¡«¥à 
org 0x0 ;  ¤à¥á æ¨ï á ­ã«ï org 0x0 ;  ¤à¥á æ¨ï á ­ã«ï
db 'MENUET01' ; 8-¡ ©â­ë© ¨¤¥­â¨ä¨ª â®à MenuetOS db 'MENUET01' ; 8-¡ ©â­ë© ¨¤¥­â¨ä¨ª â®à MenuetOS
dd 0x01 ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1) dd 0x01 ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)
dd START ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë dd START ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
dd I_END ; à §¬¥à ¯à®£à ¬¬ë dd I_END ; à §¬¥à ¯à®£à ¬¬ë
dd 0x1000 ; ª®«¨ç¥á⢮ ¯ ¬ï⨠dd 0x1000 ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
dd 0x1000 ;  ¤à¥á ¢¥à設ë áâíª  dd 0x1000 ;  ¤à¥á ¢¥à設ë áâíª 
dd 0x0 ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï) dd 0x0 ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
dd 0x0 ; § à¥§¥à¢¨à®¢ ­® dd 0x0 ; § à¥§¥à¢¨à®¢ ­®
include '../../../macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§­ì  áᥬ¡«¥à騪®¢! include '../../../macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§­ì  áᥬ¡«¥à騪®¢!
; Language support for locales: ru_RU (CP866), en_US.
START:
call Game_Init START:
red: call Game_Init
call Draw_Window red:
call Draw_Window
still:
mcall 10 ; äã­ªæ¨ï 10 - ¦¤ âì ᮡëâ¨ï still:
dec eax mcall 10 ; äã­ªæ¨ï 10 - ¦¤ âì ᮡëâ¨ï
jz red dec eax
dec eax jz red
jnz button dec eax
jnz button
key: ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãà¥
mov al, 2 key: ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãà¥
int 0x40 mov al, 2
jmp still int 0x40
;--------------------------------------------------------------------- jmp still
;---------------------------------------------------------------------
button:
mov al, 17 ; 17 - ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨ button:
int 0x40 mov al, 17 ; 17 - ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
cmp ah, 1 ; ¥á«¨ ­ ¦ â  ª­®¯ª  á ­®¬¥à®¬ 1, ¢ë室¨¬ int 0x40
je .exit cmp ah, 1 ; ¥á«¨ ­ ¦ â  ª­®¯ª  á ­®¬¥à®¬ 1, ¢ë室¨¬
je .exit
cmp ah, 2 ; ¥á«¨ ­ ¦ â  ª­®¯ª  2, ­ ç¨­ ¥¬ ­®¢ãî ¨£àã
je START cmp ah, 2 ; ¥á«¨ ­ ¦ â  ª­®¯ª  2, ­ ç¨­ ¥¬ ­®¢ãî ¨£àã
je START
; <20> ¦  ª­®¯ª  ­  ¯®«¥
inc dword [moves] ; 㢥«¨ç¨¢ ¥¬ ç¨á«® 室®¢ ; <20> ¦  ª­®¯ª  ­  ¯®«¥
inc dword [moves] ; 㢥«¨ç¨¢ ¥¬ ç¨á«® 室®¢
shr eax, 8 ; ¢ eax ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
shr eax, 8 ; ¢ eax ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
mov dh, NofBtn
div dh ; al = ax(­®¬¥à ª­®¯ª¨) / NofBtn mov dh, NofBtn
; ah = ®áâ â®ª (á¬. à¨áã­®ª) div dh ; al = ax(­®¬¥à ª­®¯ª¨) / NofBtn
mov ebx, eax ; á®åà ­¨¬ ç áâ­®¥ ¨ ®áâ â®ª ¢ ebx ; ah = ®áâ â®ª (á¬. à¨áã­®ª)
mov ebx, eax ; á®åà ­¨¬ ç áâ­®¥ ¨ ®áâ â®ª ¢ ebx
; al\ah 0 1 2 3
; +-+ +-+ +-+ +-+ ; al\ah 0 1 2 3
; 1 |4| |5| |6| |7| ; +-+ +-+ +-+ +-+
; +-+ +-+ +-+ +-+ ; 1 |4| |5| |6| |7|
; +-+ +-+ +-+ +-+
; +-+ +-+ +-+ +-+
; 2 |8| |9| |10 |11 ; +-+ +-+ +-+ +-+
; +-+ +-+ +-+ +-+ ; 2 |8| |9| |10 |11
; +-+ +-+ +-+ +-+
; +-+ +-+ +-+ +-+
; 3 |12 |13 |14 |15 ; +-+ +-+ +-+ +-+
; +-+ +-+ +-+ +-+ ; 3 |12 |13 |14 |15
; +-+ +-+ +-+ +-+
; +-+ +-+ +-+ +-+
; 4 |16 |17 |18 |19 ; +-+ +-+ +-+ +-+
; +-+ +-+ +-+ +-+ ; 4 |16 |17 |18 |19
; +-+ +-+ +-+ +-+
; Œ¥­ï¥¬ 梥â á⮫¡¨ª 
shr eax, 8 ; eax = ah ; Œ¥­ï¥¬ 梥â á⮫¡¨ª 
mov edi, field shr eax, 8 ; eax = ah
add edi, eax ; edi 㪠§¢ë¥â ­  ¯¥à¢ãî ª­®¯ªã ¨ ¨áª®¬®¬ áâ«¡æ¥ mov edi, field
mov ecx, NofBtn add edi, eax ; edi 㪠§¢ë¥â ­  ¯¥à¢ãî ª­®¯ªã ¨ ¨áª®¬®¬ áâ«¡æ¥
@@: mov ecx, NofBtn
not byte[edi] ; ¬¥­ï¥¬ 梥⠢® ¢á¥¬ á⮫¡¨ª¥ @@:
dec ecx not byte[edi] ; ¬¥­ï¥¬ 梥⠢® ¢á¥¬ á⮫¡¨ª¥
add edi, NofBtn dec ecx
test ecx, ecx add edi, NofBtn
jnz @r test ecx, ecx
jnz @r
; Œ¥­ï¥¬ 梥â áâப¨
mov eax, ebx ; ¢®ááâ ­ ¢«¨¢ ¥¬ eax ; Œ¥­ï¥¬ 梥â áâப¨
dec eax mov eax, ebx ; ¢®ááâ ­ ¢«¨¢ ¥¬ eax
mov dl, NofBtn dec eax
mul dl ; ax = al * NofBtn mov dl, NofBtn
mov edi, field mul dl ; ax = al * NofBtn
add edi, eax ; edi 㪠§¢ë¥â ­  ¯¥à¢ãî ª­®¯ªã ¢ ¨áª®¬®© áâப¥ mov edi, field
mov ecx, NofBtn add edi, eax ; edi 㪠§¢ë¥â ­  ¯¥à¢ãî ª­®¯ªã ¢ ¨áª®¬®© áâப¥
@@: mov ecx, NofBtn
not byte [edi] ; ¬¥­ï¥¬ 梥⠢® ¢á¥© áâப¥ @@:
dec ecx not byte [edi] ; ¬¥­ï¥¬ 梥⠢® ¢á¥© áâப¥
inc edi dec ecx
test ecx, ecx inc edi
jnz @r test ecx, ecx
; –¢¥â ­ ¦ â®© ª­®¯ª¨ ¬¥­ï«áï 2 à §  (ª®£¤  ®¡à ¡ â뢠«¨ áâப㠨 á⮫¡¥æ), jnz @r
; â.¥. ®áâ «áï ¯¥à¢®­ ç «­ë¬ ; –¢¥â ­ ¦ â®© ª­®¯ª¨ ¬¥­ï«áï 2 à §  (ª®£¤  ®¡à ¡ â뢠«¨ áâப㠨 á⮫¡¥æ),
; Œ¥­ï¥¬ 梥⠭ ¦ â®© ª­®¯ª¨ ; â.¥. ®áâ «áï ¯¥à¢®­ ç «­ë¬
shr ebx, 8 ; ebx = ®áâ â®ª (ah ­  à¨áã­ª¥) ; Œ¥­ï¥¬ 梥⠭ ¦ â®© ª­®¯ª¨
not byte [field+eax+ebx] shr ebx, 8 ; ebx = ®áâ â®ª (ah ­  à¨áã­ª¥)
jmp red not byte [field+eax+ebx]
jmp red
.exit:
mcall -1 ; ¨­ ç¥ ª®­¥æ ¯à®£à ¬¬ë .exit:
mcall -1 ; ¨­ ç¥ ª®­¥æ ¯à®£à ¬¬ë
;----------------------------------------------------------------------------
; Draw_Window ;----------------------------------------------------------------------------
;---------------------------------------------------------------------------- ; Draw_Window
Draw_Window: ;----------------------------------------------------------------------------
Draw_Window:
mcall 12, 1
mcall 0, 200*65536+FieldSize+margin*2,\ mcall 12, 1
200*65536+FieldSize+28+margin*3,\ mcall 0, 200*65536+FieldSize+margin*2,\
0x14DDD7CF, 0x805080D0, header 200*65536+FieldSize+28+margin*3,\
0x14DDD7CF, 0x805080D0, header
mcall 8, (BtnSpace*2+margin)*65536 + 83,\
(FieldSize+BtnSpace+margin*2+10)*65536+ 22, 2 mcall 8, (BtnSpace*2+margin)*65536 + 83,\
mcall 4, (BtnSpace*2+3+margin)*65536+(FieldSize+BtnSpace+margin*2)+14,\ (FieldSize+BtnSpace+margin*2+10)*65536+ 22, 2
0x90DDEEFF, strNew mcall 4, (BtnSpace*2+3+margin)*65536+(FieldSize+BtnSpace+margin*2)+14,\
mcall 4, (center - 25+margin) * 65536 + 30, 0x80000000, strMovs 0x90DDEEFF, strNew
mcall 47, 4*65536+1, moves, (center + 2+margin ) * 65536 + 30, 0 mcall 4, (center - 25+margin) * 65536 + 30, 0x80000000, strMovs
mcall 47, 4*65536+1, moves, (center + 2+margin ) * 65536 + 30, 0
mov ecx, (20+20+BtnSpace-BtnSize)*65536+BtnSize
mov edx, NofBtn ; ¨¤¥­â¨ä¨ª â®à ¯¥à¢®© ª­®¯ª¨ ­  ¯®«¥ mov ecx, (20+20+BtnSpace-BtnSize)*65536+BtnSize
; ᬠà¨áã­®ª mov edx, NofBtn ; ¨¤¥­â¨ä¨ª â®à ¯¥à¢®© ª­®¯ª¨ ­  ¯®«¥
; ᬠà¨áã­®ª
buttons: ; à¨á㥬 ª­®¯®çª¨
mov eax, edx buttons: ; à¨á㥬 ª­®¯®çª¨
mov dh, NofBtn mov eax, edx
div dh ; al = ax / dh, ah - ®áâ â®ª mov dh, NofBtn
mov dh, 0 div dh ; al = ax / dh, ah - ®áâ â®ª
test ah, ah ; ¥á«¨ ah = 0, ­ ç¨­ ¥¬ ­®¢ë© àï¤ mov dh, 0
jnz @f test ah, ah ; ¥á«¨ ah = 0, ­ ç¨­ ¥¬ ­®¢ë© àï¤
add ecx, (BtnSize+BtnSpace)*65536 jnz @f
mov ebx, (BtnSpace*2+margin)*65536+BtnSize+1 add ecx, (BtnSize+BtnSpace)*65536
@@: mov ebx, (BtnSpace*2+margin)*65536+BtnSize+1
mov esi, Color1 ; ¡ ©â ¯®  ¤à¥áã @@:
cmp byte [field-NofBtn+edx], 0 ; field-NofBtn+­®¬¥à_ª­®¯ª¨ mov esi, Color1 ; ¡ ©â ¯®  ¤à¥áã
jz @f ; £®¢®à¨â ® ¥¥ 梥⥠cmp byte [field-NofBtn+edx], 0 ; field-NofBtn+­®¬¥à_ª­®¯ª¨
mov esi, Color2 jz @f ; £®¢®à¨â ® ¥¥ 梥â¥
@@: mov esi, Color2
mcall 8, @@:
add ebx, (BtnSize+BtnSpace)*65536 mcall 8,
inc edx ; ¯¥à¥å®¤¨¬ ª á«¥¤ãî饩 ª­®¯ª¥ add ebx, (BtnSize+BtnSpace)*65536
cmp edx, NofBtn*(NofBtn+1) inc edx ; ¯¥à¥å®¤¨¬ ª á«¥¤ãî饩 ª­®¯ª¥
jb buttons cmp edx, NofBtn*(NofBtn+1)
jb buttons
mcall 12, 2 ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
mcall 12, 2 ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
ret
ret
;----------------------------------------------------------------------------
; Game_Init ;----------------------------------------------------------------------------
;---------------------------------------------------------------------------- ; Game_Init
Game_Init: ;----------------------------------------------------------------------------
and [moves], 0 ; ®¡­ã«¨¬ ª®«¨ç¥á⢮ 室®¢ Game_Init:
and [moves], 0 ; ®¡­ã«¨¬ ª®«¨ç¥á⢮ 室®¢
call random ; ¢ eax á«ãç ©­®¥ ç¨á«®
mov ecx, NofBtn * NofBtn ; ¢ ecx ª®«-¢® ª­®¯®ª ­  ¯®«¥ call random ; ¢ eax á«ãç ©­®¥ ç¨á«®
mov bh, 0 ; ¤«ï ª ¦¤®© ª­®¯ª¨ ¡ã¤¥¬ ¡à âì mov ecx, NofBtn * NofBtn ; ¢ ecx ª®«-¢® ª­®¯®ª ­  ¯®«¥
; 1 ¡¨â ¨§ eax, bh - ᪮«ìª® mov bh, 0 ; ¤«ï ª ¦¤®© ª­®¯ª¨ ¡ã¤¥¬ ¡à âì
button_init: ; ¡¨â 㦥 ¨á¯®«ì§®¢ «¨ ; 1 ¡¨â ¨§ eax, bh - ᪮«ìª®
shr eax, 1 ; ¬« ¤è¨© ¡¨â ¯®¯ ¤ ¥â ¢ ä« £ CF button_init: ; ¡¨â 㦥 ¨á¯®«ì§®¢ «¨
; ¢ § ¢¨á¨¬®á⨠®â ¥£® §­ ç¥­¨ï shr eax, 1 ; ¬« ¤è¨© ¡¨â ¯®¯ ¤ ¥â ¢ ä« £ CF
; ¢ bl § ¯¨á뢠¥âáï -1 ¨«¨ 0 ; ¢ § ¢¨á¨¬®á⨠®â ¥£® §­ ç¥­¨ï
sbb bl, bl ; ¢ bl § ¯¨á뢠¥âáï -1 ¨«¨ 0
mov [field + ecx - 1], bl sbb bl, bl
mov [field + ecx - 1], bl
inc bh
cmp bh, 32 ; ¥á«¨ ¨á¯®«ì§®¢ ­ë ¢á¥ 32 ¡¨â  ¨§ eax inc bh
jb @f ; ­ ® ¯®«ãç¨âì ­®¢®¥ á«ãç ©­®¥ ç¨á«® cmp bh, 32 ; ¥á«¨ ¨á¯®«ì§®¢ ­ë ¢á¥ 32 ¡¨â  ¨§ eax
call random jb @f ; ­ ® ¯®«ãç¨âì ­®¢®¥ á«ãç ©­®¥ ç¨á«®
mov bh, 0 call random
@@: mov bh, 0
loop button_init @@:
loop button_init
ret
ret
;----------------------------------------------------------------------------
; random - ¢§ïâ  ¨§ â¥âà¨á  ;----------------------------------------------------------------------------
;---------------------------------------------------------------------------- ; random - ¢§ïâ  ¨§ â¥âà¨á 
random: mov eax,[generator] ;----------------------------------------------------------------------------
add eax,-43ab45b5h random: mov eax,[generator]
ror eax,1 add eax,-43ab45b5h
xor eax,32c4324fh ror eax,1
ror eax,1 xor eax,32c4324fh
mov [generator],eax ror eax,1
; --- IVAN --- mov [generator],eax
mov eax,26 ; --- IVAN ---
mov ebx,9 mov eax,26
int 0x40 mov ebx,9
xor eax,0xdeadbeef int 0x40
add eax,[generator] xor eax,0xdeadbeef
; --- IVAN --- add eax,[generator]
ret ; --- IVAN ---
ret
;============================================================================
;============================================================================
field db NofBtn * NofBtn dup(0)
moves dd 0 field db NofBtn * NofBtn dup(0)
generator dd 0 moves dd 0
generator dd 0
header db 'Lights',0
header db 'Lights',0
if lang eq ru_RU
strMovs db '•Ž„',0 if lang eq ru_RU
strNew db '<27>®¢ ï ¨£à ',0 strMovs db '•Ž„',0
else strNew db '<27>®¢ ï ¨£à ',0
strMovs db 'MOVE',0 else ; Default to en_US
strNew db ' New game',0 strMovs db 'MOVE',0
end if strNew db ' New game',0
end if
I_END: ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë
I_END: ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë

2324
programs/games/sudoku/trunk/sudoku.asm
View File

File diff suppressed because it is too large Load Diff

2744
programs/games/sw/trunk/sw.asm
View File

File diff suppressed because it is too large Load Diff

369
programs/load_img.inc
View File

@ -1,184 +1,185 @@
; ;
; Œ ªà®áë ¤«ï ¤¥ª®¤¨à®¢ ­¨ï ¨§®¡à ¦¥­¨© ç१ ä㭪樨 ¡¨¡«¨®â¥ª¨ libimg. ; Œ ªà®áë ¤«ï ¤¥ª®¤¨à®¢ ­¨ï ¨§®¡à ¦¥­¨© ç१ ä㭪樨 ¡¨¡«¨®â¥ª¨ libimg.
; ;
; (1) ¬ ªà®á load_image_file: ; (1) ¬ ªà®á load_image_file:
; ;
; <EFBFBD>஢¥àï¥â à §¬¥à ¯®«ã祭­®£® ä ©«  á ¨§®¡à ¦¥­¨¥¬. ; <EFBFBD>஢¥àï¥â à §¬¥à ¯®«ã祭­®£® ä ©«  á ¨§®¡à ¦¥­¨¥¬.
; ‚뤥«ï¥â ¯®¤ ­¥£® ¯ ¬ïâì ¨ § £à㦠¥â â㤠 ä ©«. ; ‚뤥«ï¥â ¯®¤ ­¥£® ¯ ¬ïâì ¨ § £à㦠¥â â㤠 ä ©«.
; Ž¯à¥¤¥«ï¥â à §¬¥à ¯ ¬ï⨠­¥®¡å®¤¨¬®© ¤«ï à á¯ ª®¢ª¨ ¨§®¡à ¦¥­¨ï. ; Ž¯à¥¤¥«ï¥â à §¬¥à ¯ ¬ï⨠­¥®¡å®¤¨¬®© ¤«ï à á¯ ª®¢ª¨ ¨§®¡à ¦¥­¨ï.
; <EFBFBD>¥à¥¢ë¤¥«ï¥â ¯ ¬ïâì, ¨ à á¯ ª®¢ë¢ ¥â ¨§®¡à ¦¥­¨¥ ¨§ ä®à¬ â®¢ jpg, png, ... ; <EFBFBD>¥à¥¢ë¤¥«ï¥â ¯ ¬ïâì, ¨ à á¯ ª®¢ë¢ ¥â ¨§®¡à ¦¥­¨¥ ¨§ ä®à¬ â®¢ jpg, png, ...
; ¢ ä®à¬ â rgb ª®â®àë© ¬®¦­® ¢ë¢®¤¨âì ­  íªà ­ ç¥à¥§ á¨áâ. äã­ªæ¨î. ; ¢ ä®à¬ â rgb ª®â®àë© ¬®¦­® ¢ë¢®¤¨âì ­  íªà ­ ç¥à¥§ á¨áâ. äã­ªæ¨î.
; <EFBFBD>ਠ­¥®¡å®¤¨¬®á⨠¬®¦­® â ª¦¥ ¯®«ãç¨âì à §¬¥àë ®âªà뢠¥¬®£® ¨§®¡à ¦¥­¨ï ¤«ï ; <EFBFBD>ਠ­¥®¡å®¤¨¬®á⨠¬®¦­® â ª¦¥ ¯®«ãç¨âì à §¬¥àë ®âªà뢠¥¬®£® ¨§®¡à ¦¥­¨ï ¤«ï
; ¨å ¤ «ì­¥©è¥£® ¨á¯®«ì§®¢ ­¨ï ¢ ¯à®£à ¬¬¥. ; ¨å ¤ «ì­¥©è¥£® ¨á¯®«ì§®¢ ­¨ï ¢ ¯à®£à ¬¬¥.
; ;
; ‚ ¨á¯®«ì§ãî饩 ¯à®£à ¬¬¥ ¤®«¦­  ¡ëâì ¯®¤ª«î祭  ¡¨¡«¨®â¥ª  libimg, ; ‚ ¨á¯®«ì§ãî饩 ¯à®£à ¬¬¥ ¤®«¦­  ¡ëâì ¯®¤ª«î祭  ¡¨¡«¨®â¥ª  libimg,
; ®¡ê¥­  ¯¥à¥¬¥­­ ï file_name à §¬¥à®¬ ®ª®«® 4096 ¡ ©â, ; ®¡ê¥­  ¯¥à¥¬¥­­ ï file_name à §¬¥à®¬ ®ª®«® 4096 ¡ ©â,
;   â ª¦¥ áâàãªâãà  run_file_70 ⨯  FileInfoBlock. ;   â ª¦¥ áâàãªâãà  run_file_70 ⨯  FileInfoBlock.
; ;
; (2) ¬ ªà®á include_image_file: ; (2) ¬ ªà®á include_image_file:
; ;
; ‚­¥¤àï¥â ¨§®¡à ¦¥­¨¥ ¢ ä ©« ¯à®£à ¬¬ë. ; ‚­¥¤àï¥â ¨§®¡à ¦¥­¨¥ ¢ ä ©« ¯à®£à ¬¬ë.
; Ž¯à¥¤¥«ï¥â à §¬¥à ¯ ¬ï⨠­¥®¡å®¤¨¬®© ¤«ï à á¯ ª®¢ª¨ ¨§®¡à ¦¥­¨ï. ; Ž¯à¥¤¥«ï¥â à §¬¥à ¯ ¬ï⨠­¥®¡å®¤¨¬®© ¤«ï à á¯ ª®¢ª¨ ¨§®¡à ¦¥­¨ï.
; ‚뤥«ï¥â ¯ ¬ïâì, ¨ à á¯ ª®¢ë¢ ¥â ¨§®¡à ¦¥­¨¥ ¨§ ä®à¬ â®¢ jpg, png, ... ; ‚뤥«ï¥â ¯ ¬ïâì, ¨ à á¯ ª®¢ë¢ ¥â ¨§®¡à ¦¥­¨¥ ¨§ ä®à¬ â®¢ jpg, png, ...
; ¢ ä®à¬ â rgb ª®â®àë© ¬®¦­® ¢ë¢®¤¨âì ­  íªà ­ ç¥à¥§ á¨áâ. äã­ªæ¨î. ; ¢ ä®à¬ â rgb ª®â®àë© ¬®¦­® ¢ë¢®¤¨âì ­  íªà ­ ç¥à¥§ á¨áâ. äã­ªæ¨î.
; <EFBFBD>ਠ­¥®¡å®¤¨¬®á⨠¬®¦­® â ª¦¥ ¯®«ãç¨âì à §¬¥àë ¢­¥¤à¥­­®£® ¨§®¡à ¦¥­¨ï ¤«ï ; <EFBFBD>ਠ­¥®¡å®¤¨¬®á⨠¬®¦­® â ª¦¥ ¯®«ãç¨âì à §¬¥àë ¢­¥¤à¥­­®£® ¨§®¡à ¦¥­¨ï ¤«ï
; ¨å ¤ «ì­¥©è¥£® ¨á¯®«ì§®¢ ­¨ï ¢ ¯à®£à ¬¬¥. ; ¨å ¤ «ì­¥©è¥£® ¨á¯®«ì§®¢ ­¨ï ¢ ¯à®£à ¬¬¥.
; ¯®¤ª«î祭¨¥ ­¥ª®â®àëå ­¥®¡å®¤¨¬ëå ä ©«®¢: ; ¯®¤ª«î祭¨¥ ­¥ª®â®àëå ­¥®¡å®¤¨¬ëå ä ©«®¢:
include 'dll.inc' include 'dll.inc'
;include 'load_lib.mac' ;include 'load_lib.mac'
include 'develop/libraries/libs-dev/libio/libio.inc' include 'develop/libraries/libs-dev/libio/libio.inc'
align 4 align 4
open_b rb 560 open_b rb 560
txt_err_img_file: ; Language support for locales: ru_RU (CP866), en_US.
if lang eq ru_RU txt_err_img_file:
db 'Žè¨¡ª  N' if lang eq ru_RU
.n: db '* ¯à¨ ®âªàë⨨ ä ©«  ' db 'Žè¨¡ª  N'
else .n: db '* ¯à¨ ®âªàë⨨ ä ©«  '
db 'Error N' else ; Default to en_US
.n: db '*. Can',39,'t open file ' db 'Error N'
end if .n: db '*. Can',39,'t open file '
.f: dd 0,0 end if
.f: dd 0,0
; path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥­­®© ¨«¨ áâப®¢ë¬ ¯ à ¬¥â஬
; buf - ¯¥à¥¬¥­­ ï ªã¤  ¡ã¤¥â § ¯¨á ­ 㪠§ â¥«ì ­  ¨§®¡à ¦¥­¨¥ ¢ ä®à¬ â¥ rgb, ; path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥­­®© ¨«¨ áâப®¢ë¬ ¯ à ¬¥â஬
; ¢ á«ãç ¥ ¥á«¨ ä ©« ­¥ ®âªà®¥âáï â® ¡ã¤¥â § ¯¨á ­ 0 ; buf - ¯¥à¥¬¥­­ ï ªã¤  ¡ã¤¥â § ¯¨á ­ 㪠§ â¥«ì ­  ¨§®¡à ¦¥­¨¥ ¢ ä®à¬ â¥ rgb,
; img_w, img_h - ¯¥à¥¬¥­­ë¥ ªã¤  ¡ã¤ãâ § ¯¨á ­ë à §¬¥àë ®âªà뢠¥¬®£® ; ¢ á«ãç ¥ ¥á«¨ ä ©« ­¥ ®âªà®¥âáï â® ¡ã¤¥â § ¯¨á ­ 0
; ¨§®¡à ¦¥­¨ï, ­¥ ®¡ï§ â¥«ì­ë¥ ¯ à ¬¥âàë ; img_w, img_h - ¯¥à¥¬¥­­ë¥ ªã¤  ¡ã¤ãâ § ¯¨á ­ë à §¬¥àë ®âªà뢠¥¬®£®
; bytes_p_p - ᪮«ìª® ¡ ©â ¯ ¬ï⨠¡à âì ­  ¯¨ªá¥«ì, ­¥ ®¡ï§ â¥«ì­ë© ¯ à ¬¥âà ; ¨§®¡à ¦¥­¨ï, ­¥ ®¡ï§ â¥«ì­ë¥ ¯ à ¬¥âàë
; ¥á«¨ ­¥ 㪠§ ­ ¡¥à¥âáï 3. Œ¨­¨¬ «ì­®¥ §­ ç¥­¨¥ ¤®«¦­® ¡ëâì ­¥ ¬¥­ìè¥ 3. ; bytes_p_p - ᪮«ìª® ¡ ©â ¯ ¬ï⨠¡à âì ­  ¯¨ªá¥«ì, ­¥ ®¡ï§ â¥«ì­ë© ¯ à ¬¥âà
macro load_image_file path, buf, img_w, img_h, bytes_p_p ; ¥á«¨ ­¥ 㪠§ ­ ¡¥à¥âáï 3. Œ¨­¨¬ «ì­®¥ §­ ç¥­¨¥ ¤®«¦­® ¡ëâì ­¥ ¬¥­ìè¥ 3.
{ macro load_image_file path, buf, img_w, img_h, bytes_p_p
local .err_open {
local .end_open local .err_open
local .end_open
if path eqtype '' ;¯à®¢¥à塞 § ¤ ­ «¨ áâப®© ¯ à ¬¥âà path
local .path_str if path eqtype '' ;¯à®¢¥à塞 § ¤ ­ «¨ áâப®© ¯ à ¬¥âà path
jmp @f local .path_str
.path_str db path ;ä®à¬¨à㥬 «®ª «ì­ãî ¯¥à¥¬¥­­ãî jmp @f
db 0 .path_str db path ;ä®à¬¨à㥬 «®ª «ì­ãî ¯¥à¥¬¥­­ãî
@@: db 0
;32 - áâ ­¤ àâ­ë©  ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥­ ¡ëâì ¡ãä¥à á á¨á⥬­ë¬ ¯ã⥬ @@:
copy_path .path_str,[32],file_name,0 ;32 - áâ ­¤ àâ­ë©  ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥­ ¡ëâì ¡ãä¥à á á¨á⥬­ë¬ ¯ã⥬
else copy_path .path_str,[32],file_name,0
copy_path path,[32],file_name,0 ;ä®à¬¨à㥬 ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®© else
end if copy_path path,[32],file_name,0 ;ä®à¬¨à㥬 ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
mov dword[buf],0 end if
mov dword[buf],0
mov [run_file_70.Function], SSF_GET_INFO
mov [run_file_70.Position], 0 mov [run_file_70.Function], SSF_GET_INFO
mov [run_file_70.Flags], 0 mov [run_file_70.Position], 0
mov dword[run_file_70.Count], 0 mov [run_file_70.Flags], 0
mov dword[run_file_70.Buffer], open_b mov dword[run_file_70.Count], 0
mov byte[run_file_70+20], 0 mov dword[run_file_70.Buffer], open_b
mov dword[run_file_70.FileName], file_name mov byte[run_file_70+20], 0
mcall SF_FILE,run_file_70 mov dword[run_file_70.FileName], file_name
or eax,eax mcall SF_FILE,run_file_70
jnz .err_open or eax,eax
jnz .err_open
mov ecx,dword[open_b+32] ;+32 qword: à §¬¥à ä ©«  ¢ ¡ ©â å
stdcall mem.Alloc,ecx ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥­¨ï mov ecx,dword[open_b+32] ;+32 qword: à §¬¥à ä ©«  ¢ ¡ ©â å
mov [buf],eax stdcall mem.Alloc,ecx ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥­¨ï
mov [run_file_70.Function], SSF_READ_FILE mov [buf],eax
mov [run_file_70.Position], 0 mov [run_file_70.Function], SSF_READ_FILE
mov [run_file_70.Flags], 0 mov [run_file_70.Position], 0
mov [run_file_70.Count], ecx mov [run_file_70.Flags], 0
mov [run_file_70.Buffer], eax mov [run_file_70.Count], ecx
mov byte[run_file_70+20], 0 mov [run_file_70.Buffer], eax
mov [run_file_70.FileName], file_name mov byte[run_file_70+20], 0
mcall SF_FILE,run_file_70 ;§ £à㦠¥¬ ä ©« ¨§®¡à ¦¥­¨ï mov [run_file_70.FileName], file_name
test eax,eax mcall SF_FILE,run_file_70 ;§ £à㦠¥¬ ä ©« ¨§®¡à ¦¥­¨ï
jnz .err_open test eax,eax
cmp ebx,0xffffffff jnz .err_open
je .end_open cmp ebx,0xffffffff
;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï ¨ ¯¨è¥¬ ¥£® ¯ à ¬¥âàë je .end_open
stdcall [img_decode], [buf],ebx,0 ;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï ¨ ¯¨è¥¬ ¥£® ¯ à ¬¥âàë
mov ebx,eax stdcall [img_decode], [buf],ebx,0
;®¯à¥¤¥«ï¥¬ à §¬¥à ¤¥ª®¤¨à®¢ ­­®£® ¨§®¡à ¦¥­¨ï mov ebx,eax
mov ecx,[eax+4] ;+4 = image width ;®¯à¥¤¥«ï¥¬ à §¬¥à ¤¥ª®¤¨à®¢ ­­®£® ¨§®¡à ¦¥­¨ï
if img_w eq mov ecx,[eax+4] ;+4 = image width
else if img_w eq
mov dword[img_w],ecx else
end if mov dword[img_w],ecx
if img_h eq end if
imul ecx,[eax+8] ;+8 = image height if img_h eq
else imul ecx,[eax+8] ;+8 = image height
mov eax,[eax+8] ;+8 = image height else
mov dword[img_h],eax mov eax,[eax+8] ;+8 = image height
imul ecx,eax mov dword[img_h],eax
end if imul ecx,eax
if bytes_p_p eq end if
imul ecx,3 ;need for r,g,b if bytes_p_p eq
else imul ecx,3 ;need for r,g,b
imul ecx,bytes_p_p else
end if imul ecx,bytes_p_p
stdcall mem.ReAlloc,[buf],ecx ;¨§¬¥­ï¥¬ à §¬¥à ¤«ï ¡ãä¥à  end if
mov [buf],eax stdcall mem.ReAlloc,[buf],ecx ;¨§¬¥­ï¥¬ à §¬¥à ¤«ï ¡ãä¥à 
stdcall [img_to_rgb2], ebx,[buf] ;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥­¨¥ ª ä®à¬ âã rgb mov [buf],eax
stdcall [img_destroy], ebx ;㤠«ï¥¬ ¢à¥¬¥­­ë© ¡ãä¥à á ¯ à ¬¥âà ¬¨ ¨§®¡à ¦¥­¨ï stdcall [img_to_rgb2], ebx,[buf] ;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥­¨¥ ª ä®à¬ âã rgb
jmp .end_open stdcall [img_destroy], ebx ;㤠«ï¥¬ ¢à¥¬¥­­ë© ¡ãä¥à á ¯ à ¬¥âà ¬¨ ¨§®¡à ¦¥­¨ï
.err_open: jmp .end_open
add al,'0' .err_open:
mov byte[txt_err_img_file.n],al add al,'0'
if path eqtype '' mov byte[txt_err_img_file.n],al
mov eax,dword[.path_str] if path eqtype ''
mov dword[txt_err_img_file.f],eax mov eax,dword[.path_str]
mov eax,dword[.path_str+4] mov dword[txt_err_img_file.f],eax
else mov eax,dword[.path_str+4]
mov eax,dword[path] else
mov dword[txt_err_img_file.f],eax mov eax,dword[path]
mov eax,dword[path+4] mov dword[txt_err_img_file.f],eax
end if mov eax,dword[path+4]
mov dword[txt_err_img_file.f+4],eax end if
mov byte[txt_err_img_file.f+7],0 mov dword[txt_err_img_file.f+4],eax
notify_window_run txt_err_img_file mov byte[txt_err_img_file.f+7],0
.end_open: notify_window_run txt_err_img_file
} .end_open:
}
; path - ¨¬ï ¢ª«îç ¥¬®£® ä ©« 
; buf - ¯¥à¥¬¥­­ ï ªã¤  ¡ã¤¥â § ¯¨á ­ 㪠§ â¥«ì ­  ¨§®¡à ¦¥­¨¥ ¢ ä®à¬ â¥ rgb ; path - ¨¬ï ¢ª«îç ¥¬®£® ä ©« 
; img_w, img_h - ¯¥à¥¬¥­­ë¥ ªã¤  ¡ã¤ãâ § ¯¨á ­ë à §¬¥àë ¨§®¡à ¦¥­¨ï, ; buf - ¯¥à¥¬¥­­ ï ªã¤  ¡ã¤¥â § ¯¨á ­ 㪠§ â¥«ì ­  ¨§®¡à ¦¥­¨¥ ¢ ä®à¬ â¥ rgb
; ­¥ ®¡ï§ â¥«ì­ë¥ ¯ à ¬¥âàë ; img_w, img_h - ¯¥à¥¬¥­­ë¥ ªã¤  ¡ã¤ãâ § ¯¨á ­ë à §¬¥àë ¨§®¡à ¦¥­¨ï,
; bytes_p_p - ᪮«ìª® ¡ ©â ¯ ¬ï⨠¡à âì ­  ¯¨ªá¥«ì, ­¥ ®¡ï§ â¥«ì­ë© ¯ à ¬¥âà ; ­¥ ®¡ï§ â¥«ì­ë¥ ¯ à ¬¥âàë
; ¥á«¨ ­¥ 㪠§ ­ ¡¥à¥âáï 3. Œ¨­¨¬ «ì­®¥ §­ ç¥­¨¥ ¤®«¦­® ¡ëâì ­¥ ¬¥­ìè¥ 3. ; bytes_p_p - ᪮«ìª® ¡ ©â ¯ ¬ï⨠¡à âì ­  ¯¨ªá¥«ì, ­¥ ®¡ï§ â¥«ì­ë© ¯ à ¬¥âà
macro include_image_file path, buf, img_w, img_h, bytes_p_p ; ¥á«¨ ­¥ 㪠§ ­ ¡¥à¥âáï 3. Œ¨­¨¬ «ì­®¥ §­ ç¥­¨¥ ¤®«¦­® ¡ëâì ­¥ ¬¥­ìè¥ 3.
{ macro include_image_file path, buf, img_w, img_h, bytes_p_p
local .beg_file {
local .end_file local .beg_file
local .end_file
jmp .end_file
align 4 jmp .end_file
.beg_file: align 4
file path .beg_file:
.end_file: file path
.end_file:
;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï ¨ ¯¨è¥¬ ¥£® ¯ à ¬¥âàë
stdcall [img_decode], .beg_file,.end_file-.beg_file,0 ;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï ¨ ¯¨è¥¬ ¥£® ¯ à ¬¥âàë
mov ebx,eax stdcall [img_decode], .beg_file,.end_file-.beg_file,0
;®¯à¥¤¥«ï¥¬ à §¬¥à ¤¥ª®¤¨à®¢ ­­®£® ¨§®¡à ¦¥­¨ï mov ebx,eax
mov ecx,[eax+4] ;+4 = image width ;®¯à¥¤¥«ï¥¬ à §¬¥à ¤¥ª®¤¨à®¢ ­­®£® ¨§®¡à ¦¥­¨ï
if img_w eq mov ecx,[eax+4] ;+4 = image width
else if img_w eq
mov dword[img_w],ecx else
end if mov dword[img_w],ecx
if img_h eq end if
imul ecx,[eax+8] ;+8 = image height if img_h eq
else imul ecx,[eax+8] ;+8 = image height
mov eax,[eax+8] ;+8 = image height else
mov dword[img_h],eax mov eax,[eax+8] ;+8 = image height
imul ecx,eax mov dword[img_h],eax
end if imul ecx,eax
if bytes_p_p eq end if
imul ecx,3 ;need for r,g,b if bytes_p_p eq
else imul ecx,3 ;need for r,g,b
imul ecx,bytes_p_p else
end if imul ecx,bytes_p_p
stdcall mem.Alloc,ecx ;¨§¬¥­ï¥¬ à §¬¥à ¤«ï ¡ãä¥à  end if
mov [buf],eax stdcall mem.Alloc,ecx ;¨§¬¥­ï¥¬ à §¬¥à ¤«ï ¡ãä¥à 
stdcall [img_to_rgb2], ebx,[buf] ;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥­¨¥ ª ä®à¬ âã rgb mov [buf],eax
stdcall [img_destroy], ebx ;㤠«ï¥¬ ¢à¥¬¥­­ë© ¡ãä¥à á ¯ à ¬¥âà ¬¨ ¨§®¡à ¦¥­¨ï stdcall [img_to_rgb2], ebx,[buf] ;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥­¨¥ ª ä®à¬ âã rgb
} stdcall [img_destroy], ebx ;㤠«ï¥¬ ¢à¥¬¥­­ë© ¡ãä¥à á ¯ à ¬¥âà ¬¨ ¨§®¡à ¦¥­¨ï
}

3274
programs/media/img_transform/img_transform.asm
View File

File diff suppressed because it is too large Load Diff

1826
programs/media/piano/piano.asm
View File

File diff suppressed because it is too large Load Diff

1781
programs/media/scrshoot/scrshoot.asm
View File

File diff suppressed because it is too large Load Diff

792
programs/media/scrshoot/srectwin.inc
View File

@ -1,395 +1,397 @@
align 4 ; Language support for locales: ru_RU (CP866), en_US.
set_rect_window:
mov ebx,set_rect_window_procinfo align 4
call get_slot_n set_rect_window:
mov ebx,set_rect_window_procinfo
mov [set_rect_window_slot],ecx call get_slot_n
set_events_mask (evm_redraw+evm_key+evm_button+evm_mouse) mov [set_rect_window_slot],ecx
call init_rect
edit_boxes_set_sys_color rect_input,rect_input_end,sc set_events_mask (evm_redraw+evm_key+evm_button+evm_mouse)
.red: call init_rect
labels_set_sys_color rect_input_labels,rect_input_labels_end,sc edit_boxes_set_sys_color rect_input,rect_input_end,sc
check_boxes_set_sys_color2 riw_check_boxes,riw_check_boxes_end,sc .red:
call .draw_window labels_set_sys_color rect_input_labels,rect_input_labels_end,sc
align 4 check_boxes_set_sys_color2 riw_check_boxes,riw_check_boxes_end,sc
.still: call .draw_window
wait_event .red,.key,.button,.mouse align 4
.still:
.key: wait_event .red,.key,.button,.mouse
get_key
.key:
stdcall [edit_box_key], rect_input.left get_key
stdcall [edit_box_key], rect_input.top
stdcall [edit_box_key], rect_input.width stdcall [edit_box_key], rect_input.left
stdcall [edit_box_key], rect_input.height stdcall [edit_box_key], rect_input.top
stdcall [edit_box_key], rect_input.width
call read_rect stdcall [edit_box_key], rect_input.height
call draw_rect_on_screen
call read_rect
jmp .still call draw_rect_on_screen
.button: jmp .still
get_pressed_button
.button:
cmp ah,1 get_pressed_button
jne @f
btr dword [flags],3 cmp ah,1
jmp close jne @f
@@: btr dword [flags],3
jmp close
jmp .still @@:
.mouse: jmp .still
get_active_window
cmp eax,[set_rect_window_slot] .mouse:
jne .still get_active_window
cmp eax,[set_rect_window_slot]
stdcall [edit_box_mouse], rect_input.left jne .still
stdcall [edit_box_mouse], rect_input.top
stdcall [edit_box_mouse], rect_input.width stdcall [edit_box_mouse], rect_input.left
stdcall [edit_box_mouse], rect_input.height stdcall [edit_box_mouse], rect_input.top
stdcall [edit_box_mouse], rect_input.width
;;;;;;;;;;;;;;;;;;;;;; stdcall [edit_box_mouse], rect_input.height
stdcall [check_box_mouse], use_rect_active_window
;;;;;;;;;;;;;;;;;;;;;;
jmp .still stdcall [check_box_mouse], use_rect_active_window
align 4 jmp .still
.draw_window:
start_draw_window align 4
.draw_window:
mov edx,[sc.work] start_draw_window
add edx,0x33000000
mov edi,riw_grab_text mov edx,[sc.work]
xor esi,esi add edx,0x33000000
mcall SF_CREATE_WINDOW, 100*65536+250, 100*65536+130 mov edi,riw_grab_text
xor esi,esi
draw_labels rect_input_labels,rect_input_labels_end mcall SF_CREATE_WINDOW, 100*65536+250, 100*65536+130
stdcall [edit_box_draw], rect_input.left draw_labels rect_input_labels,rect_input_labels_end
stdcall [edit_box_draw], rect_input.top
stdcall [edit_box_draw], rect_input.width stdcall [edit_box_draw], rect_input.left
stdcall [edit_box_draw], rect_input.height stdcall [edit_box_draw], rect_input.top
;;;;;;;;;;;;;;;;;;;;;; stdcall [edit_box_draw], rect_input.width
stdcall [check_box_draw], use_rect_active_window stdcall [edit_box_draw], rect_input.height
;;;;;;;;;;;;;;;;;;;;;;
call read_rect stdcall [check_box_draw], use_rect_active_window
call draw_rect_on_screen
call read_rect
stop_draw_window call draw_rect_on_screen
ret
stop_draw_window
align 4 ret
init_rect:
bt dword [use_rect_active_window.flags],1 align 4
jc init_rect_from_active_window init_rect:
pushad bt dword [use_rect_active_window.flags],1
mov edi,rect_input_buffer.left jc init_rect_from_active_window
movsx eax,word[rect.left] pushad
mov ecx,rect_input.left mov edi,rect_input_buffer.left
call init_editbox movsx eax,word[rect.left]
mov edi,rect_input_buffer.top mov ecx,rect_input.left
movsx eax,word[rect.top] call init_editbox
mov ecx,rect_input.top mov edi,rect_input_buffer.top
call init_editbox movsx eax,word[rect.top]
mov edi,rect_input_buffer.width mov ecx,rect_input.top
movsx eax,word[rect.width] call init_editbox
mov ecx,rect_input.width mov edi,rect_input_buffer.width
call init_editbox movsx eax,word[rect.width]
mov edi,rect_input_buffer.height mov ecx,rect_input.width
movsx eax,word[rect.height] call init_editbox
mov ecx,rect_input.height mov edi,rect_input_buffer.height
call init_editbox movsx eax,word[rect.height]
popad mov ecx,rect_input.height
ret call init_editbox
popad
align 4 ret
init_rect_from_active_window:
align 4
ret init_rect_from_active_window:
align 4 ret
init_editbox:
push edi align 4
push ecx init_editbox:
xor ebx,ebx push edi
inc ebx push ecx
cmp eax,10 xor ebx,ebx
jl @f inc ebx
inc ebx cmp eax,10
@@: jl @f
cmp eax,100 inc ebx
jl @f @@:
inc ebx cmp eax,100
@@: jl @f
cmp eax,1000 inc ebx
jl @f @@:
inc ebx cmp eax,1000
@@: jl @f
call int_to_str inc ebx
call [edit_box_set_text] ;ecx,edi @@:
ret call int_to_str
;-------------------------------------------------------------------- call [edit_box_set_text] ;ecx,edi
;--- ‘ç¨â뢠­¨¥ ®¡« á⨠--------------------------------------------- ret
;-------------------------------------------------------------------- ;--------------------------------------------------------------------
align 4 ;--- ‘ç¨â뢠­¨¥ ®¡« á⨠---------------------------------------------
read_rect: ;--------------------------------------------------------------------
bt dword [use_rect_active_window.flags],1 align 4
jc read_rect_from_active_window read_rect:
bt dword [use_rect_active_window.flags],1
mov edi,rect_input_buffer.left jc read_rect_from_active_window
call zstr_to_int
cmp ax,[scr.width] mov edi,rect_input_buffer.left
jb @f call zstr_to_int
mov ax,[scr.width] cmp ax,[scr.width]
@@: jb @f
mov [rect.left],ax mov ax,[scr.width]
@@:
mov edi,rect_input_buffer.top mov [rect.left],ax
call zstr_to_int
cmp ax,[scr.height] mov edi,rect_input_buffer.top
jb @f call zstr_to_int
mov ax,[scr.height] cmp ax,[scr.height]
@@: jb @f
mov [rect.top],ax mov ax,[scr.height]
@@:
mov edi,rect_input_buffer.width mov [rect.top],ax
call zstr_to_int
mov bx,[scr.width] mov edi,rect_input_buffer.width
sub bx,[rect.left] call zstr_to_int
cmp ax,bx mov bx,[scr.width]
jb @f sub bx,[rect.left]
mov ax,bx cmp ax,bx
@@: jb @f
mov [rect.width],ax mov ax,bx
@@:
mov edi,rect_input_buffer.height mov [rect.width],ax
call zstr_to_int
mov bx,[scr.height] mov edi,rect_input_buffer.height
sub bx,[rect.top] call zstr_to_int
cmp ax,bx mov bx,[scr.height]
jb @f sub bx,[rect.top]
mov ax,bx cmp ax,bx
@@: jb @f
mov [rect.height],ax mov ax,bx
ret @@:
mov [rect.height],ax
align 4 ret
read_rect_from_active_window:
call get_active_window_info align 4
read_rect_from_active_window:
mov eax,[active_app.left] call get_active_window_info
mov [rect.left],ax
mov eax,[active_app.top] mov eax,[active_app.left]
mov [rect.top],ax mov [rect.left],ax
mov eax,[active_app.width] mov eax,[active_app.top]
inc eax mov [rect.top],ax
mov [rect.width],ax mov eax,[active_app.width]
mov eax,[active_app.height] inc eax
inc eax mov [rect.width],ax
mov [rect.height],ax mov eax,[active_app.height]
ret inc eax
mov [rect.height],ax
align 4 ret
draw_rect_on_screen:
align 4
xor edx,edx draw_rect_on_screen:
mcall SF_DRAW_RECT, 150*65536+80, 5*65536+60
xor edx,edx
;movzx eax,word [rect.left] mcall SF_DRAW_RECT, 150*65536+80, 5*65536+60
;mul word [scr.width]
xor edx,edx ;movzx eax,word [rect.left]
movzx eax,word [scr.width] ;mul word [scr.width]
mov ebx,80 xor edx,edx
div ebx movzx eax,word [scr.width]
mov ebx,eax mov ebx,80
div ebx
xor edx,edx mov ebx,eax
movzx eax,word [rect.height]
div ebx xor edx,edx
push ax movzx eax,word [rect.height]
div ebx
xor edx,edx push ax
movzx eax,word [rect.width]
div ebx xor edx,edx
push ax movzx eax,word [rect.width]
div ebx
xor edx,edx push ax
movzx eax,word [rect.top]
div ebx xor edx,edx
push ax movzx eax,word [rect.top]
div ebx
xor edx,edx push ax
movzx eax,word [rect.left]
div ebx xor edx,edx
push ax movzx eax,word [rect.left]
div ebx
pop bx push ax
add bx,150
shl ebx,16 pop bx
add bx,150
pop cx shl ebx,16
add cx,5
shl ecx,16 pop cx
add cx,5
pop bx shl ecx,16
pop cx
pop bx
mcall SF_DRAW_RECT,,,0xffffff pop cx
ret
mcall SF_DRAW_RECT,,,0xffffff
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ret
;DATA ¤ ­­ë¥
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
system_dir_Boxlib db '/sys/lib/box_lib.obj',0 ;DATA ¤ ­­ë¥
system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
system_dir_LibImg db '/sys/lib/libimg.obj',0 system_dir_Boxlib db '/sys/lib/box_lib.obj',0
system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
;--------------------------------------------------------------------- system_dir_LibImg db '/sys/lib/libimg.obj',0
align 4
ProcLib_import: ;---------------------------------------------------------------------
OpenDialog_Init dd aOpenDialog_Init align 4
OpenDialog_Start dd aOpenDialog_Start ProcLib_import:
;OpenDialog__Version dd aOpenDialog_Version OpenDialog_Init dd aOpenDialog_Init
dd 0,0 OpenDialog_Start dd aOpenDialog_Start
aOpenDialog_Init db 'OpenDialog_init',0 ;OpenDialog__Version dd aOpenDialog_Version
aOpenDialog_Start db 'OpenDialog_start',0 dd 0,0
;aOpenDialog_Version db 'Version_OpenDialog',0 aOpenDialog_Init db 'OpenDialog_init',0
;--------------------------------------------------------------------- aOpenDialog_Start db 'OpenDialog_start',0
align 4 ;aOpenDialog_Version db 'Version_OpenDialog',0
Box_lib_import: ;---------------------------------------------------------------------
;init_lib dd a_init align 4
;version_lib dd a_version Box_lib_import:
;init_lib dd a_init
edit_box_draw dd aEdit_box_draw ;version_lib dd a_version
edit_box_key dd aEdit_box_key
edit_box_mouse dd aEdit_box_mouse edit_box_draw dd aEdit_box_draw
edit_box_set_text dd aEdit_box_set_text edit_box_key dd aEdit_box_key
;version_ed dd aVersion_ed edit_box_mouse dd aEdit_box_mouse
edit_box_set_text dd aEdit_box_set_text
init_checkbox dd aInit_checkbox ;version_ed dd aVersion_ed
check_box_draw dd aCheck_box_draw
check_box_mouse dd aCheck_box_mouse init_checkbox dd aInit_checkbox
;version_ch dd aVersion_ch check_box_draw dd aCheck_box_draw
check_box_mouse dd aCheck_box_mouse
option_box_draw dd aOption_box_draw ;version_ch dd aVersion_ch
option_box_mouse dd aOption_box_mouse
;version_op dd aVersion_op option_box_draw dd aOption_box_draw
option_box_mouse dd aOption_box_mouse
PathShow_prepare dd sz_PathShow_prepare ;version_op dd aVersion_op
PathShow_draw dd sz_PathShow_draw
;Version_path_show dd szVersion_path_show PathShow_prepare dd sz_PathShow_prepare
dd 0,0 PathShow_draw dd sz_PathShow_draw
;Version_path_show dd szVersion_path_show
;a_init db 'lib_init',0 dd 0,0
;a_version db 'version',0
;a_init db 'lib_init',0
aEdit_box_draw db 'edit_box_draw',0 ;a_version db 'version',0
aEdit_box_key db 'edit_box_key',0
aEdit_box_mouse db 'edit_box_mouse',0 aEdit_box_draw db 'edit_box_draw',0
aEdit_box_set_text db 'edit_box_set_text',0 aEdit_box_key db 'edit_box_key',0
;aVersion_ed db 'version_ed',0 aEdit_box_mouse db 'edit_box_mouse',0
aEdit_box_set_text db 'edit_box_set_text',0
;aVersion_ed db 'version_ed',0
aInit_checkbox db 'init_checkbox2',0
aCheck_box_draw db 'check_box_draw2',0
aCheck_box_mouse db 'check_box_mouse2',0 aInit_checkbox db 'init_checkbox2',0
;aVersion_ch db 'version_ch2',0 aCheck_box_draw db 'check_box_draw2',0
aCheck_box_mouse db 'check_box_mouse2',0
aOption_box_draw db 'option_box_draw',0 ;aVersion_ch db 'version_ch2',0
aOption_box_mouse db 'option_box_mouse',0
;aVersion_op db 'version_op',0 aOption_box_draw db 'option_box_draw',0
aOption_box_mouse db 'option_box_mouse',0
sz_PathShow_prepare db 'PathShow_prepare',0 ;aVersion_op db 'version_op',0
sz_PathShow_draw db 'PathShow_draw',0
;szVersion_path_show db 'version_PathShow',0 sz_PathShow_prepare db 'PathShow_prepare',0
;--------------------------------------------------------------------- sz_PathShow_draw db 'PathShow_draw',0
align 4 ;szVersion_path_show db 'version_PathShow',0
import_libimg: ;---------------------------------------------------------------------
dd alib_init1 align 4
img_is_img dd aimg_is_img import_libimg:
img_info dd aimg_info dd alib_init1
img_from_file dd aimg_from_file img_is_img dd aimg_is_img
img_to_file dd aimg_to_file img_info dd aimg_info
img_from_rgb dd aimg_from_rgb img_from_file dd aimg_from_file
img_to_rgb dd aimg_to_rgb img_to_file dd aimg_to_file
img_to_rgb2 dd aimg_to_rgb2 img_from_rgb dd aimg_from_rgb
img_decode dd aimg_decode img_to_rgb dd aimg_to_rgb
img_encode dd aimg_encode img_to_rgb2 dd aimg_to_rgb2
img_create dd aimg_create img_decode dd aimg_decode
img_destroy dd aimg_destroy img_encode dd aimg_encode
img_destroy_layer dd aimg_destroy_layer img_create dd aimg_create
img_count dd aimg_count img_destroy dd aimg_destroy
img_lock_bits dd aimg_lock_bits img_destroy_layer dd aimg_destroy_layer
img_unlock_bits dd aimg_unlock_bits img_count dd aimg_count
img_flip dd aimg_flip img_lock_bits dd aimg_lock_bits
img_flip_layer dd aimg_flip_layer img_unlock_bits dd aimg_unlock_bits
img_rotate dd aimg_rotate img_flip dd aimg_flip
img_rotate_layer dd aimg_rotate_layer img_flip_layer dd aimg_flip_layer
img_draw dd aimg_draw img_rotate dd aimg_rotate
dd 0,0 img_rotate_layer dd aimg_rotate_layer
alib_init1 db 'lib_init',0 img_draw dd aimg_draw
aimg_is_img db 'img_is_img',0 dd 0,0
aimg_info db 'img_info',0 alib_init1 db 'lib_init',0
aimg_from_file db 'img_from_file',0 aimg_is_img db 'img_is_img',0
aimg_to_file db 'img_to_file',0 aimg_info db 'img_info',0
aimg_from_rgb db 'img_from_rgb',0 aimg_from_file db 'img_from_file',0
aimg_to_rgb db 'img_to_rgb',0 aimg_to_file db 'img_to_file',0
aimg_to_rgb2 db 'img_to_rgb2',0 aimg_from_rgb db 'img_from_rgb',0
aimg_decode db 'img_decode',0 aimg_to_rgb db 'img_to_rgb',0
aimg_encode db 'img_encode',0 aimg_to_rgb2 db 'img_to_rgb2',0
aimg_create db 'img_create',0 aimg_decode db 'img_decode',0
aimg_destroy db 'img_destroy',0 aimg_encode db 'img_encode',0
aimg_destroy_layer db 'img_destroy_layer',0 aimg_create db 'img_create',0
aimg_count db 'img_count',0 aimg_destroy db 'img_destroy',0
aimg_lock_bits db 'img_lock_bits',0 aimg_destroy_layer db 'img_destroy_layer',0
aimg_unlock_bits db 'img_unlock_bits',0 aimg_count db 'img_count',0
aimg_flip db 'img_flip',0 aimg_lock_bits db 'img_lock_bits',0
aimg_flip_layer db 'img_flip_layer',0 aimg_unlock_bits db 'img_unlock_bits',0
aimg_rotate db 'img_rotate',0 aimg_flip db 'img_flip',0
aimg_rotate_layer db 'img_rotate_layer',0 aimg_flip_layer db 'img_flip_layer',0
aimg_draw db 'img_draw',0 aimg_rotate db 'img_rotate',0
;--------------------------------------------------------------------- aimg_rotate_layer db 'img_rotate_layer',0
;width,left,top,color,shift_color,focus_border_color,\ aimg_draw db 'img_draw',0
; blur_border_color,text_color,max,text,mouse_variable,flags,size,pos ;---------------------------------------------------------------------
;width,left,top,color,shift_color,focus_border_color,\
rect_input: ; blur_border_color,text_color,max,text,mouse_variable,flags,size,pos
.left edit_box 35,95,5, cl_white,0,0,0,0,5,rect_input_buffer.left, mouse_dd1,ed_figure_only ;+ed_focus
.top edit_box 35,95,25,cl_white,0,0,0,0,5,rect_input_buffer.top, mouse_dd1,ed_figure_only rect_input:
.width edit_box 35,95,45,cl_white,0,0,0,0,5,rect_input_buffer.width, mouse_dd1,ed_figure_only .left edit_box 35,95,5, cl_white,0,0,0,0,5,rect_input_buffer.left, mouse_dd1,ed_figure_only ;+ed_focus
.height edit_box 35,95,65,cl_white,0,0,0,0,5,rect_input_buffer.height,mouse_dd1,ed_figure_only .top edit_box 35,95,25,cl_white,0,0,0,0,5,rect_input_buffer.top, mouse_dd1,ed_figure_only
rect_input_end: .width edit_box 35,95,45,cl_white,0,0,0,0,5,rect_input_buffer.width, mouse_dd1,ed_figure_only
mouse_dd1 rd 1 .height edit_box 35,95,65,cl_white,0,0,0,0,5,rect_input_buffer.height,mouse_dd1,ed_figure_only
rect_input_labels: rect_input_end:
.left label 10,10,0,rect_input_labels_text.left mouse_dd1 rd 1
.top label 10,30,0,rect_input_labels_text.top rect_input_labels:
.width label 10,50,0,rect_input_labels_text.width .left label 10,10,0,rect_input_labels_text.left
.height label 10,70,0,rect_input_labels_text.height .top label 10,30,0,rect_input_labels_text.top
rect_input_labels_end: .width label 10,50,0,rect_input_labels_text.width
.height label 10,70,0,rect_input_labels_text.height
rect_input_labels_text: rect_input_labels_end:
if lang eq ru_RU
.left db 'Žâáâ㯠᫥¢ :',0 rect_input_labels_text:
.top db 'Žâáâ㯠ᢥàåã:',0 if lang eq ru_RU
.width db '˜¨à¨­ :',0 .left db 'Žâáâ㯠᫥¢ :',0
.height db '‚ëá®â :',0 .top db 'Žâáâ㯠ᢥàåã:',0
else .width db '˜¨à¨­ :',0
.left db 'Left:',0 .height db '‚ëá®â :',0
.top db 'Top:',0 else ; Default to en_US
.width db 'Width:',0 .left db 'Left:',0
.height db 'Height:',0 .top db 'Top:',0
end if .width db 'Width:',0
.height db 'Height:',0
riw_check_boxes: end if
use_rect_active_window check_box2 (10 shl 16)+10,(85 shl 16) +10,5,cl_white,0,0,\
riw_check_boxes_text, ch_flag_bottom riw_check_boxes:
riw_check_boxes_end: use_rect_active_window check_box2 (10 shl 16)+10,(85 shl 16) +10,5,cl_white,0,0,\
riw_check_boxes_text, ch_flag_bottom
if lang eq ru_RU riw_check_boxes_end:
riw_check_boxes_text db 'ˆá¯®«ì§®¢ âì ®¡« áâì  ªâ¨¢­®£® ®ª­ ',0
riw_grab_text db 'Š®®à¤¨­ âë ¨ à §¬¥àë ®¡« áâ¨:',0 if lang eq ru_RU
else riw_check_boxes_text db 'ˆá¯®«ì§®¢ âì ®¡« áâì  ªâ¨¢­®£® ®ª­ ',0
riw_check_boxes_text db 'Use area of the active window',0 riw_grab_text db 'Š®®à¤¨­ âë ¨ à §¬¥àë ®¡« áâ¨:',0
riw_grab_text db 'Coordinates and size of the field:',0 else ; Default to en_US
end if riw_check_boxes_text db 'Use area of the active window',0
riw_grab_text db 'Coordinates and size of the field:',0
end if

3088
programs/media/voxel_editor/utilites/vox_creator.asm
View File

File diff suppressed because it is too large Load Diff

3116
programs/media/voxel_editor/utilites/vox_mover.asm
View File

File diff suppressed because it is too large Load Diff

2108
programs/media/voxel_editor/utilites/vox_tgl.asm
View File

File diff suppressed because it is too large Load Diff

3572
programs/media/zsea/data.inc
View File

File diff suppressed because it is too large Load Diff

1178
programs/other/cnc_editor/wnd_new_file.inc
View File

File diff suppressed because it is too large Load Diff

364
programs/other/cnc_editor/wnd_scale.inc
View File

@ -1,181 +1,183 @@
; ;
; ¢ í⮬ ä ©«¥ ᮡ࠭ë ä㭪樨 ­ã¦­ë¥ ¤«ï ᮧ¤ ­¨ï ¨ ; ¢ í⮬ ä ©«¥ ᮡ࠭ë ä㭪樨 ­ã¦­ë¥ ¤«ï ᮧ¤ ­¨ï ¨
; à ¡®âë ®ª­  á ­ áâனª ¬¨ ; à ¡®âë ®ª­  á ­ áâனª ¬¨
; ;
wnd_scale_width equ 320 ;è¨à¨­  ®ª­  á ­ áâனª ¬¨ ; Language support for locales: ru_RU (CP866), en_US.
wnd_scale_height equ 150 ;¢ëá®â  ®ª­  á ­ áâனª ¬¨
wnd_scale_width equ 320 ;è¨à¨­  ®ª­  á ­ áâனª ¬¨
align 4 wnd_scale_height equ 150 ;¢ëá®â  ®ª­  á ­ áâனª ¬¨
wnd_run_scale db 0 ;¯¥à¥¬¥­­ ï á«¥¤ïé ï §  ⥬ çâ®-¡ë ­¥ § ¯ã᪠âì ¡®«ìè¥ 1-£® ®ª­  ᮠ᢮©á⢠¬¨ ®¤­®¢à¥¬¥­­®
align 4
;¤ ­®¥ ®ª­® (¯à®æ¥áá) ¢ë§ë¢ ¥âìáï ä㭪樥© but_wnd_coords wnd_run_scale db 0 ;¯¥à¥¬¥­­ ï á«¥¤ïé ï §  ⥬ çâ®-¡ë ­¥ § ¯ã᪠âì ¡®«ìè¥ 1-£® ®ª­  ᮠ᢮©á⢠¬¨ ®¤­®¢à¥¬¥­­®
align 4
start_scale: ;¤ ­®¥ ®ª­® (¯à®æ¥áá) ¢ë§ë¢ ¥âìáï ä㭪樥© but_wnd_coords
pushad align 4
mcall SF_SET_EVENTS_MASK,0x27 ;¬ áª  ®¦¨¤ ¥¬ëå ᮡë⨩ start_scale:
inc byte[wnd_run_scale] pushad
mcall SF_SET_EVENTS_MASK,0x27 ;¬ áª  ®¦¨¤ ¥¬ëå ᮡë⨩
edit_boxes_set_sys_color edit3,editboxes_end_sc,sc ;ãáâ ­®¢ª  á¨á⥬­ëå 梥⮢ inc byte[wnd_run_scale]
call get_scale
popad edit_boxes_set_sys_color edit3,editboxes_end_sc,sc ;ãáâ ­®¢ª  á¨á⥬­ëå 梥⮢
call red_win_scale call get_scale
popad
;­¥ ®âà뢠âì íâã äã­ªæ¨î ®â ¯à¥¤ë¤ã饩 call red_win_scale
align 4
still_scale: ;­¥ ®âà뢠âì íâã äã­ªæ¨î ®â ¯à¥¤ë¤ã饩
pushad align 4
still_scale:
mcall SF_WAIT_EVENT_TIMEOUT,10 pushad
or eax,eax
jnz @f mcall SF_WAIT_EVENT_TIMEOUT,10
call timer_funct_scale or eax,eax
jmp .end jnz @f
@@: call timer_funct_scale
jmp .end
cmp al,1 ;¨§¬. ¯®«®¦¥­¨¥ ®ª­  @@:
jne @f
call red_win_scale cmp al,1 ;¨§¬. ¯®«®¦¥­¨¥ ®ª­ 
jmp .end jne @f
@@: call red_win_scale
cmp al,2 jmp .end
jne @f @@:
call key_scale cmp al,2
jmp .end jne @f
@@: call key_scale
cmp al,3 jmp .end
jz button_scale @@:
cmp al,6 cmp al,3
jne @f jz button_scale
call mouse_scale cmp al,6
@@: jne @f
.end: call mouse_scale
popad @@:
jmp still_scale .end:
popad
align 4 jmp still_scale
red_win_scale:
pushad align 4
mcall SF_REDRAW,SSF_BEGIN_DRAW red_win_scale:
pushad
mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT mcall SF_REDRAW,SSF_BEGIN_DRAW
mov edi,capt_opt ;children window caption
mov bx,word[procinfo.box.left] mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT
add bx,word[buf_0.l] mov edi,capt_opt ;children window caption
add bx,5 ;è¨à¨­  ¡®ª®¢®© à ¬ª¨ mov bx,word[procinfo.box.left]
shl ebx,16 add bx,word[buf_0.l]
mov bx,wnd_scale_width add bx,5 ;è¨à¨­  ¡®ª®¢®© à ¬ª¨
mov cx,word[procinfo.box.top] shl ebx,16
add cx,ax ;add skin height mov bx,wnd_scale_width
add cx,word[buf_0.t] mov cx,word[procinfo.box.top]
shl ecx,16 add cx,ax ;add skin height
mov cx,wnd_scale_height add cx,word[buf_0.t]
mov edx,[sc.work] shl ecx,16
or edx,0x33000000 mov cx,wnd_scale_height
xor eax,eax mov edx,[sc.work]
int 0x40 or edx,0x33000000
xor eax,eax
mov esi,[sc.work_button] int 0x40
;ebx = (l<:)+w, ecx = (t<:)+h
mcall SF_DEFINE_BUTTON, (5 shl 16)+59, (95 shl 16)+20, 3 mov esi,[sc.work_button]
mcall , (75 shl 16)+59, (95 shl 16)+20, 4 ;ebx = (l<:)+w, ecx = (t<:)+h
mcall SF_DEFINE_BUTTON, (5 shl 16)+59, (95 shl 16)+20, 3
mov ecx,[sc.work_text] mcall , (75 shl 16)+59, (95 shl 16)+20, 4
bts ecx,31 ;à¨á㥬 ï áâப  § ª ­ç¨¢ ¥âáï ­ã«ñ¬
mcall SF_DRAW_TEXT, (5 shl 16)+15,, capt_sc mov ecx,[sc.work_text]
bts ecx,31 ;à¨á㥬 ï áâப  § ª ­ç¨¢ ¥âáï ­ã«ñ¬
mov ecx,[sc.work_button_text] mcall SF_DRAW_TEXT, (5 shl 16)+15,, capt_sc
bts ecx,31
mcall , (9 shl 16)+101,, txt_but_cancel mov ecx,[sc.work_button_text]
mov edx,txt_but_apply bts ecx,31
mcall ,(79 shl 16)+101 mcall , (9 shl 16)+101,, txt_but_cancel
mov edx,txt_but_apply
stdcall [edit_box_draw], edit3 mcall ,(79 shl 16)+101
mcall SF_REDRAW,SSF_END_DRAW stdcall [edit_box_draw], edit3
popad
ret mcall SF_REDRAW,SSF_END_DRAW
popad
align 4 ret
proc key_scale uses eax ebx
mcall SF_GET_KEY align 4
proc key_scale uses eax ebx
test word [edit3.flags],10b ;ed_focus mcall SF_GET_KEY
je @f
stdcall [edit_box_key], edit3 test word [edit3.flags],10b ;ed_focus
;jmp .end je @f
@@: stdcall [edit_box_key], edit3
;jmp .end
.end: @@:
ret
endp .end:
ret
align 4 endp
mouse_scale:
stdcall [edit_box_mouse], edit3 align 4
ret mouse_scale:
stdcall [edit_box_mouse], edit3
align 4 ret
button_scale:
mcall SF_GET_BUTTON align 4
button_scale:
cmp ah,3 mcall SF_GET_BUTTON
je .exit
cmp ah,4 cmp ah,3
jne .end_save je .exit
push eax ecx edi esi cmp ah,4
finit jne .end_save
push eax ecx edi esi
mov esi,string3 finit
mov edi,Data_String
cld mov esi,string3
mov ecx,8 mov edi,Data_String
rep movsd cld
call String_to_DoubleFloat mov ecx,8
fld qword[Data_Double] ;áç¨â뢠¥¬ ª ª double rep movsd
fstp qword[Scale1mm] ;á®å࠭塞 ª ª double call String_to_DoubleFloat
fld qword[Data_Double] ;áç¨â뢠¥¬ ª ª double
pop esi edi ecx eax fstp qword[Scale1mm] ;á®å࠭塞 ª ª double
jmp .exit
.end_save: pop esi edi ecx eax
jmp .exit
cmp ah,1 .end_save:
jne still_scale.end
.exit: cmp ah,1
mov byte[wnd_run_scale],0 ;®¡­ã«ï¥¬ áç¥â稪 ®ª®­ jne still_scale.end
mcall SF_TERMINATE_PROCESS ;¢ë室 ¨§ ¯à®£à ¬¬ë .exit:
mov byte[wnd_run_scale],0 ;®¡­ã«ï¥¬ áç¥â稪 ®ª®­
align 4 mcall SF_TERMINATE_PROCESS ;¢ë室 ¨§ ¯à®£à ¬¬ë
get_scale:
;§ £à㧪  ª®®à¤¨­ â ¢ editbox-ë align 4
push eax get_scale:
mov word[NumberSymbolsAD],8 ;§ £à㧪  ª®®à¤¨­ â ¢ editbox-ë
finit push eax
fld qword[Scale1mm] mov word[NumberSymbolsAD],8
fstp qword[Data_Double] finit
call DoubleFloat_to_String fld qword[Scale1mm]
call String_crop_0 fstp qword[Data_Double]
stdcall [edit_box_set_text], edit3, Data_String call DoubleFloat_to_String
;stdcall [edit_box_draw], edit3 call String_crop_0
pop eax stdcall [edit_box_set_text], edit3, Data_String
ret ;stdcall [edit_box_draw], edit3
pop eax
align 4 ret
proc timer_funct_scale
;¯à®á¬ âਢ ¥¬ ¢ë¤¥«¥­­ãî ª®®à¤¨­ âã align 4
ret proc timer_funct_scale
endp ;¯à®á¬ âਢ ¥¬ ¢ë¤¥«¥­­ãî ª®®à¤¨­ âã
ret
align 4 endp
if lang eq ru_RU
capt_opt db '<27> áâனª¨',0 align 4
capt_sc db 'Œ áèâ ¡:',0 if lang eq ru_RU
else capt_opt db '<27> áâனª¨',0
capt_opt db 'Options',0 capt_sc db 'Œ áèâ ¡:',0
capt_sc db 'Scale:',0 else ; Default to en_US
end if capt_opt db 'Options',0
capt_sc db 'Scale:',0
edit3 edit_box 80, 54, 11, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 34, string3, mouse_dd, 0 end if
editboxes_end_sc:
edit3 edit_box 80, 54, 11, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 34, string3, mouse_dd, 0
string3 rb 34 editboxes_end_sc:
string3 rb 34

11
programs/other/outdated/cmd/trunk/cmd.asm
View File

@ -19,7 +19,7 @@ use32
dd 0x0 dd 0x0
include "..\..\..\..\macros.inc" include "..\..\..\..\macros.inc"
include "lang.inc" include "lang.inc" ; Language support for locales: de_DE, en_US.
START: START:
call cmdexist call cmdexist
@ -2780,6 +2780,7 @@ title db 'CMD - Command line interpreter',0
smb_cursor db '|' smb_cursor db '|'
prompt db 'CMD>>' prompt db 'CMD>>'
if lang eq de_DE if lang eq de_DE
h1 db ' CMD - Command line interpreter version 0.26 ' h1 db ' CMD - Command line interpreter version 0.26 '
h2 db ' copyleft Chemist - dmitry_gt@tut.by ' h2 db ' copyleft Chemist - dmitry_gt@tut.by '
@ -2823,7 +2824,9 @@ mess14 db 'Datei erfolgreich umbenannt '
mess15 db 'ERROR: Kann Datei nicht umbenennen! ' mess15 db 'ERROR: Kann Datei nicht umbenennen! '
mess16 db 'Scriptname erwartet! ' mess16 db 'Scriptname erwartet! '
mess17 db 'Dieses Kommando ist nur in Scripts zulaessig! ' mess17 db 'Dieses Kommando ist nur in Scripts zulaessig! '
else
else ; Default to en_US
h1 db ' CMD - Command line interpreter version 0.26 ' h1 db ' CMD - Command line interpreter version 0.26 '
h2 db ' copyleft Chemist - dmitry_gt@tut.by ' h2 db ' copyleft Chemist - dmitry_gt@tut.by '
h3 db ' Available commands: ' h3 db ' Available commands: '
@ -2831,7 +2834,7 @@ h4 db ' HELP - Display this text LS - List files '
h5 db ' EXIT - Exit Programm CP - Copy file ' h5 db ' EXIT - Exit Programm CP - Copy file '
h6 db ' CLS - Clear Screen PS - Process info ' h6 db ' CLS - Clear Screen PS - Process info '
h7 db ' KILL - Kill Process RN - Rename File ' h7 db ' KILL - Kill Process RN - Rename File '
h8 db ' VER - Display programm version ' h8 db ' VER - Display program version '
h9 db ' DEL - Delete file from ramdisk ' h9 db ' DEL - Delete file from ramdisk '
h10 db ' SHUTDOWN - Quit Menuet ' h10 db ' SHUTDOWN - Quit Menuet '
h11 db ' PAUSE - Wait for keypress ' h11 db ' PAUSE - Wait for keypress '
@ -2849,7 +2852,7 @@ proc_head db ' PID Name Start Length Proc_NUMB '
proc_hd11 db '-------------------------------------------- ' proc_hd11 db '-------------------------------------------- '
mess1 db 'Press any key to continue (ESC - Cancel)... ' mess1 db 'Press any key to continue (ESC - Cancel)... '
mess2 db 'Plz specify a 4 byte process number (not PID) ' mess2 db 'Specify a 4 byte process number (not PID) '
mess3 db 'Process with number you specified has been ' mess3 db 'Process with number you specified has been '
mess4 db 'terminated. ' mess4 db 'terminated. '
mess5 db 'Usage: del [filename] ' mess5 db 'Usage: del [filename] '

58
programs/other/outdated/mfar/trunk/mf-lang.inc
View File

@ -2,38 +2,40 @@
;///// LOCALIZED STRINGS ////////////////////////////////////////////////////// ;///// LOCALIZED STRINGS //////////////////////////////////////////////////////
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; Language support for locales: ru_RU (CP866), en_US, fr_FR, de_DE.
lsz lname,\ lsz lname,\
ru,'ˆ¬ï',\ ru_RU,'ˆ¬ï',\
en,'Name',\ en_US,'Name',\
fr,'Nom',\ fr_FR,'Nom',\
ge,'Name' de_DE,'Name'
lsz sort_kind,\ lsz sort_kind,\
ru,'¨à',\ ru_RU,'¨à',\
en,'nx',\ en_US,'nx',\
fr,'ne',\ fr_FR,'ne',\
ge,'ne' de_DE,'ne'
lsz btmkeys,\ lsz btmkeys,\
ru,'<27>®¬®éì <20>®«ì§Œ <20>à®á¬ <20>¥¤ ªâ Š®¯¨à ',\ ru_RU,'<27>®¬®éì <20>®«ì§Œ <20>à®á¬ <20>¥¤ ªâ Š®¯¨à ',\
ru,'<27>¥à¥­ <20> ¯ª  “¤ «¥­ Š®­äŒ­ ‚ë室',\ ru_RU,'<27>¥à¥­ <20> ¯ª  “¤ «¥­ Š®­äŒ­ ‚ë室',\
en,'Help UserMn View Edit Copy ',\ en_US,'Help UserMn View Edit Copy ',\
en,'RenMov MkFold Delete ConfMn Quit',\ en_US,'RenMov MkFold Delete ConfMn Quit',\
fr,'Aide UserMn Vue Editer Copier ',\ fr_FR,'Aide UserMn Vue Editer Copier ',\
fr,'RenDep CrÎeRp Efface ConfMn Quitter',\ fr_FR,'RenDep CrÎeRp Efface ConfMn Quitter',\
ge,'Hilfe Menà Anzeig Bearb. Kopie ',\ de_DE,'Hilfe Menà Anzeig Bearb. Kopie ',\
ge,'UmbBew MkDir LÂsche Funkt. Ende' de_DE,'UmbBew MkDir LÂsche Funkt. Ende'
lsz sz_cancel,\ lsz sz_cancel,\
ru,'Žâ¬¥­ ',\ ru_RU,'Žâ¬¥­ ',\
en,'Cancel',\ en_US,'Cancel',\
fr,'Annuler',\ fr_FR,'Annuler',\
ge,'Beenden' de_DE,'Beenden'
;---------- COPY DIALOG ---------- ;---------- COPY DIALOG ----------
lsz sz_copy,\ lsz sz_copy,\
ru,'Š®¯¨à®¢ âì "',\ ru_RU,'Š®¯¨à®¢ âì "',\
en,'Copy "',\ en_US,'Copy "',\
fr,'Copier "',\ fr_FR,'Copier "',\
ge,'Kopiere "' de_DE,'Kopiere "'
lsz sz_copyto,\ lsz sz_copyto,\
ru,'" ¢:',\ ru_RU,'" ¢:',\
en,'" to:',\ en_US,'" to:',\
fr,'" vers:',\ fr_FR,'" vers:',\
ge,'" nach:' de_DE,'" nach:'

2004
programs/other/outdated/mhc/trunk/mhc.asm
View File

File diff suppressed because it is too large Load Diff

67
programs/other/outdated/mv/trunk/mv.asm
View File

@ -35,6 +35,7 @@
dd temp_area , 0x0 ; I_Param , I_Icon dd temp_area , 0x0 ; I_Param , I_Icon
include 'lang.inc' include 'lang.inc'
; Language support for locales: ru_RU (CP866), en_US, de_DE.
include '..\..\..\..\macros.inc' include '..\..\..\..\macros.inc'
include '..\..\..\..\develop\examples\editbox\trunk\editbox.inc' include '..\..\..\..\develop\examples\editbox\trunk\editbox.inc'
;include 'macros.inc' ;include 'macros.inc'
@ -655,9 +656,9 @@ labelt:
db 'MeView v.0.4' db 'MeView v.0.4'
lsz buttext,\ lsz buttext,\
en, ' FILE OPEN INFO BGRD',\ en_US, ' FILE OPEN INFO BGRD',\
ru, ' ”€‰‹ Ž’Š<E28099> ˆ<>”Ž ”Ž<E2809D> ',\ ru_RU, ' ”€‰‹ Ž’Š<E28099> ˆ<>”Ž ”Ž<E2809D> ',\
de, 'DATEI OEFNEN INFO HGRD' de_DE, 'DATEI OEFNEN INFO HGRD'
thread1: ; start of thread1 thread1: ; start of thread1
@ -926,25 +927,25 @@ draw_window2:
; DATA AREA ; DATA AREA
lsz labelt2,\ lsz labelt2,\
en, 'File info',\ en_US, 'File info',\
ru, 'ˆ­ä®à¬ æ¨ï ® ä ©«¥',\ ru_RU, 'ˆ­ä®à¬ æ¨ï ® ä ©«¥',\
de, 'Dateiinfo' de_DE, 'Dateiinfo'
lsz fitext,\ lsz fitext,\
en, 'FILE SIZE ',\ en_US, 'FILE SIZE ',\
en, 'X SIZE ',\ en_US, 'X SIZE ',\
en, 'Y SIZE ',\ en_US, 'Y SIZE ',\
en, 'BITS PER PIXEL',\ en_US, 'BITS PER PIXEL',\
\ \
ru, '<27> §¬¥à ä ©«  ',\ ru_RU, '<27> §¬¥à ä ©«  ',\
ru, '˜¨à¨­  ',\ ru_RU, '˜¨à¨­  ',\
ru, '‚ëá®â  ',\ ru_RU, '‚ëá®â  ',\
ru, '<27>¨â ­  ¯¨ªá¥« ',\ ru_RU, '<27>¨â ­  ¯¨ªá¥« ',\
\ \
de, 'FATEIGROESSE ',\ de_DE, 'FATEIGROESSE ',\
de, 'X GROESSE ',\ de_DE, 'X GROESSE ',\
de, 'Y GROESSE ',\ de_DE, 'Y GROESSE ',\
de, 'BITS PER PIXEL' de_DE, 'BITS PER PIXEL'
thread3: ; start of bgrd thread thread3: ; start of bgrd thread
@ -1114,29 +1115,29 @@ wnd_width dd 210
wnd_height dd 53 wnd_height dd 53
lsz labelt3,\ lsz labelt3,\
en, 'Background set',\ en_US, 'Background set',\
ru, "“áâ ­®¢ª  ä®­ ",\ ru_RU, "“áâ ­®¢ª  ä®­ ",\
de, 'Hintergrund gesetzt' de_DE, 'Hintergrund gesetzt'
lsz bgrdtext,\ lsz bgrdtext,\
en, 'SET AS BACKGROUND:',\ en_US, 'SET AS BACKGROUND:',\
ru, '’¨¯ ®¡®¥¢:',\ ru_RU, '’¨¯ ®¡®¥¢:',\
de, 'ALS HINTERGRUND' de_DE, 'ALS HINTERGRUND'
lsz tiled,\ lsz tiled,\
en, 'TILED',\ en_US, 'TILED',\
ru, '§ ¬®áâ¨âì',\ ru_RU, '§ ¬®áâ¨âì',\
de, 'GEKACHELT' de_DE, 'GEKACHELT'
lsz stretch,\ lsz stretch,\
en, 'STRETCH',\ en_US, 'STRETCH',\
ru, 'à áâï­ãâì',\ ru_RU, 'à áâï­ãâì',\
de, 'GESTRECKT' de_DE, 'GESTRECKT'
lsz ok_btn,\ lsz ok_btn,\
en, 'Ok',\ en_US, 'Ok',\
ru, 'Ok',\ ru_RU, 'Ok',\
de, 'Ok' de_DE, 'Ok'
image_file dd 0 image_file dd 0
image_file_1 dd 0 image_file_1 dd 0

786
programs/other/outdated/rb/trunk/rb.asm
View File

@ -1,393 +1,393 @@
; ;
; DESKTOP CONTEXT MENU ; DESKTOP CONTEXT MENU
; written by Ivan Poddubny ; written by Ivan Poddubny
; ;
; €¢â®à - ˆ¢ ­ <20>®¤¤ã¡­ë© ; €¢â®à - ˆ¢ ­ <20>®¤¤ã¡­ë©
; e-mail: ivan-yar@bk.ru ; e-mail: ivan-yar@bk.ru
; ;
; Compile with flat assembler ; Compile with flat assembler
; ;
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; version: 1.1 ; version: 1.1
; last update: 27/03/2012 ; last update: 27/03/2012
; changed by: Marat Zakiyanov aka Mario79, aka Mario ; changed by: Marat Zakiyanov aka Mario79, aka Mario
; changes: The program uses only 3404 bytes memory is now. ; changes: The program uses only 3404 bytes memory is now.
; Optimisations and code refactoring. ; Optimisations and code refactoring.
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
include 'lang.inc' include 'lang.inc'
include '..\..\..\..\macros.inc' include '..\..\..\..\macros.inc'
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
use32 use32
org 0x0 org 0x0
db 'MENUET01' ; 8 byte id db 'MENUET01' ; 8 byte id
dd 0x01 ; header version dd 0x01 ; header version
dd START ; start of code dd START ; start of code
dd IM_END ; size of image dd IM_END ; size of image
dd I_END ; memory for app dd I_END ; memory for app
dd stack_area ; esp dd stack_area ; esp
dd 0 ; boot parameters dd 0 ; boot parameters
dd 0 ; path dd 0 ; path
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
START: START:
; ¯®«ãç¨âì á¨á⥬­ë¥ æ¢¥â  ; ¯®«ãç¨âì á¨á⥬­ë¥ 梥â 
mcall 48,3,sc,sizeof.system_colors mcall 48,3,sc,sizeof.system_colors
; ãáâ ­®¢¨¬ ¬ áªã ᮡë⨩ - ­ á ¨­â¥à¥áã¥â ⮫쪮 ¬ëèì ; ãáâ ­®¢¨¬ ¬ áªã ᮡë⨩ - ­ á ¨­â¥à¥áã¥â ⮫쪮 ¬ëèì
mcall 40,100000b mcall 40,100000b
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
still: ; £« ¢­ë© 横« ®á­®¢­®£® ¯à®æ¥áá  still: ; £« ¢­ë© 横« ®á­®¢­®£® ¯à®æ¥áá 
mcall 10 ; ¦¤ñ¬ ᮡëâ¨ï mcall 10 ; ¦¤ñ¬ ᮡëâ¨ï
mcall 37,2 ; ª ª¨¥ ­ ¦ âë ª¯®¯ª¨? mcall 37,2 ; ª ª¨¥ ­ ¦ âë ª¯®¯ª¨?
cmp eax,ebx ; ¥á«¨ ­¥ ¯à ¢ ï, ¢®§¢à â cmp eax,ebx ; ¥á«¨ ­¥ ¯à ¢ ï, ¢®§¢à â
jne still jne still
;-------------------------------------- ;--------------------------------------
; íâ® ¤«ï ®â« ¤ª¨ - ¥á«¨ ¬ëèì ¢ â®çª¥ (0;0), § ªà®¥¬áï ; íâ® ¤«ï ®â« ¤ª¨ - ¥á«¨ ¬ëèì ¢ â®çª¥ (0;0), § ªà®¥¬áï
; xor ebx,ebx ; xor ebx,ebx
; mcall 37 ; mcall 37
; test eax,eax ; ªãàá®à ¢ â®çª¥ (0;0), â.¥. eax = 0 ; test eax,eax ; ªãàá®à ¢ â®çª¥ (0;0), â.¥. eax = 0
; je exit ; je exit
;-------------------------------------- ;--------------------------------------
; ª®®à¤¨­ âë ªãàá®à  ; ª®®à¤¨­ âë ªãàá®à 
xor ebx,ebx xor ebx,ebx
mcall 37 mcall 37
mov ebx,eax ; eax = cursor_x mov ebx,eax ; eax = cursor_x
shr eax,16 ; ebx = cursor_y shr eax,16 ; ebx = cursor_y
and ebx,0xffff and ebx,0xffff
mov [curx1],eax ; curx1 = cursor_x mov [curx1],eax ; curx1 = cursor_x
mov [cury1],ebx ; cury1 = cursor_y mov [cury1],ebx ; cury1 = cursor_y
; ª®¬ã ¯à¨­ ¤«¥¦¨â â®çª ? ; ª®¬ã ¯à¨­ ¤«¥¦¨â â®çª ?
mcall 34,[curx1],[cury1] mcall 34,[curx1],[cury1]
cmp al,1 ; 1 - ï¤à® cmp al,1 ; 1 - ï¤à®
jne still jne still
;-------------------------------------- ;--------------------------------------
align 4 align 4
@@: ; ¯®¤®¦¤ñ¬, ¯®ª  ¯®«ì§®¢ â¥«ì ­¥ ®â¯ãá⨫ ¯à ¢ãî ª­®¯ªã ¬ëè¨ @@: ; ¯®¤®¦¤ñ¬, ¯®ª  ¯®«ì§®¢ â¥«ì ­¥ ®â¯ãá⨫ ¯à ¢ãî ª­®¯ªã ¬ëè¨
mcall 37,2 ; ­ ¦ âë «¨ ª­®¯ª¨ ¬ëè¨? mcall 37,2 ; ­ ¦ âë «¨ ª­®¯ª¨ ¬ëè¨?
test eax,ebx ; ¥á«¨ ®â¯ãá⨫, (eax != 2) test eax,ebx ; ¥á«¨ ®â¯ãá⨫, (eax != 2)
jz @f ; ¨¤ñ¬ ¢ ­ ç «® £« ¢­®£® 横«  jz @f ; ¨¤ñ¬ ¢ ­ ç «® £« ¢­®£® 横« 
mcall 68,1 ; ¨­ ç¥ ¯¥à¥ª«î稬áï ­  á«¥¤ãî騩 ¯®â®ª á¨áâ¥¬ë ¨ ª®£¤  mcall 68,1 ; ¨­ ç¥ ¯¥à¥ª«î稬áï ­  á«¥¤ãî騩 ¯®â®ª á¨áâ¥¬ë ¨ ª®£¤ 
jmp @b ; ¢ë¯®«­¥­¨¥ ¢¥à­¥âáï í⮬㠯®â®ªã, ¯à®¢¥à¨¬ ¬ëèì ®¯ïâì jmp @b ; ¢ë¯®«­¥­¨¥ ¢¥à­¥âáï í⮬㠯®â®ªã, ¯à®¢¥à¨¬ ¬ëèì ®¯ïâì
;-------------------------------------- ;--------------------------------------
align 4 align 4
@@: @@:
; ¥á«¨ 㦥 ¡ë«® ®âªàëâ® ¬¥­î, ­ã¦­® ¯®¤®¦¤ âì, ¯®ª  ®­® § ªà®¥âáï: ; ¥á«¨ 㦥 ¡ë«® ®âªàëâ® ¬¥­î, ­ã¦­® ¯®¤®¦¤ âì, ¯®ª  ®­® § ªà®¥âáï:
cmp [menu_opened],0 cmp [menu_opened],0
je @f je @f
mcall 68,1 ; ¯¥à¥ª«î稬áï ­  á«¥¤ãî騩 ¯®â®ª á¨á⥬ë mcall 68,1 ; ¯¥à¥ª«î稬áï ­  á«¥¤ãî騩 ¯®â®ª á¨á⥬ë
; ¡®«¥¥ íä䥪⨢­ë© ᯮᮡ § ¤¥à¦ª¨ 祬 mcall 5 ; ¡®«¥¥ íä䥪⨢­ë© ᯮᮡ § ¤¥à¦ª¨ 祬 mcall 5
jmp @b jmp @b
;-------------------------------------- ;--------------------------------------
align 4 align 4
@@: @@:
;   ⥯¥àì ¬®¦­® ᬥ«® § ¯ã᪠âì ¯à®æ¥áá (¯®â®ª) ¬¥­î ;   ⥯¥àì ¬®¦­® ᬥ«® § ¯ã᪠âì ¯à®æ¥áá (¯®â®ª) ¬¥­î
mcall 51,1,start_wnd,stack_wnd mcall 51,1,start_wnd,stack_wnd
jmp still jmp still
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
exit_menu: ; ¥á«¨ ¢ë室¨¬ ¨§ ¬¥­î, ­ ¤® § ¯¨á âì ¢ [menu_opened] 0 exit_menu: ; ¥á«¨ ¢ë室¨¬ ¨§ ¬¥­î, ­ ¤® § ¯¨á âì ¢ [menu_opened] 0
mov [menu_opened],0 mov [menu_opened],0
;-------------------------------------- ;--------------------------------------
align 4 align 4
exit: ; á ¬ë ¨¤ñ¬, ª®£¤  ¢ë室¨¬ ¨§ ®á­®¢­®£® ¯à®æ¥áá  exit: ; á ¬ë ¨¤ñ¬, ª®£¤  ¢ë室¨¬ ¨§ ®á­®¢­®£® ¯à®æ¥áá 
or eax,-1 ; eax = -1 or eax,-1 ; eax = -1
mcall mcall
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; §¤¥áì áâ àâã¥â ¯à®æ¥áá ¬¥­î ; §¤¥áì áâ àâã¥â ¯à®æ¥áá ¬¥­î
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
start_wnd: start_wnd:
mov [menu_opened],1 mov [menu_opened],1
; ãáâ ­®¢¨¬ ¬ áªã ¦¥« ¥¬ëå ᮡë⨩: ¬¥­î + ª­®¯ª¨ + ¯¥à¥à¨á®¢ª  ; ãáâ ­®¢¨¬ ¬ áªã ¦¥« ¥¬ëå ᮡë⨩: ¬¥­î + ª­®¯ª¨ + ¯¥à¥à¨á®¢ª 
mcall 40,100101b mcall 40,100101b
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
red: red:
call draw_window call draw_window
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
still2: ; £« ¢­ë© 横« ¯à®æ¥áá  ¬¥­î still2: ; £« ¢­ë© 横« ¯à®æ¥áá  ¬¥­î
mcall 10 ; ¦¤ñ¬ ᮡëâ¨ï mcall 10 ; ¦¤ñ¬ ᮡëâ¨ï
cmp eax,1 ; ¯¥à¥à¨á®¢ª ? cmp eax,1 ; ¯¥à¥à¨á®¢ª ?
je red je red
cmp eax,3 ; ª­®¯ª ? cmp eax,3 ; ª­®¯ª ?
je button je button
cmp eax,6 ; ¬ëèì? cmp eax,6 ; ¬ëèì?
je mouse je mouse
jmp still2 ; ¢¥à­ñ¬áï ¢ ­ ç «® £« ¢­®£® 横«  jmp still2 ; ¢¥à­ñ¬áï ¢ ­ ç «® £« ¢­®£® 横« 
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
; Ž<><C5BD>€<EFBFBD>Ž’—ˆŠ Œ›˜ˆ ; Ž<><C5BD>€<EFBFBD>Ž’—ˆŠ Œ›˜ˆ
mouse: ; ª®£¤  ¯®«ì§®¢ â¥«ì ­ ¦¬ñâ ª­®¯ªã ¬ëè¨, § ªà®¥¬áï mouse: ; ª®£¤  ¯®«ì§®¢ â¥«ì ­ ¦¬ñâ ª­®¯ªã ¬ëè¨, § ªà®¥¬áï
mcall 37,2 ; ª ª¨¥ ª­®¯ª¨ ­ ¦ âë? mcall 37,2 ; ª ª¨¥ ª­®¯ª¨ ­ ¦ âë?
test eax,eax ; ­¨ª ª¨¥? - ⮣¤  ¯à¥ªà á­®! ¢¥à­ñ¬áï ¢ £« ¢­ë© 横« test eax,eax ; ­¨ª ª¨¥? - ⮣¤  ¯à¥ªà á­®! ¢¥à­ñ¬áï ¢ £« ¢­ë© 横«
jz still2 jz still2
mcall 37,0 mcall 37,0
mov esi, eax mov esi, eax
shr esi, 16 shr esi, 16
movzx edi, ax movzx edi, ax
mcall 9, procinfo, -1 mcall 9, procinfo, -1
mov eax, [procinfo.box.left] mov eax, [procinfo.box.left]
cmp esi, eax cmp esi, eax
jl exit_menu jl exit_menu
add eax, [procinfo.box.width] add eax, [procinfo.box.width]
cmp esi, eax cmp esi, eax
jge exit_menu jge exit_menu
mov eax, [procinfo.box.top] mov eax, [procinfo.box.top]
cmp edi, eax cmp edi, eax
jl exit_menu jl exit_menu
add eax, [procinfo.box.height] add eax, [procinfo.box.height]
cmp edi, eax cmp edi, eax
jge exit_menu jge exit_menu
jmp still2 jmp still2
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
; <20>€†€’€ Š<>Ž<EFBFBD>Š€ ; <20>€†€’€ Š<>Ž<EFBFBD>Š€
button: button:
mcall 17 ; ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨ mcall 17 ; ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
sub ah,10 ; áà ¢­¨¢ ¥¬ á 10 sub ah,10 ; áà ¢­¨¢ ¥¬ á 10
jl nofuncbtns ; ¥á«¨ ¬¥­ìè¥ - § ªà뢠¥¬ ¬¥­î jl nofuncbtns ; ¥á«¨ ¬¥­ìè¥ - § ªà뢠¥¬ ¬¥­î
movzx ebx,ah ; ¯®«ã稫¨ ­®¬¥à ¯à®£à ¬¬ë ¢ ᯨ᪥ ¢ ebx movzx ebx,ah ; ¯®«ã稫¨ ­®¬¥à ¯à®£à ¬¬ë ¢ ᯨ᪥ ¢ ebx
mov esi,[startapps + ebx*4] mov esi,[startapps + ebx*4]
mov edi,start_info.path mov edi,start_info.path
cld cld
;-------------------------------------- ;--------------------------------------
align 4 align 4
@@: @@:
lodsb lodsb
stosb stosb
test al,al test al,al
jnz @b jnz @b
mcall 70, start_info mcall 70, start_info
; mov eax,5 ; ¯®¤®¦¤ñ¬, ¯®ª  ¯à®£à ¬¬  § ¯ãáâ¨âìáï ; mov eax,5 ; ¯®¤®¦¤ñ¬, ¯®ª  ¯à®£à ¬¬  § ¯ãáâ¨âìáï
; mov ebx,1 ;   â® ¥ñ ®ª­® ­¥ ¡ã¤¥â ®âà¨á®¢ ­® (¡ £ ¢ ï¤à¥???) ; mov ebx,1 ;   â® ¥ñ ®ª­® ­¥ ¡ã¤¥â ®âà¨á®¢ ­® (¡ £ ¢ ï¤à¥???)
; mcall ; à áª®¬¬¥­â¨àã©â¥ í⨠áâப¨, ¥á«¨ ã ¢ á ¯à®¡«¥¬ë ; mcall ; à áª®¬¬¥­â¨àã©â¥ í⨠áâப¨, ¥á«¨ ã ¢ á ¯à®¡«¥¬ë
; á ®âà¨á®¢ª®© ; á ®âà¨á®¢ª®©
;-------------------------------------- ;--------------------------------------
align 4 align 4
nofuncbtns: ; § ªà뢠¥¬ ¬¥­î nofuncbtns: ; § ªà뢠¥¬ ¬¥­î
jmp exit_menu jmp exit_menu
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
_BTNS_ = 6 ; ª®«¨ç¥á⢮ ª­®¯®ª ("¯ã­ªâ®¢ ¬¥­î") _BTNS_ = 6 ; ª®«¨ç¥á⢮ ª­®¯®ª ("¯ã­ªâ®¢ ¬¥­î")
if lang eq ru_RU if lang eq ru_RU
font = 0x00000000 font = 0x00000000
string_length = 20 ; ¤«¨­  áâப¨ string_length = 20 ; ¤«¨­  áâப¨
wnd_x_size = 133 ; è¨à¨­  ®ª­  wnd_x_size = 133 ; è¨à¨­  ®ª­ 
title_pos = 36 shl 16 + 7 title_pos = 36 shl 16 + 7
else else
font = 0x10000000 font = 0x10000000
string_length = 12 ; ¤«¨­  áâப¨ string_length = 12 ; string length
wnd_x_size = 105 ; è¨à¨­  ®ª­  wnd_x_size = 105 ; window width
title_pos = 23 shl 16 + 7 title_pos = 23 shl 16 + 7
end if end if
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
;******************************* ;*******************************
;******** <20>ˆ‘“…Œ ŽŠ<C5BD>Ž ******** ;******** <20>ˆ‘“…Œ ŽŠ<C5BD>Ž ********
;******************************* ;*******************************
draw_window: draw_window:
mcall 12,1 ; ­ ç¨­ ¥¬ "à¨á®¢ âì" mcall 12,1 ; ­ ç¨­ ¥¬ "à¨á®¢ âì"
mov eax,[curx1] ; ⥪ã騥 ª®®à¤¨­ âë ªãàá®à  mov eax,[curx1] ; ⥪ã騥 ª®®à¤¨­ âë ªãàá®à 
mov [curx],eax ; § ¯¨è¥¬ ¢ ª®®à¤¨­ âë ®ª­  mov [curx],eax ; § ¯¨è¥¬ ¢ ª®®à¤¨­ âë ®ª­ 
mov eax,[cury1] mov eax,[cury1]
mov [cury],eax mov [cury],eax
; ⥯¥àì ¡ã¤¥¬ áç¨â âì ª®®à¤¨­ âë ®ª­ , çâ®¡ë ®­® §  ªà © íªà ­  ­¥ ¢ë«¥§«® ; ⥯¥àì ¡ã¤¥¬ áç¨â âì ª®®à¤¨­ âë ®ª­ , çâ®¡ë ®­® §  ªà © íªà ­  ­¥ ¢ë«¥§«®
mcall 14 ; ¯®«ã稬 à §¬¥à íªà ­  mcall 14 ; ¯®«ã稬 à §¬¥à íªà ­ 
mov ebx,eax mov ebx,eax
shr eax,16 ; ¢ eax - x_screen shr eax,16 ; ¢ eax - x_screen
and ebx,0xffff ; ¢ ebx - y_screen and ebx,0xffff ; ¢ ebx - y_screen
add eax,-wnd_x_size ; eax = [x_screen - è¨à¨­  ®ª­ ] add eax,-wnd_x_size ; eax = [x_screen - è¨à¨­  ®ª­ ]
add ebx,-_BTNS_*15-21 ; ebx = [y_screen - ¢ëá®â  ®ª­ ] add ebx,-_BTNS_*15-21 ; ebx = [y_screen - ¢ëá®â  ®ª­ ]
cmp eax,[curx] cmp eax,[curx]
jg .okx ; ¥á«¨ ®ª­® ᫨誮¬ ¡«¨§ª® ª ¯à ¢®¬ã ªà î, jg .okx ; ¥á«¨ ®ª­® ᫨誮¬ ¡«¨§ª® ª ¯à ¢®¬ã ªà î,
add [curx],-wnd_x_size ; ᤢ¨­¥¬ ¥£® ¢«¥¢® ­  100 add [curx],-wnd_x_size ; ᤢ¨­¥¬ ¥£® ¢«¥¢® ­  100
;-------------------------------------- ;--------------------------------------
align 4 align 4
.okx: .okx:
cmp ebx, [cury] cmp ebx, [cury]
jg .oky ; ¯® ¢¥à⨪ «¨ â®ç­® â ª¦¥ jg .oky ; ¯® ¢¥à⨪ «¨ â®ç­® â ª¦¥
add [cury], -_BTNS_*15-21 add [cury], -_BTNS_*15-21
;-------------------------------------- ;--------------------------------------
align 4 align 4
.oky: .oky:
xor eax, eax ; äã­ªæ¨ï 0 - ᮧ¤ âì ®ª­® xor eax, eax ; äã­ªæ¨ï 0 - ᮧ¤ âì ®ª­®
mov ebx, [curx] ; ebx = [ª®®à¤¨­ â  ¯® x] shl 16 + [è¨à¨­ ] mov ebx, [curx] ; ebx = [ª®®à¤¨­ â  ¯® x] shl 16 + [è¨à¨­ ]
shl ebx, 16 shl ebx, 16
add ebx, wnd_x_size add ebx, wnd_x_size
mov ecx, [cury] ; ecx = [ª®®à¤¨­ â  ¯® y] shl 16 + [¢ëá®â ] mov ecx, [cury] ; ecx = [ª®®à¤¨­ â  ¯® y] shl 16 + [¢ëá®â ]
shl ecx, 16 shl ecx, 16
add ecx, _BTNS_*15+21 add ecx, _BTNS_*15+21
mov edx, [sc.work] ; 梥â à ¡®ç¥© ®¡« á⨠mov edx, [sc.work] ; 梥â à ¡®ç¥© ®¡« áâ¨
mov esi, [sc.grab] ; 梥⠧ £®«®¢ª  mov esi, [sc.grab] ; 梥⠧ £®«®¢ª 
or esi, 0x81000000 or esi, 0x81000000
mov edi, [sc.frame] ; 梥â à ¬ª¨ mov edi, [sc.frame] ; 梥â à ¬ª¨
mcall mcall
mov eax, 4 ; § £®«®¢®ª mov eax, 4 ; § £®«®¢®ª
mov ebx, title_pos ; [x] shl 16 + [y] mov ebx, title_pos ; [x] shl 16 + [y]
mov ecx, [sc.grab_text]; èà¨äâ ¨ 梥â (á¥àë©) mov ecx, [sc.grab_text]; èà¨äâ ¨ 梥â (á¥àë©)
or ecx, 0x10000000 or ecx, 0x10000000
push ecx push ecx
push ecx push ecx
xor edx,edx xor edx,edx
;-------------------------------------- ;--------------------------------------
align 4 align 4
.dec_color: .dec_color:
sub byte [esp+edx], 0x33 sub byte [esp+edx], 0x33
jae @f jae @f
mov byte [esp+edx], 0 mov byte [esp+edx], 0
;-------------------------------------- ;--------------------------------------
align 4 align 4
@@: @@:
inc edx inc edx
jnp .dec_color jnp .dec_color
pop ecx pop ecx
mov edx, title ;  ¤à¥á § £®«®¢ª  mov edx, title ;  ¤à¥á § £®«®¢ª 
mov esi, title.size ; ¤«¨­  § £®«®¢ª  ("M E N U") mov esi, title.size ; ¤«¨­  § £®«®¢ª  ("M E N U")
mcall mcall
pop ecx pop ecx
add ebx, 1 shl 16 ; ᤢ¨­¥¬ ¢¯à ¢® ­  1 add ebx, 1 shl 16 ; ᤢ¨­¥¬ ¢¯à ¢® ­  1
mcall mcall
mov ebx, 1*65536+wnd_x_size-2 ; ­ ç¨­ ¥¬ ¤¥« âì ª­®¯ª¨ mov ebx, 1*65536+wnd_x_size-2 ; ­ ç¨­ ¥¬ ¤¥« âì ª­®¯ª¨
mov ecx, 20*65536+15 mov ecx, 20*65536+15
mov edx, 10 or 0x40000000 ; ¡¨â 30 ãáâ ­®¢«¥­ => ª­®¯ª  ­¥ à¨áã¥âáï mov edx, 10 or 0x40000000 ; ¡¨â 30 ãáâ ­®¢«¥­ => ª­®¯ª  ­¥ à¨áã¥âáï
mov edi,_BTNS_ ; ª®«¨ç¥á⢮ ª­®¯®ª (áçñâ稪) mov edi,_BTNS_ ; ª®«¨ç¥á⢮ ª­®¯®ª (áçñâ稪)
;-------------------------------------- ;--------------------------------------
align 4 align 4
newbtn: ; ­ ç «® 横«  newbtn: ; ­ ç «® 横« 
mcall 8 ; ᮧ¤ ñ¬ ª­®¯ªã mcall 8 ; ᮧ¤ ñ¬ ª­®¯ªã
; ¯¨è¥¬ ⥪áâ ­  ª­®¯ª¥ ; ¯¨è¥¬ ⥪áâ ­  ª­®¯ª¥
pushad ; ᯠᠥ¬ ॣ¨áâàë pushad ; ᯠᠥ¬ ॣ¨áâàë
shr ecx, 16 shr ecx, 16
and ebx, 0xffff0000 and ebx, 0xffff0000
add ebx, ecx ; ebx = [x] shl 16 + [y]; add ebx, ecx ; ebx = [x] shl 16 + [y];
add ebx, 10*65536+4 ; ebx += ᬥ饭¨¥ ®â­®á¨â¥«ì­® ªà ï ª­®¯ª¨; add ebx, 10*65536+4 ; ebx += ᬥ饭¨¥ ®â­®á¨â¥«ì­® ªà ï ª­®¯ª¨;
mov ecx, [sc.work_text] ; èà¨äâ ¨ 梥â mov ecx, [sc.work_text] ; èà¨äâ ¨ 梥â
or ecx, font or ecx, font
add edx, -10 ; edx = ­®¬¥à ª­®¯ª¨; add edx, -10 ; edx = ­®¬¥à ª­®¯ª¨;
imul edx, string_length ; edx *= ¤«¨­  áâப¨; imul edx, string_length ; edx *= ¤«¨­  áâப¨;
add edx, text ; edx += text; ⥯¥àì ¢ edx  ¤à¥á áâப¨ add edx, text ; edx += text; ⥯¥àì ¢ edx  ¤à¥á áâப¨
mov esi, string_length ; ¢ esi - ¤«¨­  áâப¨ mov esi, string_length ; ¢ esi - ¤«¨­  áâப¨
mcall 4 mcall 4
popad popad
inc edx ; ­®¬¥à ª­®¯ª¨++; inc edx ; ­®¬¥à ª­®¯ª¨++;
add ecx,15*65536 ; 㢥«¨ç¨¬ ᬥ饭¨¥ ¯® y add ecx,15*65536 ; 㢥«¨ç¨¬ ᬥ饭¨¥ ¯® y
dec edi ; 㬥­ì訬 áçñâ稪 dec edi ; 㬥­ì訬 áçñâ稪
jnz newbtn ; ¥á«¨ ­¥ ­®«ì, ¯®¢â®à¨¬ ¢áñ ¥éñ à § jnz newbtn ; ¥á«¨ ­¥ ­®«ì, ¯®¢â®à¨¬ ¢áñ ¥éñ à §
mcall 12,2 ; § ª®­ç¨«¨ "à¨á®¢ âì" mcall 12,2 ; § ª®­ç¨«¨ "à¨á®¢ âì"
ret ; ¢®§¢à â ret ; ¢®§¢à â
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
; „€<EFBFBD><EFBFBD>›… <20><>Žƒ<C5BD>€ŒŒ› ; PROGRAM DATA
macro strtbl name, [string] macro strtbl name, [string]
{ {
common common
label name dword label name dword
forward forward
local str local str
dd str dd str
forward forward
str db string str db string
} }
strtbl startapps ,\ strtbl startapps ,\
<"/sys/PIC4",0> ,\ <"/sys/PIC4",0> ,\
<"/sys/DESKTOP",0> ,\ <"/sys/DESKTOP",0> ,\
<"/sys/ICON",0>,\ <"/sys/ICON",0>,\
<"/sys/SETUP",0> ,\ <"/sys/SETUP",0> ,\
<"/sys/DEVELOP/BOARD",0> ,\ <"/sys/DEVELOP/BOARD",0> ,\
<"/sys/CPU",0> <"/sys/CPU",0>
sz title, "KolibriOS" sz title, "KolibriOS"
lsz text,\ lsz text,\
en, 'Background ',\ en_US, 'Background ',\
en, 'Desktop ',\ en_US, 'Desktop ',\
en, 'Icon manager',\ en_US, 'Icon manager',\
en, 'Device setup',\ en_US, 'Device setup',\
en, 'Debug board ',\ en_US, 'Debug board ',\
en, 'Processes ',\ en_US, 'Processes ',\
\ \
ru, 'ƒ¥­¥à â®à ®¡®¥¢ ',\ ru_RU, 'ƒ¥­¥à â®à ®¡®¥¢ ',\
ru, '<27> áâனª  ®ª®­ ',\ ru_RU, '<27> áâனª  ®ª®­ ',\
ru, '“¯à ¢«¥­¨¥ ¨ª®­ª ¬¨ ',\ ru_RU, '“¯à ¢«¥­¨¥ ¨ª®­ª ¬¨ ',\
ru, '<27> áâனª  ãáâனá⢠',\ ru_RU, '<27> áâனª  ãáâனá⢠',\
ru, '<27> ­¥«ì ®â« ¤ª¨ ',\ ru_RU, '<27> ­¥«ì ®â« ¤ª¨ ',\
ru, '<27>à®æ¥ááë ',\ ru_RU, '<27>à®æ¥ááë ',\
\ \
et, 'Taust ',\ et_EE, 'Taust ',\
et, 'Töölaud ',\ et_EE, 'Töölaud ',\
et, 'Ikooni hald.',\ et_EE, 'Ikooni hald.',\
et, 'Seadme hald.',\ et_EE, 'Seadme hald.',\
et, 'Silumis aken',\ et_EE, 'Silumis aken',\
et, 'Protsessid ' et_EE, 'Protsessid '
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
start_info: start_info:
.mode dd 7 .mode dd 7
dd 0 dd 0
.params dd 0 .params dd 0
dd 0 dd 0
dd 0 dd 0
db 0 db 0
dd start_info.path dd start_info.path
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
IM_END: IM_END:
align 4 align 4
; <20>…ˆ<E280A6>ˆ–ˆ€‹ˆ‡ˆ<E280A1>Ž‚€<E2809A><E282AC>›… „€<E2809E><E282AC>›… ; <20>…ˆ<E280A6>ˆ–ˆ€‹ˆ‡ˆ<E280A1>Ž‚€<E2809A><E282AC>›… „€<E2809E><E282AC>›…
curx1 dd ? ; ª®®à¤¨­ âë ªãàá®à  curx1 dd ? ; ª®®à¤¨­ âë ªãàá®à 
cury1 dd ? cury1 dd ?
curx dd ? ; ª®®à¤¨­ âë ®ª­  ¬¥­î curx dd ? ; ª®®à¤¨­ âë ®ª­  ¬¥­î
cury dd ? cury dd ?
menu_opened db ? ; ®âªàëâ® ¬¥­î ¨«¨ ­¥â? (1-¤ , 0-­¥â) menu_opened db ? ; ®âªàëâ® ¬¥­î ¨«¨ ­¥â? (1-¤ , 0-­¥â)
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
start_info.path rb 256 start_info.path rb 256
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
sc system_colors ; á¨á⥬­ë¥ æ¢¥â  sc system_colors ; á¨á⥬­ë¥ 梥â 
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
procinfo process_information ; ¨­ä®à¬ æ¨ï ® ¯à®æ¥áᥠprocinfo process_information ; ¨­ä®à¬ æ¨ï ® ¯à®æ¥áá¥
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
rb 512 ; áâíª ¤«ï ®ª­  ¬¥­î - 墠â¨â ¨ 1 Š¡ rb 512 ; áâíª ¤«ï ®ª­  ¬¥­î - 墠â¨â ¨ 1 Š¡
stack_wnd: stack_wnd:
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
rb 512 rb 512
stack_area: stack_area:
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
I_END: I_END:
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; ŠŽ<C5A0>…– <20><>Žƒ<C5BD>€ŒŒ› ; ŠŽ<C5A0>…– <20><>Žƒ<C5BD>€ŒŒ›
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------

645
programs/other/t_edit/t_data.inc
View File

File diff suppressed because one or more lines are too long

420
programs/other/t_edit/wnd_k_words.inc
View File

@ -1,209 +1,211 @@
; ;
; ¢ í⮬ ä ©«¥ ᮡ࠭ë ä㭪樨 ­ã¦­ë¥ ¤«ï ᮧ¤ ­¨ï ¨ ; ¢ í⮬ ä ©«¥ ᮡ࠭ë ä㭪樨 ­ã¦­ë¥ ¤«ï ᮧ¤ ­¨ï ¨
; à ¡®âë ®ª­  á ¯®¨áª®¬ ¢ ª«î祢ëå á«®¢ å ; à ¡®âë ®ª­  á ¯®¨áª®¬ ¢ ª«î祢ëå á«®¢ å
; ;
prop_wnd_width equ 350 ;è¨à¨­  ®ª­  á ¯®¨áª®¬ ; Language support for locales: ru_RU (CP866), en_US.
SIZE_ONE_FLOAT equ 14
prop_wnd_width equ 350 ;è¨à¨­  ®ª­  á ¯®¨áª®¬
IMAGE_TOOLBAR_ICON_SIZE equ 20*20*3 SIZE_ONE_FLOAT equ 14
wnd_k_words_run dd 0 ;¯¥à¥¬¥­­ ï á«¥¤ïé ï §  ⥬ çâ®-¡ë ­¥ § ¯ã᪠âì ¡®«ìè¥ 1-£® ®ª­  ®¤­®¢à¥¬¥­­® IMAGE_TOOLBAR_ICON_SIZE equ 20*20*3
if lang eq ru_RU wnd_k_words_run dd 0 ;¯¥à¥¬¥­­ ï á«¥¤ïé ï §  ⥬ çâ®-¡ë ­¥ § ¯ã᪠âì ¡®«ìè¥ 1-£® ®ª­  ®¤­®¢à¥¬¥­­®
txt_caption db '<27>®¨áª ¢ ª«î祢ëå á«®¢ å',0
else if lang eq ru_RU
txt_caption db 'Search in keywords',0 txt_caption db '<27>®¨áª ¢ ª«î祢ëå á«®¢ å',0
end if else ; Default to en_US
txt_caption db 'Search in keywords',0
;¤ ­®¥ ®ª­® (¯à®æ¥áá) ¢ë§ë¢ ¥âìáï ä㭪樥© but_wnd_coords end if
align 4
prop_start: ;¤ ­®¥ ®ª­® (¯à®æ¥áá) ¢ë§ë¢ ¥âìáï ä㭪樥© but_wnd_coords
pushad align 4
mcall SF_SET_EVENTS_MASK,0xC0000027 ;¬ áª  ®¦¨¤ ¥¬ëå ᮡë⨩ prop_start:
pushad
;­ áâனª  ᯨ᪠ ®¡ê¥ªâ®¢ mcall SF_SET_EVENTS_MASK,0xC0000027 ;¬ áª  ®¦¨¤ ¥¬ëå ᮡë⨩
mov dword[tree3.info_max_count],2
mov edi,tedit0 ;­ áâனª  ᯨ᪠ ®¡ê¥ªâ®¢
mov edx,ted_key_words_count mov dword[tree3.info_max_count],2
add dword[tree3.info_max_count],edx ;áâ ¢¨¬ ç¨á«® 㧫®¢, à ¢­®¥ ª®««¨ç¥áâ¢ã ª«î祢ëå á«®¢ ¢ ä ©«¥ ¯®¤á¢¥âª¨ (+2 ­  ­ ç «® ¨ ª®­¥æ ᯨ᪠) mov edi,tedit0
stdcall [tl_data_init], tree3 mov edx,ted_key_words_count
mov eax,dword[icon_tl_sys] add dword[tree3.info_max_count],edx ;áâ ¢¨¬ ç¨á«® 㧫®¢, à ¢­®¥ ª®««¨ç¥áâ¢ã ª«î祢ëå á«®¢ ¢ ä ©«¥ ¯®¤á¢¥âª¨ (+2 ­  ­ ç «® ¨ ª®­¥æ ᯨ᪠)
mov dword[tree3.data_img],eax stdcall [tl_data_init], tree3
mov eax,dword[tree1.data_img_sys] mov eax,dword[icon_tl_sys]
mov dword[tree3.data_img_sys],eax mov dword[tree3.data_img],eax
mov eax,dword[tree1.data_img_sys]
edit_boxes_set_sys_color edit3,editboxes_end,sc ;ãáâ ­®¢ª  á¨á⥬­ëå 梥⮢ mov dword[tree3.data_img_sys],eax
popad
edit_boxes_set_sys_color edit3,editboxes_end,sc ;ãáâ ­®¢ª  á¨á⥬­ëå 梥⮢
align 4 popad
prop_red_win:
pushad align 4
mcall SF_REDRAW,SSF_BEGIN_DRAW prop_red_win:
pushad
mov bx,word[procinfo.box.left] mcall SF_REDRAW,SSF_BEGIN_DRAW
add bx,5 ;word[buf_0.l]
shl ebx,16 mov bx,word[procinfo.box.left]
mov bx,prop_wnd_width add bx,5 ;word[buf_0.l]
mov cx,word[procinfo.box.top] shl ebx,16
add cx,42 ;word[buf_0.t] mov bx,prop_wnd_width
shl ecx,16 mov cx,word[procinfo.box.top]
mov cx,250 add cx,42 ;word[buf_0.t]
mcall SF_CREATE_WINDOW,,,0x33ffffd0,,txt_caption shl ecx,16
mov cx,250
mcall SF_DEFINE_BUTTON,(5 shl 16)+19,(5 shl 16)+19,3,[sc.work_button] mcall SF_CREATE_WINDOW,,,0x33ffffd0,,txt_caption
add ebx,(25 shl 16)
mcall ,,,4 mcall SF_DEFINE_BUTTON,(5 shl 16)+19,(5 shl 16)+19,3,[sc.work_button]
add ebx,(25 shl 16)
mov ebx,[bmp_icon] mcall ,,,4
add ebx,(ID_BUT_FIND-ID_BUT_0)*IMAGE_TOOLBAR_ICON_SIZE
mcall SF_PUT_IMAGE,,(20 shl 16)+20,(5 shl 16)+5 ;­ ©â¨ mov ebx,[bmp_icon]
add ebx,(ID_BUT_FIND-ID_BUT_0)*IMAGE_TOOLBAR_ICON_SIZE
sub ebx,2*IMAGE_TOOLBAR_ICON_SIZE mcall SF_PUT_IMAGE,,(20 shl 16)+20,(5 shl 16)+5 ;­ ©â¨
mov edx,(30 shl 16)+5 ;ª®¯¨à®¢ âì
int 0x40 sub ebx,2*IMAGE_TOOLBAR_ICON_SIZE
mov edx,(30 shl 16)+5 ;ª®¯¨à®¢ âì
mcall SF_THREAD_INFO,procinfo,-1 int 0x40
mov eax,[procinfo.box.height]
cmp eax,90 mcall SF_THREAD_INFO,procinfo,-1
jge @f mov eax,[procinfo.box.height]
mov eax,90 ;min size cmp eax,90
@@: jge @f
sub eax,58 mov eax,90 ;min size
cmp [tree3.box_height],eax @@:
je @f sub eax,58
mov [tree3.box_height],eax cmp [tree3.box_height],eax
mov word[w_scr_t3.y_size],ax je @f
;need call tb_scrol_resize mov [tree3.box_height],eax
@@: mov word[w_scr_t3.y_size],ax
;need call tb_scrol_resize
mov dword[w_scr_t3.all_redraw],1 @@:
stdcall [scrollbar_ver_draw], w_scr_t3
stdcall [tl_draw], tree3 mov dword[w_scr_t3.all_redraw],1
stdcall [edit_box_draw], edit3 stdcall [scrollbar_ver_draw], w_scr_t3
mcall SF_REDRAW,SSF_END_DRAW stdcall [tl_draw], tree3
popad stdcall [edit_box_draw], edit3
mcall SF_REDRAW,SSF_END_DRAW
;­¥ ®âà뢠âì íâã äã­ªæ¨î ®â ¯à¥¤ë¤ã饩 popad
align 4
prop_still: ;­¥ ®âà뢠âì íâã äã­ªæ¨î ®â ¯à¥¤ë¤ã饩
mcall SF_WAIT_EVENT align 4
prop_still:
cmp al,1 ;¨§¬. ¯®«®¦¥­¨¥ ®ª­  mcall SF_WAIT_EVENT
jz prop_red_win
cmp al,2 cmp al,1 ;¨§¬. ¯®«®¦¥­¨¥ ®ª­ 
jne @f jz prop_red_win
call prop_key cmp al,2
@@: jne @f
cmp al,3 call prop_key
jne @f @@:
call prop_button cmp al,3
@@: jne @f
cmp al,6 call prop_button
jne @f @@:
call prop_mouse cmp al,6
@@: jne @f
jmp prop_still call prop_mouse
.exit: @@:
mov dword[tree3.data_img],0 ;ç¨á⨬ 㪠§ â¥«¨ ­  ¨ª®­ª¨ çâ®-¡ë ¨å ­¥ 㤠«¨« ¤¥áâàãªâ®à jmp prop_still
mov dword[tree3.data_img_sys],0 ;â. ª. ®­¨ ¥é¥ ¨á¯®«ì§ãîâìáï ¢ ¤à㣨å í«¥¬¥­â å .exit:
stdcall [tl_data_clear], tree3 mov dword[tree3.data_img],0 ;ç¨á⨬ 㪠§ â¥«¨ ­  ¨ª®­ª¨ çâ®-¡ë ¨å ­¥ 㤠«¨« ¤¥áâàãªâ®à
mov dword[wnd_k_words_run],0 ;®¡­ã«ï¥¬ ID ®ª­  mov dword[tree3.data_img_sys],0 ;â. ª. ®­¨ ¥é¥ ¨á¯®«ì§ãîâìáï ¢ ¤à㣨å í«¥¬¥­â å
mcall SF_TERMINATE_PROCESS stdcall [tl_data_clear], tree3
mov dword[wnd_k_words_run],0 ;®¡­ã«ï¥¬ ID ®ª­ 
align 4 mcall SF_TERMINATE_PROCESS
prop_key:
push eax align 4
mcall SF_GET_KEY prop_key:
stdcall [edit_box_key], edit3 push eax
stdcall [tl_key], tree3 mcall SF_GET_KEY
pop eax stdcall [edit_box_key], edit3
ret stdcall [tl_key], tree3
pop eax
align 4 ret
prop_mouse:
;push ecx edi align 4
stdcall [tl_mouse], tree3 prop_mouse:
stdcall [edit_box_mouse], edit3 ;push ecx edi
;pop edi ecx stdcall [tl_mouse], tree3
ret stdcall [edit_box_mouse], edit3
;pop edi ecx
align 4 ret
prop_button:
pushad align 4
mcall SF_GET_BUTTON prop_button:
pushad
cmp ah,1 mcall SF_GET_BUTTON
je prop_still.exit
cmp ah,1
cmp ah,3 je prop_still.exit
jne @f
;­ ©â¨ á«®¢  cmp ah,3
mov edi,tedit0 jne @f
cmp ted_syntax_file,0 ;­ ©â¨ á«®¢ 
je @f mov edi,tedit0
stdcall [tl_info_clear], tree3 cmp ted_syntax_file,0
and dword[tree3.style], not tl_cursor_pos_limited je @f
stdcall [tl_info_clear], tree3
mov ebx,ted_key_words_data and dword[tree3.style], not tl_cursor_pos_limited
mov ecx,ted_key_words_count
cld mov ebx,ted_key_words_data
.cycle_0: mov ecx,ted_key_words_count
stdcall str_instr, ebx,[edit3.text] cld
test al,al .cycle_0:
jnz .end_add stdcall str_instr, ebx,[edit3.text]
;ª«î祢®¥ á«®¢® test al,al
stdcall [tl_node_add], tree3, (1 shl 16), ebx jnz .end_add
stdcall [tl_cur_next], tree3 ;ª«î祢®¥ á«®¢®
mov edx,[ebx+MAX_COLOR_WORD_LEN] stdcall [tl_node_add], tree3, (1 shl 16), ebx
or edx,edx stdcall [tl_cur_next], tree3
jz .end_add mov edx,[ebx+MAX_COLOR_WORD_LEN]
;á¯à ¢ª  ¯® ª«î祢®¬ã á«®¢ã or edx,edx
add edx,ted_help_text_f1 jz .end_add
stdcall [tl_node_add], tree3, 1, edx ;á¯à ¢ª  ¯® ª«î祢®¬ã á«®¢ã
stdcall [tl_cur_next], tree3 add edx,ted_help_text_f1
.end_add: stdcall [tl_node_add], tree3, 1, edx
add ebx,MAX_COLOR_WORD_LEN+8 ;sizeof.TexColViv stdcall [tl_cur_next], tree3
loop .cycle_0 .end_add:
add ebx,MAX_COLOR_WORD_LEN+8 ;sizeof.TexColViv
stdcall [tl_cur_beg], tree3 loop .cycle_0
or dword[tree3.style], tl_cursor_pos_limited ;®£à ­¨ç¨¢ ¥¬ ¤¢¨¦¥­¨¥ ªãàá®à  ¢ ¯à¥¤¥« å ᯨ᪠
stdcall [tl_draw], tree3 stdcall [tl_cur_beg], tree3
jmp .no_select_0 or dword[tree3.style], tl_cursor_pos_limited ;®£à ­¨ç¨¢ ¥¬ ¤¢¨¦¥­¨¥ ªãàá®à  ¢ ¯à¥¤¥« å ᯨ᪠
@@: stdcall [tl_draw], tree3
cmp ah,4 jmp .no_select_0
jne @f @@:
;ª®¯¨à®¢ âì ¢ ¡ãä¥à cmp ah,4
stdcall [tl_node_get_data],tree3 jne @f
or eax,eax ;ª®¯¨à®¢ âì ¢ ¡ãä¥à
jz .no_select_0 stdcall [tl_node_get_data],tree3
mov esi,eax or eax,eax
mov edi,[tedit0.buffer] jz .no_select_0
mov dword[edi],MAX_COLOR_WORD_LEN mov esi,eax
mov dword[edi+4],0 ;text data mov edi,[tedit0.buffer]
mov dword[edi+8],1 ;code 866 mov dword[edi],MAX_COLOR_WORD_LEN
add edi,12 ;system buffer header size mov dword[edi+4],0 ;text data
mov byte[edi+MAX_COLOR_WORD_LEN],0 mov dword[edi+8],1 ;code 866
mov ecx,MAX_COLOR_WORD_LEN add edi,12 ;system buffer header size
cld mov byte[edi+MAX_COLOR_WORD_LEN],0
rep movsb mov ecx,MAX_COLOR_WORD_LEN
mcall SF_CLIPBOARD,SSF_WRITE_CB,12+MAX_COLOR_WORD_LEN,[tedit0.buffer] cld
.no_select_0: rep movsb
@@: mcall SF_CLIPBOARD,SSF_WRITE_CB,12+MAX_COLOR_WORD_LEN,[tedit0.buffer]
.no_select_0:
popad @@:
ret
popad
;¤¥à¥¢® á ®¡ê¥ªâ ¬¨ ¢ ¯®«ì§®¢ â¥«ì᪮¬ ä ©«¥ ret
align 4
tree3 tree_list MAX_COLOR_WORD_LEN,3,tl_key_no_edit,\ ;¤¥à¥¢® á ®¡ê¥ªâ ¬¨ ¢ ¯®«ì§®¢ â¥«ì᪮¬ ä ©«¥
16,16, 0x8080ff,0x0000ff,0xffffff, 5,30,300,160, 16, 0,0, el_focus, w_scr_t3,0 align 4
tree3 tree_list MAX_COLOR_WORD_LEN,3,tl_key_no_edit,\
align 4 16,16, 0x8080ff,0x0000ff,0xffffff, 5,30,300,160, 16, 0,0, el_focus, w_scr_t3,0
edit3 edit_box 80, 70, 8, 0xffffff, 0xff, 0x80ff, 0, 0x8000, MAX_COLOR_WORD_LEN+2, string1, mouse_dd, ed_focus
editboxes_end: align 4
edit3 edit_box 80, 70, 8, 0xffffff, 0xff, 0x80ff, 0, 0x8000, MAX_COLOR_WORD_LEN+2, string1, mouse_dd, ed_focus
string1 rb MAX_COLOR_WORD_LEN editboxes_end:
align 4 string1 rb MAX_COLOR_WORD_LEN
w_scr_t3 scrollbar 16,0, 3,0, 15, 100, 0,0, 0xeeeeee, 0xbbddff, 0, 1
align 4
w_scr_t3 scrollbar 16,0, 3,0, 15, 100, 0,0, 0xeeeeee, 0xbbddff, 0, 1

2155
programs/system/MyKey/trunk/MyKey.asm
View File

File diff suppressed because it is too large Load Diff

644
programs/system/calendar/trunk/data.inc
View File

@ -1,321 +1,323 @@
; program data ; program data
curMonth dd ? curMonth dd ?
curYear dd ? curYear dd ?
curDay dd ? curDay dd ?
remainder dd ? remainder dd ?
quotient dd ? quotient dd ?
firstday dd ? firstday dd ?
Year dd ? Year dd ?
Month dd ? Month dd ?
day_sel dd ? day_sel dd ?
datestr dd ? datestr dd ?
leap_year dd ? leap_year dd ?
number dd ? number dd ?
; colors ; colors
COL_WINDOW_BG equ 0x54E7E7E7 COL_WINDOW_BG equ 0x54E7E7E7
COL_TOOLBAR_BG equ 0x555555 COL_TOOLBAR_BG equ 0x555555
COL_ACTIVE_TEXT equ 0x10e7c750 COL_ACTIVE_TEXT equ 0x10e7c750
COL_WEEKDAY_BG equ 0xCCCDDD COL_WEEKDAY_BG equ 0xCCCDDD
COL_DATE_BUTTONS equ 0xF3F3F3 COL_DATE_BUTTONS equ 0xF3F3F3
COL_TIME_BUTTONS equ 0x5555dd COL_TIME_BUTTONS equ 0x5555dd
COL_GO_TODAY_T equ 0xd048c8 COL_GO_TODAY_T equ 0xd048c8
COL_MONTH_YEAR_B equ 0x555555 COL_MONTH_YEAR_B equ 0x555555
COL_DROPDOWN_BG equ 0x666666 COL_DROPDOWN_BG equ 0x666666
COL_DROPDOWN_T equ 0x10CCCccc COL_DROPDOWN_T equ 0x10CCCccc
COL_NEW_STYLE_T equ 0xef3333 COL_NEW_STYLE_T equ 0xef3333
COL_DATE_INACTIVE_1 equ 0x388CAF COL_DATE_INACTIVE_1 equ 0x388CAF
COL_DATE_INACTIVE_2 equ 0x75B9D5 COL_DATE_INACTIVE_2 equ 0x75B9D5
COL_DATE_INACTIVE_3 equ 0x9ECBDF COL_DATE_INACTIVE_3 equ 0x9ECBDF
COL_DATE_INACTIVE_4 equ 0xABD7E8 COL_DATE_INACTIVE_4 equ 0xABD7E8
COL_DATE_ACTIVE_1 equ 0xA57F2C COL_DATE_ACTIVE_1 equ 0xA57F2C
COL_DATE_ACTIVE_2 equ 0xEFB52D COL_DATE_ACTIVE_2 equ 0xEFB52D
COL_DATE_ACTIVE_3 equ 0xFAD84C COL_DATE_ACTIVE_3 equ 0xFAD84C
COL_DATE_ACTIVE_4 equ 0xFAE995 COL_DATE_ACTIVE_4 equ 0xFAE995
COL_DATE_1 equ 0x8C8C8C COL_DATE_1 equ 0x8C8C8C
COL_DATE_2 equ 0xFFFfff COL_DATE_2 equ 0xFFFfff
COL_DATE_3 equ 0xF2F2F2 COL_DATE_3 equ 0xF2F2F2
COL_DATE_4 equ 0xF2F2F2 COL_DATE_4 equ 0xF2F2F2
; definitions ; definitions
WIN_W equ 275 WIN_W equ 275
WIN_H equ 326 WIN_H equ 326
DATE_BUTTON_WIDTH equ 32 DATE_BUTTON_WIDTH equ 32
DATE_BUTTON_HEIGHT equ 30 DATE_BUTTON_HEIGHT equ 30
LINE1 equ 27 shl 16+16 LINE1 equ 27 shl 16+16
B_MONTH_X equ 15 shl 16+158 B_MONTH_X equ 15 shl 16+158
B_Y equ LINE1 B_Y equ LINE1
B_MONTH equ 63 shl 16+27 B_MONTH equ 63 shl 16+27
BT_WBAR_Y equ 283 shl 16+43 BT_WBAR_Y equ 283 shl 16+43
B_WBAR_X equ 1 shl 16+WIN_W-1 B_WBAR_X equ 1 shl 16+WIN_W-1
B_WBAR_Y equ 64 shl 16+20 B_WBAR_Y equ 64 shl 16+20
B_WEEK equ 34 shl 16+66 B_WEEK equ 34 shl 16+66
B_WX_SHIFT equ 32 shl 16 B_WX_SHIFT equ 32 shl 16
B_DROP equ B_MONTH+16 B_DROP equ B_MONTH+16
B_DAYS_Y equ 106 B_DAYS_Y equ 106
B_DAYS_SHIFT equ 30 B_DAYS_SHIFT equ 30
B_YEAR equ 204 shl 16+28 B_YEAR equ 204 shl 16+28
B_SPIN_X equ 186 shl 16+12 B_SPIN_X equ 186 shl 16+12
B_SPIN equ 188 shl 16+28 B_SPIN equ 188 shl 16+28
spinner db '< >' spinner db '< >'
B_TODAY_X equ 25 shl 16 B_TODAY_X equ 25 shl 16
B_TODAY_Y equ 48 shl 16+10 B_TODAY_Y equ 48 shl 16+10
B_TODAY equ 30 shl 16+50 B_TODAY equ 30 shl 16+50
B_NS_X equ 185 shl 16+75 B_NS_X equ 185 shl 16+75
B_NS_Y equ 48 shl 16+10 B_NS_Y equ 48 shl 16+10
B_NS equ 190 shl 16+50 B_NS equ 190 shl 16+50
FOCUSABLE equ 4 FOCUSABLE equ 4
; multilanguage interface - configuratable in lang.inc day_count db 3,0,3,2,3,2,3,3,2,3,2,3
day_count db 3,0,3,2,3,2,3,3,2,3,2,3 Fkeys db 210,211,212,213,214,215,216,217,208,209,228,159
Fkeys db 210,211,212,213,214,215,216,217,208,209,228,159
; Multilanguage interface - configurable in lang.inc
month_name: ; Language support for locales: ru_RU (CP866), de_DE, fr_FR, fi_FI, et_EE, it_IT, en_US
if lang eq ru_RU
db 8 month_name:
db 'Ÿ­¢ àì ' if lang eq ru_RU
db '”¥¢à «ì ' db 8
db 'Œ àâ ' db 'Ÿ­¢ àì '
db '€¯à¥«ì ' db '”¥¢à «ì '
db 'Œ © ' db 'Œ àâ '
db 'ˆî­ì ' db '€¯à¥«ì '
db 'ˆî«ì ' db 'Œ © '
db '€¢£ãáâ ' db 'ˆî­ì '
db '‘¥­âï¡àì' db 'ˆî«ì '
db 'Žªâï¡àì ' db '€¢£ãáâ '
db '<27>®ï¡àì ' db '‘¥­âï¡àì'
db '„¥ª ¡àì ' db 'Žªâï¡àì '
else if lang eq de_DE db '<27>®ï¡àì '
db 9 db '„¥ª ¡àì '
db 'Januar ' else if lang eq de_DE
db 'Februar ' db 9
db 'M+rz ' db 'Januar '
db 'April ' db 'Februar '
db 'Mai ' db 'M+rz '
db 'Juni ' db 'April '
db 'Juli ' db 'Mai '
db 'August ' db 'Juni '
db 'September' db 'Juli '
db 'Oktober ' db 'August '
db 'November ' db 'September'
db 'Dezember ' db 'Oktober '
else if lang eq fr_FR db 'November '
db 9 db 'Dezember '
db 'Janvier ' else if lang eq fr_FR
db 'Fevrier ' db 9
db 'Mars ' db 'Janvier '
db 'Avril ' db 'Fevrier '
db 'Mai ' db 'Mars '
db 'Juin ' db 'Avril '
db 'Juliet ' db 'Mai '
db 'Aout ' db 'Juin '
db 'Septembre' db 'Juliet '
db 'Octobre ' db 'Aout '
db 'Novembre ' db 'Septembre'
db 'Decembre ' db 'Octobre '
else if lang eq fi_FI db 'Novembre '
db 9 db 'Decembre '
db 'Tammikuu ' else if lang eq fi_FI
db 'Helmikuu ' db 9
db 'Maaliskuu' db 'Tammikuu '
db 'Huhtikuu ' db 'Helmikuu '
db 'Toukokuu ' db 'Maaliskuu'
db 'Kes+kuu ' db 'Huhtikuu '
db 'Hein+kuu ' db 'Toukokuu '
db 'Elokuu ' db 'Kes+kuu '
db 'Syyskuu ' db 'Hein+kuu '
db 'Lokakuu ' db 'Elokuu '
db 'Marraskuu' db 'Syyskuu '
db 'Joulukuu ' db 'Lokakuu '
else if lang eq et_EE db 'Marraskuu'
db 9 db 'Joulukuu '
db 'Jaanuar ' else if lang eq et_EE
db 'Veebruar ' db 9
db 'Märts ' db 'Jaanuar '
db 'Aprill ' db 'Veebruar '
db 'Mai ' db 'Märts '
db 'Juuni ' db 'Aprill '
db 'Juuli ' db 'Mai '
db 'August ' db 'Juuni '
db 'September' db 'Juuli '
db 'Oktoober ' db 'August '
db 'November ' db 'September'
db 'Detsember' db 'Oktoober '
else if lang eq it_IT db 'November '
db 9 db 'Detsember'
db 'Gennaio ' else if lang eq it_IT
db 'Febbraio ' db 9
db 'Marzo ' db 'Gennaio '
db 'Aprile ' db 'Febbraio '
db 'Maggio ' db 'Marzo '
db 'Giugno ' db 'Aprile '
db 'Luglio ' db 'Maggio '
db 'Agosto ' db 'Giugno '
db 'Settembre' db 'Luglio '
db 'Ottobre ' db 'Agosto '
db 'Novembre ' db 'Settembre'
db 'Dicembre ' db 'Ottobre '
else db 'Novembre '
db 9 db 'Dicembre '
db 'January ' else ; Default to en_US
db 'February ' db 9
db 'March ' db 'January '
db 'April ' db 'February '
db 'May ' db 'March '
db 'June ' db 'April '
db 'July ' db 'May '
db 'August ' db 'June '
db 'September' db 'July '
db 'October ' db 'August '
db 'November ' db 'September'
db 'December ' db 'October '
end if db 'November '
week_days: db 'December '
if lang eq ru_RU end if
db 2 week_days:
db 1 if lang eq ru_RU
db '<27>­' db 2
db '‚â' db 1
db '‘à' db '<27>­'
db '—â' db '‚â'
db '<27>â' db '‘à'
db '‘¡' db '—â'
db '‚á' db '<27>â'
else if lang eq de_DE db '‘¡'
db 2 db '‚á'
db 7 else if lang eq de_DE
db 'So' db 2
db 'Mo' db 7
db 'Di' db 'So'
db 'Mi' db 'Mo'
db 'Do' db 'Di'
db 'Fr' db 'Mi'
db 'Sa' db 'Do'
else if lang eq fr_FR db 'Fr'
db 3 db 'Sa'
db 7 else if lang eq fr_FR
db 'Dim' db 3
db 'Lun' db 7
db 'Mar' db 'Dim'
db 'Mer' db 'Lun'
db 'Jeu' db 'Mar'
db 'Ven' db 'Mer'
db 'Sam' db 'Jeu'
else if lang eq fi_FI db 'Ven'
db 2 db 'Sam'
db 7 else if lang eq fi_FI
db 'Su' db 2
db 'Ma' db 7
db 'Ti' db 'Su'
db 'Ke' db 'Ma'
db 'To' db 'Ti'
db 'Pe' db 'Ke'
db 'La' db 'To'
else if lang eq et_EE db 'Pe'
db 3 db 'La'
db 7 else if lang eq et_EE
db 'Esm' db 3
db 'Tei' db 7
db 'Kol' db 'Esm'
db 'Nel' db 'Tei'
db 'Ree' db 'Kol'
db 'Lau' db 'Nel'
db 'Püh' db 'Ree'
else if lang eq it_IT db 'Lau'
db 3 db 'Püh'
db 7 else if lang eq it_IT
db 'Dom' db 3
db 'Lun' db 7
db 'Mar' db 'Dom'
db 'Mer' db 'Lun'
db 'Gio' db 'Mar'
db 'Ven' db 'Mer'
db 'Sab' db 'Gio'
else db 'Ven'
db 3 db 'Sab'
db 7 else ; Default to en_US
db 'Sun' db 3
db 'Mon' db 7
db 'Tue' db 'Sun'
db 'Wed' db 'Mon'
db 'Thu' db 'Tue'
db 'Fri' db 'Wed'
db 'Sat' db 'Thu'
end if db 'Fri'
db 'Sat'
title: end if
if lang eq ru_RU
db 'Š «¥­¤ àì',0 title:
else if lang eq de_DE if lang eq ru_RU
db 'Kalender',0 db 'Š «¥­¤ àì',0
else if lang eq fr_FR else if lang eq de_DE
db 'Calendrier',0 db 'Kalender',0
else if lang eq et_EE else if lang eq fr_FR
db 'Kalender',0 db 'Calendrier',0
else if lang eq it_IT else if lang eq et_EE
db 'Calendario',0 db 'Kalender',0
else else if lang eq it_IT
db 'Calendar',0 db 'Calendario',0
end if else ; Default to en_US
db 'Calendar',0
today_msg: end if
if lang eq ru_RU
db '‘¥£®¤­ï' today_msg:
else if lang eq de_DE if lang eq ru_RU
db 'Heute' db '‘¥£®¤­ï'
else if lang eq fr_FR else if lang eq de_DE
db "Aujourd'hui" db 'Heute'
else if lang eq et_EE else if lang eq fr_FR
db 'Täna' db "Aujourd'hui"
else if lang eq it_IT else if lang eq et_EE
db 'Oggi' db 'Täna'
else else if lang eq it_IT
db 'Today' db 'Oggi'
end if else ; Default to en_US
today_end: db 'Today'
focus dd 3 end if
new_style dd 1 today_end:
dropped db 0 focus dd 3
new_style dd 1
sys_text: dropped db 0
if lang eq ru_RU
db '∴•',0 sys_text:
else if lang eq it_IT if lang eq ru_RU
db ' Ora',0 db '∴•',0
else if lang eq et_EE else if lang eq it_IT
db ' Aeg ',0 db ' Ora',0
else else if lang eq et_EE
db ' Time',0 db ' Aeg ',0
end if else ; Default to en_US
separator db ':',0 db ' Time',0
plus db '+',0 end if
minus db '-',0 separator db ':',0
set_date_t: plus db '+',0
if lang eq ru_RU minus db '-',0
db '“áâ ­®¢¨âì ¤ âã',0
else if lang eq it_IT set_date_t:
db ' Impostazioni ',0 if lang eq ru_RU
else if lang eq et_EE db '“áâ ­®¢¨âì ¤ âã',0
db ' Määra kuupäev ',0 else if lang eq it_IT
else db ' Impostazioni ',0
db ' Set date ',0 else if lang eq et_EE
end if db ' Määra kuupäev ',0
else ; Default to en_US
db ' Set date ',0
end if

328
programs/system/cd_tray/CD_tray.ASM
View File

@ -1,163 +1,165 @@
; ;
; Управление лотками дисковых приводов ATAPI ; Управление лотками дисковых приводов ATAPI
; 22.07.2007 Mario79 исходный вариант ; 22.07.2007 Mario79 исходный вариант
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
use32 ; включить 32-битный режим ассемблера use32 ; включить 32-битный режим ассемблера
org 0x0 ; адресация с нуля org 0x0 ; адресация с нуля
db 'MENUET01' ; 8-байтный идентификатор MenuetOS db 'MENUET01' ; 8-байтный идентификатор MenuetOS
dd 0x01 ; версия заголовка (всегда 1) dd 0x01 ; версия заголовка (всегда 1)
dd START ; адрес первой команды dd START ; адрес первой команды
dd I_END ; размер программы dd I_END ; размер программы
dd 0x11000 ; количество памяти dd 0x11000 ; количество памяти
dd 0x11000 ; адрес вершины стэка dd 0x11000 ; адрес вершины стэка
dd 0x0 ; адрес буфера для параметров (не используется) dd 0x0 ; адрес буфера для параметров (не используется)
dd 0x0 ; зарезервировано dd 0x0 ; зарезервировано
include 'macros.inc' ; макросы облегчают жизнь ассемблерщиков! ; Language support for locales: it_IT, en_US.
;--------------------------------------------------------------------- include 'macros.inc' ; макросы облегчают жизнь ассемблерщиков!
;--- НАЧАЛО ПРОГРАММЫ ----------------------------------------------
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
;--- НАЧАЛО ПРОГРАММЫ ----------------------------------------------
START: ;---------------------------------------------------------------------
red: ; перерисовать окно START:
call draw_window ; вызываем процедуру отрисовки окна
red: ; перерисовать окно
;--------------------------------------------------------------------- call draw_window ; вызываем процедуру отрисовки окна
;--- ЦИКЛ ОБРАБОТКИ СОБЫТИЙ ----------------------------------------
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
;--- ЦИКЛ ОБРАБОТКИ СОБЫТИЙ ----------------------------------------
still: ;---------------------------------------------------------------------
mcall 10 ; функция 10 - ждать события
still:
cmp eax,1 ; перерисовать окно ? mcall 10 ; функция 10 - ждать события
je red ; если да - на метку red
cmp eax,2 ; нажата клавиша ? cmp eax,1 ; перерисовать окно ?
je key ; если да - на key je red ; если да - на метку red
cmp eax,3 ; нажата кнопка ? cmp eax,2 ; нажата клавиша ?
je button ; если да - на button je key ; если да - на key
cmp eax,3 ; нажата кнопка ?
jmp still ; если другое событие - в начало цикла je button ; если да - на button
jmp still ; если другое событие - в начало цикла
;---------------------------------------------------------------------
;---------------------------------------------------------------------
key: ; нажата клавиша на клавиатуре
mcall 2 ; функция 2 - считать код символа (в ah)
key: ; нажата клавиша на клавиатуре
jmp still ; вернуться к началу цикла mcall 2 ; функция 2 - считать код символа (в ah)
;--------------------------------------------------------------------- jmp still ; вернуться к началу цикла
button: ;---------------------------------------------------------------------
mcall 17 ; 17 - получить идентификатор нажатой кнопки
; кнопки 2,3,4,5 - load tray CD0/CD1/CD2/CD3 button:
movzx ecx, ah mcall 17 ; 17 - получить идентификатор нажатой кнопки
sub ecx, 2 ; кнопки 2,3,4,5 - load tray CD0/CD1/CD2/CD3
cmp ecx, 3 movzx ecx, ah
ja b6 sub ecx, 2
mcall 24,5 cmp ecx, 3
jmp red ja b6
b6: mcall 24,5
; кнопки 6,7,8,9 - eject tray CD0/CD1/CD2/CD3 jmp red
sub ecx, 4 b6:
cmp ecx, 3 ; кнопки 6,7,8,9 - eject tray CD0/CD1/CD2/CD3
ja b1 sub ecx, 4
mcall 24,4 cmp ecx, 3
jmp red ja b1
b1: mcall 24,4
cmp ah, 1 ; если НЕ нажата кнопка с номером 1, jmp red
jne still ; вернуться b1:
cmp ah, 1 ; если НЕ нажата кнопка с номером 1,
.exit: jne still ; вернуться
mcall -1 ; иначе конец программы
.exit:
mcall -1 ; иначе конец программы
;---------------------------------------------------------------------
;--- ОПРЕДЕЛЕНИЕ И ОТРИСОВКА ОКНА ----------------------------------
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
;--- ОПРЕДЕЛЕНИЕ И ОТРИСОВКА ОКНА ----------------------------------
draw_window: ;---------------------------------------------------------------------
mcall 12, 1 ; функция 12: сообщить ОС об отрисовке окна
; 1 - начинаем рисовать draw_window:
; СОЗДАиМ ОКНО mcall 12, 1 ; функция 12: сообщить ОС об отрисовке окна
; 1 - начинаем рисовать
if lang eq it_IT ; СОЗДАиМ ОКНО
mcall 0, <100,250>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0
else if lang eq it_IT
mcall 0, <100,230>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0 mcall 0, <100,250>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0
end if else ; Default to en_US
mcall 71, 1 ,header mcall 0, <100,230>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0
mcall 8,<15,42>,<40,20>,2,0xaaaaaa end if
call draw_buttons mcall 71, 1 ,header
mov edx,6 mcall 8,<15,42>,<40,20>,2,0xaaaaaa
add ecx,30 shl 16 call draw_buttons
mcall mov edx,6
call draw_buttons add ecx,30 shl 16
mcall
if lang eq it_IT call draw_buttons
mcall 4, <16,25>, 0x80ffffff,text1
else if lang eq it_IT
mcall 4, <25,25>, 0x80ffffff,text1 mcall 4, <16,25>, 0x80ffffff,text1
end if else ; Default to en_US
mov edx,text2 mcall 4, <25,25>, 0x80ffffff,text1
end if
add ebx,3 shl 16+20 mov edx,text2
mcall
mov edx,text3 add ebx,3 shl 16+20
add ebx,30 mcall
sub ebx,3 shl 16 mov edx,text3
mcall add ebx,30
sub ebx,3 shl 16
mcall 12, 2 ; функция 12: сообщить ОС об отрисовке окна mcall
; 2, закончили рисовать
mcall 12, 2 ; функция 12: сообщить ОС об отрисовке окна
ret ; выходим из процедуры ; 2, закончили рисовать
draw_buttons: ret ; выходим из процедуры
pusha
if lang eq it_IT draw_buttons:
add ebx,60 shl 16 pusha
else if lang eq it_IT
add ebx,50 shl 16 add ebx,60 shl 16
end if else ; Default to en_US
inc edx add ebx,50 shl 16
mcall end if
if lang eq it_IT inc edx
add ebx,60 shl 16 mcall
else if lang eq it_IT
add ebx,50 shl 16 add ebx,60 shl 16
end if else ; Default to en_US
inc edx add ebx,50 shl 16
mcall end if
if lang eq it_IT inc edx
add ebx,60 shl 16 mcall
else if lang eq it_IT
add ebx,50 shl 16 add ebx,60 shl 16
end if else ; Default to en_US
inc edx add ebx,50 shl 16
mcall end if
popa inc edx
ret mcall
;--------------------------------------------------------------------- popa
;--- ДАННЫЕ ПРОГРАММЫ ---------------------------------------------- ret
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
header db ' ATAPI Device Tray Control',0 ;--- ДАННЫЕ ПРОГРАММЫ ----------------------------------------------
if lang eq it_IT ;---------------------------------------------------------------------
text3 db 'espelli espelli espelli espelli',0 header db ' ATAPI Device Tray Control',0
text2 db 'carica carica carica carica',0 if lang eq it_IT
text1 db '/cd0/ /cd1/ /cd2/ /cd3/',0 text3 db 'espelli espelli espelli espelli',0
else text2 db 'carica carica carica carica',0
text3 db 'eject eject eject eject',0 text1 db '/cd0/ /cd1/ /cd2/ /cd3/',0
text2 db 'load load load load',0 else ; Default to en_US
text1 db '/cd0/ /cd1/ /cd2/ /cd3/',0 text3 db 'eject eject eject eject',0
end if text2 db 'load load load load',0
text1 db '/cd0/ /cd1/ /cd2/ /cd3/',0
;--------------------------------------------------------------------- end if
I_END: ; метка конца программы ;---------------------------------------------------------------------
I_END: ; метка конца программы

116
programs/system/cpu/trunk/cpu.asm
View File

@ -6,7 +6,7 @@
use32 use32
org 0x0 org 0x0
db "MENUET01" ; 8 byte id db "MENUET01" ; 8 byte id
dd 0x01 ; header version dd 0x01 ; header version
dd START ; start of code dd START ; start of code
@ -16,7 +16,7 @@
dd 0x0 ; boot parameters dd 0x0 ; boot parameters
dd cur_dir_path ; path dd cur_dir_path ; path
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
include "lang.inc" include "lang.inc" ; Language support for locales (UTF-8): de_DE, et_EE, ru_RU, it_IT, en_US.
include "../../../macros.inc" include "../../../macros.inc"
include "../../../develop/libraries/box_lib/trunk/box_lib.mac" include "../../../develop/libraries/box_lib/trunk/box_lib.mac"
include "../../../KOSfuncs.inc" include "../../../KOSfuncs.inc"
@ -43,7 +43,7 @@ EDITBOX:
.Y = UNDERTABLE.Y + BUTTON.HEIGHT + 20 .Y = UNDERTABLE.Y + BUTTON.HEIGHT + 20
.WIDTH = 465 .WIDTH = 465
.HEIGHT = 23 .HEIGHT = 23
CHECKBOX: CHECKBOX:
.X = PROCESS_TABLE.X .X = PROCESS_TABLE.X
.Y = UNDERTABLE.Y + BUTTON.HEIGHT + 25 .Y = UNDERTABLE.Y + BUTTON.HEIGHT + 25
@ -300,7 +300,7 @@ draw_next_process:
add ebx, BUTTON.WIDTH add ebx, BUTTON.WIDTH
mcall mcall
;create terminate process button ;create terminate process button
;mov ecx,[curposy] ;mov ecx,[curposy]
shl ecx,16 shl ecx,16
mov cx, BUTTON.HEIGHT mov cx, BUTTON.HEIGHT
@ -478,7 +478,7 @@ align 4
;show window y size ;show window y size
movzx eax, word [process_info_buffer.box.top] movzx eax, word [process_info_buffer.box.top]
add ebx, 70 shl 16 add ebx, 70 shl 16
call draw_ra_dec_number call draw_ra_dec_number
pop edi pop edi
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
align 4 align 4
@ -515,36 +515,36 @@ draw_window:
test [window_status],10b ; window is minimized to panel test [window_status],10b ; window is minimized to panel
jnz .exit jnz .exit
mov eax, strings.process_name mov eax, strings.process_name
mov ebx, 130 shl 16 + 5 mov ebx, 130 shl 16 + 5
xor ecx, ecx xor ecx, ecx
call draw_ra_text call draw_ra_text
mov eax, strings.ptid mov eax, strings.ptid
add ebx, 80 shl 16 add ebx, 80 shl 16
call draw_ra_text call draw_ra_text
mov eax, strings.cpu_usage_cycles mov eax, strings.cpu_usage_cycles
add ebx, 100 shl 16 add ebx, 100 shl 16
call draw_ra_text call draw_ra_text
mov eax, strings.cpu_usage_percent mov eax, strings.cpu_usage_percent
add ebx, 55 shl 16 add ebx, 55 shl 16
call draw_ra_text call draw_ra_text
mov eax, strings.memory_usage mov eax, strings.memory_usage
add ebx, 60 shl 16 add ebx, 60 shl 16
call draw_ra_text call draw_ra_text
mov eax, strings.window_stack_pos mov eax, strings.window_stack_pos
add ebx, 70 shl 16 add ebx, 70 shl 16
call draw_ra_text call draw_ra_text
mov eax, strings.window_position.x mov eax, strings.window_position.x
add ebx, 70 shl 16 add ebx, 70 shl 16
call draw_ra_text call draw_ra_text
mov eax, strings.window_position.y mov eax, strings.window_position.y
add ebx, 70 shl 16 add ebx, 70 shl 16
call draw_ra_text call draw_ra_text
@ -621,7 +621,7 @@ align 4
align 4 align 4
.exit: .exit:
ret ret
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
draw_ra_dec_number: draw_ra_dec_number:
@ -638,13 +638,13 @@ draw_ra_dec_number:
ror ebx, 16 ror ebx, 16
mov ebp, eax mov ebp, eax
test edx, edx test edx, edx
jz .no_postfix jz .no_postfix
mov eax, edx mov eax, edx
call count_utf8z_chars call count_utf8z_chars
test eax, eax test eax, eax
jz .no_postfix jz .no_postfix
push ecx push ecx
@ -655,13 +655,13 @@ draw_ra_dec_number:
mcall SF_DRAW_TEXT mcall SF_DRAW_TEXT
ror ebx, 16 ror ebx, 16
pop ecx pop ecx
.no_postfix: .no_postfix:
mov eax, ebp mov eax, ebp
push edx push edx
xor edi, edi xor edi, edi
mov esi, 10 mov esi, 10
@@: @@:
xor edx, edx xor edx, edx
@ -681,7 +681,7 @@ draw_ra_dec_number:
sub dx, ax sub dx, ax
rol edx, 16 rol edx, 16
mcall SF_DRAW_NUMBER, (11 shl 16) or 0x80000000 mcall SF_DRAW_NUMBER, (11 shl 16) or 0x80000000
popa popa
ret ret
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
@ -702,7 +702,7 @@ draw_ra_data_size:
cmp eax, 1024 cmp eax, 1024
ja @f ja @f
jmp .draw_text jmp .draw_text
@@: @@:
cmp eax, 1024*1024 cmp eax, 1024*1024
jae @f jae @f
@ -710,7 +710,7 @@ draw_ra_data_size:
div esi div esi
mov edx, strings.KB mov edx, strings.KB
jmp .draw_text jmp .draw_text
@@: @@:
cmp eax, 1024*1024*1024 cmp eax, 1024*1024*1024
jae @f jae @f
@ -718,15 +718,15 @@ draw_ra_data_size:
div esi div esi
mov edx, strings.MB mov edx, strings.MB
jmp .draw_text jmp .draw_text
@@: @@:
mov esi, 1024*1024*1024 mov esi, 1024*1024*1024
div esi div esi
mov edx, strings.GB mov edx, strings.GB
.draw_text: .draw_text:
call draw_ra_dec_number call draw_ra_dec_number
popa popa
ret ret
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
@ -743,9 +743,9 @@ draw_ra_text:
ror ebx, 16 ror ebx, 16
mov edx, eax mov edx, eax
call count_utf8z_chars call count_utf8z_chars
test eax, eax test eax, eax
jz .ret jz .ret
lea eax, [eax*8] lea eax, [eax*8]
@ -753,7 +753,7 @@ draw_ra_text:
rol ebx, 16 rol ebx, 16
or ecx, 0xB0000000 or ecx, 0xB0000000
mcall SF_DRAW_TEXT mcall SF_DRAW_TEXT
.ret: .ret:
popa popa
ret ret
@ -773,7 +773,7 @@ draw_button_with_caption:
;ebx = x+width shl 16 + y ;ebx = x+width shl 16 + y
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
pusha pusha
xor ebp, ebp xor ebp, ebp
mov edi, eax mov edi, eax
test eax, eax test eax, eax
@ -782,7 +782,7 @@ draw_button_with_caption:
call count_utf8z_chars call count_utf8z_chars
mov ebp, eax mov ebp, eax
.no_caption_0: .no_caption_0:
push ebx esi push ebx esi
lea eax, [ebp*8] lea eax, [ebp*8]
mov esi, edx mov esi, edx
@ -804,7 +804,7 @@ draw_button_with_caption:
mov ecx, esi mov ecx, esi
or ecx, 0xB0000000 or ecx, 0xB0000000
mcall SF_DRAW_TEXT mcall SF_DRAW_TEXT
.no_caption_1: .no_caption_1:
popa popa
ret ret
@ -820,7 +820,7 @@ count_utf8z_chars:
push esi ebx push esi ebx
mov esi, eax mov esi, eax
xor ebx, ebx xor ebx, ebx
.0: .0:
lodsb lodsb
test al, al test al, al
@ -836,25 +836,25 @@ count_utf8z_chars:
ja @f ja @f
inc esi inc esi
jmp .0 jmp .0
@@: @@:
cmp al, 0xEF cmp al, 0xEF
ja @f ja @f
inc esi inc esi
inc esi inc esi
jmp .0 jmp .0
@@: @@:
cmp al, 0xF7 cmp al, 0xF7
ja .err ja .err
add esi, 3 add esi, 3
jmp .0 jmp .0
.ok: .ok:
mov eax, ebx mov eax, ebx
pop ebx esi pop ebx esi
ret ret
.err: .err:
xor eax, eax xor eax, eax
pop ebx esi pop ebx esi
@ -920,7 +920,7 @@ sys_reboot:
strings: strings:
if lang eq de_DE if lang eq de_DE
.window_caption utf8z "Prozesse v0.2.3 - [Ctrl+Alt+Del]" .window_caption utf8z "Prozesse v0.2.3 - [Ctrl+Alt+Del]"
.process_name utf8z "NAME/BEENDEN" .process_name utf8z "NAME/BEENDEN"
.ptid utf8z "PID/TID" .ptid utf8z "PID/TID"
.cpu_usage_cycles utf8z "CPU(ZYKLEN)" .cpu_usage_cycles utf8z "CPU(ZYKLEN)"
@ -929,21 +929,21 @@ if lang eq de_DE
.window_stack_pos utf8z "W-STACK" .window_stack_pos utf8z "W-STACK"
.window_position.x utf8z " WIN-X" .window_position.x utf8z " WIN-X"
.window_position.y utf8z " WIN-Y" .window_position.y utf8z " WIN-Y"
.previous_page utf8z "SEITE ZURUECK" .previous_page utf8z "SEITE ZURUECK"
.next_page utf8z "SEITE VOR" .next_page utf8z "SEITE VOR"
.reboot utf8z "REBOOT SYSTEM" .reboot utf8z "REBOOT SYSTEM"
.run utf8z "START" .run utf8z "START"
.checkbox_caption utf8z "System" .checkbox_caption utf8z "System"
.KB utf8z " KB" .KB utf8z " KB"
.MB utf8z " MB" .MB utf8z " MB"
.GB utf8z " GB" .GB utf8z " GB"
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
else if lang eq et_EE else if lang eq et_EE
.window_caption utf8z "Protsessid v0.2.3 - [Ctrl+Alt+Del]" .window_caption utf8z "Protsessid v0.2.3 - [Ctrl+Alt+Del]"
.process_name utf8z "NIMI/LÕPETA" .process_name utf8z "NIMI/LÕPETA"
.ptid utf8z "PID/TID" .ptid utf8z "PID/TID"
.cpu_usage_cycles utf8z "CPU(TSÜKLID)" .cpu_usage_cycles utf8z "CPU(TSÜKLID)"
@ -952,21 +952,21 @@ else if lang eq et_EE
.window_stack_pos utf8z "W-PUHVER" .window_stack_pos utf8z "W-PUHVER"
.window_position.x utf8z " WIN-X" .window_position.x utf8z " WIN-X"
.window_position.y utf8z " WIN-Y" .window_position.y utf8z " WIN-Y"
.previous_page utf8z "EELMINE LEHT" .previous_page utf8z "EELMINE LEHT"
.next_page utf8z "JÄRGMINE LEHT" .next_page utf8z "JÄRGMINE LEHT"
.reboot utf8z "REBOODI SÜSTEEM" .reboot utf8z "REBOODI SÜSTEEM"
.run utf8z "START" .run utf8z "START"
.checkbox_caption utf8z "System" .checkbox_caption utf8z "System"
.KB utf8z " KB" .KB utf8z " KB"
.MB utf8z " MB" .MB utf8z " MB"
.GB utf8z " GB" .GB utf8z " GB"
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
else if lang eq ru_RU else if lang eq ru_RU
.window_caption utf8z "Диспетчер процессов v0.2.3 - [Ctrl+Alt+Del]" .window_caption utf8z "Диспетчер процессов v0.2.3 - [Ctrl+Alt+Del]"
.process_name utf8z "ИМЯ/ЗАВЕРШИТЬ" .process_name utf8z "ИМЯ/ЗАВЕРШИТЬ"
.ptid utf8z "PID/TID" .ptid utf8z "PID/TID"
.cpu_usage_cycles utf8z "CPU(ТАКТЫ)" .cpu_usage_cycles utf8z "CPU(ТАКТЫ)"
@ -975,21 +975,21 @@ else if lang eq ru_RU
.window_stack_pos utf8z "W-STACK" .window_stack_pos utf8z "W-STACK"
.window_position.x utf8z " WIN-X" .window_position.x utf8z " WIN-X"
.window_position.y utf8z " WIN-Y" .window_position.y utf8z " WIN-Y"
.previous_page utf8z "ПРЕД. СТР." .previous_page utf8z "ПРЕД. СТР."
.next_page utf8z "СЛЕД. СТР." .next_page utf8z "СЛЕД. СТР."
.reboot utf8z "ПЕРЕЗАГРУЗКА" .reboot utf8z "ПЕРЕЗАГРУЗКА"
.run utf8z "ЗАПУСК" .run utf8z "ЗАПУСК"
.checkbox_caption utf8z "Системные" .checkbox_caption utf8z "Системные"
.KB utf8z " КБ" .KB utf8z " КБ"
.MB utf8z " МБ" .MB utf8z " МБ"
.GB utf8z " ГБ" .GB utf8z " ГБ"
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
else if lang eq it_IT else if lang eq it_IT
.window_caption utf8z "Gestore processi v0.2.3 - [Ctrl+Alt+Del]" .window_caption utf8z "Gestore processi v0.2.3 - [Ctrl+Alt+Del]"
.process_name utf8z "NOME-PROGRAMMA" .process_name utf8z "NOME-PROGRAMMA"
.ptid utf8z "PID/TID" .ptid utf8z "PID/TID"
.cpu_usage_cycles utf8z "CPU(CICLI)" .cpu_usage_cycles utf8z "CPU(CICLI)"
@ -998,21 +998,21 @@ else if lang eq it_IT
.window_stack_pos utf8z "W-STACK" .window_stack_pos utf8z "W-STACK"
.window_position.x utf8z " WIN-X" .window_position.x utf8z " WIN-X"
.window_position.y utf8z " WIN-Y" .window_position.y utf8z " WIN-Y"
.previous_page utf8z "INDIETRO" .previous_page utf8z "INDIETRO"
.next_page utf8z "AVANTI" .next_page utf8z "AVANTI"
.reboot utf8z "RIAVVIA SISTEMA" .reboot utf8z "RIAVVIA SISTEMA"
.run utf8z "START" .run utf8z "START"
.checkbox_caption utf8z "System" .checkbox_caption utf8z "System"
.KB utf8z " KB" .KB utf8z " KB"
.MB utf8z " MB" .MB utf8z " MB"
.GB utf8z " GB" .GB utf8z " GB"
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
else else ; Default to en_US
.window_caption utf8z "Process manager v0.2.3 - [Ctrl+Alt+Del]" .window_caption utf8z "Process manager v0.2.3 - [Ctrl+Alt+Del]"
.process_name utf8z "NAME/TERMINATE" .process_name utf8z "NAME/TERMINATE"
.ptid utf8z "PID/TID" .ptid utf8z "PID/TID"
.cpu_usage_cycles utf8z "CPU(CYCLES)" .cpu_usage_cycles utf8z "CPU(CYCLES)"
@ -1021,15 +1021,15 @@ else
.window_stack_pos utf8z "W-STACK" .window_stack_pos utf8z "W-STACK"
.window_position.x utf8z " WIN-X" .window_position.x utf8z " WIN-X"
.window_position.y utf8z " WIN-Y" .window_position.y utf8z " WIN-Y"
.previous_page utf8z "PREV PAGE" .previous_page utf8z "PREV PAGE"
.next_page utf8z "NEXT PAGE" .next_page utf8z "NEXT PAGE"
.reboot utf8z "REBOOT SYSTEM" .reboot utf8z "REBOOT SYSTEM"
.run utf8z "RUN" .run utf8z "RUN"
.checkbox_caption utf8z "System" .checkbox_caption utf8z "System"
.KB utf8z " KB" .KB utf8z " KB"
.MB utf8z " MB" .MB utf8z " MB"
.GB utf8z " GB" .GB utf8z " GB"

454
programs/system/docpack/trunk/docpack.asm
View File

@ -1,227 +1,227 @@
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
; ;
; DOCPAK FOR KOLIBRI v1.2 ; DOCPAK FOR KOLIBRI v1.2
; Written in pure assembly by Ivushkin Andrey aka Willow ; Written in pure assembly by Ivushkin Andrey aka Willow
; ;
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
FILE_COUNT=0 FILE_COUNT=0
DEF_FILE equ 'g' DEF_FILE equ 'g'
macro embed_docdir_file fn macro embed_docdir_file fn
{ {
forward forward
local label,label2,label3 local label,label2,label3
dd label2-label dd label2-label
dd label-label3 dd label-label3
label3: label3:
db fn db fn
label: label:
file '%DOCDIR%' # fn file '%DOCDIR%' # fn
label2: label2:
FILE_COUNT=FILE_COUNT+1 FILE_COUNT=FILE_COUNT+1
} }
macro embed_local_file fn macro embed_local_file fn
{ {
forward forward
local label,label2,label3 local label,label2,label3
dd label2-label dd label2-label
dd label-label3 dd label-label3
label3: label3:
db fn db fn
label: label:
file fn file fn
label2: label2:
FILE_COUNT=FILE_COUNT+1 FILE_COUNT=FILE_COUNT+1
} }
use32 use32
org 0x0 org 0x0
db 'MENUET01' ; 8 byte id db 'MENUET01' ; 8 byte id
dd 0x01 ; header version dd 0x01 ; header version
dd start ; start of code dd start ; start of code
dd I_END ; size of image dd I_END ; size of image
dd I_END+0x400 ; memory for app dd I_END+0x400 ; memory for app
dd I_END+0x400 ; esp dd I_END+0x400 ; esp
dd my_param , 0x0 ; I_Param , I_Icon dd my_param , 0x0 ; I_Param , I_Icon
include '../../../macros.inc' include '../../../macros.inc'
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU, en_US.
start: start:
cmp [my_param],0 cmp [my_param],0
je red je red
cmp [my_param],'a' cmp [my_param],'a'
jb .par_a jb .par_a
cmp [my_param],'z' cmp [my_param],'z'
jbe .ok2 jbe .ok2
.par_a: .par_a:
mov [my_param],DEF_FILE mov [my_param],DEF_FILE
.ok2: .ok2:
movzx ecx,[my_param] movzx ecx,[my_param]
mov [my_param],'*' mov [my_param],'*'
.open: .open:
sub ecx,'a'-1 sub ecx,'a'-1
mov edx,embedded mov edx,embedded
xor esi,esi xor esi,esi
.list: .list:
lea edx,[edx+esi+8] lea edx,[edx+esi+8]
mov esi,[edx-8] mov esi,[edx-8]
add edx,[edx-4] add edx,[edx-4]
test esi,esi test esi,esi
jz .close jz .close
loop .list loop .list
push edx push edx
; convert number in esi to decimal representation ; convert number in esi to decimal representation
mov ecx, 10 mov ecx, 10
push -'0' push -'0'
mov eax, esi mov eax, esi
@@: @@:
xor edx, edx xor edx, edx
div ecx div ecx
push edx push edx
test eax, eax test eax, eax
jnz @b jnz @b
mov edi, fsize mov edi, fsize
@@: @@:
pop eax pop eax
add al, '0' add al, '0'
stosb stosb
jnz @b jnz @b
mcall 70,fileinfo mcall 70,fileinfo
mov ecx,eax mov ecx,eax
mcall 5,20 mcall 5,20
pop edx pop edx
mcall 60,2 mcall 60,2
cmp [my_param],'*' cmp [my_param],'*'
jne still jne still
.close: .close:
mcall -1 mcall -1
red: red:
mov [my_param],'a' mov [my_param],'a'
mcall 48, 3, sc, sizeof.system_colors mcall 48, 3, sc, sizeof.system_colors
mcall 12,1 mcall 12,1
BTN_H equ 21 BTN_H equ 21
mov edx,[sc.work] mov edx,[sc.work]
or edx,0x34000000 or edx,0x34000000
mcall 0, <220,141>, <30,FILECOUNT*(BTN_H+3)+37>, , ,title mcall 0, <220,141>, <30,FILECOUNT*(BTN_H+3)+37>, , ,title
mov ecx,FILECOUNT mov ecx,FILECOUNT
mov ebx,23 shl 16+100 mov ebx,23 shl 16+100
mov esi,[sc.work_button] mov esi,[sc.work_button]
mov edi,5 shl 16+BTN_H mov edi,5 shl 16+BTN_H
mov edx,10 mov edx,10
mov eax,8 mov eax,8
.btnlp: .btnlp:
push ecx push ecx
mcall ,,edi mcall ,,edi
add edi,(BTN_H+3) shl 16 add edi,(BTN_H+3) shl 16
inc edx inc edx
pop ecx pop ecx
loop .btnlp loop .btnlp
mov ecx,FILECOUNT mov ecx,FILECOUNT
mov edx,embedded mov edx,embedded
xor edi,edi xor edi,edi
mov ebx,30 shl 16+8 mov ebx,30 shl 16+8
mov eax,4 mov eax,4
.list: .list:
lea edx,[edx+edi+8] lea edx,[edx+edi+8]
mov edi,[edx-8] mov edi,[edx-8]
pusha pusha
sub ebx,20 shl 16 sub ebx,20 shl 16
mov ecx, [sc.work_text] mov ecx, [sc.work_text]
or ecx, 0x30000000 or ecx, 0x30000000
mcall ,,,my_param,1 mcall ,,,my_param,1
inc [my_param] inc [my_param]
popa popa
push ecx push ecx
mov esi, [edx-4] mov esi, [edx-4]
sub esi, 4 ;remove .txt extension sub esi, 4 ;remove .txt extension
mov ecx, [sc.work_button_text] mov ecx, [sc.work_button_text]
or ecx, 0x30000000 or ecx, 0x30000000
mcall mcall
pop ecx pop ecx
add esi, 4 add esi, 4
add edx, esi add edx, esi
add ebx,(BTN_H+3) add ebx,(BTN_H+3)
loop .list loop .list
mcall 12,2 mcall 12,2
still: still:
mcall 10 mcall 10
cmp eax,1 cmp eax,1
je red je red
cmp eax,2 cmp eax,2
jne .nokey jne .nokey
mcall 2 mcall 2
cmp ah,27 ;Esc cmp ah,27 ;Esc
je start.close je start.close
cmp ah,'a' cmp ah,'a'
jb still jb still
cmp ah,'a'+FILECOUNT cmp ah,'a'+FILECOUNT
jae still jae still
jmp .cxax jmp .cxax
.nokey: .nokey:
mcall 17 mcall 17
cmp ah,1 cmp ah,1
je start.close je start.close
sub ah,10-'a' sub ah,10-'a'
.cxax: .cxax:
movzx ecx,ah movzx ecx,ah
jmp start.open jmp start.open
fileinfo: fileinfo:
dd 7 dd 7
dd 0 dd 0
dd param dd param
dd 0 ,0 dd 0 ,0
db '/sys/TINYPAD',0 db '/sys/TINYPAD',0
param db '*' param db '*'
fsize: fsize:
times 10 db '0' times 10 db '0'
db 0 db 0
embedded: embedded:
; Please use only filenames w/o path! ; Please use only filenames w/o path!
; -- Start of embedding area ------ ; -- Start of embedding area ------
embed_docdir_file 'CREDITS.TXT' ;a embed_docdir_file 'CREDITS.TXT' ;a
if lang eq ru_RU if lang eq ru_RU
embed_docdir_file 'GNU.TXT' ;b embed_docdir_file 'GNU.TXT' ;b
else else ; Default to en_US
embed_docdir_file 'COPYING.TXT' ;b embed_docdir_file 'COPYING.TXT' ;b
end if end if
embed_docdir_file 'HOT_KEYS.TXT' ;c embed_docdir_file 'HOT_KEYS.TXT' ;c
embed_local_file 'FASM.TXT' ;d embed_local_file 'FASM.TXT' ;d
embed_docdir_file 'MTDBG.TXT' ;e embed_docdir_file 'MTDBG.TXT' ;e
if lang eq ru_RU if lang eq ru_RU
embed_local_file 'SYSFUNCR.TXT' ;f embed_local_file 'SYSFUNCR.TXT' ;f
else else ; Default to en_US
embed_local_file 'SYSFUNCS.TXT' ;f embed_local_file 'SYSFUNCS.TXT' ;f
end if end if
embed_local_file 'STACK.TXT' ;g embed_local_file 'STACK.TXT' ;g
embed_docdir_file 'KFAR_KEYS.TXT' ;h embed_docdir_file 'KFAR_KEYS.TXT' ;h
embed_docdir_file 'INI.TXT' ;i embed_docdir_file 'INI.TXT' ;i
embed_docdir_file 'OPENDIAL.TXT' ;j embed_docdir_file 'OPENDIAL.TXT' ;j
; -- End of embedding area ------- ; -- End of embedding area -------
dd 0 dd 0
FILECOUNT = FILE_COUNT FILECOUNT = FILE_COUNT
if ~ FILECOUNT>0 if ~ FILECOUNT>0
error 'No embedded files' error 'No embedded files'
end if end if
my_param db 0 my_param db 0
rb 256 rb 256
I_END: I_END:
title db 'Doc Pack',0 title db 'Doc Pack',0
sc system_colors sc system_colors

139
programs/system/end/light/data.inc
View File

@ -1,68 +1,71 @@
WIN_W = 440 WIN_W = 440
WIN_H = 200 WIN_H = 200
BOT_PANEL_H = 70 BOT_PANEL_H = 70
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
CANCEL_BUTTON_ID = 1+BT_HIDE CANCEL_BUTTON_ID = 1+BT_HIDE
HOME_BUTTON_ID = 2 HOME_BUTTON_ID = 2
REBOOT_BUTTON_ID = 3 REBOOT_BUTTON_ID = 3
POWEROFF_BUTTON_ID = 4 POWEROFF_BUTTON_ID = 4
CHECKBOX_BUTTON_ID = 5+BT_HIDE CHECKBOX_BUTTON_ID = 5+BT_HIDE
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
TEXT_HOME: db 'Home',0 TEXT_HOME: db 'Home',0
TEXT_ENTER: db 'Enter',0 TEXT_ENTER: db 'Enter',0
TEXT_END: db 'End',0 TEXT_END: db 'End',0
TEXT_CANCEL: db 'x',0 TEXT_CANCEL: db 'x',0
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
if lang eq ru_RU
TEXT_WTITLE: db '‡ ¢¥à襭¨¥ à ¡®âë',0 ; Language support for locales: ru_RU (CP866), de_DE, it_IT, en_US
TEXT_RDSAVE1: db '‘®åà ­¨âì ¨§¬¥­¥­¨ï, ᤥ« ­­ë¥ ¢',0
TEXT_RDSAVE2: db '¯à®æ¥áᥠࠡ®âë ¢ á¨á⥬¥ (Ctrl+S)',0 if lang eq ru_RU
TEXT_KERNEL: db 'Ÿ¤à®',0 TEXT_WTITLE: db '‡ ¢¥à襭¨¥ à ¡®âë',0
TEXT_REBOOT: db '<27>¥à¥§ £à㧪 ',0 TEXT_RDSAVE1: db '‘®åà ­¨âì ¨§¬¥­¥­¨ï, ᤥ« ­­ë¥ ¢',0
TEXT_OFF: db '‚몫î祭¨¥',0 TEXT_RDSAVE2: db '¯à®æ¥áᥠࠡ®âë ¢ á¨á⥬¥ (Ctrl+S)',0
TEXT_SAVING: db '‘®åà ­¥­¨¥ ®¡à § ...',0 TEXT_KERNEL: db 'Ÿ¤à®',0
else if lang eq de_DE TEXT_REBOOT: db '<27>¥à¥§ £à㧪 ',0
TEXT_WTITLE: db 'Shutdown computer',0 TEXT_OFF: db '‚몫î祭¨¥',0
TEXT_RDSAVE1: db 'Save all changes that were done',0 TEXT_SAVING: db '‘®åà ­¥­¨¥ ®¡à § ...',0
TEXT_RDSAVE2: db 'during system work (Ctrl+S)',0 else if lang eq de_DE
TEXT_KERNEL: db 'Kernel',0 TEXT_WTITLE: db 'Shutdown computer',0
TEXT_REBOOT: db 'Neustart',0 TEXT_RDSAVE1: db 'Save all changes that were done',0
TEXT_OFF: db 'Beenden',0 TEXT_RDSAVE2: db 'during system work (Ctrl+S)',0
TEXT_SAVING: db 'Saving RAM-drive...',0 TEXT_KERNEL: db 'Kernel',0
else if lang eq it_IT TEXT_REBOOT: db 'Neustart',0
TEXT_WTITLE: db 'Shutdown computer',0 TEXT_OFF: db 'Beenden',0
TEXT_RDSAVE1: db 'Save all changes that were done',0 TEXT_SAVING: db 'Saving RAM-drive...',0
TEXT_RDSAVE2: db 'during system work (Ctrl+S)',0 else if lang eq it_IT
TEXT_KERNEL: db 'Kernel',0 TEXT_WTITLE: db 'Shutdown computer',0
TEXT_REBOOT: db 'Riavvio',0 TEXT_RDSAVE1: db 'Save all changes that were done',0
TEXT_OFF: db 'Spegni',0 TEXT_RDSAVE2: db 'during system work (Ctrl+S)',0
TEXT_SAVING: db 'Saving RAM-drive...',0 TEXT_KERNEL: db 'Kernel',0
else TEXT_REBOOT: db 'Riavvio',0
TEXT_WTITLE: db 'Shutdown computer',0 TEXT_OFF: db 'Spegni',0
TEXT_RDSAVE1: db 'Save all changes that were done',0 TEXT_SAVING: db 'Saving RAM-drive...',0
TEXT_RDSAVE2: db 'during system work (Ctrl+S)',0 else ; Default to en_US
TEXT_KERNEL: db 'Kernel',0 TEXT_WTITLE: db 'Shutdown computer',0
TEXT_REBOOT: db 'Reboot',0 TEXT_RDSAVE1: db 'Save all changes that were done',0
TEXT_OFF: db 'Power off',0 TEXT_RDSAVE2: db 'during system work (Ctrl+S)',0
TEXT_SAVING: db 'Saving RAM-drive...',0 TEXT_KERNEL: db 'Kernel',0
end if TEXT_REBOOT: db 'Reboot',0
;--------------------------------------------------------------------- TEXT_OFF: db 'Power off',0
rdsave: TEXT_SAVING: db 'Saving RAM-drive...',0
dd SSF_START_APP,0,hide,0,0 end if
db '/sys/rdsave',0 ;---------------------------------------------------------------------
hide db 'h',0 rdsave:
asettings db 'settings',0 dd SSF_START_APP,0,hide,0,0
aautosave db 'autosave',0 db '/sys/rdsave',0
ini_file db '/sys/settings/rdsave.ini',0 hide db 'h',0
;--------------------------------------------------------------------- asettings db 'settings',0
importLib: aautosave db 'autosave',0
library \ ini_file db '/sys/settings/rdsave.ini',0
libini, 'libini.obj' ;---------------------------------------------------------------------
importLib:
import libini, \ library \
ini_set_int ,'ini_set_int', \ libini, 'libini.obj'
ini_get_int ,'ini_get_int'
;--------------------------------------------------------------------- import libini, \
checkbox_sharedname db 'CHECKBOX',0 ini_set_int ,'ini_set_int', \
checkbox_img dd ? ini_get_int ,'ini_get_int'
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
checkbox_sharedname db 'CHECKBOX',0
checkbox_img dd ?
;---------------------------------------------------------------------

1732
programs/system/format/format.asm
View File

File diff suppressed because it is too large Load Diff

89
programs/system/gmon/tab_about.inc
View File

@ -1,44 +1,45 @@
; ;
; Ghost Monitor - утилита (стресс) тестирования и мониторинга системы ; Ghost Monitor - утилита (стресс) тестирования и мониторинга системы
; Copyright (C) 2005, 2006, 2007 Mihailov Ilia (ghost.nsk@mail.ru) ; Copyright (C) 2005, 2006, 2007 Mihailov Ilia (ghost.nsk@mail.ru)
; All Right Reserved ; All Right Reserved
; Language support for locales: it_IT, en_US.
mov edx, msg_about
mov ebx, 17 * 65536 + 285 mov edx, msg_about
call show_text mov ebx, 17 * 65536 + 285
jmp redraw call show_text
jmp redraw
if lang eq it_IT
msg_about mls \ if lang eq it_IT
' Ghost Monitor',\ msg_about mls \
'',\ ' Ghost Monitor',\
'strumento per testare il proprio hardware',\ '',\
'',\ 'strumento per testare il proprio hardware',\
'Supported SuperIO : W83627HF,W83697HF',\ '',\
' W83627THF,W83627THF-A,W83627EHF-A,',\ 'Supported SuperIO : W83627HF,W83697HF',\
' W83637THF,IT8705F,IT8712F,SiS950',\ ' W83627THF,W83627THF-A,W83627EHF-A,',\
' ABIT uGuru',\ ' W83637THF,IT8705F,IT8712F,SiS950',\
'',\ ' ABIT uGuru',\
'Test basati su R.J.Redelmeier CPUBurn',\ '',\
'',\ 'Test basati su R.J.Redelmeier CPUBurn',\
'Mailto : ghost.nsk@mail.ru',\ '',\
'',\ 'Mailto : ghost.nsk@mail.ru',\
' *** Usare a prioprio rischio ***' '',\
else ' *** Usare a prioprio rischio ***'
msg_about mls \ ; должна быть хотябы одна строка else ; Default to en_US
' Ghost Monitor',\ msg_about mls \ ; должна быть хотябы одна строка
'',\ ' Ghost Monitor',\
' tool for testing and monitoring hardware',\ '',\
'',\ ' tool for testing and monitoring hardware',\
'Supported SuperIO : W83627HF,W83697HF',\ '',\
' W83627THF,W83627THF-A,W83627EHF-A,',\ 'Supported SuperIO : W83627HF,W83697HF',\
' W83637THF,IT8705F,IT8712F,SiS950',\ ' W83627THF,W83627THF-A,W83627EHF-A,',\
' ABIT uGuru',\ ' W83637THF,IT8705F,IT8712F,SiS950',\
'',\ ' ABIT uGuru',\
'Tests based on R.J.Redelmeier CPUBurn',\ '',\
'',\ 'Tests based on R.J.Redelmeier CPUBurn',\
'Mailto : ghost.nsk@mail.ru',\ '',\
'',\ 'Mailto : ghost.nsk@mail.ru',\
' *** Use at YOUR own RISK ***' '',\
end if ' *** Use at your own risk ***'
end if

248
programs/system/gmon/tab_test.inc
View File

@ -1,123 +1,125 @@
; ;
; Ghost Monitor - утилита (стресс) тестирования и мониторинга системы ; Ghost Monitor - утилита (стресс) тестирования и мониторинга системы
; Copyright (C) 2005, 2006, 2007 Mihailov Ilia (ghost.nsk@mail.ru) ; Copyright (C) 2005, 2006, 2007 Mihailov Ilia (ghost.nsk@mail.ru)
; All Right Reserved ; All Right Reserved
; ;
; Вкладка тестов ; Вкладка тестов
;
; "GenuineIntel" - International Electronics ; Language support for locales: it_IT, en_US.
; "GenuineTMx86" - Transmeta Processor
; "AuthenticAMD" - Advanced Micro Devices ; "GenuineIntel" - International Electronics
; "AMD ISBETTER" - Advanced Micro Devices ; "GenuineTMx86" - Transmeta Processor
; "UMC UMC UMC " - United Microelectronics Corporation ; "AuthenticAMD" - Advanced Micro Devices
; "CyrixInstead" - Cyrix Processor ; "AMD ISBETTER" - Advanced Micro Devices
; "Geode by NSC" - National Semiconductor Processor ; "UMC UMC UMC " - United Microelectronics Corporation
; "SiS SiS SiS " - SiS Processor ; "CyrixInstead" - Cyrix Processor
; "RiseRiseRise" - Rise Processor ; "Geode by NSC" - National Semiconductor Processor
; "NexGenDriven" - NexGen Processor (acquired by AMD) ; "SiS SiS SiS " - SiS Processor
; "CentaurHauls" - IDT/Centaur, now VIA Processor ; "RiseRiseRise" - Rise Processor
; "NexGenDriven" - NexGen Processor (acquired by AMD)
; Pentium (P5) button ; "CentaurHauls" - IDT/Centaur, now VIA Processor
mov eax, 8
mov ebx, 17 * 65536 + 145 ; Pentium (P5) button
mov ecx, 297 * 65536 + 25 mov eax, 8
mov edx, 6 mov ebx, 17 * 65536 + 145
mov esi, tcol mov ecx, 297 * 65536 + 25
cmp byte[Vendor + 11], 'l' mov edx, 6
jne p5n mov esi, tcol
cmp byte[CPU_fam], 5 cmp byte[Vendor + 11], 'l'
jne p5n jne p5n
mov esi, atcol cmp byte[CPU_fam], 5
p5n: int 0x40 jne p5n
; Pentium Pro / II / III (P6) button mov esi, atcol
add ecx, 27 * 65536 p5n: int 0x40
inc edx ; Pentium Pro / II / III (P6) button
mov esi, tcol add ecx, 27 * 65536
cmp byte[Vendor + 11], 'l' inc edx
jne p6n mov esi, tcol
cmp byte[CPU_fam], 6 cmp byte[Vendor + 11], 'l'
jne p6n jne p6n
mov esi, atcol cmp byte[CPU_fam], 6
p6n: int 0x40 jne p6n
; AMD K6 button mov esi, atcol
add ecx, 27 * 65536 p6n: int 0x40
inc edx ; AMD K6 button
mov esi, tcol add ecx, 27 * 65536
cmp byte[Vendor], 'A' inc edx
jne k6n mov esi, tcol
cmp byte[CPU_fam], 5 cmp byte[Vendor], 'A'
jne k6n jne k6n
mov esi, atcol cmp byte[CPU_fam], 5
k6n: int 0x40 jne k6n
; AMD K7 (Athlon / Duron) mov esi, atcol
add ecx, 27 * 65536 k6n: int 0x40
inc edx ; AMD K7 (Athlon / Duron)
mov esi, tcol add ecx, 27 * 65536
cmp byte[Vendor], 'A' inc edx
jne k7n mov esi, tcol
cmp byte[CPU_fam], 6 cmp byte[Vendor], 'A'
jne k7n jne k7n
mov esi, atcol cmp byte[CPU_fam], 6
k7n: int 0x40 jne k7n
; Пишем названия кнопок mov esi, atcol
mov eax, 4 k7n: int 0x40
mov ebx, 30 * 65536 + 307 ; Пишем названия кнопок
mov esi, 7 mov eax, 4
mov edx, tmsg_p ; P5 mov ebx, 30 * 65536 + 307
xor ecx, ecx mov esi, 7
cmp byte[test_id], 6 mov edx, tmsg_p ; P5
jne nr1 xor ecx, ecx
mov ecx, 0xFF0000 cmp byte[test_id], 6
nr1: int 0x40 jne nr1
add ebx, 27 mov ecx, 0xFF0000
mov esi, 20 ; P6 nr1: int 0x40
xor ecx, ecx add ebx, 27
cmp byte[test_id], 7 mov esi, 20 ; P6
jne nr2 xor ecx, ecx
mov ecx, 0xFF0000 cmp byte[test_id], 7
nr2: int 0x40 jne nr2
add ebx, 27 mov ecx, 0xFF0000
mov edx, tmsg_k6 ; K6 nr2: int 0x40
mov esi, 13 add ebx, 27
xor ecx, ecx mov edx, tmsg_k6 ; K6
cmp byte[test_id], 8 mov esi, 13
jne nr3 xor ecx, ecx
mov ecx, 0xFF0000 cmp byte[test_id], 8
nr3: int 0x40 jne nr3
add ebx, 27 mov ecx, 0xFF0000
mov edx, tmsg_k7 ; K7 nr3: int 0x40
mov esi, 15 add ebx, 27
xor ecx, ecx mov edx, tmsg_k7 ; K7
cmp byte[test_id], 9 mov esi, 15
jne nr4 xor ecx, ecx
mov ecx, 0xFF0000 cmp byte[test_id], 9
nr4: int 0x40 jne nr4
xor ecx, ecx mov ecx, 0xFF0000
mov ebx, 190 * 65536 + 420 nr4: int 0x40
mov edx, tmsg_rec xor ecx, ecx
mov esi, 11 mov ebx, 190 * 65536 + 420
int 0x40 mov edx, tmsg_rec
; read about mov esi, 11
mov ebx, 30 * 65536 + 282 int 0x40
mov edx, tmsg_war ; read about
mov esi, 35 mov ebx, 30 * 65536 + 282
mov ecx, 0xFF0000 mov edx, tmsg_war
int 0x40 mov esi, 35
; recommendate color mov ecx, 0xFF0000
mov eax, 13 int 0x40
mov ebx, 170 * 65536 + 10 ; recommendate color
mov ecx, 418 * 65536 + 10 mov eax, 13
mov edx, atcol mov ebx, 170 * 65536 + 10
int 0x40 mov ecx, 418 * 65536 + 10
mov edx, atcol
jmp redraw int 0x40
tmsg_p db 'Pentium (Pro/II/III)' ; 7/20 jmp redraw
tmsg_k6 db 'K6 (I/II/III)' ; 13
tmsg_k7 db 'K7/Athlon/Duron' ; 15 tmsg_p db 'Pentium (Pro/II/III)' ; 7/20
tmsg_rec db 'recommended' ; 11 tmsg_k6 db 'K6 (I/II/III)' ; 13
if lang eq it_IT tmsg_k7 db 'K7/Athlon/Duron' ; 15
tmsg_war db 'Potrebbe danneggiare lo hardware ' tmsg_rec db 'recommended' ; 11
else if lang eq it_IT
tmsg_war db 'May permanently damage the hardware' tmsg_war db 'Potrebbe danneggiare lo hardware '
end if else ; Default to en_US
tmsg_war db 'May permanently damage the hardware'
end if

415
programs/system/icon/trunk/data.inc
View File

@ -1,206 +1,209 @@
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
tl dd 8 tl dd 8
yw: dd 51 yw: dd 51
ya dd 0 ya dd 0
cur_btn dd 40 cur_btn dd 40
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; DATA AREA ; DATA AREA
bcolor dd 0x335599 bcolor dd 0x335599
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
icon_table: icon_table:
times 4 db 'xxxx xxxx' times 4 db 'xxxx xxxx'
times 2 db ' ' times 2 db ' '
times 1 db ' ' times 1 db ' '
times 2 db 'xxxx xxxx' times 2 db 'xxxx xxxx'
; times 1 db ' ' ; times 1 db ' '
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
icons_reserved: icons_reserved:
times 9 db ' ' times 9 db ' '
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
if lang eq ru_RU
text: ; Language support for locales: ru_RU (CP866), de_DE, it_IT, en_US
db 255,255,255,0, ' ’…Š‘’ '
db 255,255,255,0, ' <20><>Žƒ<C5BD>€ŒŒ€ ' if lang eq ru_RU
db 255,255,255,0, ' <20>€<EFBFBD>€Œ…’<E280A6>› ' text:
db 255,255,255,0, ' <20><>ˆŒ…<C592>ˆ’œ ' db 255,255,255,0, ' ’…Š‘’ '
db 255,255,255,0, ' „Ž<E2809E>€‚ˆ’œ “„€‹ˆ’œ ' db 255,255,255,0, ' <20><>Žƒ<C5BD>€ŒŒ€ '
db 0,0,0,0, '<27>€†Œˆ’… <20>€ <20>Ž‡ˆ–ˆž ˆŠŽ<C5A0>Šˆ „‹Ÿ <20>…„€Š’ˆ<E28099>Ž‚€<E2809A>ˆŸ ' db 255,255,255,0, ' <20>€<EFBFBD>€Œ…’<E280A6>› '
db 'x' ; <- END MARKER, DONT DELETE db 255,255,255,0, ' <20><>ˆŒ…<C592>ˆ’œ '
db 255,255,255,0, ' „Ž<E2809E>€‚ˆ’œ “„€‹ˆ’œ '
add_text db '<27>€†Œˆ’… <20>€ <20>Ž‡ˆ–ˆž <20>…ˆ‘<CB86>Ž‹œ‡“…ŒŽ‰ ˆŠŽ<C5A0>Šˆ ',0 db 0,0,0,0, '<27>€†Œˆ’… <20>€ <20>Ž‡ˆ–ˆž ˆŠŽ<C5A0>Šˆ „‹Ÿ <20>…„€Š’ˆ<E28099>Ž‚€<E2809A>ˆŸ '
rem_text db '<27>€†Œˆ’… <20>€ <20>Ž‡ˆ–ˆž ˆ‘<CB86>Ž‹œ‡“…ŒŽ‰ ˆŠŽ<C5A0>Šˆ ',0 db 'x' ; <- END MARKER, DO NOT DELETE
title db 'Œ¥­¥¤¦¥à ¨ª®­®ª',0
add_text db '<27>€†Œˆ’… <20>€ <20>Ž‡ˆ–ˆž <20>…ˆ‘<CB86>Ž‹œ‡“…ŒŽ‰ ˆŠŽ<C5A0>Šˆ ',0
else if lang eq de_DE rem_text db '<27>€†Œˆ’… <20>€ <20>Ž‡ˆ–ˆž ˆ‘<CB86>Ž‹œ‡“…ŒŽ‰ ˆŠŽ<C5A0>Šˆ ',0
text: title db 'Œ¥­¥¤¦¥à ¨ª®­®ª',0
db 255,255,255,0, ' TITLE '
db 255,255,255,0, ' APP NAME ' else if lang eq de_DE
db 255,255,255,0, ' PARAMETER ' text:
db 255,255,255,0, ' ANWENDEN ' db 255,255,255,0, ' TITLE '
db 255,255,255,0, ' HINZUFUEGEN ENTFERNEN ' db 255,255,255,0, ' APP NAME '
db 0,0,0,0, 'AUF BUTTON KLICKEN, UM ICON ZU EDITIEREN ' db 255,255,255,0, ' PARAMETER '
db 'x' ; <- END MARKER, DONT DELETE db 255,255,255,0, ' ANWENDEN '
db 255,255,255,0, ' HINZUFUEGEN ENTFERNEN '
add_text db 'AUF UNBENUTZTE ICONPOSITION KLICKEN ',0 db 0,0,0,0, 'AUF BUTTON KLICKEN, UM ICON ZU EDITIEREN '
rem_text db 'ICON ANKLICKEN; DAS GELOESCHT WERDEN SOLL ',0 db 'x' ; <- END MARKER, DO NOT DELETE
title db 'Icon Manager',0
add_text db 'AUF UNBENUTZTE ICONPOSITION KLICKEN ',0
else if lang eq it_IT rem_text db 'ICON ANKLICKEN; DAS GELOESCHT WERDEN SOLL ',0
text: title db 'Icon Manager',0
db 255,255,255,0, 'Titolo '
db 255,255,255,0, 'Nome app ' else if lang eq it_IT
db 255,255,255,0, 'Parametri ' text:
db 255,255,255,0, ' Applica modifiche ' db 255,255,255,0, 'Titolo '
db 255,255,255,0, ' Aggiungi Rimuovi ' db 255,255,255,0, 'Nome app '
db 0,0,0,0, 'Clicca sull icona per effettuare modifiche ' db 255,255,255,0, 'Parametri '
db 'x' ; <- END MARKER, DONT DELETE db 255,255,255,0, ' Applica modifiche '
db 255,255,255,0, ' Aggiungi Rimuovi '
add_text db 'Clicca su una posizione non usata ',0 db 0,0,0,0, 'Clicca sull icona per effettuare modifiche '
rem_text db 'Cliccare sull icona da rimuovere ',0 db 'x' ; <- END MARKER, DO NOT DELETE
title db 'Gestore Icone',0
add_text db 'Clicca su una posizione non usata ',0
else rem_text db 'Cliccare sull icona da rimuovere ',0
text: title db 'Gestore Icone',0
db 255,255,255,0, ' TITLE '
db 255,255,255,0, ' APP NAME ' else ; Default to en_US
db 255,255,255,0, ' PARAMETERS ' text:
db 255,255,255,0, ' APPLY CHANGES ' db 255,255,255,0, ' TITLE '
db 255,255,255,0, ' ADD ICON REMOVE ICON ' db 255,255,255,0, ' APP NAME '
db 0,0,0,0, 'CLICK BUTTON ON ICON POSITION FOR EDIT ' db 255,255,255,0, ' PARAMETERS '
db 'x' ; <- END MARKER, DONT DELETE db 255,255,255,0, ' APPLY CHANGES '
add_text db 'CLICK ON A NOT USED POSITION ',0 db 255,255,255,0, ' ADD ICON REMOVE ICON '
rem_text db 'CLICK ICON POSITION; YOU WANT TO DELETE ',0 db 0,0,0,0, 'CLICK BUTTON ON ICON POSITION FOR EDIT '
title db 'Icon Manager',0 db 'x' ; <- END MARKER, DO NOT DELETE
add_text db 'CLICK ON A NOT USED POSITION ',0
end if rem_text db 'CLICK ICON POSITION; YOU WANT TO DELETE ',0
;------------------------------------------------------------------------------ title db 'Icon Manager',0
arrows db '</>'
;------------------------------------------------------------------------------ end if
iconname: ;------------------------------------------------------------------------------
db ICON_APP,0 arrows db '</>'
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
icon_default: iconname:
db 'AA-CALC -004-/SYS/CALC ' db ICON_APP,0
db '- *' ;------------------------------------------------------------------------------
db 13,10 icon_default:
;------------------------------------------------------------------------------ db 'AA-CALC -004-/SYS/CALC '
rep_text: db '- *'
if lang eq ru_RU db 13,10
db '‡<>€—Šˆ - ˆ‡ , ‚›<E2809A><E280BA>€<EFBFBD> #' ;------------------------------------------------------------------------------
;else if lang eq it_IT rep_text:
; db 'Icone - di , Selezionate' if lang eq ru_RU
else db '‡<>€—Šˆ - ˆ‡ , ‚›<E2809A><E280BA>€<EFBFBD> #'
db 'ICONS - OF , SELECTED' ;else if lang eq it_IT
end if ; db 'Icone - di , Selezionate'
else ; Default to en_US
rep_text_len: db 'ICONS - OF , SELECTED'
;------------------------------------------------------------------------------ end if
align 4
finfo_start: rep_text_len:
dd 7 ;------------------------------------------------------------------------------
dd 0 align 4
.params dd 0 finfo_start:
dd 0 dd 7
dd 0 dd 0
db 0 .params dd 0
dd finfo.path dd 0
;------------------------------------------------------------------------------ dd 0
align 4 db 0
finfo: dd finfo.path
dd 5 ;------------------------------------------------------------------------------
dd 0 align 4
dd 0 finfo:
.size dd 0 dd 5
.point dd procinfo dd 0
.path: dd 0
db ICON_STRIP,0 .size dd 0
rb 31-($-.path) .point dd procinfo
;------------------------------------------------------------------------------ .path:
align 4 db ICON_STRIP,0
positions dd 3,16,47 rb 31-($-.path)
str_lens db 8,30,30 ;------------------------------------------------------------------------------
align 4
current_icon dd icon_data positions dd 3,16,47
str_lens db 8,30,30
iconlst db ICONS_DAT,0
current_icon dd icon_data
;image dd image_area
;------------------------------------------------------------------------------ iconlst db ICONS_DAT,0
; not change this section!!!
; start section ;image dd image_area
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 ; not change this section!!!
image_file dd 0 ;+0 ; start section
raw_pointer dd 0 ;+4 ;------------------------------------------------------------------------------
return_code dd 0 ;+8 align 4
img_size dd 0 ;+12 image_file dd 0 ;+0
deflate_unpack dd 0 ;+16 ; not use for scaling raw_pointer dd 0 ;+4
raw_pointer_2 dd 0 ;+20 ; not use for scaling return_code dd 0 ;+8
;------------------------------------------------------------------------------ img_size dd 0 ;+12
; end section deflate_unpack dd 0 ;+16 ; not use for scaling
;------------------------------------------------------------------------------ raw_pointer_2 dd 0 ;+20 ; not use for scaling
system_dir_CnvPNG db '/sys/lib/cnv_png.obj',0 ;------------------------------------------------------------------------------
system_dir_UNPACK db '/sys/lib/archiver.obj',0 ; end section
;------------------------------------------------------------------------------
;plugins_directory db 'plugins/',0 system_dir_CnvPNG db '/sys/lib/cnv_png.obj',0
plugins_directory db 0 system_dir_UNPACK db '/sys/lib/archiver.obj',0
;------------------------------------------------------------------------------
l_libs_start: ;plugins_directory db 'plugins/',0
plugins_directory db 0
library01 l_libs system_dir_CnvPNG+9,library_path,system_dir_CnvPNG,\ ;------------------------------------------------------------------------------
cnv_png_import,plugins_directory l_libs_start:
library02 l_libs system_dir_UNPACK+9,library_path,system_dir_UNPACK,\ library01 l_libs system_dir_CnvPNG+9,library_path,system_dir_CnvPNG,\
UNPACK_import,plugins_directory cnv_png_import,plugins_directory
end_l_libs: library02 l_libs system_dir_UNPACK+9,library_path,system_dir_UNPACK,\
;--------------------------------------------------------------------- UNPACK_import,plugins_directory
align 4
cnv_png_import: end_l_libs:
.Start dd aCP_Start ;---------------------------------------------------------------------
.Version dd aCP_Version align 4
.Check dd aCP_Check cnv_png_import:
.Assoc dd aCP_Assoc .Start dd aCP_Start
dd 0 .Version dd aCP_Version
dd 0 .Check dd aCP_Check
aCP_Start db 'START',0 .Assoc dd aCP_Assoc
aCP_Version db 'version',0 dd 0
aCP_Check db 'Check_Header',0 dd 0
aCP_Assoc db 'Associations',0 aCP_Start db 'START',0
;--------------------------------------------------------------------- aCP_Version db 'version',0
align 4 aCP_Check db 'Check_Header',0
UNPACK_import: aCP_Assoc db 'Associations',0
;unpack_Version dd aUnpack_Version ;---------------------------------------------------------------------
;unpack_PluginLoad dd aUnpack_PluginLoad align 4
;unpack_OpenFilePlugin dd aUnpack_OpenFilePlugin UNPACK_import:
;unpack_ClosePlugin dd aUnpack_ClosePlugin ;unpack_Version dd aUnpack_Version
;unpack_ReadFolder dd aUnpack_ReadFolder ;unpack_PluginLoad dd aUnpack_PluginLoad
;unpack_SetFolder dd aUnpack_SetFolder ;unpack_OpenFilePlugin dd aUnpack_OpenFilePlugin
;unpack_GetFiles dd aUnpack_GetFiles ;unpack_ClosePlugin dd aUnpack_ClosePlugin
;unpack_GetOpenPluginInfo dd aUnpack_GetOpenPluginInfo ;unpack_ReadFolder dd aUnpack_ReadFolder
;unpack_Getattr dd aUnpack_Getattr ;unpack_SetFolder dd aUnpack_SetFolder
;unpack_Open dd aUnpack_Open ;unpack_GetFiles dd aUnpack_GetFiles
;unpack_Read dd aUnpack_Read ;unpack_GetOpenPluginInfo dd aUnpack_GetOpenPluginInfo
;unpack_Setpos dd aUnpack_Setpos ;unpack_Getattr dd aUnpack_Getattr
;unpack_Close dd aUnpack_Close ;unpack_Open dd aUnpack_Open
;unpack_DeflateUnpack dd aUnpack_DeflateUnpack ;unpack_Read dd aUnpack_Read
unpack_DeflateUnpack2 dd aUnpack_DeflateUnpack2 ;unpack_Setpos dd aUnpack_Setpos
dd 0 ;unpack_Close dd aUnpack_Close
dd 0 ;unpack_DeflateUnpack dd aUnpack_DeflateUnpack
unpack_DeflateUnpack2 dd aUnpack_DeflateUnpack2
;aUnpack_Version db 'version',0 dd 0
;aUnpack_PluginLoad db 'plugin_load',0 dd 0
;aUnpack_OpenFilePlugin db 'OpenFilePlugin',0
;aUnpack_ClosePlugin db 'ClosePlugin',0 ;aUnpack_Version db 'version',0
;aUnpack_ReadFolder db 'ReadFolder',0 ;aUnpack_PluginLoad db 'plugin_load',0
;aUnpack_SetFolder db 'SetFolder',0 ;aUnpack_OpenFilePlugin db 'OpenFilePlugin',0
;aUnpack_GetFiles db 'GetFiles',0 ;aUnpack_ClosePlugin db 'ClosePlugin',0
;aUnpack_GetOpenPluginInfo db 'GetOpenPluginInfo',0 ;aUnpack_ReadFolder db 'ReadFolder',0
;aUnpack_Getattr db 'getattr',0 ;aUnpack_SetFolder db 'SetFolder',0
;aUnpack_Open db 'open',0 ;aUnpack_GetFiles db 'GetFiles',0
;aUnpack_Read db 'read',0 ;aUnpack_GetOpenPluginInfo db 'GetOpenPluginInfo',0
;aUnpack_Setpos db 'setpos',0 ;aUnpack_Getattr db 'getattr',0
;aUnpack_Close db 'close',0 ;aUnpack_Open db 'open',0
;aUnpack_DeflateUnpack db 'deflate_unpack',0 ;aUnpack_Read db 'read',0
aUnpack_DeflateUnpack2 db 'deflate_unpack2',0 ;aUnpack_Setpos db 'setpos',0
;------------------------------------------------------------------------------ ;aUnpack_Close db 'close',0
;aUnpack_DeflateUnpack db 'deflate_unpack',0
aUnpack_DeflateUnpack2 db 'deflate_unpack2',0
;------------------------------------------------------------------------------

1686
programs/system/icon_new/DlgAdd.inc
View File

File diff suppressed because it is too large Load Diff

2699
programs/system/icon_new/icon.asm
View File

File diff suppressed because it is too large Load Diff

396
programs/system/keybi/keybi.asm
View File

@ -1,198 +1,198 @@
; Keyboard indicators v0.2 ; Keyboard indicators v0.2
; by Albom and IgorA ; by Albom and IgorA
use32 use32
org 0 org 0
db 'MENUET01' db 'MENUET01'
dd 1 dd 1
dd _start dd _start
dd _end dd _end
dd _memory dd _memory
dd stacktop dd stacktop
dd 0 dd 0
dd sys_path dd sys_path
include '../../macros.inc' include '../../macros.inc'
include '../../proc32.inc' include '../../proc32.inc'
include '../../develop/libraries/box_lib/load_lib.mac' include '../../develop/libraries/box_lib/load_lib.mac'
include '../../develop/libraries/box_lib/trunk/box_lib.mac' include '../../develop/libraries/box_lib/trunk/box_lib.mac'
;include 'mem.inc' ;include 'mem.inc'
;include 'dll.inc' ;include 'dll.inc'
include 'lang.inc' include 'lang.inc' ; Language support for locales: it_IT, en_US.
@use_library ;_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load @use_library ;_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load
align 4 align 4
_start: _start:
load_libraries l_libs_start,l_libs_end load_libraries l_libs_start,l_libs_end
mcall 48,3,sc,sizeof.system_colors mcall 48,3,sc,sizeof.system_colors
mcall 40,0x27 mcall 40,0x27
init_checkboxes2 check_boxes,check_boxes_end init_checkboxes2 check_boxes,check_boxes_end
check_boxes_set_sys_color2 check_boxes,check_boxes_end,sc check_boxes_set_sys_color2 check_boxes,check_boxes_end,sc
call _key_set call _key_set
align 4 align 4
red_win: red_win:
call draw_window call draw_window
align 4 align 4
still: still:
mcall 10 mcall 10
cmp al,1 ;èçì. ïîëîæåíèå îêíà cmp al,1 ;èçì. ïîëîæåíèå îêíà
jz red_win jz red_win
cmp al,2 cmp al,2
jz key jz key
cmp al,3 cmp al,3
jz button jz button
;stdcall [check_box_mouse], ch1 ;stdcall [check_box_mouse], ch1
;stdcall [check_box_mouse], ch2 ;stdcall [check_box_mouse], ch2
;stdcall [check_box_mouse], ch3 ;stdcall [check_box_mouse], ch3
jmp still jmp still
;óñòàíîâèòü îáùåñèñòåìíûå "ãîðÿ÷èå êëàâèøè" ;óñòàíîâèòü îáùåñèñòåìíûå "ãîðÿ÷èå êëàâèøè"
align 4 align 4
_key_set: _key_set:
mov eax, 66 mov eax, 66
mov ebx, 4 mov ebx, 4
mov edx, 0 mov edx, 0
mov cl, 69 mov cl, 69
int 0x40 int 0x40
mov eax, 66 mov eax, 66
mov ebx, 4 mov ebx, 4
mov edx, 0 mov edx, 0
mov cl, 58 mov cl, 58
int 0x40 int 0x40
mov eax, 66 mov eax, 66
mov ebx, 4 mov ebx, 4
mov edx, 0 mov edx, 0
mov cl, 70 mov cl, 70
int 0x40 int 0x40
ret ret
align 4 align 4
draw_window: draw_window:
pushad pushad
mcall 12,1 mcall 12,1
mov edx, [sc.work] mov edx, [sc.work]
or edx, 0x34000000 or edx, 0x34000000
mcall 0, (10 shl 16)+100, (10 shl 16)+75 mcall 0, (10 shl 16)+100, (10 shl 16)+75
stdcall [check_box_draw], ch1 stdcall [check_box_draw], ch1
stdcall [check_box_draw], ch2 stdcall [check_box_draw], ch2
stdcall [check_box_draw], ch3 stdcall [check_box_draw], ch3
mcall 12,2 mcall 12,2
popad popad
ret ret
align 4 align 4
key: key:
mcall 2 mcall 2
call _indicators_check call _indicators_check
jmp still jmp still
align 4 align 4
_indicators_check: _indicators_check:
pusha pusha
mov eax, 66 mov eax, 66
mov ebx, 3 mov ebx, 3
int 40h int 40h
test_ins: test_ins:
test eax, 0x80 test eax, 0x80
jz @f jz @f
bts dword[ch1.flags],1 bts dword[ch1.flags],1
jmp test_caps jmp test_caps
@@: @@:
btr dword[ch1.flags],1 btr dword[ch1.flags],1
test_caps: test_caps:
test eax, 0x40 test eax, 0x40
jz @f jz @f
bts dword[ch2.flags],1 bts dword[ch2.flags],1
jmp test_scroll jmp test_scroll
@@: @@:
btr dword[ch2.flags],1 btr dword[ch2.flags],1
test_scroll: test_scroll:
test eax, 0x100 test eax, 0x100
jz @f jz @f
bts dword[ch3.flags],1 bts dword[ch3.flags],1
jmp test_ok jmp test_ok
@@: @@:
btr dword[ch3.flags],1 btr dword[ch3.flags],1
test_ok: test_ok:
call draw_window call draw_window
popa popa
ret ret
align 4 align 4
button: button:
mcall 17 mcall 17
cmp ah,1 cmp ah,1
jne still jne still
.exit: .exit:
mcall -1 mcall -1
check_boxes: check_boxes:
ch1 check_box2 (5 shl 16)+15,(5 shl 16)+10,5, 0xffffff,0x8000,0xff,\ ch1 check_box2 (5 shl 16)+15,(5 shl 16)+10,5, 0xffffff,0x8000,0xff,\
txt_160,0+ch_flag_middle txt_160,0+ch_flag_middle
ch2 check_box2 (5 shl 16)+15,(17 shl 16)+10,5, 0xffffff,0x8000,0xff,\ ch2 check_box2 (5 shl 16)+15,(17 shl 16)+10,5, 0xffffff,0x8000,0xff,\
txt_159,0+ch_flag_middle txt_159,0+ch_flag_middle
ch3 check_box2 (5 shl 16)+15,(29 shl 16)+10,5, 0xffffff,0x8000,0xff,\ ch3 check_box2 (5 shl 16)+15,(29 shl 16)+10,5, 0xffffff,0x8000,0xff,\
txt_158,0+ch_flag_middle txt_158,0+ch_flag_middle
check_boxes_end: check_boxes_end:
if lang eq it_IT if lang eq it_IT
txt_160 db 'Bloc Num',0 txt_160 db 'Bloc Num',0
txt_159 db 'Bloc Maiusc',0 txt_159 db 'Bloc Maiusc',0
txt_158 db 'Bloc Scorr',0 txt_158 db 'Bloc Scorr',0
else else ; Default to en_US
txt_160 db 'Num',0 txt_160 db 'Num',0
txt_159 db 'Caps',0 txt_159 db 'Caps',0
txt_158 db 'Scroll',0 txt_158 db 'Scroll',0
end if end if
head_f_i: head_f_i:
head_f_l db 'Ñèñòåìíàÿ îøèáêà',0 head_f_l db 'Ñèñòåìíàÿ îøèáêà',0
system_dir_0 db '/sys/lib/' system_dir_0 db '/sys/lib/'
lib_name_0 db 'box_lib.obj',0 lib_name_0 db 'box_lib.obj',0
err_msg_found_lib_0 db 'Íå íàéäåíà áèáëèîòåêà box_lib.obj',0 err_msg_found_lib_0 db 'Íå íàéäåíà áèáëèîòåêà box_lib.obj',0
err_msg_import_0 db 'Îøèáêà ïðè èìïîðòå áèáëèîòåêè box_lib',0 err_msg_import_0 db 'Îøèáêà ïðè èìïîðòå áèáëèîòåêè box_lib',0
l_libs_start: l_libs_start:
lib_0 l_libs lib_name_0, sys_path, library_path, system_dir_0,\ lib_0 l_libs lib_name_0, sys_path, library_path, system_dir_0,\
err_msg_found_lib_0,head_f_l,import_box_lib,err_msg_import_0,head_f_i err_msg_found_lib_0,head_f_l,import_box_lib,err_msg_import_0,head_f_i
l_libs_end: l_libs_end:
align 4 align 4
import_box_lib: import_box_lib:
;init dd sz_init ;init dd sz_init
init_checkbox dd sz_init_checkbox init_checkbox dd sz_init_checkbox
check_box_draw dd sz_check_box_draw check_box_draw dd sz_check_box_draw
check_box_mouse dd sz_check_box_mouse check_box_mouse dd sz_check_box_mouse
dd 0,0 dd 0,0
;sz_init db 'lib_init',0 ;sz_init db 'lib_init',0
sz_init_checkbox db 'init_checkbox2',0 sz_init_checkbox db 'init_checkbox2',0
sz_check_box_draw db 'check_box_draw2',0 sz_check_box_draw db 'check_box_draw2',0
sz_check_box_mouse db 'check_box_mouse2',0 sz_check_box_mouse db 'check_box_mouse2',0
;mouse_dd dd 0x0 ;mouse_dd dd 0x0
sc system_colors sc system_colors
_end: _end:
align 32 align 32
rb 2048 rb 2048
stacktop: stacktop:
sys_path rb 1024 sys_path rb 1024
library_path rb 1024 library_path rb 1024
_memory: _memory:

938
programs/system/launch/trunk/launch.asm
View File

@ -1,468 +1,470 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Copyright (C) Vasiliy Kosenko (vkos), 2009 ;; ;; Copyright (C) Vasiliy Kosenko (vkos), 2009 ;;
;; Launch is free software: you can redistribute it and/or modify it under the terms of the GNU ;; ;; Launch is free software: you can redistribute it and/or modify it under the terms of the GNU ;;
;; General Public License as published by the Free Software Foundation, either version 3 ;; ;; General Public License as published by the Free Software Foundation, either version 3 ;;
;; of the License, or (at your option) any later version. ;; ;; of the License, or (at your option) any later version. ;;
;; ;; ;; ;;
;; Launch is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without ;; ;; Launch is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without ;;
;; even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; ;; even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;
;; General Public License for more details. ;; ;; General Public License for more details. ;;
;; ;; ;; ;;
;; You should have received a copy of the GNU General Public License along with Launch. ;; ;; You should have received a copy of the GNU General Public License along with Launch. ;;
;; If not, see <http://www.gnu.org/licenses/>. ;; ;; If not, see <http://www.gnu.org/licenses/>. ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Launch finds program in search dirictories and runs it. ;; ;; Launch finds program in search dirictories and runs it. ;;
;; For more details see readme.txt ;; ;; For more details see readme.txt ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
format binary ; Language support for locales: it_IT, en_US.
APP_NAME fix 'Launch' format binary
APP_VERSION fix '0.1.80.1'
APP_NAME fix 'Launch'
use32 APP_VERSION fix '0.1.80.1'
org 0x0
use32
db 'MENUET01' org 0x0
dd 0x01
dd START db 'MENUET01'
dd APP_END dd 0x01
dd MEM_END dd START
dd APP_STACK dd APP_END
dd args dd MEM_END
dd path dd APP_STACK
dd args
define DEBUG_NO 0 dd path
define DEBUG_CONSOLE 1
define DEBUG_BOARD 2 ;; Not used now define DEBUG_NO 0
define DEBUG_CONSOLE 1
define PATH_MAX_LEN 1024 define DEBUG_BOARD 2 ;; Not used now
define DEBUG_MAX_LEN 8
define DEBUG_DEFAULT 0 define PATH_MAX_LEN 1024
define BUFF_SIZE 1024 define DEBUG_MAX_LEN 8
define DEBUG_DEFAULT 0
include 'proc32.inc' define BUFF_SIZE 1024
include 'macros.inc'
include 'libio.inc' include 'proc32.inc'
include 'dll.inc' include 'macros.inc'
include 'libio.inc'
purge mov include 'dll.inc'
include 'thread.inc' purge mov
include 'ipc.inc'
include 'kobra.inc' include 'thread.inc'
include 'ipc.inc'
;;-------------------------------------------------------------------------------------------------- include 'kobra.inc'
;; Basic initialization
START: ;;--------------------------------------------------------------------------------------------------
;; Initialize process heap ;; Basic initialization
mcall 68,11 START:
test eax, eax ;; Initialize process heap
jz exit mcall 68,11
test eax, eax
;; Import modules jz exit
stdcall dll.Load,importTable
test eax, eax ;; Import modules
jnz exit stdcall dll.Load,importTable
test eax, eax
;;-------------------------------------------------------------------------------------------------- jnz exit
;; Reading config
read_ini_path: ;; Read search path ;;--------------------------------------------------------------------------------------------------
;; First read config in /sys/etc ;; Reading config
invoke ini.get_str, etc_cfg, cfg_main, cfg_path, search_path, PATH_MAX_LEN, empty_str read_ini_path: ;; Read search path
;; First read config in /sys/etc
;; Next, read config from current directory invoke ini.get_str, etc_cfg, cfg_main, cfg_path, search_path, PATH_MAX_LEN, empty_str
;; Find end of path string
.find_path_eol: ;; Next, read config from current directory
mov edi, path ;; Find end of path string
mov ecx, PATH_MAX_LEN .find_path_eol:
xor al, al mov edi, path
cld mov ecx, PATH_MAX_LEN
repne scasb xor al, al
cld
;; Append ext to run path (NOTE: this work only when config file has name <launch-file-name>.cfg and ext size is dword) repne scasb
mov eax, dword [cfg_ext]
dec edi ;; Append ext to run path (NOTE: this work only when config file has name <launch-file-name>.cfg and ext size is dword)
mov dword [edi], eax mov eax, dword [cfg_ext]
mov byte [edi+5], 0 dec edi
mov dword [edi], eax
;; Currently there is no checking for repeating pathes, so we should only concatenate two strings mov byte [edi+5], 0
;; So we need to find end of current search_path string
.find_search_eol: ;; Currently there is no checking for repeating pathes, so we should only concatenate two strings
mov edi, search_path ;; So we need to find end of current search_path string
mov ecx, PATH_MAX_LEN .find_search_eol:
xor al, al mov edi, search_path
;cld mov ecx, PATH_MAX_LEN
repne scasb xor al, al
dec edi ;cld
repne scasb
;; Now we need to correct buffer length dec edi
mov eax, path+PATH_MAX_LEN
sub eax, edi ;; Now we need to correct buffer length
;; Read ini mov eax, path+PATH_MAX_LEN
invoke ini.get_str, path, cfg_main, cfg_path, edi, PATH_MAX_LEN, empty_str sub eax, edi
;; Read ini
read_ini_debug: ;; Read debug options invoke ini.get_str, path, cfg_main, cfg_path, edi, PATH_MAX_LEN, empty_str
;; Read debug options from config files
invoke ini.get_option_str, etc_cfg, cfg_debug, cfg_debug, debug_strings, DEBUG_MAX_LEN, DEBUG_DEFAULT read_ini_debug: ;; Read debug options
invoke ini.get_option_str, path, cfg_debug, cfg_debug, debug_strings, DEBUG_MAX_LEN, eax ;; Read debug options from config files
mov [debug_option], eax invoke ini.get_option_str, etc_cfg, cfg_debug, cfg_debug, debug_strings, DEBUG_MAX_LEN, DEBUG_DEFAULT
invoke ini.get_option_str, path, cfg_debug, cfg_debug, debug_strings, DEBUG_MAX_LEN, eax
test eax, eax ;; No console mov [debug_option], eax
je .ok
test eax, eax ;; No console
jmp .con_init je .ok
.console_err: jmp .con_init
mov byte [debug_option], 0
jmp .ok .console_err:
mov byte [debug_option], 0
.con_init: jmp .ok
stdcall dll.Load, consoleImport
test eax, eax .con_init:
jnz .console_err stdcall dll.Load, consoleImport
invoke con.init, -1, -1, -1, -1, window_title test eax, eax
jnz .console_err
.read_level: invoke con.init, -1, -1, -1, -1, window_title
invoke ini.get_int, etc_cfg, cfg_debug, cfg_level, 0
invoke ini.get_int, path, cfg_debug, cfg_level, eax .read_level:
mov byte [debug_level], al invoke ini.get_int, etc_cfg, cfg_debug, cfg_level, 0
.ok: invoke ini.get_int, path, cfg_debug, cfg_level, eax
mov byte [debug_level], al
read_ini_kobra: .ok:
invoke ini.get_bool, etc_cfg, cfg_kobra, cfg_use, 0
invoke ini.get_bool, path, cfg_kobra, cfg_use, eax read_ini_kobra:
invoke ini.get_bool, etc_cfg, cfg_kobra, cfg_use, 0
mov byte [kobra_use], al invoke ini.get_bool, path, cfg_kobra, cfg_use, eax
;;-------------------------------------------------------------------------------------------------- mov byte [kobra_use], al
;; Parse command line options
parse_args: ;;--------------------------------------------------------------------------------------------------
;; Now parse command line arguments ;; Parse command line options
;; TODO: use optparse library parse_args:
;; Currently the only argument to parse is program name with its' arguments ;; Now parse command line arguments
;; TODO: use optparse library
.skip_spaces: ;; Currently the only argument to parse is program name with its' arguments
mov ecx, -1
mov edi, args .skip_spaces:
mov al, ' ' mov ecx, -1
xor bl, bl mov edi, args
;cld mov al, ' '
repe scasb xor bl, bl
;cld
push edi repe scasb
mov ecx, -1 push edi
@@:
scasb mov ecx, -1
je @f @@:
xchg al, bl scasb
dec edi je @f
scasb xchg al, bl
jne @b dec edi
@@: scasb
mov dword [prog_args], edi jne @b
@@:
pop edi mov dword [prog_args], edi
dec edi
;; Now edi = program name pop edi
dec edi
;;-------------------------------------------------------------------------------------------------- ;; Now edi = program name
;; Finding file
search_file: ;;--------------------------------------------------------------------------------------------------
push edi ;; Finding file
mov esi, search_path search_file:
xchg esi, [esp] push edi
.loop: mov esi, search_path
or dl, dl xchg esi, [esp]
je .prn_dbg .loop:
xor dl, dl or dl, dl
jmp .prn_end je .prn_dbg
.prn_dbg: xor dl, dl
push eax jmp .prn_end
mov al, byte [debug_option] .prn_dbg:
; dec al push eax
test al, al mov al, byte [debug_option]
je .prn_stp ; dec al
mov al, byte [debug_level] test al, al
or al, al je .prn_stp
je .prn_stp mov al, byte [debug_level]
dec al or al, al
or al, al je .prn_stp
je .prn_1 dec al
.prn_1: or al, al
cinvoke con.printf, message_dbg_not_found, buff je .prn_1
.prn_1:
.prn_stp: cinvoke con.printf, message_dbg_not_found, buff
pop eax
.prn_end: .prn_stp:
xor eax, eax ;; When we check is proramme launched we are checking for eax pop eax
xchg esi, [esp] .prn_end:
mov edi, buff xor eax, eax ;; When we check is proramme launched we are checking for eax
.copy_path: xchg esi, [esp]
lodsb mov edi, buff
cmp al, ';' .copy_path:
je .copy_file lodsb
or al, al cmp al, ';'
je exit je .copy_file
stosb or al, al
jmp .copy_path je exit
stosb
.copy_file: jmp .copy_path
xchg esi, [esp]
push esi .copy_file:
.cp_file_loop: xchg esi, [esp]
lodsb push esi
or al, al .cp_file_loop:
je .copy_end lodsb
cmp al, ' ' or al, al
je .copy_end je .copy_end
stosb cmp al, ' '
jmp .cp_file_loop je .copy_end
stosb
.copy_end: jmp .cp_file_loop
pop esi
xor al, al .copy_end:
stosb pop esi
xor al, al
;; Try to launch stosb
mov dword [LaunchStruct.Function], 7 ;; Try to launch
push dword [prog_args]
pop dword [LaunchStruct.Arguments] mov dword [LaunchStruct.Function], 7
mov dword [LaunchStruct.Flags], 0 push dword [prog_args]
mov dword [LaunchStruct.Zero], 0 pop dword [LaunchStruct.Arguments]
mov dword [LaunchStruct.FileNameP], buff mov dword [LaunchStruct.Flags], 0
mcall 70, LaunchStruct mov dword [LaunchStruct.Zero], 0
cmp eax, 0 mov dword [LaunchStruct.FileNameP], buff
jl .loop mcall 70, LaunchStruct
cmp eax, 0
;;-------------------------------------------------------------------------------------------------- jl .loop
;; Exit
exit: ;;--------------------------------------------------------------------------------------------------
mov dword [tid], eax ;; Exit
;; If console is present we should write some info exit:
mov al, byte [debug_option] mov dword [tid], eax
cmp al, DEBUG_CONSOLE ;; If console is present we should write some info
jne .kobra mov al, byte [debug_option]
cmp al, DEBUG_CONSOLE
.write_console: jne .kobra
mov eax, dword [tid]
test eax, eax .write_console:
jz .write_error mov eax, dword [tid]
.write_launched: test eax, eax
cinvoke con.printf, message_ok, buff, eax, eax jz .write_error
jmp .wr_end .write_launched:
.write_error: cinvoke con.printf, message_ok, buff, eax, eax
pop edi jmp .wr_end
cinvoke con.printf, message_error, edi .write_error:
.wr_end: pop edi
invoke con.exit, 0 cinvoke con.printf, message_error, edi
.wr_end:
.kobra: invoke con.exit, 0
mov al, byte [kobra_use]
test al, al .kobra:
je .close mov al, byte [kobra_use]
test al, al
.register: je .close
mov dword [IPC_area], buff
call IPC_init .register:
; jnz .close mov dword [IPC_area], buff
call IPC_init
mov dword [thread_find_buff], another_buff ; jnz .close
call kobra_register mov dword [thread_find_buff], another_buff
test eax, eax call kobra_register
jnz .close
test eax, eax
;; Prepare message jnz .close
mov dword [kobra_message], KOBRA_MESSAGE_LAUNCH_STATE
;; Prepare message
mov eax, dword [tid] mov dword [kobra_message], KOBRA_MESSAGE_LAUNCH_STATE
mov dword [kobra_message+4], eax
mov eax, dword [tid]
.kobra_send: mov dword [kobra_message+4], eax
stdcall kobra_send_message, kobra_group_launch_reactive, kobra_message, 8
.kobra_send:
.close: stdcall kobra_send_message, kobra_group_launch_reactive, kobra_message, 8
mcall -1
.close:
;; End of code mcall -1
;;--------------------------------------------------------------------------------------------------
;; End of code
;;-------------------------------------------------------------------------------------------------- ;;--------------------------------------------------------------------------------------------------
;; Imports
align 16 ;;--------------------------------------------------------------------------------------------------
importTable: ;; Imports
align 16
library libini, 'libconfig.obj' ;, \ importTable:
; libio, 'libio.obj', \
library libini, 'libconfig.obj' ;, \
import libini, \ ; libio, 'libio.obj', \
ini.get_str ,'ini_get_str', \
\; ini.set_str ,'ini_set_str', \ import libini, \
ini.get_int ,'ini_get_int', \ ini.get_str ,'ini_get_str', \
\; ini.set_int ,'ini_set_int', \ \; ini.set_str ,'ini_set_str', \
\; ini.get_color ,'ini_get_color', \ ini.get_int ,'ini_get_int', \
\; ini.set_color ,'ini_set_color', \ \; ini.set_int ,'ini_set_int', \
ini.get_option_str ,'ini_get_option_str', \ \; ini.get_color ,'ini_get_color', \
ini.get_bool ,'ini_get_bool';,\ \; ini.set_color ,'ini_set_color', \
ini.get_option_str ,'ini_get_option_str', \
;import libio, \ ini.get_bool ,'ini_get_bool';,\
; file_find_first,'file_find_first', \
; file_find_next ,'file_find_next', \ ;import libio, \
; file_find_close,'file_find_close', \ ; file_find_first,'file_find_first', \
; file_size ,'file_size', \ ; file_find_next ,'file_find_next', \
; file_open ,'file_open', \ ; file_find_close,'file_find_close', \
; file_read ,'file_read', \ ; file_size ,'file_size', \
; file_write ,'file_write', \ ; file_open ,'file_open', \
; file_seek ,'file_seek', \ ; file_read ,'file_read', \
; file_tell ,'file_tell', \ ; file_write ,'file_write', \
; file_eof? ,'file_eof?', \ ; file_seek ,'file_seek', \
; file_truncate ,'file_truncate', \ ; file_tell ,'file_tell', \
; file_close ,'file_close' ; file_eof? ,'file_eof?', \
; file_truncate ,'file_truncate', \
consoleImport: ; file_close ,'file_close'
library \
conlib, 'console.obj' consoleImport:
library \
import conlib,\ conlib, 'console.obj'
con.init, 'con_init',\
con.exit, 'con_exit',\ import conlib,\
con.printf, 'con_printf' ;,\ con.init, 'con_init',\
; con.write_asciiz, 'con_write_asciiz' con.exit, 'con_exit',\
con.printf, 'con_printf' ;,\
;;-------------------------------------------------------------------------------------------------- ; con.write_asciiz, 'con_write_asciiz'
;; Data
align 16 ;;--------------------------------------------------------------------------------------------------
APP_DATA: ;; Data
align 16
;; Window title APP_DATA:
window_title:
db APP_NAME, ' ', APP_VERSION, 0 ;; Window title
window_title:
;; Messages db APP_NAME, ' ', APP_VERSION, 0
if lang eq it_IT
message_dbg_not_found: ;; Messages
db '%s non trovato', 10, 0 if lang eq it_IT
message_dbg_not_found:
message_error: db '%s non trovato', 10, 0
db 'File (%s) non trovato!', 0
message_error:
message_ok: db 'File (%s) non trovato!', 0
db '%s caricato correttamente. PID: %d (0x%X)', 0
else message_ok:
message_dbg_not_found: db '%s caricato correttamente. PID: %d (0x%X)', 0
db '%s not found', 10, 0 else ; Default to en_US
message_dbg_not_found:
message_error: db '%s not found', 10, 0
db 'File (%s) not found!', 0
message_error:
message_ok: db 'File (%s) not found!', 0
db '%s loaded succesfully. PID: %d (0x%X)', 0
end if message_ok:
;; Configuration path db '%s loaded successfully. PID: %d (0x%X)', 0
etc_cfg: end if
db '/sys/etc/' ;; Configuration path
cfg_name: etc_cfg:
db 'launch' db '/sys/etc/'
cfg_ext: cfg_name:
db '.cfg', 0 db 'launch'
cfg_ext:
;; Strings in config file db '.cfg', 0
cfg_main:
db 'main', 0 ;; Strings in config file
cfg_path: cfg_main:
db 'path', 0 db 'main', 0
cfg_debug: cfg_path:
db 'debug', 0 db 'path', 0
cfg_level: cfg_debug:
db 'level', 0 db 'debug', 0
cfg_kobra: cfg_level:
db 'kobra', 0 db 'level', 0
cfg_use: cfg_kobra:
db 'use', 0 db 'kobra', 0
cfg_use:
;; List of debug modes for parsing debug option db 'use', 0
debug_strings:
dd debug_no ;; List of debug modes for parsing debug option
dd debug_console debug_strings:
dd 0 dd debug_no
dd debug_console
debug_no: dd 0
db 'no', 0
debug_console: debug_no:
db 'console', 0 db 'no', 0
debug_console:
;; Empty string db 'console', 0
empty_str:
db 0 ;; Empty string
empty_str:
kobra_group_launch_reactive: db 0
db 'launch_reactive', 0
kobra_group_launch_reactive:
;;-------------------------------------------------------------------------------------------------- db 'launch_reactive', 0
;; Configuration options
debug_level: ;;--------------------------------------------------------------------------------------------------
db 0 ;; Configuration options
debug_level:
; debug_kobra: db 0
; db 0
; debug_kobra:
;; debug option (bool) ; db 0
debug_option:
db 0 ;; debug option (bool)
debug_option:
kobra_use: db 0
db 0
kobra_use:
;;-------------------------------------------------------------------------------------------------- db 0
tid:
dd 0 ;;--------------------------------------------------------------------------------------------------
tid:
struct FileInfoRun dd 0
Function dd 7
Flags dd ? struct FileInfoRun
Arguments dd 0 Function dd 7
Reserved0 dd ? Flags dd ?
Reserved1 dd ? Arguments dd 0
union Reserved0 dd ?
FileName rb 1024 Reserved1 dd ?
struct union
Zero db 0 FileName rb 1024
FileNameP dd ? struct
ends Zero db 0
ends FileNameP dd ?
ends ends
ends
LaunchStruct FileInfoRun ends
args: db 0 LaunchStruct FileInfoRun
APP_END:
rb 255 args: db 0
APP_END:
prog_args: rb 255
rd 1
path: prog_args:
rb 1024 rd 1
path:
;; Search path will be here rb 1024
search_path:
rb PATH_MAX_LEN ;; Search path will be here
search_path:
;; Buffer rb PATH_MAX_LEN
buff:
rb BUFF_SIZE ;; Buffer
buff:
another_buff: rb BUFF_SIZE
rb 0x1000
another_buff:
kobra_message: rb 0x1000
rb 0x100
kobra_message:
rb 0x1000 ;; 4 Kb stack rb 0x100
APP_STACK:
MEM_END: rb 0x1000 ;; 4 Kb stack
APP_STACK:
MEM_END:

2132
programs/system/open/open.asm
View File

File diff suppressed because it is too large Load Diff

1402
programs/system/rdsave/trunk/rdsave.asm
View File

File diff suppressed because it is too large Load Diff

4
programs/system/run/trunk/run.asm
View File

@ -7,7 +7,7 @@ include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
include 'txtbut.inc' include 'txtbut.inc'
include '../../../macros.inc' include '../../../macros.inc'
include 'run.mac' include 'run.mac'
include 'lang.inc' include 'lang.inc' ; Language support for locales: ru_RU (CP866), it_IT, en_US.
use32 use32
org 0 org 0
db 'MENUET01' db 'MENUET01'
@ -263,7 +263,7 @@ else if lang eq it_IT
run_ok db 'Il programma eseguito correttamente',0 run_ok db 'Il programma eseguito correttamente',0
grab_text db 'RUN',0 grab_text db 'RUN',0
run_but_text db 'Esegui',0 run_but_text db 'Esegui',0
else else ; Default to en_US
hello db 'Enter full path to file and press <Enter>',0 hello db 'Enter full path to file and press <Enter>',0
bad_file_sys db 'Unknown file system',0 ; 3 bad_file_sys db 'Unknown file system',0 ; 3
file_not_find db 'File not found',0 ; 5 file_not_find db 'File not found',0 ; 5

772
programs/system/skincfg/trunk/idata.inc
View File

@ -1,387 +1,385 @@
;----------------------------------------------------------------------------- ; Language support for locales: ru_RU (CP866), et_EE, en_US.
text:
if lang eq ru_RU ;-----------------------------------------------------------------------------
db ' Unused1 ' text:
db ' Unused2 ' db ' Unused1 '
db ' 3d ⥬­ ï áâ®à®­  ' db ' Unused2 '
db ' 3d ᢥ⫠ï áâ®à®­  ' if lang eq ru_RU
db ' ‡ £®«®¢®ª ®ª­  ' db ' 3D ⥬­ ï áâ®à®­  '
db ' ”®­ ®ª­  ' db ' 3D ᢥ⫠ï áâ®à®­  '
db ' Š­®¯ª  ' db ' ‡ £®«®¢®ª ®ª­  '
db ' ’¥ªáâ ­  ª­®¯ª¥ ' db ' ”®­ ®ª­  '
db ' ’¥ªáâ ¢ ®ª­¥ ' db ' Š­®¯ª  '
db ' ƒà ä¨ª  ¢ ®ª­¥ ' db ' ’¥ªáâ ­  ª­®¯ª¥ '
db 'x' db ' ’¥ªáâ ¢ ®ª­¥ '
else if lang eq et_EE db ' ƒà ä¨ª  ¢ ®ª­¥ '
db ' Unused1 ' db 'x'
db ' Unused2 ' else if lang eq et_EE
db ' 3d dark ' db ' 3D dark '
db ' 3d light ' db ' 3D light '
db ' Akna pealkiri ' db ' Akna pealkiri '
db ' Akna tööpiirkond ' db ' Akna tööpiirkond '
db ' Akna tööpiirkonna nupp ' db ' Akna tööpiirkonna nupp '
db ' Akna tööpiirkonna nuppu tekst ' db ' Akna tööpiirkonna nuppu tekst '
db ' Akna tööpiirkonna tekst ' db ' Akna tööpiirkonna tekst '
db ' Akna tööpiirkonna graafika ' db ' Akna tööpiirkonna graafika '
db 'x' db 'x'
else else ; Default to en_US
db ' Unused1 ' db ' 3D dark '
db ' Unused2 ' db ' 3D light '
db ' 3d dark ' db ' Window title '
db ' 3d light ' db ' Window background '
db ' Window title ' db ' Button '
db ' Window background ' db ' Button text '
db ' Button ' db ' Window text '
db ' Button text ' db ' Window graph '
db ' Window text ' db 'x'
db ' Window graph ' end if
db 'x' ;-----------------------------------------------------------------------------
end if if lang eq ru_RU
;----------------------------------------------------------------------------- sz t1,'‡€ƒ<E282AC>“‡ˆ’œ ‘Ž•<C5BD>€<EFBFBD>ˆ’œ <20><>ˆŒ…<C592>ˆ’œ'
if lang eq ru_RU else if lang eq et_EE
sz t1,'‡€ƒ<E282AC>“‡ˆ’œ ‘Ž•<C5BD>€<EFBFBD>ˆ’œ <20><>ˆŒ…<C592>ˆ’œ' sz t1,' LAADI SALVESTA KINNITA'
else if lang eq et_EE else ; Default to en_US
sz t1,' LAADI SALVESTA KINNITA' sz t1,' LOAD SAVE APPLY'
else end if
sz t1,' LOAD SAVE APPLY' ;-----------------------------------------------------------------------------
end if if lang eq ru_RU
;----------------------------------------------------------------------------- sz t2,'‡€ƒ<E282AC>“‡ˆ’œ 3D <20>‹Ž‘Šˆ… <20><>ˆŒ…<C592>ˆ’œ'
if lang eq ru_RU else if lang eq et_EE
sz t2,'‡€ƒ<E282AC>“‡ˆ’œ 3D <20>‹Ž‘Šˆ… <20><>ˆŒ…<C592>ˆ’œ' sz t2,' LAADI 3D LAME KINNITA'
else if lang eq et_EE else ; Default to en_US
sz t2,' LAADI 3D LAME KINNITA' sz t2,' LOAD 3D FLAT APPLY'
else end if
sz t2,' LOAD 3D FLAT APPLY' ;-----------------------------------------------------------------------------
end if select_dtp_text:
;----------------------------------------------------------------------------- if lang eq ru_RU
select_dtp_text: db ' ‚ë¡®à 梥⮢®£® ®ä®à¬«¥­¨ï: ',0
if lang eq ru_RU else if lang eq et_EE
db ' ‚ë¡®à 梥⮢®£® ®ä®à¬«¥­¨ï: ',0 db ' Valik varviskeeme: ',0
else if lang eq et_EE else ; Default to en_US
db ' Valik varviskeeme: ',0 db ' Choice of color schemes: ',0
else end if
db ' Choice of color schemes: ',0 ;-----------------------------------------------------------------------------
end if select_skin_text:
;----------------------------------------------------------------------------- if lang eq ru_RU
select_skin_text: db ' ‚ë¡®à ᪨­ : ',0
if lang eq ru_RU else if lang eq et_EE
db ' ‚ë¡®à ᪨­ : ',0 db ' Valik nahad: ',0
else if lang eq et_EE else ; Default to en_US
db ' Valik nahad: ',0 db ' Choice of skins: ',0
else end if
db ' Choice of skins: ',0 ;-----------------------------------------------------------------------------
end if if lang eq ru_RU
;----------------------------------------------------------------------------- sz caption_text,'‡ £®«®¢®ª'
if lang eq ru_RU else if lang eq et_EE
sz caption_text,'‡ £®«®¢®ª' sz caption_text,'Pealkiri'
else if lang eq et_EE else ; Default to en_US
sz caption_text,'Pealkiri' sz caption_text,'Caption'
else end if
sz caption_text,'Caption' ;-----------------------------------------------------------------------------
end if sz close_text,'x'
;----------------------------------------------------------------------------- ;-----------------------------------------------------------------------------
sz close_text,'x' if lang eq ru_RU
;----------------------------------------------------------------------------- sz window_text,'’¥ªáâ ¢ ®ª­¥'
if lang eq ru_RU else if lang eq et_EE
sz window_text,'’¥ªáâ ¢ ®ª­¥' sz window_text,'Akna tekst'
else if lang eq et_EE else ; Default to en_US
sz window_text,'Akna tekst' sz window_text,'Window text'
else end if
sz window_text,'Window text' ;-----------------------------------------------------------------------------
end if if lang eq ru_RU
;----------------------------------------------------------------------------- sz button_text,'’¥ªáâ ­  ª­®¯ª¥'
if lang eq ru_RU else if lang eq et_EE
sz button_text,'’¥ªáâ ­  ª­®¯ª¥' sz button_text,'Nupu tekst'
else if lang eq et_EE else ; Default to en_US
sz button_text,'Nupu tekst' sz button_text,'Button text'
else end if
sz button_text,'Button text' ;-----------------------------------------------------------------------------
end if if lang eq ru_RU
;----------------------------------------------------------------------------- title db '<27> áâனª  ®ª®­',0
if lang eq ru_RU else if lang eq et_EE
title db '<27> áâனª  ®ª®­',0 title db 'Akna seaded',0
else if lang eq et_EE else if lang eq it_IT
title db 'Akna seaded',0 title db 'Impostazioni',0
else if lang eq it_IT else ; Default to en_US
title db 'Impostazioni',0 title db 'Windows settings',0
else end if
title db 'Windows settings',0 ;---------------------------------------------------------------------
end if LibIniImportTable:
;--------------------------------------------------------------------- library \
LibIniImportTable: libini, 'libini.obj'
library \
libini, 'libini.obj' import libini, \
ini_set_int ,'ini_set_int'
import libini, \
ini_set_int ,'ini_set_int' aIni db '/sys/settings/system.ini',0
aSectionSkn db 'style',0
aIni db '/sys/settings/system.ini',0 aButtonStyle db 'buttons_gradient',0
aSectionSkn db 'style',0 ;---------------------------------------------------------------------
aButtonStyle db 'buttons_gradient',0 l_libs_start:
;---------------------------------------------------------------------
l_libs_start: library01 l_libs system_dir_Boxlib+9, library_path, system_dir_Boxlib, \
Box_lib_import
library01 l_libs system_dir_Boxlib+9, library_path, system_dir_Boxlib, \
Box_lib_import library02 l_libs system_dir_ProcLib+9, library_path, system_dir_ProcLib, \
ProcLib_import
library02 l_libs system_dir_ProcLib+9, library_path, system_dir_ProcLib, \
ProcLib_import end_l_libs:
;---------------------------------------------------------------------
end_l_libs: system_dir_Boxlib db '/sys/lib/box_lib.obj',0
;--------------------------------------------------------------------- system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
system_dir_Boxlib db '/sys/lib/box_lib.obj',0
system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 ;---------------------------------------------------------------------
align 4
;---------------------------------------------------------------------
align 4 ProcLib_import:
OpenDialog_Init dd aOpenDialog_Init
ProcLib_import: OpenDialog_Start dd aOpenDialog_Start
OpenDialog_Init dd aOpenDialog_Init
OpenDialog_Start dd aOpenDialog_Start ColorDialog_Init dd aColorDialog_Init
ColorDialog_Start dd aColorDialog_Start
ColorDialog_Init dd aColorDialog_Init ;OpenDialog__Version dd aOpenDialog_Version
ColorDialog_Start dd aColorDialog_Start dd 0
;OpenDialog__Version dd aOpenDialog_Version dd 0
dd 0
dd 0 aOpenDialog_Init db 'OpenDialog_init',0
aOpenDialog_Start db 'OpenDialog_start',0
aOpenDialog_Init db 'OpenDialog_init',0
aOpenDialog_Start db 'OpenDialog_start',0 aColorDialog_Init db 'ColorDialog_init',0
aColorDialog_Start db 'ColorDialog_start',0
aColorDialog_Init db 'ColorDialog_init',0 ;aOpenDialog_Version db 'Version_OpenDialog',0
aColorDialog_Start db 'ColorDialog_start',0 ;---------------------------------------------------------------------
;aOpenDialog_Version db 'Version_OpenDialog',0 align 4
;--------------------------------------------------------------------- Box_lib_import:
align 4 ;init_lib dd a_init
Box_lib_import: ;version_lib dd a_version
;init_lib dd a_init
;version_lib dd a_version
;edit_box_draw dd aEdit_box_draw
;edit_box_key dd aEdit_box_key
;edit_box_draw dd aEdit_box_draw ;edit_box_mouse dd aEdit_box_mouse
;edit_box_key dd aEdit_box_key ;version_ed dd aVersion_ed
;edit_box_mouse dd aEdit_box_mouse
;version_ed dd aVersion_ed ;check_box_draw dd aCheck_box_draw
;check_box_mouse dd aCheck_box_mouse
;check_box_draw dd aCheck_box_draw ;version_ch dd aVersion_ch
;check_box_mouse dd aCheck_box_mouse
;version_ch dd aVersion_ch ;option_box_draw dd aOption_box_draw
;option_box_mouse dd aOption_box_mouse
;option_box_draw dd aOption_box_draw ;version_op dd aVersion_op
;option_box_mouse dd aOption_box_mouse
;version_op dd aVersion_op ;scrollbar_ver_draw dd aScrollbar_ver_draw
;scrollbar_ver_mouse dd aScrollbar_ver_mouse
;scrollbar_ver_draw dd aScrollbar_ver_draw ;scrollbar_hor_draw dd aScrollbar_hor_draw
;scrollbar_ver_mouse dd aScrollbar_ver_mouse ;scrollbar_hor_mouse dd aScrollbar_hor_mouse
;scrollbar_hor_draw dd aScrollbar_hor_draw ;version_scrollbar dd aVersion_scrollbar
;scrollbar_hor_mouse dd aScrollbar_hor_mouse
;version_scrollbar dd aVersion_scrollbar ;dinamic_button_draw dd aDbutton_draw
;dinamic_button_mouse dd aDbutton_mouse
;dinamic_button_draw dd aDbutton_draw ;version_dbutton dd aVersion_dbutton
;dinamic_button_mouse dd aDbutton_mouse
;version_dbutton dd aVersion_dbutton ;menu_bar_draw dd aMenu_bar_draw
;menu_bar_mouse dd aMenu_bar_mouse
;menu_bar_draw dd aMenu_bar_draw ;menu_bar_activate dd aMenu_bar_activate
;menu_bar_mouse dd aMenu_bar_mouse ;version_menu_bar dd aVersion_menu_bar
;menu_bar_activate dd aMenu_bar_activate
;version_menu_bar dd aVersion_menu_bar ;FileBrowser_draw dd aFileBrowser_draw
;FileBrowser_mouse dd aFileBrowser_mouse
;FileBrowser_draw dd aFileBrowser_draw ;FileBrowser_key dd aFileBrowser_key
;FileBrowser_mouse dd aFileBrowser_mouse ;Version_FileBrowser dd aVersion_FileBrowser
;FileBrowser_key dd aFileBrowser_key
;Version_FileBrowser dd aVersion_FileBrowser PathShow_prepare dd sz_PathShow_prepare
PathShow_draw dd sz_PathShow_draw
PathShow_prepare dd sz_PathShow_prepare ;Version_path_show dd szVersion_path_show
PathShow_draw dd sz_PathShow_draw
;Version_path_show dd szVersion_path_show Frame_draw dd sz_Frame_draw
;Version_frame dd szVersion_frame
Frame_draw dd sz_Frame_draw
;Version_frame dd szVersion_frame dd 0,0
dd 0,0 ;a_init db 'lib_init',0
;a_version db 'version',0
;a_init db 'lib_init',0
;a_version db 'version',0 ;aEdit_box_draw db 'edit_box_draw',0
;aEdit_box_key db 'edit_box_key',0
;aEdit_box_draw db 'edit_box_draw',0 ;aEdit_box_mouse db 'edit_box_mouse',0
;aEdit_box_key db 'edit_box_key',0 ;aVersion_ed db 'version_ed',0
;aEdit_box_mouse db 'edit_box_mouse',0
;aVersion_ed db 'version_ed',0 ;aCheck_box_draw db 'check_box_draw',0
;aCheck_box_mouse db 'check_box_mouse',0
;aCheck_box_draw db 'check_box_draw',0 ;aVersion_ch db 'version_ch',0
;aCheck_box_mouse db 'check_box_mouse',0
;aVersion_ch db 'version_ch',0 ;aOption_box_draw db 'option_box_draw',0
;aOption_box_mouse db 'option_box_mouse',0
;aOption_box_draw db 'option_box_draw',0 ;aVersion_op db 'version_op',0
;aOption_box_mouse db 'option_box_mouse',0
;aVersion_op db 'version_op',0 ;aScrollbar_ver_draw db 'scrollbar_v_draw',0
;aScrollbar_ver_mouse db 'scrollbar_v_mouse',0
;aScrollbar_ver_draw db 'scrollbar_v_draw',0 ;aScrollbar_hor_draw db 'scrollbar_h_draw',0
;aScrollbar_ver_mouse db 'scrollbar_v_mouse',0 ;aScrollbar_hor_mouse db 'scrollbar_h_mouse',0
;aScrollbar_hor_draw db 'scrollbar_h_draw',0 ;aVersion_scrollbar db 'version_scrollbar',0
;aScrollbar_hor_mouse db 'scrollbar_h_mouse',0
;aVersion_scrollbar db 'version_scrollbar',0 ;aDbutton_draw db 'dbutton_draw',0
;aDbutton_mouse db 'dbutton_mouse',0
;aDbutton_draw db 'dbutton_draw',0 ;aVersion_dbutton db 'version_dbutton',0
;aDbutton_mouse db 'dbutton_mouse',0
;aVersion_dbutton db 'version_dbutton',0 ;aMenu_bar_draw db 'menu_bar_draw',0
;aMenu_bar_mouse db 'menu_bar_mouse',0
;aMenu_bar_draw db 'menu_bar_draw',0 ;aMenu_bar_activate db 'menu_bar_activate',0
;aMenu_bar_mouse db 'menu_bar_mouse',0 ;aVersion_menu_bar db 'version_menu_bar',0
;aMenu_bar_activate db 'menu_bar_activate',0
;aVersion_menu_bar db 'version_menu_bar',0 ;aFileBrowser_draw db 'FileBrowser_draw',0
;aFileBrowser_mouse db 'FileBrowser_mouse',0
;aFileBrowser_draw db 'FileBrowser_draw',0 ;aFileBrowser_key db 'FileBrowser_key',0
;aFileBrowser_mouse db 'FileBrowser_mouse',0 ;aVersion_FileBrowser db 'version_FileBrowser',0
;aFileBrowser_key db 'FileBrowser_key',0
;aVersion_FileBrowser db 'version_FileBrowser',0 sz_PathShow_prepare db 'PathShow_prepare',0
sz_PathShow_draw db 'PathShow_draw',0
sz_PathShow_prepare db 'PathShow_prepare',0 ;szVersion_path_show db 'version_PathShow',0
sz_PathShow_draw db 'PathShow_draw',0
;szVersion_path_show db 'version_PathShow',0 sz_Frame_draw db 'frame_draw',0
;szVersion_frame db 'version_frame',0
sz_Frame_draw db 'frame_draw',0 ;---------------------------------------------------------------------
;szVersion_frame db 'version_frame',0 PathShow_data_1:
;--------------------------------------------------------------------- .type dd 0 ;+0
PathShow_data_1: .start_y dw frame_1.y+19 ;+4
.type dd 0 ;+0 .start_x dw frame_1.x+15 ;+6
.start_y dw frame_1.y+19 ;+4 .font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1
.start_x dw frame_1.x+15 ;+6 .area_size_x dw frame_1.w-28 ;+10
.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 .font_number dd 0 ;+12 ; 0 - monospace, 1 - variable
.area_size_x dw frame_1.w-28 ;+10 .background_flag dd 0 ;+16
.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable .font_color dd 0x0 ;+20
.background_flag dd 0 ;+16 .background_color dd 0x0 ;+24
.font_color dd 0x0 ;+20 .text_pointer dd dtp_name ;+28
.background_color dd 0x0 ;+24 .work_area_pointer dd text_work_area ;+32
.text_pointer dd dtp_name ;+28 .temp_text_length dd 0 ;+36
.work_area_pointer dd text_work_area ;+32 ;---------------------------------------------------------------------
.temp_text_length dd 0 ;+36 PathShow_data_2:
;--------------------------------------------------------------------- .type dd 0 ;+0
PathShow_data_2: .start_y dw frame_2.y+19 ;+4
.type dd 0 ;+0 .start_x dw frame_2.x+15 ;+6
.start_y dw frame_2.y+19 ;+4 .font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1
.start_x dw frame_2.x+15 ;+6 .area_size_x dw frame_2.w-28 ;+10
.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 .font_number dd 0 ;+12 ; 0 - monospace, 1 - variable
.area_size_x dw frame_2.w-28 ;+10 .background_flag dd 0 ;+16
.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable .font_color dd 0x0 ;+20
.background_flag dd 0 ;+16 .background_color dd 0x0 ;+24
.font_color dd 0x0 ;+20 .text_pointer dd skin_info ;+28
.background_color dd 0x0 ;+24 .work_area_pointer dd text_work_area2 ;+32
.text_pointer dd skin_info ;+28 .temp_text_length dd 0 ;+36
.work_area_pointer dd text_work_area2 ;+32 ;---------------------------------------------------------------------
.temp_text_length dd 0 ;+36 OpenDialog_data:
;--------------------------------------------------------------------- .type dd 0
OpenDialog_data: .procinfo dd procinfo ;+4
.type dd 0 .com_area_name dd communication_area_name ;+8
.procinfo dd procinfo ;+4 .com_area dd 0 ;+12
.com_area_name dd communication_area_name ;+8 .opendir_pach dd temp_dir_pach ;+16
.com_area dd 0 ;+12 .dir_default_pach dd communication_area_default_pach ;+20
.opendir_pach dd temp_dir_pach ;+16 .start_path dd open_dialog_path ;+24
.dir_default_pach dd communication_area_default_pach ;+20 .draw_window dd draw_window ;+28
.start_path dd open_dialog_path ;+24 .status dd 0 ;+32
.draw_window dd draw_window ;+28 .openfile_pach dd dtp_name ;+36
.status dd 0 ;+32 .filename_area dd filename_area ;+40
.openfile_pach dd dtp_name ;+36 .filter_area dd Filter
.filename_area dd filename_area ;+40 .x:
.filter_area dd Filter .x_size dw 420 ;+48 ; Window X size
.x: .x_start dw 10 ;+50 ; Window X position
.x_size dw 420 ;+48 ; Window X size .y:
.x_start dw 10 ;+50 ; Window X position .y_size dw 320 ;+52 ; Window y size
.y: .y_start dw 10 ;+54 ; Window Y position
.y_size dw 320 ;+52 ; Window y size
.y_start dw 10 ;+54 ; Window Y position OpenDialog_data2:
.type dd 0
OpenDialog_data2: .procinfo dd procinfo ;+4
.type dd 0 .com_area_name dd communication_area_name2 ;+8
.procinfo dd procinfo ;+4 .com_area dd 0 ;+12
.com_area_name dd communication_area_name2 ;+8 .opendir_pach dd temp_dir_pach2 ;+16
.com_area dd 0 ;+12 .dir_default_pach dd communication_area_default_pach ;+20
.opendir_pach dd temp_dir_pach2 ;+16 .start_path dd open_dialog_path ;+24
.dir_default_pach dd communication_area_default_pach ;+20 .draw_window dd draw_window ;+28
.start_path dd open_dialog_path ;+24 .status dd 0 ;+32
.draw_window dd draw_window ;+28 .openfile_pach dd skin_info ;+36
.status dd 0 ;+32 .filename_area dd filename_area2 ;+40
.openfile_pach dd skin_info ;+36 .filter_area dd Filter2
.filename_area dd filename_area2 ;+40 .x:
.filter_area dd Filter2 .x_size dw 420 ;+48 ; Window X size
.x: .x_start dw 10 ;+50 ; Window X position
.x_size dw 420 ;+48 ; Window X size .y:
.x_start dw 10 ;+50 ; Window X position .y_size dw 320 ;+52 ; Window y size
.y: .y_start dw 10 ;+54 ; Window Y position
.y_size dw 320 ;+52 ; Window y size
.y_start dw 10 ;+54 ; Window Y position communication_area_name2:
db 'FFFFFFFF_open_dialog',0
communication_area_name2:
db 'FFFFFFFF_open_dialog',0 communication_area_name:
db 'FFFFFFFF_open_dialog2',0
communication_area_name: open_dialog_path:
db 'FFFFFFFF_open_dialog2',0 if __nightbuild eq yes
open_dialog_path: db '/sys/MANAGERS/opendial',0
if __nightbuild eq yes else
db '/sys/MANAGERS/opendial',0 db '/sys/File Managers/opendial',0
else end if
db '/sys/File Managers/opendial',0 communication_area_default_pach:
end if db '/sys',0
communication_area_default_pach:
db '/sys',0 Filter:
dd Filter.end - Filter
Filter: .1:
dd Filter.end - Filter db 'DTP',0
.1: .end:
db 'DTP',0 db 0
.end:
db 0 Filter2:
dd Filter.end - Filter
Filter2: .1:
dd Filter.end - Filter db 'SKN',0
.1: .end:
db 'SKN',0 db 0
.end:
db 0 default_skin:
db '/sys/default.skn',0
default_skin: default_dtp:
db '/sys/default.skn',0 db '/sys/default.dtp',0
default_dtp: ;---------------------------------------------------------------------
db '/sys/default.dtp',0 ColorDialog_data:
;--------------------------------------------------------------------- .type dd 0
ColorDialog_data: .procinfo dd procinfo ;+4
.type dd 0 .com_area_name dd cd_communication_area_name ;+8
.procinfo dd procinfo ;+4 .com_area dd 0 ;+12
.com_area_name dd cd_communication_area_name ;+8 .start_path dd colordialog_path ;+16
.com_area dd 0 ;+12 .draw_window dd draw_window ;+20
.start_path dd colordialog_path ;+16 .status dd 0 ;+24
.draw_window dd draw_window ;+20 .x:
.status dd 0 ;+24 .x_size dw 510 ;+28 ; Window X size
.x: .x_start dw 10 ;+30 ; Window X position
.x_size dw 510 ;+28 ; Window X size .y:
.x_start dw 10 ;+30 ; Window X position .y_size dw 310 ;+32 ; Window y size
.y: .y_start dw 10 ;+34 ; Window Y position
.y_size dw 310 ;+32 ; Window y size .color_type dd 0 ;+36 ; 0- RGB, 1 or other - reserved
.y_start dw 10 ;+34 ; Window Y position .color dd 0 ;+40 ; Selected color
.color_type dd 0 ;+36 ; 0- RGB, 1 or other - reserved
.color dd 0 ;+40 ; Selected color cd_communication_area_name:
db 'FFFFFFFF_color_dialog',0
cd_communication_area_name: colordialog_path:
db 'FFFFFFFF_color_dialog',0 db '/sys/colrdial',0
colordialog_path: ;---------------------------------------------------------------------
db '/sys/colrdial',0 frame_data:
;--------------------------------------------------------------------- .type dd 0 ;+0
frame_data: .x:
.type dd 0 ;+0 .x_size dw 0 ;+4
.x: .x_start dw 0 ;+6
.x_size dw 0 ;+4 .y:
.x_start dw 0 ;+6 .y_size dw 0 ;+8
.y: .y_start dw 0 ;+10
.y_size dw 0 ;+8 .ext_fr_col dd 0x0 ;+12
.y_start dw 0 ;+10 .int_fr_col dd 0xffffff ;+16
.ext_fr_col dd 0x0 ;+12 .draw_text_flag dd 1 ;+20
.int_fr_col dd 0xffffff ;+16 .text_pointer dd 0 ;+24
.draw_text_flag dd 1 ;+20 .text_position dd 0 ;+28
.text_pointer dd 0 ;+24 .font_number dd 1 ;+32
.text_position dd 0 ;+28 .font_size_y dd 14 ;+36
.font_number dd 1 ;+32 .font_color dd 0x0 ;+40
.font_size_y dd 14 ;+36 .font_backgr_color dd 0xffffff ;+44
.font_color dd 0x0 ;+40 ;---------------------------------------------------------------------
.font_backgr_color dd 0xffffff ;+44 IncludeIGlobals
;---------------------------------------------------------------------
IncludeIGlobals

50
programs/system/skincfg/trunk/skincfg.asm
View File

@ -26,7 +26,7 @@
M01header.params: M01header.params:
dd app_param ; parameters dd app_param ; parameters
dd cur_dir_path ; path to file dd cur_dir_path ; path to file
include 'lang.inc' include 'lang.inc'
include '../../../proc32.inc' include '../../../proc32.inc'
include '../../../config.inc' ;for nightbuild include '../../../config.inc' ;for nightbuild
@ -85,7 +85,7 @@ frame_1:
.y = area.y + area.height + 20 .y = area.y + area.height + 20
.w = area.w + 217 .w = area.w + 217
.height = 65 .height = 65
;-------------------------------------- ;--------------------------------------
frame_2: frame_2:
.x = frame_1.x .x = frame_1.x
.y = frame_1.y + frame_1.height + 20 .y = frame_1.y + frame_1.height + 20
@ -99,11 +99,11 @@ win:
START: ; start of execution START: ; start of execution
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
mcall SF_SYS_MISC,SSF_HEAP_INIT mcall SF_SYS_MISC,SSF_HEAP_INIT
test eax,eax
jz close
stdcall dll.Load,LibIniImportTable test eax,eax
jz close
stdcall dll.Load,LibIniImportTable
load_libraries l_libs_start,end_l_libs load_libraries l_libs_start,end_l_libs
;if return code =-1 then exit, else nornary work ;if return code =-1 then exit, else nornary work
@ -125,7 +125,7 @@ load_libraries l_libs_start,end_l_libs
cmp ecx, '.dtp' cmp ecx, '.dtp'
je load_dtp_from_param je load_dtp_from_param
jmp no_param jmp no_param
load_dtp_from_param: load_dtp_from_param:
stdcall string.copy, [M01header.params], dtp_name stdcall string.copy, [M01header.params], dtp_name
call load_dtp_file.1 call load_dtp_file.1
@ -139,8 +139,8 @@ load_skin_from_param:
no_param: no_param:
mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,color_table,4*10 ; get current colors mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,color_table,4*10 ; get current colors
call load_skin_file.2 call load_skin_file.2
skin_path_ready: skin_path_ready:
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
;OpenDialog initialisation ;OpenDialog initialisation
push dword OpenDialog_data push dword OpenDialog_data
@ -156,13 +156,13 @@ skin_path_ready:
; prepare for PathShow ; prepare for PathShow
push dword PathShow_data_1 push dword PathShow_data_1
call [PathShow_prepare] call [PathShow_prepare]
push dword PathShow_data_2 push dword PathShow_data_2
call [PathShow_prepare] call [PathShow_prepare]
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
red: red:
call draw_window ; at first, draw the window call draw_window ; at first, draw the window
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
still: still:
mcall SF_WAIT_EVENT mcall SF_WAIT_EVENT
@ -250,19 +250,19 @@ no_apply_skin:
cmp ah,41 cmp ah,41
jg no_new_colour jg no_new_colour
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
.start_ColorDialog: .start_ColorDialog:
push dword ColorDialog_data push dword ColorDialog_data
call [ColorDialog_Start] call [ColorDialog_Start]
; 2 - use another method/not found program ; 2 - use another method/not found program
cmp [ColorDialog_data.status],2 cmp [ColorDialog_data.status],2
je still je still
; 1 - OK, color selected ; 1 - OK, color selected
cmp [ColorDialog_data.status],1 cmp [ColorDialog_data.status],1
jne still jne still
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
shr eax,8 shr eax,8
sub eax,31 sub eax,31
shl eax,2 shl eax,2
@ -449,9 +449,9 @@ newcol:
add bx,4 add bx,4
sub ecx,2 shl 16 sub ecx,2 shl 16
add cx,4 add cx,4
mov [frame_data.x],ebx mov [frame_data.x],ebx
mov [frame_data.y],ecx mov [frame_data.y],ecx
push dword frame_data push dword frame_data
call [Frame_draw] call [Frame_draw]
@ -473,7 +473,7 @@ draw_PathShow:
; draw for PathShow ; draw for PathShow
push dword PathShow_data_1 push dword PathShow_data_1
call [PathShow_draw] call [PathShow_draw]
push dword PathShow_data_2 push dword PathShow_data_2
call [PathShow_draw] call [PathShow_draw]
popa popa
@ -498,7 +498,7 @@ draw_window:
mcall ,<110, win.w>,,,,title mcall ,<110, win.w>,,,,title
mcall SF_THREAD_INFO,procinfo,-1 mcall SF_THREAD_INFO,procinfo,-1
mov eax,[procinfo+70] ;status of window mov eax,[procinfo+70] ;status of window
test eax,100b test eax,100b
jne .end jne .end
@ -527,8 +527,8 @@ draw_window:
mcall SF_DEFINE_BUTTON,,,16 ; button 17 mcall SF_DEFINE_BUTTON,,,16 ; button 17
; select color DTP button text ; select color DTP button text
mcall SF_DRAW_TEXT,<frame_1.x+16,frame_1.y+44>,[w_work_button_text],t1,t1.size mcall SF_DRAW_TEXT,<frame_1.x+16,frame_1.y+44>,[w_work_button_text],t1,t1.size
;----------------------------------- ;-----------------------------------
; select skin frame ; select skin frame
; LOAD SKIN BUTTON ; button 17 ; LOAD SKIN BUTTON ; button 17
mcall SF_DEFINE_BUTTON,<frame_2.x+10,load_w>,<frame_2.y+38,18>,17,[w_work_button] mcall SF_DEFINE_BUTTON,<frame_2.x+10,load_w>,<frame_2.y+38,18>,17,[w_work_button]
; 3D ; 3D
@ -543,7 +543,7 @@ draw_window:
mcall ,,,18 ; button 18 mcall ,,,18 ; button 18
; select skin button text ; select skin button text
mcall SF_DRAW_TEXT,<frame_2.x+16,frame_2.y+44>,[w_work_button_text],t2,t2.size mcall SF_DRAW_TEXT,<frame_2.x+16,frame_2.y+44>,[w_work_button_text],t2,t2.size
;----------------------------------- ;-----------------------------------
call draw_button_row call draw_button_row
call draw_button_row_of_texts call draw_button_row_of_texts
call draw_colours call draw_colours
@ -556,7 +556,7 @@ draw_window:
mov eax,[w_work_text] mov eax,[w_work_text]
mov [frame_data.font_color],eax mov [frame_data.font_color],eax
mov [frame_data.draw_text_flag],dword 1 mov [frame_data.draw_text_flag],dword 1
push dword frame_data push dword frame_data
call [Frame_draw] call [Frame_draw]
;----------------------------------- ;-----------------------------------

2356
programs/system/taskbar/trunk/TASKBAR.ASM
View File

File diff suppressed because it is too large Load Diff

20
programs/system/taskbar/trunk/ctx_menu.asm
View File

@ -144,21 +144,21 @@ n_slot rd 1
ctx_menu_PID rd 1 ctx_menu_PID rd 1
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
lsz ctx_menu_text,\ lsz ctx_menu_text,\
ru, <"X ‡ ªàëâì Alt + F4",0>,\ ru_RU, <"X ‡ ªàëâì Alt + F4",0>,\
en, <"X Close Alt + F4",0>,\ en_US, <"X Close Alt + F4",0>,\
et, <"X Sulge Alt + F4",0>,\ et_EE, <"X Sulge Alt + F4",0>,\
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
lsz ctx_menu_text2,\ lsz ctx_menu_text2,\
ru, <25," ‘¢¥à­ãâì ",0>,\ ru_RU, <25," ‘¢¥à­ãâì ",0>,\
en, <25," Minimize ",0>,\ en_US, <25," Minimize ",0>,\
et, <25," Minimeeri ",0>,\ et_EE, <25," Minimeeri ",0>,\
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
lsz ctx_menu_text3,\ lsz ctx_menu_text3,\
ru, <24," ‚®ááâ ­®¢¨âì ",0>,\ ru_RU, <24," ‚®ááâ ­®¢¨âì ",0>,\
en, <24," Restore ",0>,\ en_US, <24," Restore ",0>,\
et, <24," Taasta ",0> et_EE, <24," Taasta ",0>
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
ctx_menu_title: ctx_menu_title:
db 'KolibriOS' db 'KolibriOS'
ctx_menu_title_end: ctx_menu_title_end:
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------

50
programs/system/taskbar/trunk/drawwind.inc
View File

@ -35,7 +35,7 @@ no_def_width:
cmp [place_attachment],1 cmp [place_attachment],1
je @f je @f
xor ecx,ecx xor ecx,ecx
mov cx,[height] mov cx,[height]
dec cx dec cx
@ -51,19 +51,19 @@ align 4
;-------------------------------------- ;--------------------------------------
align 4 align 4
.attachment_selected: .attachment_selected:
xor eax,eax ; DEFINE AND DRAW WINDOW xor eax,eax ; DEFINE AND DRAW WINDOW
mov edx, [wcolor] mov edx, [wcolor]
or edx, 0x01000000 ; do not draw the window or edx, 0x01000000 ; do not draw the window
mov esi, [wcolor] mov esi, [wcolor]
or esi, 0x01000000 ; unmovable window or esi, 0x01000000 ; unmovable window
mov edi, [wcolor] mov edi, [wcolor]
mov [panel_x_pos], ebx mov [panel_x_pos], ebx
mov [panel_y_pos], ecx ; Ïîêà ÷òî òàê. mov [panel_y_pos], ecx ; So far ok
mcall mcall
movzx eax,word [screenxy+2] movzx eax,word [screenxy+2]
mov [max_x],eax mov [max_x],eax
call fill_window call fill_window
call minimize_left_button call minimize_left_button
call minimize_right_button call minimize_right_button
@ -78,7 +78,7 @@ align 4
ret ret
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
fill_window: fill_window:
movzx ebx,word [screenxy+2] movzx ebx,word [screenxy+2]
xor ecx,ecx xor ecx,ecx
mov edx,[wcolor] mov edx,[wcolor]
@ -192,7 +192,7 @@ align 4
.exit: .exit:
ret ret
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
minimize_right_button: minimize_right_button:
cmp [minimize_right],dword 0 cmp [minimize_right],dword 0
je .exit je .exit
@ -247,19 +247,19 @@ align 4
mov ecx, [height] mov ecx, [height]
mov edx, 0x60d1ff01 mov edx, 0x60d1ff01
mcall 8,,,,[wcolor] ; MENU BUTTON mcall 8,,,,[wcolor] ; MENU BUTTON
mov eax,ebx mov eax,ebx
shr eax,16 shr eax,16
mov [menu_button_x.start],eax mov [menu_button_x.start],eax
mov eax,ebx mov eax,ebx
and eax,0xffff and eax,0xffff
mov [menu_button_x.size],eax mov [menu_button_x.size],eax
mov eax,ecx mov eax,ecx
shr eax,16 shr eax,16
mov [menu_button_y.start],eax mov [menu_button_y.start],eax
mov eax,ecx mov eax,ecx
and eax,0xffff and eax,0xffff
mov [menu_button_y.size],eax mov [menu_button_y.size],eax
@ -268,7 +268,7 @@ align 4
mov edx,[MenuButton_color] ;0x44aa44 mov edx,[MenuButton_color] ;0x44aa44
mov esi,[wcolor] mov esi,[wcolor]
add ebx,3 shl 16 - 5 add ebx,3 shl 16 - 5
call draw_appl_button call draw_appl_button
add ebx, 4*65536 add ebx, 4*65536
mov bx,[height] mov bx,[height]
@ -276,7 +276,7 @@ align 4
sub bx,7 sub bx,7
mov ecx,[PanelText_color] mov ecx,[PanelText_color]
or ecx,0x10000000 or ecx,0x10000000
if lang eq et_EE if lang eq et_ET
mcall 4,,,m_text,5 mcall 4,,,m_text,5
else else
mcall 4,,,m_text,4 mcall 4,,,m_text,4
@ -289,7 +289,7 @@ no_menu:
je .exit je .exit
; calculate and draw clean desktop button ; calculate and draw clean desktop button
mov ebx, (0 shl 16) + CLD_SIZE-5 mov ebx, (0 shl 16) + CLD_SIZE-5
; check for left minimize button enabled ; check for left minimize button enabled
cmp [minimize_left],dword 0 cmp [minimize_left],dword 0
je @f je @f
@ -300,7 +300,7 @@ align 4
; check for menu button enabled ; check for menu button enabled
cmp [menu_enable],dword 0 cmp [menu_enable],dword 0
je @f je @f
add ebx, MENU_SIZE shl 16 add ebx, MENU_SIZE shl 16
;-------------------------------------- ;--------------------------------------
align 4 align 4
@ -311,7 +311,7 @@ align 4
mov edx, 0x60000000 + 103 mov edx, 0x60000000 + 103
mov ecx, [height] mov ecx, [height]
mcall 8 ;,,<3,13> mcall 8 ;,,<3,13>
call calculate_button_y_coordinate_and_size call calculate_button_y_coordinate_and_size
mov edx,[CleanDesktopButton_color] ;time_bgr_color mov edx,[CleanDesktopButton_color] ;time_bgr_color
mov esi,[wcolor] mov esi,[wcolor]
@ -354,31 +354,31 @@ align 4
@@: @@:
cmp [clock_enable],dword 0 cmp [clock_enable],dword 0
je @f je @f
sub eax,CLOCK_SIZE sub eax,CLOCK_SIZE
;-------------------------------------- ;--------------------------------------
align 4 align 4
@@: @@:
cmp [cpu_usage_enable],dword 0 cmp [cpu_usage_enable],dword 0
je @f je @f
sub eax,CPU_USAGE_SIZE sub eax,CPU_USAGE_SIZE
;-------------------------------------- ;--------------------------------------
align 4 align 4
@@: @@:
cmp [chlang_enable],dword 0 cmp [chlang_enable],dword 0
je @f je @f
sub eax,CHLANG_SIZE sub eax,CHLANG_SIZE
;-------------------------------------- ;--------------------------------------
align 4 align 4
@@: @@:
cmp [page_list_enable],dword 0 cmp [page_list_enable],dword 0
je @f je @f
sub eax,PAGE_LIST_SIZE sub eax,PAGE_LIST_SIZE
;-------------------------------------- ;--------------------------------------
align 4 align 4
@@: @@:
mov ebx, TAB_SIZE mov ebx, TAB_SIZE
xor edx,edx xor edx,edx
@ -419,11 +419,11 @@ calculate_offset_X:
add eax, ML_SIZE add eax, ML_SIZE
;-------------------------------------- ;--------------------------------------
align 4 align 4
@@: @@:
; check for menu button enabled ; check for menu button enabled
cmp [menu_enable],dword 0 cmp [menu_enable],dword 0
je @f je @f
add eax, MENU_SIZE add eax, MENU_SIZE
;-------------------------------------- ;--------------------------------------
align 4 align 4

8610
programs/testing/cpuid/trunk/CPUID.ASM
View File

File diff suppressed because it is too large Load Diff

1860
programs/testing/disptest/trunk/disptest.ASM
View File

File diff suppressed because it is too large Load Diff

604
programs/testing/fspeed/idata.inc
View File

@ -1,301 +1,303 @@
;----------------------------------------------------------------------------- ; Language support for locales: ru_RU (CP866), en_US.
s_text:
if lang eq ru_RU ;-----------------------------------------------------------------------------
db '‚ë¡®à ä ©« ',0 s_text:
else if lang eq ru_RU
db 'Select file',0 db '‚ë¡®à ä ©« ',0
end if else ; Default to en_US
;----------------------------------------------------------------------------- db 'Select file',0
r_text: end if
if lang eq ru_RU ;-----------------------------------------------------------------------------
db '<27>ãáª',0 r_text:
else if lang eq ru_RU
db 'Start',0 db '<27>ãáª',0
end if else ; Default to en_US
;----------------------------------------------------------------------------- db 'Start',0
result_table_text: end if
if lang eq ru_RU ;-----------------------------------------------------------------------------
db '<27> §¬¥à —⥭¨¥ (Š<>/á) ‡ ¯¨áì (Š<>/á)',0 result_table_text:
else if lang eq ru_RU
db 'Size Read (KB/s) Write (KB/s)',0 db '<27> §¬¥à —⥭¨¥ (Š<>/á) ‡ ¯¨áì (Š<>/á)',0
end if else ; Default to en_US
;----------------------------------------------------------------------------- db 'Size Read (KB/s) Write (KB/s)',0
title db 'File Speed v0.3',0 end if
;----------------------------------------------------------------------------- ;-----------------------------------------------------------------------------
include_debug_strings title db 'File Speed v0.3',0
;----------------------------------------------------------------------------- ;-----------------------------------------------------------------------------
l_libs_start: include_debug_strings
;-----------------------------------------------------------------------------
library01 l_libs system_dir_Boxlib+9, library_path, system_dir_Boxlib, Box_lib_import l_libs_start:
library02 l_libs system_dir_ProcLib+9, library_path, system_dir_ProcLib, ProcLib_import library01 l_libs system_dir_Boxlib+9, library_path, system_dir_Boxlib, Box_lib_import
end_l_libs: library02 l_libs system_dir_ProcLib+9, library_path, system_dir_ProcLib, ProcLib_import
;-----------------------------------------------------------------------------
system_dir_Boxlib db '/sys/lib/box_lib.obj',0 end_l_libs:
system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 ;-----------------------------------------------------------------------------
system_dir_Boxlib db '/sys/lib/box_lib.obj',0
;----------------------------------------------------------------------------- system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
align 4
ProcLib_import: ;-----------------------------------------------------------------------------
OpenDialog_Init dd aOpenDialog_Init align 4
OpenDialog_Start dd aOpenDialog_Start ProcLib_import:
;OpenDialog_Version dd aOpenDialog_Version OpenDialog_Init dd aOpenDialog_Init
OpenDialog_Start dd aOpenDialog_Start
;ColorDialog_Init dd aColorDialog_Init ;OpenDialog_Version dd aOpenDialog_Version
;ColorDialog_Start dd aColorDialog_Start
;ColorDialog_Version dd aColorDialog_Version ;ColorDialog_Init dd aColorDialog_Init
;ColorDialog_Start dd aColorDialog_Start
dd 0 ;ColorDialog_Version dd aColorDialog_Version
dd 0
dd 0
aOpenDialog_Init db 'OpenDialog_init',0 dd 0
aOpenDialog_Start db 'OpenDialog_start',0
;aOpenDialog_Version db 'Version_OpenDialog',0 aOpenDialog_Init db 'OpenDialog_init',0
aOpenDialog_Start db 'OpenDialog_start',0
;aColorDialog_Init db 'ColorDialog_init',0 ;aOpenDialog_Version db 'Version_OpenDialog',0
;aColorDialog_Start db 'ColorDialog_start',0
;aColorDialog_Version db 'Version_ColorDialog',0 ;aColorDialog_Init db 'ColorDialog_init',0
;----------------------------------------------------------------------------- ;aColorDialog_Start db 'ColorDialog_start',0
align 4 ;aColorDialog_Version db 'Version_ColorDialog',0
Box_lib_import: ;-----------------------------------------------------------------------------
;init_lib dd a_init align 4
;version_lib dd a_version Box_lib_import:
;init_lib dd a_init
;version_lib dd a_version
;edit_box_draw dd aEdit_box_draw
;edit_box_key dd aEdit_box_key
;edit_box_mouse dd aEdit_box_mouse ;edit_box_draw dd aEdit_box_draw
;version_ed dd aVersion_ed ;edit_box_key dd aEdit_box_key
;edit_box_mouse dd aEdit_box_mouse
init_checkbox dd aInit_checkbox ;version_ed dd aVersion_ed
check_box_draw dd aCheck_box_draw
check_box_mouse dd aCheck_box_mouse init_checkbox dd aInit_checkbox
;version_ch dd aVersion_ch check_box_draw dd aCheck_box_draw
check_box_mouse dd aCheck_box_mouse
;option_box_draw dd aOption_box_draw ;version_ch dd aVersion_ch
;option_box_mouse dd aOption_box_mouse
;version_op dd aVersion_op ;option_box_draw dd aOption_box_draw
;option_box_mouse dd aOption_box_mouse
;scrollbar_ver_draw dd aScrollbar_ver_draw ;version_op dd aVersion_op
;scrollbar_ver_mouse dd aScrollbar_ver_mouse
;scrollbar_hor_draw dd aScrollbar_hor_draw ;scrollbar_ver_draw dd aScrollbar_ver_draw
;scrollbar_hor_mouse dd aScrollbar_hor_mouse ;scrollbar_ver_mouse dd aScrollbar_ver_mouse
;version_scrollbar dd aVersion_scrollbar ;scrollbar_hor_draw dd aScrollbar_hor_draw
;scrollbar_hor_mouse dd aScrollbar_hor_mouse
;dinamic_button_draw dd aDbutton_draw ;version_scrollbar dd aVersion_scrollbar
;dinamic_button_mouse dd aDbutton_mouse
;version_dbutton dd aVersion_dbutton ;dinamic_button_draw dd aDbutton_draw
;dinamic_button_mouse dd aDbutton_mouse
;menu_bar_draw dd aMenu_bar_draw ;version_dbutton dd aVersion_dbutton
;menu_bar_mouse dd aMenu_bar_mouse
;menu_bar_activate dd aMenu_bar_activate ;menu_bar_draw dd aMenu_bar_draw
;version_menu_bar dd aVersion_menu_bar ;menu_bar_mouse dd aMenu_bar_mouse
;menu_bar_activate dd aMenu_bar_activate
;FileBrowser_draw dd aFileBrowser_draw ;version_menu_bar dd aVersion_menu_bar
;FileBrowser_mouse dd aFileBrowser_mouse
;FileBrowser_key dd aFileBrowser_key ;FileBrowser_draw dd aFileBrowser_draw
;Version_FileBrowser dd aVersion_FileBrowser ;FileBrowser_mouse dd aFileBrowser_mouse
;FileBrowser_key dd aFileBrowser_key
PathShow_prepare dd sz_PathShow_prepare ;Version_FileBrowser dd aVersion_FileBrowser
PathShow_draw dd sz_PathShow_draw
;Version_path_show dd szVersion_path_show PathShow_prepare dd sz_PathShow_prepare
PathShow_draw dd sz_PathShow_draw
;Frame_draw dd sz_Frame_draw ;Version_path_show dd szVersion_path_show
;Version_frame dd szVersion_frame
;Frame_draw dd sz_Frame_draw
dd 0,0 ;Version_frame dd szVersion_frame
;a_init db 'lib_init',0 dd 0,0
;a_version db 'version',0
;a_init db 'lib_init',0
;aEdit_box_draw db 'edit_box_draw',0 ;a_version db 'version',0
;aEdit_box_key db 'edit_box_key',0
;aEdit_box_mouse db 'edit_box_mouse',0 ;aEdit_box_draw db 'edit_box_draw',0
;aVersion_ed db 'version_ed',0 ;aEdit_box_key db 'edit_box_key',0
;aEdit_box_mouse db 'edit_box_mouse',0
aInit_checkbox db 'init_checkbox2',0 ;aVersion_ed db 'version_ed',0
aCheck_box_draw db 'check_box_draw2',0
aCheck_box_mouse db 'check_box_mouse2',0 aInit_checkbox db 'init_checkbox2',0
;aVersion_ch db 'version_ch2',0 aCheck_box_draw db 'check_box_draw2',0
aCheck_box_mouse db 'check_box_mouse2',0
;aOption_box_draw db 'option_box_draw',0 ;aVersion_ch db 'version_ch2',0
;aOption_box_mouse db 'option_box_mouse',0
;aVersion_op db 'version_op',0 ;aOption_box_draw db 'option_box_draw',0
;aOption_box_mouse db 'option_box_mouse',0
;aScrollbar_ver_draw db 'scrollbar_v_draw',0 ;aVersion_op db 'version_op',0
;aScrollbar_ver_mouse db 'scrollbar_v_mouse',0
;aScrollbar_hor_draw db 'scrollbar_h_draw',0 ;aScrollbar_ver_draw db 'scrollbar_v_draw',0
;aScrollbar_hor_mouse db 'scrollbar_h_mouse',0 ;aScrollbar_ver_mouse db 'scrollbar_v_mouse',0
;aVersion_scrollbar db 'version_scrollbar',0 ;aScrollbar_hor_draw db 'scrollbar_h_draw',0
;aScrollbar_hor_mouse db 'scrollbar_h_mouse',0
;aDbutton_draw db 'dbutton_draw',0 ;aVersion_scrollbar db 'version_scrollbar',0
;aDbutton_mouse db 'dbutton_mouse',0
;aVersion_dbutton db 'version_dbutton',0 ;aDbutton_draw db 'dbutton_draw',0
;aDbutton_mouse db 'dbutton_mouse',0
;aMenu_bar_draw db 'menu_bar_draw',0 ;aVersion_dbutton db 'version_dbutton',0
;aMenu_bar_mouse db 'menu_bar_mouse',0
;aMenu_bar_activate db 'menu_bar_activate',0 ;aMenu_bar_draw db 'menu_bar_draw',0
;aVersion_menu_bar db 'version_menu_bar',0 ;aMenu_bar_mouse db 'menu_bar_mouse',0
;aMenu_bar_activate db 'menu_bar_activate',0
;aFileBrowser_draw db 'FileBrowser_draw',0 ;aVersion_menu_bar db 'version_menu_bar',0
;aFileBrowser_mouse db 'FileBrowser_mouse',0
;aFileBrowser_key db 'FileBrowser_key',0 ;aFileBrowser_draw db 'FileBrowser_draw',0
;aVersion_FileBrowser db 'version_FileBrowser',0 ;aFileBrowser_mouse db 'FileBrowser_mouse',0
;aFileBrowser_key db 'FileBrowser_key',0
sz_PathShow_prepare db 'PathShow_prepare',0 ;aVersion_FileBrowser db 'version_FileBrowser',0
sz_PathShow_draw db 'PathShow_draw',0
;szVersion_path_show db 'version_PathShow',0 sz_PathShow_prepare db 'PathShow_prepare',0
sz_PathShow_draw db 'PathShow_draw',0
;sz_Frame_draw db 'frame_draw',0 ;szVersion_path_show db 'version_PathShow',0
;szVersion_frame db 'version_frame',0
;----------------------------------------------------------------------------- ;sz_Frame_draw db 'frame_draw',0
PathShow_data: ;szVersion_frame db 'version_frame',0
.type dd 0 ;+0 ;-----------------------------------------------------------------------------
.start_y dw 5+4 ;+4 PathShow_data:
.start_x dw 5+5 ;+6 .type dd 0 ;+0
.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 .start_y dw 5+4 ;+4
.area_size_x dw 400-30 ;+10 .start_x dw 5+5 ;+6
.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable .font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1
.background_flag dd 0 ;+16 .area_size_x dw 400-30 ;+10
.font_color dd 0x0 ;+20 .font_number dd 0 ;+12 ; 0 - monospace, 1 - variable
.background_color dd 0x0 ;+24 .background_flag dd 0 ;+16
.text_pointer dd fname ;+28 .font_color dd 0x0 ;+20
.work_area_pointer dd text_work_area ;+32 .background_color dd 0x0 ;+24
.temp_text_length dd 0 ;+36 .text_pointer dd fname ;+28
;----------------------------------------------------------------------------- .work_area_pointer dd text_work_area ;+32
check1 check_box2 (100 shl 16)+12,(27 shl 16)+12,6,0xFFFFFF,0,0xffffff,\ .temp_text_length dd 0 ;+36
check_text1,ch_flag_middle ;-----------------------------------------------------------------------------
check1 check_box2 (100 shl 16)+12,(27 shl 16)+12,6,0xFFFFFF,0,0xffffff,\
check_text1: check_text1,ch_flag_middle
if lang eq ru_RU
db '’¥áâ¨à®¢ âì § ¯¨áì',0 check_text1:
else if lang eq ru_RU
db 'Use testing of write',0 db '’¥áâ¨à®¢ âì § ¯¨áì',0
end if else ; Default to en_US
db 'Use testing of write',0
check_box_warning_text: end if
if lang eq ru_RU
db '‚<>ˆŒ€<C592>ˆ…! <20>஢¥àª  ᪮à®á⨠§ ¯¨á¨ ã­¨ç⮦ ¥â ᮤ¥à¦¨¬®¥ ä ©« !',0 check_box_warning_text:
else if lang eq ru_RU
db 'WARNING! Testing of write speed is destroy contents of file!',0 db '‚<>ˆŒ€<C592>ˆ…! <20>஢¥àª  ᪮à®á⨠§ ¯¨á¨ ã­¨ç⮦ ¥â ᮤ¥à¦¨¬®¥ ä ©« !',0
end if else ; Default to en_US
;----------------------------------------------------------------------------- db 'WARNING! Testing of write speed will destroy file contents!',0
OpenDialog_data: end if
.type dd 0 ;-----------------------------------------------------------------------------
.procinfo dd process_info ;+4 OpenDialog_data:
.com_area_name dd communication_area_name ;+8 .type dd 0
.com_area dd 0 ;+12 .procinfo dd process_info ;+4
.opendir_pach dd temp_dir_pach ;+16 .com_area_name dd communication_area_name ;+8
.dir_default_pach dd communication_area_default_pach ;+20 .com_area dd 0 ;+12
.start_path dd open_dialog_path ;+24 .opendir_pach dd temp_dir_pach ;+16
.draw_window dd draw_window ;+28 .dir_default_pach dd communication_area_default_pach ;+20
.status dd 0 ;+32 .start_path dd open_dialog_path ;+24
.openfile_pach dd fname ;+36 .draw_window dd draw_window ;+28
.filename_area dd filename_area ;+40 .status dd 0 ;+32
.filter_area dd Filter .openfile_pach dd fname ;+36
.x: .filename_area dd filename_area ;+40
.x_size dw 420 ;+48 ; Window X size .filter_area dd Filter
.x_start dw 10 ;+50 ; Window X position .x:
.y: .x_size dw 420 ;+48 ; Window X size
.y_size dw 320 ;+52 ; Window y size .x_start dw 10 ;+50 ; Window X position
.y_start dw 10 ;+54 ; Window Y position .y:
.y_size dw 320 ;+52 ; Window y size
communication_area_name: .y_start dw 10 ;+54 ; Window Y position
db 'FFFFFFFF_open_dialog2',0
communication_area_name:
open_dialog_path: db 'FFFFFFFF_open_dialog2',0
if __nightbuild eq yes
db '/sys/MANAGERS/opendial',0 open_dialog_path:
else if __nightbuild eq yes
db '/sys/File Managers/opendial',0 db '/sys/MANAGERS/opendial',0
end if else
db '/sys/File Managers/opendial',0
communication_area_default_pach: end if
db '/sys',0
communication_area_default_pach:
Filter: db '/sys',0
dd Filter.end - Filter.1
.1: Filter:
;db 'BIN',0 dd Filter.end - Filter.1
;db 'DAT',0 .1:
.end: ;db 'BIN',0
db 0 ;db 'DAT',0
.end:
start_temp_file_name: db 0
db 'default.dtp',0
start_temp_file_name:
default_dtp: db 'default.dtp',0
db '/sys/default.dtp',0
;----------------------------------------------------------------------------- default_dtp:
sector equ 512 db '/sys/default.dtp',0
;-------------------------------------- ;-----------------------------------------------------------------------------
result_table: sector equ 512
dd a512b, 0, 0, sector*1 ;--------------------------------------
dd a1K, 1, 1, sector*2 result_table:
dd a2K, 2, 2, sector*4 dd a512b, 0, 0, sector*1
dd a4K, 3, 3, sector*8 dd a1K, 1, 1, sector*2
dd a8K, 4, 4, sector*16 dd a2K, 2, 2, sector*4
dd a16K, 5, 5, sector*32 dd a4K, 3, 3, sector*8
dd a32K, 6, 6, sector*64 dd a8K, 4, 4, sector*16
dd a64K, 7, 7, sector*128 dd a16K, 5, 5, sector*32
dd a128K, 8, 8, sector*256 dd a32K, 6, 6, sector*64
dd a256K, 9, 9, sector*512 dd a64K, 7, 7, sector*128
dd a512K, 10, 10, sector*1024 dd a128K, 8, 8, sector*256
dd a1M, 11, 11, sector*2*1024 dd a256K, 9, 9, sector*512
dd a2M, 12, 12, sector*4*1024 dd a512K, 10, 10, sector*1024
dd a4M, 13, 13, sector*8*1024 dd a1M, 11, 11, sector*2*1024
dd a8M, 14, 14, sector*16*1024 dd a2M, 12, 12, sector*4*1024
dd a16M, 15, 15, sector*32*1024 dd a4M, 13, 13, sector*8*1024
dd a32M, 16, 16, sector*64*1024 dd a8M, 14, 14, sector*16*1024
dd a64M, 17, 17, sector*128*1024 dd a16M, 15, 15, sector*32*1024
;----------------------------------------------------------------------------- dd a32M, 16, 16, sector*64*1024
a512b db ' 512',0 dd a64M, 17, 17, sector*128*1024
a1K db ' 1K',0 ;-----------------------------------------------------------------------------
a2K db ' 2K',0 a512b db ' 512',0
a4K db ' 4K',0 a1K db ' 1K',0
a8K db ' 8K',0 a2K db ' 2K',0
a16K db ' 16K',0 a4K db ' 4K',0
a32K db ' 32K',0 a8K db ' 8K',0
a64K db ' 64K',0 a16K db ' 16K',0
a128K db '128K',0 a32K db ' 32K',0
a256K db '256K',0 a64K db ' 64K',0
a512K db '512K',0 a128K db '128K',0
a1M db ' 1M',0 a256K db '256K',0
a2M db ' 2M',0 a512K db '512K',0
a4M db ' 4M',0 a1M db ' 1M',0
a8M db ' 8M',0 a2M db ' 2M',0
a16M db ' 16M',0 a4M db ' 4M',0
a32M db ' 32M',0 a8M db ' 8M',0
a64M db ' 64M',0 a16M db ' 16M',0
;----------------------------------------------------------------------------- a32M db ' 32M',0
align 4 a64M db ' 64M',0
fileinfo: ;-----------------------------------------------------------------------------
.subfunction dd 5 align 4
.offset dd 0 fileinfo:
.offset_1 dd 0 .subfunction dd 5
.size dd 0 .offset dd 0
.return dd file_info .offset_1 dd 0
db 0 .size dd 0
.name: dd fname .return dd file_info
;----------------------------------------------------------------------------- db 0
align 4 .name: dd fname
fileread: ;-----------------------------------------------------------------------------
.subfunction dd 0 align 4
.offset dd 0 fileread:
.offset_1 dd 0 .subfunction dd 0
.size dd 0 .offset dd 0
.return dd process_info .offset_1 dd 0
db 0 .size dd 0
.name: dd fname .return dd process_info
;----------------------------------------------------------------------------- db 0
align 4 .name: dd fname
filewrite: ;-----------------------------------------------------------------------------
.subfunction dd 3 align 4
.offset dd 0 filewrite:
.offset_1 dd 0 .subfunction dd 3
.size dd 0 .offset dd 0
.data dd process_info .offset_1 dd 0
db 0 .size dd 0
.name: dd fname .data dd process_info
;----------------------------------------------------------------------------- db 0
.name: dd fname
;-----------------------------------------------------------------------------

1233
programs/testing/kbd/trunk/kbd.ASM
View File

File diff suppressed because it is too large Load Diff