forked from KolibriOS/kolibrios
950 lines
23 KiB
NASM
950 lines
23 KiB
NASM
;=============================================================================
|
|
; Kolibri Graphics Benchmark 0.7
|
|
;--------------------------------------
|
|
; MGB - Menuet Graphics Benchmark 0.3
|
|
; Compile with FASM
|
|
;
|
|
;=============================================================================
|
|
; version: 0.7
|
|
; last update: 05/04/2013
|
|
; written by: Marat Zakiyanov aka Mario79, aka Mario
|
|
; changes: benchmark GS selector - read screen area
|
|
;---------------------------------------------------------------------
|
|
; version: 0.6
|
|
; last update: 14/03/2013
|
|
; written by: Marat Zakiyanov aka Mario79, aka Mario
|
|
; changes: benchmark f36 - read screen area
|
|
;---------------------------------------------------------------------
|
|
; version: 0.5
|
|
; last update: 05/03/2013
|
|
; written by: Marat Zakiyanov aka Mario79, aka Mario
|
|
; changes: benchmark f73-blitter
|
|
;---------------------------------------------------------------------
|
|
; version: 0.4
|
|
; last update: 18/09//2010
|
|
; written by: Marat Zakiyanov aka Mario79, aka Mario
|
|
; changes: select path with OpenDialog,
|
|
; use of Box_Lib and Proc_Lib,
|
|
; support start with path for *.mgb file
|
|
; optimization code and size of use memory
|
|
;---------------------------------------------------------------------
|
|
; Original author and copyrights holder:
|
|
; Mikhail Lisovin a.k.a. Mihasik
|
|
; lisovin@26.ru
|
|
;
|
|
; Disassembled with IDA 5.0.0.879:
|
|
; http://www.datarescue.com/
|
|
; With use of 'ida.int' and 'kloader.ldw':
|
|
; Eugene Grechnikov a.k.a. diamond
|
|
; diamondz@land.ru
|
|
; http://diamondz.land.ru/
|
|
;
|
|
; Modified for version 0.3:
|
|
; Mike Semenako a.k.a mike.dld
|
|
; mike.dld@gmail.com
|
|
; http://www.mikedld.com/
|
|
;
|
|
;=============================================================================
|
|
|
|
org 0x0
|
|
use32
|
|
|
|
db 'MENUET01'
|
|
dd 1
|
|
dd start
|
|
dd IM_END
|
|
dd I_END ;0x200000
|
|
dd stacktop ;0x07FFF0
|
|
dd fname_buf
|
|
dd cur_dir_path
|
|
|
|
include '../../../config.inc' ;for nightbuild
|
|
include '..\..\..\macros.inc'
|
|
include '..\..\..\proc32.inc'
|
|
;include '..\..\..\debug.inc'
|
|
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
|
|
include '../../../develop/libraries/box_lib/load_lib.mac'
|
|
@use_library
|
|
;---------------------------------------------------------------------
|
|
start:
|
|
mcall 68,11
|
|
|
|
load_libraries l_libs_start,end_l_libs
|
|
|
|
cmp eax,-1
|
|
jz close
|
|
;---------------------------------------------------------------------
|
|
mov edi,filename_area
|
|
mov esi,start_temp_file_name
|
|
call copy_str_1
|
|
|
|
mov edi,comment_string_1
|
|
mov esi,aComment1
|
|
call copy_str_1
|
|
|
|
mov edi,comment_string_2
|
|
mov esi,aComment2
|
|
call copy_str_1
|
|
|
|
mov edi,fname_buf
|
|
cmp [edi],byte 0
|
|
jne @f
|
|
mov esi,path4
|
|
call copy_str_1
|
|
jmp .OpenDialog
|
|
@@:
|
|
call locLoadFile
|
|
xor dword [wFlags],1
|
|
.OpenDialog:
|
|
;OpenDialog initialisation
|
|
push dword OpenDialog_data
|
|
call [OpenDialog_Init]
|
|
;---------------------------------------------------------------------
|
|
mcall 40,0x27
|
|
red:
|
|
call draw_window
|
|
still:
|
|
mcall 10
|
|
cmp eax,1
|
|
jz red
|
|
cmp eax,2
|
|
jz key
|
|
cmp eax,3
|
|
jz button
|
|
jmp still
|
|
;---------------------------------------------------------------------
|
|
copy_str_1:
|
|
xor eax,eax
|
|
cld
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test eax,eax
|
|
jnz @b
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
key:
|
|
mcall 2
|
|
cmp ah,'t'
|
|
jz ActionTest
|
|
cmp ah,'c'
|
|
jz ActionComment
|
|
cmp ah,'p'
|
|
jz ActionPattern
|
|
cmp ah,'o'
|
|
jz ActionOpen
|
|
cmp ah,'s'
|
|
jz ActionSave
|
|
jmp still
|
|
;---------------------------------------------------------------------
|
|
button:
|
|
mcall 17
|
|
cmp ah,1
|
|
jnz NotClose
|
|
close:
|
|
mcall -1
|
|
NotClose:
|
|
cmp ah,2
|
|
jnz locNotTest
|
|
ActionTest:
|
|
test dword [wFlags],1
|
|
jnz still
|
|
mcall 51,1,TestWndProc,thread_stack1
|
|
jmp still
|
|
;---------------------------------------------------------------------
|
|
locNotTest:
|
|
cmp ah,3
|
|
jnz NotComment
|
|
ActionComment:
|
|
test dword [wFlags],1
|
|
jnz still
|
|
mcall 51,1,thread_comment,thread_stack2
|
|
jmp still
|
|
;---------------------------------------------------------------------
|
|
NotComment:
|
|
cmp ah,4
|
|
jnz NotPattern
|
|
ActionPattern:
|
|
test dword [wFlags],1
|
|
jnz still
|
|
mov esi,results_table
|
|
cld
|
|
@@:
|
|
lodsd
|
|
mov [esi],eax
|
|
add esi,TEST_REC_SIZE-4
|
|
cmp dword [esi+TEST_REC_SIZE-4],0
|
|
jne @b
|
|
mov esi,comment_string_1
|
|
mov edi,comment_string_2
|
|
call copy_str_1
|
|
call DrawBars
|
|
jmp still
|
|
;---------------------------------------------------------------------
|
|
NotPattern:
|
|
cmp ah,5
|
|
jnz NotOpen
|
|
ActionOpen:
|
|
test dword [wFlags],1
|
|
jnz still
|
|
mov [OpenDialog_data.type],0 ; open
|
|
call OpenDialog_Start_1
|
|
jne still
|
|
call locLoadFile
|
|
call DrawBars
|
|
.1:
|
|
xor dword [wFlags],1
|
|
jmp still
|
|
;---------------------------------------------------------------------
|
|
OpenDialog_Start_1:
|
|
push dword OpenDialog_data
|
|
call [OpenDialog_Start]
|
|
cmp [OpenDialog_data.status],1
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
NotOpen:
|
|
cmp ah,6
|
|
jnz still
|
|
ActionSave:
|
|
test dword [wFlags],1
|
|
jnz still
|
|
mov [OpenDialog_data.type],1 ; save
|
|
call OpenDialog_Start_1
|
|
jne still
|
|
call locSaveFile
|
|
jmp ActionOpen.1
|
|
;---------------------------------------------------------------------
|
|
TestWndProc:
|
|
mcall 68,12,90*123*3
|
|
mov [area_for_f36],eax
|
|
or dword [wFlags],1
|
|
mov esi,results_table+8
|
|
align 4
|
|
.next_test:
|
|
xor edi,edi
|
|
mcall 26,9
|
|
inc eax
|
|
mov ecx,eax
|
|
add eax,100
|
|
mov [dwTestEndTime],eax
|
|
align 4
|
|
@@:
|
|
mcall 26
|
|
cmp eax,ecx
|
|
jb @r
|
|
align 4
|
|
@@:
|
|
push esi
|
|
call dword [esi]
|
|
pop esi
|
|
inc edi
|
|
mcall 26,9
|
|
cmp eax,[dwTestEndTime]
|
|
jb @b
|
|
mov [esi-8],edi
|
|
|
|
add esi,TEST_REC_SIZE
|
|
cmp dword [esi],0
|
|
jnz .next_test
|
|
xor dword [wFlags],1
|
|
mcall 68,13,[area_for_f36]
|
|
mcall -1
|
|
;---------------------------------------------------------------------
|
|
draw_window:
|
|
mcall 12,1
|
|
mcall 48,4
|
|
mov ebx,100*65536+72*5+14
|
|
mov ecx,80*65536+TESTS_NUM*LINE_HEIGHT+15+20+35
|
|
add cx,ax
|
|
xor eax,eax
|
|
xor esi,esi
|
|
mcall ,,,34000000h,,aCaption
|
|
|
|
mov eax,8
|
|
mov ebx,050036h+12
|
|
mov ecx,5*65536+20
|
|
mov edx,2
|
|
mov esi,0x00007F7F
|
|
@@:
|
|
mcall
|
|
add ebx,72*65536
|
|
inc edx
|
|
cmp edx,7
|
|
jb @r
|
|
|
|
mov ecx,31
|
|
mov edx,0x00007F7F
|
|
mov esi,(72*5)/2
|
|
call drawSeparator
|
|
|
|
mcall 4,<27,12>,0x80DDEEFF,aButtonsText
|
|
call DrawBars
|
|
|
|
mov ecx,TESTS_NUM*LINE_HEIGHT+15+21
|
|
mov edx,0x00007F7F
|
|
mov esi,(72*5)/2
|
|
call drawSeparator
|
|
mcall 12,2
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
drawSeparator:
|
|
mov eax,1
|
|
mov ebx,3
|
|
@@:
|
|
mcall
|
|
add ebx,2
|
|
dec esi
|
|
jnz @b
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
testDrawWindow:
|
|
xor eax,eax
|
|
mcall ,640145h,4F0190h,3000000h
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
testDrawBar:
|
|
mcall 13,0A0064h,1E00FAh,6A73D0h
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
testDrawPicture:
|
|
; xor ebx,ebx
|
|
mcall 7,[area_for_f36],<90,123>,<15,33>
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
testDrawPicture_f73:
|
|
xor ebx,ebx
|
|
mcall 73,,params_f73
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
testGetScreen_f36:
|
|
xor ebx,ebx
|
|
mcall 36,[area_for_f36],<90,123>,<15,33>
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
testGetScreen_GS:
|
|
push edi
|
|
mov [start_x],15
|
|
mov [start_y],33
|
|
mov [size_x],90
|
|
mov [size_y],123
|
|
mov edi,[area_for_f36]
|
|
|
|
mcall 61,2
|
|
cmp eax,24
|
|
je get_area_with_GS_24
|
|
;-----------------------------------------------------------------------------
|
|
align 4
|
|
get_area_with_GS_32:
|
|
mcall 61,1
|
|
shr eax,16
|
|
shl eax,2
|
|
mov [offset_x],eax
|
|
|
|
mov esi,[start_y]
|
|
imul esi,eax
|
|
|
|
mov eax,[start_x]
|
|
shl eax,2
|
|
add esi,eax
|
|
|
|
mov eax,[size_x]
|
|
shl eax,2
|
|
sub [offset_x],eax
|
|
|
|
mov edx,[size_y]
|
|
mov ebx,[offset_x]
|
|
sub esi,ebx
|
|
mov ebp,[size_x]
|
|
;--------------------------------------
|
|
align 4
|
|
.start_y:
|
|
add esi,ebx
|
|
mov ecx,ebp
|
|
;--------------------------------------
|
|
align 4
|
|
.start_x:
|
|
mov eax,[gs:esi]
|
|
mov [edi],eax
|
|
add esi,4
|
|
add edi,3
|
|
|
|
dec ecx
|
|
jnz .start_x
|
|
|
|
dec edx
|
|
jnz .start_y
|
|
|
|
pop edi
|
|
ret
|
|
;-----------------------------------------------------------------------------
|
|
align 4
|
|
get_area_with_GS_24:
|
|
mcall 61,1
|
|
shr eax,16
|
|
lea eax,[eax*3]
|
|
mov [offset_x],eax
|
|
|
|
mov esi,[start_y]
|
|
imul esi,eax
|
|
|
|
mov eax,[start_x]
|
|
lea eax,[eax*3]
|
|
add esi,eax
|
|
|
|
mov eax,[size_x]
|
|
lea eax,[eax*3]
|
|
sub [offset_x],eax
|
|
|
|
mov edx,[size_y]
|
|
mov ebx,[offset_x]
|
|
sub esi,ebx
|
|
mov ebp,[size_x]
|
|
;--------------------------------------
|
|
align 4
|
|
.start_y:
|
|
add esi,ebx
|
|
mov ecx,ebp
|
|
;--------------------------------------
|
|
align 4
|
|
.start_x:
|
|
mov eax,[gs:esi]
|
|
mov [edi],eax
|
|
add esi,3
|
|
add edi,3
|
|
|
|
dec ecx
|
|
jnz .start_x
|
|
|
|
dec edx
|
|
jnz .start_y
|
|
|
|
pop edi
|
|
ret
|
|
;-----------------------------------------------------------------------------
|
|
align 4
|
|
testDrawVertLine:
|
|
mcall 38,<300,300>,<30,380>,1090207Fh
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
testDrawHorzLine:
|
|
mcall 38,<30,300>,<380,380>,1090207Fh
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
testDrawFreeLine:
|
|
mcall 38,<30,300>,<380,30>,1090207Fh
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
testDrawText1:
|
|
mcall 4,0C012Ch,0AA66h,aTestText,34
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
testDrawText2:
|
|
mcall 4,1B013Bh,10E7B850h,aTestText,34
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
testDrawNumber:
|
|
mcall 47,80000h,12345678,2A014Ah,0E0B27Bh
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
testDrawPixel:
|
|
mcall 1,100,100,0FFFFFFh
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
DrawBars:
|
|
mov edi,results_table
|
|
mov ebx,30+7
|
|
.next_result:
|
|
cmp dword[edi+TEST_REC_SIZE-4],0
|
|
je .exit
|
|
|
|
push ebx
|
|
movzx ecx,bx
|
|
add ecx,-2
|
|
shl ecx,16
|
|
mov cx,LINE_HEIGHT
|
|
mov ebx,0*65536+72*5+5
|
|
xor edx,edx
|
|
mcall 13
|
|
pop ebx
|
|
|
|
and ebx,0x0000FFFF
|
|
or ebx,5*65536
|
|
mov edx,[edi+TEST_REC_SIZE-4]
|
|
mcall 4,,0x8000CCCC
|
|
|
|
push '=' 0x00FFFF00 0x00FFFF7F 0x00FFFF7F
|
|
mov eax,[edi+0]
|
|
cmp eax,[edi+4]
|
|
je @f
|
|
jb .lp1
|
|
mov dword[esp+0],0x007FFF7F
|
|
mov dword[esp+4],0x00FF7F7F
|
|
mov dword[esp+8],0x0000FF00
|
|
mov byte[esp+12],'>'
|
|
.lp1:
|
|
ja @f
|
|
mov dword[esp+0],0x00FF7F7F
|
|
mov dword[esp+4],0x007FFF7F
|
|
mov dword[esp+8],0x00FF0000
|
|
mov byte[esp+12],'<'
|
|
@@:
|
|
pop ecx
|
|
call int2str
|
|
add ebx,(72*5-6*8*2-6-10-5)*65536 ; 196
|
|
mcall 4,,,textarea,8
|
|
|
|
pop ecx
|
|
mov eax,[edi+4]
|
|
call int2str
|
|
add ebx,(6*8+6+10)*65536
|
|
mcall 4
|
|
|
|
pop ecx
|
|
add ebx,(-6-5)*65536
|
|
mov edx,esp
|
|
mov esi,1
|
|
mcall
|
|
add esp,4
|
|
|
|
add edi,TEST_REC_SIZE
|
|
add bx,LINE_HEIGHT
|
|
jmp .next_result
|
|
.exit:
|
|
mov ebx, 0*65536+72*5+5
|
|
mov ecx, (TESTS_NUM*LINE_HEIGHT+15+25)*65536+26
|
|
xor edx, edx
|
|
mcall 13
|
|
|
|
mov ebx, 5*65536+(TESTS_NUM*LINE_HEIGHT+15+27)
|
|
mcall 4,,0x8000CCCC,aLeft
|
|
|
|
add ebx, (6*10)*65536
|
|
mcall ,,0x80FFFF00,comment_string_1
|
|
|
|
mov ebx, 5*65536+(TESTS_NUM*LINE_HEIGHT+15+27+12)
|
|
mcall ,,0x8000CCCC,aRight
|
|
|
|
add ebx, (6*10)*65536
|
|
mcall ,,0x80FFFF00,comment_string_2
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
int2str:
|
|
push eax ecx edx edi
|
|
mov edi,textarea+7
|
|
mov dword[textarea+0],' '
|
|
mov dword[textarea+4],' '
|
|
mov ecx,10
|
|
@@:
|
|
xor edx,edx
|
|
div ecx
|
|
add dl,'0'
|
|
mov [edi],dl
|
|
dec edi
|
|
or eax,eax
|
|
jnz @b
|
|
pop edi edx ecx eax
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
thread_comment:
|
|
or dword [wFlags],1
|
|
mcall 40,0x27
|
|
mov esi,comment_string_1
|
|
cld
|
|
@@:
|
|
lodsb
|
|
test al,al
|
|
jne @r
|
|
sub esi,comment_string_1
|
|
mov eax,esi
|
|
dec eax
|
|
mov edi, edit1
|
|
mov [edi+48], eax ;ed_size
|
|
mov [edi+52], eax ;ed_pos
|
|
;---------------------------------------------------------------------
|
|
.red:
|
|
call .draw_window
|
|
.still:
|
|
mcall 10 ; wait here for event
|
|
cmp eax,1 ; redraw request ?
|
|
je .red
|
|
cmp eax,2 ; key in buffer ?
|
|
je .key
|
|
cmp eax,3 ; button in buffer ?
|
|
je .button
|
|
|
|
push dword name_editboxes
|
|
call [edit_box_mouse]
|
|
jmp .still
|
|
;---------------------------------------------------------------------
|
|
.key: ; key
|
|
mcall 2
|
|
cmp ah,13
|
|
je .close ;.close_with_open_file
|
|
cmp ah,27
|
|
je .close
|
|
|
|
push dword name_editboxes
|
|
call [edit_box_key]
|
|
jmp .still
|
|
;---------------------------------------------------------------------
|
|
.button: ; button
|
|
mcall 17
|
|
cmp ah,1 ; button id=1 ?
|
|
jne .still
|
|
.close:
|
|
xor dword [wFlags],1
|
|
mcall -1
|
|
;---------------------------------------------------------------------
|
|
.draw_window:
|
|
mcall 12,1
|
|
xor eax,eax
|
|
xor esi,esi
|
|
mcall ,<100,300>,<100,80>,0x34780078,,aComment
|
|
push dword name_editboxes
|
|
call [edit_box_draw]
|
|
mcall 12,2
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
locLoadFile:
|
|
mov [stFileInfoBlock], 0
|
|
or dword [wFlags],1
|
|
mcall 70,stFileInfoBlock
|
|
mov esi,mgb_data
|
|
mov edi,results_table+4
|
|
cld
|
|
@@:
|
|
cmp dword[edi+TEST_REC_SIZE-8],0
|
|
je @f
|
|
movsd
|
|
add edi,TEST_REC_SIZE-4
|
|
jmp @b
|
|
@@:
|
|
mov edi,comment_string_2
|
|
mov ecx,44
|
|
rep movsb
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
locSaveFile:
|
|
mov [stFileInfoBlock], 2
|
|
or dword [wFlags],1
|
|
mov esi,results_table+4
|
|
mov edi,mgb_data
|
|
cld
|
|
@@:
|
|
cmp dword[esi+TEST_REC_SIZE-8],0
|
|
je @f
|
|
movsd
|
|
add esi,TEST_REC_SIZE-4
|
|
jmp @b
|
|
@@:
|
|
mov esi,comment_string_2
|
|
mov ecx,44
|
|
rep movsb
|
|
mcall 70,stFileInfoBlock
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
stFileInfoBlock dd 0,0,0
|
|
dwDataSize dd TESTS_NUM*4+44 ;1
|
|
dd mgb_data
|
|
db 0
|
|
dd fname_buf
|
|
;---------------------------------------------------------------------
|
|
wFlags dd 0
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
results_table dd \
|
|
?,?,testDrawWindow,aDrawingWindow,\
|
|
?,?,testDrawBar,aDrawingBar,\
|
|
?,?,testGetScreen_f36,aGetScreenF36,\
|
|
?,?,testGetScreen_GS,aGetScreen_GS,\
|
|
?,?,testDrawPicture,aDrawingPicture,\
|
|
?,?,testDrawPicture_f73,aDrawingPictF73,\
|
|
?,?,testDrawVertLine,aDrawingVLine,\
|
|
?,?,testDrawHorzLine,aDrawingHLine,\
|
|
?,?,testDrawFreeLine,aDrawingFLine,\
|
|
?,?,testDrawText1,aDrawingText1,\
|
|
?,?,testDrawText2,aDrawingText2,\
|
|
?,?,testDrawNumber,aDrawingNumber,\
|
|
?,?,testDrawPixel,aDrawingPixel,\
|
|
0,0,0,0
|
|
;---------------------------------------------------------------------
|
|
LINE_HEIGHT = 13
|
|
TEST_REC_SIZE = 16
|
|
TESTS_NUM = ($ - results_table) / TEST_REC_SIZE - 1
|
|
;---------------------------------------------------------------------
|
|
aDrawingWindow db 'Window Of Type #3, 325x400 px',0
|
|
aDrawingBar db 'Filled Rectangle, 100x250 px',0
|
|
aDrawingPicture db 'Picture, 90x123, px',0
|
|
aDrawingPictF73 db 'Picture for Blitter, 90x123, px',0
|
|
aGetScreenF36 db 'Get a piece of screen f.36, 90x123, px',0
|
|
aGetScreen_GS db 'Get a piece of screen GS, 90x123, px',0
|
|
aDrawingVLine db 'Vertical Line, 350 px',0
|
|
aDrawingHLine db 'Horizontal Line, 270 px',0
|
|
aDrawingFLine db 'Free-angled Line, 350 px',0
|
|
aDrawingText1 db 'Fixed-width Text, 34 chars',0
|
|
aDrawingText2 db 'Proportional Text, 34 chars',0
|
|
aDrawingNumber db 'Decimal Number, 8 digits',0
|
|
aDrawingPixel db 'Single Pixel',0
|
|
|
|
aTestText db 'This is a 34-charachters test text'
|
|
aButtonsText db 'Test Comment+ Pattern+ Open Save',0
|
|
aCaption db 'Kolibri Graphical Benchmark 0.7',0
|
|
|
|
aLeft db 'Left :',0
|
|
aRight db 'Right :',0
|
|
|
|
aComment1 db 'current',0
|
|
aComment2 db 'no pattern',0
|
|
aComment db 'Comment',0
|
|
;---------------------------------------------------------------------
|
|
system_dir_Boxlib db '/sys/lib/box_lib.obj',0
|
|
system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
|
|
;---------------------------------------------------------------------
|
|
head_f_i:
|
|
head_f_l db 'System error',0
|
|
|
|
err_message_found_lib1 db 'box_lib.obj - Not found!',0
|
|
err_message_found_lib2 db 'proc_lib.obj - Not found!',0
|
|
|
|
err_message_import1 db 'box_lib.obj - Wrong import!',0
|
|
err_message_import2 db 'proc_lib.obj - Wrong import!',0
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
l_libs_start:
|
|
|
|
library01 l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \
|
|
err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i
|
|
|
|
library02 l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \
|
|
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
|
|
|
|
end_l_libs:
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
OpenDialog_data:
|
|
.type dd 1 ; Save
|
|
.procinfo dd procinfo ;+4
|
|
.com_area_name dd communication_area_name ;+8
|
|
.com_area dd 0 ;+12
|
|
.opendir_pach dd temp_dir_pach ;+16
|
|
.dir_default_pach dd communication_area_default_pach ;+20
|
|
.start_path dd open_dialog_path ;+24
|
|
.draw_window dd draw_window ;+28
|
|
.status dd 0 ;+32
|
|
.openfile_pach dd fname_buf ;+36
|
|
.filename_area dd filename_area ;+40
|
|
.filter_area dd Filter
|
|
.x:
|
|
.x_size dw 420 ;+48 ; Window X size
|
|
.x_start dw 10 ;+50 ; Window X position
|
|
.y:
|
|
.y_size dw 320 ;+52 ; Window y size
|
|
.y_start dw 10 ;+54 ; Window Y position
|
|
|
|
communication_area_name:
|
|
db 'FFFFFFFF_open_dialog',0
|
|
open_dialog_path:
|
|
if __nightbuild eq yes
|
|
db '/sys/MANAGERS/opendial',0
|
|
else
|
|
db '/sys/File Managers/opendial',0
|
|
end if
|
|
communication_area_default_pach:
|
|
db '/rd0/1/',0
|
|
|
|
Filter:
|
|
dd Filter.end - Filter
|
|
.1:
|
|
db 'MGB',0
|
|
.end:
|
|
db 0
|
|
|
|
start_temp_file_name: db 'pattern.mgb',0
|
|
|
|
path4 db '/rd/1/pattern.mgb',0
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
params_f73:
|
|
; destination
|
|
.offset_X_dest dd 0 ; +0
|
|
.offset_Y_dest dd 0 ; +4
|
|
.width_dest dd 90 ; +8
|
|
.height_dest dd 123 ; +12
|
|
; source
|
|
.offset_X_src dd 0 ; +16
|
|
.offset_Y_src dd 0 ; +20
|
|
.width_src dd 90 ; +24
|
|
.height_src dd 123 ; +28
|
|
; other
|
|
.pointer dd 0 ; 90*4 ; +32
|
|
.row_size dd 90*4 ; +36
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
ProcLib_import:
|
|
OpenDialog_Init dd aOpenDialog_Init
|
|
OpenDialog_Start dd aOpenDialog_Start
|
|
;OpenDialog__Version dd aOpenDialog_Version
|
|
dd 0
|
|
dd 0
|
|
aOpenDialog_Init db 'OpenDialog_init',0
|
|
aOpenDialog_Start db 'OpenDialog_start',0
|
|
;aOpenDialog_Version db 'Version_OpenDialog',0
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
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
|
|
;version_ed dd aVersion_ed
|
|
|
|
;check_box_draw dd aCheck_box_draw
|
|
;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
|
|
;version_op dd aVersion_op
|
|
|
|
;scrollbar_ver_draw dd aScrollbar_ver_draw
|
|
;scrollbar_ver_mouse dd aScrollbar_ver_mouse
|
|
;scrollbar_hor_draw dd aScrollbar_hor_draw
|
|
;scrollbar_hor_mouse dd aScrollbar_hor_mouse
|
|
;version_scrollbar dd aVersion_scrollbar
|
|
|
|
;dinamic_button_draw dd aDbutton_draw
|
|
;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_activate dd aMenu_bar_activate
|
|
;version_menu_bar dd aVersion_menu_bar
|
|
|
|
;FileBrowser_draw dd aFileBrowser_draw
|
|
;FileBrowser_mouse dd aFileBrowser_mouse
|
|
;FileBrowser_key dd aFileBrowser_key
|
|
;Version_FileBrowser dd aVersion_FileBrowser
|
|
|
|
;PathShow_prepare dd sz_PathShow_prepare
|
|
;PathShow_draw dd sz_PathShow_draw
|
|
;Version_path_show dd szVersion_path_show
|
|
dd 0
|
|
dd 0
|
|
|
|
;a_init db 'lib_init',0
|
|
;a_version db 'version',0
|
|
|
|
aEdit_box_draw db 'edit_box',0
|
|
aEdit_box_key db 'edit_box_key',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
|
|
;aVersion_ch db 'version_ch',0
|
|
|
|
;aOption_box_draw db 'option_box_draw',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_hor_draw db 'scrollbar_h_draw',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
|
|
;aVersion_dbutton db 'version_dbutton',0
|
|
|
|
;aMenu_bar_draw db 'menu_bar_draw',0
|
|
;aMenu_bar_mouse db 'menu_bar_mouse',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_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
|
|
;szVersion_path_show db 'version_PathShow',0
|
|
;---------------------------------------------------------------------
|
|
; for EDITBOX
|
|
align 4
|
|
name_editboxes:
|
|
edit1 edit_box 200,10,30,0xffffff,0xbbddff,0,0,0,255,comment_string_1,mouse_dd,ed_focus+ed_always_focus,0
|
|
name_editboxes_end:
|
|
;---------------------------------------------------------------------
|
|
|
|
IM_END:
|
|
align 4
|
|
mouse_dd rd 1
|
|
area_for_f36 rd 1
|
|
dwTestEndTime rd 1
|
|
dwMainPID rd 1
|
|
;-----------------------------------------------------------------------------
|
|
start_x rd 1
|
|
start_y rd 1
|
|
size_x rd 1
|
|
size_y rd 1
|
|
offset_x rd 1
|
|
;---------------------------------------------------------------------
|
|
textarea:
|
|
rb 8
|
|
;---------------------------------------------------------------------
|
|
comment_string_1:
|
|
rb 44
|
|
;---------------------------------------------------------------------
|
|
comment_string_2:
|
|
rb 44
|
|
;---------------------------------------------------------------------
|
|
mgb_data:
|
|
rb 100
|
|
;---------------------------------------------------------------------
|
|
procinfo:
|
|
rb 1024
|
|
;---------------------------------------------------------------------
|
|
cur_dir_path:
|
|
rb 4096
|
|
;---------------------------------------------------------------------
|
|
library_path:
|
|
rb 4096
|
|
;---------------------------------------------------------------------
|
|
temp_dir_pach:
|
|
rb 4096
|
|
;---------------------------------------------------------------------
|
|
fname_buf:
|
|
rb 4096
|
|
;---------------------------------------------------------------------
|
|
filename_area:
|
|
rb 256
|
|
;---------------------------------------------------------------------
|
|
rb 4096
|
|
thread_stack2:
|
|
;---------------------------------------------------------------------
|
|
rb 4096
|
|
thread_stack1:
|
|
;---------------------------------------------------------------------
|
|
rb 4096
|
|
rb 0x2884 ; for F73 image size 123*90*4
|
|
stacktop:
|
|
I_END: |