diff --git a/programs/games/gomoku/trunk/gomoku.asm b/programs/games/gomoku/trunk/gomoku.asm index f443cbd501..d97c624807 100644 --- a/programs/games/gomoku/trunk/gomoku.asm +++ b/programs/games/gomoku/trunk/gomoku.asm @@ -1,756 +1,756 @@ -;http://sources.ru/pascal/gamestxt/go-moku.zip - -N = 19 ; Size of the board - -use32 - org 0x0 - db 'MENUET01' - dd 0x1 - dd START - dd I_END - dd E_END - dd E_END - dd 0x0,0x0 - -include '../../../macros.inc' -include 'lang.inc' - -AttackFactor dw 1 ; Importance of attack (1..16) - -START: - - mcall 40,0x80000027 - mcall 3 - mov [rsx1],ax - shr eax,16 - mov [rsx2],ax - -redraw_all: - mcall 9,proc_info,-1 - test [proc_info.wnd_state], 0x04 ; is rolled_up? - jz @f - mcall 0,100*65536+(16*N+12),,0x34FFFFFF,,title - jmp still - @@: - mcall 12,1 - mcall 48,4 - xchg eax,ecx - add ecx,100*65536+(16*N+26) - mcall 0,<100,16*N+12>,,0x34FFFFFF,,title - mcall 38,<2,16*N>,<20,20>,0x00a0a0a0;000000 - mov edi,N - @@: add ecx,16*65536+16 - mcall - dec edi - jnz @b - push cx - mov ecx,20*65536 - pop cx - mcall ,1*65536+1 - mov edi,N - @@: add ebx,16*65536+16 - mcall - dec edi - jnz @b - - mcall 8,3*65536+40,3*65536+12,2,0xFFFFFF - mcall ,50*65536+40,,3, - mcall 4,7*65536+5,0x80000000,txt_buttons - mcall 12,2 - - -draw_pole: -; mcall 48,4 -; xchg eax,ecx -; add ecx,100*65536+(16*N+26) -; mcall 0,100*65536+(16*N+12),,0x74FFFFFF,,title - - mov esi,Board - mov edi,N*N-N - mov ebp,N - mov ebx,(1+5)*65536+(21+5-1) - call print_board - bt [flags],0 - jnc @f - mcall 4,100*65536+6,0x800000ff,txt_go -@@: bt [flags],3 - jnc @f - mcall 4,100*65536+6,0x800000ff,txt_tie - jmp still -@@: - bt [flags],2 - jnc still - ret -still: - mcall 10 - - dec al - jz redraw_all - dec al - jz key - dec al - jz button - sub al,3 - jz mouse - jmp still - -key: - mcall 2 - btr [flags],2 - cmp ah,97 - jne @f -.auto: bts [flags],2 - jmp mouse.auto -@@: cmp ah,110 - je button.new_game - jmp still - -button: - mcall 17 - cmp ah,1 - jne @f - mcall -1 -@@: cmp ah,2 - jne key.auto -.new_game: - mov [TotalLines],2 * 2 * (N * (N - 4) + (N - 4) * (N - 4)) - mov [WinningLine],0x0 - mov [X],(N + 1)/2 - mov [Y],(N + 1)/2 - mov [flags],0 - mov edi,Board - mov ecx,(13*N*N/4)+1 - xor eax,eax - cld -@@: stosd - loop @b - jmp redraw_all - -print_board: - cmp byte [esi],0 ;яєёЄю - je .null - cmp byte [esi],1 ;X - je .one - cmp byte [esi],2 ;O - je .two - bts [flags],4 - cmp byte [esi],3 ;╒ т√шуЁры - je .one - jmp .two ;0 т√шуЁры - -.end: - inc esi - dec ebp - jnz print_board - test edi,edi - jz @f - sub edi,N - mov ebp,N - add ebx,-N*16*65536+16 - jmp print_board -@@: ret - -.one: - mov [pic_plt+4],0x4ba010 - btr [flags],4 - jnc @f - mov [pic_plt+4],0xff0000 -@@: pushad - mov edx, ebx - mcall 65,pic_x,<7,7>,,1,pic_plt, 0 - popad -.null: - add ebx,16*65536;+16 - jmp .end -.two: - mov [pic_plt+4],0x00459a - btr [flags],4 - jnc @f - mov [pic_plt+4],0xff0000 -@@: pushad - mov edx, ebx - mcall 65,pic_o,<7,7>,,1,pic_plt, 0 - popad - jmp .null - - -draw_one_symbol: - movzx eax,[X] - mov ebx,16 - mul ebx - shl eax,16 - add eax,(1+5)*65536; - mov ax,[Y] - mov ecx,16 - mul cx - add ax,(21+5-1) - xchg eax,ebx - - movzx eax,[Y] - push ebx - mov ebx,N - mul bx - mov bx,[X] - add ax,bx - pop ebx - mov esi,Board - add esi,eax - mov edi,0 - mov ebp,1 - call print_board -ret - - -mouse: - bt [flags],5 - jc still - mcall 37,2 - test eax,eax - jz still - mcall 37,1 - mov dx,ax - shr eax,16 - cmp dx,20 - jbe still - cmp dx,(16*N+20) - jge still - cmp ax,1 - jbe still - cmp ax,(16*N) - jge still - - bt [flags],0 - jc still - bt [flags],3 - jc still - sub ax,1 - push dx - xor edx,edx - mov cx,16 - div cx - pop dx - mov [X],ax - push ax - sub dx,20 - mov ax,dx - xor dx,dx - div cx - mov [Y],ax - xor dx,dx - mov cx,N - mul cx - pop dx - add ax,dx - cmp ax,N*N - jge still - mov esi,Board - - cmp byte [esi+eax],0 - jne still - -.auto: bt [flags],0 - jc .end - bt [flags],3 - jc .end - - btr [flags],1 ;0 - ход делает игрок - bt [flags],2 - jnc @f - call FindMove -@@: call MakeMove - call draw_one_symbol - bt [flags],0 - jc .end - - bts [flags],1 ;1 - ход делает cpu - call FindMove - call MakeMove - call draw_one_symbol -.end: bt [flags],0 - jnc @f - call BlinkRow - btr [flags],2 -@@:; mcall 12,1 - bt [flags],3 - jc @f - bt [flags],2 - jnc @f - call draw_pole - jmp .auto -@@: jmp draw_pole - - - - -winline: dw 1,0, 1,1, 1,-1, 0,1 ;X,Y -BlinkRow: - movzx ecx,[WinningLine] - mov eax,[winline+(ecx-1)*4] - push ax ;Dx - shr eax,16 - push ax ;Dy - movzx eax,[Y] - mov si,N - mul si - add ax,[X] - mov cl,[Board+eax] -@@: movzx eax,[Y] - add ax,[esp] - mov [Y],ax - test eax,eax - jz .ret - cmp eax,N-1 - jg .ret - movzx ebx,[X] - add bx,[esp+2] - mov [X],bx - test ebx,ebx - jz .ret - cmp ebx,N-1 - jg .ret - mov si,N - mul si - add ax,bx - cmp byte [Board+eax],cl - je @b - -.ret: mov edi,5 - mov esi,N -@@: movzx eax,[Y] - sub ax,[esp] - mov [Y],ax - mul si - movzx ebx,[X] - sub bx,[esp+2] - mov [X],bx - add ax,bx - cmp byte [Board+eax],cl - jne .1 - add byte [Board+eax],2 -.1: dec edi - jnz @b - add esp,4 -ret - - - -Max dw ? - -FindMove: - mov [Max],0 - mov [X],((N+1) / 2) - mov [Y],((N+1) / 2) - movzx eax,[Y] - mov ah,N - mul ah - add ax,[X] - cmp byte [Board+eax],0 - jne @f - mov [Max],4 -@@: xor ecx,ecx -.loop: - cmp byte [Board+ecx],0 - jne .check_loop - movzx eax, word [Value+ecx*2] - bt [flags],1 - jc @f - movzx eax, word [Value+(N*N+ecx)*2] - @@: - mov ebx,16 - add bx,[AttackFactor] - mul bx - shr eax,4 ;div 16 - mov bx,[Value+2*(N*N+ecx)] - bt [flags],1 - jc @f - mov bx,[Value+2*(ecx)] - @@: - add bx,ax - mov eax,4 - call random - add bx,ax - cmp bx,[Max] - jbe .check_loop - mov [Max],bx - xor edx,edx - mov eax,ecx - mov ebx,N - div ebx - mov [X],dx - mov [Y],ax -.check_loop: - inc ecx - cmp ecx,N*N - jb .loop -ret - - -MakeMove: - xor eax,eax - mov esi,N - -.1: movzx ecx,[X] ;ecx=X1, eax=K, edx=Y1 - inc cl - movzx edx,[Y] - inc dl - sub cl,al - xor edi,edi - test ecx,ecx - jz .1_ - cmp ecx,N-4 - jg .1_ - dec cl - dec dl - push eax edx - mov eax,edx - mul esi - add eax,ecx - call .Add - bt [flags],0 - jnc .11 - cmp [WinningLine],0x0 - jne .11 - mov [WinningLine],1 - .11: mov eax,[esp];edx - mul esi - add eax,ecx - push eax - mov eax,[esp+4];edx - mul esi - add eax,edi - add eax,ecx - mov ebx,eax - pop eax - call .Update - inc edi - cmp edi,4 - jbe .11 - pop edx eax -.1_: inc eax - cmp eax,4 - jbe .1 - - xor eax,eax - -.2: movzx ecx,[X] - inc cl - movzx edx,[Y] - inc dl - xor edi,edi - sub cl,al - sub dl,al - test ecx,ecx - jz .2_ - cmp ecx,N-4 - jg .2_ - test edx,edx - jz .2_ - cmp edx,N-4 - jg .2_ - dec cl - dec dl - push eax edx - mov eax,edx - mul esi - add eax,ecx - add eax,1*N*N - call .Add - bt [flags],0 - jnc .21 - cmp [WinningLine],0x0 - jne .21 - mov [WinningLine],2 - .21: mov eax,[esp];edx - mul esi - add eax,ecx - add eax,1*N*N - push eax - mov eax,[esp+4];edx - add eax,edi - mul esi - add eax,edi - add eax,ecx - mov ebx,eax - pop eax - call .Update - inc edi - cmp edi,4 - jbe .21 - pop edx eax -.2_: inc eax - cmp eax,4 - jbe .2 - - xor eax,eax - -.3: movzx ecx,[X] - inc cl - movzx edx,[Y] - inc dl - xor edi,edi - add cl,al - sub dl,al - cmp ecx,5 - jb .3_ - cmp ecx,N - jg .3_ - test edx,edx - jz .3_ - cmp edx,N-4 - jg .3_ - dec cl - dec dl - push eax edx - mov eax,edx - mul esi - add eax,ecx - add eax,3*N*N - call .Add - bt [flags],0 - jnc .31 - cmp [WinningLine],0 - jne .31 - mov [WinningLine],3 - .31: mov eax,[esp];edx - mul esi - add eax,ecx - add eax,3*N*N - push eax - mov eax,[esp+4];edx - add eax,edi - mul esi - add eax,ecx - sub eax,edi - mov ebx,eax - pop eax - call .Update - inc edi - cmp edi,4 - jbe .31 - pop edx eax -.3_: inc eax - cmp eax,4 - jbe .3 - - xor eax,eax - -.4: movzx ecx,[X] - inc cl - movzx edx,[Y] - inc dl - xor edi,edi - sub dl,al - test edx,edx - jz .4_ - cmp edx,N-4 - jg .4_ - dec cl - dec dl - push eax edx - mov eax,edx - mul esi - add eax,ecx - add eax,2*N*N - call .Add - bt [flags],0 - jnc .41 - cmp [WinningLine],0 - jne .41 - mov [WinningLine],4 - .41: mov eax,[esp];edx - mul esi - add eax,ecx - add eax,2*N*N - push eax - mov eax,[esp+4];edx - add eax,edi - mul esi - add eax,ecx - mov ebx,eax - pop eax - call .Update - inc edi - cmp edi,4 - jbe .41 - pop edx eax -.4_: inc eax - cmp eax,4 - jbe .4 - - movzx eax,[Y] - mul esi - add ax,[X] - bt [flags],1 - jc @f - mov byte [Board+eax],1 - jmp .end -@@: - mov byte [Board+eax],2 -.end: cmp [TotalLines],0 - jne @f - bts [flags],3 -@@: -ret - -.Add: - bt [flags],1 - jnc .Add_player - inc byte [Line+eax] - cmp byte [Line+eax],1 - jne @f - dec [TotalLines] -@@: cmp byte [Line+eax],5 - jb @f - bts [flags],0 ;игра окончена -@@: -ret -.Add_player: - inc byte [Line+eax+4*N*N] - cmp byte [Line+eax+4*N*N],1 - jne @f - dec [TotalLines] -@@: cmp byte [Line+eax+4*N*N],5 - jb @f - bts [flags],0 ;игра окончена -@@: -ret - -.Update: -;eax первый параметр, ebx второй - push edi - bt [flags],1 - jnc .Update_player - cmp byte [Line+eax+4*N*N],0 - jne .else_cpu - push eax - movzx edi, byte [Line+eax] - mov ax, word [edi*2+2+Weight] - sub ax, word [edi*2+Weight] - add [Value+ebx*2],ax - pop eax - jmp .Update_end - .else_cpu: - cmp byte [Line+eax],1 - jne .Update_end - push eax - movzx edi, byte [Line+eax+4*N*N] - mov ax, word [edi*2+2+Weight] - sub [Value+ebx*2+N*N*2],ax - pop eax - jmp .Update_end -.Update_player: - cmp byte [Line+eax],0 - jne .else_player - push eax - movzx edi, byte [Line+eax+4*N*N] - mov ax, word [edi*2+2+Weight] - mov di, word [edi*2+Weight] - sub ax,di - add [Value+ebx*2+2*N*N],ax - pop eax - jmp .Update_end - .else_player: - cmp byte [Line+eax+4*N*N],1 - jne .Update_end - push eax - movzx edi, byte [Line+eax] - mov ax, word [edi*2+2+Weight] - sub [Value+ebx*2],ax - pop eax -.Update_end: - pop edi -ret - - -align 4 -rsx1 dw ?;0x4321 -rsx2 dw ?;0x1234 -random: ; из ASCL - push ecx ebx edi edx - mov cx,ax - mov ax,[rsx1] - mov bx,[rsx2] - mov si,ax - mov di,bx - mov dl,ah - mov ah,al - mov al,bh - mov bh,bl - xor bl,bl - rcr dl,1 - rcr ax,1 - rcr bx,1 - add bx,di - adc ax,si - add bx,0x62e9 - adc ax,0x3619 - mov [rsx1],bx - mov [rsx2],ax - xor dx,dx - cmp ax,0 - je nodiv - cmp cx,0 - je nodiv - div cx -nodiv: - mov ax,dx - pop edx edi ebx ecx - and eax,0000ffffh -ret - - - -pic_x db 10000010b, \ - 01000100b, \ - 00101000b, \ - 00010000b, \ - 00101000b, \ - 01000100b, \ - 10000010b - -pic_o db 01111100b, \ - 10000010b, \ - 10000010b, \ - 10000010b, \ - 10000010b, \ - 10000010b, \ - 01111100b - -pic_plt dd 0xffffff, 0x000000 -if lang eq ru_RU -title db 'Гомоку',0 -txt_buttons db 'Новая Авто',0 -txt_go db 'Игра окончена',0 -txt_tie db 'Нет ходов',0 -else -title db 'Gomoku',0 -txt_go db 'Game over',0 -txt_tie db 'Tie game',0 -txt_buttons db 'New Auto',0 -endf - - -Weight dw 0,0,4,20,100,500,0 - - -WinningLine db 0 -TotalLines dw 0 - -X dw 0 -Y dw 0 - -flags rw 1 -;бит 0: игра окончена -;1: 0-ход игрока, 1-цпу -;2: autoplay -;3: ходы исчерпаны -;4: в print_board - выделение красным цветом 5-ти в ряд клеток - -I_END: -align 16 -Board rb N*N -Value rw N*N*2 ;первая половина - для компа, вторая - для игрока -Line rb 4*N*N*2 -proc_info process_information - rb 0x100 ; stack -E_END: +;http://sources.ru/pascal/gamestxt/go-moku.zip + +N = 19 ; Size of the board + +use32 + org 0x0 + db 'MENUET01' + dd 0x1 + dd START + dd I_END + dd E_END + dd E_END + dd 0x0,0x0 + +include '../../../macros.inc' +include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US. + +AttackFactor dw 1 ; Importance of attack (1..16) + +START: + + mcall 40,0x80000027 + mcall 3 + mov [rsx1],ax + shr eax,16 + mov [rsx2],ax + +redraw_all: + mcall 9,proc_info,-1 + test [proc_info.wnd_state], 0x04 ; is rolled_up? + jz @f + mcall 0,100*65536+(16*N+12),,0x34FFFFFF,,title + jmp still + @@: + mcall 12,1 + mcall 48,4 + xchg eax,ecx + add ecx,100*65536+(16*N+26) + mcall 0,<100,16*N+12>,,0x34FFFFFF,,title + mcall 38,<2,16*N>,<20,20>,0x00a0a0a0;000000 + mov edi,N + @@: add ecx,16*65536+16 + mcall + dec edi + jnz @b + push cx + mov ecx,20*65536 + pop cx + mcall ,1*65536+1 + mov edi,N + @@: add ebx,16*65536+16 + mcall + dec edi + jnz @b + + mcall 8,3*65536+40,3*65536+12,2,0xFFFFFF + mcall ,50*65536+40,,3, + mcall 4,7*65536+5,0x80000000,txt_buttons + mcall 12,2 + + +draw_pole: +; mcall 48,4 +; xchg eax,ecx +; add ecx,100*65536+(16*N+26) +; mcall 0,100*65536+(16*N+12),,0x74FFFFFF,,title + + mov esi,Board + mov edi,N*N-N + mov ebp,N + mov ebx,(1+5)*65536+(21+5-1) + call print_board + bt [flags],0 + jnc @f + mcall 4,100*65536+6,0x800000ff,txt_go +@@: bt [flags],3 + jnc @f + mcall 4,100*65536+6,0x800000ff,txt_tie + jmp still +@@: + bt [flags],2 + jnc still + ret +still: + mcall 10 + + dec al + jz redraw_all + dec al + jz key + dec al + jz button + sub al,3 + jz mouse + jmp still + +key: + mcall 2 + btr [flags],2 + cmp ah,97 + jne @f +.auto: bts [flags],2 + jmp mouse.auto +@@: cmp ah,110 + je button.new_game + jmp still + +button: + mcall 17 + cmp ah,1 + jne @f + mcall -1 +@@: cmp ah,2 + jne key.auto +.new_game: + mov [TotalLines],2 * 2 * (N * (N - 4) + (N - 4) * (N - 4)) + mov [WinningLine],0x0 + mov [X],(N + 1)/2 + mov [Y],(N + 1)/2 + mov [flags],0 + mov edi,Board + mov ecx,(13*N*N/4)+1 + xor eax,eax + cld +@@: stosd + loop @b + jmp redraw_all + +print_board: + cmp byte [esi],0 ;яєёЄю + je .null + cmp byte [esi],1 ;X + je .one + cmp byte [esi],2 ;O + je .two + bts [flags],4 + cmp byte [esi],3 ;╒ т√шуЁры + je .one + jmp .two ;0 т√шуЁры + +.end: + inc esi + dec ebp + jnz print_board + test edi,edi + jz @f + sub edi,N + mov ebp,N + add ebx,-N*16*65536+16 + jmp print_board +@@: ret + +.one: + mov [pic_plt+4],0x4ba010 + btr [flags],4 + jnc @f + mov [pic_plt+4],0xff0000 +@@: pushad + mov edx, ebx + mcall 65,pic_x,<7,7>,,1,pic_plt, 0 + popad +.null: + add ebx,16*65536;+16 + jmp .end +.two: + mov [pic_plt+4],0x00459a + btr [flags],4 + jnc @f + mov [pic_plt+4],0xff0000 +@@: pushad + mov edx, ebx + mcall 65,pic_o,<7,7>,,1,pic_plt, 0 + popad + jmp .null + + +draw_one_symbol: + movzx eax,[X] + mov ebx,16 + mul ebx + shl eax,16 + add eax,(1+5)*65536; + mov ax,[Y] + mov ecx,16 + mul cx + add ax,(21+5-1) + xchg eax,ebx + + movzx eax,[Y] + push ebx + mov ebx,N + mul bx + mov bx,[X] + add ax,bx + pop ebx + mov esi,Board + add esi,eax + mov edi,0 + mov ebp,1 + call print_board +ret + + +mouse: + bt [flags],5 + jc still + mcall 37,2 + test eax,eax + jz still + mcall 37,1 + mov dx,ax + shr eax,16 + cmp dx,20 + jbe still + cmp dx,(16*N+20) + jge still + cmp ax,1 + jbe still + cmp ax,(16*N) + jge still + + bt [flags],0 + jc still + bt [flags],3 + jc still + sub ax,1 + push dx + xor edx,edx + mov cx,16 + div cx + pop dx + mov [X],ax + push ax + sub dx,20 + mov ax,dx + xor dx,dx + div cx + mov [Y],ax + xor dx,dx + mov cx,N + mul cx + pop dx + add ax,dx + cmp ax,N*N + jge still + mov esi,Board + + cmp byte [esi+eax],0 + jne still + +.auto: bt [flags],0 + jc .end + bt [flags],3 + jc .end + + btr [flags],1 ;0 - ход делает игрок + bt [flags],2 + jnc @f + call FindMove +@@: call MakeMove + call draw_one_symbol + bt [flags],0 + jc .end + + bts [flags],1 ;1 - ход делает cpu + call FindMove + call MakeMove + call draw_one_symbol +.end: bt [flags],0 + jnc @f + call BlinkRow + btr [flags],2 +@@:; mcall 12,1 + bt [flags],3 + jc @f + bt [flags],2 + jnc @f + call draw_pole + jmp .auto +@@: jmp draw_pole + + + + +winline: dw 1,0, 1,1, 1,-1, 0,1 ;X,Y +BlinkRow: + movzx ecx,[WinningLine] + mov eax,[winline+(ecx-1)*4] + push ax ;Dx + shr eax,16 + push ax ;Dy + movzx eax,[Y] + mov si,N + mul si + add ax,[X] + mov cl,[Board+eax] +@@: movzx eax,[Y] + add ax,[esp] + mov [Y],ax + test eax,eax + jz .ret + cmp eax,N-1 + jg .ret + movzx ebx,[X] + add bx,[esp+2] + mov [X],bx + test ebx,ebx + jz .ret + cmp ebx,N-1 + jg .ret + mov si,N + mul si + add ax,bx + cmp byte [Board+eax],cl + je @b + +.ret: mov edi,5 + mov esi,N +@@: movzx eax,[Y] + sub ax,[esp] + mov [Y],ax + mul si + movzx ebx,[X] + sub bx,[esp+2] + mov [X],bx + add ax,bx + cmp byte [Board+eax],cl + jne .1 + add byte [Board+eax],2 +.1: dec edi + jnz @b + add esp,4 +ret + + + +Max dw ? + +FindMove: + mov [Max],0 + mov [X],((N+1) / 2) + mov [Y],((N+1) / 2) + movzx eax,[Y] + mov ah,N + mul ah + add ax,[X] + cmp byte [Board+eax],0 + jne @f + mov [Max],4 +@@: xor ecx,ecx +.loop: + cmp byte [Board+ecx],0 + jne .check_loop + movzx eax, word [Value+ecx*2] + bt [flags],1 + jc @f + movzx eax, word [Value+(N*N+ecx)*2] + @@: + mov ebx,16 + add bx,[AttackFactor] + mul bx + shr eax,4 ;div 16 + mov bx,[Value+2*(N*N+ecx)] + bt [flags],1 + jc @f + mov bx,[Value+2*(ecx)] + @@: + add bx,ax + mov eax,4 + call random + add bx,ax + cmp bx,[Max] + jbe .check_loop + mov [Max],bx + xor edx,edx + mov eax,ecx + mov ebx,N + div ebx + mov [X],dx + mov [Y],ax +.check_loop: + inc ecx + cmp ecx,N*N + jb .loop +ret + + +MakeMove: + xor eax,eax + mov esi,N + +.1: movzx ecx,[X] ;ecx=X1, eax=K, edx=Y1 + inc cl + movzx edx,[Y] + inc dl + sub cl,al + xor edi,edi + test ecx,ecx + jz .1_ + cmp ecx,N-4 + jg .1_ + dec cl + dec dl + push eax edx + mov eax,edx + mul esi + add eax,ecx + call .Add + bt [flags],0 + jnc .11 + cmp [WinningLine],0x0 + jne .11 + mov [WinningLine],1 + .11: mov eax,[esp];edx + mul esi + add eax,ecx + push eax + mov eax,[esp+4];edx + mul esi + add eax,edi + add eax,ecx + mov ebx,eax + pop eax + call .Update + inc edi + cmp edi,4 + jbe .11 + pop edx eax +.1_: inc eax + cmp eax,4 + jbe .1 + + xor eax,eax + +.2: movzx ecx,[X] + inc cl + movzx edx,[Y] + inc dl + xor edi,edi + sub cl,al + sub dl,al + test ecx,ecx + jz .2_ + cmp ecx,N-4 + jg .2_ + test edx,edx + jz .2_ + cmp edx,N-4 + jg .2_ + dec cl + dec dl + push eax edx + mov eax,edx + mul esi + add eax,ecx + add eax,1*N*N + call .Add + bt [flags],0 + jnc .21 + cmp [WinningLine],0x0 + jne .21 + mov [WinningLine],2 + .21: mov eax,[esp];edx + mul esi + add eax,ecx + add eax,1*N*N + push eax + mov eax,[esp+4];edx + add eax,edi + mul esi + add eax,edi + add eax,ecx + mov ebx,eax + pop eax + call .Update + inc edi + cmp edi,4 + jbe .21 + pop edx eax +.2_: inc eax + cmp eax,4 + jbe .2 + + xor eax,eax + +.3: movzx ecx,[X] + inc cl + movzx edx,[Y] + inc dl + xor edi,edi + add cl,al + sub dl,al + cmp ecx,5 + jb .3_ + cmp ecx,N + jg .3_ + test edx,edx + jz .3_ + cmp edx,N-4 + jg .3_ + dec cl + dec dl + push eax edx + mov eax,edx + mul esi + add eax,ecx + add eax,3*N*N + call .Add + bt [flags],0 + jnc .31 + cmp [WinningLine],0 + jne .31 + mov [WinningLine],3 + .31: mov eax,[esp];edx + mul esi + add eax,ecx + add eax,3*N*N + push eax + mov eax,[esp+4];edx + add eax,edi + mul esi + add eax,ecx + sub eax,edi + mov ebx,eax + pop eax + call .Update + inc edi + cmp edi,4 + jbe .31 + pop edx eax +.3_: inc eax + cmp eax,4 + jbe .3 + + xor eax,eax + +.4: movzx ecx,[X] + inc cl + movzx edx,[Y] + inc dl + xor edi,edi + sub dl,al + test edx,edx + jz .4_ + cmp edx,N-4 + jg .4_ + dec cl + dec dl + push eax edx + mov eax,edx + mul esi + add eax,ecx + add eax,2*N*N + call .Add + bt [flags],0 + jnc .41 + cmp [WinningLine],0 + jne .41 + mov [WinningLine],4 + .41: mov eax,[esp];edx + mul esi + add eax,ecx + add eax,2*N*N + push eax + mov eax,[esp+4];edx + add eax,edi + mul esi + add eax,ecx + mov ebx,eax + pop eax + call .Update + inc edi + cmp edi,4 + jbe .41 + pop edx eax +.4_: inc eax + cmp eax,4 + jbe .4 + + movzx eax,[Y] + mul esi + add ax,[X] + bt [flags],1 + jc @f + mov byte [Board+eax],1 + jmp .end +@@: + mov byte [Board+eax],2 +.end: cmp [TotalLines],0 + jne @f + bts [flags],3 +@@: +ret + +.Add: + bt [flags],1 + jnc .Add_player + inc byte [Line+eax] + cmp byte [Line+eax],1 + jne @f + dec [TotalLines] +@@: cmp byte [Line+eax],5 + jb @f + bts [flags],0 ;игра окончена +@@: +ret +.Add_player: + inc byte [Line+eax+4*N*N] + cmp byte [Line+eax+4*N*N],1 + jne @f + dec [TotalLines] +@@: cmp byte [Line+eax+4*N*N],5 + jb @f + bts [flags],0 ;игра окончена +@@: +ret + +.Update: +;eax первый параметр, ebx второй + push edi + bt [flags],1 + jnc .Update_player + cmp byte [Line+eax+4*N*N],0 + jne .else_cpu + push eax + movzx edi, byte [Line+eax] + mov ax, word [edi*2+2+Weight] + sub ax, word [edi*2+Weight] + add [Value+ebx*2],ax + pop eax + jmp .Update_end + .else_cpu: + cmp byte [Line+eax],1 + jne .Update_end + push eax + movzx edi, byte [Line+eax+4*N*N] + mov ax, word [edi*2+2+Weight] + sub [Value+ebx*2+N*N*2],ax + pop eax + jmp .Update_end +.Update_player: + cmp byte [Line+eax],0 + jne .else_player + push eax + movzx edi, byte [Line+eax+4*N*N] + mov ax, word [edi*2+2+Weight] + mov di, word [edi*2+Weight] + sub ax,di + add [Value+ebx*2+2*N*N],ax + pop eax + jmp .Update_end + .else_player: + cmp byte [Line+eax+4*N*N],1 + jne .Update_end + push eax + movzx edi, byte [Line+eax] + mov ax, word [edi*2+2+Weight] + sub [Value+ebx*2],ax + pop eax +.Update_end: + pop edi +ret + + +align 4 +rsx1 dw ?;0x4321 +rsx2 dw ?;0x1234 +random: ; из ASCL + push ecx ebx edi edx + mov cx,ax + mov ax,[rsx1] + mov bx,[rsx2] + mov si,ax + mov di,bx + mov dl,ah + mov ah,al + mov al,bh + mov bh,bl + xor bl,bl + rcr dl,1 + rcr ax,1 + rcr bx,1 + add bx,di + adc ax,si + add bx,0x62e9 + adc ax,0x3619 + mov [rsx1],bx + mov [rsx2],ax + xor dx,dx + cmp ax,0 + je nodiv + cmp cx,0 + je nodiv + div cx +nodiv: + mov ax,dx + pop edx edi ebx ecx + and eax,0000ffffh +ret + + + +pic_x db 10000010b, \ + 01000100b, \ + 00101000b, \ + 00010000b, \ + 00101000b, \ + 01000100b, \ + 10000010b + +pic_o db 01111100b, \ + 10000010b, \ + 10000010b, \ + 10000010b, \ + 10000010b, \ + 10000010b, \ + 01111100b + +pic_plt dd 0xffffff, 0x000000 +if lang eq ru_RU +title db 'Гомоку',0 +txt_buttons db 'Новая Авто',0 +txt_go db 'Игра окончена',0 +txt_tie db 'Нет ходов',0 +else ; Default to en_US +title db 'Gomoku',0 +txt_go db 'Game over',0 +txt_tie db 'Tie game',0 ; FIXME: Should text be 'Draw'? +txt_buttons db 'New Auto',0 +endf + + +Weight dw 0,0,4,20,100,500,0 + + +WinningLine db 0 +TotalLines dw 0 + +X dw 0 +Y dw 0 + +flags rw 1 +;бит 0: игра окончена +;1: 0-ход игрока, 1-цпу +;2: autoplay +;3: ходы исчерпаны +;4: в print_board - выделение красным цветом 5-ти в ряд клеток + +I_END: +align 16 +Board rb N*N +Value rw N*N*2 ;первая половина - для компа, вторая - для игрока +Line rb 4*N*N*2 +proc_info process_information + rb 0x100 ; stack +E_END: diff --git a/programs/games/life3/trunk/life3.asm b/programs/games/life3/trunk/life3.asm index 530ecc3fe2..fecdc79826 100644 --- a/programs/games/life3/trunk/life3.asm +++ b/programs/games/life3/trunk/life3.asm @@ -1,1732 +1,1732 @@ -use32 - org 0 - db 'MENUET01' - dd 1,start,i_end,mem,stacktop,0,sys_path - -include '../../../macros.inc' -include '../../../proc32.inc' -include '../../../KOSfuncs.inc' -include '../../../load_img.inc' -include '../../../load_lib.mac' - -;include 'lang.inc' - -@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load -hed db 'Life 18.11.20',0 ;подпись окна - -run_file_70 FileInfoBlock -image_data dd 0 ;указатель на временную память. для нужен преобразования изображения - -ICONSIZE = 21 -TBTNSIZE = ICONSIZE-2 - -IMAGE_TOOLBAR_ICON_SIZE equ ICONSIZE*ICONSIZE*3 -image_data_toolbar dd 0 - - -;-------------------------------------- -struct Cell - x dd ? ;+0 - y dd ? ;+4 - tc dd ? ;+8 поколение в котором родилась особь - liv db ? ;+12 живая ячейка или нет - so db ? ;+13 число соседей -ends - -MAX_CELL equ 90000 ;должно быть кратно 4 -COL_MEM equ 64 ;число цветов для отличия молодых и старых - -cell dd 0 ;указатель на память со структурами ячеек -memCell dd 0 -CellColors dd 0 - -macro get_cell_offset reg,ind -{ - mov reg,ind - imul reg,sizeof.Cell - add reg,dword[cell] -} - -er_oom db 0 ;на случай исчерпания памяти -tim_ch db 0 ;автоматически просчитывать поколения -poc_stop dd 1 ;просчет на число поколений -Cor_x dd 0 -Cor_y dd 0 -tim dd 0 ;время (поколение) -b_sort dd 0 ;граница для сортированных ячеек -osob dd 0 ;число особей -zoom db 3 ;масштаб поля - -if lang eq ru_RU -txt_zoom db ' Масштаб:',0 -txt_gen db ' Поколение:',0 -txt_osob db ' Особей:',0 -else -txt_zoom db ' Zoom:',0 -txt_gen db 'Generation:',0 -txt_osob db 'Population:',0 -end if - -;настройка массива с цветами -; col_pole - цвет поля -; col_cell_n - цвет новой ячейки -; col_cell_o - цвет старой ячейки -align 4 -proc pole_init_colors uses eax ebx ecx edx esi edi, col_pole:dword, col_cell_n:dword, col_cell_o:dword - mov esi,[CellColors] - mov ebx,[col_pole] - mov [esi],ebx - - lea edi,[esi+4*COL_MEM] - add esi,4 - ; esi - указатель на 1-й градиентный цвет - ; edi - указатель на последний градиентный цвет - mov eax,[col_cell_n] - mov ebx,[col_cell_o] - - mov [esi],eax - mov [edi],ebx - ;need save ecx edx - stdcall middle_colors, esi,edi - - ret -endp - -;вспомогательная функция для находжения среднего цвета и записи его в массив -;input: -; eax - цвет начальный -; ebx - цвет конечный -;зазрушаються: ecx, edx -align 4 -proc middle_colors uses edi esi, i0:dword, i1:dword - mov esi,[i0] - mov edi,[i1] - ;перед вызовом функции - ;dword[esi]=eax - ;dword[edi]=ebx - sub edi,esi - shr edi,1 - btr edi,1 ;округляем до 4-х, т. к. нужно получить адрес (округление хитрое - убираем один бит вместо предполагаемых 2-х) - add edi,esi - cmp edi,esi - je @f - push eax ebx - - mov ecx,eax - mov edx,ebx - - ;находим средний цвет между eax и ebx - and ebx,111111101111111011111110b ;убираем последние биты в цветах r, g, b - and eax,111111101111111011111110b - add eax,ebx ;сумируем цвета из r, g, b - shr eax,1 ;делим на 2 - mov dword[edi],eax - - ;рекурсивный вызов для дробления верхней половины - mov ebx,eax - mov eax,ecx - stdcall middle_colors, [i0],edi - - ;рекурсивный вызов для дробления нижней половины - mov eax,ebx - mov ebx,edx - stdcall middle_colors, edi,[i1] - - pop ebx eax - @@: - ret -endp - -align 4 -proc pole_clear uses eax ecx edi - xor eax,eax - mov dword[tim],eax - mov dword[osob],eax - mov byte[tim_ch],al - mov dword[Cor_x],eax - mov dword[Cor_y],eax - mov dword[b_sort],eax - mov byte[er_oom],al - cld - mov ecx,(MAX_CELL*sizeof.Cell)/4 - mov edi,[cell] - rep stosd ;memset(cell,0,sizeof(Cell)*MAX_CELL); - mov edi,[memCell] - mov ecx,MAX_CELL - @@: - stosd ;for(i=0;i memCell[firstC] - get_cell_offset ebx,[eax] - - mov ecx,[x] - mov dword[ebx],ecx ;+0 = .x - mov edx,[y] - mov dword[ebx+Cell.y],edx - mov eax,[tim] - mov dword[ebx+Cell.tc],eax - mov byte[ebx+Cell.liv],0 - - cmp dword[li],0 - jne @f - mov byte[ebx+Cell.so],1 - jmp .fun_e - @@: - mov byte[ebx+Cell.so],0 - - .creat_border_cells: - inc dword[osob] - or byte[ebx+Cell.liv],1 - mov ecx,[x] - dec ecx - mov edx,[y] - dec edx - stdcall pole_cell_creat,ecx,edx,0 - inc edx - stdcall pole_cell_creat,ecx,edx,0 - inc edx - stdcall pole_cell_creat,ecx,edx,0 - inc ecx - stdcall pole_cell_creat,ecx,edx,0 - sub edx,2 - stdcall pole_cell_creat,ecx,edx,0 - inc ecx - stdcall pole_cell_creat,ecx,edx,0 - inc edx - stdcall pole_cell_creat,ecx,edx,0 - inc edx - stdcall pole_cell_creat,ecx,edx,0 - .fun_e: - popad ;edi edx ecx ebx eax - ret -endp - -;output: -; eax - index -align 4 -proc pole_cell_find, x:dword, y:dword - mov eax,[memCell] - cmp dword[eax],0 - jne @f - xor eax,eax ;if(!fristC) return 0; - jmp .fun_e - @@: - - xor eax,eax ;fnd=0; - cmp dword[b_sort],0 - je @f - stdcall pole_bin_find, [memCell], [x],[y], [b_sort] ;i=BinFind(memCell, x,y, b_sort); - cmp eax,0 - je @f - shl eax,2 - add eax,[memCell] - mov eax,[eax] ;if(i) fnd=memCell[i]; - jmp .fun_e - @@: - - cmp eax,0 - jne @f ;if(!fnd){ // поиск ячейки за бинарным деревом - push ebx ecx edx edi esi - ;ebx -> i - ;ecx -> firstC - ;edx -> &memCell[i] - ;edi -> cell[memCell[i]] - mov ecx,[memCell] - mov ebx,[b_sort] - lea edx,[ebx*4] - add edx,ecx - mov ecx,[ecx] - .cycle_b: ;for(i=b_sort+1;i<=fristC;i++) - inc ebx - cmp ebx,ecx - jg .cycle_e - add edx,4 - get_cell_offset edi,[edx] - mov esi,[x] - cmp dword[edi],esi ;+0 = .x - jne .if_e - mov esi,[y] - cmp dword[edi+Cell.y],esi - jne .if_e - ;if(cell[memCell[i]].x==x && cell[memCell[i]].y==y){ - mov eax,[edx] ;fnd=memCell[i]; - jmp .cycle_e ;break; - .if_e: - jmp .cycle_b - .cycle_e: - pop esi edi edx ecx ebx - @@: - .fun_e: - ret -endp - -;output: -; eax - index -align 4 -proc pole_bin_find, mas:dword, fx:dword, fy:dword, k:dword - push ebx ecx edx edi - xor eax,eax - mov ebx,1 ;ebx - максимальный порядок для дерева - @@: - cmp dword[k],ebx - jle @f ;while(k>por) - shl ebx,1 ;por<<=1; - jmp @b - @@: - cmp dword[k],ebx - jge @f ;if(k>=1; - @@: - mov ecx,ebx ;i=por; - - ;ecx -> i - ;edi -> mas[i] - .cycle_b: ;do{ - shr ebx,1 ;por>>=1; - - lea edi,[ecx*4] - add edi,[mas] - ;if(compare_cells_mb(mas[i],fx,fy)){ - stdcall pole_compare_cells_mb_coords, dword[edi],[fx],[fy] - cmp dl,0 - je .if_u0_e - @@: ;while(i+por>k) - mov edx,ecx - add edx,ebx - cmp edx,[k] ;i+por>k - jle @f - shr ebx,1 ;por>>=1; - jmp @b - @@: - add ecx,ebx ;i+=por; - jmp .if_e - .if_u0_e: - ;else if(compare_cells_bm(mas[i],fx,fy))i-=por; - stdcall pole_compare_cells_bm_coords, dword[edi],[fx],[fy] - cmp dl,0 - je .if_u1_e - sub ecx,ebx - jmp .if_e - .if_u1_e: - ;else { m=i; por=0; } - mov eax,ecx - xor ebx,ebx - .if_e: - cmp ebx,0 - jne .cycle_b ;}while(por); - - pop edi edx ecx ebx - ret -endp - -;description: -; вспомогательная функция для сортировки ячееки по координатам -;output: -; dl -align 4 -proc pole_compare_cells_bm_coords, i0:dword, fx:dword, fy:dword - push eax ebx ecx - get_cell_offset eax,[i0] - ;eax -> cell[i0] - mov ebx,[fx] - cmp dword[eax],ebx - jle @f - mov dl,1 - jmp .fun_e - @@: - mov ecx,[fy] - cmp dword[eax+Cell.y],ecx - jle @f - cmp dword[eax],ebx - jne @f - mov dl,1 - jmp .fun_e - @@: - xor dl,dl - .fun_e: - pop ecx ebx eax - ret -endp - -;description: -; вспомогательная функция для сортировки ячееки по координатам -;output: -; dl -align 4 -proc pole_compare_cells_mb_coords, i0:dword, fx:dword, fy:dword - push eax ebx ecx - get_cell_offset eax,[i0] - ;eax -> cell[i0] - mov ebx,[fx] - cmp dword[eax],ebx - jge @f - mov dl,1 - jmp .fun_e - @@: - mov ecx,[fy] - cmp dword[eax+Cell.y],ecx - jge @f - cmp dword[eax],ebx - jne @f - mov dl,1 - jmp .fun_e - @@: - xor dl,dl - .fun_e: - pop ecx ebx eax - ret -endp - -;output: -; dl -align 4 -proc pole_compare_cells_bm, i0:dword, i1:dword - push eax ebx ecx - get_cell_offset eax,[i0] ;eax -> cell[i0] - get_cell_offset ebx,[i1] ;ebx -> cell[i1] - mov ecx,[ebx] ;+0 = .x - cmp dword[eax],ecx - jle @f ;x0>x1 - mov dl,1 - jmp .fun_e - @@: - jne @f ;x0==x1 - mov ecx,[ebx+Cell.y] - cmp dword[eax+Cell.y],ecx - jle @f ;y0>y1 - mov dl,1 - jmp .fun_e - @@: - xor dl,dl - .fun_e: - pop ecx ebx eax - ret -endp - -align 4 -pole_paint: - pushad - ;eax -> firstC - ;ebx -> i - ;ecx -> cell[memCell[i]] - ;edx -> color - ;edi -> coord_x - ;esi -> coord_y - mov eax,[memCell] - cmp dword[eax],0 - je .no_draw - - mov eax,[eax] - mov ebx,1 - -;--- - @@: ;while(i firstC - ;ebx -> i - ;ecx -> &memCell[i] - ;edx -> cell[memCell[i]] - - mov eax,[memCell] - mov ecx,eax - mov eax,[eax] - cmp eax,1 - jl .fun_e - inc dword[tim] - mov ebx,1 - @@: ;for(i=1;i<=firstC;i++) - add ecx,4 - get_cell_offset edx,[ecx] - bt word[edx+Cell.liv],0 - jae .if_0_e - ; сохранение ячейки (соседей 2 или 3) - cmp byte[edx+Cell.so],2 - je .if_2_e - cmp byte[edx+Cell.so],3 - je .if_2_e - jmp .change - .if_0_e: - ; создание ячейки (соседей 3) - cmp byte[edx+Cell.so],3 - jne .if_1_e - .change: - or byte[edx+Cell.liv],2 - jmp .if_2_e - .if_1_e: - ; удаление пустой ячейки для освобождения памяти - cmp byte[edx+Cell.so],0 - jne .if_2_e - mov edi,[edx+Cell.tc] - add edi,5 ; 5 - время сохранения пустой ячейки, до её удаления - cmp edi,[tim] - jge .if_2_e - lea edi,[eax*4] - add edi,[memCell] ;edi -> &memCell[fristC] - mov esi,[edi] ;swp=memCell[fristC]; - mov edx,[ecx] ;edx - уже не используем, потому можем портить - mov [edi],edx ;memCell[fristC]=memCell[i]; - mov [ecx],esi ;memCell[i]=swp; - dec eax - dec ebx - sub ecx,4 - .if_2_e: - - inc ebx - cmp ebx,eax - jle @b - mov ebx,[memCell] - mov [ebx],eax ;firstC <- eax - - mov [b_sort],eax - stdcall pole_fl_sort, [memCell],eax - - mov ecx,[memCell] - mov ebx,1 - @@: ;for(i=1;i<=firstC;i++) - add ecx,4 - get_cell_offset edx,[ecx] - bt word[edx+Cell.liv],1 - jae .no_change - xor byte[edx+Cell.liv],3 - mov edi,[tim] - mov [edx+Cell.tc],edi - bt word[edx+Cell.liv],0 - jc .new_cell - push eax - mov edi,[edx] - dec edi - mov esi,[edx+Cell.y] - dec esi - dec dword[osob] - ;дальше значение edx портится - stdcall pole_cell_find,edi,esi - get_cell_offset edx,eax - dec byte[edx+Cell.so] - inc esi - stdcall pole_cell_find,edi,esi - get_cell_offset edx,eax - dec byte[edx+Cell.so] - inc esi - stdcall pole_cell_find,edi,esi - get_cell_offset edx,eax - dec byte[edx+Cell.so] - inc edi - stdcall pole_cell_find,edi,esi - get_cell_offset edx,eax - dec byte[edx+Cell.so] - sub esi,2 - stdcall pole_cell_find,edi,esi - get_cell_offset edx,eax - dec byte[edx+Cell.so] - inc edi - stdcall pole_cell_find,edi,esi - get_cell_offset edx,eax - dec byte[edx+Cell.so] - inc esi - stdcall pole_cell_find,edi,esi - get_cell_offset edx,eax - dec byte[edx+Cell.so] - inc esi - stdcall pole_cell_find,edi,esi - get_cell_offset edx,eax - dec byte[edx+Cell.so] - pop eax - jmp .no_change - .new_cell: ; появилась новая ячейка - inc dword[osob] - mov edi,[edx] - dec edi - mov esi,[edx+Cell.y] - dec esi - stdcall pole_cell_creat,edi,esi,0 - inc esi - stdcall pole_cell_creat,edi,esi,0 - inc esi - stdcall pole_cell_creat,edi,esi,0 - inc edi - stdcall pole_cell_creat,edi,esi,0 - sub esi,2 - stdcall pole_cell_creat,edi,esi,0 - inc edi - stdcall pole_cell_creat,edi,esi,0 - inc esi - stdcall pole_cell_creat,edi,esi,0 - inc esi - stdcall pole_cell_creat,edi,esi,0 - .no_change: - inc ebx - cmp ebx,eax - jle @b - .fun_e: - popad - ret - -;Сортировка вектора a[1..n] методом Флойда -align 4 -proc pole_fl_sort, a:dword, n:dword - pushad - mov ecx,[a] - ;Формировать исходное частично упорядоченное дерево - mov eax,[n] - shr eax,1 - @@: ;for(i=n>>1; i>=2; i--) - stdcall pole_fl_surface, ecx,eax,[n] ;(a,i,n) - dec eax - cmp eax,2 - jge @b - ;Выполнить процедуру всплытия Флойда для каждого поддерева - mov eax,[n] - @@: ;for(i=n; i>=2; i--){ - stdcall pole_fl_surface, ecx,1,eax ;(a,1,i) - ;Поместить найденный максимальный элемент в конец списка - lea edi,[eax*4] - add edi,ecx ;edi -> &a[i] - mov esi,[edi] ;w=a[i]; - mov edx,[ecx+4] - mov [edi],edx ;a[i]=a[1]; - mov [ecx+4],esi ;a[1]=w; - - dec eax - cmp eax,2 - jge @b - popad - ret -endp - -;Процедура всплытия Флойда по дереву a[1..k] -align 4 -proc pole_fl_surface, a:dword, i:dword, k:dword -locals - copy dd ? -endl - pushad - ;edx -> ... - ;edi -> m - ;esi -> j - mov eax,[a] - mov ebx,[i] - mov ecx,[k] - - lea edx,[ebx*4] - add edx,eax - mov edx,[edx] - mov [copy],edx ;copy=a[i]; - mov edi,ebx - shl edi,1 ;m=i<<1; - .cycle_b: ;while (m<=k) { - cmp edi,ecx - jg .cycle_e - jne @f ;if (m==k) j=m; - mov esi,edi - jmp .else_e - @@: ;else if (pole_compare_cells_bm(a[m],a[m+1])) j=m; - lea edx,[edi*4] - add edx,eax - stdcall pole_compare_cells_bm, dword[edx],dword[edx+4] - cmp dl,0 - je @f - mov esi,edi - jmp .else_e - @@: ;else j=m+1; - mov esi,edi - inc esi - .else_e: - - ;if (pole_compare_cells_bm(a[j],copy)) { - lea edx,[esi*4] - add edx,eax - stdcall pole_compare_cells_bm, dword[edx],[copy] - cmp dl,0 - je .cycle_e ;} else break; //выход из цикла - - lea edx,[esi*4] - add edx,eax - push dword[edx] ;push a[j]; - lea edx,[ebx*4] - add edx,eax - pop dword[edx] ;a[i]=a[j]; - mov ebx,esi ;i=j; - mov edi,ebx - shl edi,1 ;m=i<<1; - - jmp .cycle_b - .cycle_e: - - ;значения многих регистров уже не важны т. к. конец функции - shl ebx,2 - add eax,ebx - mov edx,[copy] - mov [eax],edx ;a[i]=copy; - - popad - ret -endp -;-------------------------------------- - - -align 4 -start: - load_libraries l_libs_start,l_libs_end - ;проверка на сколько удачно загузилась наша либа - mov ebp,lib2 - cmp dword [ebp+ll_struc_size-4],0 - jz @f - mcall SF_TERMINATE_PROCESS ;exit not correct - @@: - mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors - mcall SF_SET_EVENTS_MASK,0x27 - stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога - - stdcall [buf2d_create], buf_0 ;создание буфера - - stdcall mem.Alloc,MAX_CELL*sizeof.Cell - mov [cell],eax - stdcall mem.Alloc,MAX_CELL*4 - mov [memCell],eax - stdcall mem.Alloc,(COL_MEM+1)*4 - mov [CellColors],eax - include_image_file 'life3tb.png', image_data_toolbar - - ;настройка цветов ячеек - stdcall pole_init_colors, 0xffffd0,0xff0000,0x0000ff - call pole_clear - call pole_paint ;рисование поля в буфере (не на экране) - - mcall SF_SYSTEM_GET,SSF_TIME_COUNT - mov [last_time],eax - -align 4 -red_win: - call draw_window - -align 4 -still: - mcall SF_SYSTEM_GET,SSF_TIME_COUNT - mov ebx,[last_time] - add ebx,10 ;задержка - cmp ebx,eax - jge @f - mov ebx,eax - @@: - sub ebx,eax - mcall SF_WAIT_EVENT_TIMEOUT - cmp eax,0 - je timer_funct - - cmp al,1 - jz red_win - cmp al,2 - jz key - cmp al,3 - jz button - cmp al,6 - jne @f - mcall SF_THREAD_INFO,procinfo,-1 - cmp ax,word[procinfo.window_stack_position] - jne @f ;окно не активно - call mouse - @@: - jmp still - -align 4 -mouse: - push eax ebx ecx - mcall SF_MOUSE_GET,SSF_BUTTON_EXT - bt eax,8 - jnc @f - ;mouse l. but. press - ;call mouse_left_d - ;jmp .end_l - @@: - bt eax,16 - jnc .end_l - ;mouse l. but. up - ;call mouse_left_u - ;jmp .end_l - .end_l: - - call buf_get_mouse_coord - cmp eax,-1 - je .end0 - shl eax,1 - sub eax,[buf_0.w] - sar eax,1 - ;mov [mouse_prop_x],eax - shl ebx,1 - sub ebx,[buf_0.h] - sar ebx,1 - ;mov [mouse_prop_y],ebx - - mcall SF_MOUSE_GET,SSF_SCROLL_DATA - test ax,ax - jz .end0 - - test ax,0x8000 - jnz .decr - ;увеличение масштаба - call but_zoom_p - jmp .end0 - .decr: - ;уменьшение масштаба - call but_zoom_m - .end0: - - pop ecx ebx eax - ret - -;output: -; eax - buffer coord X (если курсор за буфером -1) -; ebx - buffer coord Y (если курсор за буфером -1) -align 4 -proc buf_get_mouse_coord - mcall SF_MOUSE_GET,SSF_WINDOW_POSITION - cmp ax,word[buf_0.t] - jl .no_buf ;не попали в окно буфера по оси y - mov ebx,eax - shr ebx,16 - cmp bx,word[buf_0.l] - jl .no_buf ;не попали в окно буфера по оси x - - and eax,0xffff ;оставляем координату y - sub ax,word[buf_0.t] - cmp eax,[buf_0.h] - jg .no_buf - sub bx,word[buf_0.l] - cmp ebx,[buf_0.w] - jg .no_buf - xchg eax,ebx - jmp .end_f - .no_buf: - xor eax,eax - not eax - xor ebx,ebx - not ebx - .end_f: - ret -endp - -align 4 -timer_funct: - pushad - mcall SF_SYSTEM_GET,SSF_TIME_COUNT - mov [last_time],eax - - cmp byte[tim_ch],0 - je @f - ;call but_next_gen - cld - mov ecx,[poc_stop] - cmp ecx,1 - jg .clear - mov ecx,1 ;исправление ecx на случай чисел меньших 1 - jmp .cycle - .clear: ;чистим поле если есть просчет на несколько поколений за 1 такт таймера - stdcall [buf2d_clear], buf_0, [buf_0.color] - .cycle: - call pole_next_gen - loop .cycle - call pole_paint - stdcall [buf2d_draw], buf_0 - call draw_pok - @@: - popad - jmp still - -align 4 -draw_window: -pushad - mcall SF_REDRAW,SSF_BEGIN_DRAW - mcall SF_CREATE_WINDOW,(50 shl 16)+485,(50 shl 16)+415,0x73000000,0,hed - - mcall SF_THREAD_INFO,procinfo,-1 - mov eax,[procinfo.box.height] - cmp eax,120 - jge @f - mov eax,120 ;min size - @@: - sub eax,63 - mov ebx,[procinfo.box.width] - cmp ebx,270 - jge @f - mov ebx,270 - @@: - sub ebx,9 - cmp eax,[buf_0.h] ;смотрим размер буфера - jne @f - cmp ebx,[buf_0.w] - jne @f - jmp .end0 - @@: - stdcall [buf2d_resize], buf_0, ebx,eax,1 - stdcall [buf2d_clear], buf_0, [buf_0.color] - call pole_paint - .end0: - - mov edx,[sc.work] - mov ebx, 0 shl 16 - add ebx, [buf_0.w] - mcall SF_DRAW_RECT,,<0,35> - - mcall SF_DEFINE_BUTTON,(6 shl 16)+TBTNSIZE,(6 shl 16)+TBTNSIZE,4+0x40000000, [sc.work_button] - - mov ebx,(36 shl 16)+TBTNSIZE - mov edx,6+0x40000000 - int 0x40 - - mov ebx,(61 shl 16)+TBTNSIZE - mov edx,7+0x40000000 - int 0x40 - - mov ebx,(86 shl 16)+TBTNSIZE - mov edx,8+0x40000000 - int 0x40 - - mov ebx,(116 shl 16)+TBTNSIZE - mov edx,9+0x40000000 - int 0x40 - - mov ebx,(141 shl 16)+TBTNSIZE - mov edx,10+0x40000000 - int 0x40 - - mov ebx,(171 shl 16)+TBTNSIZE - mov edx,11+0x40000000 - int 0x40 - - mov ebx,(196 shl 16)+TBTNSIZE - mov edx,12+0x40000000 - int 0x40 - - mov ebx,(221 shl 16)+TBTNSIZE - mov edx,13+0x40000000 - int 0x40 - - mov ebx,(246 shl 16)+TBTNSIZE - mov edx,14+0x40000000 - int 0x40 - - mcall SF_PUT_IMAGE,[image_data_toolbar],(ICONSIZE shl 16)+ICONSIZE,(5 shl 16)+5 - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - mov edx,(35 shl 16)+5 ;run once - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - mov edx,(60 shl 16)+5 ;run auto - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - mov edx,(85 shl 16)+5 ;stop - int 0x40 - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - mov edx,(115 shl 16)+5 ;- - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - mov edx,(140 shl 16)+5 ;+ - int 0x40 - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - mov edx,(170 shl 16)+5 ;move up - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - mov edx,(195 shl 16)+5 ;move doun - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - mov edx,(220 shl 16)+5 ;move left - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - mov edx,(245 shl 16)+5 ;move right - int 0x40 - - ; add ebx,IMAGE_TOOLBAR_ICON_SIZE - ; mov edx,(270 shl 16)+5 - ; int 0x40 - ; add ebx,IMAGE_TOOLBAR_ICON_SIZE - ; mov edx,(295 shl 16)+5 - ; int 0x40 - - mov eax,SF_DRAW_TEXT - mov ebx,295*65536+5 - mov ecx,[sc.work_text] - or ecx,0x80000000 ;or (1 shl 30) - mov edx,txt_zoom - ;mov edi,[sc.work] - int 0x40 - add bx,9 - mov edx,txt_gen - int 0x40 - add bx,9 - mov edx,txt_osob - int 0x40 - - call draw_pok - - stdcall [buf2d_draw], buf_0 - - mcall SF_REDRAW,SSF_END_DRAW -popad - ret - -align 4 -draw_pok: - mov eax,SF_DRAW_NUMBER - movzx ecx,byte[zoom] - mov ebx,(2 shl 16) - mov edx,(295+8*9)*65536+5 - mov esi,[sc.work_text] - or esi,(1 shl 30) - mov edi,[sc.work] - int 0x40 ;масштаб - mov ebx,(5 shl 16) - mov ecx,[tim] - add edx,9 - int 0x40 ;время - mov ebx,(5 shl 16) - mov ecx,[osob] - add edx,9 - int 0x40 ;популяция - ret - -align 4 -key: - mcall SF_GET_KEY - jmp still - - -align 4 -button: - mcall SF_GET_BUTTON - cmp ah,3 - jne @f - call but_new_file - jmp still - @@: - cmp ah,4 - jne @f - call but_open_file - jmp still - @@: - cmp ah,5 - jne @f - call but_save_file - jmp still - @@: - cmp ah,6 - jne @f - call but_next_gen - jmp still - @@: - cmp ah,7 - jne @f - call but_run - jmp still - @@: - cmp ah,8 - jne @f - call but_stop - jmp still - @@: - cmp ah,9 - jne @f - call but_zoom_p - jmp still - @@: - cmp ah,10 - jne @f - call but_zoom_m - jmp still - @@: - cmp ah,11 - jne @f - call but_pole_up - jmp still - @@: - cmp ah,12 - jne @f - call but_pole_dn - jmp still - @@: - cmp ah,13 - jne @f - call but_pole_left - jmp still - @@: - cmp ah,14 - jne @f - call but_pole_right - jmp still - @@: - cmp ah,1 - jne still -.exit: - stdcall [buf2d_delete],buf_0 - stdcall mem.Free,[open_file_lif] - stdcall mem.Free,[cell] - stdcall mem.Free,[memCell] - stdcall mem.Free,[CellColors] - stdcall mem.Free,[image_data_toolbar] - mcall SF_TERMINATE_PROCESS - - -align 4 -but_new_file: - ret - -align 4 -open_file_lif dd 0 ;указатель на память для открытия файлов -open_file_size dd 0 ;размер открытого файла - -align 4 -but_open_file: - pushad - copy_path open_dialog_name,communication_area_default_path,file_name,0 - mov [OpenDialog_data.type],0 - stdcall [OpenDialog_Start],OpenDialog_data - cmp [OpenDialog_data.status],2 - je .end_open_file - ;код при удачном открытии диалога - - mov [run_file_70.Function], SSF_GET_INFO - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - mov dword[run_file_70.Count], 0 - mov dword[run_file_70.Buffer], open_b - mov byte[run_file_70+20], 0 - mov dword[run_file_70.FileName], openfile_path - mcall SF_FILE,run_file_70 - - mov ecx,dword[open_b+32] ;+32 qword: размер файла в байтах - inc ecx ;for text files - stdcall mem.ReAlloc,[open_file_lif],ecx - mov [open_file_lif],eax - dec ecx ;for text files - mov byte[eax+ecx],0 ;for text files - - mov [run_file_70.Function], SSF_READ_FILE - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - mov [run_file_70.Count], ecx - m2m dword[run_file_70.Buffer], dword[open_file_lif] - mov byte[run_file_70+20], 0 - mov dword[run_file_70.FileName], openfile_path - mcall SF_FILE,run_file_70 ;загружаем файл изображения - test eax,eax - jnz .end_open_file - cmp ebx,0xffffffff - je .end_open_file - - mov [open_file_size],ebx - mcall SF_SET_CAPTION,1,openfile_path - - call pole_clear - mov eax,[buf_0.w] - shr eax,1 - xor ecx,ecx - mov cl,byte[zoom] - cmp cx,2 - jl @f ;деление на величину zoom - xor edx,edx - div ecx - @@: - add [Cor_x],eax - mov eax,[buf_0.h] - shr eax,1 - cmp cx,2 - jl @f ;деление на величину zoom - xor edx,edx - div ecx - @@: - add [Cor_y],eax - - ;eax - first x position - ;ebx - x position - ;ecx - y position - ;edx - конец файла - mov edi,[open_file_lif] - xor ebx,ebx - xor ecx,ecx - mov eax,ebx - mov edx,edi - add edx,[open_file_size] - @@: - cmp byte[edi],'*' - jne .no_cell - stdcall pole_cell_creat, ebx,ecx,1 - inc ebx - .no_cell: - cmp byte[edi],'.' - jne .cell_move - inc ebx - .cell_move: - cmp byte[edi],13 - jne .cell_nl - mov ebx,eax - inc ecx - .cell_nl: - cmp word[edi],'#P' ;смена позиции - jne .pos - inc edi ;пропуск '#' - .space: - inc edi ;пропуск 'P' и ' ' - cmp byte[edi],' ' - je .space - stdcall conv_str_to_int,edi - mov ebx,eax - cmp byte[edi],'-' - jne .digit - inc edi - .digit: - cmp byte[edi],'0' - jl .digit_no - cmp byte[edi],'9' - jg .digit_no - inc edi - jmp .digit - .digit_no: - ;.space_1: - inc edi ;пропуск 'P' и ' ' - cmp byte[edi],' ' - je .digit_no ;.space_1 - stdcall conv_str_to_int,edi - mov ecx,eax - mov eax,ebx ;восстановление левого отступа в eax - .pos: - inc edi - cmp edi,edx - jl @b - ;--- - stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер - call pole_paint ;рисуем поле (на случай если есть сетка или текстовые подписи) - stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране - .end_open_file: - popad - ret - -align 4 -but_save_file: - ret - -align 4 -but_next_gen: - call pole_next_gen - call pole_paint - stdcall [buf2d_draw], buf_0 - pushad - call draw_pok - popad - ret - -align 4 -but_run: - mov byte[tim_ch],1 - ret - -align 4 -but_stop: - mov byte[tim_ch],0 - ;cld - ;mov ecx,100 - ;@@: - ; call pole_next_gen - ;loop @b - ;stdcall [buf2d_clear], buf_0, [buf_0.color] - ;call pole_paint - ;stdcall [buf2d_draw], buf_0 - ret - -align 4 -but_zoom_p: - cmp byte[zoom],16 - jge @f - pushad - ;вычисление сдвигов для поля, которые обеспечат центровку поля при увеличении масштаба - xor ecx,ecx - mov cl,byte[zoom] - xor edx,edx - mov eax,[buf_0.w] - shr eax,1 ;в eax половина ширины поля - mov ebx,eax ;делаем резервную копию eax - div ecx ;делим eax на текущий масштаб - xchg eax,ebx - xor edx,edx - inc ecx - div ecx ;делим eax на новый масштаб - sub ebx,eax ;вычисляется сдвиг поля который обеспечит центровку поля - sub dword[Cor_x],ebx ;сдвигаем поле зрения по оси x - xor ecx,ecx - mov cl,byte[zoom] - xor edx,edx - mov eax,[buf_0.h] - shr eax,1 - mov ebx,eax - div ecx - xchg eax,ebx - xor edx,edx - inc ecx - div ecx - sub ebx,eax - sub dword[Cor_y],ebx ;сдвигаем поле зрения по оси y - - inc byte[zoom] - call draw_pok - popad - - cmp dword[poc_stop],1 - jle .buf_clear - cmp byte[tim_ch],0 - jne @f - .buf_clear: - stdcall [buf2d_clear], buf_0, [buf_0.color] - call pole_paint - stdcall [buf2d_draw], buf_0 - @@: - ret - -align 4 -but_zoom_m: - cmp byte[zoom],1 - jle @f - pushad - ;вычисление сдвигов для поля, которые обеспечат центровку поля при уменьшении масштаба - xor ecx,ecx - mov cl,byte[zoom] - xor edx,edx - mov eax,[buf_0.w] - shr eax,1 ;в eax половина ширины поля - mov ebx,eax ;делаем резервную копию eax - div ecx ;делим eax на текущий масштаб - xchg eax,ebx - xor edx,edx - dec ecx - div ecx ;делим eax на новый масштаб - sub ebx,eax ;вычисляется сдвиг поля который обеспечит центровку поля - sub dword[Cor_x],ebx ;сдвигаем поле зрения по оси x - xor ecx,ecx - mov cl,byte[zoom] - xor edx,edx - mov eax,[buf_0.h] - shr eax,1 - mov ebx,eax - div ecx - xchg eax,ebx - xor edx,edx - dec ecx - div ecx - sub ebx,eax - sub dword[Cor_y],ebx ;сдвигаем поле зрения по оси y - - dec byte[zoom] - call draw_pok - popad - - cmp dword[poc_stop],1 - jle .buf_clear - cmp byte[tim_ch],0 - jne @f - .buf_clear: - stdcall [buf2d_clear], buf_0, [buf_0.color] - call pole_paint - stdcall [buf2d_draw], buf_0 - @@: - ret - -align 4 -but_pole_up: - push eax ecx edx - mov eax,[buf_0.h] - shr eax,2 - xor ecx,ecx - mov cl,byte[zoom] - cmp cx,2 - jl @f ;деление на величину zoom - xor edx,edx - div ecx - @@: - add [Cor_y],eax - pop edx ecx eax - stdcall [buf2d_clear], buf_0, [buf_0.color] - call pole_paint - stdcall [buf2d_draw], buf_0 - ret - -align 4 -but_pole_dn: - push eax ecx edx - mov eax,[buf_0.h] - shr eax,2 - xor ecx,ecx - mov cl,byte[zoom] - cmp cx,2 - jl @f ;деление на величину zoom - xor edx,edx - div ecx - @@: - sub [Cor_y],eax - pop edx ecx eax - stdcall [buf2d_clear], buf_0, [buf_0.color] - call pole_paint - stdcall [buf2d_draw], buf_0 - ret - -align 4 -but_pole_left: - push eax ecx edx - mov eax,[buf_0.w] - shr eax,2 - movzx ecx,byte[zoom] - cmp ecx,2 - jl @f ;деление на величину zoom - xor edx,edx - div ecx - @@: - add [Cor_x],eax - pop edx ecx eax - stdcall [buf2d_clear], buf_0, [buf_0.color] - call pole_paint - stdcall [buf2d_draw], buf_0 - ret - -align 4 -but_pole_right: - push eax ecx edx - mov eax,[buf_0.w] - shr eax,2 - xor ecx,ecx - mov cl,byte[zoom] - cmp cx,2 - jl @f ;деление на величину zoom - xor edx,edx - div ecx - @@: - sub [Cor_x],eax - pop edx ecx eax - stdcall [buf2d_clear], buf_0, [buf_0.color] - call pole_paint - stdcall [buf2d_draw], buf_0 - ret - -;input: -; buf - указатель на строку, число должно быть в 10 или 16 ричном виде -;output: -; eax - число -align 4 -proc conv_str_to_int uses ebx ecx esi, buf:dword - xor eax,eax - xor ebx,ebx - mov esi,[buf] - ;определение отрицательных чисел - xor ecx,ecx - inc ecx - cmp byte[esi],'-' - jne @f - dec ecx - inc esi - @@: - - cmp word[esi],'0x' - je .load_digit_16 - - .load_digit_10: ;считывание 10-тичных цифр - mov bl,byte[esi] - cmp bl,'0' - jl @f - cmp bl,'9' - jg @f - sub bl,'0' - imul eax,10 - add eax,ebx - inc esi - jmp .load_digit_10 - jmp @f - - .load_digit_16: ;считывание 16-ричных цифр - add esi,2 - .cycle_16: - mov bl,byte[esi] - cmp bl,'0' - jl @f - cmp bl,'f' - jg @f - cmp bl,'9' - jle .us1 - cmp bl,'A' - jl @f ;отсеиваем символы >'9' и <'A' - .us1: ;составное условие - cmp bl,'F' - jle .us2 - cmp bl,'a' - jl @f ;отсеиваем символы >'F' и <'a' - sub bl,32 ;переводим символы в верхний регистр, для упрощения их последущей обработки - .us2: ;составное условие - sub bl,'0' - cmp bl,9 - jle .cor1 - sub bl,7 ;convert 'A' to '10' - .cor1: - shl eax,4 - add eax,ebx - inc esi - jmp .cycle_16 - @@: - cmp ecx,0 ;если число отрицательное - jne @f - sub ecx,eax - mov eax,ecx - @@: - ret -endp - -;данные для диалога открытия файлов -align 4 -OpenDialog_data: -.type dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию -.procinfo dd procinfo ;+4 -.com_area_name dd communication_area_name ;+8 -.com_area dd 0 ;+12 -.opendir_path dd plugin_path ;+16 -.dir_default_path dd default_dir ;+20 -.start_path dd file_name ;+24 путь к диалогу открытия файлов -.draw_window dd draw_window ;+28 -.status dd 0 ;+32 -.openfile_path dd openfile_path ;+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 - -default_dir db '/sys',0 - -communication_area_name: - db 'FFFFFFFF_open_dialog',0 -open_dialog_name: - db 'opendial',0 -communication_area_default_path: - db '/sys/File managers/',0 - -Filter: -dd Filter.end - Filter ;.1 -.1: -db 'LIF',0 -db 'RLE',0 -.end: -db 0 - - -system_dir_0 db '/sys/lib/' -lib_name_0 db 'proc_lib.obj',0 -system_dir_1 db '/sys/lib/' -lib_name_1 db 'libimg.obj',0 -system_dir_2 db '/sys/lib/' -lib_name_2 db 'buf2d.obj',0 - -l_libs_start: - lib0 l_libs lib_name_0, file_name, system_dir_0, import_proclib - lib1 l_libs lib_name_1, file_name, system_dir_1, import_libimg - lib2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d -l_libs_end: - -align 4 -import_libimg: - dd alib_init1 - img_to_rgb2 dd aimg_to_rgb2 - img_decode dd aimg_decode - img_destroy dd aimg_destroy - dd 0,0 - alib_init1 db 'lib_init',0 - aimg_to_rgb2 db 'img_to_rgb2',0 - aimg_decode db 'img_decode',0 ;автоматически определяет формат графических данных - aimg_destroy db 'img_destroy',0 - -align 4 -import_proclib: - OpenDialog_Init dd aOpenDialog_Init - OpenDialog_Start dd aOpenDialog_Start -dd 0,0 - aOpenDialog_Init db 'OpenDialog_init',0 - aOpenDialog_Start db 'OpenDialog_start',0 - -align 4 -import_buf2d: - init dd sz_init - buf2d_create dd sz_buf2d_create - buf2d_clear dd sz_buf2d_clear - buf2d_draw dd sz_buf2d_draw - buf2d_delete dd sz_buf2d_delete - buf2d_resize dd sz_buf2d_resize - buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size - buf2d_set_pixel dd sz_buf2d_set_pixel - dd 0,0 - sz_init db 'lib_init',0 - sz_buf2d_create db 'buf2d_create',0 - sz_buf2d_clear db 'buf2d_clear',0 - sz_buf2d_draw db 'buf2d_draw',0 - sz_buf2d_delete db 'buf2d_delete',0 - sz_buf2d_resize db 'buf2d_resize',0 - sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0 - sz_buf2d_set_pixel db 'buf2d_set_pixel',0 - -align 4 -buf_0: dd 0 -.l: dw 0 ;+4 left -.t: dw 35 ;+6 top -.w: dd 476 ;+8 w -.h: dd 352 ;+12 h -.color: dd 0xffffd0 ;+16 color - db 24 ;+20 bit in pixel - -align 16 -i_end: - mouse_dd rd 1 - last_time rd 1 - sc system_colors - procinfo process_information - sys_path rb 1024 - file_name rb 2048 ;4096 - plugin_path rb 4096 - openfile_path rb 4096 - filename_area rb 256 - rb 1024 -stacktop: -mem: +use32 + org 0 + db 'MENUET01' + dd 1,start,i_end,mem,stacktop,0,sys_path + +include '../../../macros.inc' +include '../../../proc32.inc' +include '../../../KOSfuncs.inc' +include '../../../load_img.inc' +include '../../../load_lib.mac' + +;include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US. + +@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load +hed db 'Life 18.11.20',0 ;подпись окна + +run_file_70 FileInfoBlock +image_data dd 0 ;указатель на временную память. для нужен преобразования изображения + +ICONSIZE = 21 +TBTNSIZE = ICONSIZE-2 + +IMAGE_TOOLBAR_ICON_SIZE equ ICONSIZE*ICONSIZE*3 +image_data_toolbar dd 0 + + +;-------------------------------------- +struct Cell + x dd ? ;+0 + y dd ? ;+4 + tc dd ? ;+8 поколение в котором родилась особь + liv db ? ;+12 живая ячейка или нет + so db ? ;+13 число соседей +ends + +MAX_CELL equ 90000 ;должно быть кратно 4 +COL_MEM equ 64 ;число цветов для отличия молодых и старых + +cell dd 0 ;указатель на память со структурами ячеек +memCell dd 0 +CellColors dd 0 + +macro get_cell_offset reg,ind +{ + mov reg,ind + imul reg,sizeof.Cell + add reg,dword[cell] +} + +er_oom db 0 ;на случай исчерпания памяти +tim_ch db 0 ;автоматически просчитывать поколения +poc_stop dd 1 ;просчет на число поколений +Cor_x dd 0 +Cor_y dd 0 +tim dd 0 ;время (поколение) +b_sort dd 0 ;граница для сортированных ячеек +osob dd 0 ;число особей +zoom db 3 ;масштаб поля + +if lang eq ru_RU +txt_zoom db ' Масштаб:',0 +txt_gen db ' Поколение:',0 +txt_osob db ' Особей:',0 +else ; Default to en_US +txt_zoom db ' Zoom:',0 +txt_gen db 'Generation:',0 +txt_osob db 'Population:',0 +end if + +;настройка массива с цветами +; col_pole - цвет поля +; col_cell_n - цвет новой ячейки +; col_cell_o - цвет старой ячейки +align 4 +proc pole_init_colors uses eax ebx ecx edx esi edi, col_pole:dword, col_cell_n:dword, col_cell_o:dword + mov esi,[CellColors] + mov ebx,[col_pole] + mov [esi],ebx + + lea edi,[esi+4*COL_MEM] + add esi,4 + ; esi - указатель на 1-й градиентный цвет + ; edi - указатель на последний градиентный цвет + mov eax,[col_cell_n] + mov ebx,[col_cell_o] + + mov [esi],eax + mov [edi],ebx + ;need save ecx edx + stdcall middle_colors, esi,edi + + ret +endp + +;вспомогательная функция для находжения среднего цвета и записи его в массив +;input: +; eax - цвет начальный +; ebx - цвет конечный +;зазрушаються: ecx, edx +align 4 +proc middle_colors uses edi esi, i0:dword, i1:dword + mov esi,[i0] + mov edi,[i1] + ;перед вызовом функции + ;dword[esi]=eax + ;dword[edi]=ebx + sub edi,esi + shr edi,1 + btr edi,1 ;округляем до 4-х, т. к. нужно получить адрес (округление хитрое - убираем один бит вместо предполагаемых 2-х) + add edi,esi + cmp edi,esi + je @f + push eax ebx + + mov ecx,eax + mov edx,ebx + + ;находим средний цвет между eax и ebx + and ebx,111111101111111011111110b ;убираем последние биты в цветах r, g, b + and eax,111111101111111011111110b + add eax,ebx ;сумируем цвета из r, g, b + shr eax,1 ;делим на 2 + mov dword[edi],eax + + ;рекурсивный вызов для дробления верхней половины + mov ebx,eax + mov eax,ecx + stdcall middle_colors, [i0],edi + + ;рекурсивный вызов для дробления нижней половины + mov eax,ebx + mov ebx,edx + stdcall middle_colors, edi,[i1] + + pop ebx eax + @@: + ret +endp + +align 4 +proc pole_clear uses eax ecx edi + xor eax,eax + mov dword[tim],eax + mov dword[osob],eax + mov byte[tim_ch],al + mov dword[Cor_x],eax + mov dword[Cor_y],eax + mov dword[b_sort],eax + mov byte[er_oom],al + cld + mov ecx,(MAX_CELL*sizeof.Cell)/4 + mov edi,[cell] + rep stosd ;memset(cell,0,sizeof(Cell)*MAX_CELL); + mov edi,[memCell] + mov ecx,MAX_CELL + @@: + stosd ;for(i=0;i memCell[firstC] + get_cell_offset ebx,[eax] + + mov ecx,[x] + mov dword[ebx],ecx ;+0 = .x + mov edx,[y] + mov dword[ebx+Cell.y],edx + mov eax,[tim] + mov dword[ebx+Cell.tc],eax + mov byte[ebx+Cell.liv],0 + + cmp dword[li],0 + jne @f + mov byte[ebx+Cell.so],1 + jmp .fun_e + @@: + mov byte[ebx+Cell.so],0 + + .creat_border_cells: + inc dword[osob] + or byte[ebx+Cell.liv],1 + mov ecx,[x] + dec ecx + mov edx,[y] + dec edx + stdcall pole_cell_creat,ecx,edx,0 + inc edx + stdcall pole_cell_creat,ecx,edx,0 + inc edx + stdcall pole_cell_creat,ecx,edx,0 + inc ecx + stdcall pole_cell_creat,ecx,edx,0 + sub edx,2 + stdcall pole_cell_creat,ecx,edx,0 + inc ecx + stdcall pole_cell_creat,ecx,edx,0 + inc edx + stdcall pole_cell_creat,ecx,edx,0 + inc edx + stdcall pole_cell_creat,ecx,edx,0 + .fun_e: + popad ;edi edx ecx ebx eax + ret +endp + +;output: +; eax - index +align 4 +proc pole_cell_find, x:dword, y:dword + mov eax,[memCell] + cmp dword[eax],0 + jne @f + xor eax,eax ;if(!fristC) return 0; + jmp .fun_e + @@: + + xor eax,eax ;fnd=0; + cmp dword[b_sort],0 + je @f + stdcall pole_bin_find, [memCell], [x],[y], [b_sort] ;i=BinFind(memCell, x,y, b_sort); + cmp eax,0 + je @f + shl eax,2 + add eax,[memCell] + mov eax,[eax] ;if(i) fnd=memCell[i]; + jmp .fun_e + @@: + + cmp eax,0 + jne @f ;if(!fnd){ // поиск ячейки за бинарным деревом + push ebx ecx edx edi esi + ;ebx -> i + ;ecx -> firstC + ;edx -> &memCell[i] + ;edi -> cell[memCell[i]] + mov ecx,[memCell] + mov ebx,[b_sort] + lea edx,[ebx*4] + add edx,ecx + mov ecx,[ecx] + .cycle_b: ;for(i=b_sort+1;i<=fristC;i++) + inc ebx + cmp ebx,ecx + jg .cycle_e + add edx,4 + get_cell_offset edi,[edx] + mov esi,[x] + cmp dword[edi],esi ;+0 = .x + jne .if_e + mov esi,[y] + cmp dword[edi+Cell.y],esi + jne .if_e + ;if(cell[memCell[i]].x==x && cell[memCell[i]].y==y){ + mov eax,[edx] ;fnd=memCell[i]; + jmp .cycle_e ;break; + .if_e: + jmp .cycle_b + .cycle_e: + pop esi edi edx ecx ebx + @@: + .fun_e: + ret +endp + +;output: +; eax - index +align 4 +proc pole_bin_find, mas:dword, fx:dword, fy:dword, k:dword + push ebx ecx edx edi + xor eax,eax + mov ebx,1 ;ebx - максимальный порядок для дерева + @@: + cmp dword[k],ebx + jle @f ;while(k>por) + shl ebx,1 ;por<<=1; + jmp @b + @@: + cmp dword[k],ebx + jge @f ;if(k>=1; + @@: + mov ecx,ebx ;i=por; + + ;ecx -> i + ;edi -> mas[i] + .cycle_b: ;do{ + shr ebx,1 ;por>>=1; + + lea edi,[ecx*4] + add edi,[mas] + ;if(compare_cells_mb(mas[i],fx,fy)){ + stdcall pole_compare_cells_mb_coords, dword[edi],[fx],[fy] + cmp dl,0 + je .if_u0_e + @@: ;while(i+por>k) + mov edx,ecx + add edx,ebx + cmp edx,[k] ;i+por>k + jle @f + shr ebx,1 ;por>>=1; + jmp @b + @@: + add ecx,ebx ;i+=por; + jmp .if_e + .if_u0_e: + ;else if(compare_cells_bm(mas[i],fx,fy))i-=por; + stdcall pole_compare_cells_bm_coords, dword[edi],[fx],[fy] + cmp dl,0 + je .if_u1_e + sub ecx,ebx + jmp .if_e + .if_u1_e: + ;else { m=i; por=0; } + mov eax,ecx + xor ebx,ebx + .if_e: + cmp ebx,0 + jne .cycle_b ;}while(por); + + pop edi edx ecx ebx + ret +endp + +;description: +; вспомогательная функция для сортировки ячееки по координатам +;output: +; dl +align 4 +proc pole_compare_cells_bm_coords, i0:dword, fx:dword, fy:dword + push eax ebx ecx + get_cell_offset eax,[i0] + ;eax -> cell[i0] + mov ebx,[fx] + cmp dword[eax],ebx + jle @f + mov dl,1 + jmp .fun_e + @@: + mov ecx,[fy] + cmp dword[eax+Cell.y],ecx + jle @f + cmp dword[eax],ebx + jne @f + mov dl,1 + jmp .fun_e + @@: + xor dl,dl + .fun_e: + pop ecx ebx eax + ret +endp + +;description: +; вспомогательная функция для сортировки ячееки по координатам +;output: +; dl +align 4 +proc pole_compare_cells_mb_coords, i0:dword, fx:dword, fy:dword + push eax ebx ecx + get_cell_offset eax,[i0] + ;eax -> cell[i0] + mov ebx,[fx] + cmp dword[eax],ebx + jge @f + mov dl,1 + jmp .fun_e + @@: + mov ecx,[fy] + cmp dword[eax+Cell.y],ecx + jge @f + cmp dword[eax],ebx + jne @f + mov dl,1 + jmp .fun_e + @@: + xor dl,dl + .fun_e: + pop ecx ebx eax + ret +endp + +;output: +; dl +align 4 +proc pole_compare_cells_bm, i0:dword, i1:dword + push eax ebx ecx + get_cell_offset eax,[i0] ;eax -> cell[i0] + get_cell_offset ebx,[i1] ;ebx -> cell[i1] + mov ecx,[ebx] ;+0 = .x + cmp dword[eax],ecx + jle @f ;x0>x1 + mov dl,1 + jmp .fun_e + @@: + jne @f ;x0==x1 + mov ecx,[ebx+Cell.y] + cmp dword[eax+Cell.y],ecx + jle @f ;y0>y1 + mov dl,1 + jmp .fun_e + @@: + xor dl,dl + .fun_e: + pop ecx ebx eax + ret +endp + +align 4 +pole_paint: + pushad + ;eax -> firstC + ;ebx -> i + ;ecx -> cell[memCell[i]] + ;edx -> color + ;edi -> coord_x + ;esi -> coord_y + mov eax,[memCell] + cmp dword[eax],0 + je .no_draw + + mov eax,[eax] + mov ebx,1 + +;--- + @@: ;while(i firstC + ;ebx -> i + ;ecx -> &memCell[i] + ;edx -> cell[memCell[i]] + + mov eax,[memCell] + mov ecx,eax + mov eax,[eax] + cmp eax,1 + jl .fun_e + inc dword[tim] + mov ebx,1 + @@: ;for(i=1;i<=firstC;i++) + add ecx,4 + get_cell_offset edx,[ecx] + bt word[edx+Cell.liv],0 + jae .if_0_e + ; сохранение ячейки (соседей 2 или 3) + cmp byte[edx+Cell.so],2 + je .if_2_e + cmp byte[edx+Cell.so],3 + je .if_2_e + jmp .change + .if_0_e: + ; создание ячейки (соседей 3) + cmp byte[edx+Cell.so],3 + jne .if_1_e + .change: + or byte[edx+Cell.liv],2 + jmp .if_2_e + .if_1_e: + ; удаление пустой ячейки для освобождения памяти + cmp byte[edx+Cell.so],0 + jne .if_2_e + mov edi,[edx+Cell.tc] + add edi,5 ; 5 - время сохранения пустой ячейки, до её удаления + cmp edi,[tim] + jge .if_2_e + lea edi,[eax*4] + add edi,[memCell] ;edi -> &memCell[fristC] + mov esi,[edi] ;swp=memCell[fristC]; + mov edx,[ecx] ;edx - уже не используем, потому можем портить + mov [edi],edx ;memCell[fristC]=memCell[i]; + mov [ecx],esi ;memCell[i]=swp; + dec eax + dec ebx + sub ecx,4 + .if_2_e: + + inc ebx + cmp ebx,eax + jle @b + mov ebx,[memCell] + mov [ebx],eax ;firstC <- eax + + mov [b_sort],eax + stdcall pole_fl_sort, [memCell],eax + + mov ecx,[memCell] + mov ebx,1 + @@: ;for(i=1;i<=firstC;i++) + add ecx,4 + get_cell_offset edx,[ecx] + bt word[edx+Cell.liv],1 + jae .no_change + xor byte[edx+Cell.liv],3 + mov edi,[tim] + mov [edx+Cell.tc],edi + bt word[edx+Cell.liv],0 + jc .new_cell + push eax + mov edi,[edx] + dec edi + mov esi,[edx+Cell.y] + dec esi + dec dword[osob] + ;дальше значение edx портится + stdcall pole_cell_find,edi,esi + get_cell_offset edx,eax + dec byte[edx+Cell.so] + inc esi + stdcall pole_cell_find,edi,esi + get_cell_offset edx,eax + dec byte[edx+Cell.so] + inc esi + stdcall pole_cell_find,edi,esi + get_cell_offset edx,eax + dec byte[edx+Cell.so] + inc edi + stdcall pole_cell_find,edi,esi + get_cell_offset edx,eax + dec byte[edx+Cell.so] + sub esi,2 + stdcall pole_cell_find,edi,esi + get_cell_offset edx,eax + dec byte[edx+Cell.so] + inc edi + stdcall pole_cell_find,edi,esi + get_cell_offset edx,eax + dec byte[edx+Cell.so] + inc esi + stdcall pole_cell_find,edi,esi + get_cell_offset edx,eax + dec byte[edx+Cell.so] + inc esi + stdcall pole_cell_find,edi,esi + get_cell_offset edx,eax + dec byte[edx+Cell.so] + pop eax + jmp .no_change + .new_cell: ; появилась новая ячейка + inc dword[osob] + mov edi,[edx] + dec edi + mov esi,[edx+Cell.y] + dec esi + stdcall pole_cell_creat,edi,esi,0 + inc esi + stdcall pole_cell_creat,edi,esi,0 + inc esi + stdcall pole_cell_creat,edi,esi,0 + inc edi + stdcall pole_cell_creat,edi,esi,0 + sub esi,2 + stdcall pole_cell_creat,edi,esi,0 + inc edi + stdcall pole_cell_creat,edi,esi,0 + inc esi + stdcall pole_cell_creat,edi,esi,0 + inc esi + stdcall pole_cell_creat,edi,esi,0 + .no_change: + inc ebx + cmp ebx,eax + jle @b + .fun_e: + popad + ret + +;Сортировка вектора a[1..n] методом Флойда +align 4 +proc pole_fl_sort, a:dword, n:dword + pushad + mov ecx,[a] + ;Формировать исходное частично упорядоченное дерево + mov eax,[n] + shr eax,1 + @@: ;for(i=n>>1; i>=2; i--) + stdcall pole_fl_surface, ecx,eax,[n] ;(a,i,n) + dec eax + cmp eax,2 + jge @b + ;Выполнить процедуру всплытия Флойда для каждого поддерева + mov eax,[n] + @@: ;for(i=n; i>=2; i--){ + stdcall pole_fl_surface, ecx,1,eax ;(a,1,i) + ;Поместить найденный максимальный элемент в конец списка + lea edi,[eax*4] + add edi,ecx ;edi -> &a[i] + mov esi,[edi] ;w=a[i]; + mov edx,[ecx+4] + mov [edi],edx ;a[i]=a[1]; + mov [ecx+4],esi ;a[1]=w; + + dec eax + cmp eax,2 + jge @b + popad + ret +endp + +;Процедура всплытия Флойда по дереву a[1..k] +align 4 +proc pole_fl_surface, a:dword, i:dword, k:dword +locals + copy dd ? +endl + pushad + ;edx -> ... + ;edi -> m + ;esi -> j + mov eax,[a] + mov ebx,[i] + mov ecx,[k] + + lea edx,[ebx*4] + add edx,eax + mov edx,[edx] + mov [copy],edx ;copy=a[i]; + mov edi,ebx + shl edi,1 ;m=i<<1; + .cycle_b: ;while (m<=k) { + cmp edi,ecx + jg .cycle_e + jne @f ;if (m==k) j=m; + mov esi,edi + jmp .else_e + @@: ;else if (pole_compare_cells_bm(a[m],a[m+1])) j=m; + lea edx,[edi*4] + add edx,eax + stdcall pole_compare_cells_bm, dword[edx],dword[edx+4] + cmp dl,0 + je @f + mov esi,edi + jmp .else_e + @@: ;else j=m+1; + mov esi,edi + inc esi + .else_e: + + ;if (pole_compare_cells_bm(a[j],copy)) { + lea edx,[esi*4] + add edx,eax + stdcall pole_compare_cells_bm, dword[edx],[copy] + cmp dl,0 + je .cycle_e ;} else break; //выход из цикла + + lea edx,[esi*4] + add edx,eax + push dword[edx] ;push a[j]; + lea edx,[ebx*4] + add edx,eax + pop dword[edx] ;a[i]=a[j]; + mov ebx,esi ;i=j; + mov edi,ebx + shl edi,1 ;m=i<<1; + + jmp .cycle_b + .cycle_e: + + ;значения многих регистров уже не важны т. к. конец функции + shl ebx,2 + add eax,ebx + mov edx,[copy] + mov [eax],edx ;a[i]=copy; + + popad + ret +endp +;-------------------------------------- + + +align 4 +start: + load_libraries l_libs_start,l_libs_end + ;проверка на сколько удачно загузилась наша либа + mov ebp,lib2 + cmp dword [ebp+ll_struc_size-4],0 + jz @f + mcall SF_TERMINATE_PROCESS ;exit not correct + @@: + mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors + mcall SF_SET_EVENTS_MASK,0x27 + stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога + + stdcall [buf2d_create], buf_0 ;создание буфера + + stdcall mem.Alloc,MAX_CELL*sizeof.Cell + mov [cell],eax + stdcall mem.Alloc,MAX_CELL*4 + mov [memCell],eax + stdcall mem.Alloc,(COL_MEM+1)*4 + mov [CellColors],eax + include_image_file 'life3tb.png', image_data_toolbar + + ;настройка цветов ячеек + stdcall pole_init_colors, 0xffffd0,0xff0000,0x0000ff + call pole_clear + call pole_paint ;рисование поля в буфере (не на экране) + + mcall SF_SYSTEM_GET,SSF_TIME_COUNT + mov [last_time],eax + +align 4 +red_win: + call draw_window + +align 4 +still: + mcall SF_SYSTEM_GET,SSF_TIME_COUNT + mov ebx,[last_time] + add ebx,10 ;задержка + cmp ebx,eax + jge @f + mov ebx,eax + @@: + sub ebx,eax + mcall SF_WAIT_EVENT_TIMEOUT + cmp eax,0 + je timer_funct + + cmp al,1 + jz red_win + cmp al,2 + jz key + cmp al,3 + jz button + cmp al,6 + jne @f + mcall SF_THREAD_INFO,procinfo,-1 + cmp ax,word[procinfo.window_stack_position] + jne @f ;окно не активно + call mouse + @@: + jmp still + +align 4 +mouse: + push eax ebx ecx + mcall SF_MOUSE_GET,SSF_BUTTON_EXT + bt eax,8 + jnc @f + ;mouse l. but. press + ;call mouse_left_d + ;jmp .end_l + @@: + bt eax,16 + jnc .end_l + ;mouse l. but. up + ;call mouse_left_u + ;jmp .end_l + .end_l: + + call buf_get_mouse_coord + cmp eax,-1 + je .end0 + shl eax,1 + sub eax,[buf_0.w] + sar eax,1 + ;mov [mouse_prop_x],eax + shl ebx,1 + sub ebx,[buf_0.h] + sar ebx,1 + ;mov [mouse_prop_y],ebx + + mcall SF_MOUSE_GET,SSF_SCROLL_DATA + test ax,ax + jz .end0 + + test ax,0x8000 + jnz .decr + ;увеличение масштаба + call but_zoom_p + jmp .end0 + .decr: + ;уменьшение масштаба + call but_zoom_m + .end0: + + pop ecx ebx eax + ret + +;output: +; eax - buffer coord X (если курсор за буфером -1) +; ebx - buffer coord Y (если курсор за буфером -1) +align 4 +proc buf_get_mouse_coord + mcall SF_MOUSE_GET,SSF_WINDOW_POSITION + cmp ax,word[buf_0.t] + jl .no_buf ;не попали в окно буфера по оси y + mov ebx,eax + shr ebx,16 + cmp bx,word[buf_0.l] + jl .no_buf ;не попали в окно буфера по оси x + + and eax,0xffff ;оставляем координату y + sub ax,word[buf_0.t] + cmp eax,[buf_0.h] + jg .no_buf + sub bx,word[buf_0.l] + cmp ebx,[buf_0.w] + jg .no_buf + xchg eax,ebx + jmp .end_f + .no_buf: + xor eax,eax + not eax + xor ebx,ebx + not ebx + .end_f: + ret +endp + +align 4 +timer_funct: + pushad + mcall SF_SYSTEM_GET,SSF_TIME_COUNT + mov [last_time],eax + + cmp byte[tim_ch],0 + je @f + ;call but_next_gen + cld + mov ecx,[poc_stop] + cmp ecx,1 + jg .clear + mov ecx,1 ;исправление ecx на случай чисел меньших 1 + jmp .cycle + .clear: ;чистим поле если есть просчет на несколько поколений за 1 такт таймера + stdcall [buf2d_clear], buf_0, [buf_0.color] + .cycle: + call pole_next_gen + loop .cycle + call pole_paint + stdcall [buf2d_draw], buf_0 + call draw_pok + @@: + popad + jmp still + +align 4 +draw_window: +pushad + mcall SF_REDRAW,SSF_BEGIN_DRAW + mcall SF_CREATE_WINDOW,(50 shl 16)+485,(50 shl 16)+415,0x73000000,0,hed + + mcall SF_THREAD_INFO,procinfo,-1 + mov eax,[procinfo.box.height] + cmp eax,120 + jge @f + mov eax,120 ;min size + @@: + sub eax,63 + mov ebx,[procinfo.box.width] + cmp ebx,270 + jge @f + mov ebx,270 + @@: + sub ebx,9 + cmp eax,[buf_0.h] ;смотрим размер буфера + jne @f + cmp ebx,[buf_0.w] + jne @f + jmp .end0 + @@: + stdcall [buf2d_resize], buf_0, ebx,eax,1 + stdcall [buf2d_clear], buf_0, [buf_0.color] + call pole_paint + .end0: + + mov edx,[sc.work] + mov ebx, 0 shl 16 + add ebx, [buf_0.w] + mcall SF_DRAW_RECT,,<0,35> + + mcall SF_DEFINE_BUTTON,(6 shl 16)+TBTNSIZE,(6 shl 16)+TBTNSIZE,4+0x40000000, [sc.work_button] + + mov ebx,(36 shl 16)+TBTNSIZE + mov edx,6+0x40000000 + int 0x40 + + mov ebx,(61 shl 16)+TBTNSIZE + mov edx,7+0x40000000 + int 0x40 + + mov ebx,(86 shl 16)+TBTNSIZE + mov edx,8+0x40000000 + int 0x40 + + mov ebx,(116 shl 16)+TBTNSIZE + mov edx,9+0x40000000 + int 0x40 + + mov ebx,(141 shl 16)+TBTNSIZE + mov edx,10+0x40000000 + int 0x40 + + mov ebx,(171 shl 16)+TBTNSIZE + mov edx,11+0x40000000 + int 0x40 + + mov ebx,(196 shl 16)+TBTNSIZE + mov edx,12+0x40000000 + int 0x40 + + mov ebx,(221 shl 16)+TBTNSIZE + mov edx,13+0x40000000 + int 0x40 + + mov ebx,(246 shl 16)+TBTNSIZE + mov edx,14+0x40000000 + int 0x40 + + mcall SF_PUT_IMAGE,[image_data_toolbar],(ICONSIZE shl 16)+ICONSIZE,(5 shl 16)+5 + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + mov edx,(35 shl 16)+5 ;run once + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + mov edx,(60 shl 16)+5 ;run auto + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + mov edx,(85 shl 16)+5 ;stop + int 0x40 + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + mov edx,(115 shl 16)+5 ;- + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + mov edx,(140 shl 16)+5 ;+ + int 0x40 + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + mov edx,(170 shl 16)+5 ;move up + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + mov edx,(195 shl 16)+5 ;move doun + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + mov edx,(220 shl 16)+5 ;move left + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + mov edx,(245 shl 16)+5 ;move right + int 0x40 + + ; add ebx,IMAGE_TOOLBAR_ICON_SIZE + ; mov edx,(270 shl 16)+5 + ; int 0x40 + ; add ebx,IMAGE_TOOLBAR_ICON_SIZE + ; mov edx,(295 shl 16)+5 + ; int 0x40 + + mov eax,SF_DRAW_TEXT + mov ebx,295*65536+5 + mov ecx,[sc.work_text] + or ecx,0x80000000 ;or (1 shl 30) + mov edx,txt_zoom + ;mov edi,[sc.work] + int 0x40 + add bx,9 + mov edx,txt_gen + int 0x40 + add bx,9 + mov edx,txt_osob + int 0x40 + + call draw_pok + + stdcall [buf2d_draw], buf_0 + + mcall SF_REDRAW,SSF_END_DRAW +popad + ret + +align 4 +draw_pok: + mov eax,SF_DRAW_NUMBER + movzx ecx,byte[zoom] + mov ebx,(2 shl 16) + mov edx,(295+8*9)*65536+5 + mov esi,[sc.work_text] + or esi,(1 shl 30) + mov edi,[sc.work] + int 0x40 ;масштаб + mov ebx,(5 shl 16) + mov ecx,[tim] + add edx,9 + int 0x40 ;время + mov ebx,(5 shl 16) + mov ecx,[osob] + add edx,9 + int 0x40 ;популяция + ret + +align 4 +key: + mcall SF_GET_KEY + jmp still + + +align 4 +button: + mcall SF_GET_BUTTON + cmp ah,3 + jne @f + call but_new_file + jmp still + @@: + cmp ah,4 + jne @f + call but_open_file + jmp still + @@: + cmp ah,5 + jne @f + call but_save_file + jmp still + @@: + cmp ah,6 + jne @f + call but_next_gen + jmp still + @@: + cmp ah,7 + jne @f + call but_run + jmp still + @@: + cmp ah,8 + jne @f + call but_stop + jmp still + @@: + cmp ah,9 + jne @f + call but_zoom_p + jmp still + @@: + cmp ah,10 + jne @f + call but_zoom_m + jmp still + @@: + cmp ah,11 + jne @f + call but_pole_up + jmp still + @@: + cmp ah,12 + jne @f + call but_pole_dn + jmp still + @@: + cmp ah,13 + jne @f + call but_pole_left + jmp still + @@: + cmp ah,14 + jne @f + call but_pole_right + jmp still + @@: + cmp ah,1 + jne still +.exit: + stdcall [buf2d_delete],buf_0 + stdcall mem.Free,[open_file_lif] + stdcall mem.Free,[cell] + stdcall mem.Free,[memCell] + stdcall mem.Free,[CellColors] + stdcall mem.Free,[image_data_toolbar] + mcall SF_TERMINATE_PROCESS + + +align 4 +but_new_file: + ret + +align 4 +open_file_lif dd 0 ;указатель на память для открытия файлов +open_file_size dd 0 ;размер открытого файла + +align 4 +but_open_file: + pushad + copy_path open_dialog_name,communication_area_default_path,file_name,0 + mov [OpenDialog_data.type],0 + stdcall [OpenDialog_Start],OpenDialog_data + cmp [OpenDialog_data.status],2 + je .end_open_file + ;код при удачном открытии диалога + + mov [run_file_70.Function], SSF_GET_INFO + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + mov dword[run_file_70.Count], 0 + mov dword[run_file_70.Buffer], open_b + mov byte[run_file_70+20], 0 + mov dword[run_file_70.FileName], openfile_path + mcall SF_FILE,run_file_70 + + mov ecx,dword[open_b+32] ;+32 qword: размер файла в байтах + inc ecx ;for text files + stdcall mem.ReAlloc,[open_file_lif],ecx + mov [open_file_lif],eax + dec ecx ;for text files + mov byte[eax+ecx],0 ;for text files + + mov [run_file_70.Function], SSF_READ_FILE + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + mov [run_file_70.Count], ecx + m2m dword[run_file_70.Buffer], dword[open_file_lif] + mov byte[run_file_70+20], 0 + mov dword[run_file_70.FileName], openfile_path + mcall SF_FILE,run_file_70 ;загружаем файл изображения + test eax,eax + jnz .end_open_file + cmp ebx,0xffffffff + je .end_open_file + + mov [open_file_size],ebx + mcall SF_SET_CAPTION,1,openfile_path + + call pole_clear + mov eax,[buf_0.w] + shr eax,1 + xor ecx,ecx + mov cl,byte[zoom] + cmp cx,2 + jl @f ;деление на величину zoom + xor edx,edx + div ecx + @@: + add [Cor_x],eax + mov eax,[buf_0.h] + shr eax,1 + cmp cx,2 + jl @f ;деление на величину zoom + xor edx,edx + div ecx + @@: + add [Cor_y],eax + + ;eax - first x position + ;ebx - x position + ;ecx - y position + ;edx - конец файла + mov edi,[open_file_lif] + xor ebx,ebx + xor ecx,ecx + mov eax,ebx + mov edx,edi + add edx,[open_file_size] + @@: + cmp byte[edi],'*' + jne .no_cell + stdcall pole_cell_creat, ebx,ecx,1 + inc ebx + .no_cell: + cmp byte[edi],'.' + jne .cell_move + inc ebx + .cell_move: + cmp byte[edi],13 + jne .cell_nl + mov ebx,eax + inc ecx + .cell_nl: + cmp word[edi],'#P' ;смена позиции + jne .pos + inc edi ;пропуск '#' + .space: + inc edi ;пропуск 'P' и ' ' + cmp byte[edi],' ' + je .space + stdcall conv_str_to_int,edi + mov ebx,eax + cmp byte[edi],'-' + jne .digit + inc edi + .digit: + cmp byte[edi],'0' + jl .digit_no + cmp byte[edi],'9' + jg .digit_no + inc edi + jmp .digit + .digit_no: + ;.space_1: + inc edi ;пропуск 'P' и ' ' + cmp byte[edi],' ' + je .digit_no ;.space_1 + stdcall conv_str_to_int,edi + mov ecx,eax + mov eax,ebx ;восстановление левого отступа в eax + .pos: + inc edi + cmp edi,edx + jl @b + ;--- + stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер + call pole_paint ;рисуем поле (на случай если есть сетка или текстовые подписи) + stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране + .end_open_file: + popad + ret + +align 4 +but_save_file: + ret + +align 4 +but_next_gen: + call pole_next_gen + call pole_paint + stdcall [buf2d_draw], buf_0 + pushad + call draw_pok + popad + ret + +align 4 +but_run: + mov byte[tim_ch],1 + ret + +align 4 +but_stop: + mov byte[tim_ch],0 + ;cld + ;mov ecx,100 + ;@@: + ; call pole_next_gen + ;loop @b + ;stdcall [buf2d_clear], buf_0, [buf_0.color] + ;call pole_paint + ;stdcall [buf2d_draw], buf_0 + ret + +align 4 +but_zoom_p: + cmp byte[zoom],16 + jge @f + pushad + ;вычисление сдвигов для поля, которые обеспечат центровку поля при увеличении масштаба + xor ecx,ecx + mov cl,byte[zoom] + xor edx,edx + mov eax,[buf_0.w] + shr eax,1 ;в eax половина ширины поля + mov ebx,eax ;делаем резервную копию eax + div ecx ;делим eax на текущий масштаб + xchg eax,ebx + xor edx,edx + inc ecx + div ecx ;делим eax на новый масштаб + sub ebx,eax ;вычисляется сдвиг поля который обеспечит центровку поля + sub dword[Cor_x],ebx ;сдвигаем поле зрения по оси x + xor ecx,ecx + mov cl,byte[zoom] + xor edx,edx + mov eax,[buf_0.h] + shr eax,1 + mov ebx,eax + div ecx + xchg eax,ebx + xor edx,edx + inc ecx + div ecx + sub ebx,eax + sub dword[Cor_y],ebx ;сдвигаем поле зрения по оси y + + inc byte[zoom] + call draw_pok + popad + + cmp dword[poc_stop],1 + jle .buf_clear + cmp byte[tim_ch],0 + jne @f + .buf_clear: + stdcall [buf2d_clear], buf_0, [buf_0.color] + call pole_paint + stdcall [buf2d_draw], buf_0 + @@: + ret + +align 4 +but_zoom_m: + cmp byte[zoom],1 + jle @f + pushad + ;вычисление сдвигов для поля, которые обеспечат центровку поля при уменьшении масштаба + xor ecx,ecx + mov cl,byte[zoom] + xor edx,edx + mov eax,[buf_0.w] + shr eax,1 ;в eax половина ширины поля + mov ebx,eax ;делаем резервную копию eax + div ecx ;делим eax на текущий масштаб + xchg eax,ebx + xor edx,edx + dec ecx + div ecx ;делим eax на новый масштаб + sub ebx,eax ;вычисляется сдвиг поля который обеспечит центровку поля + sub dword[Cor_x],ebx ;сдвигаем поле зрения по оси x + xor ecx,ecx + mov cl,byte[zoom] + xor edx,edx + mov eax,[buf_0.h] + shr eax,1 + mov ebx,eax + div ecx + xchg eax,ebx + xor edx,edx + dec ecx + div ecx + sub ebx,eax + sub dword[Cor_y],ebx ;сдвигаем поле зрения по оси y + + dec byte[zoom] + call draw_pok + popad + + cmp dword[poc_stop],1 + jle .buf_clear + cmp byte[tim_ch],0 + jne @f + .buf_clear: + stdcall [buf2d_clear], buf_0, [buf_0.color] + call pole_paint + stdcall [buf2d_draw], buf_0 + @@: + ret + +align 4 +but_pole_up: + push eax ecx edx + mov eax,[buf_0.h] + shr eax,2 + xor ecx,ecx + mov cl,byte[zoom] + cmp cx,2 + jl @f ;деление на величину zoom + xor edx,edx + div ecx + @@: + add [Cor_y],eax + pop edx ecx eax + stdcall [buf2d_clear], buf_0, [buf_0.color] + call pole_paint + stdcall [buf2d_draw], buf_0 + ret + +align 4 +but_pole_dn: + push eax ecx edx + mov eax,[buf_0.h] + shr eax,2 + xor ecx,ecx + mov cl,byte[zoom] + cmp cx,2 + jl @f ;деление на величину zoom + xor edx,edx + div ecx + @@: + sub [Cor_y],eax + pop edx ecx eax + stdcall [buf2d_clear], buf_0, [buf_0.color] + call pole_paint + stdcall [buf2d_draw], buf_0 + ret + +align 4 +but_pole_left: + push eax ecx edx + mov eax,[buf_0.w] + shr eax,2 + movzx ecx,byte[zoom] + cmp ecx,2 + jl @f ;деление на величину zoom + xor edx,edx + div ecx + @@: + add [Cor_x],eax + pop edx ecx eax + stdcall [buf2d_clear], buf_0, [buf_0.color] + call pole_paint + stdcall [buf2d_draw], buf_0 + ret + +align 4 +but_pole_right: + push eax ecx edx + mov eax,[buf_0.w] + shr eax,2 + xor ecx,ecx + mov cl,byte[zoom] + cmp cx,2 + jl @f ;деление на величину zoom + xor edx,edx + div ecx + @@: + sub [Cor_x],eax + pop edx ecx eax + stdcall [buf2d_clear], buf_0, [buf_0.color] + call pole_paint + stdcall [buf2d_draw], buf_0 + ret + +;input: +; buf - указатель на строку, число должно быть в 10 или 16 ричном виде +;output: +; eax - число +align 4 +proc conv_str_to_int uses ebx ecx esi, buf:dword + xor eax,eax + xor ebx,ebx + mov esi,[buf] + ;определение отрицательных чисел + xor ecx,ecx + inc ecx + cmp byte[esi],'-' + jne @f + dec ecx + inc esi + @@: + + cmp word[esi],'0x' + je .load_digit_16 + + .load_digit_10: ;считывание 10-тичных цифр + mov bl,byte[esi] + cmp bl,'0' + jl @f + cmp bl,'9' + jg @f + sub bl,'0' + imul eax,10 + add eax,ebx + inc esi + jmp .load_digit_10 + jmp @f + + .load_digit_16: ;считывание 16-ричных цифр + add esi,2 + .cycle_16: + mov bl,byte[esi] + cmp bl,'0' + jl @f + cmp bl,'f' + jg @f + cmp bl,'9' + jle .us1 + cmp bl,'A' + jl @f ;отсеиваем символы >'9' и <'A' + .us1: ;составное условие + cmp bl,'F' + jle .us2 + cmp bl,'a' + jl @f ;отсеиваем символы >'F' и <'a' + sub bl,32 ;переводим символы в верхний регистр, для упрощения их последущей обработки + .us2: ;составное условие + sub bl,'0' + cmp bl,9 + jle .cor1 + sub bl,7 ;convert 'A' to '10' + .cor1: + shl eax,4 + add eax,ebx + inc esi + jmp .cycle_16 + @@: + cmp ecx,0 ;если число отрицательное + jne @f + sub ecx,eax + mov eax,ecx + @@: + ret +endp + +;данные для диалога открытия файлов +align 4 +OpenDialog_data: +.type dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию +.procinfo dd procinfo ;+4 +.com_area_name dd communication_area_name ;+8 +.com_area dd 0 ;+12 +.opendir_path dd plugin_path ;+16 +.dir_default_path dd default_dir ;+20 +.start_path dd file_name ;+24 путь к диалогу открытия файлов +.draw_window dd draw_window ;+28 +.status dd 0 ;+32 +.openfile_path dd openfile_path ;+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 + +default_dir db '/sys',0 + +communication_area_name: + db 'FFFFFFFF_open_dialog',0 +open_dialog_name: + db 'opendial',0 +communication_area_default_path: + db '/sys/File managers/',0 + +Filter: +dd Filter.end - Filter ;.1 +.1: +db 'LIF',0 +db 'RLE',0 +.end: +db 0 + + +system_dir_0 db '/sys/lib/' +lib_name_0 db 'proc_lib.obj',0 +system_dir_1 db '/sys/lib/' +lib_name_1 db 'libimg.obj',0 +system_dir_2 db '/sys/lib/' +lib_name_2 db 'buf2d.obj',0 + +l_libs_start: + lib0 l_libs lib_name_0, file_name, system_dir_0, import_proclib + lib1 l_libs lib_name_1, file_name, system_dir_1, import_libimg + lib2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d +l_libs_end: + +align 4 +import_libimg: + dd alib_init1 + img_to_rgb2 dd aimg_to_rgb2 + img_decode dd aimg_decode + img_destroy dd aimg_destroy + dd 0,0 + alib_init1 db 'lib_init',0 + aimg_to_rgb2 db 'img_to_rgb2',0 + aimg_decode db 'img_decode',0 ;автоматически определяет формат графических данных + aimg_destroy db 'img_destroy',0 + +align 4 +import_proclib: + OpenDialog_Init dd aOpenDialog_Init + OpenDialog_Start dd aOpenDialog_Start +dd 0,0 + aOpenDialog_Init db 'OpenDialog_init',0 + aOpenDialog_Start db 'OpenDialog_start',0 + +align 4 +import_buf2d: + init dd sz_init + buf2d_create dd sz_buf2d_create + buf2d_clear dd sz_buf2d_clear + buf2d_draw dd sz_buf2d_draw + buf2d_delete dd sz_buf2d_delete + buf2d_resize dd sz_buf2d_resize + buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size + buf2d_set_pixel dd sz_buf2d_set_pixel + dd 0,0 + sz_init db 'lib_init',0 + sz_buf2d_create db 'buf2d_create',0 + sz_buf2d_clear db 'buf2d_clear',0 + sz_buf2d_draw db 'buf2d_draw',0 + sz_buf2d_delete db 'buf2d_delete',0 + sz_buf2d_resize db 'buf2d_resize',0 + sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0 + sz_buf2d_set_pixel db 'buf2d_set_pixel',0 + +align 4 +buf_0: dd 0 +.l: dw 0 ;+4 left +.t: dw 35 ;+6 top +.w: dd 476 ;+8 w +.h: dd 352 ;+12 h +.color: dd 0xffffd0 ;+16 color + db 24 ;+20 bit in pixel + +align 16 +i_end: + mouse_dd rd 1 + last_time rd 1 + sc system_colors + procinfo process_information + sys_path rb 1024 + file_name rb 2048 ;4096 + plugin_path rb 4096 + openfile_path rb 4096 + filename_area rb 256 + rb 1024 +stacktop: +mem: diff --git a/programs/games/lines/lines.asm b/programs/games/lines/lines.asm index 63515b3d4d..9cfc7bf5ed 100644 --- a/programs/games/lines/lines.asm +++ b/programs/games/lines/lines.asm @@ -1,275 +1,275 @@ -use32 - org 0x0 - db 'MENUET01' - dd 0x01 - dd _preSTART - dd I_END - dd 0x4000 - dd 0x4000 - dd 0x0,0x0 - -include '../../macros.inc' -include 'lang.inc' -include 'draw_window.inc' -include 'ball_operations.inc' -include 'basic_alg.inc' - -_preSTART: - mcall 66, 1, 1 ;принимаем скан-коды - mcall 3 ;randomize - ror eax, 16 - mov [TC_U_SYSTEM_RANDSEED], eax ;from PPro "system.inc" - -new_game: - ;обнуление матрицы - mov eax, 0 - mov ecx, 81 / 4 - mov edi, lineBall - rep stosd - stosb - - mov [score], 0 - mov [countAllBall], 0 - mov [current], 0 - @@: - mov ebx, 7 - call random - inc dl - call add_new_ball - call test_new_ball - cmp [countAllBall], 5 - jb @b - call generate_new___new_color - -START: - draw_window - still: - mcall 10 - - dec eax - jz START ; перерисовать окно - dec eax - jnz button ;если не клавиша - значит кнопка - - key: ; нажатие клавиши - mcall 2 ; получаем код клавиши - cmp ah, 60 - je new_game - jmp still - - button: ; нажатие кнопки - mcall 17 - shr eax, 8 - cmp ax, 1 ; если кнопка выхода? - je .exit - - ;проверим, не пуста ли клетка - mov edx, [current] - test byte [eax + lineBall - 2], 0x7 - jz .blank - - ;проверим не была ли эта клетка уже выбрана - cmp eax, edx - je .double_choice - - mov [current], eax - call choice_ball - call paint_ball ;сначала прорисуем новый выбранный шарик - - test edx, edx ;cmp [current], 0 - jz still - mov eax, edx - - @@: - call redraw_cell ;а уже потом уберем рамку от старого - call paint_ball - jmp still - - .double_choice: - mov [current], 0 - jmp @B - - .blank: ;нажатая кнопка - пуста - test edx, edx ;cmp [current], 0 - jz still - mov [dest], eax ;кнопку назначения -> в [dest] - mov eax, edx ;параметр в eax - call test_path ;вызываем рекурсию test_path - call zero_cheked - jnc still - -;^^^^^^^^^^^^^^^^^ move_ball proc - mov eax, [current] - mov cl, byte [eax + lineBall - 2] - mov byte [eax + lineBall - 2], 0 - mov eax, [dest] - mov byte [eax + lineBall - 2], cl - - mov eax, [current] - call redraw_cell - mov eax, [dest] - call paint_ball - mov [current], 0 -;^^^^^^^^^^^^^^^^^ move_ball endp - - call find_line - call vanish_balls - call zero_cheked - - cmp [countVanishBall], 0 - je new_3_balls - movzx eax, [countVanishBall] - inc eax - add [score], eax - sub [countAllBall], al - call redraw_score - jmp still - - .exit: - mcall -1 ;выходим - -new_3_balls: - - rept 3 num - { - mov dl, [newColor#num] - call add_new_ball - call test_new_ball - cmp [countAllBall],81 - je .record_li - } - - call generate_new___new_color - call paint_new_color - jmp still - - .record_li: - mov eax, [score] - cmp eax, [record] - jbe still - mov [record], eax - jmp START - -zero_cheked: ;обнуление матрицы cheked - pushfd - mov eax, lineBall - mov ecx, 81 - @@: - and byte [eax], 0x7 - inc eax - loop @B - popfd - ret - -random: ; edx := random [0..(ebx-1)] - mov eax, 134775813 - mul [TC_U_SYSTEM_RANDSEED] - inc eax - mov [ TC_U_SYSTEM_RANDSEED], eax - xor edx, edx - div ebx - ret - -generate_new___new_color: - rept 3 num - { - mov ebx, 7 - call random - inc dl - mov [newColor#num], dl - } - ret - -add_new_ball: ;в dl - цвет шарика - mov ebp, edx - mov ebx, 81 - sub bl, [countAllBall] - call random - mov ecx, edx - mov eax, lineBall-1 - inc ecx - @@: - inc eax - test byte [eax], 0x7 - jnz @B - loop @B - - ;теперь у нас в eax - адрес нашего шарика - mov edx, ebp - or byte [eax], dl - inc [countAllBall] - ;получим ID кнопки - sub eax, lineBall-2 - mov [dest], eax - ret - -test_new_ball: - call paint_ball - - call find_line - call vanish_balls - call zero_cheked - - cmp [countVanishBall], 0 - je @F - movzx eax, [countVanishBall] - inc eax - add [score], eax - sub [countAllBall], al - call redraw_score - @@: - ret - -if lang eq ru_RU - szTitle db 'Цветные линии v 0.3',0 - szNewGame db 'F2 - новая игра',0 - szRecord db 'Рекорд',0 - szScore db 'Очки',0 -else - szTitle db 'Color lines v 0.3',0 - szNewGame db 'F2 - new game',0 - szRecord db 'Record',0 - szScore db 'Score',0 -end if - - -blank = 0xB8C2D3 -brown = 0x804000 -red = 0xff0000 -yellow = 0xffff00 -green = 0x008000 -cyan = 0x00ffff -blue = 0x0000ff -purple = 0x800080 - -tableColor dd blank,brown,red,yellow,green,cyan,blue,purple - -lineCoord: - rept 9 coory:0 - { - rept 9 coorx:0 - \{ - dw coorx*256+coory - - \} - } - -record dd 25 - -lineBall db 81 dup ? -score dd ? -baseAddr dd ? -current dd ? -dest dd ? - -newColor1 db ? -newColor2 db ? -newColor3 db ? - -countVanishBall db ? -countAllBall db ? - -TC_U_SYSTEM_RANDSEED dd ? -bitID dd ? - -I_END: +use32 + org 0x0 + db 'MENUET01' + dd 0x01 + dd _preSTART + dd I_END + dd 0x4000 + dd 0x4000 + dd 0x0,0x0 + +include '../../macros.inc' +include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US. +include 'draw_window.inc' +include 'ball_operations.inc' +include 'basic_alg.inc' + +_preSTART: + mcall 66, 1, 1 ;принимаем скан-коды + mcall 3 ;randomize + ror eax, 16 + mov [TC_U_SYSTEM_RANDSEED], eax ;from PPro "system.inc" + +new_game: + ;обнуление матрицы + mov eax, 0 + mov ecx, 81 / 4 + mov edi, lineBall + rep stosd + stosb + + mov [score], 0 + mov [countAllBall], 0 + mov [current], 0 + @@: + mov ebx, 7 + call random + inc dl + call add_new_ball + call test_new_ball + cmp [countAllBall], 5 + jb @b + call generate_new___new_color + +START: + draw_window + still: + mcall 10 + + dec eax + jz START ; перерисовать окно + dec eax + jnz button ;если не клавиша - значит кнопка + + key: ; нажатие клавиши + mcall 2 ; получаем код клавиши + cmp ah, 60 + je new_game + jmp still + + button: ; нажатие кнопки + mcall 17 + shr eax, 8 + cmp ax, 1 ; если кнопка выхода? + je .exit + + ;проверим, не пуста ли клетка + mov edx, [current] + test byte [eax + lineBall - 2], 0x7 + jz .blank + + ;проверим не была ли эта клетка уже выбрана + cmp eax, edx + je .double_choice + + mov [current], eax + call choice_ball + call paint_ball ;сначала прорисуем новый выбранный шарик + + test edx, edx ;cmp [current], 0 + jz still + mov eax, edx + + @@: + call redraw_cell ;а уже потом уберем рамку от старого + call paint_ball + jmp still + + .double_choice: + mov [current], 0 + jmp @B + + .blank: ;нажатая кнопка - пуста + test edx, edx ;cmp [current], 0 + jz still + mov [dest], eax ;кнопку назначения -> в [dest] + mov eax, edx ;параметр в eax + call test_path ;вызываем рекурсию test_path + call zero_cheked + jnc still + +;^^^^^^^^^^^^^^^^^ move_ball proc + mov eax, [current] + mov cl, byte [eax + lineBall - 2] + mov byte [eax + lineBall - 2], 0 + mov eax, [dest] + mov byte [eax + lineBall - 2], cl + + mov eax, [current] + call redraw_cell + mov eax, [dest] + call paint_ball + mov [current], 0 +;^^^^^^^^^^^^^^^^^ move_ball endp + + call find_line + call vanish_balls + call zero_cheked + + cmp [countVanishBall], 0 + je new_3_balls + movzx eax, [countVanishBall] + inc eax + add [score], eax + sub [countAllBall], al + call redraw_score + jmp still + + .exit: + mcall -1 ;выходим + +new_3_balls: + + rept 3 num + { + mov dl, [newColor#num] + call add_new_ball + call test_new_ball + cmp [countAllBall],81 + je .record_li + } + + call generate_new___new_color + call paint_new_color + jmp still + + .record_li: + mov eax, [score] + cmp eax, [record] + jbe still + mov [record], eax + jmp START + +zero_cheked: ;обнуление матрицы cheked + pushfd + mov eax, lineBall + mov ecx, 81 + @@: + and byte [eax], 0x7 + inc eax + loop @B + popfd + ret + +random: ; edx := random [0..(ebx-1)] + mov eax, 134775813 + mul [TC_U_SYSTEM_RANDSEED] + inc eax + mov [ TC_U_SYSTEM_RANDSEED], eax + xor edx, edx + div ebx + ret + +generate_new___new_color: + rept 3 num + { + mov ebx, 7 + call random + inc dl + mov [newColor#num], dl + } + ret + +add_new_ball: ;в dl - цвет шарика + mov ebp, edx + mov ebx, 81 + sub bl, [countAllBall] + call random + mov ecx, edx + mov eax, lineBall-1 + inc ecx + @@: + inc eax + test byte [eax], 0x7 + jnz @B + loop @B + + ;теперь у нас в eax - адрес нашего шарика + mov edx, ebp + or byte [eax], dl + inc [countAllBall] + ;получим ID кнопки + sub eax, lineBall-2 + mov [dest], eax + ret + +test_new_ball: + call paint_ball + + call find_line + call vanish_balls + call zero_cheked + + cmp [countVanishBall], 0 + je @F + movzx eax, [countVanishBall] + inc eax + add [score], eax + sub [countAllBall], al + call redraw_score + @@: + ret + +if lang eq ru_RU + szTitle db 'Цветные линии v 0.3',0 + szNewGame db 'F2 - новая игра',0 + szRecord db 'Рекорд',0 + szScore db 'Очки',0 +else ; Default to en_US + szTitle db 'Color lines v 0.3',0 + szNewGame db 'F2 - new game',0 + szRecord db 'Record',0 + szScore db 'Score',0 +end if + + +blank = 0xB8C2D3 +brown = 0x804000 +red = 0xff0000 +yellow = 0xffff00 +green = 0x008000 +cyan = 0x00ffff +blue = 0x0000ff +purple = 0x800080 + +tableColor dd blank,brown,red,yellow,green,cyan,blue,purple + +lineCoord: + rept 9 coory:0 + { + rept 9 coorx:0 + \{ + dw coorx*256+coory + + \} + } + +record dd 25 + +lineBall db 81 dup ? +score dd ? +baseAddr dd ? +current dd ? +dest dd ? + +newColor1 db ? +newColor2 db ? +newColor3 db ? + +countVanishBall db ? +countAllBall db ? + +TC_U_SYSTEM_RANDSEED dd ? +bitID dd ? + +I_END: diff --git a/programs/games/megamaze/trunk/colzone.inc b/programs/games/megamaze/trunk/colzone.inc index dd7667059f..8381d9d46d 100644 --- a/programs/games/megamaze/trunk/colzone.inc +++ b/programs/games/megamaze/trunk/colzone.inc @@ -1,140 +1,142 @@ -; level format -; [fx|fy]..[field cells x2]..[worm_count]..[worm_len][start cell #][body dirs x2] - -; internal format -; [stepptr]= worms # -; area: [worm_len][start_cell #][end_cell #]..[dirs].. -; [cur_step]: dragged worm pointer -; [finish]: 0 - if head dragged, 1- if tail -CZ_levelp: - call get_xy_sf - call LP_levelp.bit2 - mov dword[area],5;0 - ret - -CZ_key: - mov [jump],still - cmp eax,176 - jb .ex - cmp eax,179 - ja .ex - mov ecx,dword[area] - lea ebx,[eax-176] - mov eax,[player] - call check_bounds - je .ex - cmp ecx,5 - jne .novert - .vert: - add eax,[dirs+ebx*4] - call check_bounds - je .ex - mov ecx,eax - add ecx,[dirs+ebx*4] - mov cl,[field+ecx] - cmp cl,[field+eax] - jne .ex - mov dword[area],ebx - .ok: - mov [player],eax - cmp eax,[finish] - jne .jm - cmp dword[area],5 - jne .jm - mov [win_flag],1 - .jm: - mov [jump],drw - .ex: - ret - .novert: - mov edx,ebx - cmp edx,ecx ; the same dir - jne .nosame - add eax,[dirs+ebx*4] - call check_bounds - je .ex - .set5: - mov dword[area],5 - add eax,[dirs+ebx*4] - jmp .ok - .nosame: - xor edx,11b - cmp edx,ecx ; the opposite dir - je .set5 - add eax,[dirs+ebx*4] - mov ebx,ecx - xor ecx,11b - add eax,[dirs+ecx*4] - jmp .vert - -CZ_drawm: - mov ecx,[cell_count] - mov esi,field - mov [sq_size],3 - .lp: - push ecx - movzx ebx,byte[field+ecx-1] - shr ebx,6 - lea eax,[ecx-1] - call get_xy - add [lx],5-2 shl 16 - add [ly],5-2 shl 16 - mov edx,[f_colors+ebx*4] - mcall 13,[lx],[ly] - .no: - pop ecx - loop .lp - - inc [sq_size] - mov eax,[player] - call get_xy - xor edx,edx - cmp dword[area],5 - je .vert - push [lx] - push [ly] - mov edx,dword[area] - add eax,[dirs+edx*4] - call get_xy - mcall 13,[lx],[ly] - pop [ly] - pop [lx] - .vert: - mcall 13,[lx],[ly] - add [sq_size],5 - mov eax,[finish] - call get_xy - mcall 13,[lx],[ly],0xffffff - - ret - - -CZ_level: -file 'colzone.bin' - -if lang eq ru_RU - CZ_help mstr \ - 'Черный блок из 2 кубиков стоит на раскрашенной',\ - 'клетчатой доске. Ваша задача - перекатить его на',\ - 'клетку с белым квадратиком. Блок начинает стоя и',\ - 'должен закончить тоже в вертикальном положении.',\ - 'Нельзя выкатывать его за пределы сетки и сверх',\ - 'того - кубики блока должны всегда ложиться на',\ - 'клетки одинакового цвета. Блок не отображен в 3D,',\ - 'поэтому Вы видите лишь его проекцию.','',\ - 'http://www.clickmazes.com' -else - CZ_help mstr \ - 'A black block, made of two black cubes stuck',\ - 'together, sits on a coloured grid. Your challenge',\ - 'is to roll the black block to its target',\ - 'position, which is marked with a small white',\ - 'square. The block starts on one end (vertical)',\ - 'and must also finish in this position. The block',\ - 'is not permitted to roll off the grid and, in',\ - 'addition, the block must always lie entirely',\ - 'within one colour-zone. Note the block is not',\ - 'displayed in 3D, in effect you see only its',\ - 'shadow.','',\ - 'http://www.clickmazes.com' -end if +; Language support for locales: ru_RU (CP866), en_US. + +; level format +; [fx|fy]..[field cells x2]..[worm_count]..[worm_len][start cell #][body dirs x2] + +; internal format +; [stepptr]= worms # +; area: [worm_len][start_cell #][end_cell #]..[dirs].. +; [cur_step]: dragged worm pointer +; [finish]: 0 - if head dragged, 1- if tail +CZ_levelp: + call get_xy_sf + call LP_levelp.bit2 + mov dword[area],5;0 + ret + +CZ_key: + mov [jump],still + cmp eax,176 + jb .ex + cmp eax,179 + ja .ex + mov ecx,dword[area] + lea ebx,[eax-176] + mov eax,[player] + call check_bounds + je .ex + cmp ecx,5 + jne .novert + .vert: + add eax,[dirs+ebx*4] + call check_bounds + je .ex + mov ecx,eax + add ecx,[dirs+ebx*4] + mov cl,[field+ecx] + cmp cl,[field+eax] + jne .ex + mov dword[area],ebx + .ok: + mov [player],eax + cmp eax,[finish] + jne .jm + cmp dword[area],5 + jne .jm + mov [win_flag],1 + .jm: + mov [jump],drw + .ex: + ret + .novert: + mov edx,ebx + cmp edx,ecx ; the same dir + jne .nosame + add eax,[dirs+ebx*4] + call check_bounds + je .ex + .set5: + mov dword[area],5 + add eax,[dirs+ebx*4] + jmp .ok + .nosame: + xor edx,11b + cmp edx,ecx ; the opposite dir + je .set5 + add eax,[dirs+ebx*4] + mov ebx,ecx + xor ecx,11b + add eax,[dirs+ecx*4] + jmp .vert + +CZ_drawm: + mov ecx,[cell_count] + mov esi,field + mov [sq_size],3 + .lp: + push ecx + movzx ebx,byte[field+ecx-1] + shr ebx,6 + lea eax,[ecx-1] + call get_xy + add [lx],5-2 shl 16 + add [ly],5-2 shl 16 + mov edx,[f_colors+ebx*4] + mcall 13,[lx],[ly] + .no: + pop ecx + loop .lp + + inc [sq_size] + mov eax,[player] + call get_xy + xor edx,edx + cmp dword[area],5 + je .vert + push [lx] + push [ly] + mov edx,dword[area] + add eax,[dirs+edx*4] + call get_xy + mcall 13,[lx],[ly] + pop [ly] + pop [lx] + .vert: + mcall 13,[lx],[ly] + add [sq_size],5 + mov eax,[finish] + call get_xy + mcall 13,[lx],[ly],0xffffff + + ret + + +CZ_level: +file 'colzone.bin' + +if lang eq ru_RU + CZ_help mstr \ + 'Черный блок из 2 кубиков стоит на раскрашенной',\ + 'клетчатой доске. Ваша задача - перекатить его на',\ + 'клетку с белым квадратиком. Блок начинает стоя и',\ + 'должен закончить тоже в вертикальном положении.',\ + 'Нельзя выкатывать его за пределы сетки и сверх',\ + 'того - кубики блока должны всегда ложиться на',\ + 'клетки одинакового цвета. Блок не отображен в 3D,',\ + 'поэтому Вы видите лишь его проекцию.','',\ + 'http://www.clickmazes.com' +else ; Default to en_US + CZ_help mstr \ + 'A black block, made of two black cubes stuck',\ + 'together, sits on a coloured grid. Your challenge',\ + 'is to roll the black block to its target',\ + 'position, which is marked with a small white',\ + 'square. The block starts on one end (vertical)',\ + 'and must also finish in this position. The block',\ + 'is not permitted to roll off the grid and, in',\ + 'addition, the block must always lie entirely',\ + 'within one colour-zone. Note the block is not',\ + 'displayed in 3D, in effect you see only its',\ + 'shadow.','',\ + 'http://www.clickmazes.com' +end if diff --git a/programs/games/megamaze/trunk/cstep.inc b/programs/games/megamaze/trunk/cstep.inc index a058a3b779..c9c769549d 100644 --- a/programs/games/megamaze/trunk/cstep.inc +++ b/programs/games/megamaze/trunk/cstep.inc @@ -1,66 +1,68 @@ -; level format -; [fx|fy][blue xy][red xy]..[maze walls] - -; internal format -; [player]= blue -; [finish]= red - - -CSTEP_key: - cmp eax,176 - jb .ex - cmp eax,179 - ja .ex - mov esi,area - inc esi - lea ebx,[eax-176] - mov [jump],still - mov eax,[player] - call check_move - jc .ex - add eax,[dirs+ebx*4] - mov edx,eax - .nom1: - mov eax,[finish] - xor ebx,11b - call check_move - jc .ex - add eax,[dirs+ebx*4] - mov [finish],eax - mov [player],edx - mov [jump],drw - cmp eax,edx - jnz .ex - mov [win_flag],1 - .ex: - ret - -CSTEP_drawm: - mov eax,[player] - call get_xy - mcall 13,[lx],[ly],0xff0000 - mov eax,[finish] - call get_xy - mcall 13,[lx],[ly],0xff - ret - -CSTEP_level: -file 'cstep.bin' - -if lang eq ru_RU - CSTEP_help mstr \ - 'Соедините красный и синий блоки путем управления',\ - 'одним красным блоком. Синий блок следует за',\ - 'красным, но движется в прямо противоположном',\ - 'направлении. Ход разрешен только в случае',\ - 'отсутствия препятствий для обоих блоков.','',\ - 'http://www.clickmazes.com' -else - CSTEP_help mstr \ - 'Unite the red and blue dots by moving just the',\ - 'red dot. The blue dot follows the red dot, but',\ - 'moves in exactly in the opposite direction. A',\ - 'move is only permitted if the path is clear for',\ - 'both dots.','',\ - 'http://www.clickmazes.com' -end if +; Language support for locales: ru_RU (CP866), en_US. + +; level format +; [fx|fy][blue xy][red xy]..[maze walls] + +; internal format +; [player]= blue +; [finish]= red + + +CSTEP_key: + cmp eax,176 + jb .ex + cmp eax,179 + ja .ex + mov esi,area + inc esi + lea ebx,[eax-176] + mov [jump],still + mov eax,[player] + call check_move + jc .ex + add eax,[dirs+ebx*4] + mov edx,eax + .nom1: + mov eax,[finish] + xor ebx,11b + call check_move + jc .ex + add eax,[dirs+ebx*4] + mov [finish],eax + mov [player],edx + mov [jump],drw + cmp eax,edx + jnz .ex + mov [win_flag],1 + .ex: + ret + +CSTEP_drawm: + mov eax,[player] + call get_xy + mcall 13,[lx],[ly],0xff0000 + mov eax,[finish] + call get_xy + mcall 13,[lx],[ly],0xff + ret + +CSTEP_level: +file 'cstep.bin' + +if lang eq ru_RU + CSTEP_help mstr \ + 'Соедините красный и синий блоки путем управления',\ + 'одним красным блоком. Синий блок следует за',\ + 'красным, но движется в прямо противоположном',\ + 'направлении. Ход разрешен только в случае',\ + 'отсутствия препятствий для обоих блоков.','',\ + 'http://www.clickmazes.com' +else ; Default to en_US + CSTEP_help mstr \ + 'Unite the red and blue dots by moving just the',\ + 'red dot. The blue dot follows the red dot, but',\ + 'moves in exactly in the opposite direction. A',\ + 'move is only permitted if the path is clear for',\ + 'both dots.','',\ + 'http://www.clickmazes.com' +end if diff --git a/programs/games/megamaze/trunk/fhouse.inc b/programs/games/megamaze/trunk/fhouse.inc index 62dd1c2f9e..4cd4fe28f2 100644 --- a/programs/games/megamaze/trunk/fhouse.inc +++ b/programs/games/megamaze/trunk/fhouse.inc @@ -1,197 +1,199 @@ -FH_levelp: - mcall 40,100111b - call get_xy_sf - call erase_field - sub esi,2 - mov [levptr],esi - movzx ecx,byte[esi-2] - sub ecx,2 - xor eax,eax - .lp: - lodsb - mov byte[field+eax],-1 - loop .lp - mov dword[player],-1 - mov [win_flag],3 - ret - -FH_key: - cmp eax,-1 - je FH_mouse - cmp eax,8 - jne .nobsp - cmp [stepptr],0 - jne .no1st - mov [jump],run.game - ret - .no1st: - mov [win_flag],0 - sub [cur_step],2 - mov esi,[cur_step] - mov edi,[finish] - mov eax,3 - movzx ebx,byte[esi] - sub eax,ebx - movzx ecx,byte[esi+1] - .lp0: - and byte[field+edi],0 - add edi,[dirs+eax*4] - loop .lp0 - mov [finish],edi - dec [stepptr] - ret - .nobsp: - cmp eax,176 - jb .ex - cmp eax,179 - ja .ex - sub eax,176 - jmp FH_mouse.fromkey - .ex: - ret - -FH_drawm: - mov ecx,[cell_count] - .lp: - push ecx - movzx ebx,byte[field+ecx-1] - test ebx,ebx - jz .no - lea eax,[ecx-1] - call get_xy - mov edx,0 - cmp ebx,0xf - jne .stable - mov edx,0x909090 - .stable: - mcall 13,[lx],[ly] - .no: - pop ecx - loop .lp - - mov eax,[player] - cmp eax,-1 - je .ex - call get_xy - mcall 13,[lx],[ly],0xff00 - mov eax,[finish] - call get_xy - mcall 13,[lx],[ly],0xff0000 - - mov ecx,[stepptr] - jecxz .ex - mov ebx,area - mov edi,[player] - mov edx,0xffffff - .lp3: - push ecx - mov esi,edi - movzx eax,byte[ebx] - movzx ecx,byte[ebx+1] - add ebx,2 - .lp2: - add edi,[dirs+eax*4] - loop .lp2 - call getline - pop ecx - loop .lp3 - .ex: - ret - -FH_mouse: - mov [jump],drw;red - call get_last_mclick - cmp byte[field+ebx],0 - jne .ex - cmp dword[player],-1 - jne .nostart - mov dword[player],ebx - mov byte[field+ebx],0xf - mov [finish],ebx - and [win_flag],0 - mov [cur_step],area - and [stepptr],0 - ret - .nostart: - mov eax,[finish] - call get_offset - cmp eax,-1 - je .ex - .fromkey: - xor ecx,ecx - mov edx,eax - mov esi,[finish] - .lp: - add esi,[dirs+edx*4] - cmp byte[field+esi],0 - jnz .exlp - mov eax,[finish] - mov ebx,esi - call get_offset - cmp eax,edx - jne .exlp - mov byte[field+esi],0xf - inc ecx - mov [finish],esi - jmp .lp - - .exlp: - jecxz .ex - mov eax,edx - mov edi,[cur_step] - stosb - mov [edi],cl - inc edi - mov [cur_step],edi - inc [stepptr] - mov edi,field - mov ecx,[cell_count] - xor eax,eax - repne scasb - je .ch_deadend - mov [win_flag],1 - .ex: - ret - .ch_deadend: - mov ecx,4 - mov edx,dirs - .lpp: - mov eax,[finish] - mov ebx,[edx] - add ebx,eax - push ebx - call get_offset - pop ebx - cmp eax,-1 - je .nxtlp - cmp byte[field+ebx],0 - jz .ex - .nxtlp: - add edx,4 - loop .lpp - mov [win_flag],4 - ret - -FH_level: -file 'fhouse.bin' - -if lang eq ru_RU - FH_help mstr \ - 'В задании найдите начальную клетку и проведите',\ - 'линию, которая проходит через пустые клетки по',\ - 'одному разу.',\ - ' Каждый раз красный квадрат двигается прямо,',\ - 'останавливаясь только у края, перед черными',\ - 'квадратами или уже посещенными клетками.','',\ - 'http://www.clickmazes.com' -else - FH_help mstr \ - 'For each puzzle find the starting square and draw',\ - 'a path moving horizontally and vertically that',\ - 'passes through each open square exactly once.','',\ - 'At each move the red runner will always run',\ - 'straight, as far as possible, stopping only when',\ - "blocked by the grid's edge, a black square, or a",\ - 'square already visited.','',\ - 'http://www.clickmazes.com' -end if +; Language support for locales: ru_RU (CP866), en_US. + +FH_levelp: + mcall 40,100111b + call get_xy_sf + call erase_field + sub esi,2 + mov [levptr],esi + movzx ecx,byte[esi-2] + sub ecx,2 + xor eax,eax + .lp: + lodsb + mov byte[field+eax],-1 + loop .lp + mov dword[player],-1 + mov [win_flag],3 + ret + +FH_key: + cmp eax,-1 + je FH_mouse + cmp eax,8 + jne .nobsp + cmp [stepptr],0 + jne .no1st + mov [jump],run.game + ret + .no1st: + mov [win_flag],0 + sub [cur_step],2 + mov esi,[cur_step] + mov edi,[finish] + mov eax,3 + movzx ebx,byte[esi] + sub eax,ebx + movzx ecx,byte[esi+1] + .lp0: + and byte[field+edi],0 + add edi,[dirs+eax*4] + loop .lp0 + mov [finish],edi + dec [stepptr] + ret + .nobsp: + cmp eax,176 + jb .ex + cmp eax,179 + ja .ex + sub eax,176 + jmp FH_mouse.fromkey + .ex: + ret + +FH_drawm: + mov ecx,[cell_count] + .lp: + push ecx + movzx ebx,byte[field+ecx-1] + test ebx,ebx + jz .no + lea eax,[ecx-1] + call get_xy + mov edx,0 + cmp ebx,0xf + jne .stable + mov edx,0x909090 + .stable: + mcall 13,[lx],[ly] + .no: + pop ecx + loop .lp + + mov eax,[player] + cmp eax,-1 + je .ex + call get_xy + mcall 13,[lx],[ly],0xff00 + mov eax,[finish] + call get_xy + mcall 13,[lx],[ly],0xff0000 + + mov ecx,[stepptr] + jecxz .ex + mov ebx,area + mov edi,[player] + mov edx,0xffffff + .lp3: + push ecx + mov esi,edi + movzx eax,byte[ebx] + movzx ecx,byte[ebx+1] + add ebx,2 + .lp2: + add edi,[dirs+eax*4] + loop .lp2 + call getline + pop ecx + loop .lp3 + .ex: + ret + +FH_mouse: + mov [jump],drw;red + call get_last_mclick + cmp byte[field+ebx],0 + jne .ex + cmp dword[player],-1 + jne .nostart + mov dword[player],ebx + mov byte[field+ebx],0xf + mov [finish],ebx + and [win_flag],0 + mov [cur_step],area + and [stepptr],0 + ret + .nostart: + mov eax,[finish] + call get_offset + cmp eax,-1 + je .ex + .fromkey: + xor ecx,ecx + mov edx,eax + mov esi,[finish] + .lp: + add esi,[dirs+edx*4] + cmp byte[field+esi],0 + jnz .exlp + mov eax,[finish] + mov ebx,esi + call get_offset + cmp eax,edx + jne .exlp + mov byte[field+esi],0xf + inc ecx + mov [finish],esi + jmp .lp + + .exlp: + jecxz .ex + mov eax,edx + mov edi,[cur_step] + stosb + mov [edi],cl + inc edi + mov [cur_step],edi + inc [stepptr] + mov edi,field + mov ecx,[cell_count] + xor eax,eax + repne scasb + je .ch_deadend + mov [win_flag],1 + .ex: + ret + .ch_deadend: + mov ecx,4 + mov edx,dirs + .lpp: + mov eax,[finish] + mov ebx,[edx] + add ebx,eax + push ebx + call get_offset + pop ebx + cmp eax,-1 + je .nxtlp + cmp byte[field+ebx],0 + jz .ex + .nxtlp: + add edx,4 + loop .lpp + mov [win_flag],4 + ret + +FH_level: +file 'fhouse.bin' + +if lang eq ru_RU + FH_help mstr \ + 'В задании найдите начальную клетку и проведите',\ + 'линию, которая проходит через пустые клетки по',\ + 'одному разу.',\ + ' Каждый раз красный квадрат двигается прямо,',\ + 'останавливаясь только у края, перед черными',\ + 'квадратами или уже посещенными клетками.','',\ + 'http://www.clickmazes.com' +else ; Default to en_US + FH_help mstr \ + 'For each puzzle find the starting square and draw',\ + 'a path moving horizontally and vertically that',\ + 'passes through each open square exactly once.','',\ + 'At each move the red runner will always run',\ + 'straight, as far as possible, stopping only when',\ + "blocked by the grid's edge, a black square, or a",\ + 'square already visited.','',\ + 'http://www.clickmazes.com' +end if diff --git a/programs/games/megamaze/trunk/loops.inc b/programs/games/megamaze/trunk/loops.inc index 7a723635ee..f22a24c7e3 100644 --- a/programs/games/megamaze/trunk/loops.inc +++ b/programs/games/megamaze/trunk/loops.inc @@ -1,245 +1,247 @@ -LP_levelp: - mcall 40,100111b - inc [drag_flag] - lodsb - lodsw - mov byte[fx],al - mov byte[fy],ah - and dword[player],0 - and dword[finish],0 - call get_xy_sf.count - call erase_field -; mov [levptr],esi - .bit2: - mov edx,8/2 - mov edi,field - lodsb - mov ecx,[cell_count] - .lp: - mov bl,al - rol al,2 - and bl,11000000b - mov [edi],bl - inc edi - dec edx - test edx,edx - jnz .nxt - mov edx,8/2 - lodsb - .nxt: - loop .lp - ret - -LP_key: - cmp eax,0 - jl LP_mouse - cmp eax,8 - jne .nobsp - cmp [stepptr],0 - jne .no1st - mov [jump],run.game - ret - .no1st: - mov [win_flag],0 - sub [cur_step],2 - mov esi,[cur_step] - mov edi,[finish] - mov eax,3 - movzx ebx,byte[esi] - sub eax,ebx - movzx ecx,byte[esi+1] - .lp0: - and byte[field+edi],0 - add edi,[dirs+eax*4] - loop .lp0 - mov [finish],edi - dec [stepptr] - ret - .nobsp: - cmp eax,176 - jb .ex - cmp eax,179 - ja .ex - sub eax,176 - .ex: - ret - -LP_drawm: - and [pause_time],0 - mov ecx,[cell_count] - .lp: - push ecx - mov bl,byte[field+ecx-1] - push ebx - lea eax,[ecx-1] - mov ecx,eax - call get_xy - - mov al,bl - and al,0xf - test bl,11000000b - jnz .noempty - mov esi,LP_aw - mov ecx,11 - call LP_draw_alert - jmp .no - .noempty: - mov edx,0 - test bl,10000000b - je .stable - mov edx,0xffffff - mov esi,LP_aw - mov ecx,7 - jmp .d13 - .stable: - mov esi,LP_em - mov ecx,9 - .d13: - call LP_draw_alert - mcall 13,[lx],[ly] - .no: - mov esi,[esp+4] - dec esi - mov edi,esi - mov edx,0x0000FF - ; ecx - cell # - test byte[esp],10b - je .no_dn - add edi,[dirs+4*1] - call getline - .no_dn: - test byte[esp],1000b - je .no_right - mov edi,esi - add edi,[dirs+4*3] - call getline - .no_right: - pop ebx - pop ecx - .valid: - loop .lp2 - jmp .exlp - .lp2: - jmp .lp - .exlp: - - mov esi,[player] - mov edi,[finish] - cmp esi,edi - je .ex - mov edx,0x7777FF - call getline - .ex: - cmp [pause_time],0 - jne .ex2 - xor ecx,ecx - xor ebx,ebx - mov edx,5 -; eax - cur cell content, ebx - cell #, ecx - cell counter, edx - dir - .chwin: - movzx eax,byte[field+ebx] - and eax,0xf - btr eax,edx - bsf edx,eax - je .ex3 - inc ecx - add ebx,[dirs+edx*4] - jz .ex3 - xor edx,11b - jmp .chwin - .ex3: - cmp ecx,[cell_count] - jne .ex2 - mov [win_flag],1 - .ex2: - ret - -LP_mouse: - cmp [win_flag],1 - je .ex - mov [jump],still - mov edx,eax - call get_last_mclick - cmp edx,-2 - jne .no1st - test eax,eax - jnz .noempty - mov eax,[player] - mov ebx,[finish] - call get_offset - mov ecx,eax - mov edx,0x101 - shl dl,cl - xor ecx,11b - shl dh,cl - mov ecx,ebx - jecxz LP_drawm.ex2 - mov esi,[player] - .lp: - xor [field+esi],dl - add esi,[dirs+eax*4] - xor [field+esi],dh - loop .lp - xor ebx,ebx - .noempty: - mov [player],ebx - jmp .exx - .no1st: - test eax,eax - jz .ex - mov eax,[player] - push ebx - call get_offset - pop ebx - cmp eax,-1 - je .ex - .exx: - mov [finish],ebx - mov [jump],drw -; 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_draw_alert: -; al-cell, esi - ptr,ecx - len - .lp: - cmp al,[esi] - je .ex - inc esi - loop .lp - pusha - mov ebx,[lx] - mov ecx,[ly] - add ebx,4-2 shl 16 - add ecx,4-2 shl 16 - mcall 13,,,0xFFAAAA - mov [pause_time],eax - popa - .ex: - ret - -LP_level: -file 'loops.bin' - -if lang eq ru_RU - LP_help mstr \ - 'Через все клетки прямоугольника необходимо',\ - 'провести замкнутую ломаную. Проходя через черный',\ - 'кружок, ломаная обязана повернуть, а проходя',\ - 'через белый кружок, ломаная поворачивать не',\ - 'может. В пустых же клетках ломаная ведет себя как',\ - 'захочет.','',\ - 'http://puzzleprograms.narod.ru' -else - LP_help mstr \ - 'You have to draw closed line over every grid',\ - 'cell. On black square line must turn, and it must',\ - 'go straight when over white square. The line may',\ - 'behave anyhow elsewhere.','',\ - 'http://puzzleprograms.narod.ru' -end if +; Language support for locales: ru_RU (CP866), en_US. + +LP_levelp: + mcall 40,100111b + inc [drag_flag] + lodsb + lodsw + mov byte[fx],al + mov byte[fy],ah + and dword[player],0 + and dword[finish],0 + call get_xy_sf.count + call erase_field +; mov [levptr],esi + .bit2: + mov edx,8/2 + mov edi,field + lodsb + mov ecx,[cell_count] + .lp: + mov bl,al + rol al,2 + and bl,11000000b + mov [edi],bl + inc edi + dec edx + test edx,edx + jnz .nxt + mov edx,8/2 + lodsb + .nxt: + loop .lp + ret + +LP_key: + cmp eax,0 + jl LP_mouse + cmp eax,8 + jne .nobsp + cmp [stepptr],0 + jne .no1st + mov [jump],run.game + ret + .no1st: + mov [win_flag],0 + sub [cur_step],2 + mov esi,[cur_step] + mov edi,[finish] + mov eax,3 + movzx ebx,byte[esi] + sub eax,ebx + movzx ecx,byte[esi+1] + .lp0: + and byte[field+edi],0 + add edi,[dirs+eax*4] + loop .lp0 + mov [finish],edi + dec [stepptr] + ret + .nobsp: + cmp eax,176 + jb .ex + cmp eax,179 + ja .ex + sub eax,176 + .ex: + ret + +LP_drawm: + and [pause_time],0 + mov ecx,[cell_count] + .lp: + push ecx + mov bl,byte[field+ecx-1] + push ebx + lea eax,[ecx-1] + mov ecx,eax + call get_xy + + mov al,bl + and al,0xf + test bl,11000000b + jnz .noempty + mov esi,LP_aw + mov ecx,11 + call LP_draw_alert + jmp .no + .noempty: + mov edx,0 + test bl,10000000b + je .stable + mov edx,0xffffff + mov esi,LP_aw + mov ecx,7 + jmp .d13 + .stable: + mov esi,LP_em + mov ecx,9 + .d13: + call LP_draw_alert + mcall 13,[lx],[ly] + .no: + mov esi,[esp+4] + dec esi + mov edi,esi + mov edx,0x0000FF + ; ecx - cell # + test byte[esp],10b + je .no_dn + add edi,[dirs+4*1] + call getline + .no_dn: + test byte[esp],1000b + je .no_right + mov edi,esi + add edi,[dirs+4*3] + call getline + .no_right: + pop ebx + pop ecx + .valid: + loop .lp2 + jmp .exlp + .lp2: + jmp .lp + .exlp: + + mov esi,[player] + mov edi,[finish] + cmp esi,edi + je .ex + mov edx,0x7777FF + call getline + .ex: + cmp [pause_time],0 + jne .ex2 + xor ecx,ecx + xor ebx,ebx + mov edx,5 +; eax - cur cell content, ebx - cell #, ecx - cell counter, edx - dir + .chwin: + movzx eax,byte[field+ebx] + and eax,0xf + btr eax,edx + bsf edx,eax + je .ex3 + inc ecx + add ebx,[dirs+edx*4] + jz .ex3 + xor edx,11b + jmp .chwin + .ex3: + cmp ecx,[cell_count] + jne .ex2 + mov [win_flag],1 + .ex2: + ret + +LP_mouse: + cmp [win_flag],1 + je .ex + mov [jump],still + mov edx,eax + call get_last_mclick + cmp edx,-2 + jne .no1st + test eax,eax + jnz .noempty + mov eax,[player] + mov ebx,[finish] + call get_offset + mov ecx,eax + mov edx,0x101 + shl dl,cl + xor ecx,11b + shl dh,cl + mov ecx,ebx + jecxz LP_drawm.ex2 + mov esi,[player] + .lp: + xor [field+esi],dl + add esi,[dirs+eax*4] + xor [field+esi],dh + loop .lp + xor ebx,ebx + .noempty: + mov [player],ebx + jmp .exx + .no1st: + test eax,eax + jz .ex + mov eax,[player] + push ebx + call get_offset + pop ebx + cmp eax,-1 + je .ex + .exx: + mov [finish],ebx + mov [jump],drw +; 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_draw_alert: +; al-cell, esi - ptr,ecx - len + .lp: + cmp al,[esi] + je .ex + inc esi + loop .lp + pusha + mov ebx,[lx] + mov ecx,[ly] + add ebx,4-2 shl 16 + add ecx,4-2 shl 16 + mcall 13,,,0xFFAAAA + mov [pause_time],eax + popa + .ex: + ret + +LP_level: +file 'loops.bin' + +if lang eq ru_RU + LP_help mstr \ + 'Через все клетки прямоугольника необходимо',\ + 'провести замкнутую ломаную. Проходя через черный',\ + 'кружок, ломаная обязана повернуть, а проходя',\ + 'через белый кружок, ломаная поворачивать не',\ + 'может. В пустых же клетках ломаная ведет себя как',\ + 'захочет.','',\ + 'http://puzzleprograms.narod.ru' ; FIXME: Check link works +else ; Default to en_US + LP_help mstr \ + 'You have to draw a closed line over every grid',\ + 'cell. On black square line must turn, and it must',\ + 'go straight when over white square. The line may',\ + 'behave anyhow elsewhere.','',\ + 'http://puzzleprograms.narod.ru' ; FIXME: Check link works +end if diff --git a/programs/games/megamaze/trunk/marble.inc b/programs/games/megamaze/trunk/marble.inc index d8d61e6142..df3c1ae303 100644 --- a/programs/games/megamaze/trunk/marble.inc +++ b/programs/games/megamaze/trunk/marble.inc @@ -1,138 +1,140 @@ -; level format -; [fx|fy][hole xy][balls #]..[1-red,0-black xy]..[maze walls] - -; internal format -; [stepptr]= balls # -; [finish]= hole cell -; area: ..[1-red,0-black xy].. ( -1 if empty) - -MAR_levelp: - call get_xy_sf - movzx eax,byte[esi-2] - mov [finish],eax - movzx ecx,byte[esi-1] - mov [stepptr],ecx - mov edi,area - rep movsb - mov [pause_time],10 - call unpack_level - ret - -MAR_key: - cmp eax,176 - jb .ex - cmp eax,179 - ja .ex - mov esi,area-1 - lea ebx,[eax-176] - .again: - and [cur_step],0 - mov ecx,[stepptr] - .lp: - movzx eax,byte[esi+ecx] - cmp al,-1 - je .ex1 - mov byte[player],al - and byte[player],0x80 - and eax,0x7f - call check_move - jc .ex1 - add eax,[dirs+ebx*4] - cmp eax,[finish] - jne .nohole - mov byte[esi+ecx],-1 - jmp .ex2 - .nohole: - push ecx - mov ecx,[stepptr] - mov edi,area - .lp2: - mov dl,[edi] - and dl,0x7f - cmp al,dl - je .exlp2 - inc edi - loop .lp2 - .exlp2: - pop ecx - je .ex1 - or al,byte[player] - mov [esi+ecx],al - .ex2: - inc [cur_step] - .ex1: - loop .lp - cmp [cur_step],0 - je .exx - call delay - call drwfld - jmp .again - .exx: - mov ecx,[stepptr] - inc esi - .lp3: - lodsb - cmp al,-1 - je .nxt - test al,0x80 - jne .ex - .nxt: - loop .lp3 - mov [win_flag],1 - .ex: - ret - -MAR_drawm: - shl [sq_size],1 - mov eax,[finish] - call get_xy - shr [sq_size],1 - mcall 13,[lx],[ly],0xa0a0a0 - movzx ecx,byte[stepptr] - mov edi,area - .lp: - push ecx - movzx eax,byte[edi] - mov edx,0x0 - cmp al,-1 - je .exlp - test eax,0x80 - je .no - mov edx,0xff00000 - .no: - and eax,0x7f - call get_xy - mcall 13,[lx],[ly] - .exlp: - pop ecx - inc edi - loop .lp - .ex: - ret - -MAR_level: -file 'marble.bin' - -if lang eq ru_RU - MAR_help mstr \ - 'Несколько красных и черных плашек лежат на доске,',\ - 'дырка обозначена серой клеткой. Когда плашка',\ - 'проходит над дыркой, она падает туда и исчезает.',\ - 'Используйте стрелки для наклона доски.',\ - ' Ваша задача - сбросить все красные плашки.',\ - 'Количество упавших черных плашек роли не играет.','',\ - 'http://www.clickmazes.com' -else - MAR_help mstr \ - 'Several red and black marbles sit on a flat tray,',\ - 'a grey square indicate a hole in the tray. If a',\ - 'marble rolls onto or over the hole it drops',\ - 'through and disappears. Use the cursor keys to',\ - 'tilt the tray and start the marbles rolling, the',\ - 'marbles roll in a straight line until they come',\ - 'to rest, you can then roll again. Your challenge',\ - 'is to drop all the red marbles, it does not',\ - 'matter how many black marbles you lose in the',\ - 'process.','',\ - 'http://www.clickmazes.com' -end if +; Language support for locales: ru_RU (CP866), en_US. + +; level format +; [fx|fy][hole xy][balls #]..[1-red,0-black xy]..[maze walls] + +; internal format +; [stepptr]= balls # +; [finish]= hole cell +; area: ..[1-red,0-black xy].. ( -1 if empty) + +MAR_levelp: + call get_xy_sf + movzx eax,byte[esi-2] + mov [finish],eax + movzx ecx,byte[esi-1] + mov [stepptr],ecx + mov edi,area + rep movsb + mov [pause_time],10 + call unpack_level + ret + +MAR_key: + cmp eax,176 + jb .ex + cmp eax,179 + ja .ex + mov esi,area-1 + lea ebx,[eax-176] + .again: + and [cur_step],0 + mov ecx,[stepptr] + .lp: + movzx eax,byte[esi+ecx] + cmp al,-1 + je .ex1 + mov byte[player],al + and byte[player],0x80 + and eax,0x7f + call check_move + jc .ex1 + add eax,[dirs+ebx*4] + cmp eax,[finish] + jne .nohole + mov byte[esi+ecx],-1 + jmp .ex2 + .nohole: + push ecx + mov ecx,[stepptr] + mov edi,area + .lp2: + mov dl,[edi] + and dl,0x7f + cmp al,dl + je .exlp2 + inc edi + loop .lp2 + .exlp2: + pop ecx + je .ex1 + or al,byte[player] + mov [esi+ecx],al + .ex2: + inc [cur_step] + .ex1: + loop .lp + cmp [cur_step],0 + je .exx + call delay + call drwfld + jmp .again + .exx: + mov ecx,[stepptr] + inc esi + .lp3: + lodsb + cmp al,-1 + je .nxt + test al,0x80 + jne .ex + .nxt: + loop .lp3 + mov [win_flag],1 + .ex: + ret + +MAR_drawm: + shl [sq_size],1 + mov eax,[finish] + call get_xy + shr [sq_size],1 + mcall 13,[lx],[ly],0xa0a0a0 + movzx ecx,byte[stepptr] + mov edi,area + .lp: + push ecx + movzx eax,byte[edi] + mov edx,0x0 + cmp al,-1 + je .exlp + test eax,0x80 + je .no + mov edx,0xff00000 + .no: + and eax,0x7f + call get_xy + mcall 13,[lx],[ly] + .exlp: + pop ecx + inc edi + loop .lp + .ex: + ret + +MAR_level: +file 'marble.bin' + +if lang eq ru_RU + MAR_help mstr \ + 'Несколько красных и черных плашек лежат на доске,',\ + 'дырка обозначена серой клеткой. Когда плашка',\ + 'проходит над дыркой, она падает туда и исчезает.',\ + 'Используйте стрелки для наклона доски.',\ + ' Ваша задача - сбросить все красные плашки.',\ + 'Количество упавших черных плашек роли не играет.','',\ + 'http://www.clickmazes.com' +else ; Default to en_US + MAR_help mstr \ + 'Several red and black marbles sit on a flat tray,',\ + 'a grey square indicate a hole in the tray. If a',\ + 'marble rolls onto or over the hole it drops',\ + 'through and disappears. Use the cursor keys to',\ + 'tilt the tray and start the marbles rolling, the',\ + 'marbles roll in a straight line until they come',\ + 'to rest, you can then roll again. Your challenge',\ + 'is to drop all the red marbles, it does not',\ + 'matter how many black marbles you lose in the',\ + 'process.','',\ + 'http://www.clickmazes.com' +end if diff --git a/programs/games/megamaze/trunk/nolt.inc b/programs/games/megamaze/trunk/nolt.inc index fe04cd1316..332ff1ad7c 100644 --- a/programs/games/megamaze/trunk/nolt.inc +++ b/programs/games/megamaze/trunk/nolt.inc @@ -1,92 +1,94 @@ -NLT_levelp: - mov eax,OR_strip - call need_image - xor eax,eax - lodsb - lodsb - mov [fx],eax - lodsb - mov [fy],eax - lodsw - mov [player],eax - mov dword[area],5 - lodsw - mov [finish],eax - call get_xy_sf.count - mov [levptr],esi - call unpack_level - ret - -NLT_key: - mov [jump],still - cmp eax,176 - jb .ex - cmp eax,179 - ja .ex - lea ebx,[eax-176] - mov eax,[player] - call check_move - jc .ex - mov ecx,ebx - mov edx,ebx - movzx ecx,byte[dir_rotate+ecx] - cmp ecx,dword[area] - je .ex - xor edx,11b - cmp edx,dword[area] - je .ex - add eax,[dirs+ebx*4] - mov dword[area],ebx - mov [player],eax - cmp eax,[finish] - jne .nowin - mov [win_flag],1 - .nowin: - mov [jump],drw - .ex: - ret - -NLT_drawm: - push [sq_size] - mov [sq_size],0 - mov eax,[finish] - mov ebx,6 - call out_image -; mcall 13,[lx],[ly],0xff0000 - mov ebx,dword[area] - cmp ebx,5 - jne .skip - mov eax,[player] - mov edi,eax - pop [sq_size] - call get_xy - mcall 13,[lx],[ly],0x8000 - jmp .ex - .skip: - add ebx,8 - mov eax,[player] - call out_image - pop [sq_size] - .ex: - ret - -NLT_level: -file 'nolt.bin' - -if lang eq ru_RU - NLT_help mstr \ - 'Ваша задача - провести зеленый квадрат к красному',\ - 'без поворота налево и движения назад. Это труднее',\ - 'чем кажется. Внимание: если Вы примете плохое',\ - 'решение, можете попасть в тупик и будете',\ - 'вынуждены начать сначала.','',\ - 'http://puzzleprograms.narod.ru' -else - NLT_help mstr \ - 'Your challenge is to manouvre the green dot to',\ - 'the red square without ever turning left, or',\ - 'making a U-turn. Harder than it looks. Beware, if',\ - 'you make a bad decision in this maze you may get',\ - 'completely stuck and have to restart.','',\ - 'http://www.clickmazes.com' -end if +; Language support for locales: ru_RU (CP866), en_US. + +NLT_levelp: + mov eax,OR_strip + call need_image + xor eax,eax + lodsb + lodsb + mov [fx],eax + lodsb + mov [fy],eax + lodsw + mov [player],eax + mov dword[area],5 + lodsw + mov [finish],eax + call get_xy_sf.count + mov [levptr],esi + call unpack_level + ret + +NLT_key: + mov [jump],still + cmp eax,176 + jb .ex + cmp eax,179 + ja .ex + lea ebx,[eax-176] + mov eax,[player] + call check_move + jc .ex + mov ecx,ebx + mov edx,ebx + movzx ecx,byte[dir_rotate+ecx] + cmp ecx,dword[area] + je .ex + xor edx,11b + cmp edx,dword[area] + je .ex + add eax,[dirs+ebx*4] + mov dword[area],ebx + mov [player],eax + cmp eax,[finish] + jne .nowin + mov [win_flag],1 + .nowin: + mov [jump],drw + .ex: + ret + +NLT_drawm: + push [sq_size] + mov [sq_size],0 + mov eax,[finish] + mov ebx,6 + call out_image +; mcall 13,[lx],[ly],0xff0000 + mov ebx,dword[area] + cmp ebx,5 + jne .skip + mov eax,[player] + mov edi,eax + pop [sq_size] + call get_xy + mcall 13,[lx],[ly],0x8000 + jmp .ex + .skip: + add ebx,8 + mov eax,[player] + call out_image + pop [sq_size] + .ex: + ret + +NLT_level: +file 'nolt.bin' + +if lang eq ru_RU + NLT_help mstr \ + 'Ваша задача - провести зеленый квадрат к красному',\ + 'без поворота налево и движения назад. Это труднее',\ + 'чем кажется. Внимание: если Вы примете плохое',\ + 'решение, можете попасть в тупик и будете',\ + 'вынуждены начать сначала.','',\ + 'http://puzzleprograms.narod.ru' ; FIXME: Check link works +else ; Default to en_US + NLT_help mstr \ + 'Your challenge is to manouvre the green dot to',\ + 'the red square without ever turning left, or',\ + 'making a U-turn. Harder than it looks. Beware, if',\ + 'you make a bad decision in this maze you may get',\ + 'completely stuck and have to restart.','',\ + 'http://www.clickmazes.com' ; FIXME: Why are links different? +end if diff --git a/programs/games/megamaze/trunk/orient.inc b/programs/games/megamaze/trunk/orient.inc index dae1fe6312..dbaf2b0dee 100644 --- a/programs/games/megamaze/trunk/orient.inc +++ b/programs/games/megamaze/trunk/orient.inc @@ -1,227 +1,229 @@ -; level format -; [fx|fy]..[field cells x2]..[worm_count]..[worm_len][start cell #][body dirs x2] - -; internal format -; [stepptr]= worms # -; area: [worm_len][start_cell #][end_cell #]..[dirs].. -; [cur_step]: dragged worm pointer -; [finish]: 0 - if head dragged, 1- if tail - -OR_levelp: - mov [Ces],40 - mcall 40,100111b - inc [drag_flag] - mov eax,OR_strip - call need_image - inc esi - movzx ecx,byte[esi] - inc esi - push esi - mov esi,OR_maze - jecxz .sk - .nxtmz: - movzx eax,byte[esi] - add esi,eax - loop .nxtmz - .sk: - call get_xy_sf - call unpack_level - pop esi - movzx ecx,byte[esi] - inc esi - mov [cur_step],ecx - jecxz .sk2 - mov edi,area - rep movsb - .sk2: - mov ecx,[cell_count] - mov edi,area+16 - rep movsb - mov [stepptr],2 -; call erase_field -; ud2 - ret - -OR_key: - cmp eax,0 - jl OR_mouse - ret - -OR_drawf: - mov ecx,[cell_count] - push [sq_size] - mov [sq_size],0 - .lp: - push ecx - movzx ebx,byte[area+16+ecx-1] - cmp bl,0xf - je .no - lea eax,[ecx-1] - call out_image - .no: - pop ecx - loop .lp - pop [sq_size] - ret - -OR_drawm: - push [sq_size] - mov [sq_size],0 - mov eax,[player] - mov ebx,[stepptr] - add ebx,8 - call out_image - mov ecx,[cur_step] - jecxz .skipb - mov ebx,7 - mov esi,area - xor eax,eax - .nxtb: - lodsb - call out_image - loop .nxtb - .skipb: - mov eax,[player] - .again: - mov ebx,[stepptr] - call check_move - jc .ex - add eax,[dirs+ebx*4] - cmp byte[area+16+eax],6 - je .ex - mov ecx,[cur_step] - jecxz .skbchk - mov edi,area - repne scasb - je .again - .skbchk: - mov [sq_size],1 - push eax - call get_xy - mov ebx,[lx] - sub bx,2 - mov ecx,[ly] - mov cx,3 - mcall 13,,,0xFFC633 - xchg bx,cx - mcall - mov esi,[Ces] - sub esi,3+2 - shl esi,16 - push ebx - add ebx,esi - mcall - pop ebx - add ecx,esi - xchg bx,cx - add bx,2 - mcall - pop eax - jmp .again - .ex: - pop [sq_size] - ret - -OR_mouse: - cmp [win_flag],1 - je .ex - mov [jump],still - mov edx,eax - call get_last_mclick - cmp edx,-2 - jne .ex - test eax,eax - jnz .noempty - .drw: - mov [jump],drw - ret - .noempty: - -; First Click at ebx cell - mov eax,[player] - cmp eax,ebx - je OR_drawf - mov ecx,[cur_step] - jecxz .skbchk - mov edi,area - xchg eax,ebx - repne scasb - xchg eax,ebx - je OR_drawf - .skbchk: - cmp byte[area+16+ebx],0xf - je .ex - cmp byte[area+16+ebx],6 - je .ex - push eax - mov edx,ebx - call get_offset - mov ebx,eax - pop eax - cmp ebx,[stepptr] - jne .ex - - call check_move - jc .ex - movzx ecx,byte[area+16+edx] - cmp ecx,4 - jae .noarr - mov ebx,ecx - call check_move - jc .ex - mov edx,eax - add eax,[dirs+ebx*4] - mov [player],eax - mov ecx,[cur_step] - jecxz .skbchk2 - mov edi,area - repne scasb - jne .skbchk2 - mov [edi-1],dl - .skbchk2: - cmp eax,[finish] - jne .drw - mov [win_flag],1 - jmp .drw - .noarr: - mov edx,[stepptr] - cmp ecx,4 - jne .nocw - movzx edx,byte[dir_rotate+edx] - jmp .ex2 - .nocw: - cmp ecx,5 - jne .ex - movzx edx,byte[dir_rotate+4+edx] - .ex2: - mov [stepptr],edx - jmp .drw - .ex: - ret - -OR_maze: -file 'omaze.bin' - -OR_level: -file 'or2.bin' - -if lang eq ru_RU - OR_help mstr \ - 'Щелчок на выделенной клетке передвигает или',\ - 'вращает красную стрелку. Синий блок действует',\ - 'как препятствие, скрывая одну клетку. При',\ - 'переходе стрелки на клетку синего блока они',\ - 'поменяются местами. Задача - провести красную',\ - 'стрелку из нижней клетки в верхнюю.','',\ - 'http://www.clickmazes.com' -else - OR_help mstr \ - 'Click on a highlighted square to move or rotate',\ - 'the red pointer. The blue switcher acts as an',\ - 'obstacle, hiding one square. The red pointer and',\ - 'blue switcher will swap places if the red pointer',\ - 'is pushed onto a square occupied by a blue',\ - 'switcher. Your challenge is to negotiate the red',\ - 'arrow from the bottom to the top square.','',\ - 'http://www.clickmazes.com' -end if +; Language support for locales: ru_RU (CP866), en_US. + +; level format +; [fx|fy]..[field cells x2]..[worm_count]..[worm_len][start cell #][body dirs x2] + +; internal format +; [stepptr]= worms # +; area: [worm_len][start_cell #][end_cell #]..[dirs].. +; [cur_step]: dragged worm pointer +; [finish]: 0 - if head dragged, 1- if tail + +OR_levelp: + mov [Ces],40 + mcall 40,100111b + inc [drag_flag] + mov eax,OR_strip + call need_image + inc esi + movzx ecx,byte[esi] + inc esi + push esi + mov esi,OR_maze + jecxz .sk + .nxtmz: + movzx eax,byte[esi] + add esi,eax + loop .nxtmz + .sk: + call get_xy_sf + call unpack_level + pop esi + movzx ecx,byte[esi] + inc esi + mov [cur_step],ecx + jecxz .sk2 + mov edi,area + rep movsb + .sk2: + mov ecx,[cell_count] + mov edi,area+16 + rep movsb + mov [stepptr],2 +; call erase_field +; ud2 + ret + +OR_key: + cmp eax,0 + jl OR_mouse + ret + +OR_drawf: + mov ecx,[cell_count] + push [sq_size] + mov [sq_size],0 + .lp: + push ecx + movzx ebx,byte[area+16+ecx-1] + cmp bl,0xf + je .no + lea eax,[ecx-1] + call out_image + .no: + pop ecx + loop .lp + pop [sq_size] + ret + +OR_drawm: + push [sq_size] + mov [sq_size],0 + mov eax,[player] + mov ebx,[stepptr] + add ebx,8 + call out_image + mov ecx,[cur_step] + jecxz .skipb + mov ebx,7 + mov esi,area + xor eax,eax + .nxtb: + lodsb + call out_image + loop .nxtb + .skipb: + mov eax,[player] + .again: + mov ebx,[stepptr] + call check_move + jc .ex + add eax,[dirs+ebx*4] + cmp byte[area+16+eax],6 + je .ex + mov ecx,[cur_step] + jecxz .skbchk + mov edi,area + repne scasb + je .again + .skbchk: + mov [sq_size],1 + push eax + call get_xy + mov ebx,[lx] + sub bx,2 + mov ecx,[ly] + mov cx,3 + mcall 13,,,0xFFC633 + xchg bx,cx + mcall + mov esi,[Ces] + sub esi,3+2 + shl esi,16 + push ebx + add ebx,esi + mcall + pop ebx + add ecx,esi + xchg bx,cx + add bx,2 + mcall + pop eax + jmp .again + .ex: + pop [sq_size] + ret + +OR_mouse: + cmp [win_flag],1 + je .ex + mov [jump],still + mov edx,eax + call get_last_mclick + cmp edx,-2 + jne .ex + test eax,eax + jnz .noempty + .drw: + mov [jump],drw + ret + .noempty: + +; First Click at ebx cell + mov eax,[player] + cmp eax,ebx + je OR_drawf + mov ecx,[cur_step] + jecxz .skbchk + mov edi,area + xchg eax,ebx + repne scasb + xchg eax,ebx + je OR_drawf + .skbchk: + cmp byte[area+16+ebx],0xf + je .ex + cmp byte[area+16+ebx],6 + je .ex + push eax + mov edx,ebx + call get_offset + mov ebx,eax + pop eax + cmp ebx,[stepptr] + jne .ex + + call check_move + jc .ex + movzx ecx,byte[area+16+edx] + cmp ecx,4 + jae .noarr + mov ebx,ecx + call check_move + jc .ex + mov edx,eax + add eax,[dirs+ebx*4] + mov [player],eax + mov ecx,[cur_step] + jecxz .skbchk2 + mov edi,area + repne scasb + jne .skbchk2 + mov [edi-1],dl + .skbchk2: + cmp eax,[finish] + jne .drw + mov [win_flag],1 + jmp .drw + .noarr: + mov edx,[stepptr] + cmp ecx,4 + jne .nocw + movzx edx,byte[dir_rotate+edx] + jmp .ex2 + .nocw: + cmp ecx,5 + jne .ex + movzx edx,byte[dir_rotate+4+edx] + .ex2: + mov [stepptr],edx + jmp .drw + .ex: + ret + +OR_maze: +file 'omaze.bin' + +OR_level: +file 'or2.bin' + +if lang eq ru_RU + OR_help mstr \ + 'Щелчок на выделенной клетке передвигает или',\ + 'вращает красную стрелку. Синий блок действует',\ + 'как препятствие, скрывая одну клетку. При',\ + 'переходе стрелки на клетку синего блока они',\ + 'поменяются местами. Задача - провести красную',\ + 'стрелку из нижней клетки в верхнюю.','',\ + 'http://www.clickmazes.com' ; FIXME: Check link works +else ; Default to en_US + OR_help mstr \ + 'Click on a highlighted square to move or rotate',\ + 'the red pointer. The blue switcher acts as an',\ + 'obstacle, hiding one square. The red pointer and',\ + 'blue switcher will swap places if the red pointer',\ + 'is pushed onto a square occupied by a blue',\ + 'switcher. Your challenge is to negotiate the red',\ + 'arrow from the bottom to the top square.','',\ + 'http://www.clickmazes.com' ; FIXME: Check link works +end if diff --git a/programs/games/megamaze/trunk/smz.inc b/programs/games/megamaze/trunk/smz.inc index 0dc0951ba3..9c416fcf01 100644 --- a/programs/games/megamaze/trunk/smz.inc +++ b/programs/games/megamaze/trunk/smz.inc @@ -1,94 +1,96 @@ -SMZ_levelp: - call get_xy_sf - xor eax,eax - mov [stepptr],esi - lodsb - mov [cur_step],esi - add esi,eax - mov [levptr],esi - call unpack_level - ret - -SMZ_key: - cmp eax,176 - jb .ex - cmp eax,179 - ja .ex - mov ecx,[cur_step] - movzx ecx,byte[ecx] - lea ebx,[eax-176] - mov eax,[player] - .lp: - call check_move - jc .exl - add eax,[dirs+ebx*4] - loop .lp - .exl: - test ecx,ecx - jne .ex - mov [player],eax - cmp eax,[finish] - jne .nowin - mov [win_flag],1 - .nowin: - mov esi,[stepptr] - movzx eax,byte[esi] - inc esi - lea ebx,[esi+eax] - inc [cur_step] - cmp [cur_step],ebx - jb .ex - mov [cur_step],esi - .ex: - ret - -SMZ_drawm: - mov eax,[player] - call get_xy - mcall 13,[lx],[ly],0xff00 - mov eax,[finish] - call get_xy - mcall 13,[lx],[ly],0xff0000 - cmp [win_flag],1 - je .ex - mov edi,[stepptr] - movzx ecx,byte[edi] - inc edi - mov edx,(XFOFS+MSGXO) shl 16+42 - mov ebx,0x010000 - mov eax,47 - .lp: - push ecx - mov esi,0x10000000 - movzx ecx,byte[edi] - cmp edi,[cur_step] - jne .nocur - mov esi,0x100000ff - mcall - add edx,1 shl 16 - .nocur: - mcall - pop ecx - add edx,10 shl 16 - inc edi - loop .lp - .ex: - ret - -SMZ_level: -file 'smz.bin' - -if lang eq ru_RU - SMZ_help mstr \ - 'Повторяйте последовательность ходов, двигая',\ - 'зеленый квадрат на подсвеченное количество клеток',\ - 'по прямой, пока не достигнете красного квадрата.','',\ - 'http://puzzleprograms.narod.ru' -else - SMZ_help mstr \ - 'Repeat sequence shown above the field moving the',\ - 'green square by highlighted count of spaces as',\ - 'many times as you like, until you finish at the',\ - 'red square.','',\ - 'http://puzzleprograms.narod.ru' -end if +; Language support for locales: ru_RU (CP866), en_US. + +SMZ_levelp: + call get_xy_sf + xor eax,eax + mov [stepptr],esi + lodsb + mov [cur_step],esi + add esi,eax + mov [levptr],esi + call unpack_level + ret + +SMZ_key: + cmp eax,176 + jb .ex + cmp eax,179 + ja .ex + mov ecx,[cur_step] + movzx ecx,byte[ecx] + lea ebx,[eax-176] + mov eax,[player] + .lp: + call check_move + jc .exl + add eax,[dirs+ebx*4] + loop .lp + .exl: + test ecx,ecx + jne .ex + mov [player],eax + cmp eax,[finish] + jne .nowin + mov [win_flag],1 + .nowin: + mov esi,[stepptr] + movzx eax,byte[esi] + inc esi + lea ebx,[esi+eax] + inc [cur_step] + cmp [cur_step],ebx + jb .ex + mov [cur_step],esi + .ex: + ret + +SMZ_drawm: + mov eax,[player] + call get_xy + mcall 13,[lx],[ly],0xff00 + mov eax,[finish] + call get_xy + mcall 13,[lx],[ly],0xff0000 + cmp [win_flag],1 + je .ex + mov edi,[stepptr] + movzx ecx,byte[edi] + inc edi + mov edx,(XFOFS+MSGXO) shl 16+42 + mov ebx,0x010000 + mov eax,47 + .lp: + push ecx + mov esi,0x10000000 + movzx ecx,byte[edi] + cmp edi,[cur_step] + jne .nocur + mov esi,0x100000ff + mcall + add edx,1 shl 16 + .nocur: + mcall + pop ecx + add edx,10 shl 16 + inc edi + loop .lp + .ex: + ret + +SMZ_level: +file 'smz.bin' + +if lang eq ru_RU + SMZ_help mstr \ + 'Повторяйте последовательность ходов, двигая',\ + 'зеленый квадрат на подсвеченное количество клеток',\ + 'по прямой, пока не достигнете красного квадрата.','',\ + 'http://puzzleprograms.narod.ru' ; FIXME: Check link works +else ; Default to en_US + SMZ_help mstr \ + 'Repeat sequence shown above the field moving the',\ + 'green square by highlighted count of spaces as',\ + 'many times as you like, until you finish at the',\ + 'red square.','',\ + 'http://puzzleprograms.narod.ru' ; FIXME: Check link works +end if diff --git a/programs/games/megamaze/trunk/tam.inc b/programs/games/megamaze/trunk/tam.inc index 3d985b9b10..00db46c7a1 100644 --- a/programs/games/megamaze/trunk/tam.inc +++ b/programs/games/megamaze/trunk/tam.inc @@ -1,164 +1,166 @@ -TM_levelp: - call get_xy_sf - mov [levptr],esi - call unpack_level - ret - -TM_key: - cmp eax,' ' - je .mm - cmp eax,176 - jb .still - cmp eax,179 - ja .still - lea ebx,[eax-176] - mov eax,[teseus] - call check_move - jc .still - call move_teseus - cmp [win_flag],0 - jne .ex - .nowin: - call drwfld - .mm: - call move_minotaur - cmp eax,[teseus] - jne .still - mov [win_flag],2 - jmp .ex - .still: - mov [jump],still - .ex: - ret - -move_minotaur: - xor esi,esi - mov eax,[teseus] - mov ebx,[fx] - div bl - mov ecx,eax ;teseus: ch-x, cl-y - mov eax,[minotaur] - .again: - call mino_xy - xor ebx,ebx - cmp dh,ch - je .stand2 - ja .ok1 - add ebx,3 - .ok1: - call check_move - jc .stand2 - add eax,[dirs+ebx*4] - mov [minotaur],eax - inc esi - call delay - call drwfld - cmp esi,2 - jb .again - jmp .ex - .stand1: - call mino_xy - .stand2: - mov ebx,2 - cmp dl,cl - je .ex - ja .ok2 - dec ebx - .ok2: - call check_move - jc .ex - add eax,[dirs+ebx*4] - mov [minotaur],eax - inc esi - call delay - call drwfld - cmp esi,2 - jb .again - .ex: - ret - -mino_xy: - push eax - div byte[fx] - mov edx,eax ;minotaur: dh-x, dl-y - pop eax - ret - -move_teseus: - pusha - cdq - mov ecx,[fx] - div cl - add ax,1 shl 8+1 - test ebx,ebx - jne .no0 - cmp ah,1 - jne .move - .win: - inc [win_flag] - jmp .ex - .no0: - cmp ebx,1 - jne .no1 - cmp al,byte[fy] - je .win - jmp .move - .no1: - cmp ebx,2 - jne .no2 - cmp al,1 - je .win - jmp .move - .no2: - cmp ebx,3 - jne .move - cmp ah,byte[fx] - je .win - .move: - mov eax,[esp+28] - add eax,[dirs+ebx*4] - mov [teseus],eax - .ex: - popa - ret - -TM_drawm: - mov eax,[teseus] - call get_xy - mcall 13,[lx],[ly],0xff00 - mov eax,[minotaur] - call get_xy - mcall 13,[lx],[ly],0xff0000 - ret - -TM_level: -file 'tam.bin' - -if lang eq ru_RU - TM_help mstr \ - ' Тесей (зеленый квадрат) должен убежать из',\ - 'лабиринта. За ним гонится механический Минотавр',\ - '(красный квадрат). На каждый ход Тесей Минотавр',\ - 'делает 2 хода по такой схеме:',\ - ' Сначала он пытается приблизиться к Тесею по',\ - 'горизонтали на 1 квадрат. Если это невозможно,',\ - 'он пытается подойти по вертикали на 1 квадрат.',\ - 'Если невозможно сделать ни того, ни другого,',\ - 'Минотавр пропускает данный ход.','',\ - 'http://puzzleprograms.narod.ru' -else - TM_help mstr \ - ' Theseus (the green dot) must escape from a maze.',\ - 'There is also a mechanical Minotaur (the red',\ - 'dot) in each maze. For every turn that Theseus',\ - 'takes, the Minotaur takes two turns.',\ - ' Each turn he decides following:',\ - 'First he tests if he can move horizontally and',\ - 'get closer to Theseus. If he can, he will move',\ - "one square horizontally. If he can't, he will",\ - 'test if he could move vertically and get closer',\ - 'to Theseus. If he can, he will move one square',\ - "vertically. If he can't move either horizontally",\ - 'or vertically, then he just skips that turn.','',\ - 'http://puzzleprograms.narod.ru' -end if +; Language support for locales: ru_RU (CP866), en_US. + +TM_levelp: + call get_xy_sf + mov [levptr],esi + call unpack_level + ret + +TM_key: + cmp eax,' ' + je .mm + cmp eax,176 + jb .still + cmp eax,179 + ja .still + lea ebx,[eax-176] + mov eax,[teseus] + call check_move + jc .still + call move_teseus + cmp [win_flag],0 + jne .ex + .nowin: + call drwfld + .mm: + call move_minotaur + cmp eax,[teseus] + jne .still + mov [win_flag],2 + jmp .ex + .still: + mov [jump],still + .ex: + ret + +move_minotaur: + xor esi,esi + mov eax,[teseus] + mov ebx,[fx] + div bl + mov ecx,eax ;teseus: ch-x, cl-y + mov eax,[minotaur] + .again: + call mino_xy + xor ebx,ebx + cmp dh,ch + je .stand2 + ja .ok1 + add ebx,3 + .ok1: + call check_move + jc .stand2 + add eax,[dirs+ebx*4] + mov [minotaur],eax + inc esi + call delay + call drwfld + cmp esi,2 + jb .again + jmp .ex + .stand1: + call mino_xy + .stand2: + mov ebx,2 + cmp dl,cl + je .ex + ja .ok2 + dec ebx + .ok2: + call check_move + jc .ex + add eax,[dirs+ebx*4] + mov [minotaur],eax + inc esi + call delay + call drwfld + cmp esi,2 + jb .again + .ex: + ret + +mino_xy: + push eax + div byte[fx] + mov edx,eax ;minotaur: dh-x, dl-y + pop eax + ret + +move_teseus: + pusha + cdq + mov ecx,[fx] + div cl + add ax,1 shl 8+1 + test ebx,ebx + jne .no0 + cmp ah,1 + jne .move + .win: + inc [win_flag] + jmp .ex + .no0: + cmp ebx,1 + jne .no1 + cmp al,byte[fy] + je .win + jmp .move + .no1: + cmp ebx,2 + jne .no2 + cmp al,1 + je .win + jmp .move + .no2: + cmp ebx,3 + jne .move + cmp ah,byte[fx] + je .win + .move: + mov eax,[esp+28] + add eax,[dirs+ebx*4] + mov [teseus],eax + .ex: + popa + ret + +TM_drawm: + mov eax,[teseus] + call get_xy + mcall 13,[lx],[ly],0xff00 + mov eax,[minotaur] + call get_xy + mcall 13,[lx],[ly],0xff0000 + ret + +TM_level: +file 'tam.bin' + +if lang eq ru_RU + TM_help mstr \ + ' Тесей (зеленый квадрат) должен убежать из',\ + 'лабиринта. За ним гонится механический Минотавр',\ + '(красный квадрат). На каждый ход Тесей Минотавр',\ + 'делает 2 хода по такой схеме:',\ + ' Сначала он пытается приблизиться к Тесею по',\ + 'горизонтали на 1 квадрат. Если это невозможно,',\ + 'он пытается подойти по вертикали на 1 квадрат.',\ + 'Если невозможно сделать ни того, ни другого,',\ + 'Минотавр пропускает данный ход.','',\ + 'http://puzzleprograms.narod.ru' ; FIXME: Check link works +else ; Default to en_US + TM_help mstr \ + ' Theseus (the green dot) must escape from a maze.',\ + 'There is also a mechanical Minotaur (the red',\ + 'dot) in each maze. For every turn that Theseus',\ + 'takes, the Minotaur takes two turns.',\ + ' Each turn he decides following:',\ + 'First he tests if he can move horizontally and',\ + 'get closer to Theseus. If he can, he will move',\ + "one square horizontally. If he can't, he will",\ + 'test if he could move vertically and get closer',\ + 'to Theseus. If he can, he will move one square',\ + "vertically. If he can't move either horizontally",\ + 'or vertically, then he just skips that turn.','',\ + 'http://puzzleprograms.narod.ru' ; FIXME: Check link works +end if diff --git a/programs/games/megamaze/trunk/tilt.inc b/programs/games/megamaze/trunk/tilt.inc index f4c9a90b19..a9e0fd559a 100644 --- a/programs/games/megamaze/trunk/tilt.inc +++ b/programs/games/megamaze/trunk/tilt.inc @@ -1,93 +1,95 @@ -TILT_levelp: - call SMZ_levelp - mov esi,[stepptr] - movzx ecx,byte[esi] - mov [finish],ecx - inc ecx - mov edi,area - rep movsb - mov [pause_time],10 - ret - -TILT_key: - cmp eax,176 - jb .ex - cmp eax,179 - ja .ex - mov esi,area - inc esi - lea ebx,[eax-176] - mov eax,[player] - .lp: - call check_move - jc .ex1 - add eax,[dirs+ebx*4] - movzx ecx,byte[esi-1] - mov edi,esi - repne scasb - jne .notfound - mov byte[edi-1],0xff - dec dword[finish] - .notfound: - mov [player],eax - call delay - call drwfld - jmp .lp - .ex1: - cmp dword[finish],0 - jnz .ex - mov [win_flag],1 - .ex: - ret - -TILT_drawm: - mov eax,[player] - call get_xy - mcall 13,[lx],[ly],0xff00 - cmp [win_flag],1 - je .ex - mov edi,area - movzx ecx,byte[edi] - jecxz .ex - inc edi - .lp: - push ecx - movzx eax,byte[edi] - cmp eax,0xff - je .no - call get_xy - mcall 13,[lx],[ly],0xff0000 - .no: - pop ecx - inc edi - loop .lp - .ex: - ret - -TILT_level: -file 'tilt.bin' - -if lang eq ru_RU - TILT_help mstr \ - 'Плашка (зеленый квадрат) лежит на доске, которую',\ - 'можно наклонять по горизонтали и вертикали',\ - ' После наклона плашка скользит, пока не наткнется',\ - 'на стенку. Нельзя остановить плашку во середине',\ - 'пути.',\ - ' Ваша задача - заставить плашку посетить клетки',\ - 'с красными квадратами.','',\ - 'http://www.clickmazes.com' -else - TILT_help mstr \ - 'You are to imagine that a marble (shown here as a',\ - 'green square) is on a board that you can tilt',\ - 'only to the north, south, east, or west. (You',\ - "can't do anything tricky like tilt it southeast.)",\ - ' Once you tilt the board, the marble will roll',\ - '(horizontally or vertically) until it hits a',\ - "barrier. There's no way you can stop the marble",\ - 'in the middle of its roll.',\ - ' The object is to roll the marble onto or over',\ - 'every red square in the maze.','',\ - 'http://www.clickmazes.com' -end if +; Language support for locales: ru_RU (CP866), en_US. + +TILT_levelp: + call SMZ_levelp + mov esi,[stepptr] + movzx ecx,byte[esi] + mov [finish],ecx + inc ecx + mov edi,area + rep movsb + mov [pause_time],10 + ret + +TILT_key: + cmp eax,176 + jb .ex + cmp eax,179 + ja .ex + mov esi,area + inc esi + lea ebx,[eax-176] + mov eax,[player] + .lp: + call check_move + jc .ex1 + add eax,[dirs+ebx*4] + movzx ecx,byte[esi-1] + mov edi,esi + repne scasb + jne .notfound + mov byte[edi-1],0xff + dec dword[finish] + .notfound: + mov [player],eax + call delay + call drwfld + jmp .lp + .ex1: + cmp dword[finish],0 + jnz .ex + mov [win_flag],1 + .ex: + ret + +TILT_drawm: + mov eax,[player] + call get_xy + mcall 13,[lx],[ly],0xff00 + cmp [win_flag],1 + je .ex + mov edi,area + movzx ecx,byte[edi] + jecxz .ex + inc edi + .lp: + push ecx + movzx eax,byte[edi] + cmp eax,0xff + je .no + call get_xy + mcall 13,[lx],[ly],0xff0000 + .no: + pop ecx + inc edi + loop .lp + .ex: + ret + +TILT_level: +file 'tilt.bin' + +if lang eq ru_RU + TILT_help mstr \ + 'Плашка (зеленый квадрат) лежит на доске, которую',\ + 'можно наклонять по горизонтали и вертикали',\ + ' После наклона плашка скользит, пока не наткнется',\ + 'на стенку. Нельзя остановить плашку во середине',\ + 'пути.',\ + ' Ваша задача - заставить плашку посетить клетки',\ + 'с красными квадратами.','',\ + 'http://www.clickmazes.com' +else ; Default to en_US + TILT_help mstr \ + 'You are to imagine that a marble (shown here as a',\ + 'green square) is on a board that you can tilt',\ + 'only to the north, south, east, or west. (You',\ + "can't do anything tricky like tilt it southeast.)",\ + ' Once you tilt the board, the marble will roll',\ + '(horizontally or vertically) until it hits a',\ + "barrier. There's no way you can stop the marble",\ + 'in the middle of its roll.',\ + ' The object is to roll the marble onto or over',\ + 'every red square in the maze.','',\ + 'http://www.clickmazes.com' +end if diff --git a/programs/games/megamaze/trunk/tilt2.inc b/programs/games/megamaze/trunk/tilt2.inc index e7da4dbefe..4e8206b9a6 100644 --- a/programs/games/megamaze/trunk/tilt2.inc +++ b/programs/games/megamaze/trunk/tilt2.inc @@ -1,105 +1,107 @@ -; level format -; [fx|fy][blue xy][red xy][blue point xy][red point xy]..[maze walls] - -; internal format -; points db=[stepptr] -; [player]= blue -; [finish]= red -; area: ..[1-red,0-black xy].. ( -1 if empty) - -TILT2_levelp: - call get_xy_sf - mov [stepptr],esi - add esi,2 - call unpack_level - mov [pause_time],10 - ret - -TILT2_key: - cmp eax,176 - jb .ex - cmp eax,179 - ja .ex - mov esi,area - inc esi - lea ebx,[eax-176] - .lp: - xor edx,edx - mov eax,[player] - call check_move - jc .nom1 - inc edx - add eax,[dirs+ebx*4] - mov [player],eax - .nom1: - mov eax,[finish] - call check_move - jc .nom2 - inc edx - add eax,[dirs+ebx*4] - mov [finish],eax - .nom2: - test edx,edx - jz .ex1 - call delay - call drwfld - jmp .lp - .ex1: - mov eax,[finish] - cmp eax,[player] - jnz .ex2 - mov [win_flag],2 - jmp TILT2_drawm.skip - .ex2: - mov esi,[stepptr] - cmp al,[esi+1] - jne .ex - mov eax,[player] - cmp al,[esi] - jne .ex - mov [win_flag],1 - .ex: - ret - -TILT2_drawm: - cmp [win_flag],2 - je .skip -; mov [sq_size],3 - mov eax,[player] - call get_xy - mcall 13,[lx],[ly],0xff - mov eax,[finish] - call get_xy - mcall 13,[lx],[ly],0xff0000 - .skip: - shl [sq_size],1 - mov esi,[stepptr] - lodsb - call get_xy - mcall 13,[lx],[ly],0xff - lodsb - call get_xy - shr [sq_size],1 - mcall 13,[lx],[ly],0xff0000 - ret - -TILT2_level: -file 'tilt2.bin' - -if lang eq ru_RU - TILT2_help mstr \ - 'Красный и синий блоки должны достичь клеток',\ - 'соответствующего цвета. Внимание! Блоки сделаны',\ - 'из агрессивного материала, и при столкновении',\ - 'мгновенно испаряются. В этом случае Вам придется',\ - 'начать уровень сначала.','',\ - 'http://www.clickmazes.com' -else - TILT2_help mstr \ - 'The red block must reach the red target and the',\ - 'blue block the blue target. Beware! The two',\ - 'blocks are made of highly reactive material and,',\ - 'if they collide, will instantly evaporate. At',\ - 'this point you must start all over again.','',\ - 'http://www.clickmazes.com' -end if +; Language support for locales: ru_RU (CP866), en_US. + +; level format +; [fx|fy][blue xy][red xy][blue point xy][red point xy]..[maze walls] + +; internal format +; points db=[stepptr] +; [player]= blue +; [finish]= red +; area: ..[1-red,0-black xy].. ( -1 if empty) + +TILT2_levelp: + call get_xy_sf + mov [stepptr],esi + add esi,2 + call unpack_level + mov [pause_time],10 + ret + +TILT2_key: + cmp eax,176 + jb .ex + cmp eax,179 + ja .ex + mov esi,area + inc esi + lea ebx,[eax-176] + .lp: + xor edx,edx + mov eax,[player] + call check_move + jc .nom1 + inc edx + add eax,[dirs+ebx*4] + mov [player],eax + .nom1: + mov eax,[finish] + call check_move + jc .nom2 + inc edx + add eax,[dirs+ebx*4] + mov [finish],eax + .nom2: + test edx,edx + jz .ex1 + call delay + call drwfld + jmp .lp + .ex1: + mov eax,[finish] + cmp eax,[player] + jnz .ex2 + mov [win_flag],2 + jmp TILT2_drawm.skip + .ex2: + mov esi,[stepptr] + cmp al,[esi+1] + jne .ex + mov eax,[player] + cmp al,[esi] + jne .ex + mov [win_flag],1 + .ex: + ret + +TILT2_drawm: + cmp [win_flag],2 + je .skip +; mov [sq_size],3 + mov eax,[player] + call get_xy + mcall 13,[lx],[ly],0xff + mov eax,[finish] + call get_xy + mcall 13,[lx],[ly],0xff0000 + .skip: + shl [sq_size],1 + mov esi,[stepptr] + lodsb + call get_xy + mcall 13,[lx],[ly],0xff + lodsb + call get_xy + shr [sq_size],1 + mcall 13,[lx],[ly],0xff0000 + ret + +TILT2_level: +file 'tilt2.bin' + +if lang eq ru_RU + TILT2_help mstr \ + 'Красный и синий блоки должны достичь клеток',\ + 'соответствующего цвета. Внимание! Блоки сделаны',\ + 'из агрессивного материала, и при столкновении',\ + 'мгновенно испаряются. В этом случае Вам придется',\ + 'начать уровень сначала.','',\ + 'http://www.clickmazes.com' +else ; Default to en_US + TILT2_help mstr \ + 'The red block must reach the red target and the',\ + 'blue block the blue target. Beware! The two',\ + 'blocks are made of highly reactive material and,',\ + 'if they collide, will instantly evaporate. At',\ + 'this point you must start all over again.','',\ + 'http://www.clickmazes.com' +end if diff --git a/programs/games/megamaze/trunk/wriggle.inc b/programs/games/megamaze/trunk/wriggle.inc index 12a6b73da5..aa5ed1ad48 100644 --- a/programs/games/megamaze/trunk/wriggle.inc +++ b/programs/games/megamaze/trunk/wriggle.inc @@ -241,7 +241,7 @@ if lang eq ru_RU 'Червяки не могут перекрывать и пересекать друг',\ 'друга.','',\ 'http://www.clickmazes.com' -else +else ; Default to en_US WG_help mstr \ 'Your aim is to drag the wriggley worms by head or',\ 'tail until each worm covers the squares of its',\ diff --git a/programs/games/pipes/pipes.asm b/programs/games/pipes/pipes.asm index 275731e88a..f7684a3e2f 100644 --- a/programs/games/pipes/pipes.asm +++ b/programs/games/pipes/pipes.asm @@ -1,609 +1,612 @@ -; -; pipes kolibri -; v1.42 -; 2006 by Mario Birkner -; -; l.mod. 29.01.19 -; -; Compile with FASM -; -format binary as "" - -bgcolor equ 0x0074744A ;thx -fgcolor equ 0x00E7C750 ;to -fg2color equ 0x00E0B0A0 ;colorref -fg3color equ 0x007F7F55 -btcolor equ 0x005B6200 - -include '..\..\macros.inc' -include 'lang.inc' - -use32 - - org 0x0 - - db 'MENUET01' ; 8 byte id - dd 0x01 ; header version - dd START ; start of code - dd I_END ; size of image - dd 0x100000 ; memory for app - dd 0x7fff0 ; esp - dd 0x0 , 0x0 ; I_Param , I_Icon - -START: ; start of execution - jmp red - -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 - jmp still - - red: ; redraw - call draw_window - call draw_board - call draw_message - jmp still - - key: ; key - mcall 2 ; just read it and ignore - jmp still - button: ; button - call get_input - jmp still - - - -get_input: -pusha - mcall 17 ; get id - - cmp ah,1 ; button id=1 ? - jne .noclose - mcall -1 ; close this program - .noclose: - cmp ah,4 - jne .moderate - mov [diffic],1 - jmp .enddiffic - .moderate: - cmp ah,3 - jne .easy - mov [diffic],3 - jmp .enddiffic - .easy: - cmp ah,2 - jne .board - mov [diffic],5 - .enddiffic: - mov [score],0 - mov [speed],40 - mov [level],1 - mov [stat],0 - mov [time],0 - call draw_window - call scramble_board - call draw_board - call countdown - call wassermarsch - jmp .getno - .board: - cmp [stat],2 - jge .getno - shr eax,8 ; -> 24bit id - cmp eax,10 - jle .getno - cmp eax,150 - jg .getno - sub eax,10 - mov edi,eax - add edi,map - cmp [edi], byte 1 - jg .nogerade - xor byte [edi], 1 - call draw_board - jmp .getno - .nogerade: - cmp [edi], byte 6 - jge .getno - cmp [edi], byte 5 - jne .rota - sub byte [edi],4 - .rota: - inc byte [edi] - call draw_board - .getno: -popa -ret -;//// end of event detection -get_direction: ;Setzt Richtungs-Konstanten -pusha ;IN: -mov eax,[esp+28] ;eax - Richtung IN -mov ebx,[esp+16] ;ebx - Teilchen (Map-Wert) -cmp ebx,0 ;OUT: -jne .no0 ;eax - Richtung OUT - cmp eax,14 - jne .o0 - jmp .setout - .o0: - cmp eax,-14 - jne .col - jmp .setout -.no0: -cmp ebx,1 -jne .no1 - cmp eax,1 - jne .o1 - jmp .setout - .o1: - cmp eax,-1 - jne .col - jmp .setout -.no1: -cmp ebx,2 -jne .no2 - cmp eax,14 - jne .o2 - sub eax,13 - jmp .setout - .o2: - cmp eax,-1 - jne .col - sub eax,13 - jmp .setout -.no2: -cmp ebx,3 -jne .no3 - cmp eax,-14 - jne .o3 - add eax,15 - jmp .setout - .o3: - cmp eax,-1 - jne .col - add eax,15 - jmp .setout -.no3: -cmp ebx,4 -jne .no4 - cmp eax,-14 - jne .o4 - add eax,13 - jmp .setout - .o4: - cmp eax,1 - jne .col - add eax,13 - jmp .setout -.no4: -cmp ebx,5 -jne .no5 - cmp eax,14 - jne .o5 - sub eax,15 - jmp .setout - .o5: - cmp eax,1 - jne .col - sub eax,15 - jmp .setout -.no5: -cmp ebx,6 -jne .no6 - jmp .setout -.no6: -cmp ebx,7 -jne .no7 - mov eax,14 - jmp .setout -.no7: -cmp ebx,8 -jne .no8 - cmp eax,14 - jne .col - mov [stat],1 - jmp .setout -.no8: -cmp ebx,16 ; cross 2x -jne .col - add [score],10 ; + 10 bonus points - jmp .setout -.col: -xor eax,eax -.setout: -xor ebx,ebx -mov [esp+28],eax -mov [esp+16],ebx -popa -ret - -countdown: -pusha -xor eax,eax -mov al,[diffic] -imul eax,10 -mov [time],eax -.udown: -call show_score -mov ecx,10 -.down: -mov eax,5 -mov ebx,10 -mcall -mov eax,11 -mcall -cmp eax,1 -jne .nored -call draw_window -call draw_board -jmp .nothing -.nored: -cmp eax,3 -jne .nothing -call get_input -.nothing: -cmp [stat],0 ;bugfix 210806 -jnz .exitsub ;bugfix 210806 -dec ecx -jnz .down -dec [time] -jnz .udown -.exitsub: ;bugfix 210806 -popa -ret - -wassermarsch: -pusha - .restart: - mov esi,map+16 ;start position - mov eax, 14 ;start-richtung - .findway: - movzx ebx, byte [esi] - call get_direction - test eax,eax - jz .collision - push eax - xor eax,eax - mov al,6 - sub al,[diffic] - add [score],eax ;points/item = 6 - difficulty - mov ecx,dword [speed] - add byte [esi],10 - .down: - mcall 5, 2 - mcall 11 - cmp eax,1 - jne .nored - call draw_window - .nored: - cmp eax,3 - jne .noevnt - call get_input - .noevnt: - dec ecx - jnz .down - pop eax - - add esi,eax - call draw_board - call show_score - jmp .findway - .collision: - cmp [stat],1 - jne .loose - call draw_message - mcall 5, 500 - mov [stat],0 - inc [level] - cmp [speed],6 ;waterflowdelay < 6 ? - jle .skipsub - sub [speed],2 - .skipsub: - call draw_window - call scramble_board - call draw_board - call countdown - jmp .restart - .loose: - mov [stat],2 - call draw_message -popa -ret - -show_score: -pusha -mov esi,fg2color -mov edi,bgcolor -or esi,0x50000000 -mcall 47, 0x20000, [time], <60,395> -mov ebx,0x50000 -mov ecx,[score] -if lang eq et_EE -add edx,88 shl 16 -else -add edx,80 shl 16 -end if -mcall -mov ebx,0x20000 -mov ecx,[level] -add edx,104 shl 16 -mcall - -popa -ret - - - -scramble_board: -pusha -mov edi,map+16 ;startpunkt -mov eax,7 ;wieder- -stosb ;herstellen - -mov ebx, 0x00000007 ;modul m max-wert -.loop_through: -mov esi,edi -lodsb -cmp eax, 9 - je .skip -inc eax -xor edx, edx -div ebx ;modulo -> edx -mov eax, edx -cmp eax,6 -jne .skip -dec [half] -movzx eax, byte [half] -jnz .skip -mov [half], byte 7 -.skip: -stosb -cmp edi,map+125 ;endpunkt erhalten -jge .exit -jmp .loop_through -.exit: -mov eax,8 -stosb -popa -ret - - -gen_image: -pusha - xor ebx,ebx ;default: kein wasser - movzx eax,byte [map] ;erstes byte der map lesen (position) - inc byte [map] ;position inkrementieren - add eax,map ;zur position die map-adresse addieren - movzx esi,byte [eax] - cmp esi,10 - jl .nowater - sub esi,10 ;map-werte+10 sind mit wasser gefuellt - mov ebx,1 - cmp esi,16 - jne .nowater - sub esi,10 - .nowater: - imul esi,3072 ;mapwert * 32*32*3 = image-adresse - add esi,images - mov edi,0x10000 - mov ecx,32*32*3 - .gendd: ;RGB-Image im Speicher generieren - mov eax,dword [esi] ;byte aus imagemap lesen - shl eax,8 - shr eax,8 - cmp ebx,0 - jz .nowcolor - mov ebx,eax - cmp ebx,0x00B0B4B0 - jne .nog1 - jmp .wcolor - .nog1: - cmp ebx,0x00A0A4A0 - jne .nog2 - jmp .wcolor - .nog2: - cmp ebx,0x00909490 - jne .nog3 - jmp .wcolor - .nog3: - cmp ebx,0x00808480 - jne .nog4 - jmp .wcolor - .nog4: - cmp ebx,0x00707470 - jne .nowcolor - jmp .wcolor - .wcolor: - add eax,0x40 - .nowcolor: - add esi,3 - stosd - dec edi - loop .gendd -popa -ret - - - -; ********************************************* -; ******* WINDOW DEFINITIONS AND DRAW ******** -; ********************************************* -draw_message: -pusha - cmp [stat],0 - je .nomessage - mcall 13,<146,200>,<190,40>,0 - add ebx,2 shl 16 - 4 - add ecx,2 shl 16 - 4 - mov edx,fgcolor - mcall - - cmp [stat],3 - jne .stat1 - - mov ecx,btcolor - or ecx,0xB0000000 - mcall 4, <159,202>,,lbl_new_game - jmp .nomessage - - .stat1: - cmp [stat],1 - je .winmessage - mov ecx,btcolor OR 0xB0000000 - mcall 4, <170,196>, , lbl_gameover - add ebx,8 shl 16 +17 - mov edx,lbl_yscore - mcall - mov esi,ecx ;color - mov edx,ebx ;pos - add edx,90 shl 16 - mov ebx,0x50000 ;type - mov ecx,[score] ;inp - mov eax,47 - mcall - jmp .nomessage - .winmessage: - mov ecx,btcolor - or ecx,0xB0000000 - mcall 4, <124,194>, , lbl_win - add ebx,17 - add edx,lbl_win2-lbl_win - mcall - .nomessage: -popa -ret - -draw_board: -pusha - mov ebx,15*65536+32 - mov ecx,50*65536+32 - mov edx,15*65536+50 ;Spielfeldposition - mov esi,10 ;Spielfeldgroesse Y - .vloop: - mov edi,14 ;Spielfeldgroesse X - .hloop: - call gen_image - push edx - mov eax,8 - movsx edx, byte [map] - add edx,9 ;button-id = map-pos + 10;gen_image inkrements - add edx,0x80000000 ;first delete previous button - mcall - sub edx,0x30000000 ;first delete previous button - mcall - pop edx - push ebx - push ecx - mcall 7, 0x10000, <32,32> - pop ecx - pop ebx - add edx,33 shl 16 - add ebx,33 shl 16 - dec edi - jnz .hloop - sub edx,14*(33 shl 16) ;Spielfeldgroesse X - sub ebx,14*(33 shl 16) - add edx,33 - add ecx,33 shl 16 - dec esi - jnz .vloop - mov [map], byte 1 ;Map-Position zuruecksetzen -popa -ret - - -draw_window: -pusha - - mcall 12,1 - - mov edx,bgcolor - or edx,0x14000000 - mcall 0,<100,492>,<100,422>,,,lbl_title - - mcall 8,<100,72>,<28,16>,2,btcolor - add ebx,80 shl 16 - inc edx - mcall - add ebx,80 shl 16 - inc edx - mcall - - mov eax,4 - mov ebx,20 shl 16 +29 - mov ecx,fgcolor - or ecx,0xB0000000 - mov edx,lbl_toolbar - mcall - or ecx,0x00000000 - mov ebx,18 shl 16 +395 - mov edx,lbl_score - mcall - mov ebx,360 shl 16 +405 - mov ecx,fg3color - mov edx,lbl_copy - mcall - - mcall 12,2 - - popa - ret - -;================================================= -; DATA - LABELS -;================================================= -if lang eq et_EE -lbl_title db 'Torud',0 -lbl_gameover db 'M ├д n g L ├д b i !',0 -lbl_new_game db 'Alusta enne uut m├дngu',0 -lbl_win db ' T u b l i ! ',0 -lbl_win2 db ' L├дhme edasi! ',0 -lbl_yscore db 'Sinu tulemus:',0 -lbl_toolbar db 'Uus m├дng: Lihtne Keskmine Raske',0 -lbl_score db ' Aeg: Tulemus: Tase:',0 -else -lbl_title db 'Pipes',0 -lbl_gameover db 'G a m e O v e r !',0 -lbl_new_game db 'Start a new game first',0 -lbl_win db ' G r e a t ! ',0 -lbl_win2 db " Let's keep going! ",0 -lbl_yscore db 'Your Score:',0 -lbl_toolbar db 'New Game: Easy Normal Hard',0 -lbl_score db 'Time: Score: Level:',0 -end if - -lbl_copy db '2006, Mario Birkner',0 - -;================================================= -; DATA - VARS -;================================================= -stat db 3 ;0=gameplay 1=won 2-lost 3=stopped -speed db 0 -time dd 0 -diffic db 0 ;1=hard 3=moderate 5=easy 8=dedicated to Wildwest - try it out! -score dd 0 -level dd 1 -half db 1 ;reduces the random-crosses - -;================================================= -; DATA - RES -;================================================= -map: ;14*10 blocks + position - db 1 ;<- act. position - db 9,9,9,9,9,9,9,9,9,9,9,9,9,9 - db 9,7,1,3,2,0,1,1,0,3,4,4,3,9 - db 9,5,0,2,2,1,3,0,3,1,1,6,4,9 - db 9,4,0,4,6,0,3,3,2,6,0,1,2,9 - db 9,3,0,1,2,4,6,4,5,1,2,4,1,9 - db 9,5,3,2,6,3,2,1,2,1,2,6,0,9 - db 9,4,0,2,3,0,4,1,2,3,2,3,4,9 - db 9,2,0,4,5,6,3,1,3,0,4,1,0,9 - db 9,1,0,3,5,4,2,2,4,1,6,0,8,9 - db 9,9,9,9,9,9,9,9,9,9,9,9,9,9 -images: -file 'pipes.raw' -I_END: +; +; pipes kolibri +; v1.42 +; 2006 by Mario Birkner +; +; l.mod. 29.01.19 +; +; Compile with FASM +; +format binary as "" + +bgcolor equ 0x0074744A ;thx +fgcolor equ 0x00E7C750 ;to +fg2color equ 0x00E0B0A0 ;colorref +fg3color equ 0x007F7F55 +btcolor equ 0x005B6200 + +include '..\..\macros.inc' +include 'lang.inc' ; Language support for locales: et_EE, en_US. + +use32 + + org 0x0 + + db 'MENUET01' ; 8 byte id + dd 0x01 ; header version + dd START ; start of code + dd I_END ; size of image + dd 0x100000 ; memory for app + dd 0x7fff0 ; esp + dd 0x0 , 0x0 ; I_Param , I_Icon + +START: ; start of execution + jmp red + +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 + jmp still + + red: ; redraw + call draw_window + call draw_board + call draw_message + jmp still + + key: ; key + mcall 2 ; just read it and ignore + jmp still + button: ; button + call get_input + jmp still + + + +get_input: +pusha + mcall 17 ; get id + + cmp ah,1 ; button id=1 ? + jne .noclose + mcall -1 ; close this program + .noclose: + cmp ah,4 + jne .moderate + mov [diffic],1 + jmp .enddiffic + .moderate: + cmp ah,3 + jne .easy + mov [diffic],3 + jmp .enddiffic + .easy: + cmp ah,2 + jne .board + mov [diffic],5 + .enddiffic: + mov [score],0 + mov [speed],40 + mov [level],1 + mov [stat],0 + mov [time],0 + call draw_window + call scramble_board + call draw_board + call countdown + call wassermarsch + jmp .getno + .board: + cmp [stat],2 + jge .getno + shr eax,8 ; -> 24bit id + cmp eax,10 + jle .getno + cmp eax,150 + jg .getno + sub eax,10 + mov edi,eax + add edi,map + cmp [edi], byte 1 + jg .nogerade + xor byte [edi], 1 + call draw_board + jmp .getno + .nogerade: + cmp [edi], byte 6 + jge .getno + cmp [edi], byte 5 + jne .rota + sub byte [edi],4 + .rota: + inc byte [edi] + call draw_board + .getno: +popa +ret +;//// end of event detection +get_direction: ;Setzt Richtungs-Konstanten +pusha ;IN: +mov eax,[esp+28] ;eax - Richtung IN +mov ebx,[esp+16] ;ebx - Teilchen (Map-Wert) +cmp ebx,0 ;OUT: +jne .no0 ;eax - Richtung OUT + cmp eax,14 + jne .o0 + jmp .setout + .o0: + cmp eax,-14 + jne .col + jmp .setout +.no0: +cmp ebx,1 +jne .no1 + cmp eax,1 + jne .o1 + jmp .setout + .o1: + cmp eax,-1 + jne .col + jmp .setout +.no1: +cmp ebx,2 +jne .no2 + cmp eax,14 + jne .o2 + sub eax,13 + jmp .setout + .o2: + cmp eax,-1 + jne .col + sub eax,13 + jmp .setout +.no2: +cmp ebx,3 +jne .no3 + cmp eax,-14 + jne .o3 + add eax,15 + jmp .setout + .o3: + cmp eax,-1 + jne .col + add eax,15 + jmp .setout +.no3: +cmp ebx,4 +jne .no4 + cmp eax,-14 + jne .o4 + add eax,13 + jmp .setout + .o4: + cmp eax,1 + jne .col + add eax,13 + jmp .setout +.no4: +cmp ebx,5 +jne .no5 + cmp eax,14 + jne .o5 + sub eax,15 + jmp .setout + .o5: + cmp eax,1 + jne .col + sub eax,15 + jmp .setout +.no5: +cmp ebx,6 +jne .no6 + jmp .setout +.no6: +cmp ebx,7 +jne .no7 + mov eax,14 + jmp .setout +.no7: +cmp ebx,8 +jne .no8 + cmp eax,14 + jne .col + mov [stat],1 + jmp .setout +.no8: +cmp ebx,16 ; cross 2x +jne .col + add [score],10 ; + 10 bonus points + jmp .setout +.col: +xor eax,eax +.setout: +xor ebx,ebx +mov [esp+28],eax +mov [esp+16],ebx +popa +ret + +countdown: +pusha +xor eax,eax +mov al,[diffic] +imul eax,10 +mov [time],eax +.udown: +call show_score +mov ecx,10 +.down: +mov eax,5 +mov ebx,10 +mcall +mov eax,11 +mcall +cmp eax,1 +jne .nored +call draw_window +call draw_board +jmp .nothing +.nored: +cmp eax,3 +jne .nothing +call get_input +.nothing: +cmp [stat],0 ;bugfix 210806 +jnz .exitsub ;bugfix 210806 +dec ecx +jnz .down +dec [time] +jnz .udown +.exitsub: ;bugfix 210806 +popa +ret + +wassermarsch: +pusha + .restart: + mov esi,map+16 ;start position + mov eax, 14 ;start-richtung + .findway: + movzx ebx, byte [esi] + call get_direction + test eax,eax + jz .collision + push eax + xor eax,eax + mov al,6 + sub al,[diffic] + add [score],eax ;points/item = 6 - difficulty + mov ecx,dword [speed] + add byte [esi],10 + .down: + mcall 5, 2 + mcall 11 + cmp eax,1 + jne .nored + call draw_window + .nored: + cmp eax,3 + jne .noevnt + call get_input + .noevnt: + dec ecx + jnz .down + pop eax + + add esi,eax + call draw_board + call show_score + jmp .findway + .collision: + cmp [stat],1 + jne .loose + call draw_message + mcall 5, 500 + mov [stat],0 + inc [level] + cmp [speed],6 ;waterflowdelay < 6 ? + jle .skipsub + sub [speed],2 + .skipsub: + call draw_window + call scramble_board + call draw_board + call countdown + jmp .restart + .loose: + mov [stat],2 + call draw_message +popa +ret + +show_score: +pusha +mov esi,fg2color +mov edi,bgcolor +or esi,0x50000000 +mcall 47, 0x20000, [time], <60,395> +mov ebx,0x50000 +mov ecx,[score] + +if lang eq et_EE +add edx,88 shl 16 +else ; Default to en_US +add edx,80 shl 16 +end if + +mcall +mov ebx,0x20000 +mov ecx,[level] +add edx,104 shl 16 +mcall + +popa +ret + + + +scramble_board: +pusha +mov edi,map+16 ;startpunkt +mov eax,7 ;wieder- +stosb ;herstellen + +mov ebx, 0x00000007 ;modul m max-wert +.loop_through: +mov esi,edi +lodsb +cmp eax, 9 + je .skip +inc eax +xor edx, edx +div ebx ;modulo -> edx +mov eax, edx +cmp eax,6 +jne .skip +dec [half] +movzx eax, byte [half] +jnz .skip +mov [half], byte 7 +.skip: +stosb +cmp edi,map+125 ;endpunkt erhalten +jge .exit +jmp .loop_through +.exit: +mov eax,8 +stosb +popa +ret + + +gen_image: +pusha + xor ebx,ebx ;default: kein wasser + movzx eax,byte [map] ;erstes byte der map lesen (position) + inc byte [map] ;position inkrementieren + add eax,map ;zur position die map-adresse addieren + movzx esi,byte [eax] + cmp esi,10 + jl .nowater + sub esi,10 ;map-werte+10 sind mit wasser gefuellt + mov ebx,1 + cmp esi,16 + jne .nowater + sub esi,10 + .nowater: + imul esi,3072 ;mapwert * 32*32*3 = image-adresse + add esi,images + mov edi,0x10000 + mov ecx,32*32*3 + .gendd: ;RGB-Image im Speicher generieren + mov eax,dword [esi] ;byte aus imagemap lesen + shl eax,8 + shr eax,8 + cmp ebx,0 + jz .nowcolor + mov ebx,eax + cmp ebx,0x00B0B4B0 + jne .nog1 + jmp .wcolor + .nog1: + cmp ebx,0x00A0A4A0 + jne .nog2 + jmp .wcolor + .nog2: + cmp ebx,0x00909490 + jne .nog3 + jmp .wcolor + .nog3: + cmp ebx,0x00808480 + jne .nog4 + jmp .wcolor + .nog4: + cmp ebx,0x00707470 + jne .nowcolor + jmp .wcolor + .wcolor: + add eax,0x40 + .nowcolor: + add esi,3 + stosd + dec edi + loop .gendd +popa +ret + + + +; ********************************************* +; ******* WINDOW DEFINITIONS AND DRAW ******** +; ********************************************* +draw_message: +pusha + cmp [stat],0 + je .nomessage + mcall 13,<146,200>,<190,40>,0 + add ebx,2 shl 16 - 4 + add ecx,2 shl 16 - 4 + mov edx,fgcolor + mcall + + cmp [stat],3 + jne .stat1 + + mov ecx,btcolor + or ecx,0xB0000000 + mcall 4, <159,202>,,lbl_new_game + jmp .nomessage + + .stat1: + cmp [stat],1 + je .winmessage + mov ecx,btcolor OR 0xB0000000 + mcall 4, <170,196>, , lbl_gameover + add ebx,8 shl 16 +17 + mov edx,lbl_yscore + mcall + mov esi,ecx ;color + mov edx,ebx ;pos + add edx,90 shl 16 + mov ebx,0x50000 ;type + mov ecx,[score] ;inp + mov eax,47 + mcall + jmp .nomessage + .winmessage: + mov ecx,btcolor + or ecx,0xB0000000 + mcall 4, <124,194>, , lbl_win + add ebx,17 + add edx,lbl_win2-lbl_win + mcall + .nomessage: +popa +ret + +draw_board: +pusha + mov ebx,15*65536+32 + mov ecx,50*65536+32 + mov edx,15*65536+50 ;Spielfeldposition + mov esi,10 ;Spielfeldgroesse Y + .vloop: + mov edi,14 ;Spielfeldgroesse X + .hloop: + call gen_image + push edx + mov eax,8 + movsx edx, byte [map] + add edx,9 ;button-id = map-pos + 10;gen_image inkrements + add edx,0x80000000 ;first delete previous button + mcall + sub edx,0x30000000 ;first delete previous button + mcall + pop edx + push ebx + push ecx + mcall 7, 0x10000, <32,32> + pop ecx + pop ebx + add edx,33 shl 16 + add ebx,33 shl 16 + dec edi + jnz .hloop + sub edx,14*(33 shl 16) ;Spielfeldgroesse X + sub ebx,14*(33 shl 16) + add edx,33 + add ecx,33 shl 16 + dec esi + jnz .vloop + mov [map], byte 1 ;Map-Position zuruecksetzen +popa +ret + + +draw_window: +pusha + + mcall 12,1 + + mov edx,bgcolor + or edx,0x14000000 + mcall 0,<100,492>,<100,422>,,,lbl_title + + mcall 8,<100,72>,<28,16>,2,btcolor + add ebx,80 shl 16 + inc edx + mcall + add ebx,80 shl 16 + inc edx + mcall + + mov eax,4 + mov ebx,20 shl 16 +29 + mov ecx,fgcolor + or ecx,0xB0000000 + mov edx,lbl_toolbar + mcall + or ecx,0x00000000 + mov ebx,18 shl 16 +395 + mov edx,lbl_score + mcall + mov ebx,360 shl 16 +405 + mov ecx,fg3color + mov edx,lbl_copy + mcall + + mcall 12,2 + + popa + ret + +;================================================= +; DATA - LABELS +;================================================= +if lang eq et_EE +lbl_title db 'Torud',0 +lbl_gameover db 'M ├д n g L ├д b i !',0 +lbl_new_game db 'Alusta enne uut m├дngu',0 +lbl_win db ' T u b l i ! ',0 +lbl_win2 db ' L├дhme edasi! ',0 +lbl_yscore db 'Sinu tulemus:',0 +lbl_toolbar db 'Uus m├дng: Lihtne Keskmine Raske',0 +lbl_score db ' Aeg: Tulemus: Tase:',0 + +else ; Default to en_US +lbl_title db 'Pipes',0 +lbl_gameover db 'G a m e O v e r !',0 +lbl_new_game db 'Start a new game first',0 +lbl_win db ' G r e a t ! ',0 +lbl_win2 db " Let's keep going! ",0 +lbl_yscore db 'Your Score:',0 +lbl_toolbar db 'New Game: Easy Normal Hard',0 +lbl_score db 'Time: Score: Level:',0 +end if + +lbl_copy db '2006, Mario Birkner',0 + +;================================================= +; DATA - VARS +;================================================= +stat db 3 ;0=gameplay 1=won 2-lost 3=stopped +speed db 0 +time dd 0 +diffic db 0 ;1=hard 3=moderate 5=easy 8=dedicated to Wildwest - try it out! +score dd 0 +level dd 1 +half db 1 ;reduces the random-crosses + +;================================================= +; DATA - RES +;================================================= +map: ;14*10 blocks + position + db 1 ;<- act. position + db 9,9,9,9,9,9,9,9,9,9,9,9,9,9 + db 9,7,1,3,2,0,1,1,0,3,4,4,3,9 + db 9,5,0,2,2,1,3,0,3,1,1,6,4,9 + db 9,4,0,4,6,0,3,3,2,6,0,1,2,9 + db 9,3,0,1,2,4,6,4,5,1,2,4,1,9 + db 9,5,3,2,6,3,2,1,2,1,2,6,0,9 + db 9,4,0,2,3,0,4,1,2,3,2,3,4,9 + db 9,2,0,4,5,6,3,1,3,0,4,1,0,9 + db 9,1,0,3,5,4,2,2,4,1,6,0,8,9 + db 9,9,9,9,9,9,9,9,9,9,9,9,9,9 +images: +file 'pipes.raw' +I_END: diff --git a/programs/games/pong/trunk/pong.asm b/programs/games/pong/trunk/pong.asm index e931af9ecc..e221633267 100644 --- a/programs/games/pong/trunk/pong.asm +++ b/programs/games/pong/trunk/pong.asm @@ -456,10 +456,10 @@ is_dn1 dd 0x0 ; | is_up2 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 include "russian.inc" -else +else ; Default to en_US include "english.inc" end if diff --git a/programs/games/soko/trunk/SOKO.ASM b/programs/games/soko/trunk/SOKO.ASM index df14a18f7f..3bba5842cb 100644 --- a/programs/games/soko/trunk/SOKO.ASM +++ b/programs/games/soko/trunk/SOKO.ASM @@ -1,1144 +1,1144 @@ -; SOKOBAN FOR MENUET v0.1 -; Written in pure assembler by Ivushkin Andrey aka Willow -; -; Last changed: July 2, 2004 -; -; Main idea, art & graphics -; Sokofun for Windows 95 by Games 4 Brains -; and Sokoban 2.3 by BjЎrn Kфllmark -; -; Level designers: -; -; Alberto Garcia, Aymeric du Peloux, Brian Kent, David Holland, -; David W Skinner, Erim Sever, Evgeniy Grigoriev, Franчois Marques, -; Frantisek Pokorny, Howard Abed,J franklin Mentzer, Jaques Duthen, -; John C Davis, John Polhemus, Kobus Theron, Lee Haywood, Mario Bonenfant, -; Martin P Holland, Mic (Jan Reineke), Phil Shapiro, Richard Weston, -; Sven Egevad, Ken'ichiro Takahashi (takaken), Thinking Rabbit, -; Yoshio Murase, ZICO (Zbigniew Kornas) -; -; Special thanks to Hirohiko Nakamiya -; -; More credits: -; Masato Hiramatsu, Kazuo Fukushima, Klaus Clemens -; -; Game uses its own format of levelset files *.LEV -; with simple run-length compression - -; COMPILE WITH FASM - -format binary as "" - -include 'macros.inc' ; decrease code size (optional) -include 'CELLTYPE.INC' ; object identifiers -;include 'debug.inc' - -SKIN_SIZE = 11520 ; size of skin file (16x240) - -; field dimensions -FLD_LEFT = 43 -FLD_LEFT2 = FLD_LEFT shl 16 -FLD_TOP = 40 -FLD_TOP2 = FLD_TOP shl 16 -IMG_SIZE = 16 shl 16+16 -SHIFT = (16 shl 16) -WND_COLOR = 0x00aabbcc - -; level list dimensions -LEVLIST_XY = FLD_TOP shl 16+45 -LEVLIST_SPACING = 10 -LEVWND_X = 320 -LEVWND_Y = 200 - -; input line dimensions -INP_X = 10 shl 16+300 -INP_Y = 160 shl 16+16 -INP_XY = 15 shl 16+164 - -; load button dimensions -LOAD_X = 130 shl 16+65 -LOAD_Y = 180 shl 16+14 -LOAD_XY = 135 shl 16+184 -CHOOSE_XY = 40 shl 16+148 - - -WIN_XY = 135 shl 16+25 - -; workmode constants, more defs in CELLTYPE.INC -WM_WINNER = 0x10 -WM_READSET = 0 -WM_LOSE = 0x20 - -use32 - org 0x0 - db 'MENUET01' - dd 0x01 - dd START - dd I_END - dd 0x100000 - dd 0x7fff0 - dd 0x0 - dd 0x0 - -START: - mov eax,70 ; load skin image-it is in RAW 16x240 BGR - mov ebx,file_info ; IrfanView recommended - int 0x40 - test ebx,ebx -; jmp load_level -; jz close - load_fail: ; clear input line, also if levelset load failed - mov [inp_pos],0 - load_std: - mov esi,stdlev - mov edi,file_name - mov ecx,stdlev_len-stdlev - rep movsb - mov ecx,10 - reset_fi: - mov dword[cnf_level],level_start - xor eax,eax - mov [levpage],eax - mov word[ll_num],'00' ; reset some counters - read_cnf: - mov eax,70 - mov ebx,file_info - int 0x40 - test ebx,ebx ; load standard levels SOKO-?.LEV instead of custom - jz nxt_cnf - add dword[cnf_level],ebx - nxt_cnf: - test ecx,ecx ; this check is for loading a custom levelset - jz no_increase - inc byte[file_num] ; next standard levelset - loop read_cnf - no_increase: - cmp dword[cnf_level],level_start - jne go_on - test ecx,ecx - jz load_fail - jmp close ; missing standard levels & exiting - go_on: - mov eax,[cnf_level] - mov byte[eax],0xf0 ; end-of-levels mark - - call read_levelset - backto_set: - mov byte[workmode],WM_READSET - mov byte[winmode],0 - jmp red -restart_level: - call decode_field ; uncompress level - -red: - call draw_window - -still: - - mov eax,10 - int 0x40 - cmp byte[winmode],WM_WINNER - je backto_set - cmp byte[winmode],WM_LOSE - je backto_set - cmp eax,1 - je red - cmp eax,2 - je key - cmp eax,3 - je button - - jmp still - - key: - mov eax,2 - int 0x40 - - cmp byte[workmode],WM_READSET - jne key_move - cmp ah,32 ; Space moves focus to input line - je is_input - cmp ah,184 - jne no_prev - cmp [levpage],0 ; PgUp - jz still - sub [levpage],10 - cmp byte[ll_num+1],'0' - jnz _pu - dec byte[ll_num] - mov byte[ll_num+1],'9'+1 - _pu: - dec byte[ll_num+1] - jmp red - no_prev: - cmp ah,183 ; PgDn - jne no_next - mov eax,[levpage] - add eax,10 - cmp eax,[levelcount] - jae still - mov [levpage],eax - cmp byte[ll_num+1],'9' - jnz _pd - inc byte[ll_num] - mov byte[ll_num+1],'0'-1 - _pd: - inc byte[ll_num+1] - jmp red - no_next: - sub ah,48 - cmp ah,9 - ja still - movzx eax,ah ; user selects a level - add eax,[levpage] - cmp eax,[levelcount] - jae still - mov eax,[levelmap+eax*4] - mov [levptr],eax ; current level pointer - mov al,byte[eax] - mov byte[workmode],al - jmp restart_level - - ; we're already in game - key_move: - cmp ah,180 ; Home - je backto_set - cmp ah,176 - jb no_arrows - sub ah,176 - cmp ah,3 - ja no_arrows - movzx ecx,ah - movzx edx,[player] - inc ch - call valid_move - cmp byte[winmode],WM_WINNER - jne no_winner - mov ecx,0x00ac0000 - mov edx,win_msg - mov esi,win_msg_end-win_msg ; print victory congratulations - print_msg: - mov ebx,WIN_XY - mov eax,4 - int 0x40 - jmp d_f - no_winner: - cmp byte[winmode],WM_LOSE - jne d_f - no_loser: - test al,al ; no move accepted - jnz still - d_f: - call draw_field ; move performed-redraw - jmp still - no_arrows: - cmp ah,27 - je restart_level - - jmp still - - button: - mov eax,17 - int 0x40 - - cmp ah,1 - jne noclose - close: - xor eax,eax - dec eax - int 0x40 ; shutdown. - - noclose: - cmp ah,2 - jne no_input - is_input: ; simple input line with backspace feature - mov ebx,[entered] ; sorry - no cursor - test ebx,ebx - jnz wait_input - mov [inp_pos],ebx - inc [entered] - wait_input: - call draw_input - mov eax,10 - int 0x40 - cmp eax,2 - jne still - mov edi,[inp_pos] - mov eax,2 - int 0x40 - shr eax,8 - cmp eax,27 - je still - cmp eax,13 - je load_level - cmp eax,8 - je backsp - mov [fn_input+edi],al - inc [inp_pos] - jmp wait_input - backsp: - test edi,edi - jz wait_input - dec [inp_pos] - jmp wait_input - no_input: - cmp ah,3 - jne no_load - load_level: - mov ecx,[inp_pos] - test ecx,ecx - je load_std - mov esi,fn_input - mov byte[esi+ecx],0 - inc ecx - mov edi,file_name - rep movsb - jmp reset_fi - no_load: - jmp still - - -; ********************************************* -; ** FILLS LEVEL POINTER MAP ****************** -; ********************************************* -read_levelset: - - mov dword[wnd_width],LEVWND_X - mov dword[wnd_height],LEVWND_Y - mov [levelcount],0 - mov edi,level_start - mov esi,levelmap - mov al,0xff - rls_cycle: - cmp byte[edi],EOF - je end_of_levelset - mov [esi],edi - add esi,4 - mov ecx,1024 - inc [levelcount] - repne scasb - jecxz eol ;end_of_levelset - jmp rls_cycle - end_of_levelset: - mov eax,[levelcount] -; debug_print_dec eax - ret - eol: -; debug_print '*** ' - jmp end_of_levelset - -; ********************************************* -; ******* DEFINE & DRAW WINDOW & OTHER STUFF * -; ********************************************* - -draw_window: - - mov eax,12 - mov ebx,1 - int 0x40 - - mov eax,0 - mov ebx,150*65536 - add ebx,[wnd_width] - mov ecx,50*65536 - add ecx,[wnd_height] - mov edx,0x13000000 + WND_COLOR - mov esi,0x005080d0 - mov edi,zagolovok - int 0x40 - - cmp byte[workmode],WM_READSET - je list_levels - - mov edi,[levptr] ; print custom level filename - add ebx,170*65536 - lea edx,[edi+4] - movzx esi,byte[edi+3] - int 0x40 - - call draw_field - cmp [entered],0 - jz end_of_draw - mov edx,fn_input ; print input line text - mov esi,[inp_pos] - mov ebx,FLD_LEFT2+FLD_TOP-15 - jmp draw_level_file - - list_levels: - - call draw_input - - mov eax,8 ; draw load button - mov ebx,LOAD_X - mov ecx,LOAD_Y - mov edx,3 - mov esi,WND_COLOR - int 0x40 - - mov eax,4 - mov ecx,0x00107a30 - mov ebx,LOAD_XY - mov edx,load_char - mov esi,loadlen-load_char - int 0x40 - - mov ebx,LEVLIST_XY - mov edi,0x004e00e7 - xor esi,esi - mov ecx,10 - ll_cycle: - push ecx esi ebx esi - lea ecx,[esi+'0'] - mov [ll_num+2],cl - mov ecx,edi - mov edx,ll_num - mov esi,4 - int 0x40 - add ebx,25 shl 16 - pop esi - add esi,[levpage] - mov edx,[levelmap+esi*4] - add edx,4 - movzx esi,byte[edx-1] - int 0x40 - pop ebx esi ecx - inc esi - mov edx,[levelcount] - sub edx,[levpage] - cmp edx,esi - jbe choose_print - add ebx,LEVLIST_SPACING - loop ll_cycle - choose_print: - mov edx,ll_msg - mov esi,ll_msg_end-ll_msg - mov ebx,CHOOSE_XY - draw_level_file: - mov eax,4 - int 0x40 - - end_of_draw: - mov eax,12 - mov ebx,2 - int 0x40 - - ret - -; ********************************************* -; ******* DRAW CELL IMAGES WITHIN FIELD ******* -; ********************************************* - -draw_field: - cmp byte[workmode],sSokonex - jne no_chl - call check_lasers ; Sokonex game - no_chl: - mov eax,13 ; clear field area - mov edx,WND_COLOR - mov edi,[levptr] - movzx ebx,byte[edi+1] - shl ebx,4 - lea ebx, [FLD_LEFT2+ebx] - movzx ecx,byte[edi+2] - shl ecx,4 - lea ecx, [FLD_TOP shl 16+ecx] - int 0x40 - - mov edx, FLD_LEFT2+FLD_TOP - movzx edi,byte[edi+1] - shl edi,20 - add edi, FLD_LEFT2 - - xor eax,eax - mov ecx,[fld_size] - mov esi,field - fld_cycle: - lodsb - call draw_img - add edx,SHIFT - cmp edx,edi - jl no_nl - add edx,16 - and edx,0xffff - add edx,FLD_LEFT2 - no_nl: - loop fld_cycle - cmp byte[workmode],sSokonex - jne end_of_df - call draw_lasers - end_of_df: - ret - -; ********************************************* -; *********** DRAW CELL IMAGE ***************** -; ********************************************* - -draw_img: ; in: eax-object index, edx-coordinates - pusha - cmp eax,tWall - jbe no_adjust - cmp [workmode],sSokolor - jne no_di_color - add eax,pm_col-pm_nex - jmp no_adjust - no_di_color: - cmp [workmode],sSokonex - jne no_adjust - inc eax - no_adjust: - movzx ebx,byte [pic_map+eax] - cmp ebx,0xf - je no_img - bl_place: - mov ecx, IMG_SIZE - imul ebx, 256*3 - add ebx,strip - mov eax,7 ; draw_image sysfunc - int 0x40 - no_img: - popa - ret - -;**************************************** -;******* DRAW CONTENTS OF INPUT LINE **** -;**************************************** -draw_input: - push edi - cmp eax,4 - jne highlight - mov esi,WND_COLOR - jmp di_draw - highlight: - mov esi,0xe0e0e0 - di_draw: - mov eax,8 - mov ebx,INP_X - mov ecx,INP_Y - mov edx,2 - int 0x40 - mov eax,4 - mov ecx,0x00107a30 ; шрифт 1 и цвет ( 0xF0RRGGBB ) - mov ebx,INP_XY - mov edx,fn_input - mov esi,[inp_pos] - int 0x40 - pop edi - ret - -; ******************************************************** -; * DECOMPRESS LEVEL & FILL SOME TABLES TO CHECK VICTORY * -; ******************************************************** - -decode_field: -; debug_print <13,10> - xor eax,eax - mov dword[checkpoint],eax - mov dword[checkpoint+4],eax - mov byte[checkcount],al - mov edi,[levptr] - mov dl,[edi] - mov [workmode],dl - movzx edx,byte[edi+1] - mov esi,edx - shl esi,4 - add esi,FLD_LEFT*2-25 - mov [wnd_width],esi - neg edx - mov [move_map+8],edx - neg edx - mov [move_map+4],edx - movzx eax,byte[edi+2] - mov esi,eax - shl esi,4 - add esi,FLD_TOP*2-18 - mov [wnd_height],esi - imul edx,eax - mov [fld_size],edx - lea esi,[edi+4] - movzx ecx,byte[edi+3] - add esi,ecx - cmp byte[esi],0xff - je backto_set - xor edi,edi - cld - dec_cycle: - lodsb - movzx ecx,al - and ecx,0xf ; ecx-count of objects - shr al,4 ; eax-index of object - inc ecx - sub edx,ecx - dc_cycle: - mov [field+edi],al - call chk_win_obj - jne no_register - push eax ecx esi - movzx ecx,al - shl eax,12 - or eax,edi - inc byte[checkcount] - cmp [workmode],sSokolor - jne chk_sokoban -; debug_print ':' -; debug_print_dec ecx - sub ecx,tRedB - shl ecx,1 - cmp word[checkpoint+ecx],0 - jnz no_new_check - mov [checkpoint+ecx],ax - and eax,0xfff -; debug_print_dec eax - jmp no_new_check - chk_sokoban: - cmp [workmode],sSokonex - jne no_nex - cmp byte[checkcount],1 - ja no_new_check - no_nex: - movzx ecx,byte[checkcount] - mov word[checkpoint-2+ecx*2],ax - no_new_check: - pop esi ecx eax - no_register: - inc edi - loop dc_cycle - cmp edx,0 - jg dec_cycle - mov ecx,[fld_size] - xor edx,edx - fp_cycle: - mov al,[field+edx] - and al,0xfe - cmp al,tPlayer - je pl_found - inc edx - loop fp_cycle - pl_found: - mov [player],dx - movzx eax,byte[checkcount] -; debug_print_dec eax - ret - -; ********************************************* -; * WHETHER OBJECT IS VICTORY DEPENDENT ******* -; ********************************************* - -chk_win_obj: ; al-object in a cell - push ecx eax - and al,0xf - mov cl,[workmode] - cmp cl,sSokoban - jne nota_sokoban - cmp al,tBlock - jmp cwo_exit - nota_sokoban: - cmp cl,sSokonex - jne nota_sokonex - cmp al,tConnect - je cwo_exit - cmp al,tStConnect - jmp cwo_exit - nota_sokonex: - push eax - and eax,tRedB - cmp eax,tRedB - pop eax - cwo_exit: - pop eax ecx - ret - -; ********************************************* -; ***** GET CELL AT CERTAIN DIRECTION ********* -; ********************************************* - -get_cell_at: ; in: dx - current cell, cl - direction - mov ebx,edx ; out: al - object at direction, bx - new position - movzx eax,cl - and eax,11b - mov eax, [move_map+eax*4] - add ebx,eax - mov al,[field+ebx] - ret - -; ********************************************* -; *** WHETHER A MOVE CAN BE DONE, & DO IT ***** -; ********************************************* - -valid_move: ; in: dx - current cell, cl - direction - push edx esi - call get_cell_at ; if ch>0 perform all moves - cmp al,tWall - jb result_ok - je vm_exit - cmp [workmode],sSokonex - jne n_vm_nex - cmp al,tStConnect - je vm_exit - cmp al,tHole - je vm_exit - n_vm_nex: - push edx ebx - mov edx,ebx - movzx esi,al - call get_cell_at - cmp al,tPlace - jbe push_it - cmp [workmode],sSokonex - jne no_plate - cmp al,tHole - jne no_plate - cmp esi,tBroken - jae vm_sink - cmp esi,tPlate - jne no_plate - and byte[field+ebx],0 - vm_sink: - and byte[field+edx],0 - jmp vm_hole - no_plate: - pop ebx edx esi edx - ret - push_it: - call do_move - vm_hole: - pop ebx edx - result_ok: - call do_move - xor al,al - vm_exit: - pop esi edx - ret - -; ********************************************* -; ******* ACTUALLY PERFORM MOVES ************** -; ********************************************* - -do_move: ; in: dx - source cell - test ch,ch ; bx - target cell - jz dm_exit ; ch = 0 don't perform moves - mov al,byte[field+edx] - cmp byte[workmode],sSokoban - jne no_dm_ban - and al,0xfe - no_dm_ban: - xor byte[field+edx],al - or byte[field+ebx],al - call chk_win_obj - jne no_check_win - pusha - movzx ecx,byte[checkcount] - xor edi,edi - dm_cycle: - movzx esi,word[checkpoint+edi*2] - and esi,0xfff - and edx,0xfff - cmp esi,edx - jnz not_an_obj - movzx eax,dl - movzx eax,byte[field+ebx] - shl eax,12 - or eax,ebx - mov word[checkpoint+edi*2],ax - jmp dm_ex - not_an_obj: - inc edi - loop dm_cycle - dm_ex: - popa - call check_win - jne no_check_win - mov byte[winmode],WM_WINNER - no_check_win: - cmp al,tPlayer - jne dm_exit - mov [player],bx - dm_exit: - ret - -; ********************************************* -; ******* CHECK VICTORY CONDITIONS ************ -; ********************************************* - -check_win: -; debug_print <13,10> - push eax ebx ecx esi - xor eax,eax - movzx ecx,byte[checkcount] - mov esi,checkpoint - mov bl,byte[workmode] - xor bh,bh - mov [colcount],bh - cld - cw_cycle: - lodsw - cmp bl,sSokoban - jne nocw_sokoban - test ax,1 shl 12 - jz cw_not_inplace - inc bh - cw_not_inplace: - loop cw_cycle -; movzx eax,bh - cmp [checkcount],bh - jmp cw_exit - nocw_sokoban: - cmp bl,sSokonex - jne nocw_sokonex - mov dx,ax - call scan_root - cmp al,[checkcount] - jmp cw_exit - - nocw_sokonex: - cmp esi,checkpoint+8 - ja cwlor_exit -; debug_print '*' - test ax,ax - jz cw_cycle - mov dx,ax - call scan_root - add [colcount],al -; debug_print '*->' -; debug_print_dec eax - jmp cw_cycle - cwlor_exit: - mov al,[colcount] - cmp al,[checkcount] - cw_exit: -; debug_print <13,10> - pop esi ecx ebx eax - ret - -; ********************************************* -; **** WHETHER LASERS DESTROY SOMETHING ******* -; ********************************************* - -check_lasers: - pusha - xor edx,edx - mov ecx,[fld_size] - cl_loop: - push ecx edx - mov cl,[field+edx] - sub cl,tLaserW - jl cl_exit - cl_begin: - call get_cell_at - cmp al,tLaserW - jae cl_destroy - cmp al,tBroken - je cl_destroy - cmp al,tEmpty - je no_cl_destroy - cmp al,tHole - je no_cl_destroy - cmp al,tPlayer - jne cl_exit - mov ecx,0x00ac0000 - mov edx,lose_msg - mov esi,lose_msg_end-lose_msg ; print loose message - mov byte[winmode],WM_LOSE - mov ebx,WIN_XY - mov eax,4 - int 0x40 - jmp cl_exit - cl_destroy: - mov byte[field+ebx],0 - no_cl_destroy: - mov edx,ebx - jmp cl_begin - cl_exit: - pop edx ecx - inc edx - loop cl_loop - popa - ret - -; ********************************************* -; *** USED BY CHECK_WIN IN SOKONEX & SOKOLOR ** -; ********************************************* - -scan_root: ; input: dx-beginning cell, ebx-what to search - push esi - mov edi,srch ; output: eax-number of win_obj found - mov eax,0xfff - movzx ecx,[checkcount] - inc ecx - cld - rep stosw ; clearing area for scan - movzx ebx,dx - and edx,eax ; dx-cell number to compare with - shr ebx,12 ; bl-obj id - mov [color],bl - mov esi,srch - mov edi,eax ; mask to extract cell - mov word[srch],dx - sr_loop: - lodsw - push esi ; saving scan pointer - movzx edx,ax ; edx-[dirs*4][cell*12] - and edx,edi -; debug_print ' >' - mov ecx,4 - sr_dir_loop1: -; debug_print '.' - push ecx ; saving dir counter - lea ebx,[ecx+11] - bts word[esi-2],bx - jc sr_endloop ; this entry is already processed -; debug_print '^' - dec ecx ; cl-direction - call get_cell_at ; bx-new position, al-object -; cmp [workmode],sSokonex -; jne no_sr_nex - call chk_win_obj - jne sr_endloop ; not a win_obj there -; debug_print '@' - cmp [workmode],sSokolor - jne no_sr_lor - cmp al,[color] - jne sr_endloop - no_sr_lor: - push esi - mov esi,srch ; let us search for existing entries - sr_loop1: - lodsw - and eax,edi ; eax-cell w/o dirs - cmp eax,ebx - je sr_foundentry ; this is the entry we're seeking for - cmp word[esi],0xfff - jnz sr_loop1 ; next entry - ; we reached empty area - mov [esi],bx - add esi,2 - sr_foundentry: - mov eax,15 - sub eax,ecx - bts [esi-2],ax ; mark entry as used - pop esi -; inc [e_fnd] ; one more obj found - sr_endloop: - pop ecx - loop sr_dir_loop1 -; jmp tttt -; sr_dir_loop: -; jmp sr_dir_loop1 -; tttt: - pop esi - cmp word[esi],0xfff - jne sr_loop - mov eax,esi - sub eax,srch - shr eax,1 - pop esi -; debug_print_dec eax - ret - -; ********************************************* -; *** SPECIAL ROUTINE TO DRAW LASERS ********** -; ********************************************* - -draw_lasers: - xor edx,edx - mov ecx,[fld_size] - dl_loop: - push ecx edx - mov cl,[field+edx] - sub cl,tLaserW - jl dl_eloop - inc ch - dl_gca: - call get_cell_at - cmp al,tEmpty - je dl_draw - cmp al,tHole - jne dl_eloop - dl_draw: - call draw_beams - mov edx,ebx - jmp dl_gca - dl_eloop: - pop edx - inc edx - pop ecx - loop dl_loop - ret - -; ********************************************* -; *** DRAWS LASER BEAMS IN CERTAIN DIRECTION ** -; ********************************************* - -draw_beams: - pusha - mov esi,[levptr] - movzx esi,byte[esi+1] - mov eax,ebx - xor edx,edx - div esi - movzx esi,cl - dec esi - shr esi,1 - and esi,1 - shl edx,20 - mov ebx,edx - shl eax,20 - mov ecx,eax - add ebx,dword[beam_xy+esi*8] - add ecx,dword[beam_xy+esi*8+4] - mov edx,0xe9e25c - mov eax,13 - int 0x40 - popa - ret - -ud: - ud2 ; debugging purposes only - - -; ********************************************* -; *** COMPRESS LEVEL - NOT READY YET ********** -; ********************************************* - -; push esi ebx ;ecx -; xchg ebx,edi -; mov esi,edi ; esi,edi - beginning -;; ebx - end of unpacked field -; first_enc: -; lodsb ; al - first byte -; shl ax,8 ; ah - this byte, al=0 -; next_enc: -; cmp esi,ebx -; jae exit_enc -;; movzx ecx,byte[esi] -;; debug_print_dec ecx -; cmp ah,byte[esi] -; jne newchar -; inc esi -; inc al -; cmp al,15 -; jb next_enc -; newchar: -; shl al,4 -; shr ax,4 -; stosb -; jmp first_enc -; exit_enc: -; shl al,4 -; shr ax,4 -; stosb -; mov al,0xff -; stosb -; pop ebx esi ecx -; -; dec ecx -; jcxz outcycle -; jmp next_lev -; outcycle: - - -; Здесь находятся данные программы: - -; интерфейс программы двуязычный - задайте язык в macros.inc -load_char: -if lang eq ru_RU - db 'Загрузить' -else - db 'Open file' -end if -loadlen: - -ll_msg: -if lang eq ru_RU - db 'Выберите уровень' -else - db 'Choose a level' -end if - db ' (0-9, PgUp, PgDn)' -ll_msg_end: - -fn_input: -; db 'cnf' -; db 'soko-4.lev' -if lang eq ru_RU - db 'или введите имя файла' -else - db 'or enter a filename' -end if -inp_end: - rb 256-(inp_end-fn_input) - -win_msg: -if lang eq ru_RU - db 'Ура!!! Вы прошли уровень!' -else - db "You've completed the level!" -end if -win_msg_end: - -lose_msg: -if lang eq ru_RU - db 'Вы парализованы! Проигрыш...' -else - db "You're paralized! Game over..." -end if -lose_msg_end: - -zagolovok: - db 'Sokoban', 0 - - -pic_map: - db 0xf,9,0,0,1,1,5,6 -pm_nex: - db 2,7,8,3,4,0xa,0xa,0xa,0xa -pm_col: - db 0xb,0xc,0xd,0xe - -beam_xy: - dd (FLD_LEFT+7) shl 16+2, FLD_TOP2+16 - dd FLD_LEFT2+16, (FLD_TOP+7) shl 16+2 - -ll_num db '00x.' - -move_map dd -1,+0,-0,1 ; 0 - W, 1 - S, 2 - N, 3 - E - -stdlev db 'SOKO-0.LEV',0 -stdlev_len: - -inp_pos dd inp_end-fn_input -entered dd 0 - -file_info: - dd 0 ; subfunction - read - dd 0, 0 ; file offset - dd 0x20000 ; number of bytes to read -cnf_level dd strip ; data buffer -file_name db 'SKIN.' -file_num db 'RAW',0 - - rb 256-($-file_name) - -I_END: ; конец программы - -winmode db ? -scanptr dd ? -levpage dd ? -workmode db ? -player dw ? -fld_size dd ? -levptr dd ? -wnd_height dd ? -wnd_width dd ? -color db ? -colcount db ? -levelcount dd ? -checkcount db ? -checkpoint rw 256 -levelmap rd 1024 -strip rb SKIN_SIZE - -workarea: - srch rb 0x10000-($-workarea) - -level_start rb 0x20000 -field: +; SOKOBAN FOR MENUET v0.1 +; Written in pure assembler by Ivushkin Andrey aka Willow +; +; Last changed: July 2, 2004 +; +; Main idea, art & graphics +; Sokofun for Windows 95 by Games 4 Brains +; and Sokoban 2.3 by BjЎrn Kфllmark +; +; Level designers: +; +; Alberto Garcia, Aymeric du Peloux, Brian Kent, David Holland, +; David W Skinner, Erim Sever, Evgeniy Grigoriev, Franчois Marques, +; Frantisek Pokorny, Howard Abed,J franklin Mentzer, Jaques Duthen, +; John C Davis, John Polhemus, Kobus Theron, Lee Haywood, Mario Bonenfant, +; Martin P Holland, Mic (Jan Reineke), Phil Shapiro, Richard Weston, +; Sven Egevad, Ken'ichiro Takahashi (takaken), Thinking Rabbit, +; Yoshio Murase, ZICO (Zbigniew Kornas) +; +; Special thanks to Hirohiko Nakamiya +; +; More credits: +; Masato Hiramatsu, Kazuo Fukushima, Klaus Clemens +; +; Game uses its own format of levelset files *.LEV +; with simple run-length compression + +; COMPILE WITH FASM + +format binary as "" + +include 'macros.inc' ; decrease code size (optional) +include 'CELLTYPE.INC' ; object identifiers +;include 'debug.inc' + +SKIN_SIZE = 11520 ; size of skin file (16x240) + +; field dimensions +FLD_LEFT = 43 +FLD_LEFT2 = FLD_LEFT shl 16 +FLD_TOP = 40 +FLD_TOP2 = FLD_TOP shl 16 +IMG_SIZE = 16 shl 16+16 +SHIFT = (16 shl 16) +WND_COLOR = 0x00aabbcc + +; level list dimensions +LEVLIST_XY = FLD_TOP shl 16+45 +LEVLIST_SPACING = 10 +LEVWND_X = 320 +LEVWND_Y = 200 + +; input line dimensions +INP_X = 10 shl 16+300 +INP_Y = 160 shl 16+16 +INP_XY = 15 shl 16+164 + +; load button dimensions +LOAD_X = 130 shl 16+65 +LOAD_Y = 180 shl 16+14 +LOAD_XY = 135 shl 16+184 +CHOOSE_XY = 40 shl 16+148 + + +WIN_XY = 135 shl 16+25 + +; workmode constants, more defs in CELLTYPE.INC +WM_WINNER = 0x10 +WM_READSET = 0 +WM_LOSE = 0x20 + +use32 + org 0x0 + db 'MENUET01' + dd 0x01 + dd START + dd I_END + dd 0x100000 + dd 0x7fff0 + dd 0x0 + dd 0x0 + +START: + mov eax,70 ; load skin image-it is in RAW 16x240 BGR + mov ebx,file_info ; IrfanView recommended + int 0x40 + test ebx,ebx +; jmp load_level +; jz close + load_fail: ; clear input line, also if levelset load failed + mov [inp_pos],0 + load_std: + mov esi,stdlev + mov edi,file_name + mov ecx,stdlev_len-stdlev + rep movsb + mov ecx,10 + reset_fi: + mov dword[cnf_level],level_start + xor eax,eax + mov [levpage],eax + mov word[ll_num],'00' ; reset some counters + read_cnf: + mov eax,70 + mov ebx,file_info + int 0x40 + test ebx,ebx ; load standard levels SOKO-?.LEV instead of custom + jz nxt_cnf + add dword[cnf_level],ebx + nxt_cnf: + test ecx,ecx ; this check is for loading a custom levelset + jz no_increase + inc byte[file_num] ; next standard levelset + loop read_cnf + no_increase: + cmp dword[cnf_level],level_start + jne go_on + test ecx,ecx + jz load_fail + jmp close ; missing standard levels & exiting + go_on: + mov eax,[cnf_level] + mov byte[eax],0xf0 ; end-of-levels mark + + call read_levelset + backto_set: + mov byte[workmode],WM_READSET + mov byte[winmode],0 + jmp red +restart_level: + call decode_field ; uncompress level + +red: + call draw_window + +still: + + mov eax,10 + int 0x40 + cmp byte[winmode],WM_WINNER + je backto_set + cmp byte[winmode],WM_LOSE + je backto_set + cmp eax,1 + je red + cmp eax,2 + je key + cmp eax,3 + je button + + jmp still + + key: + mov eax,2 + int 0x40 + + cmp byte[workmode],WM_READSET + jne key_move + cmp ah,32 ; Space moves focus to input line + je is_input + cmp ah,184 + jne no_prev + cmp [levpage],0 ; PgUp + jz still + sub [levpage],10 + cmp byte[ll_num+1],'0' + jnz _pu + dec byte[ll_num] + mov byte[ll_num+1],'9'+1 + _pu: + dec byte[ll_num+1] + jmp red + no_prev: + cmp ah,183 ; PgDn + jne no_next + mov eax,[levpage] + add eax,10 + cmp eax,[levelcount] + jae still + mov [levpage],eax + cmp byte[ll_num+1],'9' + jnz _pd + inc byte[ll_num] + mov byte[ll_num+1],'0'-1 + _pd: + inc byte[ll_num+1] + jmp red + no_next: + sub ah,48 + cmp ah,9 + ja still + movzx eax,ah ; user selects a level + add eax,[levpage] + cmp eax,[levelcount] + jae still + mov eax,[levelmap+eax*4] + mov [levptr],eax ; current level pointer + mov al,byte[eax] + mov byte[workmode],al + jmp restart_level + + ; we're already in game + key_move: + cmp ah,180 ; Home + je backto_set + cmp ah,176 + jb no_arrows + sub ah,176 + cmp ah,3 + ja no_arrows + movzx ecx,ah + movzx edx,[player] + inc ch + call valid_move + cmp byte[winmode],WM_WINNER + jne no_winner + mov ecx,0x00ac0000 + mov edx,win_msg + mov esi,win_msg_end-win_msg ; print victory congratulations + print_msg: + mov ebx,WIN_XY + mov eax,4 + int 0x40 + jmp d_f + no_winner: + cmp byte[winmode],WM_LOSE + jne d_f + no_loser: + test al,al ; no move accepted + jnz still + d_f: + call draw_field ; move performed-redraw + jmp still + no_arrows: + cmp ah,27 + je restart_level + + jmp still + + button: + mov eax,17 + int 0x40 + + cmp ah,1 + jne noclose + close: + xor eax,eax + dec eax + int 0x40 ; shutdown. + + noclose: + cmp ah,2 + jne no_input + is_input: ; simple input line with backspace feature + mov ebx,[entered] ; sorry - no cursor + test ebx,ebx + jnz wait_input + mov [inp_pos],ebx + inc [entered] + wait_input: + call draw_input + mov eax,10 + int 0x40 + cmp eax,2 + jne still + mov edi,[inp_pos] + mov eax,2 + int 0x40 + shr eax,8 + cmp eax,27 + je still + cmp eax,13 + je load_level + cmp eax,8 + je backsp + mov [fn_input+edi],al + inc [inp_pos] + jmp wait_input + backsp: + test edi,edi + jz wait_input + dec [inp_pos] + jmp wait_input + no_input: + cmp ah,3 + jne no_load + load_level: + mov ecx,[inp_pos] + test ecx,ecx + je load_std + mov esi,fn_input + mov byte[esi+ecx],0 + inc ecx + mov edi,file_name + rep movsb + jmp reset_fi + no_load: + jmp still + + +; ********************************************* +; ** FILLS LEVEL POINTER MAP ****************** +; ********************************************* +read_levelset: + + mov dword[wnd_width],LEVWND_X + mov dword[wnd_height],LEVWND_Y + mov [levelcount],0 + mov edi,level_start + mov esi,levelmap + mov al,0xff + rls_cycle: + cmp byte[edi],EOF + je end_of_levelset + mov [esi],edi + add esi,4 + mov ecx,1024 + inc [levelcount] + repne scasb + jecxz eol ;end_of_levelset + jmp rls_cycle + end_of_levelset: + mov eax,[levelcount] +; debug_print_dec eax + ret + eol: +; debug_print '*** ' + jmp end_of_levelset + +; ********************************************* +; ******* DEFINE & DRAW WINDOW & OTHER STUFF * +; ********************************************* + +draw_window: + + mov eax,12 + mov ebx,1 + int 0x40 + + mov eax,0 + mov ebx,150*65536 + add ebx,[wnd_width] + mov ecx,50*65536 + add ecx,[wnd_height] + mov edx,0x13000000 + WND_COLOR + mov esi,0x005080d0 + mov edi,zagolovok + int 0x40 + + cmp byte[workmode],WM_READSET + je list_levels + + mov edi,[levptr] ; print custom level filename + add ebx,170*65536 + lea edx,[edi+4] + movzx esi,byte[edi+3] + int 0x40 + + call draw_field + cmp [entered],0 + jz end_of_draw + mov edx,fn_input ; print input line text + mov esi,[inp_pos] + mov ebx,FLD_LEFT2+FLD_TOP-15 + jmp draw_level_file + + list_levels: + + call draw_input + + mov eax,8 ; draw load button + mov ebx,LOAD_X + mov ecx,LOAD_Y + mov edx,3 + mov esi,WND_COLOR + int 0x40 + + mov eax,4 + mov ecx,0x00107a30 + mov ebx,LOAD_XY + mov edx,load_char + mov esi,loadlen-load_char + int 0x40 + + mov ebx,LEVLIST_XY + mov edi,0x004e00e7 + xor esi,esi + mov ecx,10 + ll_cycle: + push ecx esi ebx esi + lea ecx,[esi+'0'] + mov [ll_num+2],cl + mov ecx,edi + mov edx,ll_num + mov esi,4 + int 0x40 + add ebx,25 shl 16 + pop esi + add esi,[levpage] + mov edx,[levelmap+esi*4] + add edx,4 + movzx esi,byte[edx-1] + int 0x40 + pop ebx esi ecx + inc esi + mov edx,[levelcount] + sub edx,[levpage] + cmp edx,esi + jbe choose_print + add ebx,LEVLIST_SPACING + loop ll_cycle + choose_print: + mov edx,ll_msg + mov esi,ll_msg_end-ll_msg + mov ebx,CHOOSE_XY + draw_level_file: + mov eax,4 + int 0x40 + + end_of_draw: + mov eax,12 + mov ebx,2 + int 0x40 + + ret + +; ********************************************* +; ******* DRAW CELL IMAGES WITHIN FIELD ******* +; ********************************************* + +draw_field: + cmp byte[workmode],sSokonex + jne no_chl + call check_lasers ; Sokonex game + no_chl: + mov eax,13 ; clear field area + mov edx,WND_COLOR + mov edi,[levptr] + movzx ebx,byte[edi+1] + shl ebx,4 + lea ebx, [FLD_LEFT2+ebx] + movzx ecx,byte[edi+2] + shl ecx,4 + lea ecx, [FLD_TOP shl 16+ecx] + int 0x40 + + mov edx, FLD_LEFT2+FLD_TOP + movzx edi,byte[edi+1] + shl edi,20 + add edi, FLD_LEFT2 + + xor eax,eax + mov ecx,[fld_size] + mov esi,field + fld_cycle: + lodsb + call draw_img + add edx,SHIFT + cmp edx,edi + jl no_nl + add edx,16 + and edx,0xffff + add edx,FLD_LEFT2 + no_nl: + loop fld_cycle + cmp byte[workmode],sSokonex + jne end_of_df + call draw_lasers + end_of_df: + ret + +; ********************************************* +; *********** DRAW CELL IMAGE ***************** +; ********************************************* + +draw_img: ; in: eax-object index, edx-coordinates + pusha + cmp eax,tWall + jbe no_adjust + cmp [workmode],sSokolor + jne no_di_color + add eax,pm_col-pm_nex + jmp no_adjust + no_di_color: + cmp [workmode],sSokonex + jne no_adjust + inc eax + no_adjust: + movzx ebx,byte [pic_map+eax] + cmp ebx,0xf + je no_img + bl_place: + mov ecx, IMG_SIZE + imul ebx, 256*3 + add ebx,strip + mov eax,7 ; draw_image sysfunc + int 0x40 + no_img: + popa + ret + +;**************************************** +;******* DRAW CONTENTS OF INPUT LINE **** +;**************************************** +draw_input: + push edi + cmp eax,4 + jne highlight + mov esi,WND_COLOR + jmp di_draw + highlight: + mov esi,0xe0e0e0 + di_draw: + mov eax,8 + mov ebx,INP_X + mov ecx,INP_Y + mov edx,2 + int 0x40 + mov eax,4 + mov ecx,0x00107a30 ; шрифт 1 и цвет ( 0xF0RRGGBB ) + mov ebx,INP_XY + mov edx,fn_input + mov esi,[inp_pos] + int 0x40 + pop edi + ret + +; ******************************************************** +; * DECOMPRESS LEVEL & FILL SOME TABLES TO CHECK VICTORY * +; ******************************************************** + +decode_field: +; debug_print <13,10> + xor eax,eax + mov dword[checkpoint],eax + mov dword[checkpoint+4],eax + mov byte[checkcount],al + mov edi,[levptr] + mov dl,[edi] + mov [workmode],dl + movzx edx,byte[edi+1] + mov esi,edx + shl esi,4 + add esi,FLD_LEFT*2-25 + mov [wnd_width],esi + neg edx + mov [move_map+8],edx + neg edx + mov [move_map+4],edx + movzx eax,byte[edi+2] + mov esi,eax + shl esi,4 + add esi,FLD_TOP*2-18 + mov [wnd_height],esi + imul edx,eax + mov [fld_size],edx + lea esi,[edi+4] + movzx ecx,byte[edi+3] + add esi,ecx + cmp byte[esi],0xff + je backto_set + xor edi,edi + cld + dec_cycle: + lodsb + movzx ecx,al + and ecx,0xf ; ecx-count of objects + shr al,4 ; eax-index of object + inc ecx + sub edx,ecx + dc_cycle: + mov [field+edi],al + call chk_win_obj + jne no_register + push eax ecx esi + movzx ecx,al + shl eax,12 + or eax,edi + inc byte[checkcount] + cmp [workmode],sSokolor + jne chk_sokoban +; debug_print ':' +; debug_print_dec ecx + sub ecx,tRedB + shl ecx,1 + cmp word[checkpoint+ecx],0 + jnz no_new_check + mov [checkpoint+ecx],ax + and eax,0xfff +; debug_print_dec eax + jmp no_new_check + chk_sokoban: + cmp [workmode],sSokonex + jne no_nex + cmp byte[checkcount],1 + ja no_new_check + no_nex: + movzx ecx,byte[checkcount] + mov word[checkpoint-2+ecx*2],ax + no_new_check: + pop esi ecx eax + no_register: + inc edi + loop dc_cycle + cmp edx,0 + jg dec_cycle + mov ecx,[fld_size] + xor edx,edx + fp_cycle: + mov al,[field+edx] + and al,0xfe + cmp al,tPlayer + je pl_found + inc edx + loop fp_cycle + pl_found: + mov [player],dx + movzx eax,byte[checkcount] +; debug_print_dec eax + ret + +; ********************************************* +; * WHETHER OBJECT IS VICTORY DEPENDENT ******* +; ********************************************* + +chk_win_obj: ; al-object in a cell + push ecx eax + and al,0xf + mov cl,[workmode] + cmp cl,sSokoban + jne nota_sokoban + cmp al,tBlock + jmp cwo_exit + nota_sokoban: + cmp cl,sSokonex + jne nota_sokonex + cmp al,tConnect + je cwo_exit + cmp al,tStConnect + jmp cwo_exit + nota_sokonex: + push eax + and eax,tRedB + cmp eax,tRedB + pop eax + cwo_exit: + pop eax ecx + ret + +; ********************************************* +; ***** GET CELL AT CERTAIN DIRECTION ********* +; ********************************************* + +get_cell_at: ; in: dx - current cell, cl - direction + mov ebx,edx ; out: al - object at direction, bx - new position + movzx eax,cl + and eax,11b + mov eax, [move_map+eax*4] + add ebx,eax + mov al,[field+ebx] + ret + +; ********************************************* +; *** WHETHER A MOVE CAN BE DONE, & DO IT ***** +; ********************************************* + +valid_move: ; in: dx - current cell, cl - direction + push edx esi + call get_cell_at ; if ch>0 perform all moves + cmp al,tWall + jb result_ok + je vm_exit + cmp [workmode],sSokonex + jne n_vm_nex + cmp al,tStConnect + je vm_exit + cmp al,tHole + je vm_exit + n_vm_nex: + push edx ebx + mov edx,ebx + movzx esi,al + call get_cell_at + cmp al,tPlace + jbe push_it + cmp [workmode],sSokonex + jne no_plate + cmp al,tHole + jne no_plate + cmp esi,tBroken + jae vm_sink + cmp esi,tPlate + jne no_plate + and byte[field+ebx],0 + vm_sink: + and byte[field+edx],0 + jmp vm_hole + no_plate: + pop ebx edx esi edx + ret + push_it: + call do_move + vm_hole: + pop ebx edx + result_ok: + call do_move + xor al,al + vm_exit: + pop esi edx + ret + +; ********************************************* +; ******* ACTUALLY PERFORM MOVES ************** +; ********************************************* + +do_move: ; in: dx - source cell + test ch,ch ; bx - target cell + jz dm_exit ; ch = 0 don't perform moves + mov al,byte[field+edx] + cmp byte[workmode],sSokoban + jne no_dm_ban + and al,0xfe + no_dm_ban: + xor byte[field+edx],al + or byte[field+ebx],al + call chk_win_obj + jne no_check_win + pusha + movzx ecx,byte[checkcount] + xor edi,edi + dm_cycle: + movzx esi,word[checkpoint+edi*2] + and esi,0xfff + and edx,0xfff + cmp esi,edx + jnz not_an_obj + movzx eax,dl + movzx eax,byte[field+ebx] + shl eax,12 + or eax,ebx + mov word[checkpoint+edi*2],ax + jmp dm_ex + not_an_obj: + inc edi + loop dm_cycle + dm_ex: + popa + call check_win + jne no_check_win + mov byte[winmode],WM_WINNER + no_check_win: + cmp al,tPlayer + jne dm_exit + mov [player],bx + dm_exit: + ret + +; ********************************************* +; ******* CHECK VICTORY CONDITIONS ************ +; ********************************************* + +check_win: +; debug_print <13,10> + push eax ebx ecx esi + xor eax,eax + movzx ecx,byte[checkcount] + mov esi,checkpoint + mov bl,byte[workmode] + xor bh,bh + mov [colcount],bh + cld + cw_cycle: + lodsw + cmp bl,sSokoban + jne nocw_sokoban + test ax,1 shl 12 + jz cw_not_inplace + inc bh + cw_not_inplace: + loop cw_cycle +; movzx eax,bh + cmp [checkcount],bh + jmp cw_exit + nocw_sokoban: + cmp bl,sSokonex + jne nocw_sokonex + mov dx,ax + call scan_root + cmp al,[checkcount] + jmp cw_exit + + nocw_sokonex: + cmp esi,checkpoint+8 + ja cwlor_exit +; debug_print '*' + test ax,ax + jz cw_cycle + mov dx,ax + call scan_root + add [colcount],al +; debug_print '*->' +; debug_print_dec eax + jmp cw_cycle + cwlor_exit: + mov al,[colcount] + cmp al,[checkcount] + cw_exit: +; debug_print <13,10> + pop esi ecx ebx eax + ret + +; ********************************************* +; **** WHETHER LASERS DESTROY SOMETHING ******* +; ********************************************* + +check_lasers: + pusha + xor edx,edx + mov ecx,[fld_size] + cl_loop: + push ecx edx + mov cl,[field+edx] + sub cl,tLaserW + jl cl_exit + cl_begin: + call get_cell_at + cmp al,tLaserW + jae cl_destroy + cmp al,tBroken + je cl_destroy + cmp al,tEmpty + je no_cl_destroy + cmp al,tHole + je no_cl_destroy + cmp al,tPlayer + jne cl_exit + mov ecx,0x00ac0000 + mov edx,lose_msg + mov esi,lose_msg_end-lose_msg ; print loose message + mov byte[winmode],WM_LOSE + mov ebx,WIN_XY + mov eax,4 + int 0x40 + jmp cl_exit + cl_destroy: + mov byte[field+ebx],0 + no_cl_destroy: + mov edx,ebx + jmp cl_begin + cl_exit: + pop edx ecx + inc edx + loop cl_loop + popa + ret + +; ********************************************* +; *** USED BY CHECK_WIN IN SOKONEX & SOKOLOR ** +; ********************************************* + +scan_root: ; input: dx-beginning cell, ebx-what to search + push esi + mov edi,srch ; output: eax-number of win_obj found + mov eax,0xfff + movzx ecx,[checkcount] + inc ecx + cld + rep stosw ; clearing area for scan + movzx ebx,dx + and edx,eax ; dx-cell number to compare with + shr ebx,12 ; bl-obj id + mov [color],bl + mov esi,srch + mov edi,eax ; mask to extract cell + mov word[srch],dx + sr_loop: + lodsw + push esi ; saving scan pointer + movzx edx,ax ; edx-[dirs*4][cell*12] + and edx,edi +; debug_print ' >' + mov ecx,4 + sr_dir_loop1: +; debug_print '.' + push ecx ; saving dir counter + lea ebx,[ecx+11] + bts word[esi-2],bx + jc sr_endloop ; this entry is already processed +; debug_print '^' + dec ecx ; cl-direction + call get_cell_at ; bx-new position, al-object +; cmp [workmode],sSokonex +; jne no_sr_nex + call chk_win_obj + jne sr_endloop ; not a win_obj there +; debug_print '@' + cmp [workmode],sSokolor + jne no_sr_lor + cmp al,[color] + jne sr_endloop + no_sr_lor: + push esi + mov esi,srch ; let us search for existing entries + sr_loop1: + lodsw + and eax,edi ; eax-cell w/o dirs + cmp eax,ebx + je sr_foundentry ; this is the entry we're seeking for + cmp word[esi],0xfff + jnz sr_loop1 ; next entry + ; we reached empty area + mov [esi],bx + add esi,2 + sr_foundentry: + mov eax,15 + sub eax,ecx + bts [esi-2],ax ; mark entry as used + pop esi +; inc [e_fnd] ; one more obj found + sr_endloop: + pop ecx + loop sr_dir_loop1 +; jmp tttt +; sr_dir_loop: +; jmp sr_dir_loop1 +; tttt: + pop esi + cmp word[esi],0xfff + jne sr_loop + mov eax,esi + sub eax,srch + shr eax,1 + pop esi +; debug_print_dec eax + ret + +; ********************************************* +; *** SPECIAL ROUTINE TO DRAW LASERS ********** +; ********************************************* + +draw_lasers: + xor edx,edx + mov ecx,[fld_size] + dl_loop: + push ecx edx + mov cl,[field+edx] + sub cl,tLaserW + jl dl_eloop + inc ch + dl_gca: + call get_cell_at + cmp al,tEmpty + je dl_draw + cmp al,tHole + jne dl_eloop + dl_draw: + call draw_beams + mov edx,ebx + jmp dl_gca + dl_eloop: + pop edx + inc edx + pop ecx + loop dl_loop + ret + +; ********************************************* +; *** DRAWS LASER BEAMS IN CERTAIN DIRECTION ** +; ********************************************* + +draw_beams: + pusha + mov esi,[levptr] + movzx esi,byte[esi+1] + mov eax,ebx + xor edx,edx + div esi + movzx esi,cl + dec esi + shr esi,1 + and esi,1 + shl edx,20 + mov ebx,edx + shl eax,20 + mov ecx,eax + add ebx,dword[beam_xy+esi*8] + add ecx,dword[beam_xy+esi*8+4] + mov edx,0xe9e25c + mov eax,13 + int 0x40 + popa + ret + +ud: + ud2 ; debugging purposes only + + +; ********************************************* +; *** COMPRESS LEVEL - NOT READY YET ********** +; ********************************************* + +; push esi ebx ;ecx +; xchg ebx,edi +; mov esi,edi ; esi,edi - beginning +;; ebx - end of unpacked field +; first_enc: +; lodsb ; al - first byte +; shl ax,8 ; ah - this byte, al=0 +; next_enc: +; cmp esi,ebx +; jae exit_enc +;; movzx ecx,byte[esi] +;; debug_print_dec ecx +; cmp ah,byte[esi] +; jne newchar +; inc esi +; inc al +; cmp al,15 +; jb next_enc +; newchar: +; shl al,4 +; shr ax,4 +; stosb +; jmp first_enc +; exit_enc: +; shl al,4 +; shr ax,4 +; stosb +; mov al,0xff +; stosb +; pop ebx esi ecx +; +; dec ecx +; jcxz outcycle +; jmp next_lev +; outcycle: + + +; Здесь находятся данные программы: + +; Set the locale in 'macros.inc'. Language support for locales: ru_RU (CP866), en_US. +load_char: +if lang eq ru_RU + db 'Загрузить' +else ; Default to en_US + db 'Open file' +end if +loadlen: + +ll_msg: +if lang eq ru_RU + db 'Выберите уровень' +else ; Default to en_US + db 'Choose a level' +end if + db ' (0-9, PgUp, PgDn)' +ll_msg_end: + +fn_input: +; db 'cnf' +; db 'soko-4.lev' +if lang eq ru_RU + db 'или введите имя файла' +else ; Default to en_US + db 'or enter a filename' +end if +inp_end: + rb 256-(inp_end-fn_input) + +win_msg: +if lang eq ru_RU + db 'Ура!!! Вы прошли уровень!' +else ; Default to en_US + db "You've completed the level!" +end if +win_msg_end: + +lose_msg: +if lang eq ru_RU + db 'Вы парализованы! Проигрыш...' +else ; Default to en_US + db "You can't move! Game over..." +end if +lose_msg_end: + +zagolovok: + db 'Sokoban', 0 + + +pic_map: + db 0xf,9,0,0,1,1,5,6 +pm_nex: + db 2,7,8,3,4,0xa,0xa,0xa,0xa +pm_col: + db 0xb,0xc,0xd,0xe + +beam_xy: + dd (FLD_LEFT+7) shl 16+2, FLD_TOP2+16 + dd FLD_LEFT2+16, (FLD_TOP+7) shl 16+2 + +ll_num db '00x.' + +move_map dd -1,+0,-0,1 ; 0 - W, 1 - S, 2 - N, 3 - E + +stdlev db 'SOKO-0.LEV',0 +stdlev_len: + +inp_pos dd inp_end-fn_input +entered dd 0 + +file_info: + dd 0 ; subfunction - read + dd 0, 0 ; file offset + dd 0x20000 ; number of bytes to read +cnf_level dd strip ; data buffer +file_name db 'SKIN.' +file_num db 'RAW',0 + + rb 256-($-file_name) + +I_END: ; конец программы + +winmode db ? +scanptr dd ? +levpage dd ? +workmode db ? +player dw ? +fld_size dd ? +levptr dd ? +wnd_height dd ? +wnd_width dd ? +color db ? +colcount db ? +levelcount dd ? +checkcount db ? +checkpoint rw 256 +levelmap rd 1024 +strip rb SKIN_SIZE + +workarea: + srch rb 0x10000-($-workarea) + +level_start rb 0x20000 +field: diff --git a/programs/games/sq_game/trunk/SQ_GAME.ASM b/programs/games/sq_game/trunk/SQ_GAME.ASM index 17106482a4..ea697fe248 100644 --- a/programs/games/sq_game/trunk/SQ_GAME.ASM +++ b/programs/games/sq_game/trunk/SQ_GAME.ASM @@ -1,241 +1,242 @@ -; SQ_game for MenuetOS -; Author: Alexei Ershov aka ealex -; E-mail: e-al[at]yandex[dot]ru -; Fidonet: 2:469/335.38 -; slightly updated by leency and renamed to Lights -; https://en.wikipedia.org/wiki/Lights_Out_(game) -; slightly optimized by diamond -; english translation by diamond (two strings in end of source) - - - BtnSize equ 36 ; размер кнопки - BtnSpace equ 0 ; промежуток между кнопками - NofBtn equ 4 ; размер поля (3-15) - Color1 equ 0xcc0000 - Color2 equ 0x00cc00 - - FieldSize = (BtnSize+BtnSpace)*NofBtn + BtnSpace*3 - center = FieldSize / 2 - margin = 20 - - - use32 ; включить 32-битный режим ассемблера - org 0x0 ; адресация с нуля - - db 'MENUET01' ; 8-байтный идентификатор MenuetOS - dd 0x01 ; версия заголовка (всегда 1) - dd START ; адрес первой команды - dd I_END ; размер программы - dd 0x1000 ; количество памяти - dd 0x1000 ; адрес вершины стэка - dd 0x0 ; адрес буфера для параметров (не используется) - dd 0x0 ; зарезервировано - -include '../../../macros.inc' ; макросы облегчают жизнь ассемблерщиков! - - -START: - call Game_Init -red: - call Draw_Window - -still: - mcall 10 ; функция 10 - ждать события - dec eax - jz red - dec eax - jnz button - - key: ; нажата клавиша на клавиатуре - mov al, 2 - int 0x40 - jmp still -;--------------------------------------------------------------------- - -button: - mov al, 17 ; 17 - получить идентификатор нажатой кнопки - int 0x40 - cmp ah, 1 ; если нажата кнопка с номером 1, выходим - je .exit - - cmp ah, 2 ; если нажата кнопка 2, начинаем новую игру - je START - - ; Нажа кнопка на поле - inc dword [moves] ; увеличиваем число ходов - - shr eax, 8 ; в eax идентификатор нажатой кнопки - - mov dh, NofBtn - div dh ; al = ax(номер кнопки) / NofBtn - ; ah = остаток (см. рисунок) - mov ebx, eax ; сохраним частное и остаток в ebx - - ; al\ah 0 1 2 3 - ; +-+ +-+ +-+ +-+ - ; 1 |4| |5| |6| |7| - ; +-+ +-+ +-+ +-+ - - ; +-+ +-+ +-+ +-+ - ; 2 |8| |9| |10 |11 - ; +-+ +-+ +-+ +-+ - - ; +-+ +-+ +-+ +-+ - ; 3 |12 |13 |14 |15 - ; +-+ +-+ +-+ +-+ - - ; +-+ +-+ +-+ +-+ - ; 4 |16 |17 |18 |19 - ; +-+ +-+ +-+ +-+ - -; Меняем цвет столбика - shr eax, 8 ; eax = ah - mov edi, field - add edi, eax ; edi указвыет на первую кнопку и искомом стлбце - mov ecx, NofBtn -@@: - not byte[edi] ; меняем цвет во всем столбике - dec ecx - add edi, NofBtn - test ecx, ecx - jnz @r - -; Меняем цвет строки - mov eax, ebx ; восстанавливаем eax - dec eax - mov dl, NofBtn - mul dl ; ax = al * NofBtn - mov edi, field - add edi, eax ; edi указвыет на первую кнопку в искомой строке - mov ecx, NofBtn -@@: - not byte [edi] ; меняем цвет во всей строке - dec ecx - inc edi - test ecx, ecx - jnz @r -; Цвет нажатой кнопки менялся 2 раза (когда обрабатывали строку и столбец), -; т.е. остался первоначалным -; Меняем цвет нажатой кнопки - shr ebx, 8 ; ebx = остаток (ah на рисунке) - not byte [field+eax+ebx] - jmp red - - - - .exit: - mcall -1 ; иначе конец программы - - -;---------------------------------------------------------------------------- -; Draw_Window -;---------------------------------------------------------------------------- -Draw_Window: - - mcall 12, 1 - mcall 0, 200*65536+FieldSize+margin*2,\ - 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 4, (BtnSpace*2+3+margin)*65536+(FieldSize+BtnSpace+margin*2)+14,\ - 0x90DDEEFF, strNew - 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 ; идентификатор первой кнопки на поле - ; см рисунок - -buttons: ; рисуем кнопочки - mov eax, edx - mov dh, NofBtn - div dh ; al = ax / dh, ah - остаток - mov dh, 0 - test ah, ah ; если ah = 0, начинаем новый ряд - jnz @f - add ecx, (BtnSize+BtnSpace)*65536 - mov ebx, (BtnSpace*2+margin)*65536+BtnSize+1 -@@: - mov esi, Color1 ; байт по адресу - cmp byte [field-NofBtn+edx], 0 ; field-NofBtn+номер_кнопки - jz @f ; говорит о ее цвете - mov esi, Color2 -@@: - mcall 8, - add ebx, (BtnSize+BtnSpace)*65536 - inc edx ; переходим к следующей кнопке - cmp edx, NofBtn*(NofBtn+1) - jb buttons - - mcall 12, 2 ; функция 12: сообщить ОС об отрисовке окна - -ret - -;---------------------------------------------------------------------------- -; Game_Init -;---------------------------------------------------------------------------- -Game_Init: - and [moves], 0 ; обнулим количество ходов - - call random ; в eax случайное число - mov ecx, NofBtn * NofBtn ; в ecx кол-во кнопок на поле - mov bh, 0 ; для каждой кнопки будем брать - ; 1 бит из eax, bh - сколько -button_init: ; бит уже использовали - shr eax, 1 ; младший бит попадает в флаг CF - ; в зависимости от его значения - ; в bl записывается -1 или 0 - sbb bl, bl - mov [field + ecx - 1], bl - - inc bh - cmp bh, 32 ; если использованы все 32 бита из eax - jb @f ; нао получить новое случайное число - call random - mov bh, 0 -@@: - loop button_init - -ret - -;---------------------------------------------------------------------------- -; random - взята из тетриса -;---------------------------------------------------------------------------- -random: mov eax,[generator] - add eax,-43ab45b5h - ror eax,1 - xor eax,32c4324fh - ror eax,1 - mov [generator],eax - ; --- IVAN --- - mov eax,26 - mov ebx,9 - int 0x40 - xor eax,0xdeadbeef - add eax,[generator] - ; --- IVAN --- - ret - -;============================================================================ - -field db NofBtn * NofBtn dup(0) -moves dd 0 -generator dd 0 - -header db 'Lights',0 - -if lang eq ru_RU -strMovs db 'ХОД',0 -strNew db 'Новая игра',0 -else -strMovs db 'MOVE',0 -strNew db ' New game',0 -end if - - - -I_END: ; метка конца программы +; SQ_game for MenuetOS +; Author: Alexei Ershov aka ealex +; E-mail: e-al[at]yandex[dot]ru +; Fidonet: 2:469/335.38 +; slightly updated by leency and renamed to Lights +; https://en.wikipedia.org/wiki/Lights_Out_(game) +; slightly optimized by diamond +; English translation by diamond (two strings in end of source) + + + BtnSize equ 36 ; размер кнопки + BtnSpace equ 0 ; промежуток между кнопками + NofBtn equ 4 ; размер поля (3-15) + Color1 equ 0xcc0000 + Color2 equ 0x00cc00 + + FieldSize = (BtnSize+BtnSpace)*NofBtn + BtnSpace*3 + center = FieldSize / 2 + margin = 20 + + + use32 ; включить 32-битный режим ассемблера + org 0x0 ; адресация с нуля + + db 'MENUET01' ; 8-байтный идентификатор MenuetOS + dd 0x01 ; версия заголовка (всегда 1) + dd START ; адрес первой команды + dd I_END ; размер программы + dd 0x1000 ; количество памяти + dd 0x1000 ; адрес вершины стэка + dd 0x0 ; адрес буфера для параметров (не используется) + dd 0x0 ; зарезервировано + +include '../../../macros.inc' ; макросы облегчают жизнь ассемблерщиков! + +; Language support for locales: ru_RU (CP866), en_US. + +START: + call Game_Init +red: + call Draw_Window + +still: + mcall 10 ; функция 10 - ждать события + dec eax + jz red + dec eax + jnz button + + key: ; нажата клавиша на клавиатуре + mov al, 2 + int 0x40 + jmp still +;--------------------------------------------------------------------- + +button: + mov al, 17 ; 17 - получить идентификатор нажатой кнопки + int 0x40 + cmp ah, 1 ; если нажата кнопка с номером 1, выходим + je .exit + + cmp ah, 2 ; если нажата кнопка 2, начинаем новую игру + je START + + ; Нажа кнопка на поле + inc dword [moves] ; увеличиваем число ходов + + shr eax, 8 ; в eax идентификатор нажатой кнопки + + mov dh, NofBtn + div dh ; al = ax(номер кнопки) / NofBtn + ; ah = остаток (см. рисунок) + mov ebx, eax ; сохраним частное и остаток в ebx + + ; al\ah 0 1 2 3 + ; +-+ +-+ +-+ +-+ + ; 1 |4| |5| |6| |7| + ; +-+ +-+ +-+ +-+ + + ; +-+ +-+ +-+ +-+ + ; 2 |8| |9| |10 |11 + ; +-+ +-+ +-+ +-+ + + ; +-+ +-+ +-+ +-+ + ; 3 |12 |13 |14 |15 + ; +-+ +-+ +-+ +-+ + + ; +-+ +-+ +-+ +-+ + ; 4 |16 |17 |18 |19 + ; +-+ +-+ +-+ +-+ + +; Меняем цвет столбика + shr eax, 8 ; eax = ah + mov edi, field + add edi, eax ; edi указвыет на первую кнопку и искомом стлбце + mov ecx, NofBtn +@@: + not byte[edi] ; меняем цвет во всем столбике + dec ecx + add edi, NofBtn + test ecx, ecx + jnz @r + +; Меняем цвет строки + mov eax, ebx ; восстанавливаем eax + dec eax + mov dl, NofBtn + mul dl ; ax = al * NofBtn + mov edi, field + add edi, eax ; edi указвыет на первую кнопку в искомой строке + mov ecx, NofBtn +@@: + not byte [edi] ; меняем цвет во всей строке + dec ecx + inc edi + test ecx, ecx + jnz @r +; Цвет нажатой кнопки менялся 2 раза (когда обрабатывали строку и столбец), +; т.е. остался первоначалным +; Меняем цвет нажатой кнопки + shr ebx, 8 ; ebx = остаток (ah на рисунке) + not byte [field+eax+ebx] + jmp red + + + + .exit: + mcall -1 ; иначе конец программы + + +;---------------------------------------------------------------------------- +; Draw_Window +;---------------------------------------------------------------------------- +Draw_Window: + + mcall 12, 1 + mcall 0, 200*65536+FieldSize+margin*2,\ + 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 4, (BtnSpace*2+3+margin)*65536+(FieldSize+BtnSpace+margin*2)+14,\ + 0x90DDEEFF, strNew + 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 ; идентификатор первой кнопки на поле + ; см рисунок + +buttons: ; рисуем кнопочки + mov eax, edx + mov dh, NofBtn + div dh ; al = ax / dh, ah - остаток + mov dh, 0 + test ah, ah ; если ah = 0, начинаем новый ряд + jnz @f + add ecx, (BtnSize+BtnSpace)*65536 + mov ebx, (BtnSpace*2+margin)*65536+BtnSize+1 +@@: + mov esi, Color1 ; байт по адресу + cmp byte [field-NofBtn+edx], 0 ; field-NofBtn+номер_кнопки + jz @f ; говорит о ее цвете + mov esi, Color2 +@@: + mcall 8, + add ebx, (BtnSize+BtnSpace)*65536 + inc edx ; переходим к следующей кнопке + cmp edx, NofBtn*(NofBtn+1) + jb buttons + + mcall 12, 2 ; функция 12: сообщить ОС об отрисовке окна + +ret + +;---------------------------------------------------------------------------- +; Game_Init +;---------------------------------------------------------------------------- +Game_Init: + and [moves], 0 ; обнулим количество ходов + + call random ; в eax случайное число + mov ecx, NofBtn * NofBtn ; в ecx кол-во кнопок на поле + mov bh, 0 ; для каждой кнопки будем брать + ; 1 бит из eax, bh - сколько +button_init: ; бит уже использовали + shr eax, 1 ; младший бит попадает в флаг CF + ; в зависимости от его значения + ; в bl записывается -1 или 0 + sbb bl, bl + mov [field + ecx - 1], bl + + inc bh + cmp bh, 32 ; если использованы все 32 бита из eax + jb @f ; нао получить новое случайное число + call random + mov bh, 0 +@@: + loop button_init + +ret + +;---------------------------------------------------------------------------- +; random - взята из тетриса +;---------------------------------------------------------------------------- +random: mov eax,[generator] + add eax,-43ab45b5h + ror eax,1 + xor eax,32c4324fh + ror eax,1 + mov [generator],eax + ; --- IVAN --- + mov eax,26 + mov ebx,9 + int 0x40 + xor eax,0xdeadbeef + add eax,[generator] + ; --- IVAN --- + ret + +;============================================================================ + +field db NofBtn * NofBtn dup(0) +moves dd 0 +generator dd 0 + +header db 'Lights',0 + +if lang eq ru_RU +strMovs db 'ХОД',0 +strNew db 'Новая игра',0 +else ; Default to en_US +strMovs db 'MOVE',0 +strNew db ' New game',0 +end if + + + +I_END: ; метка конца программы diff --git a/programs/games/sudoku/trunk/sudoku.asm b/programs/games/sudoku/trunk/sudoku.asm index 9bed8afd41..e4efcc9cbd 100644 --- a/programs/games/sudoku/trunk/sudoku.asm +++ b/programs/games/sudoku/trunk/sudoku.asm @@ -1,1162 +1,1162 @@ -; 4.11.2009 staper@inbox.ru - -; 2.06.2010 fixed a little bug in check - -;based on http://sources.codenet.ru/download/1599/Sudoku.html - -; В правом нижнем углу располагается серая кнопка, -;при нажатию на которую окно увеличивается в размере. - -; Программа проверяет строку параметров; просто передайте -;путь к файлу с задачей. - -; Сочетания клавиш: -; n - сгенерировать таблицу -; c - проверить решение -; пробел - показать решение -; +- - изменить уровень сложности -; t - приостановить/запустить секундомер -; i - ввести свой пример -; r - решить -; l - загрузить задачу из файла -; s - сохранить задачу в файл -; a - сохранить решение в файл - -use32 -org 0x0 - db 'MENUET01' - dd 0x1, START, I_END, (D_END+10000) and not 3, (D_END+10000) and not 3, buf_cmd_lin, cur_dir_path - -Difficult db 0 ;сложность [0..9] -Difficult_array db 80,75,68,59,50,45,40,36,32,25 - -;Цвета: -Bckgrd_clr equ 0xffffff ;фон -Brdr_line_clr equ 0x780000 ;линии по границам -Inter_line_clr equ 0xb0b0b0 ;внутренние линии -Square_clr equ 0xdddddd ;цвет курсора -Fix_nmb_clr equ 0x335533;0 ;статичное значение -Chg_nmb_clr equ 0;x008d8d ;переменное значение -Text_clr equ 0x000000 ;текст -Message_clr equ 0x0000ff ;сообщения - -DEBUG equ 0 - -macro dbg_dec num -{pushad -newline -debug_print_dec num -popad -} - -include '../../../macros.inc' -;include 'debug.inc' -include 'editbox_ex.mac' -include 'lang.inc' -include 'SudokuSolve.pas' - - -START: - mcall 40,7 - mcall 3 - mov [rsx1],ax - ror eax,16 - mov [rsx2],ax - rol eax,7 - mov [rsx3],ax - rol eax,7 - mov [rsx4],ax - -; call LOAD_LIB ;loading Box_Lib library - -; This is the part of the macros for load any library/libraries by -LOAD_LIB: - mcall 68,19,system_path ; load of sys directory - test eax,eax - jnz .end_steep - - bts [flags],7 -; ret - jmp .end - -.end_steep: - -; initialize import - mov edx, eax - mov esi,myimport -.import_loop: - lodsd - test eax, eax - jz .import_done - push edx -.import_find: - mov ebx, [ds:edx] - test ebx, ebx - jz .exit ;import_not_found - push eax -.lp: - mov cl, [ds:eax] - cmp cl, [ds:ebx] - jnz .import_find_next - test cl, cl - jz .import_found - inc eax - inc ebx - jmp .lp -.import_find_next: - pop eax - add edx, 8 - jmp .import_find -.import_found: - pop eax - mov eax, [ds:edx+4] - mov [esi-4], eax - pop edx - jmp .import_loop -.exit: - add esp,4 - - bts [flags],7 -;ret - jmp .end - -.import_done: - btr [flags],7 - -;определяем длину строки с параметрами - mov esi,buf_cmd_lin - xor eax,eax -@@: cmp byte [esi+eax],0 - je @f - inc eax - jmp @b -@@: mov dword [edit1.size],eax - mov dword [edit1.pos],eax -;ret -.end: - - bt [flags],7 - jc @f - mcall 68,11 - cmp dword [edit1.pos],0 - je @f - call load_sudoku - jnc redraw_all -@@: jmp key.new_game - - -redraw_all: - mcall 12,1 - mcall 48,4 - add eax,100*65536+(24*9+67) - mov ecx,eax - mcall 0,100*65536+(24*9+12),,(0x34000000+Bckgrd_clr),,title - mcall 38,1*65536+(24*9+1),21*65536+21,Brdr_line_clr - mov edx,Inter_line_clr - mov edi,3 - mov esi,3 - @@: add ecx,24*65536+24 - mcall - dec esi - jnz @b - mov esi,3 - push edx - mcall ,,,Brdr_line_clr - pop edx - dec edi - jnz @b - mcall ,1*65536+1,22*65536+236,Inter_line_clr;0xe7e6a0 - mov edx,Inter_line_clr - mov edi,3 - mov esi,3 - push edx - mcall ,,,Brdr_line_clr - pop edx - - @@: add ebx,24*65536+24 - mcall - dec esi - jnz @b - mov esi,3 - push edx - mcall ,,,Brdr_line_clr - pop edx - dec edi - jnz @b - - mcall 8,<208,8>,<257,8>,2,0xbbbbbb - mcall 4,<5,5>,(0x80000000+Text_clr),txt.new - mcall ,<105,5>,,txt.dif - mcall ,<5,258>,,txt.space - mcall ,<5,246>,,txt.check - mcall ,<129,246>,,txt.time - mcall ,<5,285>,,txt.own_map - mcall ,<5,296>,,txt.solve - mcall ,<90,296>,,txt.load - mcall ,<5,306>,,txt.save - mcall ,<90,306>,,txt.save_solve - - bts [flags],5 - call Timer.0 - call show_level - - push dword Map;esi; mov esi,Map - mcall 12,2 -draw_pole: - if DEBUG - call SysMsgBoardNum ;show esp - endf - - movzx eax,[Y] - dec al - mov ebx,9 - mul bl - mov bl,[X] - add al,bl - pop esi ; mov esi,Map - push eax ;курсорчик - mov edi,81-9 - mov ebp,9 - mov ebx,1*65536+21 - mov ecx,21*65536+41 - call out_numbers - pop eax - bt [flags],2 - jc key.0 - -still: - mcall 23,10 - test eax,eax - jz Timer - - dec al - jz redraw_all - dec al - jz key - dec al - jnz still -;button: - mcall 17 - cmp ah,1 - jne @f - mcall -1 -@@: cmp ah,2 - jne still - btc [flags],9 - mcall 48,4 - add eax,(24*9+67) - mov esi,eax - bt [flags],9 - jnc @f - add esi,40 -@@: mcall 67,-1,-1,(24*9+12), - jmp still -key: - mcall 2 - cmp ah,32 ;пробел -jne @f - btc [flags],3 - jc .todraw - push dword SolveMap - jmp draw_pole - .todraw: - push dword Map - jmp draw_pole -@@: - bt [flags],3 - jnc @f - bts [flags],2 - push eax - push dword Map - jmp draw_pole -.0: pop eax - btr [flags],2 - btr [flags],3 -@@: cmp ah,108 ;l - jne @f - bt [flags],7 - jc still - bt [flags],6 - jc still - bts [flags],8 - call window_load_save - jmp still -@@: cmp ah,115 ;s - jne @f - btr [flags],10 -.sresh: bt [flags],7 - jc still - bt [flags],6 - jc still - btr [flags],8 - call window_load_save - jmp still -@@: cmp ah,97 ;a - jne @f - bts [flags],10 - jmp .sresh -@@: cmp ah,116 ;t - jne @f - btc [flags],1 - jnc still - mcall 26,9 - sub eax,[Ticks_new] - push eax - mov eax,[Ticks] - mov ebx,100 - mul ebx - pop ecx - sub ecx,eax - add [Ticks_new],ecx - jmp still - -@@: cmp ah,105 ;i - jne @f - xor ecx,ecx - .105_0: - mov byte [SolveMap+ecx],0 - mov byte [Map+ecx],0 - inc ecx - cmp ecx,9*9 - jb .105_0 - jmp .todraw - -@@: cmp ah,114 ;r - jne .43 - xor ecx,ecx - .114_0: - mov al,[Map+ecx] - cmp al,9 - jbe @f - sub al,10 - @@: - mov [SolveMap+ecx],al - inc ecx - cmp ecx,9*9 - jb .114_0 - mov esi,SolveMap - call Solve - cmp [_iRet],1 - jne @f - mov edx,txt.check_yes - call Show_message - jmp still - @@: ;нет решений - xor ecx,ecx - @@: - mov byte [SolveMap+ecx],0 - inc ecx - cmp ecx,9*9 - jb @b - mov edx,txt.nosolve - call Show_message - jmp still - -.43: cmp ah,43 ;+ - jne .45 - cmp [Difficult],9 - je still - inc [Difficult] - call show_level - jmp still -.45: ;- - cmp ah,45 - jne .99 - cmp [Difficult],0 - je still - dec [Difficult] - call show_level - jmp still - -.99: ;Check - cmp ah,99 - jne .39 - bts [flags],15 - xor ecx,ecx - mov edx,txt.check_no -; @@: mov al,byte [Map+ecx] -; cmp byte [SolveMap+ecx],al -; jne @f -; inc ecx -; cmp ecx,9*9 -; jb @b - @@: mov al,byte [Map+ecx] ;переносим значения во временный массив - cmp al,9 - jbe .991 - sub al,10 - .991: - mov [TempMap+ecx],al - inc ecx - cmp ecx,9*9 - jb @b - mov esi,TempMap - call CheckSudoku - jc @f - mov edx,txt.check_yes - @@: btr [flags],15 - call Show_message - jmp .todraw - -.39: cmp ah,0x39 - ja .110 - cmp ah,0x30 - jb still - sub ah,0x30 - mov cl,ah - - movzx eax,[Y] - dec al - mov ebx,9 - mul bl - mov bl,[X] - dec bl - add al,bl - mov esi,Map - cmp byte [esi+eax],9 - jg still - mov [esi+eax],cl - jmp .onedraw - -.110: cmp ah,110 ;n - jne .176 -.new_game: - call GeneratePlayBoard - mov [Ticks],0 - mcall 26,9 - mov [Ticks_new],eax - jmp redraw_all - -.176: cmp ah,176 ;курсоры - jne .177 - call draw_one_symbol - dec [X] - cmp [X],1 - jge @f - mov [X],9 -@@: jmp .onedraw -.177: cmp ah,177 - jne .178 - call draw_one_symbol - inc [Y] - cmp [Y],9 - jbe @f - mov [Y],1 -@@: jmp .onedraw -.178: cmp ah,178 - jne .179 - call draw_one_symbol - dec [Y] - cmp [Y],1 - jge @f - mov [Y],9 -@@: jmp .onedraw -.179: cmp ah,179 - jne still - call draw_one_symbol - inc [X] - cmp [X],9 - jbe @f - mov [X],1 -@@: -.onedraw: - bts [flags],4 - call draw_one_symbol - jmp still ;.todraw - -show_level: - movzx ecx,[Difficult] - mcall 47,0x10000,,<205,5>,(0x50000000+Text_clr),Bckgrd_clr -ret - -Show_message: - mcall 4,<5,269>,(0xd0000000+Message_clr),,,Bckgrd_clr -ret - -Timer: - bt [flags],1 - jc still - mcall 26,9 - sub eax,[Ticks_new] - mov ebx,100 - xor edx,edx - div ebx - cmp eax,[Ticks] - je still - mov [Ticks],eax -.1: mov ebx,60 - xor edx,edx - div ebx - push eax - mov ecx,edx - mcall 47,0x00020000,,<206,246>,(0x40000000+Text_clr),Bckgrd_clr - pop ecx - mov edx,189*65536+246 - mcall - bt [flags],5 - jnc @f - btr [flags],5 - ret -@@: jmp still -.0: mov eax,[Ticks] - jmp .1 - -draw_one_symbol: - movzx eax,[X] - mov ebx,24*65536+24 - mul ebx - xchg eax,ebx - add ebx,(1*65536+21-24*65536+24) - movzx eax,[Y] - mov ecx,24*65536+24 - mul ecx - xchg eax,ecx - add ecx,(21*65536+41-24*65536+24) - movzx eax,[Y] - dec al - push ebx - mov ebx,9 - mul bl - mov bl,[X] - add al,bl - dec al - pop ebx - mov esi,Map - add esi,eax - push dword 0 ;не курсор - bt [flags],4 - jnc @f - mov dword [esp],1 ;курсор - btr [flags],4 -@@: mov edi,0 - mov ebp,1 - call out_numbers - pop eax -ret - - -out_numbers: - push ebx ecx esi - shr ebx,16 - inc bx - shl ebx,16 - add ebx,23 - shr ecx,16 - inc cx - shl ecx,16 - add ecx,23 - mov edx,Bckgrd_clr - push ebp - dec dword [esp+4*5] - jnz @f - mov edx,Square_clr -@@: mcall 13 - pop ebp - pop esi - - cmp byte [esi],0 - je .null - cmp byte [esi],9 - jbe .changeable_number - cmp byte [esi],19 - jbe .fixed_number - jmp .null -.end: - inc esi - dec ebp - jnz out_numbers - test edi,edi - jz @f - sub edi,9 - mov ebp,9 - add ebx,-9*24*65536-9*24 - add ecx,24*65536+24 - jmp out_numbers - @@: -ret - -.fixed_number: - push esi - shr ebx,16 - shr ecx,16 - mov dx,bx - shl edx,16 - mov dx,cx - add edx,8*65536+4 - movzx ebx,byte [esi] - sub ebx,10 - dec ebx - shl ebx,4 - add ebx,FONT - mov ecx,8*65536+16 - push esi ebp edi - mov edi,Pltr.fx - cmp dword [esp+4*7],0 - jne @f - mov edi,Pltr.fxk -@@: mov esi,1 - mov ebp,0 - mcall 65 - pop edi ebp esi -.1: pop esi ecx ebx - add ebx,24*65536+24 - jmp .end - -.null: - pop ecx ebx - add ebx,24*65536+24 - jmp .end -.changeable_number: - push esi - shr ebx,16 - shr ecx,16 - mov dx,bx - shl edx,16 - mov dx,cx - add edx,8*65536+4 - movzx ebx,byte [esi] - dec ebx - shl ebx,4 - add ebx,FONT - mov ecx,8*65536+16 - push esi ebp edi - mov edi,Pltr.ch - cmp dword [esp+4*7],0 - jne @f - mov edi,Pltr.chk -@@: mov esi,1 - mov ebp,0 - mcall 65 - pop edi ebp esi - jmp .1 - - - -GeneratePlayBoard: -;i db 0 -;j db 0 -;RandI db 0 -;RandJ db 0 -;iRet db 0 -;//генерируем решенную матрицу -;m: -;for i:=0 to 8 do -; for j:=0 to 8 do -; begin -; Map[i,j]:=0; -; SolveMap[i,j]:=0; -; RealMap[i,j]:=0; -; end; - mov edi,Map - mov esi,SolveMap - mov edx,RealMap - xor ecx,ecx - @@: - mov byte [edi+ecx],0 - mov byte [esi+ecx],0 - mov byte [edx+ecx],0 - inc ecx - cmp ecx,9*9 - jb @b - -;//ставим рандомно несколько чисел на поле -;for i:=1 to 21 do -; begin -; RandI:=random(9); -; RandJ:=random(9); -; if SolveMap[RandI,RandJ]=0 then -; begin -; SolveMap[RandI,RandJ]:=random(9)+1; -; if not CheckSudoku(SolveMap) then -; begin -; SolveMap[RandI,RandJ]:=0; -; Continue; -; end; -; end else Continue; -; end; - - mov ecx,21 -.1: mov eax,9 - call random - mov ebx,eax - mov eax,9 - call random - mov ah,9 - mul ah - add eax,ebx ;RandI,RandJ - cmp byte [esi+eax],0 - jne .loop - mov ebx,eax - mov eax,9 - call random - mov byte [esi+ebx],al - call CheckSudoku - jnc .loop - mov byte [esi+ebx],0 - .loop: - loop .1 - - -;//решаем Судоку -;iRet:=Solve(SolveMap); -;if iRet<>1 then goto m; -;i:=1; - - mov esi,SolveMap - call Solve - cmp [_iRet],1 - jne GeneratePlayBoard - - movzx ecx,[Difficult] - movzx ecx,byte [Difficult_array+ecx] - -;case Difficult of -;1: -; while i<=42 do -; begin -; RandI:=random(9); -; RandJ:=random(9); -; if RealMap[RandI,RandJ]<>0 then Continue else -; RealMap[RandI,RandJ]:=SolveMap[RandI,RandJ]; -; inc(i); -; end; -;2: -; while i<=32 do -; begin -; RandI:=random(9); -; RandJ:=random(9); -; if RealMap[RandI,RandJ]<>0 then Continue else -; RealMap[RandI,RandJ]:=SolveMap[RandI,RandJ]; -; inc(i); -; end; -;3: -; while i<=25 do -; begin -; RandI:=random(9); -; RandJ:=random(9); -; if RealMap[RandI,RandJ]<>0 then Continue else -; RealMap[RandI,RandJ]:=SolveMap[RandI,RandJ]; -; inc(i); -; end; -;end; - -.2: - mov eax,9 - call random - mov ebx,eax - mov eax,9 - call random - mov ah,9 - mul ah - cmp al,81 - jb @f - dec al - @@: - add eax,ebx ;RandI,RandJ - cmp byte [RealMap+eax],0 - jne .loop2 - add byte [SolveMap+eax],10 - mov bl,[SolveMap+eax] - mov byte [RealMap+eax],bl - .loop2: - loop .2 - -;for i:=0 to 8 do -; for j:=0 to 8 do -; Map[i,j]:=RealMap[i,j]; -;end; - - xor ecx,ecx -@@: mov al,[RealMap+ecx] - mov [Map+ecx],al - inc ecx - cmp ecx,9*9 - jb @b -ret - - - - -align 4 -rsx1 dw ?;0x4321 -rsx2 dw ?;0x1234 -rsx3 dw ?;0x62e9 -rsx4 dw ?;0x3619 -random: ; из ASCL - push ecx ebx esi edx - mov cx,ax - mov ax,[rsx1] - mov bx,[rsx2] - mov si,ax - mov di,bx - mov dl,ah - mov ah,al - mov al,bh - mov bh,bl - xor bl,bl - rcr dl,1 - rcr ax,1 - rcr bx,1 - add bx,di - adc ax,si - add bx,[rsx3] - adc ax,[rsx4] - sub [rsx3],di - adc [rsx4],si - mov [rsx1],bx - mov [rsx2],ax - xor dx,dx - cmp ax,0 - je nodiv - cmp cx,0 - je nodiv - div cx -nodiv: - mov ax,dx - pop edx esi ebx ecx - and eax,0000ffffh -ret - - - -if DEBUG -SysMsgBoardNum: ;warning: destroys eax,ebx,ecx,esi - mov ebx,esp - mov ecx,8 - mov esi,(number_to_out+1) -.1: - mov eax,ebx - and eax,0xF - add al,'0' - cmp al,(10+'0') - jb @f - add al,('A'-'0'-10) -@@: - mov [esi+ecx],al - shr ebx,4 - loop .1 - dec esi - mcall 71,1,number_to_out -ret - -number_to_out db '0x00000000',13,10,0 -endf - - - -window_load_save: - popad - mcall 51,1,.thread,(threat_stack+32*4) - pushad - ret -.thread: - bts [flags],6 -.red: - mcall 12,1 - mov edi,txt.load - bt [flags],8 - jc @f - mov edi,txt.save - bt [flags],10 - jnc @f - mov edi,txt.save_solve -@@: mcall 0,50*65536+300,0x70*65536+60,(0x34000000+Bckgrd_clr),, - mcall 8,<245,43>,<2,14>,100,0xaaaaaa - mcall 4,<252,5>,(0x80000000+Text_clr),txt.enter - push dword edit1 - call [edit_box_draw] - mcall 12,2 -.still: - mcall 10 - dec al - jz .red - dec al - jz .key - dec al - jz .button - jmp .still -.button: - mcall 17,1 - cmp ah,1 - jne @f - .end: btr [flags],6 - mcall -1 - @@: cmp ah,100 - jne .still - bt [flags],8 - jc .ld - .sv: call save_sudoku - jnc .end - jmp .err - .ld: call load_sudoku - jnc .end - .err: mcall 4,<5,19>,(0x80000000+Text_clr),txt.error - jmp .still - - -.key: - mcall 2 - cmp ah,13 - jne @f - bt [flags],8 - jc .ld - jmp .sv - @@: cmp ah,27 - je .end - push dword edit1 - call [edit_box_key] - jmp .still - - -save_sudoku: - mov [_size],9*(9+2) - mcall 68,12,[_size] - test eax,eax - jnz @f - stc - ret - -@@: mov [_buffer],eax - mov edx,Map - bt [flags],10 - jnc @f - mov edx,SolveMap -@@: mov esi,eax;[_buffer] - mov ecx,[_size] - xor edi,edi - dec edi - mov ebx,9 -.1: test ecx,ecx - jz .end - test ebx,ebx - jz .2 - inc edi - dec ebx - mov al,[edx+edi] - test al,al - jnz @f - mov byte [esi+edi],0x23 - loop .1 - jmp .end -@@: cmp al,9 - jbe @f - sub al,10 -@@: add al,48 - mov byte [esi+edi],al - loop .1 - jmp .end -.2: mov ebx,9 - mov byte [esi+edi+1],13 - mov byte [esi+edi+2],10 - add esi,2 - sub ecx,2 - jmp .1 - - -.end: mov [func_70.func_n],2 - push [_size] - pop [func_70.param3] - push [_buffer] - pop [func_70.param4] - mov [func_70.name],buf_cmd_lin - mcall 70,func_70 - cmp al,0 ;сохранён удачно? - je @f - mcall 68,13,[_buffer] - stc - ret -@@: mcall 68,13,[_buffer] - clc -ret - -load_sudoku: - mov [func_70.func_n],5 - mov [func_70.param3],0 - mov [func_70.param4],bufferfinfo - mov [func_70.name],buf_cmd_lin - mcall 70,func_70 - test al,al ;файл найден? - jz @f - stc - ret - @@: mov eax, dword [bufferfinfo+32] ;копируем размер файла - cmp eax,81 - jge @f - stc - ret -@@: cmp eax,100 - jb @f - stc - ret - -_size dd 0 -_buffer dd 0 - -@@: mov [_size],eax - mcall 68,12,[_size] - test eax,eax - jnz @f - stc - ret ;ошибка на выделение блока - @@: - mov [_buffer],eax - mov [func_70.func_n],0 - mov [func_70.name],buf_cmd_lin - push dword [_size] - pop dword [func_70.param3] - push dword [_buffer] - pop dword [func_70.param4] - mcall 70,func_70 - test eax,eax - jz @f - stc - ret ;ошибка чтения -@@: - - mov edx,Map - mov esi,[_buffer] - mov ecx,[_size] - xor edi,edi - dec edi -.1: test ecx,ecx - jz .end - inc edi - mov al,[esi+edi] - cmp al,0x23 - jne @f - mov byte [edx+edi],0 - loop .1 - jmp .end -@@: cmp al,13 - jne @f - add esi,2 - dec edi - sub ecx,2 - jmp .1 -@@: sub al,48 - mov byte [edx+edi],al - loop .1 -.end: mcall 68,13,[_buffer] - - xor ecx,ecx -@@: mov byte [SolveMap+ecx],0 - inc ecx - cmp ecx,9*9 - jb @b - - mov [Ticks],0 - mcall 26,9 - mov [Ticks_new],eax - - clc -ret - - - - -align 4 -myimport: -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 - dd 0 - dd 0 -aEdit_box_draw db 'edit_box_draw',0 -aEdit_box_key db 'edit_box_key',0 -aEdit_box_mouse db 'edit_box_mouse',0 -aVersion_ed db 'version_ed',0 - -edit1 edit_box 240,2,2,Bckgrd_clr,0x6a9480,0,0xAABBCC,0,4096,buf_cmd_lin,ed_focus,2,0,0 - -func_70: - .func_n dd ? - .param1 dd 0 - .param2 dd 0 - .param3 dd ? - .param4 dd ? - .rezerv db 0 - .name dd ? - -if lang eq ru_RU -title db 'Судоку',0 -txt: -.dif db "Сложность (+/-):",0 -.new db 'Новая (N)',0 -.space db 'Решение (Пробел)',0 -.check db 'Проверить (C)',0 -.check_yes db 'Решение найдено',0 -.check_no = .nosolve -.time db "Время (T) :",0 -.own_map db 'Ввести свою Судоку для решения (I)',0 -.nosolve db 'Не решено ',0 -.solve db 'Решить (R)',0 -.save db 'Сохранить (S)',0 -.save_solve db 'Сохранить решение (A)',0 -.error db 'Ошибка',0 -.load db 'Загрузить (L)',0 -.enter db 'Enter',0 -else -title db 'Sudoku',0 -txt: -.dif db "Difficult (+/-)",0 -.new db 'New (N)',0 -.space db 'Solution (Space)',0 -.check db 'Check (C)',0 -.check_yes db 'Right ',0 -.check_no db 'Not right ',0 -.time db " Time (T) :",0 -.own_map db 'Input your own Sudoku (I)',0 -.nosolve db 'It is not solved',0 -.solve db 'Solve (R)',0 -.save db 'Save (S)',0 -.save_solve db 'Save solution (A)',0 -.error db 'Error';,0 -.load db 'Load (L)',0 -.enter db 'Enter',0 -endf - -system_path db '/sys/lib/' -boxlib_name db 'box_lib.obj',0 - -X db 1 -Y db 1 - -Pltr: -.ch dd Bckgrd_clr,Chg_nmb_clr -.chk dd Square_clr,Chg_nmb_clr -.fx dd Bckgrd_clr,Fix_nmb_clr -.fxk dd Square_clr,Fix_nmb_clr - -align 4 -FONT file "sudoku.fnt" -;Палитры: - - -I_END: -align 16 -Map rb 9*9 -SolveMap rb 9*9 -RealMap rb 9*9 -TempMap rb 9*9 - -cur_dir_path rb 4096 -buf_cmd_lin rb 4096 -bufferfinfo rb 40 -Ticks_new rd 1 ;dd 0 -Ticks rd 1 ;dd 0 -flags rw 1 -threat_stack rd 32 ;: times 32 dd 0 - -D_END: -;бит 0: см. перед draw_pole -;1: 1-таймер включён -;2: в draw_pole и key -;3: 1-показать решённую карту -;4: in draw_one_symbol -;5: in Timer -;6: 1 на экране окно Сохранения/Загрузки -;7: box_lib is not loaded -;8: 0 - сохранить 1 - загрузить -;9: 1 - увеличить высоту окна -;10: 1 - сохранить решение -;15 1 - проверка при нажатии клавиши С (для CheckSudoku) +; 4.11.2009 staper@inbox.ru + +; 2.06.2010 fixed a little bug in check + +;based on http://sources.codenet.ru/download/1599/Sudoku.html + +; В правом нижнем углу располагается серая кнопка, +;при нажатию на которую окно увеличивается в размере. + +; Программа проверяет строку параметров; просто передайте +;путь к файлу с задачей. + +; Сочетания клавиш: +; n - сгенерировать таблицу +; c - проверить решение +; пробел - показать решение +; +- - изменить уровень сложности +; t - приостановить/запустить секундомер +; i - ввести свой пример +; r - решить +; l - загрузить задачу из файла +; s - сохранить задачу в файл +; a - сохранить решение в файл + +use32 +org 0x0 + db 'MENUET01' + dd 0x1, START, I_END, (D_END+10000) and not 3, (D_END+10000) and not 3, buf_cmd_lin, cur_dir_path + +Difficult db 0 ;сложность [0..9] +Difficult_array db 80,75,68,59,50,45,40,36,32,25 + +;Цвета: +Bckgrd_clr equ 0xffffff ;фон +Brdr_line_clr equ 0x780000 ;линии по границам +Inter_line_clr equ 0xb0b0b0 ;внутренние линии +Square_clr equ 0xdddddd ;цвет курсора +Fix_nmb_clr equ 0x335533;0 ;статичное значение +Chg_nmb_clr equ 0;x008d8d ;переменное значение +Text_clr equ 0x000000 ;текст +Message_clr equ 0x0000ff ;сообщения + +DEBUG equ 0 + +macro dbg_dec num +{pushad +newline +debug_print_dec num +popad +} + +include '../../../macros.inc' +;include 'debug.inc' +include 'editbox_ex.mac' +include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US. +include 'SudokuSolve.pas' + + +START: + mcall 40,7 + mcall 3 + mov [rsx1],ax + ror eax,16 + mov [rsx2],ax + rol eax,7 + mov [rsx3],ax + rol eax,7 + mov [rsx4],ax + +; call LOAD_LIB ;loading Box_Lib library + +; This is the part of the macros for load any library/libraries by +LOAD_LIB: + mcall 68,19,system_path ; load of sys directory + test eax,eax + jnz .end_steep + + bts [flags],7 +; ret + jmp .end + +.end_steep: + +; initialize import + mov edx, eax + mov esi,myimport +.import_loop: + lodsd + test eax, eax + jz .import_done + push edx +.import_find: + mov ebx, [ds:edx] + test ebx, ebx + jz .exit ;import_not_found + push eax +.lp: + mov cl, [ds:eax] + cmp cl, [ds:ebx] + jnz .import_find_next + test cl, cl + jz .import_found + inc eax + inc ebx + jmp .lp +.import_find_next: + pop eax + add edx, 8 + jmp .import_find +.import_found: + pop eax + mov eax, [ds:edx+4] + mov [esi-4], eax + pop edx + jmp .import_loop +.exit: + add esp,4 + + bts [flags],7 +;ret + jmp .end + +.import_done: + btr [flags],7 + +;определяем длину строки с параметрами + mov esi,buf_cmd_lin + xor eax,eax +@@: cmp byte [esi+eax],0 + je @f + inc eax + jmp @b +@@: mov dword [edit1.size],eax + mov dword [edit1.pos],eax +;ret +.end: + + bt [flags],7 + jc @f + mcall 68,11 + cmp dword [edit1.pos],0 + je @f + call load_sudoku + jnc redraw_all +@@: jmp key.new_game + + +redraw_all: + mcall 12,1 + mcall 48,4 + add eax,100*65536+(24*9+67) + mov ecx,eax + mcall 0,100*65536+(24*9+12),,(0x34000000+Bckgrd_clr),,title + mcall 38,1*65536+(24*9+1),21*65536+21,Brdr_line_clr + mov edx,Inter_line_clr + mov edi,3 + mov esi,3 + @@: add ecx,24*65536+24 + mcall + dec esi + jnz @b + mov esi,3 + push edx + mcall ,,,Brdr_line_clr + pop edx + dec edi + jnz @b + mcall ,1*65536+1,22*65536+236,Inter_line_clr;0xe7e6a0 + mov edx,Inter_line_clr + mov edi,3 + mov esi,3 + push edx + mcall ,,,Brdr_line_clr + pop edx + + @@: add ebx,24*65536+24 + mcall + dec esi + jnz @b + mov esi,3 + push edx + mcall ,,,Brdr_line_clr + pop edx + dec edi + jnz @b + + mcall 8,<208,8>,<257,8>,2,0xbbbbbb + mcall 4,<5,5>,(0x80000000+Text_clr),txt.new + mcall ,<105,5>,,txt.dif + mcall ,<5,258>,,txt.space + mcall ,<5,246>,,txt.check + mcall ,<129,246>,,txt.time + mcall ,<5,285>,,txt.own_map + mcall ,<5,296>,,txt.solve + mcall ,<90,296>,,txt.load + mcall ,<5,306>,,txt.save + mcall ,<90,306>,,txt.save_solve + + bts [flags],5 + call Timer.0 + call show_level + + push dword Map;esi; mov esi,Map + mcall 12,2 +draw_pole: + if DEBUG + call SysMsgBoardNum ;show esp + endf + + movzx eax,[Y] + dec al + mov ebx,9 + mul bl + mov bl,[X] + add al,bl + pop esi ; mov esi,Map + push eax ;курсорчик + mov edi,81-9 + mov ebp,9 + mov ebx,1*65536+21 + mov ecx,21*65536+41 + call out_numbers + pop eax + bt [flags],2 + jc key.0 + +still: + mcall 23,10 + test eax,eax + jz Timer + + dec al + jz redraw_all + dec al + jz key + dec al + jnz still +;button: + mcall 17 + cmp ah,1 + jne @f + mcall -1 +@@: cmp ah,2 + jne still + btc [flags],9 + mcall 48,4 + add eax,(24*9+67) + mov esi,eax + bt [flags],9 + jnc @f + add esi,40 +@@: mcall 67,-1,-1,(24*9+12), + jmp still +key: + mcall 2 + cmp ah,32 ;пробел +jne @f + btc [flags],3 + jc .todraw + push dword SolveMap + jmp draw_pole + .todraw: + push dword Map + jmp draw_pole +@@: + bt [flags],3 + jnc @f + bts [flags],2 + push eax + push dword Map + jmp draw_pole +.0: pop eax + btr [flags],2 + btr [flags],3 +@@: cmp ah,108 ;l + jne @f + bt [flags],7 + jc still + bt [flags],6 + jc still + bts [flags],8 + call window_load_save + jmp still +@@: cmp ah,115 ;s + jne @f + btr [flags],10 +.sresh: bt [flags],7 + jc still + bt [flags],6 + jc still + btr [flags],8 + call window_load_save + jmp still +@@: cmp ah,97 ;a + jne @f + bts [flags],10 + jmp .sresh +@@: cmp ah,116 ;t + jne @f + btc [flags],1 + jnc still + mcall 26,9 + sub eax,[Ticks_new] + push eax + mov eax,[Ticks] + mov ebx,100 + mul ebx + pop ecx + sub ecx,eax + add [Ticks_new],ecx + jmp still + +@@: cmp ah,105 ;i + jne @f + xor ecx,ecx + .105_0: + mov byte [SolveMap+ecx],0 + mov byte [Map+ecx],0 + inc ecx + cmp ecx,9*9 + jb .105_0 + jmp .todraw + +@@: cmp ah,114 ;r + jne .43 + xor ecx,ecx + .114_0: + mov al,[Map+ecx] + cmp al,9 + jbe @f + sub al,10 + @@: + mov [SolveMap+ecx],al + inc ecx + cmp ecx,9*9 + jb .114_0 + mov esi,SolveMap + call Solve + cmp [_iRet],1 + jne @f + mov edx,txt.check_yes + call Show_message + jmp still + @@: ;нет решений + xor ecx,ecx + @@: + mov byte [SolveMap+ecx],0 + inc ecx + cmp ecx,9*9 + jb @b + mov edx,txt.nosolve + call Show_message + jmp still + +.43: cmp ah,43 ;+ + jne .45 + cmp [Difficult],9 + je still + inc [Difficult] + call show_level + jmp still +.45: ;- + cmp ah,45 + jne .99 + cmp [Difficult],0 + je still + dec [Difficult] + call show_level + jmp still + +.99: ;Check + cmp ah,99 + jne .39 + bts [flags],15 + xor ecx,ecx + mov edx,txt.check_no +; @@: mov al,byte [Map+ecx] +; cmp byte [SolveMap+ecx],al +; jne @f +; inc ecx +; cmp ecx,9*9 +; jb @b + @@: mov al,byte [Map+ecx] ;переносим значения во временный массив + cmp al,9 + jbe .991 + sub al,10 + .991: + mov [TempMap+ecx],al + inc ecx + cmp ecx,9*9 + jb @b + mov esi,TempMap + call CheckSudoku + jc @f + mov edx,txt.check_yes + @@: btr [flags],15 + call Show_message + jmp .todraw + +.39: cmp ah,0x39 + ja .110 + cmp ah,0x30 + jb still + sub ah,0x30 + mov cl,ah + + movzx eax,[Y] + dec al + mov ebx,9 + mul bl + mov bl,[X] + dec bl + add al,bl + mov esi,Map + cmp byte [esi+eax],9 + jg still + mov [esi+eax],cl + jmp .onedraw + +.110: cmp ah,110 ;n + jne .176 +.new_game: + call GeneratePlayBoard + mov [Ticks],0 + mcall 26,9 + mov [Ticks_new],eax + jmp redraw_all + +.176: cmp ah,176 ;курсоры + jne .177 + call draw_one_symbol + dec [X] + cmp [X],1 + jge @f + mov [X],9 +@@: jmp .onedraw +.177: cmp ah,177 + jne .178 + call draw_one_symbol + inc [Y] + cmp [Y],9 + jbe @f + mov [Y],1 +@@: jmp .onedraw +.178: cmp ah,178 + jne .179 + call draw_one_symbol + dec [Y] + cmp [Y],1 + jge @f + mov [Y],9 +@@: jmp .onedraw +.179: cmp ah,179 + jne still + call draw_one_symbol + inc [X] + cmp [X],9 + jbe @f + mov [X],1 +@@: +.onedraw: + bts [flags],4 + call draw_one_symbol + jmp still ;.todraw + +show_level: + movzx ecx,[Difficult] + mcall 47,0x10000,,<205,5>,(0x50000000+Text_clr),Bckgrd_clr +ret + +Show_message: + mcall 4,<5,269>,(0xd0000000+Message_clr),,,Bckgrd_clr +ret + +Timer: + bt [flags],1 + jc still + mcall 26,9 + sub eax,[Ticks_new] + mov ebx,100 + xor edx,edx + div ebx + cmp eax,[Ticks] + je still + mov [Ticks],eax +.1: mov ebx,60 + xor edx,edx + div ebx + push eax + mov ecx,edx + mcall 47,0x00020000,,<206,246>,(0x40000000+Text_clr),Bckgrd_clr + pop ecx + mov edx,189*65536+246 + mcall + bt [flags],5 + jnc @f + btr [flags],5 + ret +@@: jmp still +.0: mov eax,[Ticks] + jmp .1 + +draw_one_symbol: + movzx eax,[X] + mov ebx,24*65536+24 + mul ebx + xchg eax,ebx + add ebx,(1*65536+21-24*65536+24) + movzx eax,[Y] + mov ecx,24*65536+24 + mul ecx + xchg eax,ecx + add ecx,(21*65536+41-24*65536+24) + movzx eax,[Y] + dec al + push ebx + mov ebx,9 + mul bl + mov bl,[X] + add al,bl + dec al + pop ebx + mov esi,Map + add esi,eax + push dword 0 ;не курсор + bt [flags],4 + jnc @f + mov dword [esp],1 ;курсор + btr [flags],4 +@@: mov edi,0 + mov ebp,1 + call out_numbers + pop eax +ret + + +out_numbers: + push ebx ecx esi + shr ebx,16 + inc bx + shl ebx,16 + add ebx,23 + shr ecx,16 + inc cx + shl ecx,16 + add ecx,23 + mov edx,Bckgrd_clr + push ebp + dec dword [esp+4*5] + jnz @f + mov edx,Square_clr +@@: mcall 13 + pop ebp + pop esi + + cmp byte [esi],0 + je .null + cmp byte [esi],9 + jbe .changeable_number + cmp byte [esi],19 + jbe .fixed_number + jmp .null +.end: + inc esi + dec ebp + jnz out_numbers + test edi,edi + jz @f + sub edi,9 + mov ebp,9 + add ebx,-9*24*65536-9*24 + add ecx,24*65536+24 + jmp out_numbers + @@: +ret + +.fixed_number: + push esi + shr ebx,16 + shr ecx,16 + mov dx,bx + shl edx,16 + mov dx,cx + add edx,8*65536+4 + movzx ebx,byte [esi] + sub ebx,10 + dec ebx + shl ebx,4 + add ebx,FONT + mov ecx,8*65536+16 + push esi ebp edi + mov edi,Pltr.fx + cmp dword [esp+4*7],0 + jne @f + mov edi,Pltr.fxk +@@: mov esi,1 + mov ebp,0 + mcall 65 + pop edi ebp esi +.1: pop esi ecx ebx + add ebx,24*65536+24 + jmp .end + +.null: + pop ecx ebx + add ebx,24*65536+24 + jmp .end +.changeable_number: + push esi + shr ebx,16 + shr ecx,16 + mov dx,bx + shl edx,16 + mov dx,cx + add edx,8*65536+4 + movzx ebx,byte [esi] + dec ebx + shl ebx,4 + add ebx,FONT + mov ecx,8*65536+16 + push esi ebp edi + mov edi,Pltr.ch + cmp dword [esp+4*7],0 + jne @f + mov edi,Pltr.chk +@@: mov esi,1 + mov ebp,0 + mcall 65 + pop edi ebp esi + jmp .1 + + + +GeneratePlayBoard: +;i db 0 +;j db 0 +;RandI db 0 +;RandJ db 0 +;iRet db 0 +;//генерируем решенную матрицу +;m: +;for i:=0 to 8 do +; for j:=0 to 8 do +; begin +; Map[i,j]:=0; +; SolveMap[i,j]:=0; +; RealMap[i,j]:=0; +; end; + mov edi,Map + mov esi,SolveMap + mov edx,RealMap + xor ecx,ecx + @@: + mov byte [edi+ecx],0 + mov byte [esi+ecx],0 + mov byte [edx+ecx],0 + inc ecx + cmp ecx,9*9 + jb @b + +;//ставим рандомно несколько чисел на поле +;for i:=1 to 21 do +; begin +; RandI:=random(9); +; RandJ:=random(9); +; if SolveMap[RandI,RandJ]=0 then +; begin +; SolveMap[RandI,RandJ]:=random(9)+1; +; if not CheckSudoku(SolveMap) then +; begin +; SolveMap[RandI,RandJ]:=0; +; Continue; +; end; +; end else Continue; +; end; + + mov ecx,21 +.1: mov eax,9 + call random + mov ebx,eax + mov eax,9 + call random + mov ah,9 + mul ah + add eax,ebx ;RandI,RandJ + cmp byte [esi+eax],0 + jne .loop + mov ebx,eax + mov eax,9 + call random + mov byte [esi+ebx],al + call CheckSudoku + jnc .loop + mov byte [esi+ebx],0 + .loop: + loop .1 + + +;//решаем Судоку +;iRet:=Solve(SolveMap); +;if iRet<>1 then goto m; +;i:=1; + + mov esi,SolveMap + call Solve + cmp [_iRet],1 + jne GeneratePlayBoard + + movzx ecx,[Difficult] + movzx ecx,byte [Difficult_array+ecx] + +;case Difficult of +;1: +; while i<=42 do +; begin +; RandI:=random(9); +; RandJ:=random(9); +; if RealMap[RandI,RandJ]<>0 then Continue else +; RealMap[RandI,RandJ]:=SolveMap[RandI,RandJ]; +; inc(i); +; end; +;2: +; while i<=32 do +; begin +; RandI:=random(9); +; RandJ:=random(9); +; if RealMap[RandI,RandJ]<>0 then Continue else +; RealMap[RandI,RandJ]:=SolveMap[RandI,RandJ]; +; inc(i); +; end; +;3: +; while i<=25 do +; begin +; RandI:=random(9); +; RandJ:=random(9); +; if RealMap[RandI,RandJ]<>0 then Continue else +; RealMap[RandI,RandJ]:=SolveMap[RandI,RandJ]; +; inc(i); +; end; +;end; + +.2: + mov eax,9 + call random + mov ebx,eax + mov eax,9 + call random + mov ah,9 + mul ah + cmp al,81 + jb @f + dec al + @@: + add eax,ebx ;RandI,RandJ + cmp byte [RealMap+eax],0 + jne .loop2 + add byte [SolveMap+eax],10 + mov bl,[SolveMap+eax] + mov byte [RealMap+eax],bl + .loop2: + loop .2 + +;for i:=0 to 8 do +; for j:=0 to 8 do +; Map[i,j]:=RealMap[i,j]; +;end; + + xor ecx,ecx +@@: mov al,[RealMap+ecx] + mov [Map+ecx],al + inc ecx + cmp ecx,9*9 + jb @b +ret + + + + +align 4 +rsx1 dw ?;0x4321 +rsx2 dw ?;0x1234 +rsx3 dw ?;0x62e9 +rsx4 dw ?;0x3619 +random: ; из ASCL + push ecx ebx esi edx + mov cx,ax + mov ax,[rsx1] + mov bx,[rsx2] + mov si,ax + mov di,bx + mov dl,ah + mov ah,al + mov al,bh + mov bh,bl + xor bl,bl + rcr dl,1 + rcr ax,1 + rcr bx,1 + add bx,di + adc ax,si + add bx,[rsx3] + adc ax,[rsx4] + sub [rsx3],di + adc [rsx4],si + mov [rsx1],bx + mov [rsx2],ax + xor dx,dx + cmp ax,0 + je nodiv + cmp cx,0 + je nodiv + div cx +nodiv: + mov ax,dx + pop edx esi ebx ecx + and eax,0000ffffh +ret + + + +if DEBUG +SysMsgBoardNum: ;warning: destroys eax,ebx,ecx,esi + mov ebx,esp + mov ecx,8 + mov esi,(number_to_out+1) +.1: + mov eax,ebx + and eax,0xF + add al,'0' + cmp al,(10+'0') + jb @f + add al,('A'-'0'-10) +@@: + mov [esi+ecx],al + shr ebx,4 + loop .1 + dec esi + mcall 71,1,number_to_out +ret + +number_to_out db '0x00000000',13,10,0 +endf + + + +window_load_save: + popad + mcall 51,1,.thread,(threat_stack+32*4) + pushad + ret +.thread: + bts [flags],6 +.red: + mcall 12,1 + mov edi,txt.load + bt [flags],8 + jc @f + mov edi,txt.save + bt [flags],10 + jnc @f + mov edi,txt.save_solve +@@: mcall 0,50*65536+300,0x70*65536+60,(0x34000000+Bckgrd_clr),, + mcall 8,<245,43>,<2,14>,100,0xaaaaaa + mcall 4,<252,5>,(0x80000000+Text_clr),txt.enter + push dword edit1 + call [edit_box_draw] + mcall 12,2 +.still: + mcall 10 + dec al + jz .red + dec al + jz .key + dec al + jz .button + jmp .still +.button: + mcall 17,1 + cmp ah,1 + jne @f + .end: btr [flags],6 + mcall -1 + @@: cmp ah,100 + jne .still + bt [flags],8 + jc .ld + .sv: call save_sudoku + jnc .end + jmp .err + .ld: call load_sudoku + jnc .end + .err: mcall 4,<5,19>,(0x80000000+Text_clr),txt.error + jmp .still + + +.key: + mcall 2 + cmp ah,13 + jne @f + bt [flags],8 + jc .ld + jmp .sv + @@: cmp ah,27 + je .end + push dword edit1 + call [edit_box_key] + jmp .still + + +save_sudoku: + mov [_size],9*(9+2) + mcall 68,12,[_size] + test eax,eax + jnz @f + stc + ret + +@@: mov [_buffer],eax + mov edx,Map + bt [flags],10 + jnc @f + mov edx,SolveMap +@@: mov esi,eax;[_buffer] + mov ecx,[_size] + xor edi,edi + dec edi + mov ebx,9 +.1: test ecx,ecx + jz .end + test ebx,ebx + jz .2 + inc edi + dec ebx + mov al,[edx+edi] + test al,al + jnz @f + mov byte [esi+edi],0x23 + loop .1 + jmp .end +@@: cmp al,9 + jbe @f + sub al,10 +@@: add al,48 + mov byte [esi+edi],al + loop .1 + jmp .end +.2: mov ebx,9 + mov byte [esi+edi+1],13 + mov byte [esi+edi+2],10 + add esi,2 + sub ecx,2 + jmp .1 + + +.end: mov [func_70.func_n],2 + push [_size] + pop [func_70.param3] + push [_buffer] + pop [func_70.param4] + mov [func_70.name],buf_cmd_lin + mcall 70,func_70 + cmp al,0 ;сохранён удачно? + je @f + mcall 68,13,[_buffer] + stc + ret +@@: mcall 68,13,[_buffer] + clc +ret + +load_sudoku: + mov [func_70.func_n],5 + mov [func_70.param3],0 + mov [func_70.param4],bufferfinfo + mov [func_70.name],buf_cmd_lin + mcall 70,func_70 + test al,al ;файл найден? + jz @f + stc + ret + @@: mov eax, dword [bufferfinfo+32] ;копируем размер файла + cmp eax,81 + jge @f + stc + ret +@@: cmp eax,100 + jb @f + stc + ret + +_size dd 0 +_buffer dd 0 + +@@: mov [_size],eax + mcall 68,12,[_size] + test eax,eax + jnz @f + stc + ret ;ошибка на выделение блока + @@: + mov [_buffer],eax + mov [func_70.func_n],0 + mov [func_70.name],buf_cmd_lin + push dword [_size] + pop dword [func_70.param3] + push dword [_buffer] + pop dword [func_70.param4] + mcall 70,func_70 + test eax,eax + jz @f + stc + ret ;ошибка чтения +@@: + + mov edx,Map + mov esi,[_buffer] + mov ecx,[_size] + xor edi,edi + dec edi +.1: test ecx,ecx + jz .end + inc edi + mov al,[esi+edi] + cmp al,0x23 + jne @f + mov byte [edx+edi],0 + loop .1 + jmp .end +@@: cmp al,13 + jne @f + add esi,2 + dec edi + sub ecx,2 + jmp .1 +@@: sub al,48 + mov byte [edx+edi],al + loop .1 +.end: mcall 68,13,[_buffer] + + xor ecx,ecx +@@: mov byte [SolveMap+ecx],0 + inc ecx + cmp ecx,9*9 + jb @b + + mov [Ticks],0 + mcall 26,9 + mov [Ticks_new],eax + + clc +ret + + + + +align 4 +myimport: +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 + dd 0 + dd 0 +aEdit_box_draw db 'edit_box_draw',0 +aEdit_box_key db 'edit_box_key',0 +aEdit_box_mouse db 'edit_box_mouse',0 +aVersion_ed db 'version_ed',0 + +edit1 edit_box 240,2,2,Bckgrd_clr,0x6a9480,0,0xAABBCC,0,4096,buf_cmd_lin,ed_focus,2,0,0 + +func_70: + .func_n dd ? + .param1 dd 0 + .param2 dd 0 + .param3 dd ? + .param4 dd ? + .rezerv db 0 + .name dd ? + +if lang eq ru_RU +title db 'Судоку',0 +txt: +.dif db "Сложность (+/-):",0 +.new db 'Новая (N)',0 +.space db 'Решение (Пробел)',0 +.check db 'Проверить (C)',0 +.check_yes db 'Решение найдено',0 +.check_no = .nosolve +.time db "Время (T) :",0 +.own_map db 'Ввести свою Судоку для решения (I)',0 +.nosolve db 'Не решено ',0 +.solve db 'Решить (R)',0 +.save db 'Сохранить (S)',0 +.save_solve db 'Сохранить решение (A)',0 +.error db 'Ошибка',0 +.load db 'Загрузить (L)',0 +.enter db 'Enter',0 +else ; Default to en_US +title db 'Sudoku',0 +txt: +.dif db "Difficult (+/-)",0 +.new db 'New (N)',0 +.space db 'Solution (Space)',0 +.check db 'Check (C)',0 +.check_yes db 'Right ',0 +.check_no db 'Not right ',0 +.time db " Time (T) :",0 +.own_map db 'Input your own Sudoku (I)',0 +.nosolve db 'It is not solved',0 +.solve db 'Solve (R)',0 +.save db 'Save (S)',0 +.save_solve db 'Save solution (A)',0 +.error db 'Error';,0 +.load db 'Load (L)',0 +.enter db 'Enter',0 +endf + +system_path db '/sys/lib/' +boxlib_name db 'box_lib.obj',0 + +X db 1 +Y db 1 + +Pltr: +.ch dd Bckgrd_clr,Chg_nmb_clr +.chk dd Square_clr,Chg_nmb_clr +.fx dd Bckgrd_clr,Fix_nmb_clr +.fxk dd Square_clr,Fix_nmb_clr + +align 4 +FONT file "sudoku.fnt" +;Палитры: + + +I_END: +align 16 +Map rb 9*9 +SolveMap rb 9*9 +RealMap rb 9*9 +TempMap rb 9*9 + +cur_dir_path rb 4096 +buf_cmd_lin rb 4096 +bufferfinfo rb 40 +Ticks_new rd 1 ;dd 0 +Ticks rd 1 ;dd 0 +flags rw 1 +threat_stack rd 32 ;: times 32 dd 0 + +D_END: +;бит 0: см. перед draw_pole +;1: 1-таймер включён +;2: в draw_pole и key +;3: 1-показать решённую карту +;4: in draw_one_symbol +;5: in Timer +;6: 1 на экране окно Сохранения/Загрузки +;7: box_lib is not loaded +;8: 0 - сохранить 1 - загрузить +;9: 1 - увеличить высоту окна +;10: 1 - сохранить решение +;15 1 - проверка при нажатии клавиши С (для CheckSudoku) diff --git a/programs/games/sw/trunk/sw.asm b/programs/games/sw/trunk/sw.asm index 4985a19582..1341c399c0 100644 --- a/programs/games/sw/trunk/sw.asm +++ b/programs/games/sw/trunk/sw.asm @@ -1,1372 +1,1372 @@ -;v. 0.4: 20.10.2009 staper@inbox.ru - -use32 - org 0x0 - db 'MENUET01' - dd 0x1 - dd START - dd I_END - dd (I_END+600) and not 3 - dd (I_END+600) and not 3 - dd 0x0,0x0 - -DEBUG equ 0 - -use_new_logic equ 1 ;фюсрты хЄ яЁютхЁъє ъыхЄъш эр "юъЁєц╕ээюёЄ№", яЁюуЁрььр т√сшЁрхЄ эршсюыхх ётюсюфэє■ -use_ext_logic equ 1 ;ъ use_new_logic, фюяюыэшЄхы№эр  яЁютхЁър  ўххъ тюъЁєу чрфрээющ ъыхЄъш - -include '../../../macros.inc' -include 'lang.inc' - -;include 'debug.inc' - -macro dbg_dec num -{pushad -newline -debug_print_dec num -popad} - - -START: - - mcall 40,100111b - mcall 3 - mov [rsx1],ax - shr eax,16 - mov [rsx2],ax - jmp new_game - -redraw_all: - mcall 12,1 - mcall 0,100*65536+432,100*65536+260,0x34FFFFFF,,title - mcall 38,1*65536+421,27*65536+27,0x00b0b0b0 - mov edi,10 - @@: add ecx,20*65536+20 - mcall - dec edi - jnz @b - mcall ,1*65536+1,27*65536+226,;000000 - mov edi,21 - @@: add ebx,20*65536+20 - mcall - dec edi - jnz @b - mcall 13,202*65536+19,27*65536+202,0xFFFFFF - mcall 4,40*65536+12,0x80000000,text_user - mcall ,350*65536+12,,text_cpu - mcall 8,120*65536+70,7*65536+15,2,0xFFFFFF - mcall ,230*65536+70,,3, - mcall 4,135*65536+12,0x80000000,but_new - mcall ,240*65536+12,,but_auto - mcall 12,2 -ret - -draw_pole: -; mcall 0,100*65536+432,100*65536+260,0x74FFFFFF,,title - if DEBUG - call SysMsgBoardNum ;show esp - mcall 8,200*65536+10,7*65536+15,4,0xFFFFFF - endf - - - - mov esi,table1 - mov edi,90 - mov ebp,10 - mov ebx,1*65536+21 - mov ecx,27*65536+47 - call draw_bots - - mov esi,table5 - mov edi,90 - mov ebp,10 - mov ebx,221*65536+241 - mov ecx,27*65536+47 - call draw_bots - cmp [u_kill],10 - jne @f - mcall 4,69*65536+12,0x80ff0000,text_win - bts [flags],5 - @@: cmp [c_kill],10 - jne @f - mcall 4,372*65536+12,0x80ff0000,text_win - bts [flags],5 - @@: mcall 12,2 - cmp [number_bots],10 - jne still - bts [flags],0 -still: - mcall 10 - - cmp eax,6 - je mouse - dec eax - jnz @f - call redraw_all - jmp draw_pole -@@: dec eax - jz key - dec eax - jz button - jmp still - -key: - mcall 2 - jmp still - -button: - mcall 17 - dec ah - jnz @f - mcall -1 - - @@: mov ecx,(344)/4 - mov esi,table1 - .3: mov dword [esi],0 - add esi,4 - loop .3 - - dec ah - jz @f - - mov [flags],1001b ;auto fill - mov [number_bots],0 - - call set_bots - mov [number_bots],0 - bts [flags],2 - call set_bots - call redraw_all - btc [flags2],0 - jc second_pole.comp - jmp draw_pole - - @@: ;new game - mov [number_bots],0 -new_game: - mov [flags],1100b - call set_bots - btr [flags],0 - btr [flags],3 - btr [flags],2 - mov [number_bots],0 - call redraw_all - jmp draw_pole - -draw_bots: - cmp byte [esi],1 - je .one - cmp byte [esi],2 - je .two - cmp byte [esi],3 - je .three - cmp byte [esi],4 - jne .null - bts [flags],4 - jmp .three - -.end: - inc esi - dec ebp - jnz draw_bots - test edi,edi - jz @f - sub edi,10 - mov ebp,10 - add ebx,-200*65536-200 - add ecx,20*65536+20 - jmp draw_bots - @@: -ret - -.one: - push ebx ecx - call .0 - mov edx,0x00aa66 - mcall 13 - pop ecx ebx -.null: - add ebx,20*65536+20 - jmp .end -.two: - push ebx ecx - add ebx,8*65536-6 - add ecx,12*65536-12 - mcall 38,,,0x508cec - add ecx,-6*65536+6 - mcall - pop ecx ebx - jmp .null -.three: - push ebx ecx - call .0 - mov edx,0x00FF0000 - bt [flags],4 - jnc @f - mov edx,0x00555555 - btr [flags],4 - @@: mcall 13 - pop ecx ebx - xor edx,edx - mcall 38 - add ecx,20*65536-20 - mcall - add ecx,-20*65536+20 - jmp .null - -.0: - shr ebx,16 - inc bx - shl ebx,16 - add ebx,19 - shr ecx,16 - inc cx - shl ecx,16 - add ecx,19 -ret - -mouse: - bt [flags],5 - jc still - mcall 37,2 - test eax,eax - jz still - cmp al,2 - jg still - ;1 - левая кнопка, 2 - правая - dec al - jnz .mouse_1 - btr [flags],1 - jmp @f - .mouse_1: - bts [flags],1 - @@: - mcall 37,1 - mov dx,ax - shr eax,16 - cmp dx,27 - jbe still - cmp dx,227 - jge still - cmp ax,1 - jbe still - cmp ax,201 - jge second_pole - ;первое поле - bt [flags],0 - jc still - sub ax,1 - push dx - xor edx,edx - mov cx,20 - div cx - pop dx - mov [oX],al - push ax - sub dx,27 - mov ax,dx - xor dx,dx - div cx - mov [oY],al - xor dx,dx - mov cx,10 - mul cx - pop dx - add ax,dx - cmp ax,100 - jg still - -set_bot: - mov esi,table1 - bt [flags],2 - jnc @f - mov esi,table2 - @@: mov edi,esi - add edi,100 - cmp [number_bots],6 - jnb .1paluba - cmp [number_bots],3 - jnb .2paluba - cmp [number_bots],0 - je .4paluba - jmp .3paluba - -.4paluba: - bt [flags],1 ;четырёхпалубный - jnc @f - cmp [oX],6 - jg _still - jmp .41 - @@: cmp [oY],6 - jg _still - .41: inc [number_bots] - mov [edi],al - bt [flags],1 - jc @f - add al,10 - mov [edi+1],al - add al,10 - mov [edi+2],al - add al,10 - mov [edi+3],al - jmp init_table - @@: inc al - mov [edi+1],al - inc al - mov [edi+2],al - inc al - mov [edi+3],al - jmp init_table - - -.3paluba: ;трёхпалубный - bt [flags],1 - jnc @f - cmp [oX],7 - jg _still - jmp .31 - @@: cmp [oY],7 - jg _still - .31: - call find_near - - bt [flags],1 - jc @f - add al,10 - call find_near - add al,10 - call find_near - sub al,20 - jmp .32 - @@: inc al - call find_near - inc al - call find_near - sub al,2 - .32: - inc [number_bots] - mov ecx,4 - mov dl,[number_bots] - sub dl,2 - jz @f - add ecx,3 - @@: - mov [edi+ecx],al - bt [flags],1 - jc @f - add al,10 - mov [edi+ecx+1],al - add al,10 - mov [edi+ecx+2],al -jmp init_table - @@: inc al - mov [edi+ecx+1],al - inc al - mov [edi+ecx+2],al -jmp init_table - - - -.2paluba: ;двухпалубный - bt [flags],1 - jnc @f - cmp [oX],8 - jg _still - jmp .21 - @@: cmp [oY],8 - jg _still - .21: - call find_near - bt [flags],1 - jc @f - add al,10 - call find_near - sub al,10 - jmp .22 - @@: inc al - call find_near - dec al - .22: - inc [number_bots] - mov ecx,8 - mov dl,[number_bots] - sub dl,4 - jz @f - add ecx,2 - dec dl - jz @f - add ecx,2 - @@: add ecx,2 - mov [edi+ecx],al - bt [flags],1 - jc @f - add al,10 - mov [edi+ecx+1],al -jmp init_table - @@: inc al - mov [edi+ecx+1],al -jmp init_table - - -.1paluba: ;однопалубный - call find_near - inc [number_bots] - xor edx,edx - movzx ecx,[number_bots] - add ecx,9 - mov [edi+ecx],al -jmp init_table - -find_near: - push ax - call f_near ;0 - - cmp al,10 - jb @f - sub al,10 ;-10 - call f_near - -@@: cmp al,11 - jb @f - - xor edx,edx - mov ecx,10 - div cx - mov ax,[esp] - cmp dx,0 - je @f - - sub al,11 ;-11 - call f_near - -@@: cmp al,9 - jb @f - - xor edx,edx - mov ecx,10 - div cx - mov ax,[esp] - cmp dx,9 - je @f - - sub al,9 ;-9 - call f_near - -@@: cmp al,1 - jb @f - - xor edx,edx - mov ecx,10 - div cx - mov ax,[esp] - cmp dx,0 - je @f - - dec al ;-1 - call f_near - -@@: cmp al,99 - jg @f - - xor edx,edx - mov ecx,10 - div cx - mov ax,[esp] - cmp dx,9 - je @f - - inc al ;+1 - call f_near - -@@: cmp al,90 - jge @f - add al,10 ;+10 - call f_near - -@@: cmp al,91 - jge @f - - xor edx,edx - mov ecx,10 - div cx - mov ax,[esp] - cmp dx,0 - je @f - - add al,9 ;+9 - call f_near - -@@: cmp al,89 - jge @f - - xor edx,edx - mov ecx,10 - div cx - mov ax,[esp] - cmp dx,9 - je @f - add al,11 ;+11 - call f_near - -@@: pop ax -; xor bl,bl -; bt [flags],6 -; jnc @f -; bt [flags],9 -; jnc @f -; inc [p_pov] -; cmp [p_pov],20 -; jb @f -; bts [flags],9 -; @@: - btr [flags],6 - clc -ret - -f_near: - bt [flags],6 - jnc .2 -; bt [flags],9 -; jc @f -; cmp byte [esi+eax],2 -; jge @f -; @@: - cmp byte [esi+eax],4 - je @f - mov ax,[esp+4] - ret - @@:; add esp,4 -; jmp second_pole.cpu - mov ax,[esp+4] - mov cx,ax - add esp,6 - btr [flags],6 - stc -; mov bl,1 - ret - - .2: movzx edx, byte [smeshenie] - @@: cmp al,[edi+edx] - je .end - dec dl - jnz @b - cmp al,[edi] - je .end - mov ax,[esp+4] - ret - .end: add esp,10 - jmp _still - - - -init_table: -; xor eax,eax - movzx ecx, byte [number_bots] - mov edx,3 - dec cl - jz .i_t - - mov al,2 -.2: add dl,3 - dec cl - jz .i_t - dec al - jnz .2 - - mov al,3 -.3: add dl,2 - dec cl - jz .i_t - dec al - jnz .3 - - mov al,4 -.4: inc dl - dec cl - jz .i_t - dec al - jnz .4 - -.i_t: mov [smeshenie],dl -@@: movzx eax, byte [edi+edx] - mov byte [esi+eax],1 - dec dl - jnz @b - movzx eax, byte [edi] - mov byte [esi+eax],1 - bt [flags],3 - jc set_bots -; mcall 12,1 - jmp draw_pole - - -second_pole: - cmp ax,221 - jbe still - cmp ax,421 - jge still - ;второе поле - bt [flags],0 - jnc still - sub ax,221 - push dx - xor edx,edx - mov cx,20 - div cx - pop dx - push ax - sub dx,27 - mov ax,dx - xor dx,dx - div cx - xor dx,dx - mov cx,10 - mul cx - pop dx - add ax,dx - cmp ax,100 - jg still - - mov edi,table2 - mov esi,table5 - cmp byte [esi+eax],2 - jge still - mov bl, byte [edi+eax] - add bl,2 - mov ecx,table5 - call if_bot_killed - mov [esi+eax],bl - cmp bl,3 - jge .m_end -.comp: mov esi,table1 - - - - .cpu: -; jmp .rndm - xor eax,eax -; mov edi,4 - btr [flags],8 - xor ecx,ecx - mov edx,tbl_ranen - mov dword [edx],0 - @@: mov al,[esi+ecx] ;поиск "подраненного корабля" - cmp al,3 - je .0 - cmp cl,99 - jge .1 - inc cl - jmp @b - .0: mov [edx],cl -if DEBUG -dbg_dec ecx -endf - inc edx - inc cl - jmp @b - - .1: - dec edx - mov cl,[edx] - cmp edx,tbl_ranen - jb .rndm - je @f - sub cl,[edx-1] - cmp cl,1 - jne .2 - add cl,[edx-1] - jmp .12 - .2: - add cl,[edx-1] - jmp .13 - - @@: bts [flags],8 - mov eax,4 - call random - dec al - jz .11 - dec al - jz .12 - dec al - jz .13 - jmp .14 - .11: -if DEBUG -dbg_dec 100 -endf - cmp cl,10 - jge @f - bts [flags],8 - jmp .12 - @@: sub cl,10 - cmp byte [esi+ecx],2 - jge @f - mov eax,ecx - bts [flags],6 - call find_near -; test bl,bl -; jz .20 - jnc .20 - @@: bts [flags],8 - add cl,10 - bts [flags],8 - .12: -if DEBUG -dbg_dec 200 -endf - movzx eax,cl - push cx - mov ch,10 - div ch - pop cx - cmp ah,9 - jb @f - .121: - bt [flags],8 - jc .13 - bts [flags],8 - mov edx,tbl_ranen - mov cl,[edx] - jmp .14 - @@: inc cl - cmp byte [esi+ecx],2 - jge @f - mov eax,ecx - bts [flags],6 - call find_near -; test bl,bl -; jz .20 - jnc .20 - @@: dec cl - jmp .121 - - .13: -if DEBUG -dbg_dec 300 -endf - cmp cl,90 - jb @f - .131: - bt [flags],8 - jc .14 - bts [flags],8 - mov edx,tbl_ranen - mov cl,[edx] - jmp .11 - @@: add cl,10 - cmp byte [esi+ecx],2 - jge @f - mov eax,ecx - bts [flags],6 - call find_near -; test bl,bl -; jz .20 - jnc .20 - @@: sub cl,10 - jmp .131 - - .14: -if DEBUG -dbg_dec 400 -endf - movzx eax,cl - push cx - mov ch,10 - div ch - pop cx - cmp ah,0 - jne @f - .141: - bts [flags],8 - jmp .11;cpu;rndm - @@: dec cl - cmp byte [esi+ecx],2 - jge @f - mov eax,ecx - bts [flags],6 - call find_near -; test bl,bl -; jz .20 - jnc .20 - @@: inc cl - jmp .141 - -.rndm: - - mov eax,100 - call random - cmp eax,100 - jb @f - shr eax,1 -@@: - -if use_new_logic - btc [flags],10 - jnc @f - btc [flags],9 - jnc @f - call check_freedom -endf - -@@: cmp byte [esi+eax],2 - jb @f; .rndm - ;поиск свободной клеточки перед/после выбранной, - ;иначе random иногда входит в бесконечный цикл - bt ax,0 - jnc .r_1 - .r_0: - cmp al,0 - je .r_1 - dec al - - cmp byte [esi+eax],2 - jb @f - jmp .r_0 - .r_1: - cmp al,99 - je .r_0 - inc al - - cmp byte [esi+eax],2 - jb @f - jmp .r_1 -@@: - bts [flags],6 - call find_near -; test bl,bl -; jnz .cpu - jc .cpu;20 - -.20: - mov bl,[esi+eax] - add bl,2 - mov ecx,esi - mov edi,esi - call if_bot_killed - mov [esi+eax],bl -; cmp [u_kill],10 -; je .m_end - cmp [c_kill],10 - je .m_end - cmp bl,3 - jge .cpu - -.m_end:; mcall 12,1 -jmp draw_pole - -if_bot_killed: - push ebx - add edi,100 - mov ebx,19 - @@: cmp al,[edi+ebx] - je @f - dec ebx - jnz @b - cmp al,[edi+ebx] - jne .end - @@: - cmp ebx,16 - jnb .end_i - - @@: cmp bl,10 - jb .2 - btc bx,0 - mov bl, [edi+ebx] - cmp byte [ecx+ebx],3 - jne .end - inc byte [ecx+ebx] - jmp .end_i - - .2: cmp bl,4 - jb .3 - add edi,4 - cmp bl,7 - jb .3 - add edi,3 - .3: movzx edx, byte [edi] - cmp dl,al - je @f - cmp byte [ecx+edx],3 - jne .end - @@: mov dl,[edi+1] - cmp dl,al - je @f - cmp byte [ecx+edx],3 - jne .end - @@: mov dl,[edi+2] - cmp dl,al - je @f - cmp byte [ecx+edx],3 - jne .end - - @@: cmp bl,4 - jnb @f - mov dl,[edi+3] - cmp dl,al - je @f - cmp byte [ecx+edx],3 - jne .end - - - @@: mov dl,[edi] - cmp dl,al - je @f - inc byte [ecx+edx] - @@: mov dl,[edi+1] - cmp dl,al - je @f - inc byte [ecx+edx] - @@: mov dl,[edi+2] - - cmp bl,4 - jnb .9;@f - -; cmp dl,al -; je .end_i -; inc byte [ecx+edx] -; jmp .end_i - - - @@: cmp dl,al - je @f - inc byte [ecx+edx] - @@: mov dl,[edi+3] -.9: cmp dl,al - je .end_i - inc byte [ecx+edx] - .end_i: - pop ebx - inc ebx - cmp ecx,table5 - jne @f - inc [u_kill] - ret - @@: inc [c_kill] - ret - .end: pop ebx -ret - - - - -_still: - bt [flags],3 - jnc still - -set_bots: - cmp [number_bots],10 - jne @f - ret - @@: xor edx,edx - mov ecx,10 - cmp [number_bots],6 - jb @f - push dword 10 - jmp .1 - @@: cmp [number_bots],3 - jb @f - push dword 9 - jmp .1 - @@: cmp [number_bots],2 - jb @f - push dword 8 - jmp .1 - @@: push dword 7 - .1: - mov eax,[esp] - call random - mov [oX],al - mul cl - mov cl,al - mov eax,[esp] - call random - mov [oY],al - add cl,al - - cmp cl,100 - jge .1 - - add esp,4 - mov eax,2 - call random - cmp al,1 - jne @f - bts [flags],1 - mov al,cl - jmp set_bot - @@: btr [flags],1 - mov al,cl - jmp set_bot - - - - - - -;процедура отлавливает "наиболее свободную" из клеток для атаки - -if use_new_logic -check_freedom: -; mov esi,table1 - push ax - push word 100 - xor eax,eax - mov ebx,0x900 - -.1: bts [flags],6 - call find_near - jc .11 - cmp byte [esi+eax],2 ;0 - jb @f -.11: inc bl - -@@: cmp al,10 ;-10 - jb @f - push ax - - sub al,10 - if use_ext_logic - bts [flags],6 - call find_near - jc .21 - endf - cmp byte [esi+eax],2 - jb .22 -.21: inc bl -.22: pop ax - -@@: cmp al,11 - jb @f - push ax - - xor edx,edx - mov ecx,10 - push ax - div cx - pop ax - - cmp dx,0 - je .32 - - sub al,11 - if use_ext_logic - bts [flags],6 - call find_near - jc .31 - endf - cmp byte [esi+eax],2 ;-11 - jb .32 -.31: inc bl -.32: pop ax - -@@: cmp al,9 - jb @f - push ax - - xor edx,edx - mov ecx,10 - push ax - div cx - pop ax - cmp dx,9 - je .42 - - sub eax,9 - if use_ext_logic - bts [flags],6 - call find_near - jc .41 - endf - cmp byte [esi+eax],2 ;-9 - jb .42 -.41: inc bl -.42: pop ax - -@@: cmp al,1 - jb @f - push ax - - xor edx,edx - mov ecx,10 - push ax - div cx - pop ax - cmp dx,0 - je .52 - - dec al - if use_ext_logic - bts [flags],6 - call find_near - jc .51 - endf - cmp byte [esi+eax],2 ;-1 - jb .52 -.51: inc bl -.52: pop ax - -@@: cmp al,99 - jg @f - push ax - - xor edx,edx - mov ecx,10 - push ax - div cx - pop ax - cmp dx,9 - je .62 - - inc al - if use_ext_logic - bts [flags],6 - call find_near - jc .61 - endf - cmp byte [esi+eax],2 ;+1 - jb .62 -.61: inc bl -.62: pop ax - -@@: cmp al,90 - jge @f - push ax - add al,10 - if use_ext_logic - bts [flags],6 - call find_near - jc .71 - endf - cmp byte [esi+eax],2 ;+10 - jb .72 -.71: inc bl -.72: pop ax - -@@: cmp al,91 - jge @f - push ax - xor edx,edx - mov ecx,10 - push ax - div cx - pop ax - cmp dx,0 - je .82 - - add al,9 - if use_ext_logic - bts [flags],6 - call find_near - jc .81 - endf - cmp byte [esi+eax],2 ;+9 - jb .82 -.81: inc bl -.82: pop ax - -@@: cmp al,89 - jge @f - push ax - - xor edx,edx - mov ecx,10 - push ax - div cx - pop ax - - cmp dx,9 - je .92 - - add al,11 - if use_ext_logic - bts [flags],6 - call find_near - jc .91 - endf - cmp byte [esi+eax],2 ;+11 - jb .92 -.91: inc bl -.92: pop ax - -@@: bt [flags],7 - jc .ret - cmp byte [esi+eax],1 - jg @f - cmp bl,bh - jg @f - -; shl ebx,8 - bts [flags],6 - call find_near -; xchg cl,bl -; shr ebx,8 -; test cl,cl -; jnz @f - jc @f - - shl bx,8 - pop dx ;dh - ближайшая слева свободнейшая клетка, dl - справа - pop cx ;cl - рандомно выбранная клетка -; cmp al,dl -; jg .5 -; cmp al,cl -; jb .4 -; mov dl,al -; jmp .5 -;.4: cmp al,dh -; jb .5 -; mov dh,al - cmp al,dh - jb .5 - cmp al,cl - jg .4 - mov dh,al - jmp .5 -.4: cmp al,dl - jg .5 - mov dl,al -.5: push cx dx -@@: xor bl,bl - inc al - cmp al,100 - jb .1 - pop dx ax - -if DEBUG -dbg_dec eax -dbg_dec edx -endf - cmp dl,100 - jb @f - mov al,dh - ret -@@: mov al,dh - push dx - bts [flags],7 - call .1 - shl bx,8 - mov al,[esp] - call .1 - pop dx - btr [flags],7 - mov al,dl - test bl,bh - jbe .ret - mov al,dh -.ret: -ret - -endf - - - - - - - -align 4 -rsx1 dw ?;0x4321 -rsx2 dw ?;0x1234 -random: ; из ASCL - push ecx edx esi - mov cx,ax - mov ax,[rsx1] - mov bx,[rsx2] - mov si,ax - mov di,bx - mov dl,ah - mov ah,al - mov al,bh - mov bh,bl - xor bl,bl - rcr dl,1 - rcr ax,1 - rcr bx,1 - add bx,di - adc ax,si - add bx,0x62e9 - adc ax,0x3619 - mov [rsx1],bx - mov [rsx2],ax - xor dx,dx - cmp ax,0 - je nodiv - cmp cx,0 - je nodiv - div cx -nodiv: - mov ax,dx - pop esi edx ecx - and eax,0000ffffh -ret - - -if DEBUG -SysMsgBoardNum: ;warning: destroys eax,ebx,ecx,esi - mov ebx,esp - mov ecx,8 - mov esi,(number_to_out+1) -.1: - mov eax,ebx - and eax,0xF - cmp al,10 - sbb al,69h - das - mov [esi+ecx],al - shr ebx,4 - loop .1 - dec esi - mcall 71,1,number_to_out -ret - -number_to_out db '0x00000000',13,10,0 -endf - - - - -text_cpu db 'CPU',0 -text_user db 'USER',0 -if lang eq ru_RU -title db 'Морской бой 0.4',0 -but_auto db 'Расставить',0 -but_new db 'Новая',0 -text_win db 'Выиграл!',0 -else -title db 'Sea war 0.4',0 -but_auto db 'Auto fill',0 -but_new db 'New',0 -text_win db 'Won!',0 -endf - -I_END: -; t1,t3,t5: 0-непомеченная клеточка, 1-занятая, 2-"промах", 3-"горит", 4-"потоплен" -; t2,t4: таблицы расположения элементов, 1 элемент по 4 клетки, 2x3, 3x2, 4x1 -align 16 -table1 rb 100 ;левое поле -table3 rb 20 -table2 rb 100 ;правое -table4 rb 20 -table5 rb 100 -u_kill rb 1 -c_kill rb 1 -p_pov rb 1 -smeshenie rb 1 -number_bots rb 1 -oX rb 1 -oY rb 1 -tbl_ranen rb 4 - -flags rw 1 -flags2 rw 1 -;бит 0: 0/1 - заполнение таблиц /игра -;1: нажата левая кнопка мыши (вертикаль) /правая (горизонталь) -;2: заполняется левое поле /правое -;3: ручное заполнение /автозаполнение -;4: в .three - потопленный корабль -;5: игра окончена -;6: в second_pole - вызов find_near -;7: в check_freedom -;8: зарезервировано -;9: зарезервировано -;10: зарезервировано +;v. 0.4: 20.10.2009 staper@inbox.ru + +use32 + org 0x0 + db 'MENUET01' + dd 0x1 + dd START + dd I_END + dd (I_END+600) and not 3 + dd (I_END+600) and not 3 + dd 0x0,0x0 + +DEBUG equ 0 + +use_new_logic equ 1 ;фюсрты хЄ яЁютхЁъє ъыхЄъш эр "юъЁєц╕ээюёЄ№", яЁюуЁрььр т√сшЁрхЄ эршсюыхх ётюсюфэє■ +use_ext_logic equ 1 ;ъ use_new_logic, фюяюыэшЄхы№эр  яЁютхЁър  ўххъ тюъЁєу чрфрээющ ъыхЄъш + +include '../../../macros.inc' +include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US. + +;include 'debug.inc' + +macro dbg_dec num +{pushad +newline +debug_print_dec num +popad} + + +START: + + mcall 40,100111b + mcall 3 + mov [rsx1],ax + shr eax,16 + mov [rsx2],ax + jmp new_game + +redraw_all: + mcall 12,1 + mcall 0,100*65536+432,100*65536+260,0x34FFFFFF,,title + mcall 38,1*65536+421,27*65536+27,0x00b0b0b0 + mov edi,10 + @@: add ecx,20*65536+20 + mcall + dec edi + jnz @b + mcall ,1*65536+1,27*65536+226,;000000 + mov edi,21 + @@: add ebx,20*65536+20 + mcall + dec edi + jnz @b + mcall 13,202*65536+19,27*65536+202,0xFFFFFF + mcall 4,40*65536+12,0x80000000,text_user + mcall ,350*65536+12,,text_cpu + mcall 8,120*65536+70,7*65536+15,2,0xFFFFFF + mcall ,230*65536+70,,3, + mcall 4,135*65536+12,0x80000000,but_new + mcall ,240*65536+12,,but_auto + mcall 12,2 +ret + +draw_pole: +; mcall 0,100*65536+432,100*65536+260,0x74FFFFFF,,title + if DEBUG + call SysMsgBoardNum ;show esp + mcall 8,200*65536+10,7*65536+15,4,0xFFFFFF + endf + + + + mov esi,table1 + mov edi,90 + mov ebp,10 + mov ebx,1*65536+21 + mov ecx,27*65536+47 + call draw_bots + + mov esi,table5 + mov edi,90 + mov ebp,10 + mov ebx,221*65536+241 + mov ecx,27*65536+47 + call draw_bots + cmp [u_kill],10 + jne @f + mcall 4,69*65536+12,0x80ff0000,text_win + bts [flags],5 + @@: cmp [c_kill],10 + jne @f + mcall 4,372*65536+12,0x80ff0000,text_win + bts [flags],5 + @@: mcall 12,2 + cmp [number_bots],10 + jne still + bts [flags],0 +still: + mcall 10 + + cmp eax,6 + je mouse + dec eax + jnz @f + call redraw_all + jmp draw_pole +@@: dec eax + jz key + dec eax + jz button + jmp still + +key: + mcall 2 + jmp still + +button: + mcall 17 + dec ah + jnz @f + mcall -1 + + @@: mov ecx,(344)/4 + mov esi,table1 + .3: mov dword [esi],0 + add esi,4 + loop .3 + + dec ah + jz @f + + mov [flags],1001b ;auto fill + mov [number_bots],0 + + call set_bots + mov [number_bots],0 + bts [flags],2 + call set_bots + call redraw_all + btc [flags2],0 + jc second_pole.comp + jmp draw_pole + + @@: ;new game + mov [number_bots],0 +new_game: + mov [flags],1100b + call set_bots + btr [flags],0 + btr [flags],3 + btr [flags],2 + mov [number_bots],0 + call redraw_all + jmp draw_pole + +draw_bots: + cmp byte [esi],1 + je .one + cmp byte [esi],2 + je .two + cmp byte [esi],3 + je .three + cmp byte [esi],4 + jne .null + bts [flags],4 + jmp .three + +.end: + inc esi + dec ebp + jnz draw_bots + test edi,edi + jz @f + sub edi,10 + mov ebp,10 + add ebx,-200*65536-200 + add ecx,20*65536+20 + jmp draw_bots + @@: +ret + +.one: + push ebx ecx + call .0 + mov edx,0x00aa66 + mcall 13 + pop ecx ebx +.null: + add ebx,20*65536+20 + jmp .end +.two: + push ebx ecx + add ebx,8*65536-6 + add ecx,12*65536-12 + mcall 38,,,0x508cec + add ecx,-6*65536+6 + mcall + pop ecx ebx + jmp .null +.three: + push ebx ecx + call .0 + mov edx,0x00FF0000 + bt [flags],4 + jnc @f + mov edx,0x00555555 + btr [flags],4 + @@: mcall 13 + pop ecx ebx + xor edx,edx + mcall 38 + add ecx,20*65536-20 + mcall + add ecx,-20*65536+20 + jmp .null + +.0: + shr ebx,16 + inc bx + shl ebx,16 + add ebx,19 + shr ecx,16 + inc cx + shl ecx,16 + add ecx,19 +ret + +mouse: + bt [flags],5 + jc still + mcall 37,2 + test eax,eax + jz still + cmp al,2 + jg still + ;1 - левая кнопка, 2 - правая + dec al + jnz .mouse_1 + btr [flags],1 + jmp @f + .mouse_1: + bts [flags],1 + @@: + mcall 37,1 + mov dx,ax + shr eax,16 + cmp dx,27 + jbe still + cmp dx,227 + jge still + cmp ax,1 + jbe still + cmp ax,201 + jge second_pole + ;первое поле + bt [flags],0 + jc still + sub ax,1 + push dx + xor edx,edx + mov cx,20 + div cx + pop dx + mov [oX],al + push ax + sub dx,27 + mov ax,dx + xor dx,dx + div cx + mov [oY],al + xor dx,dx + mov cx,10 + mul cx + pop dx + add ax,dx + cmp ax,100 + jg still + +set_bot: + mov esi,table1 + bt [flags],2 + jnc @f + mov esi,table2 + @@: mov edi,esi + add edi,100 + cmp [number_bots],6 + jnb .1paluba + cmp [number_bots],3 + jnb .2paluba + cmp [number_bots],0 + je .4paluba + jmp .3paluba + +.4paluba: + bt [flags],1 ;четырёхпалубный + jnc @f + cmp [oX],6 + jg _still + jmp .41 + @@: cmp [oY],6 + jg _still + .41: inc [number_bots] + mov [edi],al + bt [flags],1 + jc @f + add al,10 + mov [edi+1],al + add al,10 + mov [edi+2],al + add al,10 + mov [edi+3],al + jmp init_table + @@: inc al + mov [edi+1],al + inc al + mov [edi+2],al + inc al + mov [edi+3],al + jmp init_table + + +.3paluba: ;трёхпалубный + bt [flags],1 + jnc @f + cmp [oX],7 + jg _still + jmp .31 + @@: cmp [oY],7 + jg _still + .31: + call find_near + + bt [flags],1 + jc @f + add al,10 + call find_near + add al,10 + call find_near + sub al,20 + jmp .32 + @@: inc al + call find_near + inc al + call find_near + sub al,2 + .32: + inc [number_bots] + mov ecx,4 + mov dl,[number_bots] + sub dl,2 + jz @f + add ecx,3 + @@: + mov [edi+ecx],al + bt [flags],1 + jc @f + add al,10 + mov [edi+ecx+1],al + add al,10 + mov [edi+ecx+2],al +jmp init_table + @@: inc al + mov [edi+ecx+1],al + inc al + mov [edi+ecx+2],al +jmp init_table + + + +.2paluba: ;двухпалубный + bt [flags],1 + jnc @f + cmp [oX],8 + jg _still + jmp .21 + @@: cmp [oY],8 + jg _still + .21: + call find_near + bt [flags],1 + jc @f + add al,10 + call find_near + sub al,10 + jmp .22 + @@: inc al + call find_near + dec al + .22: + inc [number_bots] + mov ecx,8 + mov dl,[number_bots] + sub dl,4 + jz @f + add ecx,2 + dec dl + jz @f + add ecx,2 + @@: add ecx,2 + mov [edi+ecx],al + bt [flags],1 + jc @f + add al,10 + mov [edi+ecx+1],al +jmp init_table + @@: inc al + mov [edi+ecx+1],al +jmp init_table + + +.1paluba: ;однопалубный + call find_near + inc [number_bots] + xor edx,edx + movzx ecx,[number_bots] + add ecx,9 + mov [edi+ecx],al +jmp init_table + +find_near: + push ax + call f_near ;0 + + cmp al,10 + jb @f + sub al,10 ;-10 + call f_near + +@@: cmp al,11 + jb @f + + xor edx,edx + mov ecx,10 + div cx + mov ax,[esp] + cmp dx,0 + je @f + + sub al,11 ;-11 + call f_near + +@@: cmp al,9 + jb @f + + xor edx,edx + mov ecx,10 + div cx + mov ax,[esp] + cmp dx,9 + je @f + + sub al,9 ;-9 + call f_near + +@@: cmp al,1 + jb @f + + xor edx,edx + mov ecx,10 + div cx + mov ax,[esp] + cmp dx,0 + je @f + + dec al ;-1 + call f_near + +@@: cmp al,99 + jg @f + + xor edx,edx + mov ecx,10 + div cx + mov ax,[esp] + cmp dx,9 + je @f + + inc al ;+1 + call f_near + +@@: cmp al,90 + jge @f + add al,10 ;+10 + call f_near + +@@: cmp al,91 + jge @f + + xor edx,edx + mov ecx,10 + div cx + mov ax,[esp] + cmp dx,0 + je @f + + add al,9 ;+9 + call f_near + +@@: cmp al,89 + jge @f + + xor edx,edx + mov ecx,10 + div cx + mov ax,[esp] + cmp dx,9 + je @f + add al,11 ;+11 + call f_near + +@@: pop ax +; xor bl,bl +; bt [flags],6 +; jnc @f +; bt [flags],9 +; jnc @f +; inc [p_pov] +; cmp [p_pov],20 +; jb @f +; bts [flags],9 +; @@: + btr [flags],6 + clc +ret + +f_near: + bt [flags],6 + jnc .2 +; bt [flags],9 +; jc @f +; cmp byte [esi+eax],2 +; jge @f +; @@: + cmp byte [esi+eax],4 + je @f + mov ax,[esp+4] + ret + @@:; add esp,4 +; jmp second_pole.cpu + mov ax,[esp+4] + mov cx,ax + add esp,6 + btr [flags],6 + stc +; mov bl,1 + ret + + .2: movzx edx, byte [smeshenie] + @@: cmp al,[edi+edx] + je .end + dec dl + jnz @b + cmp al,[edi] + je .end + mov ax,[esp+4] + ret + .end: add esp,10 + jmp _still + + + +init_table: +; xor eax,eax + movzx ecx, byte [number_bots] + mov edx,3 + dec cl + jz .i_t + + mov al,2 +.2: add dl,3 + dec cl + jz .i_t + dec al + jnz .2 + + mov al,3 +.3: add dl,2 + dec cl + jz .i_t + dec al + jnz .3 + + mov al,4 +.4: inc dl + dec cl + jz .i_t + dec al + jnz .4 + +.i_t: mov [smeshenie],dl +@@: movzx eax, byte [edi+edx] + mov byte [esi+eax],1 + dec dl + jnz @b + movzx eax, byte [edi] + mov byte [esi+eax],1 + bt [flags],3 + jc set_bots +; mcall 12,1 + jmp draw_pole + + +second_pole: + cmp ax,221 + jbe still + cmp ax,421 + jge still + ;второе поле + bt [flags],0 + jnc still + sub ax,221 + push dx + xor edx,edx + mov cx,20 + div cx + pop dx + push ax + sub dx,27 + mov ax,dx + xor dx,dx + div cx + xor dx,dx + mov cx,10 + mul cx + pop dx + add ax,dx + cmp ax,100 + jg still + + mov edi,table2 + mov esi,table5 + cmp byte [esi+eax],2 + jge still + mov bl, byte [edi+eax] + add bl,2 + mov ecx,table5 + call if_bot_killed + mov [esi+eax],bl + cmp bl,3 + jge .m_end +.comp: mov esi,table1 + + + + .cpu: +; jmp .rndm + xor eax,eax +; mov edi,4 + btr [flags],8 + xor ecx,ecx + mov edx,tbl_ranen + mov dword [edx],0 + @@: mov al,[esi+ecx] ;поиск "подраненного корабля" + cmp al,3 + je .0 + cmp cl,99 + jge .1 + inc cl + jmp @b + .0: mov [edx],cl +if DEBUG +dbg_dec ecx +endf + inc edx + inc cl + jmp @b + + .1: + dec edx + mov cl,[edx] + cmp edx,tbl_ranen + jb .rndm + je @f + sub cl,[edx-1] + cmp cl,1 + jne .2 + add cl,[edx-1] + jmp .12 + .2: + add cl,[edx-1] + jmp .13 + + @@: bts [flags],8 + mov eax,4 + call random + dec al + jz .11 + dec al + jz .12 + dec al + jz .13 + jmp .14 + .11: +if DEBUG +dbg_dec 100 +endf + cmp cl,10 + jge @f + bts [flags],8 + jmp .12 + @@: sub cl,10 + cmp byte [esi+ecx],2 + jge @f + mov eax,ecx + bts [flags],6 + call find_near +; test bl,bl +; jz .20 + jnc .20 + @@: bts [flags],8 + add cl,10 + bts [flags],8 + .12: +if DEBUG +dbg_dec 200 +endf + movzx eax,cl + push cx + mov ch,10 + div ch + pop cx + cmp ah,9 + jb @f + .121: + bt [flags],8 + jc .13 + bts [flags],8 + mov edx,tbl_ranen + mov cl,[edx] + jmp .14 + @@: inc cl + cmp byte [esi+ecx],2 + jge @f + mov eax,ecx + bts [flags],6 + call find_near +; test bl,bl +; jz .20 + jnc .20 + @@: dec cl + jmp .121 + + .13: +if DEBUG +dbg_dec 300 +endf + cmp cl,90 + jb @f + .131: + bt [flags],8 + jc .14 + bts [flags],8 + mov edx,tbl_ranen + mov cl,[edx] + jmp .11 + @@: add cl,10 + cmp byte [esi+ecx],2 + jge @f + mov eax,ecx + bts [flags],6 + call find_near +; test bl,bl +; jz .20 + jnc .20 + @@: sub cl,10 + jmp .131 + + .14: +if DEBUG +dbg_dec 400 +endf + movzx eax,cl + push cx + mov ch,10 + div ch + pop cx + cmp ah,0 + jne @f + .141: + bts [flags],8 + jmp .11;cpu;rndm + @@: dec cl + cmp byte [esi+ecx],2 + jge @f + mov eax,ecx + bts [flags],6 + call find_near +; test bl,bl +; jz .20 + jnc .20 + @@: inc cl + jmp .141 + +.rndm: + + mov eax,100 + call random + cmp eax,100 + jb @f + shr eax,1 +@@: + +if use_new_logic + btc [flags],10 + jnc @f + btc [flags],9 + jnc @f + call check_freedom +endf + +@@: cmp byte [esi+eax],2 + jb @f; .rndm + ;поиск свободной клеточки перед/после выбранной, + ;иначе random иногда входит в бесконечный цикл + bt ax,0 + jnc .r_1 + .r_0: + cmp al,0 + je .r_1 + dec al + + cmp byte [esi+eax],2 + jb @f + jmp .r_0 + .r_1: + cmp al,99 + je .r_0 + inc al + + cmp byte [esi+eax],2 + jb @f + jmp .r_1 +@@: + bts [flags],6 + call find_near +; test bl,bl +; jnz .cpu + jc .cpu;20 + +.20: + mov bl,[esi+eax] + add bl,2 + mov ecx,esi + mov edi,esi + call if_bot_killed + mov [esi+eax],bl +; cmp [u_kill],10 +; je .m_end + cmp [c_kill],10 + je .m_end + cmp bl,3 + jge .cpu + +.m_end:; mcall 12,1 +jmp draw_pole + +if_bot_killed: + push ebx + add edi,100 + mov ebx,19 + @@: cmp al,[edi+ebx] + je @f + dec ebx + jnz @b + cmp al,[edi+ebx] + jne .end + @@: + cmp ebx,16 + jnb .end_i + + @@: cmp bl,10 + jb .2 + btc bx,0 + mov bl, [edi+ebx] + cmp byte [ecx+ebx],3 + jne .end + inc byte [ecx+ebx] + jmp .end_i + + .2: cmp bl,4 + jb .3 + add edi,4 + cmp bl,7 + jb .3 + add edi,3 + .3: movzx edx, byte [edi] + cmp dl,al + je @f + cmp byte [ecx+edx],3 + jne .end + @@: mov dl,[edi+1] + cmp dl,al + je @f + cmp byte [ecx+edx],3 + jne .end + @@: mov dl,[edi+2] + cmp dl,al + je @f + cmp byte [ecx+edx],3 + jne .end + + @@: cmp bl,4 + jnb @f + mov dl,[edi+3] + cmp dl,al + je @f + cmp byte [ecx+edx],3 + jne .end + + + @@: mov dl,[edi] + cmp dl,al + je @f + inc byte [ecx+edx] + @@: mov dl,[edi+1] + cmp dl,al + je @f + inc byte [ecx+edx] + @@: mov dl,[edi+2] + + cmp bl,4 + jnb .9;@f + +; cmp dl,al +; je .end_i +; inc byte [ecx+edx] +; jmp .end_i + + + @@: cmp dl,al + je @f + inc byte [ecx+edx] + @@: mov dl,[edi+3] +.9: cmp dl,al + je .end_i + inc byte [ecx+edx] + .end_i: + pop ebx + inc ebx + cmp ecx,table5 + jne @f + inc [u_kill] + ret + @@: inc [c_kill] + ret + .end: pop ebx +ret + + + + +_still: + bt [flags],3 + jnc still + +set_bots: + cmp [number_bots],10 + jne @f + ret + @@: xor edx,edx + mov ecx,10 + cmp [number_bots],6 + jb @f + push dword 10 + jmp .1 + @@: cmp [number_bots],3 + jb @f + push dword 9 + jmp .1 + @@: cmp [number_bots],2 + jb @f + push dword 8 + jmp .1 + @@: push dword 7 + .1: + mov eax,[esp] + call random + mov [oX],al + mul cl + mov cl,al + mov eax,[esp] + call random + mov [oY],al + add cl,al + + cmp cl,100 + jge .1 + + add esp,4 + mov eax,2 + call random + cmp al,1 + jne @f + bts [flags],1 + mov al,cl + jmp set_bot + @@: btr [flags],1 + mov al,cl + jmp set_bot + + + + + + +;процедура отлавливает "наиболее свободную" из клеток для атаки + +if use_new_logic +check_freedom: +; mov esi,table1 + push ax + push word 100 + xor eax,eax + mov ebx,0x900 + +.1: bts [flags],6 + call find_near + jc .11 + cmp byte [esi+eax],2 ;0 + jb @f +.11: inc bl + +@@: cmp al,10 ;-10 + jb @f + push ax + + sub al,10 + if use_ext_logic + bts [flags],6 + call find_near + jc .21 + endf + cmp byte [esi+eax],2 + jb .22 +.21: inc bl +.22: pop ax + +@@: cmp al,11 + jb @f + push ax + + xor edx,edx + mov ecx,10 + push ax + div cx + pop ax + + cmp dx,0 + je .32 + + sub al,11 + if use_ext_logic + bts [flags],6 + call find_near + jc .31 + endf + cmp byte [esi+eax],2 ;-11 + jb .32 +.31: inc bl +.32: pop ax + +@@: cmp al,9 + jb @f + push ax + + xor edx,edx + mov ecx,10 + push ax + div cx + pop ax + cmp dx,9 + je .42 + + sub eax,9 + if use_ext_logic + bts [flags],6 + call find_near + jc .41 + endf + cmp byte [esi+eax],2 ;-9 + jb .42 +.41: inc bl +.42: pop ax + +@@: cmp al,1 + jb @f + push ax + + xor edx,edx + mov ecx,10 + push ax + div cx + pop ax + cmp dx,0 + je .52 + + dec al + if use_ext_logic + bts [flags],6 + call find_near + jc .51 + endf + cmp byte [esi+eax],2 ;-1 + jb .52 +.51: inc bl +.52: pop ax + +@@: cmp al,99 + jg @f + push ax + + xor edx,edx + mov ecx,10 + push ax + div cx + pop ax + cmp dx,9 + je .62 + + inc al + if use_ext_logic + bts [flags],6 + call find_near + jc .61 + endf + cmp byte [esi+eax],2 ;+1 + jb .62 +.61: inc bl +.62: pop ax + +@@: cmp al,90 + jge @f + push ax + add al,10 + if use_ext_logic + bts [flags],6 + call find_near + jc .71 + endf + cmp byte [esi+eax],2 ;+10 + jb .72 +.71: inc bl +.72: pop ax + +@@: cmp al,91 + jge @f + push ax + xor edx,edx + mov ecx,10 + push ax + div cx + pop ax + cmp dx,0 + je .82 + + add al,9 + if use_ext_logic + bts [flags],6 + call find_near + jc .81 + endf + cmp byte [esi+eax],2 ;+9 + jb .82 +.81: inc bl +.82: pop ax + +@@: cmp al,89 + jge @f + push ax + + xor edx,edx + mov ecx,10 + push ax + div cx + pop ax + + cmp dx,9 + je .92 + + add al,11 + if use_ext_logic + bts [flags],6 + call find_near + jc .91 + endf + cmp byte [esi+eax],2 ;+11 + jb .92 +.91: inc bl +.92: pop ax + +@@: bt [flags],7 + jc .ret + cmp byte [esi+eax],1 + jg @f + cmp bl,bh + jg @f + +; shl ebx,8 + bts [flags],6 + call find_near +; xchg cl,bl +; shr ebx,8 +; test cl,cl +; jnz @f + jc @f + + shl bx,8 + pop dx ;dh - ближайшая слева свободнейшая клетка, dl - справа + pop cx ;cl - рандомно выбранная клетка +; cmp al,dl +; jg .5 +; cmp al,cl +; jb .4 +; mov dl,al +; jmp .5 +;.4: cmp al,dh +; jb .5 +; mov dh,al + cmp al,dh + jb .5 + cmp al,cl + jg .4 + mov dh,al + jmp .5 +.4: cmp al,dl + jg .5 + mov dl,al +.5: push cx dx +@@: xor bl,bl + inc al + cmp al,100 + jb .1 + pop dx ax + +if DEBUG +dbg_dec eax +dbg_dec edx +endf + cmp dl,100 + jb @f + mov al,dh + ret +@@: mov al,dh + push dx + bts [flags],7 + call .1 + shl bx,8 + mov al,[esp] + call .1 + pop dx + btr [flags],7 + mov al,dl + test bl,bh + jbe .ret + mov al,dh +.ret: +ret + +endf + + + + + + + +align 4 +rsx1 dw ?;0x4321 +rsx2 dw ?;0x1234 +random: ; из ASCL + push ecx edx esi + mov cx,ax + mov ax,[rsx1] + mov bx,[rsx2] + mov si,ax + mov di,bx + mov dl,ah + mov ah,al + mov al,bh + mov bh,bl + xor bl,bl + rcr dl,1 + rcr ax,1 + rcr bx,1 + add bx,di + adc ax,si + add bx,0x62e9 + adc ax,0x3619 + mov [rsx1],bx + mov [rsx2],ax + xor dx,dx + cmp ax,0 + je nodiv + cmp cx,0 + je nodiv + div cx +nodiv: + mov ax,dx + pop esi edx ecx + and eax,0000ffffh +ret + + +if DEBUG +SysMsgBoardNum: ;warning: destroys eax,ebx,ecx,esi + mov ebx,esp + mov ecx,8 + mov esi,(number_to_out+1) +.1: + mov eax,ebx + and eax,0xF + cmp al,10 + sbb al,69h + das + mov [esi+ecx],al + shr ebx,4 + loop .1 + dec esi + mcall 71,1,number_to_out +ret + +number_to_out db '0x00000000',13,10,0 +endf + + + + +text_cpu db 'CPU',0 +text_user db 'USER',0 +if lang eq ru_RU +title db 'Морской бой 0.4',0 +but_auto db 'Расставить',0 +but_new db 'Новая',0 +text_win db 'Выиграл!',0 +else ; Default to en_US +title db 'Sea war 0.4',0 +but_auto db 'Auto fill',0 +but_new db 'New',0 +text_win db 'Won!',0 +endf + +I_END: +; t1,t3,t5: 0-непомеченная клеточка, 1-занятая, 2-"промах", 3-"горит", 4-"потоплен" +; t2,t4: таблицы расположения элементов, 1 элемент по 4 клетки, 2x3, 3x2, 4x1 +align 16 +table1 rb 100 ;левое поле +table3 rb 20 +table2 rb 100 ;правое +table4 rb 20 +table5 rb 100 +u_kill rb 1 +c_kill rb 1 +p_pov rb 1 +smeshenie rb 1 +number_bots rb 1 +oX rb 1 +oY rb 1 +tbl_ranen rb 4 + +flags rw 1 +flags2 rw 1 +;бит 0: 0/1 - заполнение таблиц /игра +;1: нажата левая кнопка мыши (вертикаль) /правая (горизонталь) +;2: заполняется левое поле /правое +;3: ручное заполнение /автозаполнение +;4: в .three - потопленный корабль +;5: игра окончена +;6: в second_pole - вызов find_near +;7: в check_freedom +;8: зарезервировано +;9: зарезервировано +;10: зарезервировано diff --git a/programs/load_img.inc b/programs/load_img.inc index 150951f49c..2fa44de1d6 100644 --- a/programs/load_img.inc +++ b/programs/load_img.inc @@ -1,184 +1,184 @@ -; -; Макросы для декодирования изображений чрез функции библиотеки libimg. -; -; (1) макрос load_image_file: -; -; Проверяет размер полученного файла с изображением. -; Выделяет под него память и загружает туда файл. -; Определяет размер памяти необходимой для распаковки изображения. -; Перевыделяет память, и распаковывает изображение из форматов jpg, png, ... -; в формат rgb который можно выводить на экран через сист. функцию. -; При необходимости можно также получить размеры открываемого изображения для -; их дальнейшего использования в программе. -; -; В использующей программе должна быть подключена библиотека libimg, -; объявлена переменная file_name размером около 4096 байт, -; а также структура run_file_70 типа FileInfoBlock. -; -; (2) макрос include_image_file: -; -; Внедряет изображение в файл программы. -; Определяет размер памяти необходимой для распаковки изображения. -; Выделяет память, и распаковывает изображение из форматов jpg, png, ... -; в формат rgb который можно выводить на экран через сист. функцию. -; При необходимости можно также получить размеры внедренного изображения для -; их дальнейшего использования в программе. - -; подключение некоторых необходимых файлов: -include 'dll.inc' -;include 'load_lib.mac' -include 'develop/libraries/libs-dev/libio/libio.inc' - -align 4 -open_b rb 560 - -txt_err_img_file: -if lang eq ru_RU - db 'Ошибка N' -.n: db '* при открытии файла ' -else - db 'Error N' -.n: db '*. Can',39,'t open file ' -end if -.f: dd 0,0 - -; path - может быть переменной или строковым параметром -; buf - переменная куда будет записан указатель на изображение в формате rgb, -; в случае если файл не откроется то будет записан 0 -; 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 - -if path eqtype '' ;проверяем задан ли строкой параметр path - local .path_str - jmp @f - .path_str db path ;формируем локальную переменную - db 0 - @@: - ;32 - стандартный адрес по которому должен быть буфер с системным путем - copy_path .path_str,[32],file_name,0 -else - copy_path path,[32],file_name,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.Flags], 0 - mov dword[run_file_70.Count], 0 - mov dword[run_file_70.Buffer], open_b - mov byte[run_file_70+20], 0 - mov dword[run_file_70.FileName], file_name - mcall SF_FILE,run_file_70 - or eax,eax - jnz .err_open - - mov ecx,dword[open_b+32] ;+32 qword: размер файла в байтах - stdcall mem.Alloc,ecx ;выделяем память для изображения - mov [buf],eax - mov [run_file_70.Function], SSF_READ_FILE - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - mov [run_file_70.Count], ecx - mov [run_file_70.Buffer], eax - mov byte[run_file_70+20], 0 - mov [run_file_70.FileName], file_name - mcall SF_FILE,run_file_70 ;загружаем файл изображения - test eax,eax - jnz .err_open - cmp ebx,0xffffffff - je .end_open - ;определяем вид изображения и пишем его параметры - stdcall [img_decode], [buf],ebx,0 - mov ebx,eax - ;определяем размер декодированного изображения - mov ecx,[eax+4] ;+4 = image width -if img_w eq -else - mov dword[img_w],ecx -end if -if img_h eq - imul ecx,[eax+8] ;+8 = image height -else - mov eax,[eax+8] ;+8 = image height - mov dword[img_h],eax - imul ecx,eax -end if -if bytes_p_p eq - imul ecx,3 ;need for r,g,b -else - imul ecx,bytes_p_p -end if - stdcall mem.ReAlloc,[buf],ecx ;изменяем размер для буфера - mov [buf],eax - stdcall [img_to_rgb2], ebx,[buf] ;преобразуем изображение к формату rgb - stdcall [img_destroy], ebx ;удаляем временный буфер с параметрами изображения - jmp .end_open - .err_open: - add al,'0' - mov byte[txt_err_img_file.n],al -if path eqtype '' - mov eax,dword[.path_str] - mov dword[txt_err_img_file.f],eax - mov eax,dword[.path_str+4] -else - mov eax,dword[path] - mov dword[txt_err_img_file.f],eax - mov eax,dword[path+4] -end if - mov dword[txt_err_img_file.f+4],eax - mov byte[txt_err_img_file.f+7],0 - notify_window_run txt_err_img_file - .end_open: -} - - - -; path - имя включаемого файла -; buf - переменная куда будет записан указатель на изображение в формате rgb -; 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 - -jmp .end_file -align 4 -.beg_file: - file path -.end_file: - - ;определяем вид изображения и пишем его параметры - stdcall [img_decode], .beg_file,.end_file-.beg_file,0 - mov ebx,eax - ;определяем размер декодированного изображения - mov ecx,[eax+4] ;+4 = image width -if img_w eq -else - mov dword[img_w],ecx -end if -if img_h eq - imul ecx,[eax+8] ;+8 = image height -else - mov eax,[eax+8] ;+8 = image height - mov dword[img_h],eax - imul ecx,eax -end if -if bytes_p_p eq - imul ecx,3 ;need for r,g,b -else - imul ecx,bytes_p_p -end if - stdcall mem.Alloc,ecx ;изменяем размер для буфера - mov [buf],eax - stdcall [img_to_rgb2], ebx,[buf] ;преобразуем изображение к формату rgb - stdcall [img_destroy], ebx ;удаляем временный буфер с параметрами изображения -} +; +; Макросы для декодирования изображений чрез функции библиотеки libimg. +; +; (1) макрос load_image_file: +; +; Проверяет размер полученного файла с изображением. +; Выделяет под него память и загружает туда файл. +; Определяет размер памяти необходимой для распаковки изображения. +; Перевыделяет память, и распаковывает изображение из форматов jpg, png, ... +; в формат rgb который можно выводить на экран через сист. функцию. +; При необходимости можно также получить размеры открываемого изображения для +; их дальнейшего использования в программе. +; +; В использующей программе должна быть подключена библиотека libimg, +; объявлена переменная file_name размером около 4096 байт, +; а также структура run_file_70 типа FileInfoBlock. +; +; (2) макрос include_image_file: +; +; Внедряет изображение в файл программы. +; Определяет размер памяти необходимой для распаковки изображения. +; Выделяет память, и распаковывает изображение из форматов jpg, png, ... +; в формат rgb который можно выводить на экран через сист. функцию. +; При необходимости можно также получить размеры внедренного изображения для +; их дальнейшего использования в программе. + +; подключение некоторых необходимых файлов: +include 'dll.inc' +;include 'load_lib.mac' +include 'develop/libraries/libs-dev/libio/libio.inc' + +align 4 +open_b rb 560 + +txt_err_img_file: +if lang eq ru_RU + db 'Ошибка N' +.n: db '* при открытии файла ' +else ; Default ot en_US + db 'Error N' +.n: db '*. Can',39,'t open file ' +end if +.f: dd 0,0 + +; path - может быть переменной или строковым параметром +; buf - переменная куда будет записан указатель на изображение в формате rgb, +; в случае если файл не откроется то будет записан 0 +; 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 + +if path eqtype '' ;проверяем задан ли строкой параметр path + local .path_str + jmp @f + .path_str db path ;формируем локальную переменную + db 0 + @@: + ;32 - стандартный адрес по которому должен быть буфер с системным путем + copy_path .path_str,[32],file_name,0 +else + copy_path path,[32],file_name,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.Flags], 0 + mov dword[run_file_70.Count], 0 + mov dword[run_file_70.Buffer], open_b + mov byte[run_file_70+20], 0 + mov dword[run_file_70.FileName], file_name + mcall SF_FILE,run_file_70 + or eax,eax + jnz .err_open + + mov ecx,dword[open_b+32] ;+32 qword: размер файла в байтах + stdcall mem.Alloc,ecx ;выделяем память для изображения + mov [buf],eax + mov [run_file_70.Function], SSF_READ_FILE + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + mov [run_file_70.Count], ecx + mov [run_file_70.Buffer], eax + mov byte[run_file_70+20], 0 + mov [run_file_70.FileName], file_name + mcall SF_FILE,run_file_70 ;загружаем файл изображения + test eax,eax + jnz .err_open + cmp ebx,0xffffffff + je .end_open + ;определяем вид изображения и пишем его параметры + stdcall [img_decode], [buf],ebx,0 + mov ebx,eax + ;определяем размер декодированного изображения + mov ecx,[eax+4] ;+4 = image width +if img_w eq +else + mov dword[img_w],ecx +end if +if img_h eq + imul ecx,[eax+8] ;+8 = image height +else + mov eax,[eax+8] ;+8 = image height + mov dword[img_h],eax + imul ecx,eax +end if +if bytes_p_p eq + imul ecx,3 ;need for r,g,b +else + imul ecx,bytes_p_p +end if + stdcall mem.ReAlloc,[buf],ecx ;изменяем размер для буфера + mov [buf],eax + stdcall [img_to_rgb2], ebx,[buf] ;преобразуем изображение к формату rgb + stdcall [img_destroy], ebx ;удаляем временный буфер с параметрами изображения + jmp .end_open + .err_open: + add al,'0' + mov byte[txt_err_img_file.n],al +if path eqtype '' + mov eax,dword[.path_str] + mov dword[txt_err_img_file.f],eax + mov eax,dword[.path_str+4] +else + mov eax,dword[path] + mov dword[txt_err_img_file.f],eax + mov eax,dword[path+4] +end if + mov dword[txt_err_img_file.f+4],eax + mov byte[txt_err_img_file.f+7],0 + notify_window_run txt_err_img_file + .end_open: +} + + + +; path - имя включаемого файла +; buf - переменная куда будет записан указатель на изображение в формате rgb +; 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 + +jmp .end_file +align 4 +.beg_file: + file path +.end_file: + + ;определяем вид изображения и пишем его параметры + stdcall [img_decode], .beg_file,.end_file-.beg_file,0 + mov ebx,eax + ;определяем размер декодированного изображения + mov ecx,[eax+4] ;+4 = image width +if img_w eq +else + mov dword[img_w],ecx +end if +if img_h eq + imul ecx,[eax+8] ;+8 = image height +else + mov eax,[eax+8] ;+8 = image height + mov dword[img_h],eax + imul ecx,eax +end if +if bytes_p_p eq + imul ecx,3 ;need for r,g,b +else + imul ecx,bytes_p_p +end if + stdcall mem.Alloc,ecx ;изменяем размер для буфера + mov [buf],eax + stdcall [img_to_rgb2], ebx,[buf] ;преобразуем изображение к формату rgb + stdcall [img_destroy], ebx ;удаляем временный буфер с параметрами изображения +} diff --git a/programs/media/img_transform/img_transform.asm b/programs/media/img_transform/img_transform.asm index 2321ffc08b..65b79af9ee 100644 --- a/programs/media/img_transform/img_transform.asm +++ b/programs/media/img_transform/img_transform.asm @@ -1,1637 +1,1637 @@ -use32 - org 0 - db 'MENUET01' - dd 1,start,i_end,mem,stacktop,openfile_path,sys_path - -include 'lang.inc' -include '../../macros.inc' -include '../../proc32.inc' -include '../../KOSfuncs.inc' -include '../../load_img.inc' -include '../../load_lib.mac' -include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc' -include '../../develop/libraries/TinyGL/asm_fork/zbuffer.inc' -include '../../develop/libraries/libs-dev/libimg/libimg.inc' -include '../../develop/info3ds/info_fun_float.inc' - -@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load -caption db 'Image transform 08.12.20',0 ;подпись окна - -BUF_STRUCT_SIZE equ 21 -buf2d_data equ dword[edi] ;данные буфера изображения -buf2d_w equ dword[edi+8] ;ширина буфера -buf2d_h equ dword[edi+12] ;высота буфера -buf2d_l equ word[edi+4] -buf2d_t equ word[edi+6] ;отступ сверху -buf2d_size_lt equ dword[edi+4] ;отступ слева и справа для буфера -buf2d_color equ dword[edi+16] ;цвет фона буфера -buf2d_bits equ byte[edi+20] ;количество бит в 1-й точке изображения - -NAV_WND_L equ 145 -NAV_WND_T equ 1 - -include 'select_points.inc' - -IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3 -image_data_toolbar dd 0 - -align 4 -start: - load_libraries l_libs_start,l_libs_end - ;проверка на сколько удачно загузилась библиотека - mov ebp,lib_0 - cmp dword [ebp+ll_struc_size-4],0 - jz @f - mcall SF_TERMINATE_PROCESS - @@: - mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors - mcall SF_SET_EVENTS_MASK,0xC0000027 - stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога - - stdcall [buf2d_create], buf_0 ;создание буфера - - include_image_file '../../../programs/fs/kfar/trunk/font6x9.bmp', image_data_toolbar, buf_font.w,buf_font.h - stdcall [buf2d_create_f_img], buf_font,[image_data_toolbar] ;создаем буфер - stdcall mem.Free,[image_data_toolbar] ;освобождаем память - stdcall [buf2d_conv_24_to_8], buf_font,1 ;делаем буфер прозрачности 8 бит - stdcall [buf2d_convert_text_matrix], buf_font - - include_image_file 'toolbar.png', image_data_toolbar - - mcall SF_SYSTEM_GET,SSF_TIME_COUNT - mov [last_time],eax - - ;настройка точек - call points_init - - ;open file from cmd line - cmp dword[openfile_path],0 - je @f - call but_open_file.no_dlg - @@: - -align 4 -red_win: - call draw_window - -align 16 -still: - mcall SF_SYSTEM_GET,SSF_TIME_COUNT - mov ebx,[last_time] - add ebx,10 ;задержка - cmp ebx,eax - jge @f - mov ebx,eax - @@: - sub ebx,eax - mcall SF_WAIT_EVENT_TIMEOUT - cmp eax,0 - je timer_funct - - cmp al,1 - jz red_win - cmp al,2 - jz key - cmp al,3 - jz button - cmp al,6 - jne @f - mcall SF_THREAD_INFO,procinfo,-1 - cmp ax,word[procinfo.window_stack_position] - jne @f ;окно не активно - call mouse - @@: - jmp still - -align 4 -timer_funct: - push eax ebx - mcall SF_SYSTEM_GET,SSF_TIME_COUNT - mov [last_time],eax - pop ebx eax - cmp byte[calc],0 - je still - call draw_nav_wnd - call draw_buffers - jmp still - -align 16 -draw_window: -pushad - mcall SF_REDRAW,SSF_BEGIN_DRAW - - ; *** рисование главного окна (выполняется 1 раз при запуске) *** - mov edx,[sc.work] - or edx,(3 shl 24)+0x30000000 - mcall SF_CREATE_WINDOW,(20 shl 16)+410,(20 shl 16)+520,,,caption - - mcall SF_THREAD_INFO,procinfo,-1 - mov eax,dword[procinfo.box.height] - cmp eax,120 - jge @f - mov eax,120 ;min size - @@: - sub eax,65 - mov ebx,dword[procinfo.box.width] - cmp ebx,270 - jge @f - mov ebx,270 - @@: - sub ebx,19 - cmp eax,dword[buf_0.h] ;смотрим размер буфера - jne @f - cmp ebx,dword[buf_0.w] - jne @f - jmp .end0 - @@: - stdcall [buf2d_resize],buf_0,ebx,eax,1 - call calc_nav_params - mov eax,[nav_x] - call nav_x_corect - mov [nav_x],eax - mov eax,[nav_y] - call nav_y_corect - mov [nav_y],eax - mov byte[calc],1 - .end0: - - ; *** создание кнопок на панель *** - mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3, [sc.work_button] - - add ebx,25 shl 16 - mcall ,,,4 - add ebx,30 shl 16 - mcall ,,,5 - add ebx,25 shl 16 - mcall ,,,6 - add ebx,25 shl 16 - mcall ,,,7 - - ; *** рисование иконок на кнопках *** - mov edx,(7 shl 16)+7 ;icon open - mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16 - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;icon save - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(30 shl 16) ;icon view - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;icon mode - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - - call draw_nav_wnd - call draw_buffers - - mcall SF_REDRAW,SSF_END_DRAW -popad - ret - -;рисование навигационного окна -align 4 -proc draw_nav_wnd - cmp dword[buf_i0],0 - je .end0 - bt dword[nav_x_min],31 - jnc .end0 - bt dword[nav_y_min],31 - jnc .end0 -pushad - mov ebx,(NAV_WND_L shl 16) - add ebx,[nav_wnd_w] - mov ecx,(NAV_WND_T shl 16) - add ecx,[nav_wnd_h] - mcall SF_DRAW_RECT,,,0 ;изображение - mov ecx,[nav_wnd_zoom] - mov ebx,[nav_x] - neg ebx - sar ebx,cl - add ebx,NAV_WND_L - shl ebx,16 - add ebx,[buf_0.w] - shr bx,cl - mov edx,[nav_y] - neg edx - sar edx,cl - add edx,NAV_WND_T - shl edx,16 - add edx,[buf_0.h] - shr dx,cl - mov ecx,edx - mcall ,,,0x404080 ;часть изображения попадающая в окно - - mov edi,sel_pt - @@: - mov ecx,[nav_wnd_zoom] - mov ebx,[edi+point2d.x] - shr ebx,cl - add ebx,NAV_WND_L - mov edx,[edi+point2d.y] - shr edx,cl - add edx,NAV_WND_T - mov ecx,edx - mcall SF_PUT_PIXEL,,,0xffff00 - add edi,sizeof.point2d - cmp edi,sel_pt+4*sizeof.point2d - jl @b -popad - .end0: - ret -endp - -align 4 -proc draw_buffers -pushad - cmp byte[calc],0 - je .end0 - ; *** обновление буфера *** - bt dword[nav_x_min],31 - jnc .beg0 - bt dword[nav_y_min],31 - jc @f - .beg0: - stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер - @@: - cmp byte[view_b],1 - je .end1 - push buf_i0 - jmp .end2 - .end1: - push buf_ogl - .end2: - stdcall [buf2d_bit_blt], buf_0, [nav_x],[nav_y] ;,... - - call points_draw - xor eax,eax - cmp [u_line_v],eax - je @f - mov eax,[u_line_v] - add eax,[nav_x] - stdcall [buf2d_line], buf_0, eax,0, eax,[buf_0.h], 0xffffff - inc eax - stdcall [buf2d_line], buf_0, eax,0, eax,[buf_0.h], 0 - @@: - xor eax,eax - cmp [u_line_h],eax - je @f - mov eax,[u_line_h] - add eax,[nav_y] - stdcall [buf2d_line], buf_0, 0,eax, [buf_0.w],eax, 0xffffff - inc eax - stdcall [buf2d_line], buf_0, 0,eax, [buf_0.w],eax, 0 - @@: - - ; *** обновление подписи размера файла *** - mov edi,txt_f_size.size - mov eax,[open_file_size] - mov ebx,txt_pref - .cycle: - cmp eax,1024 - jl @f - shr eax,10 - add ebx,4 - jmp .cycle - @@: - stdcall convert_int_to_str, 16 - stdcall str_cat, edi,ebx - stdcall str_cat, edi,txt_space ;завершающий пробел - ;ширина и высота изображения - mov eax,[buf_i0.w] - mov edi,txt_img_w.size - stdcall convert_int_to_str, 16 - mov eax,[buf_i0.h] - mov edi,txt_img_h.size - stdcall convert_int_to_str, 16 - mov byte[calc],0 - .end0: - ; *** рисование буфера *** - stdcall [buf2d_draw], buf_0 - ; *** рисование подписи размера файла *** - mov ecx,[sc.work_text] - or ecx,0x80000000 or (1 shl 30) - mov edi,[sc.work] ;цвет фона окна - mcall SF_DRAW_TEXT,(275 shl 16)+4,,txt_f_size - add ebx,9 - mcall ,,,txt_img_w - add ebx,9 - mcall ,,,txt_img_h -popad - ret -endp - -align 16 -key: - push eax ebx ecx - mcall SF_GET_KEY - cmp byte[view_b],1 - je .end1 - cmp ah,49 ;1 - jne @f - mov edi,sel_pt - call set_point_coords - jmp .end0 - @@: - cmp ah,50 ;2 - jne @f - mov edi,sel_pt+sizeof.point2d - call set_point_coords - jmp .end0 - @@: - cmp ah,51 ;3 - jne @f - mov edi,sel_pt+sizeof.point2d*2 - call set_point_coords - jmp .end0 - @@: - cmp ah,52 ;4 - jne @f - mov edi,sel_pt+sizeof.point2d*3 - call set_point_coords - jmp .end0 - @@: - .end1: - - cmp ah,178 ;Up - jne @f - call but_img_move_up - jmp .end0 - @@: - cmp ah,177 ;Down - jne @f - call but_img_move_down - jmp .end0 - @@: - cmp ah,176 ;Left - jne @f - call but_img_move_left - jmp .end0 - @@: - cmp ah,179 ;Right - jne @f - call but_img_move_right - jmp .end0 - @@: - cmp ah,104 ;H - jne @f - call set_user_line_h - mov byte[calc],1 - jmp .end0 - @@: - cmp ah,118 ;V - jne @f - call set_user_line_w - mov byte[calc],1 - jmp .end0 - @@: - - mov ecx,eax - mcall SF_KEYBOARD,SSF_GET_CONTROL_KEYS - bt eax,2 ;left Ctrl - jc .key_Ctrl - bt eax,3 ;right Ctrl - jc .key_Ctrl - jmp .end0 - .key_Ctrl: - cmp ch,15 ;Ctrl+O - jne @f - call but_open_file - @@: - cmp ch,19 ;Ctrl+S - jne @f - call but_save_file - @@: - - .end0: - pop ecx ebx eax - jmp still - -;input: -; edi - указатель на структуру point2d -align 4 -set_point_coords: - call buf_get_mouse_coord - cmp eax,-1 - je .end0 - sub eax,[nav_x] - cmp eax,0 - jge @f - xor eax,eax - @@: - cmp eax,[buf_i0.w] - jle @f - mov eax,[buf_i0.w] - @@: - mov [edi+point2d.x],eax - sub ebx,[nav_y] - cmp ebx,0 - jge @f - xor ebx,ebx - @@: - cmp ebx,[buf_i0.h] - jle @f - mov ebx,[buf_i0.h] - @@: - mov [edi+point2d.y],ebx - call points_update_prop - mov byte[calc],1 - .end0: - ret - -align 16 -button: - mcall SF_GET_BUTTON - cmp ah,3 - jne @f - call but_open_file - jmp still - @@: - cmp ah,4 - jne @f - call but_save_file - jmp still - @@: - cmp ah,5 - jne @f - call but_2 - jmp still - @@: - cmp ah,6 - jne @f - call but_3 - jmp still - @@: - cmp ah,7 - jne @f - call but_about - jmp still - @@: - cmp ah,1 - jne still -.exit: - stdcall [buf2d_delete],buf_0 - stdcall [buf2d_delete],buf_i0 - ;stdcall [buf2d_delete],buf_ogl - stdcall mem.Free,[image_data_toolbar] - stdcall mem.Free,[open_file_img] - mcall SF_TERMINATE_PROCESS - -align 4 -mouse: - push eax ebx ecx - mcall SF_MOUSE_GET,SSF_BUTTON_EXT - bt eax,8 - jnc @f - ;mouse l. but. press - call mouse_left_d - jmp .end_l - @@: - ;bt eax,0 - ;jnc @f - ;mouse l. but. move - ;call mouse_left_m - ;jmp .end_l - ;@@: - bt eax,16 - jnc .end_l - ;mouse l. but. up - call mouse_left_u - ;jmp .end_l - .end_l: - ;bt eax,9 - ;jnc @f - ;mouse r. but. press - ;call mouse_right_d - ;jmp .end_r - ;@@: - ;bt eax,1 - ;jnc @f - ;mouse r. but. move - ;call mouse_right_m - ;jmp .end_r - ;@@: - ;.end_r: - - pop ecx ebx eax - ret - -;output: -; eax - buffer coord X (если курсор за буфером -1) -; ebx - buffer coord Y (если курсор за буфером -1) -align 4 -proc buf_get_mouse_coord - mcall SF_MOUSE_GET,SSF_WINDOW_POSITION - cmp ax,word[buf_0.t] - jl .no_buf ;не попали в окно буфера по оси y - mov ebx,eax - shr ebx,16 - cmp bx,word[buf_0.l] - jl .no_buf ;не попали в окно буфера по оси x - - and eax,0xffff ;оставляем координату y - sub ax,word[buf_0.t] - cmp eax,[buf_0.h] - jg .no_buf - sub bx,word[buf_0.l] - cmp ebx,[buf_0.w] - jg .no_buf - xchg eax,ebx - jmp .end_f - .no_buf: - xor eax,eax - not eax - xor ebx,ebx - not ebx - .end_f: - ret -endp - -;output: -; eax - buffer coord X (если курсор за буфером -1) -; ebx - buffer coord Y (если курсор за буфером -1) -align 4 -proc nav_wnd_get_mouse_coord - mcall SF_MOUSE_GET,SSF_WINDOW_POSITION - cmp ax,NAV_WND_T - jl .no_buf ;не попали в окно буфера по оси y - cmp eax,NAV_WND_L shl 16 - jl .no_buf ;не попали в окно буфера по оси x - mov ebx,eax - shr ebx,16 - - and eax,0xffff ;оставляем координату y - sub ax,NAV_WND_T - cmp eax,[nav_wnd_h] - jg .no_buf - sub bx,NAV_WND_L - cmp ebx,[nav_wnd_w] - jg .no_buf - xchg eax,ebx - jmp .end_f - .no_buf: - xor eax,eax - not eax - xor ebx,ebx - not ebx - .end_f: - ret -endp - -align 4 -mouse_left_d: -pushad - call buf_get_mouse_coord - cmp eax,-1 - je .end0 - mov [mouse_down_x],eax - mov [mouse_down_y],ebx - sub eax,[nav_x] - sub ebx,[nav_y] - - mov edi,sel_pt - xor ecx,ecx - .cycle0: - mov edx,[edi+point2d.x] - sub edx,eax - bt edx,31 - jnc @f - neg edx - @@: - cmp edx,5 ;размер для выделения точки по оси x - jg .end1 - mov edx,[edi+point2d.y] - sub edx,ebx - bt edx,31 - jnc @f - neg edx - @@: - cmp edx,5 ;размер для выделения точки по оси y - jg .end1 - mov [sel_act],ecx - jmp .end0 - .end1: - add edi,sizeof.point2d - inc ecx - cmp ecx,4 - jl .cycle0 - mov dword[sel_act],-1 - jmp .end2 - .end0: - call nav_wnd_get_mouse_coord - cmp eax,-1 - je .end2 - mov ecx,[nav_wnd_zoom] - shl eax,cl - shl ebx,cl - stdcall nav_to_point, eax,ebx - mov byte[calc],1 - .end2: -popad - ret - -align 4 -proc mouse_left_u uses eax ebx - call buf_get_mouse_coord - cmp eax,-1 - je .end0 - sub [mouse_down_x],eax - sub [mouse_down_y],ebx - - cmp dword[sel_act],-1 - je .end1 - ;двигаем точки - mov eax,[sel_act] - imul eax,sizeof.point2d - add eax,sel_pt - ;coord x - mov ebx,dword[eax+point2d.x] - sub ebx,[mouse_down_x] - cmp ebx,0 - jge @f - xor ebx,ebx - @@: - cmp ebx,[buf_i0.w] - jle @f - mov ebx,[buf_i0.w] - @@: - mov dword[eax+point2d.x],ebx - ;coord y - mov ebx,dword[eax+point2d.y] - sub ebx,[mouse_down_y] - cmp ebx,0 - jge @f - xor ebx,ebx - @@: - cmp ebx,[buf_i0.h] - jle @f - mov ebx,[buf_i0.h] - @@: - mov dword[eax+point2d.y],ebx - call points_update_prop - jmp .end2 - .end1: - - ;двигаем изображение - mov eax,[nav_y] - sub eax,[mouse_down_y] - call nav_y_corect - mov [nav_y],eax - - mov eax,[nav_x] - sub eax,[mouse_down_x] - call nav_x_corect - mov [nav_x],eax - .end2: - mov byte[calc],1 - .end0: - ret -endp - -align 4 -set_user_line_h: -pushad - call buf_get_mouse_coord - cmp eax,-1 - je .end0 - mov [mouse_down_y],ebx - sub ebx,[nav_y] - cmp eax,[buf_i0.h] - jle @f - mov eax,[buf_i0.h] - @@: - cmp [u_line_h],ebx - jne @f - xor ebx,ebx ;line on/off - @@: - mov [u_line_h],ebx - .end0: -popad - ret - -align 4 -set_user_line_w: -pushad - call buf_get_mouse_coord - cmp eax,-1 - je .end0 - mov [mouse_down_x],eax - sub eax,[nav_x] - cmp eax,[buf_i0.w] - jle @f - mov eax,[buf_i0.w] - @@: - cmp [u_line_v],eax - jne @f - xor eax,eax ;line on/off - @@: - mov [u_line_v],eax - .end0: -popad - ret - -align 4 -proc but_new_file uses eax edi esi - xor eax,eax - mov [open_file_size],eax - mov edi,[open_file_img] - stosd - ret -endp - -align 4 -open_file_img dd 0 ;указатель на память для открытия текстур -open_file_size dd 0 ;размер - -;вычисление параметров для навигации по изображению -align 4 -proc calc_nav_params uses eax ecx edi - mov dword[nav_x_max],0 - mov edi,buf_0 - mov eax,buf2d_w - mov [nav_sx],eax - mov edi,buf_i0 - sub eax,buf2d_w - bt eax,31 - jc @f - mov [nav_x_max],eax - xor eax,eax - @@: - mov [nav_x_min],eax - mov edi,buf2d_w - cmp [nav_sx],edi - jle @f - mov [nav_sx],edi - @@: - shr dword[nav_sx],1 - - mov dword[nav_y_max],0 - mov edi,buf_0 - mov eax,buf2d_h - mov [nav_sy],eax - mov edi,buf_i0 - sub eax,buf2d_h - bt eax,31 - jc @f - mov [nav_y_max],eax - xor eax,eax - @@: - mov [nav_y_min],eax - mov edi,buf2d_h - cmp [nav_sy],edi - jle @f - mov [nav_sy],edi - @@: - shr dword[nav_sy],1 - - xor ecx,ecx - mov [u_line_v],ecx - mov eax,[buf_i0.w] - @@: - inc ecx - shr eax,1 - cmp eax,100 - jg @b - mov [nav_wnd_zoom],ecx - xor ecx,ecx - mov [u_line_h],ecx - mov eax,[buf_i0.h] - @@: - inc ecx - shr eax,1 - cmp eax,32 - jg @b - cmp [nav_wnd_zoom],ecx - jg @f - mov [nav_wnd_zoom],ecx - @@: - mov ecx,[nav_wnd_zoom] - mov eax,[buf_i0.w] - shr eax,cl - mov [nav_wnd_w],eax - mov eax,[buf_i0.h] - shr eax,cl - mov [nav_wnd_h],eax - ret -endp - -align 4 -proc but_open_file - copy_path open_dialog_name,communication_area_default_path,file_name,0 - pushad - mov [OpenDialog_data.type],0 - stdcall [OpenDialog_Start],OpenDialog_data - cmp [OpenDialog_data.status],2 - je .end_open_file - jmp .end0 -.no_dlg: ;если минуем диалог открытия файла - pushad - mov esi,openfile_path - stdcall str_len,esi - add esi,eax - @@: ;цикл для поиска начала имени файла - dec esi - cmp byte[esi],'/' - je @f - cmp byte[esi],0x5c ;'\' - je @f - cmp esi,openfile_path - jg @b - @@: - inc esi - stdcall [OpenDialog_Set_file_name],OpenDialog_data,esi ;копируем имя файла в диалог сохранения - .end0: - - mov [run_file_70.Function], SSF_GET_INFO - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - mov dword[run_file_70.Count], 0 - mov dword[run_file_70.Buffer], open_b - mov byte[run_file_70+20], 0 - mov dword[run_file_70.FileName], openfile_path - mcall SF_FILE,run_file_70 - - mov ecx,dword[open_b+32] ;+32 qword: размер файла в байтах - mov [open_file_size],ecx - stdcall mem.ReAlloc,[open_file_img],ecx ;выделяем память для изображения - mov [open_file_img],eax - - mov [run_file_70.Function], SSF_READ_FILE - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - m2m [run_file_70.Count], dword[open_file_size] - m2m [run_file_70.Buffer],dword[open_file_img] - mov byte[run_file_70+20], 0 - mov [run_file_70.FileName], openfile_path - mcall SF_FILE,run_file_70 - cmp ebx,0xffffffff - je .end_0 - ;определяем вид изображения - stdcall [img_decode], [open_file_img],ebx,0 - or eax,eax - jz .end_0 ;если нарушен формат файла - mov ebx,eax - - mov ecx,[ebx+4] ;+4 = image width - mov dword[buf_cop.w],ecx - imul ecx,[ebx+8] ;+8 = image height - lea ecx,[ecx+ecx*2] - mov [open_file_size],ecx - stdcall mem.ReAlloc,[open_file_img],ecx - mov [open_file_img],eax - mov dword[buf_cop],eax - mov dword[buf_cop.l],0 ;left = 0, top = 0 - m2m dword[buf_cop.h],dword[ebx+8] - - ;преобразуем изображение к формату rgb - stdcall [img_to_rgb2], ebx,[open_file_img] - mov edi,buf_i0 - cmp buf2d_data,0 - jne .end3 - stdcall getNextPowerOfTwo,[ebx+8] - mov buf2d_h,eax - mov edx,eax - stdcall getNextPowerOfTwo,[ebx+4] - mov buf2d_w,eax - cmp edx,[ebx+8] - jne @f - cmp eax,[ebx+4] - jne @f - ;создание нового изображения по исходным размерам - stdcall [buf2d_create_f_img], edi,[open_file_img] - jmp .end_1 - @@: - ;создание нового изображения по преобразованным размерам - cmp eax,[ebx+4] - jge @f - mov eax,[ebx+4] - mov buf2d_w,eax - @@: - sub eax,[ebx+4] - shr eax,1 - mov esi,eax - cmp edx,[ebx+8] - jge @f - mov edx,[ebx+8] - mov buf2d_h,edx - @@: - sub edx,[ebx+8] - shr edx,1 - stdcall [buf2d_create], edi - mov [buf_cop.l],si - mov [buf_cop.t],dx - stdcall [buf2d_bit_blt], edi, esi,edx, buf_cop - jmp .end_1 - .end3: - ;преобразование созданного изображения - stdcall getNextPowerOfTwo,[ebx+4] - cmp eax,[ebx+4] - jg @f - mov eax,[ebx+4] - @@: - mov ecx,eax ;размер по x - stdcall getNextPowerOfTwo,[ebx+8] - cmp eax,[ebx+8] - jg @f - mov eax,[ebx+8] - @@: - mov edx,eax ;размер по y - stdcall [buf2d_resize], edi, ecx,edx,1 ;изменяем размеры буфера - stdcall [buf2d_clear], edi, buf2d_color - sub ecx,[ebx+4] - shr ecx,1 - mov [buf_cop.l],cx - sub edx,[ebx+8] - shr edx,1 - mov [buf_cop.t],dx - stdcall [buf2d_bit_blt], edi, ecx,edx, buf_cop - .end_1: - - ;создаем буфер для преобразованного изображения - mov edi,buf_ogl - mov eax,[buf_i0.w] - mov buf2d_w,eax - mov eax,[buf_i0.h] - mov buf2d_h,eax - cmp buf2d_data,0 - jne @f - stdcall [kosglMakeCurrent], 0,35,buf2d_w,buf2d_h,ctx1 - stdcall [glEnable], GL_DEPTH_TEST - stdcall [glEnable], GL_NORMALIZE ;делам нормали одинаковой величины во избежание артефактов - stdcall [glShadeModel], GL_SMOOTH - stdcall [glScalef], 2.0, -2.0, 1.0 - stdcall [glTranslatef], -0.5, -0.5, 0.0 - jmp .end_2 - @@: - stdcall reshape, buf2d_w,buf2d_h ;изменяем размеры буфера buf_ogl - .end_2: - mov eax,dword[ctx1] ;eax -> TinyGLContext.GLContext - mov eax,[eax] ;eax -> ZBuffer - mov eax,[eax+ZBuffer.pbuf] - mov buf2d_data,eax - - stdcall [buf2d_bit_blt], edi, 0,0, buf_i0 ;копируем изображение для востановления - - ;* Setup texturing * - stdcall [glTexEnvi], GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL - - ;* generate texture object IDs * - stdcall [glGenTextures], 1, TexObj - stdcall [glBindTexture], GL_TEXTURE_2D, [TexObj] - stdcall [glTexImage2D], GL_TEXTURE_2D, 0, 3, [buf_i0.w], [buf_i0.h],\ - 0, GL_RGB, GL_UNSIGNED_BYTE, [buf_i0] ;делаем текстуру на основе буфера, само изображение в буфере может испортится при подгонке размеров текстуры - - stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST - stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST - stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT - stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT - stdcall [glBindTexture], GL_TEXTURE_2D, [TexObj] - stdcall [glEnable], GL_TEXTURE_2D - - stdcall [buf2d_bit_blt], buf_i0, 0,0, edi ;востанавливаем изображение испорченое при установке текстуры - - ;удаляем временный буфер в ebx - stdcall [img_destroy], ebx - - movzx eax,word[buf_cop.l] - movzx ebx,word[buf_cop.t] - stdcall points_init_2,eax,ebx - - call calc_nav_params - stdcall nav_to_point, dword[sel_pt+point2d.x],dword[sel_pt+point2d.y] - mov byte[view_b],0 - mov dword[sel_act],-1 ;снимаем выделение с точек - mov byte[calc],1 - .end_0: - - .end_open_file: - popad - ret -endp - -align 4 -proc nav_to_point, coord_x:dword, coord_y:dword - ;coord x - mov eax,[nav_x_max] - cmp eax,0 - jle @f - ;если маленькое изображение то ставим по центру - shr eax,1 - jmp .end0 - @@: - mov eax,[buf_0.w] - shr eax,1 - sub eax,[coord_x] - call nav_x_corect - .end0: - mov [nav_x],eax - ;coord y - mov eax,[nav_y_max] - cmp eax,0 - jle @f - ;если маленькое изображение то ставим по центру - shr eax,1 - jmp .end1 - @@: - mov eax,[buf_0.h] - shr eax,1 - sub eax,[coord_y] - call nav_y_corect - .end1: - mov [nav_y],eax - ret -endp - -;input: -; eax - navigation coord x -;output: -; eax - valid coord x -align 4 -nav_x_corect: - cmp eax,[nav_x_min] - jge @f - mov eax,[nav_x_min] - @@: - cmp eax,[nav_x_max] - jle @f - mov eax,[nav_x_max] - @@: - ret - -;input: -; eax - navigation coord y -;output: -; eax - valid coord y -align 4 -nav_y_corect: - cmp eax,[nav_y_min] - jge @f - mov eax,[nav_y_min] - @@: - cmp eax,[nav_y_max] - jle @f - mov eax,[nav_y_max] - @@: - ret - -align 4 -proc getNextPowerOfTwo uses ebx, n:dword - mov ebx,[n] - mov eax,8 ;min size - cmp ebx,eax - jle .set - @@: - shl eax,1 - cmp ebx,eax - jg @b - cmp eax,4096 ;max size - jle .set - mov eax,4096 - .set: - ret -endp - -; new window size or exposure -align 4 -proc reshape uses ebx ecx, width:dword, height:dword - stdcall [glViewport], 0, 0, [width], [height] - stdcall [glMatrixMode], GL_MODELVIEW - stdcall [glLoadIdentity] - stdcall [glScalef], 2.0, -2.0, 1.0 - stdcall [glTranslatef], -0.5, -0.5, 0.0 - ret -endp - -align 4 -proc but_save_file -locals - png_data dd 0 - png_size dd 0 -endl - pushad - copy_path open_dialog_name,communication_area_default_path,file_name,0 - mov [OpenDialog_data.type],1 - stdcall [OpenDialog_Set_file_ext],OpenDialog_data,Filter.1 ;.png - stdcall [OpenDialog_Start],OpenDialog_data - cmp [OpenDialog_data.status],1 - jne .end_save_file - ;код при удачном открытии диалога - mov dword[png_data],0 - - ;create image struct - stdcall [img_create], [buf_ogl.w], [buf_ogl.h], Image.bpp24 - mov ebx,eax - test eax,eax - jz @f - ;copy foto to image buffer - mov edi,[eax+Image.Data] - mov esi,[buf_ogl] - mov ecx,[buf_ogl.w] - mov edx,[buf_ogl.h] - imul ecx,edx - imul ecx,3 - shr ecx,2 ;OpenGL buffer align to 4 - rep movsd - - ;encode image - stdcall [img_encode], eax, LIBIMG_FORMAT_PNG, 0 - test eax,eax - jz @f - mov [png_data],eax - mov [png_size],ecx - @@: - stdcall [img_destroy],ebx - - ; заполняем структуру для сохранения файла - mov ebx,run_file_70 - mov dword[ebx],SSF_CREATE_FILE - mov eax,[png_size] - mov [ebx+12],eax ;file size - mov eax,[png_data] - mov [ebx+16],eax - mov dword[ebx+FileInfoBlock.FileName], openfile_path - - mcall SF_FILE,run_file_70 - test eax,eax - jnz .save_error - ;notify_window_run openfile_path - jmp @f - .save_error: - ;сообщение о неудачном сохранении - notify_window_run txt_err_save_img_file - @@: - mcall SF_SYS_MISC, SSF_MEM_FREE, [png_data] - .end_save_file: - popad - ret -endp - -align 4 -but_2: - xor byte[view_b],1 - mov byte[calc],1 - ret - -align 4 -but_3: - xor byte[trans_a],1 - call points_update_prop - mov byte[calc],1 - ret - -align 4 -but_about: - notify_window_run txt_about - ret - -align 4 -calc db 0 ;0 - не пересчитывать буфер, 1 - пересчитать и обновить буфер -view_b db 0 ;0 - исходный буфер, 1 - просмотр результата -trans_a db 0 ;0 - преобразовать по заданному размеру, 1 - преобразовать на весь буфер - -align 4 -proc but_img_move_up uses eax - cmp dword[sel_act],-1 - je .end0 - mov eax,[sel_act] - imul eax,sizeof.point2d - add eax,sel_pt - cmp dword[eax+point2d.y],0 - je .end2 - dec dword[eax+point2d.y] - call points_update_prop - jmp .end1 - .end0: - mov eax,[nav_y] - sub eax,[nav_sy] - cmp eax,[nav_y_min] - jge @f - mov eax,[nav_y_min] - @@: - mov [nav_y],eax - .end1: - mov byte[calc],1 - .end2: - ret -endp - -align 4 -proc but_img_move_down uses eax edi - cmp dword[sel_act],-1 - je .end0 - mov eax,[sel_act] - imul eax,sizeof.point2d - add eax,sel_pt - mov edi,buf_ogl - mov edi,buf2d_h - cmp dword[eax+point2d.y],edi - jge .end2 - inc dword[eax+point2d.y] - call points_update_prop - jmp .end1 - .end0: - mov eax,[nav_y] - add eax,[nav_sy] - cmp eax,[nav_y_max] - jle @f - mov eax,[nav_y_max] - @@: - mov [nav_y],eax - .end1: - mov byte[calc],1 - .end2: - ret -endp - -align 4 -proc but_img_move_left uses eax - cmp dword[sel_act],-1 - je .end0 - mov eax,[sel_act] - imul eax,sizeof.point2d - add eax,sel_pt - cmp dword[eax+point2d.x],0 - je .end2 - dec dword[eax+point2d.x] - call points_update_prop - jmp .end1 - .end0: - mov eax,[nav_x] - sub eax,[nav_sx] - cmp eax,[nav_x_min] - jge @f - mov eax,[nav_x_min] - @@: - mov [nav_x],eax - .end1: - mov byte[calc],1 - .end2: - ret -endp - -align 4 -proc but_img_move_right uses eax edi - cmp dword[sel_act],-1 - je .end0 - mov eax,[sel_act] - imul eax,sizeof.point2d - add eax,sel_pt - mov edi,buf_ogl - mov edi,buf2d_w - cmp dword[eax+point2d.x],edi - jge .end2 - inc dword[eax+point2d.x] - call points_update_prop - jmp .end1 - .end0: - mov eax,[nav_x] - add eax,[nav_sx] - cmp eax,[nav_x_max] - jle @f - mov eax,[nav_x_max] - @@: - mov [nav_x],eax - .end1: - mov byte[calc],1 - .end2: - ret -endp - -;input: -; eax - число -; edi - буфер для строки -; len - длинна буфера -;output: -align 4 -proc convert_int_to_str, len:dword -pushad - mov esi,[len] - add esi,edi - dec esi - bt eax,31 - jae @f - ;если число отрицательное - neg eax - mov byte[edi],'-' - inc edi - @@: - call .str -popad - ret -endp - -align 4 -.str: - mov ecx,10 - cmp eax,ecx - jb @f - xor edx,edx - div ecx - push edx - ;dec edi ;смещение необходимое для записи с конца строки - call .str - pop eax - @@: - cmp edi,esi - jge @f - or al,0x30 - stosb - mov byte[edi],0 ;в конец строки ставим 0, что-бы не вылазил мусор - @@: - ret - -;данные для диалога открытия файлов -align 4 -OpenDialog_data: -.type dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию -.procinfo dd procinfo ;+4 -.com_area_name dd communication_area_name ;+8 -.com_area dd 0 ;+12 -.opendir_path dd plugin_path ;+16 -.dir_default_path dd default_dir ;+20 -.start_path dd file_name ;+24 путь к диалогу открытия файлов -.draw_window dd draw_window ;+28 -.status dd 0 ;+32 -.openfile_path dd openfile_path ;+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 - -default_dir db '/sys',0 - -communication_area_name: - db 'FFFFFFFF_open_dialog',0 -open_dialog_name: - db 'opendial',0 -communication_area_default_path: - db '/sys/File managers/',0 - -Filter: -dd Filter.end - Filter ;.1 -.1: -db 'PNG',0 -db 'JPG',0 -db 'JPEG',0 -db 'BMP',0 -db 'GIF',0 -.end: -db 0 - -txt_space db ' ',0 - -if lang eq ru_RU - txt_err_save_img_file db 'Не могу сохранить *.png файл.',0 - txt_about db '"О программе',13,10,\ - 'Данная программа сделана для преобразования изображений.',13,10,\ - 'После открытия файла изображения нужно указать 4 точки,',13,10,\ - 'которые станут углами преобразованого изображения." -tI',0 - txt_pref db ' б ',0,' Кб',0,' Мб',0,' Гб',0 ;приставки: кило, мега, гига - txt_f_size db 'Размер: ' -.size: rb 16 - txt_img_w db 'Ширина: ' -.size: rb 16 - txt_img_h db 'Высота: ' -else - txt_err_save_img_file db 'Can',39,'t save *.png file.',0 - txt_about db '"About',13,10,\ - 'This program is designed to convert images.',13,10,\ - 'After opening the image file, you need to specify 4 points',13,10,\ - 'that will become the corners of the converted image." -tI',0 - txt_pref db ' b ',0,' Kb',0,' Mb',0,' Gb',0 ;приставки: кило, мега, гига - txt_f_size db 'Size: ' -.size: rb 16 - txt_img_w db 'Width: ' -.size: rb 16 - txt_img_h db 'Height: ' -end if -.size: rb 16 - - -system_dir_0 db '/sys/lib/' -lib_name_0 db 'proc_lib.obj',0 -system_dir_1 db '/sys/lib/' -lib_name_1 db 'libimg.obj',0 -system_dir_2 db '/sys/lib/' -lib_name_2 db 'buf2d.obj',0 -system_dir_3 db '/sys/lib/' -lib_name_3 db 'tinygl.obj',0 - -align 4 -l_libs_start: - lib_0 l_libs lib_name_0, file_name, system_dir_0, import_proclib - lib_1 l_libs lib_name_1, file_name, system_dir_1, import_libimg - lib_2 l_libs lib_name_2, library_path, system_dir_2, import_buf2d - lib_3 l_libs lib_name_3, library_path, system_dir_3, import_lib_tinygl -l_libs_end: - -align 4 -import_libimg: - dd alib_init1 - img_is_img dd aimg_is_img - img_info dd aimg_info - img_from_file dd aimg_from_file - img_to_file dd aimg_to_file - img_from_rgb dd aimg_from_rgb - img_to_rgb dd aimg_to_rgb - img_to_rgb2 dd aimg_to_rgb2 - img_decode dd aimg_decode - img_encode dd aimg_encode - img_create dd aimg_create - img_destroy dd aimg_destroy - img_destroy_layer dd aimg_destroy_layer - img_count dd aimg_count - img_lock_bits dd aimg_lock_bits - img_unlock_bits dd aimg_unlock_bits - img_flip dd aimg_flip - img_flip_layer dd aimg_flip_layer - img_rotate dd aimg_rotate - img_rotate_layer dd aimg_rotate_layer - img_draw dd aimg_draw - - dd 0,0 - alib_init1 db 'lib_init',0 - aimg_is_img db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение - aimg_info db 'img_info',0 - aimg_from_file db 'img_from_file',0 - aimg_to_file db 'img_to_file',0 - aimg_from_rgb db 'img_from_rgb',0 - aimg_to_rgb db 'img_to_rgb',0 ;преобразование изображения в данные RGB - aimg_to_rgb2 db 'img_to_rgb2',0 - aimg_decode db 'img_decode',0 ;автоматически определяет формат графических данных - aimg_encode db 'img_encode',0 - aimg_create db 'img_create',0 - aimg_destroy db 'img_destroy',0 - aimg_destroy_layer db 'img_destroy_layer',0 - aimg_count db 'img_count',0 - aimg_lock_bits db 'img_lock_bits',0 - aimg_unlock_bits db 'img_unlock_bits',0 - aimg_flip db 'img_flip',0 - aimg_flip_layer db 'img_flip_layer',0 - aimg_rotate db 'img_rotate',0 - aimg_rotate_layer db 'img_rotate_layer',0 - aimg_draw db 'img_draw',0 - -align 4 -import_proclib: - OpenDialog_Init dd aOpenDialog_Init - OpenDialog_Start dd aOpenDialog_Start - OpenDialog_Set_file_name dd aOpenDialog_Set_file_name - OpenDialog_Set_file_ext dd aOpenDialog_Set_file_ext -dd 0,0 - aOpenDialog_Init db 'OpenDialog_init',0 - aOpenDialog_Start db 'OpenDialog_start',0 - aOpenDialog_Set_file_name db 'OpenDialog_set_file_name',0 - aOpenDialog_Set_file_ext db 'OpenDialog_set_file_ext',0 - -align 4 -import_buf2d: - init dd sz_init - buf2d_create dd sz_buf2d_create - buf2d_create_f_img dd sz_buf2d_create_f_img - buf2d_clear dd sz_buf2d_clear - buf2d_draw dd sz_buf2d_draw - buf2d_delete dd sz_buf2d_delete - buf2d_resize dd sz_buf2d_resize - buf2d_line dd sz_buf2d_line - buf2d_rect_by_size dd sz_buf2d_rect_by_size - buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size - buf2d_circle dd sz_buf2d_circle - buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2 - buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2 - buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8 - buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32 - buf2d_bit_blt dd sz_buf2d_bit_blt - buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp - buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha - buf2d_curve_bezier dd sz_buf2d_curve_bezier - buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix - buf2d_draw_text dd sz_buf2d_draw_text - buf2d_crop_color dd sz_buf2d_crop_color - buf2d_offset_h dd sz_buf2d_offset_h - buf2d_flood_fill dd sz_buf2d_flood_fill - buf2d_set_pixel dd sz_buf2d_set_pixel - buf2d_get_pixel dd sz_buf2d_get_pixel - dd 0,0 - sz_init db 'lib_init',0 - sz_buf2d_create db 'buf2d_create',0 - sz_buf2d_create_f_img db 'buf2d_create_f_img',0 - sz_buf2d_clear db 'buf2d_clear',0 - sz_buf2d_draw db 'buf2d_draw',0 - sz_buf2d_delete db 'buf2d_delete',0 - sz_buf2d_resize db 'buf2d_resize',0 - sz_buf2d_line db 'buf2d_line',0 - sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0 - sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0 - sz_buf2d_circle db 'buf2d_circle',0 - sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0 - sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0 - sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0 - sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0 - sz_buf2d_bit_blt db 'buf2d_bit_blt',0 - sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0 - sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0 - sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0 - sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0 - sz_buf2d_draw_text db 'buf2d_draw_text',0 - sz_buf2d_crop_color db 'buf2d_crop_color',0 - sz_buf2d_offset_h db 'buf2d_offset_h',0 - sz_buf2d_flood_fill db 'buf2d_flood_fill',0 - sz_buf2d_set_pixel db 'buf2d_set_pixel',0 - sz_buf2d_get_pixel db 'buf2d_get_pixel',0 - -align 4 -import_lib_tinygl: - -macro E_LIB n -{ - n dd sz_#n -} -include '../../../programs/develop/libraries/TinyGL/asm_fork/export.inc' - dd 0,0 -macro E_LIB n -{ - sz_#n db `n,0 -} -include '../../../programs/develop/libraries/TinyGL/asm_fork/export.inc' - -align 4 -buf_0: dd 0 -.l: dw 5 ;+4 left -.t: dw 35 ;+6 top -.w: dd 6*64 ;+8 w -.h: dd 7*64 ;+12 h -.color: dd 0x808080 ;+16 color - db 24 ;+20 bit in pixel - -align 4 -buf_font: - dd 0 ;указатель на буфер изображения - dd 0 ;+4 left,top -.w: dd 0 -.h: dd 0,0,24 - -align 4 -buf_cop: ;буфер для копирования текстуры - dd 0 -.l: dw 0 ;+4 left -.t: dw 0 ;+6 top -.w: dd 0 -.h: dd 0,0,24 - -;исходное изображение -align 4 -buf_i0: dd 0,0 -.w: dd 0 -.h: dd 0 -.color: dd 0,24 - -;преобразованое изображение -align 4 -buf_ogl: dd 0,0 -.w: dd 0 -.h: dd 0 -.color: dd 0,24 - -align 16 -i_end: -ctx1 rb 28 ;sizeof.TinyGLContext = 28 -TexObj dd 0 ;массив указателей на текстуры (в данном случае 1 шт.) -nav_x_min dd 0 ;мин. коорд. x для навигации -nav_y_min dd 0 ;мин. коорд. y для навигации -nav_x_max dd 0 ;макс. коорд. x -nav_y_max dd 0 ;макс. коорд. y -nav_x dd 0 ;текущ. коорд. x для навигации -nav_y dd 0 ;текущ. коорд. y для навигации -nav_sx dd 0 ;скрол по x -nav_sy dd 0 ;скрол по y -nav_wnd_w dd 0 ;ширина окна навигации -nav_wnd_h dd 0 ;высоата окна навигации -nav_wnd_zoom dd 0 -mouse_down_x dd ? -mouse_down_y dd ? -sel_act dd ? ;точка выбранная для редактирования с клавиатуры -sel_pt rb 8*sizeof.point2d ;точки для выбора 4-х углов -last_time dd 0 -u_line_v dd 0 ;вертикальная линия -u_line_h dd 0 ;горизонтальная линия -txt_buf rb 8 -procinfo process_information -sc system_colors -run_file_70 FileInfoBlock - rb 4096 -align 16 -stacktop: - sys_path rb 1024 - file_name rb 1024 ;4096 - library_path rb 1024 - plugin_path rb 4096 - openfile_path rb 4096 - filename_area rb 256 -mem: +use32 + org 0 + db 'MENUET01' + dd 1,start,i_end,mem,stacktop,openfile_path,sys_path + +include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US. +include '../../macros.inc' +include '../../proc32.inc' +include '../../KOSfuncs.inc' +include '../../load_img.inc' +include '../../load_lib.mac' +include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc' +include '../../develop/libraries/TinyGL/asm_fork/zbuffer.inc' +include '../../develop/libraries/libs-dev/libimg/libimg.inc' +include '../../develop/info3ds/info_fun_float.inc' + +@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load +caption db 'Image transform 08.12.20',0 ;подпись окна + +BUF_STRUCT_SIZE equ 21 +buf2d_data equ dword[edi] ;данные буфера изображения +buf2d_w equ dword[edi+8] ;ширина буфера +buf2d_h equ dword[edi+12] ;высота буфера +buf2d_l equ word[edi+4] +buf2d_t equ word[edi+6] ;отступ сверху +buf2d_size_lt equ dword[edi+4] ;отступ слева и справа для буфера +buf2d_color equ dword[edi+16] ;цвет фона буфера +buf2d_bits equ byte[edi+20] ;количество бит в 1-й точке изображения + +NAV_WND_L equ 145 +NAV_WND_T equ 1 + +include 'select_points.inc' + +IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3 +image_data_toolbar dd 0 + +align 4 +start: + load_libraries l_libs_start,l_libs_end + ;проверка на сколько удачно загузилась библиотека + mov ebp,lib_0 + cmp dword [ebp+ll_struc_size-4],0 + jz @f + mcall SF_TERMINATE_PROCESS + @@: + mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors + mcall SF_SET_EVENTS_MASK,0xC0000027 + stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога + + stdcall [buf2d_create], buf_0 ;создание буфера + + include_image_file '../../../programs/fs/kfar/trunk/font6x9.bmp', image_data_toolbar, buf_font.w,buf_font.h + stdcall [buf2d_create_f_img], buf_font,[image_data_toolbar] ;создаем буфер + stdcall mem.Free,[image_data_toolbar] ;освобождаем память + stdcall [buf2d_conv_24_to_8], buf_font,1 ;делаем буфер прозрачности 8 бит + stdcall [buf2d_convert_text_matrix], buf_font + + include_image_file 'toolbar.png', image_data_toolbar + + mcall SF_SYSTEM_GET,SSF_TIME_COUNT + mov [last_time],eax + + ;настройка точек + call points_init + + ;open file from cmd line + cmp dword[openfile_path],0 + je @f + call but_open_file.no_dlg + @@: + +align 4 +red_win: + call draw_window + +align 16 +still: + mcall SF_SYSTEM_GET,SSF_TIME_COUNT + mov ebx,[last_time] + add ebx,10 ;задержка + cmp ebx,eax + jge @f + mov ebx,eax + @@: + sub ebx,eax + mcall SF_WAIT_EVENT_TIMEOUT + cmp eax,0 + je timer_funct + + cmp al,1 + jz red_win + cmp al,2 + jz key + cmp al,3 + jz button + cmp al,6 + jne @f + mcall SF_THREAD_INFO,procinfo,-1 + cmp ax,word[procinfo.window_stack_position] + jne @f ;окно не активно + call mouse + @@: + jmp still + +align 4 +timer_funct: + push eax ebx + mcall SF_SYSTEM_GET,SSF_TIME_COUNT + mov [last_time],eax + pop ebx eax + cmp byte[calc],0 + je still + call draw_nav_wnd + call draw_buffers + jmp still + +align 16 +draw_window: +pushad + mcall SF_REDRAW,SSF_BEGIN_DRAW + + ; *** рисование главного окна (выполняется 1 раз при запуске) *** + mov edx,[sc.work] + or edx,(3 shl 24)+0x30000000 + mcall SF_CREATE_WINDOW,(20 shl 16)+410,(20 shl 16)+520,,,caption + + mcall SF_THREAD_INFO,procinfo,-1 + mov eax,dword[procinfo.box.height] + cmp eax,120 + jge @f + mov eax,120 ;min size + @@: + sub eax,65 + mov ebx,dword[procinfo.box.width] + cmp ebx,270 + jge @f + mov ebx,270 + @@: + sub ebx,19 + cmp eax,dword[buf_0.h] ;смотрим размер буфера + jne @f + cmp ebx,dword[buf_0.w] + jne @f + jmp .end0 + @@: + stdcall [buf2d_resize],buf_0,ebx,eax,1 + call calc_nav_params + mov eax,[nav_x] + call nav_x_corect + mov [nav_x],eax + mov eax,[nav_y] + call nav_y_corect + mov [nav_y],eax + mov byte[calc],1 + .end0: + + ; *** создание кнопок на панель *** + mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3, [sc.work_button] + + add ebx,25 shl 16 + mcall ,,,4 + add ebx,30 shl 16 + mcall ,,,5 + add ebx,25 shl 16 + mcall ,,,6 + add ebx,25 shl 16 + mcall ,,,7 + + ; *** рисование иконок на кнопках *** + mov edx,(7 shl 16)+7 ;icon open + mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16 + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;icon save + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(30 shl 16) ;icon view + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;icon mode + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + + call draw_nav_wnd + call draw_buffers + + mcall SF_REDRAW,SSF_END_DRAW +popad + ret + +;рисование навигационного окна +align 4 +proc draw_nav_wnd + cmp dword[buf_i0],0 + je .end0 + bt dword[nav_x_min],31 + jnc .end0 + bt dword[nav_y_min],31 + jnc .end0 +pushad + mov ebx,(NAV_WND_L shl 16) + add ebx,[nav_wnd_w] + mov ecx,(NAV_WND_T shl 16) + add ecx,[nav_wnd_h] + mcall SF_DRAW_RECT,,,0 ;изображение + mov ecx,[nav_wnd_zoom] + mov ebx,[nav_x] + neg ebx + sar ebx,cl + add ebx,NAV_WND_L + shl ebx,16 + add ebx,[buf_0.w] + shr bx,cl + mov edx,[nav_y] + neg edx + sar edx,cl + add edx,NAV_WND_T + shl edx,16 + add edx,[buf_0.h] + shr dx,cl + mov ecx,edx + mcall ,,,0x404080 ;часть изображения попадающая в окно + + mov edi,sel_pt + @@: + mov ecx,[nav_wnd_zoom] + mov ebx,[edi+point2d.x] + shr ebx,cl + add ebx,NAV_WND_L + mov edx,[edi+point2d.y] + shr edx,cl + add edx,NAV_WND_T + mov ecx,edx + mcall SF_PUT_PIXEL,,,0xffff00 + add edi,sizeof.point2d + cmp edi,sel_pt+4*sizeof.point2d + jl @b +popad + .end0: + ret +endp + +align 4 +proc draw_buffers +pushad + cmp byte[calc],0 + je .end0 + ; *** обновление буфера *** + bt dword[nav_x_min],31 + jnc .beg0 + bt dword[nav_y_min],31 + jc @f + .beg0: + stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер + @@: + cmp byte[view_b],1 + je .end1 + push buf_i0 + jmp .end2 + .end1: + push buf_ogl + .end2: + stdcall [buf2d_bit_blt], buf_0, [nav_x],[nav_y] ;,... + + call points_draw + xor eax,eax + cmp [u_line_v],eax + je @f + mov eax,[u_line_v] + add eax,[nav_x] + stdcall [buf2d_line], buf_0, eax,0, eax,[buf_0.h], 0xffffff + inc eax + stdcall [buf2d_line], buf_0, eax,0, eax,[buf_0.h], 0 + @@: + xor eax,eax + cmp [u_line_h],eax + je @f + mov eax,[u_line_h] + add eax,[nav_y] + stdcall [buf2d_line], buf_0, 0,eax, [buf_0.w],eax, 0xffffff + inc eax + stdcall [buf2d_line], buf_0, 0,eax, [buf_0.w],eax, 0 + @@: + + ; *** обновление подписи размера файла *** + mov edi,txt_f_size.size + mov eax,[open_file_size] + mov ebx,txt_pref + .cycle: + cmp eax,1024 + jl @f + shr eax,10 + add ebx,4 + jmp .cycle + @@: + stdcall convert_int_to_str, 16 + stdcall str_cat, edi,ebx + stdcall str_cat, edi,txt_space ;завершающий пробел + ;ширина и высота изображения + mov eax,[buf_i0.w] + mov edi,txt_img_w.size + stdcall convert_int_to_str, 16 + mov eax,[buf_i0.h] + mov edi,txt_img_h.size + stdcall convert_int_to_str, 16 + mov byte[calc],0 + .end0: + ; *** рисование буфера *** + stdcall [buf2d_draw], buf_0 + ; *** рисование подписи размера файла *** + mov ecx,[sc.work_text] + or ecx,0x80000000 or (1 shl 30) + mov edi,[sc.work] ;цвет фона окна + mcall SF_DRAW_TEXT,(275 shl 16)+4,,txt_f_size + add ebx,9 + mcall ,,,txt_img_w + add ebx,9 + mcall ,,,txt_img_h +popad + ret +endp + +align 16 +key: + push eax ebx ecx + mcall SF_GET_KEY + cmp byte[view_b],1 + je .end1 + cmp ah,49 ;1 + jne @f + mov edi,sel_pt + call set_point_coords + jmp .end0 + @@: + cmp ah,50 ;2 + jne @f + mov edi,sel_pt+sizeof.point2d + call set_point_coords + jmp .end0 + @@: + cmp ah,51 ;3 + jne @f + mov edi,sel_pt+sizeof.point2d*2 + call set_point_coords + jmp .end0 + @@: + cmp ah,52 ;4 + jne @f + mov edi,sel_pt+sizeof.point2d*3 + call set_point_coords + jmp .end0 + @@: + .end1: + + cmp ah,178 ;Up + jne @f + call but_img_move_up + jmp .end0 + @@: + cmp ah,177 ;Down + jne @f + call but_img_move_down + jmp .end0 + @@: + cmp ah,176 ;Left + jne @f + call but_img_move_left + jmp .end0 + @@: + cmp ah,179 ;Right + jne @f + call but_img_move_right + jmp .end0 + @@: + cmp ah,104 ;H + jne @f + call set_user_line_h + mov byte[calc],1 + jmp .end0 + @@: + cmp ah,118 ;V + jne @f + call set_user_line_w + mov byte[calc],1 + jmp .end0 + @@: + + mov ecx,eax + mcall SF_KEYBOARD,SSF_GET_CONTROL_KEYS + bt eax,2 ;left Ctrl + jc .key_Ctrl + bt eax,3 ;right Ctrl + jc .key_Ctrl + jmp .end0 + .key_Ctrl: + cmp ch,15 ;Ctrl+O + jne @f + call but_open_file + @@: + cmp ch,19 ;Ctrl+S + jne @f + call but_save_file + @@: + + .end0: + pop ecx ebx eax + jmp still + +;input: +; edi - указатель на структуру point2d +align 4 +set_point_coords: + call buf_get_mouse_coord + cmp eax,-1 + je .end0 + sub eax,[nav_x] + cmp eax,0 + jge @f + xor eax,eax + @@: + cmp eax,[buf_i0.w] + jle @f + mov eax,[buf_i0.w] + @@: + mov [edi+point2d.x],eax + sub ebx,[nav_y] + cmp ebx,0 + jge @f + xor ebx,ebx + @@: + cmp ebx,[buf_i0.h] + jle @f + mov ebx,[buf_i0.h] + @@: + mov [edi+point2d.y],ebx + call points_update_prop + mov byte[calc],1 + .end0: + ret + +align 16 +button: + mcall SF_GET_BUTTON + cmp ah,3 + jne @f + call but_open_file + jmp still + @@: + cmp ah,4 + jne @f + call but_save_file + jmp still + @@: + cmp ah,5 + jne @f + call but_2 + jmp still + @@: + cmp ah,6 + jne @f + call but_3 + jmp still + @@: + cmp ah,7 + jne @f + call but_about + jmp still + @@: + cmp ah,1 + jne still +.exit: + stdcall [buf2d_delete],buf_0 + stdcall [buf2d_delete],buf_i0 + ;stdcall [buf2d_delete],buf_ogl + stdcall mem.Free,[image_data_toolbar] + stdcall mem.Free,[open_file_img] + mcall SF_TERMINATE_PROCESS + +align 4 +mouse: + push eax ebx ecx + mcall SF_MOUSE_GET,SSF_BUTTON_EXT + bt eax,8 + jnc @f + ;mouse l. but. press + call mouse_left_d + jmp .end_l + @@: + ;bt eax,0 + ;jnc @f + ;mouse l. but. move + ;call mouse_left_m + ;jmp .end_l + ;@@: + bt eax,16 + jnc .end_l + ;mouse l. but. up + call mouse_left_u + ;jmp .end_l + .end_l: + ;bt eax,9 + ;jnc @f + ;mouse r. but. press + ;call mouse_right_d + ;jmp .end_r + ;@@: + ;bt eax,1 + ;jnc @f + ;mouse r. but. move + ;call mouse_right_m + ;jmp .end_r + ;@@: + ;.end_r: + + pop ecx ebx eax + ret + +;output: +; eax - buffer coord X (если курсор за буфером -1) +; ebx - buffer coord Y (если курсор за буфером -1) +align 4 +proc buf_get_mouse_coord + mcall SF_MOUSE_GET,SSF_WINDOW_POSITION + cmp ax,word[buf_0.t] + jl .no_buf ;не попали в окно буфера по оси y + mov ebx,eax + shr ebx,16 + cmp bx,word[buf_0.l] + jl .no_buf ;не попали в окно буфера по оси x + + and eax,0xffff ;оставляем координату y + sub ax,word[buf_0.t] + cmp eax,[buf_0.h] + jg .no_buf + sub bx,word[buf_0.l] + cmp ebx,[buf_0.w] + jg .no_buf + xchg eax,ebx + jmp .end_f + .no_buf: + xor eax,eax + not eax + xor ebx,ebx + not ebx + .end_f: + ret +endp + +;output: +; eax - buffer coord X (если курсор за буфером -1) +; ebx - buffer coord Y (если курсор за буфером -1) +align 4 +proc nav_wnd_get_mouse_coord + mcall SF_MOUSE_GET,SSF_WINDOW_POSITION + cmp ax,NAV_WND_T + jl .no_buf ;не попали в окно буфера по оси y + cmp eax,NAV_WND_L shl 16 + jl .no_buf ;не попали в окно буфера по оси x + mov ebx,eax + shr ebx,16 + + and eax,0xffff ;оставляем координату y + sub ax,NAV_WND_T + cmp eax,[nav_wnd_h] + jg .no_buf + sub bx,NAV_WND_L + cmp ebx,[nav_wnd_w] + jg .no_buf + xchg eax,ebx + jmp .end_f + .no_buf: + xor eax,eax + not eax + xor ebx,ebx + not ebx + .end_f: + ret +endp + +align 4 +mouse_left_d: +pushad + call buf_get_mouse_coord + cmp eax,-1 + je .end0 + mov [mouse_down_x],eax + mov [mouse_down_y],ebx + sub eax,[nav_x] + sub ebx,[nav_y] + + mov edi,sel_pt + xor ecx,ecx + .cycle0: + mov edx,[edi+point2d.x] + sub edx,eax + bt edx,31 + jnc @f + neg edx + @@: + cmp edx,5 ;размер для выделения точки по оси x + jg .end1 + mov edx,[edi+point2d.y] + sub edx,ebx + bt edx,31 + jnc @f + neg edx + @@: + cmp edx,5 ;размер для выделения точки по оси y + jg .end1 + mov [sel_act],ecx + jmp .end0 + .end1: + add edi,sizeof.point2d + inc ecx + cmp ecx,4 + jl .cycle0 + mov dword[sel_act],-1 + jmp .end2 + .end0: + call nav_wnd_get_mouse_coord + cmp eax,-1 + je .end2 + mov ecx,[nav_wnd_zoom] + shl eax,cl + shl ebx,cl + stdcall nav_to_point, eax,ebx + mov byte[calc],1 + .end2: +popad + ret + +align 4 +proc mouse_left_u uses eax ebx + call buf_get_mouse_coord + cmp eax,-1 + je .end0 + sub [mouse_down_x],eax + sub [mouse_down_y],ebx + + cmp dword[sel_act],-1 + je .end1 + ;двигаем точки + mov eax,[sel_act] + imul eax,sizeof.point2d + add eax,sel_pt + ;coord x + mov ebx,dword[eax+point2d.x] + sub ebx,[mouse_down_x] + cmp ebx,0 + jge @f + xor ebx,ebx + @@: + cmp ebx,[buf_i0.w] + jle @f + mov ebx,[buf_i0.w] + @@: + mov dword[eax+point2d.x],ebx + ;coord y + mov ebx,dword[eax+point2d.y] + sub ebx,[mouse_down_y] + cmp ebx,0 + jge @f + xor ebx,ebx + @@: + cmp ebx,[buf_i0.h] + jle @f + mov ebx,[buf_i0.h] + @@: + mov dword[eax+point2d.y],ebx + call points_update_prop + jmp .end2 + .end1: + + ;двигаем изображение + mov eax,[nav_y] + sub eax,[mouse_down_y] + call nav_y_corect + mov [nav_y],eax + + mov eax,[nav_x] + sub eax,[mouse_down_x] + call nav_x_corect + mov [nav_x],eax + .end2: + mov byte[calc],1 + .end0: + ret +endp + +align 4 +set_user_line_h: +pushad + call buf_get_mouse_coord + cmp eax,-1 + je .end0 + mov [mouse_down_y],ebx + sub ebx,[nav_y] + cmp eax,[buf_i0.h] + jle @f + mov eax,[buf_i0.h] + @@: + cmp [u_line_h],ebx + jne @f + xor ebx,ebx ;line on/off + @@: + mov [u_line_h],ebx + .end0: +popad + ret + +align 4 +set_user_line_w: +pushad + call buf_get_mouse_coord + cmp eax,-1 + je .end0 + mov [mouse_down_x],eax + sub eax,[nav_x] + cmp eax,[buf_i0.w] + jle @f + mov eax,[buf_i0.w] + @@: + cmp [u_line_v],eax + jne @f + xor eax,eax ;line on/off + @@: + mov [u_line_v],eax + .end0: +popad + ret + +align 4 +proc but_new_file uses eax edi esi + xor eax,eax + mov [open_file_size],eax + mov edi,[open_file_img] + stosd + ret +endp + +align 4 +open_file_img dd 0 ;указатель на память для открытия текстур +open_file_size dd 0 ;размер + +;вычисление параметров для навигации по изображению +align 4 +proc calc_nav_params uses eax ecx edi + mov dword[nav_x_max],0 + mov edi,buf_0 + mov eax,buf2d_w + mov [nav_sx],eax + mov edi,buf_i0 + sub eax,buf2d_w + bt eax,31 + jc @f + mov [nav_x_max],eax + xor eax,eax + @@: + mov [nav_x_min],eax + mov edi,buf2d_w + cmp [nav_sx],edi + jle @f + mov [nav_sx],edi + @@: + shr dword[nav_sx],1 + + mov dword[nav_y_max],0 + mov edi,buf_0 + mov eax,buf2d_h + mov [nav_sy],eax + mov edi,buf_i0 + sub eax,buf2d_h + bt eax,31 + jc @f + mov [nav_y_max],eax + xor eax,eax + @@: + mov [nav_y_min],eax + mov edi,buf2d_h + cmp [nav_sy],edi + jle @f + mov [nav_sy],edi + @@: + shr dword[nav_sy],1 + + xor ecx,ecx + mov [u_line_v],ecx + mov eax,[buf_i0.w] + @@: + inc ecx + shr eax,1 + cmp eax,100 + jg @b + mov [nav_wnd_zoom],ecx + xor ecx,ecx + mov [u_line_h],ecx + mov eax,[buf_i0.h] + @@: + inc ecx + shr eax,1 + cmp eax,32 + jg @b + cmp [nav_wnd_zoom],ecx + jg @f + mov [nav_wnd_zoom],ecx + @@: + mov ecx,[nav_wnd_zoom] + mov eax,[buf_i0.w] + shr eax,cl + mov [nav_wnd_w],eax + mov eax,[buf_i0.h] + shr eax,cl + mov [nav_wnd_h],eax + ret +endp + +align 4 +proc but_open_file + copy_path open_dialog_name,communication_area_default_path,file_name,0 + pushad + mov [OpenDialog_data.type],0 + stdcall [OpenDialog_Start],OpenDialog_data + cmp [OpenDialog_data.status],2 + je .end_open_file + jmp .end0 +.no_dlg: ;если минуем диалог открытия файла + pushad + mov esi,openfile_path + stdcall str_len,esi + add esi,eax + @@: ;цикл для поиска начала имени файла + dec esi + cmp byte[esi],'/' + je @f + cmp byte[esi],0x5c ;'\' + je @f + cmp esi,openfile_path + jg @b + @@: + inc esi + stdcall [OpenDialog_Set_file_name],OpenDialog_data,esi ;копируем имя файла в диалог сохранения + .end0: + + mov [run_file_70.Function], SSF_GET_INFO + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + mov dword[run_file_70.Count], 0 + mov dword[run_file_70.Buffer], open_b + mov byte[run_file_70+20], 0 + mov dword[run_file_70.FileName], openfile_path + mcall SF_FILE,run_file_70 + + mov ecx,dword[open_b+32] ;+32 qword: размер файла в байтах + mov [open_file_size],ecx + stdcall mem.ReAlloc,[open_file_img],ecx ;выделяем память для изображения + mov [open_file_img],eax + + mov [run_file_70.Function], SSF_READ_FILE + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + m2m [run_file_70.Count], dword[open_file_size] + m2m [run_file_70.Buffer],dword[open_file_img] + mov byte[run_file_70+20], 0 + mov [run_file_70.FileName], openfile_path + mcall SF_FILE,run_file_70 + cmp ebx,0xffffffff + je .end_0 + ;определяем вид изображения + stdcall [img_decode], [open_file_img],ebx,0 + or eax,eax + jz .end_0 ;если нарушен формат файла + mov ebx,eax + + mov ecx,[ebx+4] ;+4 = image width + mov dword[buf_cop.w],ecx + imul ecx,[ebx+8] ;+8 = image height + lea ecx,[ecx+ecx*2] + mov [open_file_size],ecx + stdcall mem.ReAlloc,[open_file_img],ecx + mov [open_file_img],eax + mov dword[buf_cop],eax + mov dword[buf_cop.l],0 ;left = 0, top = 0 + m2m dword[buf_cop.h],dword[ebx+8] + + ;преобразуем изображение к формату rgb + stdcall [img_to_rgb2], ebx,[open_file_img] + mov edi,buf_i0 + cmp buf2d_data,0 + jne .end3 + stdcall getNextPowerOfTwo,[ebx+8] + mov buf2d_h,eax + mov edx,eax + stdcall getNextPowerOfTwo,[ebx+4] + mov buf2d_w,eax + cmp edx,[ebx+8] + jne @f + cmp eax,[ebx+4] + jne @f + ;создание нового изображения по исходным размерам + stdcall [buf2d_create_f_img], edi,[open_file_img] + jmp .end_1 + @@: + ;создание нового изображения по преобразованным размерам + cmp eax,[ebx+4] + jge @f + mov eax,[ebx+4] + mov buf2d_w,eax + @@: + sub eax,[ebx+4] + shr eax,1 + mov esi,eax + cmp edx,[ebx+8] + jge @f + mov edx,[ebx+8] + mov buf2d_h,edx + @@: + sub edx,[ebx+8] + shr edx,1 + stdcall [buf2d_create], edi + mov [buf_cop.l],si + mov [buf_cop.t],dx + stdcall [buf2d_bit_blt], edi, esi,edx, buf_cop + jmp .end_1 + .end3: + ;преобразование созданного изображения + stdcall getNextPowerOfTwo,[ebx+4] + cmp eax,[ebx+4] + jg @f + mov eax,[ebx+4] + @@: + mov ecx,eax ;размер по x + stdcall getNextPowerOfTwo,[ebx+8] + cmp eax,[ebx+8] + jg @f + mov eax,[ebx+8] + @@: + mov edx,eax ;размер по y + stdcall [buf2d_resize], edi, ecx,edx,1 ;изменяем размеры буфера + stdcall [buf2d_clear], edi, buf2d_color + sub ecx,[ebx+4] + shr ecx,1 + mov [buf_cop.l],cx + sub edx,[ebx+8] + shr edx,1 + mov [buf_cop.t],dx + stdcall [buf2d_bit_blt], edi, ecx,edx, buf_cop + .end_1: + + ;создаем буфер для преобразованного изображения + mov edi,buf_ogl + mov eax,[buf_i0.w] + mov buf2d_w,eax + mov eax,[buf_i0.h] + mov buf2d_h,eax + cmp buf2d_data,0 + jne @f + stdcall [kosglMakeCurrent], 0,35,buf2d_w,buf2d_h,ctx1 + stdcall [glEnable], GL_DEPTH_TEST + stdcall [glEnable], GL_NORMALIZE ;делам нормали одинаковой величины во избежание артефактов + stdcall [glShadeModel], GL_SMOOTH + stdcall [glScalef], 2.0, -2.0, 1.0 + stdcall [glTranslatef], -0.5, -0.5, 0.0 + jmp .end_2 + @@: + stdcall reshape, buf2d_w,buf2d_h ;изменяем размеры буфера buf_ogl + .end_2: + mov eax,dword[ctx1] ;eax -> TinyGLContext.GLContext + mov eax,[eax] ;eax -> ZBuffer + mov eax,[eax+ZBuffer.pbuf] + mov buf2d_data,eax + + stdcall [buf2d_bit_blt], edi, 0,0, buf_i0 ;копируем изображение для востановления + + ;* Setup texturing * + stdcall [glTexEnvi], GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL + + ;* generate texture object IDs * + stdcall [glGenTextures], 1, TexObj + stdcall [glBindTexture], GL_TEXTURE_2D, [TexObj] + stdcall [glTexImage2D], GL_TEXTURE_2D, 0, 3, [buf_i0.w], [buf_i0.h],\ + 0, GL_RGB, GL_UNSIGNED_BYTE, [buf_i0] ;делаем текстуру на основе буфера, само изображение в буфере может испортится при подгонке размеров текстуры + + stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST + stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST + stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT + stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT + stdcall [glBindTexture], GL_TEXTURE_2D, [TexObj] + stdcall [glEnable], GL_TEXTURE_2D + + stdcall [buf2d_bit_blt], buf_i0, 0,0, edi ;востанавливаем изображение испорченое при установке текстуры + + ;удаляем временный буфер в ebx + stdcall [img_destroy], ebx + + movzx eax,word[buf_cop.l] + movzx ebx,word[buf_cop.t] + stdcall points_init_2,eax,ebx + + call calc_nav_params + stdcall nav_to_point, dword[sel_pt+point2d.x],dword[sel_pt+point2d.y] + mov byte[view_b],0 + mov dword[sel_act],-1 ;снимаем выделение с точек + mov byte[calc],1 + .end_0: + + .end_open_file: + popad + ret +endp + +align 4 +proc nav_to_point, coord_x:dword, coord_y:dword + ;coord x + mov eax,[nav_x_max] + cmp eax,0 + jle @f + ;если маленькое изображение то ставим по центру + shr eax,1 + jmp .end0 + @@: + mov eax,[buf_0.w] + shr eax,1 + sub eax,[coord_x] + call nav_x_corect + .end0: + mov [nav_x],eax + ;coord y + mov eax,[nav_y_max] + cmp eax,0 + jle @f + ;если маленькое изображение то ставим по центру + shr eax,1 + jmp .end1 + @@: + mov eax,[buf_0.h] + shr eax,1 + sub eax,[coord_y] + call nav_y_corect + .end1: + mov [nav_y],eax + ret +endp + +;input: +; eax - navigation coord x +;output: +; eax - valid coord x +align 4 +nav_x_corect: + cmp eax,[nav_x_min] + jge @f + mov eax,[nav_x_min] + @@: + cmp eax,[nav_x_max] + jle @f + mov eax,[nav_x_max] + @@: + ret + +;input: +; eax - navigation coord y +;output: +; eax - valid coord y +align 4 +nav_y_corect: + cmp eax,[nav_y_min] + jge @f + mov eax,[nav_y_min] + @@: + cmp eax,[nav_y_max] + jle @f + mov eax,[nav_y_max] + @@: + ret + +align 4 +proc getNextPowerOfTwo uses ebx, n:dword + mov ebx,[n] + mov eax,8 ;min size + cmp ebx,eax + jle .set + @@: + shl eax,1 + cmp ebx,eax + jg @b + cmp eax,4096 ;max size + jle .set + mov eax,4096 + .set: + ret +endp + +; new window size or exposure +align 4 +proc reshape uses ebx ecx, width:dword, height:dword + stdcall [glViewport], 0, 0, [width], [height] + stdcall [glMatrixMode], GL_MODELVIEW + stdcall [glLoadIdentity] + stdcall [glScalef], 2.0, -2.0, 1.0 + stdcall [glTranslatef], -0.5, -0.5, 0.0 + ret +endp + +align 4 +proc but_save_file +locals + png_data dd 0 + png_size dd 0 +endl + pushad + copy_path open_dialog_name,communication_area_default_path,file_name,0 + mov [OpenDialog_data.type],1 + stdcall [OpenDialog_Set_file_ext],OpenDialog_data,Filter.1 ;.png + stdcall [OpenDialog_Start],OpenDialog_data + cmp [OpenDialog_data.status],1 + jne .end_save_file + ;код при удачном открытии диалога + mov dword[png_data],0 + + ;create image struct + stdcall [img_create], [buf_ogl.w], [buf_ogl.h], Image.bpp24 + mov ebx,eax + test eax,eax + jz @f + ;copy foto to image buffer + mov edi,[eax+Image.Data] + mov esi,[buf_ogl] + mov ecx,[buf_ogl.w] + mov edx,[buf_ogl.h] + imul ecx,edx + imul ecx,3 + shr ecx,2 ;OpenGL buffer align to 4 + rep movsd + + ;encode image + stdcall [img_encode], eax, LIBIMG_FORMAT_PNG, 0 + test eax,eax + jz @f + mov [png_data],eax + mov [png_size],ecx + @@: + stdcall [img_destroy],ebx + + ; заполняем структуру для сохранения файла + mov ebx,run_file_70 + mov dword[ebx],SSF_CREATE_FILE + mov eax,[png_size] + mov [ebx+12],eax ;file size + mov eax,[png_data] + mov [ebx+16],eax + mov dword[ebx+FileInfoBlock.FileName], openfile_path + + mcall SF_FILE,run_file_70 + test eax,eax + jnz .save_error + ;notify_window_run openfile_path + jmp @f + .save_error: + ;сообщение о неудачном сохранении + notify_window_run txt_err_save_img_file + @@: + mcall SF_SYS_MISC, SSF_MEM_FREE, [png_data] + .end_save_file: + popad + ret +endp + +align 4 +but_2: + xor byte[view_b],1 + mov byte[calc],1 + ret + +align 4 +but_3: + xor byte[trans_a],1 + call points_update_prop + mov byte[calc],1 + ret + +align 4 +but_about: + notify_window_run txt_about + ret + +align 4 +calc db 0 ;0 - не пересчитывать буфер, 1 - пересчитать и обновить буфер +view_b db 0 ;0 - исходный буфер, 1 - просмотр результата +trans_a db 0 ;0 - преобразовать по заданному размеру, 1 - преобразовать на весь буфер + +align 4 +proc but_img_move_up uses eax + cmp dword[sel_act],-1 + je .end0 + mov eax,[sel_act] + imul eax,sizeof.point2d + add eax,sel_pt + cmp dword[eax+point2d.y],0 + je .end2 + dec dword[eax+point2d.y] + call points_update_prop + jmp .end1 + .end0: + mov eax,[nav_y] + sub eax,[nav_sy] + cmp eax,[nav_y_min] + jge @f + mov eax,[nav_y_min] + @@: + mov [nav_y],eax + .end1: + mov byte[calc],1 + .end2: + ret +endp + +align 4 +proc but_img_move_down uses eax edi + cmp dword[sel_act],-1 + je .end0 + mov eax,[sel_act] + imul eax,sizeof.point2d + add eax,sel_pt + mov edi,buf_ogl + mov edi,buf2d_h + cmp dword[eax+point2d.y],edi + jge .end2 + inc dword[eax+point2d.y] + call points_update_prop + jmp .end1 + .end0: + mov eax,[nav_y] + add eax,[nav_sy] + cmp eax,[nav_y_max] + jle @f + mov eax,[nav_y_max] + @@: + mov [nav_y],eax + .end1: + mov byte[calc],1 + .end2: + ret +endp + +align 4 +proc but_img_move_left uses eax + cmp dword[sel_act],-1 + je .end0 + mov eax,[sel_act] + imul eax,sizeof.point2d + add eax,sel_pt + cmp dword[eax+point2d.x],0 + je .end2 + dec dword[eax+point2d.x] + call points_update_prop + jmp .end1 + .end0: + mov eax,[nav_x] + sub eax,[nav_sx] + cmp eax,[nav_x_min] + jge @f + mov eax,[nav_x_min] + @@: + mov [nav_x],eax + .end1: + mov byte[calc],1 + .end2: + ret +endp + +align 4 +proc but_img_move_right uses eax edi + cmp dword[sel_act],-1 + je .end0 + mov eax,[sel_act] + imul eax,sizeof.point2d + add eax,sel_pt + mov edi,buf_ogl + mov edi,buf2d_w + cmp dword[eax+point2d.x],edi + jge .end2 + inc dword[eax+point2d.x] + call points_update_prop + jmp .end1 + .end0: + mov eax,[nav_x] + add eax,[nav_sx] + cmp eax,[nav_x_max] + jle @f + mov eax,[nav_x_max] + @@: + mov [nav_x],eax + .end1: + mov byte[calc],1 + .end2: + ret +endp + +;input: +; eax - число +; edi - буфер для строки +; len - длинна буфера +;output: +align 4 +proc convert_int_to_str, len:dword +pushad + mov esi,[len] + add esi,edi + dec esi + bt eax,31 + jae @f + ;если число отрицательное + neg eax + mov byte[edi],'-' + inc edi + @@: + call .str +popad + ret +endp + +align 4 +.str: + mov ecx,10 + cmp eax,ecx + jb @f + xor edx,edx + div ecx + push edx + ;dec edi ;смещение необходимое для записи с конца строки + call .str + pop eax + @@: + cmp edi,esi + jge @f + or al,0x30 + stosb + mov byte[edi],0 ;в конец строки ставим 0, что-бы не вылазил мусор + @@: + ret + +;данные для диалога открытия файлов +align 4 +OpenDialog_data: +.type dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию +.procinfo dd procinfo ;+4 +.com_area_name dd communication_area_name ;+8 +.com_area dd 0 ;+12 +.opendir_path dd plugin_path ;+16 +.dir_default_path dd default_dir ;+20 +.start_path dd file_name ;+24 путь к диалогу открытия файлов +.draw_window dd draw_window ;+28 +.status dd 0 ;+32 +.openfile_path dd openfile_path ;+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 + +default_dir db '/sys',0 + +communication_area_name: + db 'FFFFFFFF_open_dialog',0 +open_dialog_name: + db 'opendial',0 +communication_area_default_path: + db '/sys/File managers/',0 + +Filter: +dd Filter.end - Filter ;.1 +.1: +db 'PNG',0 +db 'JPG',0 +db 'JPEG',0 +db 'BMP',0 +db 'GIF',0 +.end: +db 0 + +txt_space db ' ',0 + +if lang eq ru_RU + txt_err_save_img_file db 'Не могу сохранить *.png файл.',0 + txt_about db '"О программе',13,10,\ + 'Данная программа сделана для преобразования изображений.',13,10,\ + 'После открытия файла изображения нужно указать 4 точки,',13,10,\ + 'которые станут углами преобразованого изображения." -tI',0 + txt_pref db ' б ',0,' Кб',0,' Мб',0,' Гб',0 ;приставки: кило, мега, гига + txt_f_size db 'Размер: ' +.size: rb 16 + txt_img_w db 'Ширина: ' +.size: rb 16 + txt_img_h db 'Высота: ' +else ; Default to en_US + txt_err_save_img_file db 'Can',39,'t save *.png file.',0 + txt_about db '"About',13,10,\ + 'This program is designed to convert images.',13,10,\ + 'After opening the image file, you need to specify 4 points',13,10,\ + 'that will become the corners of the converted image." -tI',0 + txt_pref db ' b ',0,' Kb',0,' Mb',0,' Gb',0 ; Prefixes: Kilo, Mega, Giga + txt_f_size db 'Size: ' +.size: rb 16 + txt_img_w db 'Width: ' +.size: rb 16 + txt_img_h db 'Height: ' +end if +.size: rb 16 + + +system_dir_0 db '/sys/lib/' +lib_name_0 db 'proc_lib.obj',0 +system_dir_1 db '/sys/lib/' +lib_name_1 db 'libimg.obj',0 +system_dir_2 db '/sys/lib/' +lib_name_2 db 'buf2d.obj',0 +system_dir_3 db '/sys/lib/' +lib_name_3 db 'tinygl.obj',0 + +align 4 +l_libs_start: + lib_0 l_libs lib_name_0, file_name, system_dir_0, import_proclib + lib_1 l_libs lib_name_1, file_name, system_dir_1, import_libimg + lib_2 l_libs lib_name_2, library_path, system_dir_2, import_buf2d + lib_3 l_libs lib_name_3, library_path, system_dir_3, import_lib_tinygl +l_libs_end: + +align 4 +import_libimg: + dd alib_init1 + img_is_img dd aimg_is_img + img_info dd aimg_info + img_from_file dd aimg_from_file + img_to_file dd aimg_to_file + img_from_rgb dd aimg_from_rgb + img_to_rgb dd aimg_to_rgb + img_to_rgb2 dd aimg_to_rgb2 + img_decode dd aimg_decode + img_encode dd aimg_encode + img_create dd aimg_create + img_destroy dd aimg_destroy + img_destroy_layer dd aimg_destroy_layer + img_count dd aimg_count + img_lock_bits dd aimg_lock_bits + img_unlock_bits dd aimg_unlock_bits + img_flip dd aimg_flip + img_flip_layer dd aimg_flip_layer + img_rotate dd aimg_rotate + img_rotate_layer dd aimg_rotate_layer + img_draw dd aimg_draw + + dd 0,0 + alib_init1 db 'lib_init',0 + aimg_is_img db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение + aimg_info db 'img_info',0 + aimg_from_file db 'img_from_file',0 + aimg_to_file db 'img_to_file',0 + aimg_from_rgb db 'img_from_rgb',0 + aimg_to_rgb db 'img_to_rgb',0 ;преобразование изображения в данные RGB + aimg_to_rgb2 db 'img_to_rgb2',0 + aimg_decode db 'img_decode',0 ;автоматически определяет формат графических данных + aimg_encode db 'img_encode',0 + aimg_create db 'img_create',0 + aimg_destroy db 'img_destroy',0 + aimg_destroy_layer db 'img_destroy_layer',0 + aimg_count db 'img_count',0 + aimg_lock_bits db 'img_lock_bits',0 + aimg_unlock_bits db 'img_unlock_bits',0 + aimg_flip db 'img_flip',0 + aimg_flip_layer db 'img_flip_layer',0 + aimg_rotate db 'img_rotate',0 + aimg_rotate_layer db 'img_rotate_layer',0 + aimg_draw db 'img_draw',0 + +align 4 +import_proclib: + OpenDialog_Init dd aOpenDialog_Init + OpenDialog_Start dd aOpenDialog_Start + OpenDialog_Set_file_name dd aOpenDialog_Set_file_name + OpenDialog_Set_file_ext dd aOpenDialog_Set_file_ext +dd 0,0 + aOpenDialog_Init db 'OpenDialog_init',0 + aOpenDialog_Start db 'OpenDialog_start',0 + aOpenDialog_Set_file_name db 'OpenDialog_set_file_name',0 + aOpenDialog_Set_file_ext db 'OpenDialog_set_file_ext',0 + +align 4 +import_buf2d: + init dd sz_init + buf2d_create dd sz_buf2d_create + buf2d_create_f_img dd sz_buf2d_create_f_img + buf2d_clear dd sz_buf2d_clear + buf2d_draw dd sz_buf2d_draw + buf2d_delete dd sz_buf2d_delete + buf2d_resize dd sz_buf2d_resize + buf2d_line dd sz_buf2d_line + buf2d_rect_by_size dd sz_buf2d_rect_by_size + buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size + buf2d_circle dd sz_buf2d_circle + buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2 + buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2 + buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8 + buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32 + buf2d_bit_blt dd sz_buf2d_bit_blt + buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp + buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha + buf2d_curve_bezier dd sz_buf2d_curve_bezier + buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix + buf2d_draw_text dd sz_buf2d_draw_text + buf2d_crop_color dd sz_buf2d_crop_color + buf2d_offset_h dd sz_buf2d_offset_h + buf2d_flood_fill dd sz_buf2d_flood_fill + buf2d_set_pixel dd sz_buf2d_set_pixel + buf2d_get_pixel dd sz_buf2d_get_pixel + dd 0,0 + sz_init db 'lib_init',0 + sz_buf2d_create db 'buf2d_create',0 + sz_buf2d_create_f_img db 'buf2d_create_f_img',0 + sz_buf2d_clear db 'buf2d_clear',0 + sz_buf2d_draw db 'buf2d_draw',0 + sz_buf2d_delete db 'buf2d_delete',0 + sz_buf2d_resize db 'buf2d_resize',0 + sz_buf2d_line db 'buf2d_line',0 + sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0 + sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0 + sz_buf2d_circle db 'buf2d_circle',0 + sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0 + sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0 + sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0 + sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0 + sz_buf2d_bit_blt db 'buf2d_bit_blt',0 + sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0 + sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0 + sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0 + sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0 + sz_buf2d_draw_text db 'buf2d_draw_text',0 + sz_buf2d_crop_color db 'buf2d_crop_color',0 + sz_buf2d_offset_h db 'buf2d_offset_h',0 + sz_buf2d_flood_fill db 'buf2d_flood_fill',0 + sz_buf2d_set_pixel db 'buf2d_set_pixel',0 + sz_buf2d_get_pixel db 'buf2d_get_pixel',0 + +align 4 +import_lib_tinygl: + +macro E_LIB n +{ + n dd sz_#n +} +include '../../../programs/develop/libraries/TinyGL/asm_fork/export.inc' + dd 0,0 +macro E_LIB n +{ + sz_#n db `n,0 +} +include '../../../programs/develop/libraries/TinyGL/asm_fork/export.inc' + +align 4 +buf_0: dd 0 +.l: dw 5 ;+4 left +.t: dw 35 ;+6 top +.w: dd 6*64 ;+8 w +.h: dd 7*64 ;+12 h +.color: dd 0x808080 ;+16 color + db 24 ;+20 bit in pixel + +align 4 +buf_font: + dd 0 ;указатель на буфер изображения + dd 0 ;+4 left,top +.w: dd 0 +.h: dd 0,0,24 + +align 4 +buf_cop: ;буфер для копирования текстуры + dd 0 +.l: dw 0 ;+4 left +.t: dw 0 ;+6 top +.w: dd 0 +.h: dd 0,0,24 + +;исходное изображение +align 4 +buf_i0: dd 0,0 +.w: dd 0 +.h: dd 0 +.color: dd 0,24 + +;преобразованое изображение +align 4 +buf_ogl: dd 0,0 +.w: dd 0 +.h: dd 0 +.color: dd 0,24 + +align 16 +i_end: +ctx1 rb 28 ;sizeof.TinyGLContext = 28 +TexObj dd 0 ;массив указателей на текстуры (в данном случае 1 шт.) +nav_x_min dd 0 ;мин. коорд. x для навигации +nav_y_min dd 0 ;мин. коорд. y для навигации +nav_x_max dd 0 ;макс. коорд. x +nav_y_max dd 0 ;макс. коорд. y +nav_x dd 0 ;текущ. коорд. x для навигации +nav_y dd 0 ;текущ. коорд. y для навигации +nav_sx dd 0 ;скрол по x +nav_sy dd 0 ;скрол по y +nav_wnd_w dd 0 ;ширина окна навигации +nav_wnd_h dd 0 ;высоата окна навигации +nav_wnd_zoom dd 0 +mouse_down_x dd ? +mouse_down_y dd ? +sel_act dd ? ;точка выбранная для редактирования с клавиатуры +sel_pt rb 8*sizeof.point2d ;точки для выбора 4-х углов +last_time dd 0 +u_line_v dd 0 ;вертикальная линия +u_line_h dd 0 ;горизонтальная линия +txt_buf rb 8 +procinfo process_information +sc system_colors +run_file_70 FileInfoBlock + rb 4096 +align 16 +stacktop: + sys_path rb 1024 + file_name rb 1024 ;4096 + library_path rb 1024 + plugin_path rb 4096 + openfile_path rb 4096 + filename_area rb 256 +mem: diff --git a/programs/media/piano/piano.asm b/programs/media/piano/piano.asm index ae6059494b..cdfadbfde7 100644 --- a/programs/media/piano/piano.asm +++ b/programs/media/piano/piano.asm @@ -1,913 +1,913 @@ -; Простой пример программы для KolibriOS -; озвучивает код нажатой клавиши -; -;--------------------------------------------------------------------- - - use32 - org 0 - - db 'MENUET01' - dd 1 - dd START - dd I_END - dd MEM - dd STACKTOP - dd 0 - dd 0 - -include "lang.inc" -include "../../macros.inc" -include "../../KOSfuncs.inc" - - -START: - -red: ; перерисовать окно - - call draw_window ; вызываем процедуру отрисовки окна - - -still: - mcall SF_WAIT_EVENT - - cmp eax,2 ; нажата клавиша ? - je key ; если да - на key - cmp eax,3 ; нажата кнопка ? - je button ; если да - на button - cmp eax,1 ; перерисовать окно ? - je red ; если да - на метку red - - jmp still ; если другое событие - в начало цикла - - - -;--------------------------------------------------------------------- - - - key: ; нажата клавиша на клавиатуре - mcall SF_GET_KEY ; считать код символа (в ah) - - - cmp ah, 0x41 ; A - if Caps Lock ON - jnz @f - jmp _07 - @@: - cmp ah, 0x5a ; Z - jnz @f - jmp _08 - @@: - cmp ah, 0x53 ; S - jnz @f - jmp _09 - @@: - cmp ah, 0x58 ; X - jnz @f - jmp _0a - @@: - cmp ah, 0x44 ; D - jnz @f - jmp _0b - @@: - cmp ah, 0x43 ; C - jnz @f - jmp _0c - @@: - cmp ah, 0x56 ; V - jnz @f - _01: - mov ah, 0x01 - jmp p - @@: - cmp ah, 0x47 ; G - jnz @f - _02: - mov ah, 0x02 - jmp p - @@: - cmp ah, 0x42 ; B - jnz @f - _03: - mov ah, 0x03 - jmp p - @@: - cmp ah, 0x48 ; H - jnz @f - _04: - mov ah, 0x04 - jmp p - @@: - cmp ah, 0x4e ; N - jnz @f - _05: - mov ah, 0x05 - jmp p - @@: - cmp ah, 0x4d ; M - jnz @f - _06: - mov ah, 0x06 - jmp p - @@: - cmp ah, 0x4b ; K - jnz @f - _07: - mov ah, 0x07 - jmp p - @@: - cmp ah, 0x3c ; < - jnz @f - _08: - mov ah, 0x08 - jmp p - @@: - cmp ah, 0x4c ; L - jnz @f - _09: - mov ah, 0x09 - jmp p - @@: - cmp ah, 0x3e ; > - jnz @f - _0a: - mov ah, 0x0a - jmp p - @@: - cmp ah, 0x3a ; : - jnz @f - _0b: - mov ah, 0x0b - jmp p - @@: - cmp ah, 0x3f ; ? - jnz @f - _0c: - mov ah, 0x0c - jmp p - @@: - cmp ah, 0x22 ; " - jnz @f - jmp _11 - @@: - cmp ah, 0x21 ; key !------- - jnz @f - jmp _0c - @@: - cmp ah, 0x51 ; key Q - jnz @f - _11: - mov ah, 0x11 - jmp p - @@: - cmp ah, 0x40 ; key @ - jnz @f - _12: - mov ah, 0x12 - jmp p - @@: - cmp ah, 0x57 ; key W - jnz @f - _13: - mov ah, 0x13 - jmp p - @@: - cmp ah, 0x23 ; key # - jnz @f - _14: - mov ah, 0x14 - jmp p - @@: - cmp ah, 0x45 ; key E - jnz @f - _15: - mov ah, 0x15 - jmp p - @@: - cmp ah, 0x52 ; key R - jnz @f - _16: - mov ah, 0x16 - jmp p - @@: - cmp ah, 0x25 ; key % - jnz @f - jmp _17 - @@: - cmp ah, 0x54 ; key T - jnz @f - jmp _18 - @@: - cmp ah, 0x5e ; key ^ - jnz @f - jmp _19 - @@: - cmp ah, 0x59 ; key Y - jnz @f - jmp _1a - @@: - cmp ah, 0x26 ; key & - jnz @f - jmp _1b - @@: - cmp ah, 0x55 ; key U - jnz @f - jmp _1c - @@: - cmp ah, 0x49 ; key I - jnz @f - jmp _21 - @@: - cmp ah, 0x28 ; key ( - jnz @f - jmp _22 - @@: - cmp ah, 0x4f ; key O - jnz @f - jmp _23 - @@: - cmp ah, 0x29 ; key ) - jnz @f - jmp _24 - @@: - cmp ah, 0x50 ; key P - jnz @f - jmp _25 - @@: - cmp ah, 0x7b ; key { - jnz @f - jmp _26 - @@: - cmp ah, 0x2b ; key + - jnz @f - jmp _27 - @@: - cmp ah, 0x7d ; key } - jnz @f - jmp _28 - @@: - cmp ah, 0x7c ; key | - jnz @f - jmp _29 - @@: - cmp ah, 0x61 ; a - if Caps Lock OFF - jnz @f - _17: - mov ah, 0x17 - jmp p - @@: - cmp ah, 0x7a ; z - jnz @f - _18: - mov ah, 0x18 - jmp p - @@: - cmp ah, 0x73 ; s - jnz @f - _19: - mov ah, 0x19 - jmp p - @@: - cmp ah, 0x78 ; x - jnz @f - _1a: - mov ah, 0x1a - jmp p - @@: - cmp ah, 0x64 ; d - jnz @f - _1b: - mov ah, 0x1b - jmp p - @@: - cmp ah, 0x63 ; c - jnz @f - _1c: - mov ah, 0x1c - jmp p - @@: - cmp ah, 0x76 ; v - jnz @f - _21: - mov ah, 0x21 - jmp p - @@: - cmp ah, 0x67 ; g - jnz @f - _22: - mov ah, 0x22 - jmp p - @@: - cmp ah, 0x62 ; b - jnz @f - _23: - mov ah, 0x23 - jmp p - @@: - cmp ah, 0x68 ; h - jnz @f - _24: - mov ah, 0x24 - jmp p - @@: - cmp ah, 0x6e ; n - jnz @f - _25: - mov ah, 0x25 - jmp p - @@: - cmp ah, 0x6d ; m - jnz @f - _26: - mov ah, 0x26 - jmp p - @@: - cmp ah, 0x6b ; k - jnz @f - _27: - mov ah, 0x27 - jmp p - @@: - cmp ah, 0x2c ; , - jnz @f - _28: - mov ah, 0x28 - jmp p - @@: - cmp ah, 0x6c ; l - jnz @f - _29: - mov ah, 0x29 - jmp p - @@: - cmp ah, 0x2e ; . - jnz @f - _2a: - mov ah, 0x2a - jmp p - @@: - cmp ah, 0x3b ; ; - jnz @f - _2b: - mov ah, 0x2b - jmp p - @@: - cmp ah, 0x2f ; / - jnz @f - _2c: - mov ah, 0x2c - jmp p - @@: - cmp ah, 0x27 ; ' - jnz @f - _31: - mov ah, 0x31 - jmp p - @@: - cmp ah, 0x60 ; key ` - jnz @f - jmp _2c - @@: - cmp ah, 0x09 ; key tab - jnz @f - jmp _31 - @@: - cmp ah, 0x31 ; key 1 - jnz @f - _32: - mov ah, 0x32 - jmp p - @@: - cmp ah, 0x71 ; key q - jnz @f - _33: - mov ah, 0x33 - jmp p - @@: - cmp ah, 0x32 ; key 2 - jnz @f - _34: - mov ah, 0x34 - jmp p - @@: - cmp ah, 0x77 ; key w - jnz @f - _35: - mov ah, 0x35 - jmp p - @@: - cmp ah, 0x65 ; key e - jnz @f - _36: - mov ah, 0x36 - jmp p - @@: - cmp ah, 0x34 ; key 4 - jnz @f - _37: - mov ah, 0x37 - jmp p - @@: - cmp ah, 0x72 ; key r - jnz @f - _38: - mov ah, 0x38 - jmp p - @@: - cmp ah, 0x35 ; key 5 - jnz @f - _39: - mov ah, 0x39 - jmp p - @@: - cmp ah, 0x74 ; key t - jnz @f - _3a: - mov ah, 0x3a - jmp p - @@: - cmp ah, 0x36 ; key 6 - jnz @f - _3b: - mov ah, 0x3b - jmp p - @@: - cmp ah, 0x79 ; key y - jnz @f - _3c: - mov ah, 0x3c - jmp p - @@: - cmp ah, 0x75 ; key u - jnz @f - _41: - mov ah, 0x41 - jmp p - @@: - cmp ah, 0x38 ; key 8 - jnz @f - mov ah, 0x42 - jmp p - @@: - cmp ah, 0x69 ; key i - jnz @f - mov ah, 0x43 - jmp p - @@: - cmp ah, 0x39 ; key 9 - jnz @f - mov ah, 0x44 - jmp p - @@: - cmp ah, 0x6f ; key o - jnz @f - mov ah, 0x45 - jmp p - @@: - cmp ah, 0x70 ; key p - jnz @f - mov ah, 0x46 - jmp p - @@: - cmp ah, 0x2d ; key - - jnz @f - mov ah, 0x47 - jmp p - @@: - cmp ah, 0x5b ; key [ - jnz @f - mov ah, 0x48 - jmp p - @@: - cmp ah, 0x3d ; key = - jnz @f - mov ah, 0x49 - jmp p - @@: - cmp ah, 0x5d ; key ] - jnz @f - mov ah, 0x4a - jmp p - @@: - cmp ah, 0x5c ; key \ - jnz @f - mov ah, 0x4b - jmp p - @@: - cmp ah, 0x08 ; key backspace - jnz @f - mov ah, 0x4c - jmp p - @@: - cmp ah, 0x0d ; key enter - jnz @f - mov ah, 0x51 - jmp p - @@: - cmp ah, 0x66 ; key f - jnz @f - mov ah, 0x01 - jmp p - @@: - cmp ah, 0x6a ; key j - jnz @f - mov ah, 0x05 - jmp p - @@: - cmp ah, 0x33 ; key 3 - jnz @f - mov ah, 0x08 - jmp p - @@: - cmp ah, 0x37 ; key 7 - jnz @f - jmp _11 - @@: - cmp ah, 0x30 ; key 0 - jnz @f - jmp _15 - @@: - cmp ah, 0xb4 ; key home - jnz @f - mov ah, 0x10 - jmp p - @@: - cmp ah, 0xb5 ; key end - jnz @f - _70: - mov ah, 0xfc - jmp p - @@: - cmp ah, 0xb8 ; key Page Up - jnz @f - mov ah, 0x20 - jmp p - @@: - cmp ah, 0xb7 ; key Page Down - jnz @f - jmp _70 - @@: - cmp ah, 0xff ; key F12 - jnz @f - mov ah, 0x00 - jmp p - @@: - cmp ah, 0xb6 ; key Del - jnz @f - jmp _70 - @@: - - p: - mov [M+1], ah ; записать код символа как код ноты - - ; функция 55-55: системный динамик ("PlayNote") - ; esi - адрес мелодии - - mov eax,SF_SPEAKER_PLAY - mov ebx,eax - mov esi,M - int 0x40 - - ; или коротко: - ;mcall SF_SPEAKER_PLAY, , , , Music - - jmp still ; вернуться к началу цикла - - -;--------------------------------------------------------------------- - - button: - mcall SF_GET_BUTTON - - cmp ah, 0xa1 ; button 1 - jnz @f - jmp _01 - @@: - cmp ah, 0x02 ; button 2 - jnz @f - jmp _02 - @@: - cmp ah, 0x03 ; button 3 - jnz @f - jmp _03 - @@: - cmp ah, 0x04 - jnz @f - jmp _04 - @@: - cmp ah, 0x05 - jnz @f - jmp _05 - @@: - cmp ah, 0x06 - jnz @f - jmp _06 - @@: - cmp ah, 0x07 - jnz @f - jmp _07 - @@: - cmp ah, 0x08 ; button 8 - jnz @f - jmp _08 - @@: - cmp ah, 0x09 - jnz @f - jmp _09 - @@: - cmp ah, 0x0a ; button 10 - jnz @f - jmp _0a - @@: - cmp ah, 0x0b - jnz @f - jmp _0b - @@: - cmp ah, 0x0c ; button 12 - jnz @f - jmp _0c - @@: - - cmp ah, 0x11 - jnz @f - jmp _11 - @@: - cmp ah, 0x12 - jnz @f - jmp _12 - @@: - cmp ah, 0x13 - jnz @f - jmp _13 - @@: - cmp ah, 0x14 - jnz @f - jmp _14 - @@: - cmp ah, 0x15 - jnz @f - jmp _15 - @@: - cmp ah, 0x16 - jnz @f - jmp _16 - @@: - cmp ah, 0x17 - jnz @f - jmp _17 - @@: - cmp ah, 0x18 - jnz @f - jmp _18 - @@: - cmp ah, 0x19 - jnz @f - jmp _19 - @@: - cmp ah, 0x1a - jnz @f - jmp _1a - @@: - cmp ah, 0x1b - jnz @f - jmp _1b - @@: - cmp ah, 0x1c - jnz @f - jmp _1c - @@: - - cmp ah, 0x21 ; button 1 - jnz @f - jmp _21 - @@: - cmp ah, 0x22 - jnz @f - jmp _22 - @@: - cmp ah, 0x23 ; button 3 - jnz @f - jmp _23 - @@: - cmp ah, 0x24 - jnz @f - jmp _24 - @@: - cmp ah, 0x25 ; button 5 - jnz @f - jmp _25 - @@: - cmp ah, 0x26 - jnz @f - jmp _26 - @@: - cmp ah, 0x27 ; button 7 - jnz @f - jmp _27 - @@: - cmp ah, 0x28 - jnz @f - jmp _28 - @@: - cmp ah, 0x29 ; button 9 - jnz @f - jmp _29 - @@: - cmp ah, 0x2a - jnz @f - jmp _2a - @@: - cmp ah, 0x2b ; button 11 - jnz @f - jmp _2b - @@: - cmp ah, 0x2c - jnz @f - jmp _2c - @@: - cmp ah, 0x31 - jnz @f - jmp _31 - - @@: - cmp ah, 0x32 - jnz @f - jmp _32 - @@: - cmp ah, 0x33 - jnz @f - jmp _33 - @@: - cmp ah, 0x34 - jnz @f - jmp _34 - @@: - cmp ah, 0x35 - jnz @f - jmp _35 - @@: - cmp ah, 0x36 - jnz @f - jmp _36 - @@: - cmp ah, 0x37 - jnz @f - jmp _37 - @@: - cmp ah, 0x38 - jnz @f - jmp _38 - @@: - cmp ah, 0x39 - jnz @f - jmp _39 - @@: - cmp ah, 0x3a - jnz @f - jmp _3a - @@: - cmp ah, 0x3b - jnz @f - jmp _3b - @@: - cmp ah, 0x3c - jnz @f - jmp _3c - @@: - cmp ah, 0x41 - jnz @f - jmp _41 - @@: - - cmp ah, 1 ; если НЕ нажата кнопка с номером 1, - jne still ; вернуться - - .exit: - mcall SF_TERMINATE_PROCESS ; иначе конец программы - - -;--------------------------------------------------------------------- -;--- ОПРЕДЕЛЕНИЕ И ОТРИСОВКА ОКНА ---------------------------------- -;--------------------------------------------------------------------- - -WHITE_W=48 ; While key width -BLACK_W=30 ; Black key width -BLACK_X=34 ; Black key X offset - -draw_window: - - mcall SF_REDRAW, SSF_BEGIN_DRAW ; сообщить ОС о начале отрисовки - - mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, sc,sizeof.system_colors - - - mov edx, [sc.work] ; цвет фона - or edx, 0x33000000 ; и тип окна 3 - mcall SF_CREATE_WINDOW, <20,WHITE_W*15+9>, <200,250>, , ,caption - - mcall SF_DEFINE_BUTTON, , <0,100>, 0x21, 0xff7a74 - mcall , , <0,100>, 0x23, 0x907040 - mcall , , , 0x25, 0xa08050 - mcall , , , 0x26, 0xb09060 - mcall , , , 0x28, 0xc0a070 - mcall , , , 0x2a, 0xd0b080 - mcall , , , 0x2c, 0xe0c090 - mcall , , , 0x31, 0xffa97c - mcall , , , 0x33, 0xaf8d8d - mcall , , , 0x35, 0xbf9d9d - mcall , , , 0x36, 0xcfadad - mcall , , , 0x38, 0xdfbdbd - mcall , , , 0x3a, 0xefcdcd - mcall , , , 0x3c, 0xffdddd - mcall , , , 0x41, 0xffe558 - - mcall , , <0,50>, 0x22, 0x221100 - mcall , , , 0x24, - mcall , , , 0x27, - mcall , , , 0x29, - mcall , , , 0x2b, - mcall , , , 0x32, - mcall , , , 0x34, - mcall , , , 0x37, - mcall , , , 0x39, - mcall , , , 0x3b, - - mcall , , <100,100>, 0xa1, 0x702050 - mcall , , , 0x03, 0x683638 - mcall , , , 0x05, 0x784648 - mcall , , , 0x06, 0x885658 - mcall , , , 0x08, 0x986668 - mcall , , , 0x0a, 0xa87678 - mcall , , , 0x0c, 0xb88688 - mcall , , , 0x11, 0x880040 - mcall , , , 0x13, 0x90622b - mcall , , , 0x15, 0xa0723b - mcall , , , 0x16, 0xb0824b - mcall , , , 0x18, 0xc0925b - mcall , , , 0x1a, 0xd0a26b - mcall , , , 0x1c, 0xe0b27b - mcall , , , 0x21, 0xff7a74 - - mcall , , <100,50>, 0x02, 0x221100 - mcall , , , 0x04, - mcall , , , 0x07, - mcall , , , 0x09, - mcall , , , 0x0b, - mcall , , , 0x12, - mcall , , , 0x14, - mcall , , , 0x17, - mcall , , , 0x19, - mcall , , , 0x1b, - - - ; вывод текстовой строки - mov ecx, [sc.work_text] ; цвет фона - or ecx, 0x90000000 ; и тип строки - mcall SF_DRAW_TEXT, <50, 205>, , message - mcall , <10, 235>, , message1 - mcall , <10, 260>, , message2 - mcall , <10, 285>, , message3 - mcall , <10, 310>, , message4 - mcall , <16, 185>, , t_notes - - mcall SF_REDRAW, SSF_END_DRAW ; закончили рисовать - - ret - - -;--------------------------------------------------------------------- -;--- ДАННЫЕ ПРОГРАММЫ ---------------------------------------------- -;--------------------------------------------------------------------- - - -; Второй байт в M (Music) изменяется нажатием клавиши - -M: - db 0x90, 0x30, 0 - - -sc system_colors - -if lang eq ru_RU - message db 'Справка: щёлкните 2 раза на заголовке.',0 - message1 db 'Нажмите любую клавишу в английской раскладке - ',0 - message2 db 'должен звучать встроенный динамик компьютера (не колонки!)',0 - message3 db 'Нота "До" - клавиши V,Tab,U,Enter',0 - message4 db 'при включении Caps Lock - клавиши V,Q,I.',0 - t_notes db 'ДО РЕ МИ ФА СОЛЬ ЛЯ СИ ДО',0 - caption db 'Детское пианино',0 -else - message db 'Click twice on the window header to see help.',0 - message1 db 'Press any key in English keyboard layout - ',0 - message2 db 'so you will hear the sound from the PC-speaker (Beeper)',0 - message3 db 'Note "C" is the key V,Tab,U,Enter',0 - message4 db 'and when Caps Lock is on then the keys V,Q,I.',0 - t_notes db 'C D E F G A B C ',0 - caption db 'Toy piano',0 -end if - -;--------------------------------------------------------------------- - -I_END: - rb 4096 -align 16 -STACKTOP: -MEM: +; Простой пример программы для KolibriOS +; озвучивает код нажатой клавиши +; +;--------------------------------------------------------------------- + + use32 + org 0 + + db 'MENUET01' + dd 1 + dd START + dd I_END + dd MEM + dd STACKTOP + dd 0 + dd 0 + +include "lang.inc" ; Language support for locales: ru_RU (CP866), en_US. +include "../../macros.inc" +include "../../KOSfuncs.inc" + + +START: + +red: ; перерисовать окно + + call draw_window ; вызываем процедуру отрисовки окна + + +still: + mcall SF_WAIT_EVENT + + cmp eax,2 ; нажата клавиша ? + je key ; если да - на key + cmp eax,3 ; нажата кнопка ? + je button ; если да - на button + cmp eax,1 ; перерисовать окно ? + je red ; если да - на метку red + + jmp still ; если другое событие - в начало цикла + + + +;--------------------------------------------------------------------- + + + key: ; нажата клавиша на клавиатуре + mcall SF_GET_KEY ; считать код символа (в ah) + + + cmp ah, 0x41 ; A - if Caps Lock ON + jnz @f + jmp _07 + @@: + cmp ah, 0x5a ; Z + jnz @f + jmp _08 + @@: + cmp ah, 0x53 ; S + jnz @f + jmp _09 + @@: + cmp ah, 0x58 ; X + jnz @f + jmp _0a + @@: + cmp ah, 0x44 ; D + jnz @f + jmp _0b + @@: + cmp ah, 0x43 ; C + jnz @f + jmp _0c + @@: + cmp ah, 0x56 ; V + jnz @f + _01: + mov ah, 0x01 + jmp p + @@: + cmp ah, 0x47 ; G + jnz @f + _02: + mov ah, 0x02 + jmp p + @@: + cmp ah, 0x42 ; B + jnz @f + _03: + mov ah, 0x03 + jmp p + @@: + cmp ah, 0x48 ; H + jnz @f + _04: + mov ah, 0x04 + jmp p + @@: + cmp ah, 0x4e ; N + jnz @f + _05: + mov ah, 0x05 + jmp p + @@: + cmp ah, 0x4d ; M + jnz @f + _06: + mov ah, 0x06 + jmp p + @@: + cmp ah, 0x4b ; K + jnz @f + _07: + mov ah, 0x07 + jmp p + @@: + cmp ah, 0x3c ; < + jnz @f + _08: + mov ah, 0x08 + jmp p + @@: + cmp ah, 0x4c ; L + jnz @f + _09: + mov ah, 0x09 + jmp p + @@: + cmp ah, 0x3e ; > + jnz @f + _0a: + mov ah, 0x0a + jmp p + @@: + cmp ah, 0x3a ; : + jnz @f + _0b: + mov ah, 0x0b + jmp p + @@: + cmp ah, 0x3f ; ? + jnz @f + _0c: + mov ah, 0x0c + jmp p + @@: + cmp ah, 0x22 ; " + jnz @f + jmp _11 + @@: + cmp ah, 0x21 ; key !------- + jnz @f + jmp _0c + @@: + cmp ah, 0x51 ; key Q + jnz @f + _11: + mov ah, 0x11 + jmp p + @@: + cmp ah, 0x40 ; key @ + jnz @f + _12: + mov ah, 0x12 + jmp p + @@: + cmp ah, 0x57 ; key W + jnz @f + _13: + mov ah, 0x13 + jmp p + @@: + cmp ah, 0x23 ; key # + jnz @f + _14: + mov ah, 0x14 + jmp p + @@: + cmp ah, 0x45 ; key E + jnz @f + _15: + mov ah, 0x15 + jmp p + @@: + cmp ah, 0x52 ; key R + jnz @f + _16: + mov ah, 0x16 + jmp p + @@: + cmp ah, 0x25 ; key % + jnz @f + jmp _17 + @@: + cmp ah, 0x54 ; key T + jnz @f + jmp _18 + @@: + cmp ah, 0x5e ; key ^ + jnz @f + jmp _19 + @@: + cmp ah, 0x59 ; key Y + jnz @f + jmp _1a + @@: + cmp ah, 0x26 ; key & + jnz @f + jmp _1b + @@: + cmp ah, 0x55 ; key U + jnz @f + jmp _1c + @@: + cmp ah, 0x49 ; key I + jnz @f + jmp _21 + @@: + cmp ah, 0x28 ; key ( + jnz @f + jmp _22 + @@: + cmp ah, 0x4f ; key O + jnz @f + jmp _23 + @@: + cmp ah, 0x29 ; key ) + jnz @f + jmp _24 + @@: + cmp ah, 0x50 ; key P + jnz @f + jmp _25 + @@: + cmp ah, 0x7b ; key { + jnz @f + jmp _26 + @@: + cmp ah, 0x2b ; key + + jnz @f + jmp _27 + @@: + cmp ah, 0x7d ; key } + jnz @f + jmp _28 + @@: + cmp ah, 0x7c ; key | + jnz @f + jmp _29 + @@: + cmp ah, 0x61 ; a - if Caps Lock OFF + jnz @f + _17: + mov ah, 0x17 + jmp p + @@: + cmp ah, 0x7a ; z + jnz @f + _18: + mov ah, 0x18 + jmp p + @@: + cmp ah, 0x73 ; s + jnz @f + _19: + mov ah, 0x19 + jmp p + @@: + cmp ah, 0x78 ; x + jnz @f + _1a: + mov ah, 0x1a + jmp p + @@: + cmp ah, 0x64 ; d + jnz @f + _1b: + mov ah, 0x1b + jmp p + @@: + cmp ah, 0x63 ; c + jnz @f + _1c: + mov ah, 0x1c + jmp p + @@: + cmp ah, 0x76 ; v + jnz @f + _21: + mov ah, 0x21 + jmp p + @@: + cmp ah, 0x67 ; g + jnz @f + _22: + mov ah, 0x22 + jmp p + @@: + cmp ah, 0x62 ; b + jnz @f + _23: + mov ah, 0x23 + jmp p + @@: + cmp ah, 0x68 ; h + jnz @f + _24: + mov ah, 0x24 + jmp p + @@: + cmp ah, 0x6e ; n + jnz @f + _25: + mov ah, 0x25 + jmp p + @@: + cmp ah, 0x6d ; m + jnz @f + _26: + mov ah, 0x26 + jmp p + @@: + cmp ah, 0x6b ; k + jnz @f + _27: + mov ah, 0x27 + jmp p + @@: + cmp ah, 0x2c ; , + jnz @f + _28: + mov ah, 0x28 + jmp p + @@: + cmp ah, 0x6c ; l + jnz @f + _29: + mov ah, 0x29 + jmp p + @@: + cmp ah, 0x2e ; . + jnz @f + _2a: + mov ah, 0x2a + jmp p + @@: + cmp ah, 0x3b ; ; + jnz @f + _2b: + mov ah, 0x2b + jmp p + @@: + cmp ah, 0x2f ; / + jnz @f + _2c: + mov ah, 0x2c + jmp p + @@: + cmp ah, 0x27 ; ' + jnz @f + _31: + mov ah, 0x31 + jmp p + @@: + cmp ah, 0x60 ; key ` + jnz @f + jmp _2c + @@: + cmp ah, 0x09 ; key tab + jnz @f + jmp _31 + @@: + cmp ah, 0x31 ; key 1 + jnz @f + _32: + mov ah, 0x32 + jmp p + @@: + cmp ah, 0x71 ; key q + jnz @f + _33: + mov ah, 0x33 + jmp p + @@: + cmp ah, 0x32 ; key 2 + jnz @f + _34: + mov ah, 0x34 + jmp p + @@: + cmp ah, 0x77 ; key w + jnz @f + _35: + mov ah, 0x35 + jmp p + @@: + cmp ah, 0x65 ; key e + jnz @f + _36: + mov ah, 0x36 + jmp p + @@: + cmp ah, 0x34 ; key 4 + jnz @f + _37: + mov ah, 0x37 + jmp p + @@: + cmp ah, 0x72 ; key r + jnz @f + _38: + mov ah, 0x38 + jmp p + @@: + cmp ah, 0x35 ; key 5 + jnz @f + _39: + mov ah, 0x39 + jmp p + @@: + cmp ah, 0x74 ; key t + jnz @f + _3a: + mov ah, 0x3a + jmp p + @@: + cmp ah, 0x36 ; key 6 + jnz @f + _3b: + mov ah, 0x3b + jmp p + @@: + cmp ah, 0x79 ; key y + jnz @f + _3c: + mov ah, 0x3c + jmp p + @@: + cmp ah, 0x75 ; key u + jnz @f + _41: + mov ah, 0x41 + jmp p + @@: + cmp ah, 0x38 ; key 8 + jnz @f + mov ah, 0x42 + jmp p + @@: + cmp ah, 0x69 ; key i + jnz @f + mov ah, 0x43 + jmp p + @@: + cmp ah, 0x39 ; key 9 + jnz @f + mov ah, 0x44 + jmp p + @@: + cmp ah, 0x6f ; key o + jnz @f + mov ah, 0x45 + jmp p + @@: + cmp ah, 0x70 ; key p + jnz @f + mov ah, 0x46 + jmp p + @@: + cmp ah, 0x2d ; key - + jnz @f + mov ah, 0x47 + jmp p + @@: + cmp ah, 0x5b ; key [ + jnz @f + mov ah, 0x48 + jmp p + @@: + cmp ah, 0x3d ; key = + jnz @f + mov ah, 0x49 + jmp p + @@: + cmp ah, 0x5d ; key ] + jnz @f + mov ah, 0x4a + jmp p + @@: + cmp ah, 0x5c ; key \ + jnz @f + mov ah, 0x4b + jmp p + @@: + cmp ah, 0x08 ; key backspace + jnz @f + mov ah, 0x4c + jmp p + @@: + cmp ah, 0x0d ; key enter + jnz @f + mov ah, 0x51 + jmp p + @@: + cmp ah, 0x66 ; key f + jnz @f + mov ah, 0x01 + jmp p + @@: + cmp ah, 0x6a ; key j + jnz @f + mov ah, 0x05 + jmp p + @@: + cmp ah, 0x33 ; key 3 + jnz @f + mov ah, 0x08 + jmp p + @@: + cmp ah, 0x37 ; key 7 + jnz @f + jmp _11 + @@: + cmp ah, 0x30 ; key 0 + jnz @f + jmp _15 + @@: + cmp ah, 0xb4 ; key home + jnz @f + mov ah, 0x10 + jmp p + @@: + cmp ah, 0xb5 ; key end + jnz @f + _70: + mov ah, 0xfc + jmp p + @@: + cmp ah, 0xb8 ; key Page Up + jnz @f + mov ah, 0x20 + jmp p + @@: + cmp ah, 0xb7 ; key Page Down + jnz @f + jmp _70 + @@: + cmp ah, 0xff ; key F12 + jnz @f + mov ah, 0x00 + jmp p + @@: + cmp ah, 0xb6 ; key Del + jnz @f + jmp _70 + @@: + + p: + mov [M+1], ah ; записать код символа как код ноты + + ; функция 55-55: системный динамик ("PlayNote") + ; esi - адрес мелодии + + mov eax,SF_SPEAKER_PLAY + mov ebx,eax + mov esi,M + int 0x40 + + ; или коротко: + ;mcall SF_SPEAKER_PLAY, , , , Music + + jmp still ; вернуться к началу цикла + + +;--------------------------------------------------------------------- + + button: + mcall SF_GET_BUTTON + + cmp ah, 0xa1 ; button 1 + jnz @f + jmp _01 + @@: + cmp ah, 0x02 ; button 2 + jnz @f + jmp _02 + @@: + cmp ah, 0x03 ; button 3 + jnz @f + jmp _03 + @@: + cmp ah, 0x04 + jnz @f + jmp _04 + @@: + cmp ah, 0x05 + jnz @f + jmp _05 + @@: + cmp ah, 0x06 + jnz @f + jmp _06 + @@: + cmp ah, 0x07 + jnz @f + jmp _07 + @@: + cmp ah, 0x08 ; button 8 + jnz @f + jmp _08 + @@: + cmp ah, 0x09 + jnz @f + jmp _09 + @@: + cmp ah, 0x0a ; button 10 + jnz @f + jmp _0a + @@: + cmp ah, 0x0b + jnz @f + jmp _0b + @@: + cmp ah, 0x0c ; button 12 + jnz @f + jmp _0c + @@: + + cmp ah, 0x11 + jnz @f + jmp _11 + @@: + cmp ah, 0x12 + jnz @f + jmp _12 + @@: + cmp ah, 0x13 + jnz @f + jmp _13 + @@: + cmp ah, 0x14 + jnz @f + jmp _14 + @@: + cmp ah, 0x15 + jnz @f + jmp _15 + @@: + cmp ah, 0x16 + jnz @f + jmp _16 + @@: + cmp ah, 0x17 + jnz @f + jmp _17 + @@: + cmp ah, 0x18 + jnz @f + jmp _18 + @@: + cmp ah, 0x19 + jnz @f + jmp _19 + @@: + cmp ah, 0x1a + jnz @f + jmp _1a + @@: + cmp ah, 0x1b + jnz @f + jmp _1b + @@: + cmp ah, 0x1c + jnz @f + jmp _1c + @@: + + cmp ah, 0x21 ; button 1 + jnz @f + jmp _21 + @@: + cmp ah, 0x22 + jnz @f + jmp _22 + @@: + cmp ah, 0x23 ; button 3 + jnz @f + jmp _23 + @@: + cmp ah, 0x24 + jnz @f + jmp _24 + @@: + cmp ah, 0x25 ; button 5 + jnz @f + jmp _25 + @@: + cmp ah, 0x26 + jnz @f + jmp _26 + @@: + cmp ah, 0x27 ; button 7 + jnz @f + jmp _27 + @@: + cmp ah, 0x28 + jnz @f + jmp _28 + @@: + cmp ah, 0x29 ; button 9 + jnz @f + jmp _29 + @@: + cmp ah, 0x2a + jnz @f + jmp _2a + @@: + cmp ah, 0x2b ; button 11 + jnz @f + jmp _2b + @@: + cmp ah, 0x2c + jnz @f + jmp _2c + @@: + cmp ah, 0x31 + jnz @f + jmp _31 + + @@: + cmp ah, 0x32 + jnz @f + jmp _32 + @@: + cmp ah, 0x33 + jnz @f + jmp _33 + @@: + cmp ah, 0x34 + jnz @f + jmp _34 + @@: + cmp ah, 0x35 + jnz @f + jmp _35 + @@: + cmp ah, 0x36 + jnz @f + jmp _36 + @@: + cmp ah, 0x37 + jnz @f + jmp _37 + @@: + cmp ah, 0x38 + jnz @f + jmp _38 + @@: + cmp ah, 0x39 + jnz @f + jmp _39 + @@: + cmp ah, 0x3a + jnz @f + jmp _3a + @@: + cmp ah, 0x3b + jnz @f + jmp _3b + @@: + cmp ah, 0x3c + jnz @f + jmp _3c + @@: + cmp ah, 0x41 + jnz @f + jmp _41 + @@: + + cmp ah, 1 ; если НЕ нажата кнопка с номером 1, + jne still ; вернуться + + .exit: + mcall SF_TERMINATE_PROCESS ; иначе конец программы + + +;--------------------------------------------------------------------- +;--- ОПРЕДЕЛЕНИЕ И ОТРИСОВКА ОКНА ---------------------------------- +;--------------------------------------------------------------------- + +WHITE_W=48 ; While key width +BLACK_W=30 ; Black key width +BLACK_X=34 ; Black key X offset + +draw_window: + + mcall SF_REDRAW, SSF_BEGIN_DRAW ; сообщить ОС о начале отрисовки + + mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, sc,sizeof.system_colors + + + mov edx, [sc.work] ; цвет фона + or edx, 0x33000000 ; и тип окна 3 + mcall SF_CREATE_WINDOW, <20,WHITE_W*15+9>, <200,250>, , ,caption + + mcall SF_DEFINE_BUTTON, , <0,100>, 0x21, 0xff7a74 + mcall , , <0,100>, 0x23, 0x907040 + mcall , , , 0x25, 0xa08050 + mcall , , , 0x26, 0xb09060 + mcall , , , 0x28, 0xc0a070 + mcall , , , 0x2a, 0xd0b080 + mcall , , , 0x2c, 0xe0c090 + mcall , , , 0x31, 0xffa97c + mcall , , , 0x33, 0xaf8d8d + mcall , , , 0x35, 0xbf9d9d + mcall , , , 0x36, 0xcfadad + mcall , , , 0x38, 0xdfbdbd + mcall , , , 0x3a, 0xefcdcd + mcall , , , 0x3c, 0xffdddd + mcall , , , 0x41, 0xffe558 + + mcall , , <0,50>, 0x22, 0x221100 + mcall , , , 0x24, + mcall , , , 0x27, + mcall , , , 0x29, + mcall , , , 0x2b, + mcall , , , 0x32, + mcall , , , 0x34, + mcall , , , 0x37, + mcall , , , 0x39, + mcall , , , 0x3b, + + mcall , , <100,100>, 0xa1, 0x702050 + mcall , , , 0x03, 0x683638 + mcall , , , 0x05, 0x784648 + mcall , , , 0x06, 0x885658 + mcall , , , 0x08, 0x986668 + mcall , , , 0x0a, 0xa87678 + mcall , , , 0x0c, 0xb88688 + mcall , , , 0x11, 0x880040 + mcall , , , 0x13, 0x90622b + mcall , , , 0x15, 0xa0723b + mcall , , , 0x16, 0xb0824b + mcall , , , 0x18, 0xc0925b + mcall , , , 0x1a, 0xd0a26b + mcall , , , 0x1c, 0xe0b27b + mcall , , , 0x21, 0xff7a74 + + mcall , , <100,50>, 0x02, 0x221100 + mcall , , , 0x04, + mcall , , , 0x07, + mcall , , , 0x09, + mcall , , , 0x0b, + mcall , , , 0x12, + mcall , , , 0x14, + mcall , , , 0x17, + mcall , , , 0x19, + mcall , , , 0x1b, + + + ; вывод текстовой строки + mov ecx, [sc.work_text] ; цвет фона + or ecx, 0x90000000 ; и тип строки + mcall SF_DRAW_TEXT, <50, 205>, , message + mcall , <10, 235>, , message1 + mcall , <10, 260>, , message2 + mcall , <10, 285>, , message3 + mcall , <10, 310>, , message4 + mcall , <16, 185>, , t_notes + + mcall SF_REDRAW, SSF_END_DRAW ; закончили рисовать + + ret + + +;--------------------------------------------------------------------- +;--- ДАННЫЕ ПРОГРАММЫ ---------------------------------------------- +;--------------------------------------------------------------------- + + +; Второй байт в M (Music) изменяется нажатием клавиши + +M: + db 0x90, 0x30, 0 + + +sc system_colors + +if lang eq ru_RU + message db 'Справка: щёлкните 2 раза на заголовке.',0 + message1 db 'Нажмите любую клавишу в английской раскладке - ',0 + message2 db 'должен звучать встроенный динамик компьютера (не колонки!)',0 + message3 db 'Нота "До" - клавиши V,Tab,U,Enter',0 + message4 db 'при включении Caps Lock - клавиши V,Q,I.',0 + t_notes db 'ДО РЕ МИ ФА СОЛЬ ЛЯ СИ ДО',0 + caption db 'Детское пианино',0 +else ; Default to en_US + message db 'Click twice on the window header to see help.',0 + message1 db 'Press any key in English keyboard layout - ',0 + message2 db 'so you will hear the sound from the PC-speaker (Beeper)',0 + message3 db 'Note "C" is the key V,Tab,U,Enter',0 + message4 db 'and when Caps Lock is on then the keys V,Q,I.',0 + t_notes db 'C D E F G A B C ',0 + caption db 'Toy piano',0 +end if + +;--------------------------------------------------------------------- + +I_END: + rb 4096 +align 16 +STACKTOP: +MEM: diff --git a/programs/media/scrshoot/scrshoot.asm b/programs/media/scrshoot/scrshoot.asm index 6630196c9d..4e3771172d 100644 --- a/programs/media/scrshoot/scrshoot.asm +++ b/programs/media/scrshoot/scrshoot.asm @@ -1,889 +1,892 @@ -; -; Screenshooter for Kolibri -; -;--------------------------------------------------------------------- -; Автор программы Евтихов Максим (Maxxxx32) -; -; 26.11.16 - IgorA снимки сохраняються в формате *.png -; 02.11.10 - Используется checkbox версии 2 -; -; version: 1.2 -; last update: 08/09/2010 -; written by: Marat Zakiyanov aka Mario79, aka Mario -; changes: select path for save with OpenDialog, -; bag fix for threads stacks -; 01.06.09 - компоненты беруться из системной библиотеки -; 24.07.08 - обновлен editbox -; 01.02.07 - обновлён editbox -; 31.01.07 - всё теперь рисуется относительно клиентской области - - -format binary as "" - -title equ 'Screenshooter v1.21' ; Заголовок окна -include '../../load_lib.mac' -include '../../develop/libraries/box_lib/trunk/box_lib.mac' -include '../../config.inc' ;for nightbuild -include '../../proc32.inc' -include '../../macros.inc' -include '../../KOSfuncs.inc' -include '../../develop/libraries/libs-dev/libimg/libimg.inc' -include 'txtbut.inc' -include 'label.inc' -include 'textwork.inc' -include 'scrshoot.mac' - -use32 - org 0 - db 'MENUET01' - dd 1, start, IM_END, i_end, stacktop, cmdstr, cur_dir_path - -include 'lang.inc' -include '../../dll.inc' - -align 4 - @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load - use_txt_button ; | - use_label ; |-- GUI компоненты и некоторые процедуры - use_text_work ; / - -include 'scrwin.inc' ; вставляем код окна прдпросмотра -include 'scrsavef.inc'; вставляем процедуру сохранения файла -include 'gp.inc' -include 'srectwin.inc' - -macro get_sys_colors col_buf -{ - mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, col_buf, 40 -} - -;--- начало программы --- -align 4 -start: - -load_libraries l_libs_start,end_l_libs - -;if return code =-1 then exit, else nornary work -; cmp eax,-1 - inc eax - test eax,eax - jz close -;;;;;;;;;;;;;;;; init memory 68/11 - mcall SF_SYS_MISC, SSF_HEAP_INIT - test eax,eax - jz close - -;--------------------------------------------------------------------- - mov edi,filename_area - mov esi,start_temp_file_name - xor eax,eax - cld -@@: - lodsb - stosb - test eax,eax - jnz @b - - - mov edi,fname_buf - mov esi,ed_buffer.1 - xor eax,eax - cld -@@: - lodsb - stosb - test eax,eax - jnz @b - -;OpenDialog initialisation - stdcall [OpenDialog_Init], OpenDialog_data - -; prepare for PathShow - stdcall [PathShow_prepare], PathShow_data_1 -;--------------------------------------------------------------------- - ;mov al,[gs:1280*4*1024] - ; устанавливаем ipc буффер - xor ebx,ebx - inc ebx - mcall SF_IPC,, app_ipc, 32 - - ; устанавливаем глобальную горячую клавишу - mov cl,55 ; 55 - PrintScrn - xor edx,edx - mcall SF_KEYBOARD, SSF_SET_SYS_HOTKEY - - mov ebx,app - call get_slot_n - mov [slot_n],ecx - - ; устанавливаем маску событий - set_events_mask (evm_redraw+evm_key+evm_button+evm_mouse+evm_ipc) -;инициализация checkboxes - init_checkboxes2 check_boxes,check_boxes_end - -; сюда прыгаем при каждой перерисовке -red: - get_procinfo app ; получаем информацию о процессе - get_sys_colors sc ; получаем системные цвета - - ; устанавливаем системные цвета у GUI компонентов - txt_but_set_sys_color buttons,buttons_end,sc ; \ - labels_set_sys_color labels,labels_end,sc ; | - check_boxes_set_sys_color2 check_boxes,check_boxes_end,sc; | - edit_boxes_set_sys_color editboxes,editboxes_end,sc ; / - - get_screen_prop scr ; получаем информацию об экране -;------------------------------------------------------------------------------ -; Boot with "DIRECT" parameter - get screen and save - mov eax,cmdstr - cmp [eax],byte 0 - je no_boot - - cmp [eax],dword 'DIRE' - jne no_boot - - cmp [eax+4],word 'CT' - jne no_boot - - and [ch2.flags],dword 0 - or [ch5.flags],dword 1 - mov [OpenDialog_data.draw_window],dword draw_window_direct - - call shoot - jmp close -;------------------------------------------------------------------------------ -draw_window_direct: - mcall SF_REDRAW, SSF_BEGIN_DRAW - mcall SF_GET_SCREEN_SIZE -; eax = [xsize]*65536 + [ysize] - mov ebx,eax - shr ebx,17 - sub ebx,100 - shl ebx,16 - mov bx,200 - mov ecx,eax - and ecx,0xffff - shr ecx,1 - sub ecx,50 - shl ecx,16 - mov cx,100 - xor esi,esi - mcall SF_CREATE_WINDOW,,,0x34ffffff,,grab_text - - mcall SF_DRAW_TEXT, <10,30>,0x90000000,saving - - mcall SF_REDRAW, SSF_END_DRAW - ret -;------------------------------------------------------------------------------ -no_boot: - call draw_window ; перерисовываем окно -still: - wait_event red,key,button,mouse,ipc,still ; ждем событий - -key: - get_key - cmp al,2 - jne @f - cmp ah,55 - jne still - mov [PrintScreen],1 - call shoot - mov [PrintScreen],0 - jmp still -@@: -; stdcall [edit_box_key], edit1 - stdcall [edit_box_key], edit2 - stdcall [edit_box_key], edit3 - - jmp still -button: - get_pressed_button - cmp ah,1 - je p_close - txt_but_ev buttons,buttons_end - jmp still -mouse: - get_active_window - cmp eax,[slot_n] - jne still -;---------------------------------- -; stdcall [edit_box_mouse], edit1 - stdcall [edit_box_mouse], edit2 - stdcall [edit_box_mouse], edit3 -;---------------------------------- - checkboxes_mouse2 check_boxes,check_boxes_end -;----------------------------------- - jmp still -ipc: - cmp word [app_ipc+8],2 - jne @f - min_window - jmp .clear_ipc -@@: - cmp word [app_ipc+8],3 - jne @f - mov ecx,[slot_n] - activ_window - jmp .clear_ipc -@@: - call draw_number - call dr_st - -.clear_ipc: - cld - xor eax,eax - mov ecx,32/4 - mov edi,app_ipc - rep stosd - jmp still - -p_close: - btr dword [flags],1 - - bt dword [flags],3 - jnc @f - mcall SF_SYSTEM, SSF_TERMINATE_THREAD_ID, [set_rect_window_pid] -@@: - -close: - app_close - -;--------------------------------------------------------------------- -draw_PathShow: - pusha - mcall SF_DRAW_RECT, <4,302>, <35,15>, 0xffffff -; draw for PathShow - push dword PathShow_data_1 - call [PathShow_draw] - popa - ret -;-------------------------------------------------------------------- -;--- прооцедура перерисовки главного окна --------------------------- -;-------------------------------------------------------------------- -draw_window: -start_draw_window ; начало перерисовки - ; определяем окно - get_skin_height - mov ecx,100*65536+220 - add cx,ax - mov edx,[sc.work] - or edx,0x34000000;0x33000000 - xor esi,esi - ;xor edi,edi - mov edi,grab_text - mcall SF_CREATE_WINDOW, 100*65536+320 - - ; выводим числа в окно - movsx ecx,word [scr.width] ; ширина экрана - mcall SF_DRAW_NUMBER, <4,0>, , <188,[label1.top]>, [sc.work_text] - movsx ecx,word [scr.height] ; высота экрана - add edx, 37 shl 16 - mcall - add edx, 36 shl 16 - mov ebx,2 shl 16 - movsx ecx,word [scr.bitspp] ; бит на пиксель - mcall - - call draw_number ; прорисовываем номер снимка - call dr_st - - draw_labels labels,labels_end ; метки -;------ show check editbox ----------- -; stdcall [edit_box_draw], edit1 - stdcall [edit_box_draw], edit2 - stdcall [edit_box_draw], edit3 -;------ end check all editbox ------- - - call draw_PathShow - - draw_txt_buttons buttons,buttons_end ; кнопки -;------ check all checkbox --------- - - checkboxes_draw2 check_boxes,check_boxes_end - -;------ end check all checkbox ------ - -stop_draw_window ; конец перерисовки -ret - -shoot: - bt dword [ch4.flags],1 ; включена ли задержка ? - jnc @f - draw_status delay_now - mov edi,ed_buffer.2 - call zstr_to_int - mov ebx,eax - delay -@@: - call get_mem_for_shoot; получаем память для снимка - - - bts dword [flags],0 ; нулевой флаг - снимок есть в памяти - - ; делаем снимок - draw_status shooting - mov esi,scr - mov edi,[scr_buf.ptr] - call copy_screen_to_image - - bt dword [use_rect.flags],1 - jc .use_rect - push dword [scr] - jmp @f -.use_rect: - push dword [rect.height] -@@: - pop dword [scr_buf.size] - - cmp [autoshoot_flag],1 - jne .2 - - bt dword [ch5.flags],1 ; включено ли автосохранение ? - jnc @f - call save_file -@@: - draw_status shooted_ok -.2: - bt dword [flags],1 - jnc @f - ret -@@: - bt dword [ch2.flags],1 ; показать окно предпросмотра ? - jnc @f - cmp [PrintScreen],0 - jne @f - call show_scr_window - ret -@@: - bt dword [ch5.flags],1 ; включено ли автосохранение ? - jnc @f - - call [OpenDialog_data.draw_window] -; invoke OpenDialog - stdcall [OpenDialog_Start], OpenDialog_data - cmp [OpenDialog_data.status],1 - je .1 - ret -.1: -; prepare for PathShow - stdcall [PathShow_prepare], PathShow_data_1 - call [OpenDialog_data.draw_window] - call save_file -@@: - ret - -;--- получить память для снимка --- -get_mem_for_shoot: -;clean memory - mcall SF_SYS_MISC, SSF_MEM_FREE, [scr_buf.ptr] - - bt dword [use_rect.flags],1 ; фоткать область экрана - jc .use_area - movzx ecx, word [scr.width] - movzx ebx, word [scr.height] - jmp @f -.use_area: - call read_rect - movzx ecx, word [rect.width] - movzx ebx, word [rect.height] -@@: - imul ecx,ebx - lea ecx,[ecx*3] -; add ecx,i_end - mcall SF_SYS_MISC, SSF_MEM_ALLOC - mov [scr_buf.ptr],eax - add eax,ecx - mov [scr_buf.end_ptr],ecx -ret - -;--- содать окно предпросмотра --- -show_scr_window: -pusha - bt dword [flags],0 - jnc @f - xor ebx,ebx - inc ebx - mcall SF_CREATE_THREAD,, scr_window, i_end_tread-512 -@@: -popa -ret - -;--- прочитать и нарисовать текущий номер --- -apply_number: - mov edi,ed_buffer.3 - call zstr_to_int - mov [cur_number],eax - call draw_number -ret - -;--- процедура прорисовки текущего номера --- -draw_number: - mov [sign_n],4 - mov cx,[label9.top] - shl ecx,16 - mov cx,10 - mov edx,[sc.work] - mcall SF_DRAW_RECT, 150*65536+96 - movsx bx,byte [sign_n] - shl ebx,16 - mov edx,150 shl 16 - mov dx,[label9.top] - mov esi,[sc.work_text] - mcall SF_DRAW_NUMBER,, [cur_number] -ret - -;--- процедура, запускающая поток автосъемки --- -start_autoshoot: - bts dword [flags],1 - jc @f - xor ebx,ebx - inc ebx - mcall SF_CREATE_THREAD,, autoshoot, i_end_tread -@@: -ret - -;--- останавливает этот поток --- -stop_autoshoot: - btr dword [flags],1 -ret - -;--- цикл потока автосъемки --- -autoshoot: - mov [autoshoot_flag],1 - mov ecx,[slot_n] - activ_window -.next: - bt dword [flags],1 - jnc close - mov esi,2 - mcall SF_IPC, SSF_SEND_MESSAGE, [app.pid], messages.draw_number - call shoot - jmp autoshoot.next -.close: - mov [autoshoot_flag],0 - jmp close -;--- процедура прорисовки строки состояния --- -; (должна вызываться потоком главного окна) -dr_st: - mcall SF_DRAW_LINE, 0*65536+310, 198*65536+198, [sc.work_graph] - - mov bx,310 - mov ecx,199*65536+15 - mov edx,[sc.work] - mcall SF_DRAW_RECT ; полоска - - mov edi,status - call draw_label -ret - -;--- процедура получения номера слота потока --- -; вход ebx - буффер 1024 байт -; выход ecx - номер слота -get_slot_n: - xor ecx,ecx - dec ecx - mcall SF_THREAD_INFO - - mov edx,[ebx+30] - xor ecx,ecx -@@: - inc ecx - mcall SF_THREAD_INFO - cmp [ebx+30],edx - je @f - jmp @b -@@: -ret - -;--- процедура, запускающая поток, делающий 1 снимок --- -one_shoot: - mov ecx,one_shoot_thread - mov edx,shoot_esp - jmp @f -;--- процедра, запускающая поток, сохраняющий снимок --- -save_shoot: -; invoke OpenDialog - stdcall [OpenDialog_Start], OpenDialog_data - cmp [OpenDialog_data.status],1 - je .1 - ret -.1: -; prepare for PathShow - stdcall [PathShow_prepare], PathShow_data_1 - - call draw_PathShow - - mov ecx,save_shoot_thread - mov edx,shoot_esp -@@: - bts dword [flags],2 - jc .running - bt dword [flags],1 - jc .running - - xor ebx,ebx - inc ebx - mcall SF_CREATE_THREAD -.running: -ret - -;--- поток, делающий 1 снимок --- -one_shoot_thread: - mov ecx,[slot_n] - activ_window - bt dword [ch1.flags],1 ; минимизировать окно ? - jnc @f - mov esi,2 - mcall SF_IPC, SSF_SEND_MESSAGE, [app.pid], messages.min_window -@@: - call shoot - btr dword [flags],2 - jmp close - -;--- процедура, отправляющая главному окну сообщение о перерисовке -; строки состояния --- -send_draw_status: - mov esi,2 - mcall SF_IPC, SSF_SEND_MESSAGE, [app.pid], messages.draw_status -ret - -;--- поток, сохраняюий файл --- -save_shoot_thread: - mov ecx,[slot_n] - activ_window - call save_file - btr dword [flags],2 - jmp close - -;--- процедура, запускающая поток окна установки области съемки --- -show_set_rect_window: - bts dword [flags],3 - jc @f - xor ebx,ebx - inc ebx - mcall SF_CREATE_THREAD,, set_rect_window, set_rect_window_esp - - mov [set_rect_window_pid],eax -ret - -@@: - mcall SF_SYSTEM, SSF_TERMINATE_THREAD_ID, [set_rect_window_pid] - btr dword [flags],3 -ret - -;--- получение информации об активном окне --- -get_active_window_info: - mcall SF_SYSTEM, SSF_GET_ACTIVE_WINDOW - - mov ecx,eax - mcall SF_THREAD_INFO, active_app -ret - -;==================================================================== -;=== данные программы =============================================== -;==================================================================== -messages: -.draw_number dw 0 -.draw_status dw 1 -.min_window dw 2 -.act_window dw 3 - -grab_text: - db title,0 - -labels: -label1 label 5,8,0,text.1 ; screen size and color depth -label3 label 5,25,0,text.3 ; введите имя файла -label9 label 5,52,0,text.9 ; номер текущего симка -status label 5,201,0,no_shoot -labels_end: - -;--------------------------------------------------------------------- -l_libs_start: - -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 - -library03 l_libs system_dir_LibImg+9, library_path, system_dir_LibImg, \ - import_libimg - -end_l_libs: -;--------------------------------------------------------------------- -editboxes: -;edit1 edit_box 300,5,35,cl_white,0,0,0,0,300,ed_buffer.1,mouse_dd,ed_focus,10,10 ; путь к файлу -edit2 edit_box 35,170,134,cl_white,0,0,0,0,9,ed_buffer.2,mouse_dd,ed_figure_only,3,3 ; задержка -edit3 edit_box 35,165,164,cl_white,0,0,0,0,9,ed_buffer.3,mouse_dd,ed_figure_only ; автонумерация -editboxes_end: -;--------------------------------------------------------------------- -buttons: -but1 txt_button 150,5,15,65,2,0,0,but_text.1,one_shoot ; сделать снимок -but2 txt_button 34,274,15,34,3,0,0,but_text.2,save_shoot ; "..." - выбрать путь сохранения -but3 txt_button 145,160,15,65,3,0,0,but_text.3,show_scr_window ; показать снимок -but4 txt_button 80,205,15,163,5,0,0,but_text.4,apply_number ; применить номер -but5 txt_button 150,5,15,85,6,0,0,but_text.5,start_autoshoot ; начать автосъёмку -but6 txt_button 145,160,15,85,7,0,0,but_text.6,stop_autoshoot ; остановить автосъёмку -but7 txt_button 40,70,10,180,8,0,0,but_text.7,show_set_rect_window ; задать область -buttons_end: -;--------------------------------------------------------------------- -check_boxes: -ch1 check_box2 (5 shl 16+11),(105 shl 16 +11),5,cl_white,0,0x80000000,ch_text.1,ch_flag_en+ch_flag_middle ; свернуть окно -ch2 check_box2 (5 shl 16+11),(120 shl 16 +11),5,cl_white,0,0x80000000,ch_text.2,ch_flag_en+ch_flag_middle ; show screenshot -ch4 check_box2 (5 shl 16+11),(135 shl 16 +11),5,cl_white,0,0x80000000,ch_text.4,ch_flag_en+ch_flag_middle ; задержка -ch5 check_box2 (5 shl 16+11),(150 shl 16 +11),5,cl_white,0,0x80000000,ch_text.5,ch_flag_en+ch_flag_middle -ch6 check_box2 (5 shl 16+11),(165 shl 16 +11),5,cl_white,0,0x80000000,ch_text.6,ch_flag_en+ch_flag_middle -use_rect check_box2 (5 shl 16+11),(180 shl 16 +11),5,cl_white,0,0x80000000,ch_text.7,ch_flag_middle ; исп. область -; автонумерация -check_boxes_end: -;--------------------------------------------------------------------- -if lang eq ru_RU -text: -.1 db 'Размер экрана и глубина цвета: х х bit',0 -.3 db 'Путь для сохранения снимка:',0 -.9 db 'Номер текущего снимка:',0 - -but_text: -.1 db 'Сделать снимок экрана',0 -.2 db '...',0 -.3 db 'Показать снимок сейчас',0 -.4 db 'Применить',0 -.5 db 'Начать автосъемку',0 -.6 db 'Остановить автосъемку',0 -.7 db 'задать',0 - -ch_text: -.1 db 'Свернуть окно',0 -.2 db 'Показать снимок',0 -.4 db 'Задержка в миллисекундах:',0 -.5 db 'Автосохранение',0 -.6 db 'Автонумерация, начиная с',0 -.7 db 'Область',0 - -no_shoot db 'Снимок не сделан',0 -shooting db 'Фотографирование...',0 -shooted_ok db 'Снимок сделан',0 -saving db 'Сохранение...',0 -saved_ok db 'Снимок сохранен',0 -delay_now db 'Задержка...',0 -bad_file_name db 'Имя файла введено неверно',0 -disk_filled db 'Диск заполнен',0 -bad_fat_table db 'Таблица FAT разрушена',0 -ac_den db 'Доступ запрещен',0 -device_er db 'Ошибка устройства',0 -not_shooted db 'Ошибка: вначале сделайте снимок',0 -no_file_name db 'Ошибка: следует ввести имя файла',0 -invalid_rect db 'Недопустимые размеры области',0 -keyforexit db 'Это ваш снимок. Выход - любая клавиша.',0 - - -else -text: -.1 db 'Screen size and color depth: х х bit',0 -.3 db 'Screenshot save path:',0 -.9 db 'Current photo number:',0 - -but_text: -.1 db 'Make screen photo',0 -.2 db 'Save screen photo',0 -.3 db 'Show photo now',0 -.4 db 'Apply',0 -.5 db 'Start autoshooting',0 -.6 db 'Stop autoshooting',0 -.7 db 'Set',0 - -ch_text: -.1 db 'Minimize window',0 -.2 db 'Show photo',0 -.4 db 'Delay in milliseconds:',0 -.5 db 'Autosave',0 -.6 db 'Start numeration from',0 -.7 db 'Area',0 - -no_shoot db 'There is no photo',0 -shooting db 'Photographing...',0 -shooted_ok db 'Photo created',0 -saving db 'Saving...',0 -saved_ok db 'Photo saved',0 -delay_now db 'Delay...',0 -bad_file_name db 'File name is wrong',0 -disk_filled db 'Disk is full',0 -bad_fat_table db 'FAT table destroyed',0 -ac_den db 'Access denied',0 -device_er db 'Device error',0 -not_shooted db 'Error: you need to make a photo first',0 -no_file_name db 'Please, enter file name.',0 -invalid_rect db 'Wrong area size',0 -keyforexit db 'This is your screenshot. Press any key.',0 - -end if - - - - -;--------------------------------------------------------------------- -PathShow_data_1: -.type dd 0 ;+0 -.start_y dw 38 ;+4 -.start_x dw 6 ;+6 -.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 -.area_size_x dw 300 ;+10 -.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable -.background_flag dd 0 ;+16 -.font_color dd 0x0 ;+20 -.background_color dd 0x0 ;+24 -.text_pointer dd fname_buf ;+28 -.work_area_pointer dd text_work_area ;+32 -.temp_text_length dd 0 ;+36 -;--------------------------------------------------------------------- -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 '/sys',0 - -Filter: -dd Filter.end - Filter -.1: -db 'PNG',0 -.end: -db 0 - -start_temp_file_name: db '1.png',0 - -;--------------------------------------------------------------------- - -PrintScreen db 0 -autoshoot_flag db 0 - -app_ipc ipc_buffer 32 -align 4 - -mouse_flag: dd 0x0 -;--------------------------------------------------------------------- -align 4 - -ed_buffer: -.1: db '/sys/1.png',0 -;rb 287 -.2: - db '100',0 - rb 6 -.3: - rb 10 -;--------------------------------------------------------------------- -IM_END: -;--------------------------------------------------------------------- -structure_of_potock: -rb 100 -;--------------------------------------------------------------------- -align 4 - -cur_number dd ? - -sign_n db ? - -slot_n dd ? - -flags dd ? - -scr_buf: -.ptr dd ? -.end_ptr dd ? -.size: -.height dw ? -.width dw ? - -fs_struc: -.funk_n dd ? - dd ? - dd ? -.bytes_to_write dd ? -.data_ptr dd ?,? -.fn_ptr dd ? - -sf_buf: -.bmp_header dd ? -.bmp_area dd ? -.end dd ? - -set_rect_window_pid dd ? -set_rect_window_slot dd ? -;--------------------------------------------------------------------- -align 4 -rect_input_buffer: -.left rb 8 -.top rb 8 -.width rb 8 -.height rb 8 - -cmdstr rb 257 -;--------------------------------------------------------------------- -align 4 - -file_name: - rb 1058 - -scr screen_prop -rect: -.left dw ? -.top dw ? -.height dw ? -.width dw ? - -sc sys_color_table -app procinfo ; информация о главном окне -active_app procinfo ; информация об активном окне -set_rect_window_procinfo procinfo ; информация об окне области -;--------------------------------------------------------------------- - rb 512 ; стек потока фотканья -shoot_esp: -;--------------------------------------------------------------------- - rb 512 ; стек окна области -set_rect_window_esp: -;--------------------------------------------------------------------- -; app_end ; конец программы -mouse_dd rd 1 -;--------------------------------------------------------------------- -align 4 -cur_dir_path rb 4096 -library_path rb 4096 -temp_dir_pach rb 4096 -text_work_area rb 1024 -fname_buf rb 4096 -procinfo rb 1024 -filename_area rb 256 -;--------------------------------------------------------------------- - rb 1024 -i_end_tread: -;--------------------------------------------------------------------- - rb 1024 -stacktop: -;--------------------------------------------------------------------- -i_end: +; +; Screenshooter for Kolibri +; +;--------------------------------------------------------------------- +; Автор программы Евтихов Максим (Maxxxx32) +; +; 26.11.16 - IgorA снимки сохраняються в формате *.png +; 02.11.10 - Используется checkbox версии 2 +; +; version: 1.2 +; last update: 08/09/2010 +; written by: Marat Zakiyanov aka Mario79, aka Mario +; changes: select path for save with OpenDialog, +; bag fix for threads stacks +; 01.06.09 - компоненты беруться из системной библиотеки +; 24.07.08 - обновлен editbox +; 01.02.07 - обновлён editbox +; 31.01.07 - всё теперь рисуется относительно клиентской области + + +format binary as "" + +title equ 'Screenshooter v1.21' ; Заголовок окна +include '../../load_lib.mac' +include '../../develop/libraries/box_lib/trunk/box_lib.mac' +include '../../config.inc' ;for nightbuild +include '../../proc32.inc' +include '../../macros.inc' +include '../../KOSfuncs.inc' +include '../../develop/libraries/libs-dev/libimg/libimg.inc' +include 'txtbut.inc' +include 'label.inc' +include 'textwork.inc' +include 'scrshoot.mac' + +use32 + org 0 + db 'MENUET01' + dd 1, start, IM_END, i_end, stacktop, cmdstr, cur_dir_path + +include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US. +include '../../dll.inc' + +align 4 + @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load + use_txt_button ; | + use_label ; |-- GUI компоненты и некоторые процедуры + use_text_work ; / + +include 'scrwin.inc' ; вставляем код окна прдпросмотра +include 'scrsavef.inc'; вставляем процедуру сохранения файла +include 'gp.inc' +include 'srectwin.inc' + +macro get_sys_colors col_buf +{ + mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, col_buf, 40 +} + +;--- начало программы --- +align 4 +start: + +load_libraries l_libs_start,end_l_libs + +;if return code =-1 then exit, else nornary work +; cmp eax,-1 + inc eax + test eax,eax + jz close +;;;;;;;;;;;;;;;; init memory 68/11 + mcall SF_SYS_MISC, SSF_HEAP_INIT + test eax,eax + jz close + +;--------------------------------------------------------------------- + mov edi,filename_area + mov esi,start_temp_file_name + xor eax,eax + cld +@@: + lodsb + stosb + test eax,eax + jnz @b + + + mov edi,fname_buf + mov esi,ed_buffer.1 + xor eax,eax + cld +@@: + lodsb + stosb + test eax,eax + jnz @b + +;OpenDialog initialisation + stdcall [OpenDialog_Init], OpenDialog_data + +; prepare for PathShow + stdcall [PathShow_prepare], PathShow_data_1 +;--------------------------------------------------------------------- + ;mov al,[gs:1280*4*1024] + ; устанавливаем ipc буффер + xor ebx,ebx + inc ebx + mcall SF_IPC,, app_ipc, 32 + + ; устанавливаем глобальную горячую клавишу + mov cl,55 ; 55 - PrintScrn + xor edx,edx + mcall SF_KEYBOARD, SSF_SET_SYS_HOTKEY + + mov ebx,app + call get_slot_n + mov [slot_n],ecx + + ; устанавливаем маску событий + set_events_mask (evm_redraw+evm_key+evm_button+evm_mouse+evm_ipc) +;инициализация checkboxes + init_checkboxes2 check_boxes,check_boxes_end + +; сюда прыгаем при каждой перерисовке +red: + get_procinfo app ; получаем информацию о процессе + get_sys_colors sc ; получаем системные цвета + + ; устанавливаем системные цвета у GUI компонентов + txt_but_set_sys_color buttons,buttons_end,sc ; \ + labels_set_sys_color labels,labels_end,sc ; | + check_boxes_set_sys_color2 check_boxes,check_boxes_end,sc; | + edit_boxes_set_sys_color editboxes,editboxes_end,sc ; / + + get_screen_prop scr ; получаем информацию об экране +;------------------------------------------------------------------------------ +; Boot with "DIRECT" parameter - get screen and save + mov eax,cmdstr + cmp [eax],byte 0 + je no_boot + + cmp [eax],dword 'DIRE' + jne no_boot + + cmp [eax+4],word 'CT' + jne no_boot + + and [ch2.flags],dword 0 + or [ch5.flags],dword 1 + mov [OpenDialog_data.draw_window],dword draw_window_direct + + call shoot + jmp close +;------------------------------------------------------------------------------ +draw_window_direct: + mcall SF_REDRAW, SSF_BEGIN_DRAW + mcall SF_GET_SCREEN_SIZE +; eax = [xsize]*65536 + [ysize] + mov ebx,eax + shr ebx,17 + sub ebx,100 + shl ebx,16 + mov bx,200 + mov ecx,eax + and ecx,0xffff + shr ecx,1 + sub ecx,50 + shl ecx,16 + mov cx,100 + xor esi,esi + mcall SF_CREATE_WINDOW,,,0x34ffffff,,grab_text + + mcall SF_DRAW_TEXT, <10,30>,0x90000000,saving + + mcall SF_REDRAW, SSF_END_DRAW + ret +;------------------------------------------------------------------------------ +no_boot: + call draw_window ; перерисовываем окно +still: + wait_event red,key,button,mouse,ipc,still ; ждем событий + +key: + get_key + cmp al,2 + jne @f + cmp ah,55 + jne still + mov [PrintScreen],1 + call shoot + mov [PrintScreen],0 + jmp still +@@: +; stdcall [edit_box_key], edit1 + stdcall [edit_box_key], edit2 + stdcall [edit_box_key], edit3 + + jmp still +button: + get_pressed_button + cmp ah,1 + je p_close + txt_but_ev buttons,buttons_end + jmp still +mouse: + get_active_window + cmp eax,[slot_n] + jne still +;---------------------------------- +; stdcall [edit_box_mouse], edit1 + stdcall [edit_box_mouse], edit2 + stdcall [edit_box_mouse], edit3 +;---------------------------------- + checkboxes_mouse2 check_boxes,check_boxes_end +;----------------------------------- + jmp still +ipc: + cmp word [app_ipc+8],2 + jne @f + min_window + jmp .clear_ipc +@@: + cmp word [app_ipc+8],3 + jne @f + mov ecx,[slot_n] + activ_window + jmp .clear_ipc +@@: + call draw_number + call dr_st + +.clear_ipc: + cld + xor eax,eax + mov ecx,32/4 + mov edi,app_ipc + rep stosd + jmp still + +p_close: + btr dword [flags],1 + + bt dword [flags],3 + jnc @f + mcall SF_SYSTEM, SSF_TERMINATE_THREAD_ID, [set_rect_window_pid] +@@: + +close: + app_close + +;--------------------------------------------------------------------- +draw_PathShow: + pusha + mcall SF_DRAW_RECT, <4,302>, <35,15>, 0xffffff +; draw for PathShow + push dword PathShow_data_1 + call [PathShow_draw] + popa + ret +;-------------------------------------------------------------------- +;--- прооцедура перерисовки главного окна --------------------------- +;-------------------------------------------------------------------- +draw_window: +start_draw_window ; начало перерисовки + ; определяем окно + get_skin_height + mov ecx,100*65536+220 + add cx,ax + mov edx,[sc.work] + or edx,0x34000000;0x33000000 + xor esi,esi + ;xor edi,edi + mov edi,grab_text + mcall SF_CREATE_WINDOW, 100*65536+320 + + ; выводим числа в окно + movsx ecx,word [scr.width] ; ширина экрана + mcall SF_DRAW_NUMBER, <4,0>, , <188,[label1.top]>, [sc.work_text] + movsx ecx,word [scr.height] ; высота экрана + add edx, 37 shl 16 + mcall + add edx, 36 shl 16 + mov ebx,2 shl 16 + movsx ecx,word [scr.bitspp] ; бит на пиксель + mcall + + call draw_number ; прорисовываем номер снимка + call dr_st + + draw_labels labels,labels_end ; метки +;------ show check editbox ----------- +; stdcall [edit_box_draw], edit1 + stdcall [edit_box_draw], edit2 + stdcall [edit_box_draw], edit3 +;------ end check all editbox ------- + + call draw_PathShow + + draw_txt_buttons buttons,buttons_end ; кнопки +;------ check all checkbox --------- + + checkboxes_draw2 check_boxes,check_boxes_end + +;------ end check all checkbox ------ + +stop_draw_window ; конец перерисовки +ret + +shoot: + bt dword [ch4.flags],1 ; включена ли задержка ? + jnc @f + draw_status delay_now + mov edi,ed_buffer.2 + call zstr_to_int + mov ebx,eax + delay +@@: + call get_mem_for_shoot; получаем память для снимка + + + bts dword [flags],0 ; нулевой флаг - снимок есть в памяти + + ; делаем снимок + draw_status shooting + mov esi,scr + mov edi,[scr_buf.ptr] + call copy_screen_to_image + + bt dword [use_rect.flags],1 + jc .use_rect + push dword [scr] + jmp @f +.use_rect: + push dword [rect.height] +@@: + pop dword [scr_buf.size] + + cmp [autoshoot_flag],1 + jne .2 + + bt dword [ch5.flags],1 ; включено ли автосохранение ? + jnc @f + call save_file +@@: + draw_status shooted_ok +.2: + bt dword [flags],1 + jnc @f + ret +@@: + bt dword [ch2.flags],1 ; показать окно предпросмотра ? + jnc @f + cmp [PrintScreen],0 + jne @f + call show_scr_window + ret +@@: + bt dword [ch5.flags],1 ; включено ли автосохранение ? + jnc @f + + call [OpenDialog_data.draw_window] +; invoke OpenDialog + stdcall [OpenDialog_Start], OpenDialog_data + cmp [OpenDialog_data.status],1 + je .1 + ret +.1: +; prepare for PathShow + stdcall [PathShow_prepare], PathShow_data_1 + call [OpenDialog_data.draw_window] + call save_file +@@: + ret + +;--- получить память для снимка --- +get_mem_for_shoot: +;clean memory + mcall SF_SYS_MISC, SSF_MEM_FREE, [scr_buf.ptr] + + bt dword [use_rect.flags],1 ; фоткать область экрана + jc .use_area + movzx ecx, word [scr.width] + movzx ebx, word [scr.height] + jmp @f +.use_area: + call read_rect + movzx ecx, word [rect.width] + movzx ebx, word [rect.height] +@@: + imul ecx,ebx + lea ecx,[ecx*3] +; add ecx,i_end + mcall SF_SYS_MISC, SSF_MEM_ALLOC + mov [scr_buf.ptr],eax + add eax,ecx + mov [scr_buf.end_ptr],ecx +ret + +;--- содать окно предпросмотра --- +show_scr_window: +pusha + bt dword [flags],0 + jnc @f + xor ebx,ebx + inc ebx + mcall SF_CREATE_THREAD,, scr_window, i_end_tread-512 +@@: +popa +ret + +;--- прочитать и нарисовать текущий номер --- +apply_number: + mov edi,ed_buffer.3 + call zstr_to_int + mov [cur_number],eax + call draw_number +ret + +;--- процедура прорисовки текущего номера --- +draw_number: + mov [sign_n],4 + mov cx,[label9.top] + shl ecx,16 + mov cx,10 + mov edx,[sc.work] + mcall SF_DRAW_RECT, 150*65536+96 + movsx bx,byte [sign_n] + shl ebx,16 + mov edx,150 shl 16 + mov dx,[label9.top] + mov esi,[sc.work_text] + mcall SF_DRAW_NUMBER,, [cur_number] +ret + +;--- процедура, запускающая поток автосъемки --- +start_autoshoot: + bts dword [flags],1 + jc @f + xor ebx,ebx + inc ebx + mcall SF_CREATE_THREAD,, autoshoot, i_end_tread +@@: +ret + +;--- останавливает этот поток --- +stop_autoshoot: + btr dword [flags],1 +ret + +;--- цикл потока автосъемки --- +autoshoot: + mov [autoshoot_flag],1 + mov ecx,[slot_n] + activ_window +.next: + bt dword [flags],1 + jnc close + mov esi,2 + mcall SF_IPC, SSF_SEND_MESSAGE, [app.pid], messages.draw_number + call shoot + jmp autoshoot.next +.close: + mov [autoshoot_flag],0 + jmp close +;--- процедура прорисовки строки состояния --- +; (должна вызываться потоком главного окна) +dr_st: + mcall SF_DRAW_LINE, 0*65536+310, 198*65536+198, [sc.work_graph] + + mov bx,310 + mov ecx,199*65536+15 + mov edx,[sc.work] + mcall SF_DRAW_RECT ; полоска + + mov edi,status + call draw_label +ret + +;--- процедура получения номера слота потока --- +; вход ebx - буффер 1024 байт +; выход ecx - номер слота +get_slot_n: + xor ecx,ecx + dec ecx + mcall SF_THREAD_INFO + + mov edx,[ebx+30] + xor ecx,ecx +@@: + inc ecx + mcall SF_THREAD_INFO + cmp [ebx+30],edx + je @f + jmp @b +@@: +ret + +;--- процедура, запускающая поток, делающий 1 снимок --- +one_shoot: + mov ecx,one_shoot_thread + mov edx,shoot_esp + jmp @f +;--- процедра, запускающая поток, сохраняющий снимок --- +save_shoot: +; invoke OpenDialog + stdcall [OpenDialog_Start], OpenDialog_data + cmp [OpenDialog_data.status],1 + je .1 + ret +.1: +; prepare for PathShow + stdcall [PathShow_prepare], PathShow_data_1 + + call draw_PathShow + + mov ecx,save_shoot_thread + mov edx,shoot_esp +@@: + bts dword [flags],2 + jc .running + bt dword [flags],1 + jc .running + + xor ebx,ebx + inc ebx + mcall SF_CREATE_THREAD +.running: +ret + +;--- поток, делающий 1 снимок --- +one_shoot_thread: + mov ecx,[slot_n] + activ_window + bt dword [ch1.flags],1 ; минимизировать окно ? + jnc @f + mov esi,2 + mcall SF_IPC, SSF_SEND_MESSAGE, [app.pid], messages.min_window +@@: + call shoot + btr dword [flags],2 + jmp close + +;--- процедура, отправляющая главному окну сообщение о перерисовке +; строки состояния --- +send_draw_status: + mov esi,2 + mcall SF_IPC, SSF_SEND_MESSAGE, [app.pid], messages.draw_status +ret + +;--- поток, сохраняюий файл --- +save_shoot_thread: + mov ecx,[slot_n] + activ_window + call save_file + btr dword [flags],2 + jmp close + +;--- процедура, запускающая поток окна установки области съемки --- +show_set_rect_window: + bts dword [flags],3 + jc @f + xor ebx,ebx + inc ebx + mcall SF_CREATE_THREAD,, set_rect_window, set_rect_window_esp + + mov [set_rect_window_pid],eax +ret + +@@: + mcall SF_SYSTEM, SSF_TERMINATE_THREAD_ID, [set_rect_window_pid] + btr dword [flags],3 +ret + +;--- получение информации об активном окне --- +get_active_window_info: + mcall SF_SYSTEM, SSF_GET_ACTIVE_WINDOW + + mov ecx,eax + mcall SF_THREAD_INFO, active_app +ret + +;==================================================================== +;=== данные программы =============================================== +;==================================================================== +messages: +.draw_number dw 0 +.draw_status dw 1 +.min_window dw 2 +.act_window dw 3 + +grab_text: + db title,0 + +labels: +label1 label 5,8,0,text.1 ; screen size and color depth +label3 label 5,25,0,text.3 ; введите имя файла +label9 label 5,52,0,text.9 ; номер текущего симка +status label 5,201,0,no_shoot +labels_end: + +;--------------------------------------------------------------------- +l_libs_start: + +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 + +library03 l_libs system_dir_LibImg+9, library_path, system_dir_LibImg, \ + import_libimg + +end_l_libs: +;--------------------------------------------------------------------- +editboxes: +;edit1 edit_box 300,5,35,cl_white,0,0,0,0,300,ed_buffer.1,mouse_dd,ed_focus,10,10 ; путь к файлу +edit2 edit_box 35,170,134,cl_white,0,0,0,0,9,ed_buffer.2,mouse_dd,ed_figure_only,3,3 ; задержка +edit3 edit_box 35,165,164,cl_white,0,0,0,0,9,ed_buffer.3,mouse_dd,ed_figure_only ; автонумерация +editboxes_end: +;--------------------------------------------------------------------- +buttons: +but1 txt_button 150,5,15,65,2,0,0,but_text.1,one_shoot ; сделать снимок +but2 txt_button 34,274,15,34,3,0,0,but_text.2,save_shoot ; "..." - выбрать путь сохранения +but3 txt_button 145,160,15,65,3,0,0,but_text.3,show_scr_window ; показать снимок +but4 txt_button 80,205,15,163,5,0,0,but_text.4,apply_number ; применить номер +but5 txt_button 150,5,15,85,6,0,0,but_text.5,start_autoshoot ; начать автосъёмку +but6 txt_button 145,160,15,85,7,0,0,but_text.6,stop_autoshoot ; остановить автосъёмку +but7 txt_button 40,70,10,180,8,0,0,but_text.7,show_set_rect_window ; задать область +buttons_end: +;--------------------------------------------------------------------- +check_boxes: +ch1 check_box2 (5 shl 16+11),(105 shl 16 +11),5,cl_white,0,0x80000000,ch_text.1,ch_flag_en+ch_flag_middle ; свернуть окно +ch2 check_box2 (5 shl 16+11),(120 shl 16 +11),5,cl_white,0,0x80000000,ch_text.2,ch_flag_en+ch_flag_middle ; show screenshot +ch4 check_box2 (5 shl 16+11),(135 shl 16 +11),5,cl_white,0,0x80000000,ch_text.4,ch_flag_en+ch_flag_middle ; задержка +ch5 check_box2 (5 shl 16+11),(150 shl 16 +11),5,cl_white,0,0x80000000,ch_text.5,ch_flag_en+ch_flag_middle +ch6 check_box2 (5 shl 16+11),(165 shl 16 +11),5,cl_white,0,0x80000000,ch_text.6,ch_flag_en+ch_flag_middle +use_rect check_box2 (5 shl 16+11),(180 shl 16 +11),5,cl_white,0,0x80000000,ch_text.7,ch_flag_middle ; исп. область +; автонумерация +check_boxes_end: +;--------------------------------------------------------------------- + +if lang eq ru_RU + +text: +.1 db 'Размер экрана и глубина цвета: х х bit',0 +.3 db 'Путь для сохранения снимка:',0 +.9 db 'Номер текущего снимка:',0 + +but_text: +.1 db 'Сделать снимок экрана',0 +.2 db '...',0 +.3 db 'Показать снимок сейчас',0 +.4 db 'Применить',0 +.5 db 'Начать автосъемку',0 +.6 db 'Остановить автосъемку',0 +.7 db 'задать',0 + +ch_text: +.1 db 'Свернуть окно',0 +.2 db 'Показать снимок',0 +.4 db 'Задержка в миллисекундах:',0 +.5 db 'Автосохранение',0 +.6 db 'Автонумерация, начиная с',0 +.7 db 'Область',0 + +no_shoot db 'Снимок не сделан',0 +shooting db 'Фотографирование...',0 +shooted_ok db 'Снимок сделан',0 +saving db 'Сохранение...',0 +saved_ok db 'Снимок сохранен',0 +delay_now db 'Задержка...',0 +bad_file_name db 'Имя файла введено неверно',0 +disk_filled db 'Диск заполнен',0 +bad_fat_table db 'Таблица FAT разрушена',0 +ac_den db 'Доступ запрещен',0 +device_er db 'Ошибка устройства',0 +not_shooted db 'Ошибка: вначале сделайте снимок',0 +no_file_name db 'Ошибка: следует ввести имя файла',0 +invalid_rect db 'Недопустимые размеры области',0 +keyforexit db 'Это ваш снимок. Выход - любая клавиша.',0 + + +else ; Default to en_US + +text: +.1 db 'Screen size and color depth: х х bit',0 +.3 db 'Screenshot save path:',0 +.9 db 'Current photo number:',0 + +but_text: +.1 db 'Make screen photo',0 +.2 db 'Save screen photo',0 +.3 db 'Show photo now',0 +.4 db 'Apply',0 +.5 db 'Start autoshooting',0 +.6 db 'Stop autoshooting',0 +.7 db 'Set',0 + +ch_text: +.1 db 'Minimize window',0 +.2 db 'Show photo',0 +.4 db 'Delay in milliseconds:',0 +.5 db 'Autosave',0 +.6 db 'Start numeration from',0 +.7 db 'Area',0 + +no_shoot db 'There is no photo',0 +shooting db 'Photographing...',0 +shooted_ok db 'Photo created',0 +saving db 'Saving...',0 +saved_ok db 'Photo saved',0 +delay_now db 'Delay...',0 +bad_file_name db 'File name is wrong',0 +disk_filled db 'Disk is full',0 +bad_fat_table db 'FAT table destroyed',0 +ac_den db 'Access denied',0 +device_er db 'Device error',0 +not_shooted db 'Error: you need to make a photo first',0 +no_file_name db 'Please enter file name.',0 +invalid_rect db 'Wrong area size',0 +keyforexit db 'This is your screenshot. Press any key.',0 + +end if + + + + +;--------------------------------------------------------------------- +PathShow_data_1: +.type dd 0 ;+0 +.start_y dw 38 ;+4 +.start_x dw 6 ;+6 +.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 +.area_size_x dw 300 ;+10 +.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable +.background_flag dd 0 ;+16 +.font_color dd 0x0 ;+20 +.background_color dd 0x0 ;+24 +.text_pointer dd fname_buf ;+28 +.work_area_pointer dd text_work_area ;+32 +.temp_text_length dd 0 ;+36 +;--------------------------------------------------------------------- +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 '/sys',0 + +Filter: +dd Filter.end - Filter +.1: +db 'PNG',0 +.end: +db 0 + +start_temp_file_name: db '1.png',0 + +;--------------------------------------------------------------------- + +PrintScreen db 0 +autoshoot_flag db 0 + +app_ipc ipc_buffer 32 +align 4 + +mouse_flag: dd 0x0 +;--------------------------------------------------------------------- +align 4 + +ed_buffer: +.1: db '/sys/1.png',0 +;rb 287 +.2: + db '100',0 + rb 6 +.3: + rb 10 +;--------------------------------------------------------------------- +IM_END: +;--------------------------------------------------------------------- +structure_of_potock: +rb 100 +;--------------------------------------------------------------------- +align 4 + +cur_number dd ? + +sign_n db ? + +slot_n dd ? + +flags dd ? + +scr_buf: +.ptr dd ? +.end_ptr dd ? +.size: +.height dw ? +.width dw ? + +fs_struc: +.funk_n dd ? + dd ? + dd ? +.bytes_to_write dd ? +.data_ptr dd ?,? +.fn_ptr dd ? + +sf_buf: +.bmp_header dd ? +.bmp_area dd ? +.end dd ? + +set_rect_window_pid dd ? +set_rect_window_slot dd ? +;--------------------------------------------------------------------- +align 4 +rect_input_buffer: +.left rb 8 +.top rb 8 +.width rb 8 +.height rb 8 + +cmdstr rb 257 +;--------------------------------------------------------------------- +align 4 + +file_name: + rb 1058 + +scr screen_prop +rect: +.left dw ? +.top dw ? +.height dw ? +.width dw ? + +sc sys_color_table +app procinfo ; информация о главном окне +active_app procinfo ; информация об активном окне +set_rect_window_procinfo procinfo ; информация об окне области +;--------------------------------------------------------------------- + rb 512 ; стек потока фотканья +shoot_esp: +;--------------------------------------------------------------------- + rb 512 ; стек окна области +set_rect_window_esp: +;--------------------------------------------------------------------- +; app_end ; конец программы +mouse_dd rd 1 +;--------------------------------------------------------------------- +align 4 +cur_dir_path rb 4096 +library_path rb 4096 +temp_dir_pach rb 4096 +text_work_area rb 1024 +fname_buf rb 4096 +procinfo rb 1024 +filename_area rb 256 +;--------------------------------------------------------------------- + rb 1024 +i_end_tread: +;--------------------------------------------------------------------- + rb 1024 +stacktop: +;--------------------------------------------------------------------- +i_end: diff --git a/programs/media/scrshoot/srectwin.inc b/programs/media/scrshoot/srectwin.inc index 84c75dfbb3..fb1ac8ad7b 100644 --- a/programs/media/scrshoot/srectwin.inc +++ b/programs/media/scrshoot/srectwin.inc @@ -1,395 +1,397 @@ -align 4 -set_rect_window: - mov ebx,set_rect_window_procinfo - call get_slot_n - - mov [set_rect_window_slot],ecx - - set_events_mask (evm_redraw+evm_key+evm_button+evm_mouse) - call init_rect - edit_boxes_set_sys_color rect_input,rect_input_end,sc -.red: - labels_set_sys_color rect_input_labels,rect_input_labels_end,sc - check_boxes_set_sys_color2 riw_check_boxes,riw_check_boxes_end,sc - call .draw_window -align 4 -.still: - wait_event .red,.key,.button,.mouse - -.key: - get_key - - stdcall [edit_box_key], rect_input.left - stdcall [edit_box_key], rect_input.top - stdcall [edit_box_key], rect_input.width - stdcall [edit_box_key], rect_input.height - - call read_rect - call draw_rect_on_screen - - jmp .still - -.button: - get_pressed_button - - cmp ah,1 - jne @f - btr dword [flags],3 - jmp close -@@: - - jmp .still - -.mouse: - get_active_window - cmp eax,[set_rect_window_slot] - jne .still - - stdcall [edit_box_mouse], rect_input.left - 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 - -align 4 -.draw_window: - start_draw_window - - mov edx,[sc.work] - add edx,0x33000000 - mov edi,riw_grab_text - xor esi,esi - mcall SF_CREATE_WINDOW, 100*65536+250, 100*65536+130 - - draw_labels rect_input_labels,rect_input_labels_end - - stdcall [edit_box_draw], rect_input.left - stdcall [edit_box_draw], rect_input.top - stdcall [edit_box_draw], rect_input.width - stdcall [edit_box_draw], rect_input.height -;;;;;;;;;;;;;;;;;;;;;; - stdcall [check_box_draw], use_rect_active_window - - call read_rect - call draw_rect_on_screen - - stop_draw_window -ret - -align 4 -init_rect: - bt dword [use_rect_active_window.flags],1 - jc init_rect_from_active_window -pushad - mov edi,rect_input_buffer.left - movsx eax,word[rect.left] - mov ecx,rect_input.left - call init_editbox - mov edi,rect_input_buffer.top - movsx eax,word[rect.top] - mov ecx,rect_input.top - call init_editbox - mov edi,rect_input_buffer.width - movsx eax,word[rect.width] - mov ecx,rect_input.width - call init_editbox - mov edi,rect_input_buffer.height - movsx eax,word[rect.height] - mov ecx,rect_input.height - call init_editbox -popad -ret - -align 4 -init_rect_from_active_window: - -ret - -align 4 -init_editbox: - push edi - push ecx - xor ebx,ebx - inc ebx - cmp eax,10 - jl @f - inc ebx - @@: - cmp eax,100 - jl @f - inc ebx - @@: - cmp eax,1000 - jl @f - inc ebx - @@: - call int_to_str - call [edit_box_set_text] ;ecx,edi -ret -;-------------------------------------------------------------------- -;--- Считывание области --------------------------------------------- -;-------------------------------------------------------------------- -align 4 -read_rect: - bt dword [use_rect_active_window.flags],1 - jc read_rect_from_active_window - - mov edi,rect_input_buffer.left - call zstr_to_int - cmp ax,[scr.width] - jb @f - mov ax,[scr.width] -@@: - mov [rect.left],ax - - mov edi,rect_input_buffer.top - call zstr_to_int - cmp ax,[scr.height] - jb @f - mov ax,[scr.height] -@@: - mov [rect.top],ax - - mov edi,rect_input_buffer.width - call zstr_to_int - mov bx,[scr.width] - sub bx,[rect.left] - cmp ax,bx - jb @f - mov ax,bx -@@: - mov [rect.width],ax - - mov edi,rect_input_buffer.height - call zstr_to_int - mov bx,[scr.height] - sub bx,[rect.top] - cmp ax,bx - jb @f - mov ax,bx -@@: - mov [rect.height],ax -ret - -align 4 -read_rect_from_active_window: - call get_active_window_info - - mov eax,[active_app.left] - mov [rect.left],ax - mov eax,[active_app.top] - mov [rect.top],ax - mov eax,[active_app.width] - inc eax - mov [rect.width],ax - mov eax,[active_app.height] - inc eax - mov [rect.height],ax -ret - -align 4 -draw_rect_on_screen: - - xor edx,edx - mcall SF_DRAW_RECT, 150*65536+80, 5*65536+60 - - ;movzx eax,word [rect.left] - ;mul word [scr.width] - xor edx,edx - movzx eax,word [scr.width] - mov ebx,80 - div ebx - mov ebx,eax - - xor edx,edx - movzx eax,word [rect.height] - div ebx - push ax - - xor edx,edx - movzx eax,word [rect.width] - div ebx - push ax - - xor edx,edx - movzx eax,word [rect.top] - div ebx - push ax - - xor edx,edx - movzx eax,word [rect.left] - div ebx - push ax - - pop bx - add bx,150 - shl ebx,16 - - pop cx - add cx,5 - shl ecx,16 - - pop bx - pop cx - - mcall SF_DRAW_RECT,,,0xffffff -ret - -;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> -;DATA данные - -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 -OpenDialog_Start dd aOpenDialog_Start -;OpenDialog__Version dd aOpenDialog_Version - dd 0,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 -edit_box_set_text dd aEdit_box_set_text -;version_ed dd aVersion_ed - -init_checkbox dd aInit_checkbox -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 - -PathShow_prepare dd sz_PathShow_prepare -PathShow_draw dd sz_PathShow_draw -;Version_path_show dd szVersion_path_show - dd 0,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_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 -;aVersion_ch db 'version_ch2',0 - -aOption_box_draw db 'option_box_draw',0 -aOption_box_mouse db 'option_box_mouse',0 -;aVersion_op db 'version_op',0 - -sz_PathShow_prepare db 'PathShow_prepare',0 -sz_PathShow_draw db 'PathShow_draw',0 -;szVersion_path_show db 'version_PathShow',0 -;--------------------------------------------------------------------- -align 4 -import_libimg: - dd alib_init1 - img_is_img dd aimg_is_img - img_info dd aimg_info - img_from_file dd aimg_from_file - img_to_file dd aimg_to_file - img_from_rgb dd aimg_from_rgb - img_to_rgb dd aimg_to_rgb - img_to_rgb2 dd aimg_to_rgb2 - img_decode dd aimg_decode - img_encode dd aimg_encode - img_create dd aimg_create - img_destroy dd aimg_destroy - img_destroy_layer dd aimg_destroy_layer - img_count dd aimg_count - img_lock_bits dd aimg_lock_bits - img_unlock_bits dd aimg_unlock_bits - img_flip dd aimg_flip - img_flip_layer dd aimg_flip_layer - img_rotate dd aimg_rotate - img_rotate_layer dd aimg_rotate_layer - img_draw dd aimg_draw -dd 0,0 - alib_init1 db 'lib_init',0 - aimg_is_img db 'img_is_img',0 - aimg_info db 'img_info',0 - aimg_from_file db 'img_from_file',0 - aimg_to_file db 'img_to_file',0 - aimg_from_rgb db 'img_from_rgb',0 - aimg_to_rgb db 'img_to_rgb',0 - aimg_to_rgb2 db 'img_to_rgb2',0 - aimg_decode db 'img_decode',0 - aimg_encode db 'img_encode',0 - aimg_create db 'img_create',0 - aimg_destroy db 'img_destroy',0 - aimg_destroy_layer db 'img_destroy_layer',0 - aimg_count db 'img_count',0 - aimg_lock_bits db 'img_lock_bits',0 - aimg_unlock_bits db 'img_unlock_bits',0 - aimg_flip db 'img_flip',0 - aimg_flip_layer db 'img_flip_layer',0 - aimg_rotate db 'img_rotate',0 - aimg_rotate_layer db 'img_rotate_layer',0 - aimg_draw db 'img_draw',0 -;--------------------------------------------------------------------- -;width,left,top,color,shift_color,focus_border_color,\ -; blur_border_color,text_color,max,text,mouse_variable,flags,size,pos - -rect_input: -.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 -.width edit_box 35,95,45,cl_white,0,0,0,0,5,rect_input_buffer.width, mouse_dd1,ed_figure_only -.height edit_box 35,95,65,cl_white,0,0,0,0,5,rect_input_buffer.height,mouse_dd1,ed_figure_only -rect_input_end: -mouse_dd1 rd 1 -rect_input_labels: -.left label 10,10,0,rect_input_labels_text.left -.top label 10,30,0,rect_input_labels_text.top -.width label 10,50,0,rect_input_labels_text.width -.height label 10,70,0,rect_input_labels_text.height -rect_input_labels_end: - -rect_input_labels_text: -if lang eq ru_RU -.left db 'Отступ слева:',0 -.top db 'Отступ сверху:',0 -.width db 'Ширина:',0 -.height db 'Высота:',0 -else -.left db 'Left:',0 -.top db 'Top:',0 -.width db 'Width:',0 -.height db 'Height:',0 -end if - -riw_check_boxes: -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_end: - -if lang eq ru_RU -riw_check_boxes_text db 'Использовать область активного окна',0 -riw_grab_text db 'Координаты и размеры области:',0 -else -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 +; Language support for locales: ru_RU (CP866), en_US. + +align 4 +set_rect_window: + mov ebx,set_rect_window_procinfo + call get_slot_n + + mov [set_rect_window_slot],ecx + + set_events_mask (evm_redraw+evm_key+evm_button+evm_mouse) + call init_rect + edit_boxes_set_sys_color rect_input,rect_input_end,sc +.red: + labels_set_sys_color rect_input_labels,rect_input_labels_end,sc + check_boxes_set_sys_color2 riw_check_boxes,riw_check_boxes_end,sc + call .draw_window +align 4 +.still: + wait_event .red,.key,.button,.mouse + +.key: + get_key + + stdcall [edit_box_key], rect_input.left + stdcall [edit_box_key], rect_input.top + stdcall [edit_box_key], rect_input.width + stdcall [edit_box_key], rect_input.height + + call read_rect + call draw_rect_on_screen + + jmp .still + +.button: + get_pressed_button + + cmp ah,1 + jne @f + btr dword [flags],3 + jmp close +@@: + + jmp .still + +.mouse: + get_active_window + cmp eax,[set_rect_window_slot] + jne .still + + stdcall [edit_box_mouse], rect_input.left + 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 + +align 4 +.draw_window: + start_draw_window + + mov edx,[sc.work] + add edx,0x33000000 + mov edi,riw_grab_text + xor esi,esi + mcall SF_CREATE_WINDOW, 100*65536+250, 100*65536+130 + + draw_labels rect_input_labels,rect_input_labels_end + + stdcall [edit_box_draw], rect_input.left + stdcall [edit_box_draw], rect_input.top + stdcall [edit_box_draw], rect_input.width + stdcall [edit_box_draw], rect_input.height +;;;;;;;;;;;;;;;;;;;;;; + stdcall [check_box_draw], use_rect_active_window + + call read_rect + call draw_rect_on_screen + + stop_draw_window +ret + +align 4 +init_rect: + bt dword [use_rect_active_window.flags],1 + jc init_rect_from_active_window +pushad + mov edi,rect_input_buffer.left + movsx eax,word[rect.left] + mov ecx,rect_input.left + call init_editbox + mov edi,rect_input_buffer.top + movsx eax,word[rect.top] + mov ecx,rect_input.top + call init_editbox + mov edi,rect_input_buffer.width + movsx eax,word[rect.width] + mov ecx,rect_input.width + call init_editbox + mov edi,rect_input_buffer.height + movsx eax,word[rect.height] + mov ecx,rect_input.height + call init_editbox +popad +ret + +align 4 +init_rect_from_active_window: + +ret + +align 4 +init_editbox: + push edi + push ecx + xor ebx,ebx + inc ebx + cmp eax,10 + jl @f + inc ebx + @@: + cmp eax,100 + jl @f + inc ebx + @@: + cmp eax,1000 + jl @f + inc ebx + @@: + call int_to_str + call [edit_box_set_text] ;ecx,edi +ret +;-------------------------------------------------------------------- +;--- Считывание области --------------------------------------------- +;-------------------------------------------------------------------- +align 4 +read_rect: + bt dword [use_rect_active_window.flags],1 + jc read_rect_from_active_window + + mov edi,rect_input_buffer.left + call zstr_to_int + cmp ax,[scr.width] + jb @f + mov ax,[scr.width] +@@: + mov [rect.left],ax + + mov edi,rect_input_buffer.top + call zstr_to_int + cmp ax,[scr.height] + jb @f + mov ax,[scr.height] +@@: + mov [rect.top],ax + + mov edi,rect_input_buffer.width + call zstr_to_int + mov bx,[scr.width] + sub bx,[rect.left] + cmp ax,bx + jb @f + mov ax,bx +@@: + mov [rect.width],ax + + mov edi,rect_input_buffer.height + call zstr_to_int + mov bx,[scr.height] + sub bx,[rect.top] + cmp ax,bx + jb @f + mov ax,bx +@@: + mov [rect.height],ax +ret + +align 4 +read_rect_from_active_window: + call get_active_window_info + + mov eax,[active_app.left] + mov [rect.left],ax + mov eax,[active_app.top] + mov [rect.top],ax + mov eax,[active_app.width] + inc eax + mov [rect.width],ax + mov eax,[active_app.height] + inc eax + mov [rect.height],ax +ret + +align 4 +draw_rect_on_screen: + + xor edx,edx + mcall SF_DRAW_RECT, 150*65536+80, 5*65536+60 + + ;movzx eax,word [rect.left] + ;mul word [scr.width] + xor edx,edx + movzx eax,word [scr.width] + mov ebx,80 + div ebx + mov ebx,eax + + xor edx,edx + movzx eax,word [rect.height] + div ebx + push ax + + xor edx,edx + movzx eax,word [rect.width] + div ebx + push ax + + xor edx,edx + movzx eax,word [rect.top] + div ebx + push ax + + xor edx,edx + movzx eax,word [rect.left] + div ebx + push ax + + pop bx + add bx,150 + shl ebx,16 + + pop cx + add cx,5 + shl ecx,16 + + pop bx + pop cx + + mcall SF_DRAW_RECT,,,0xffffff +ret + +;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +;DATA данные + +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 +OpenDialog_Start dd aOpenDialog_Start +;OpenDialog__Version dd aOpenDialog_Version + dd 0,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 +edit_box_set_text dd aEdit_box_set_text +;version_ed dd aVersion_ed + +init_checkbox dd aInit_checkbox +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 + +PathShow_prepare dd sz_PathShow_prepare +PathShow_draw dd sz_PathShow_draw +;Version_path_show dd szVersion_path_show + dd 0,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_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 +;aVersion_ch db 'version_ch2',0 + +aOption_box_draw db 'option_box_draw',0 +aOption_box_mouse db 'option_box_mouse',0 +;aVersion_op db 'version_op',0 + +sz_PathShow_prepare db 'PathShow_prepare',0 +sz_PathShow_draw db 'PathShow_draw',0 +;szVersion_path_show db 'version_PathShow',0 +;--------------------------------------------------------------------- +align 4 +import_libimg: + dd alib_init1 + img_is_img dd aimg_is_img + img_info dd aimg_info + img_from_file dd aimg_from_file + img_to_file dd aimg_to_file + img_from_rgb dd aimg_from_rgb + img_to_rgb dd aimg_to_rgb + img_to_rgb2 dd aimg_to_rgb2 + img_decode dd aimg_decode + img_encode dd aimg_encode + img_create dd aimg_create + img_destroy dd aimg_destroy + img_destroy_layer dd aimg_destroy_layer + img_count dd aimg_count + img_lock_bits dd aimg_lock_bits + img_unlock_bits dd aimg_unlock_bits + img_flip dd aimg_flip + img_flip_layer dd aimg_flip_layer + img_rotate dd aimg_rotate + img_rotate_layer dd aimg_rotate_layer + img_draw dd aimg_draw +dd 0,0 + alib_init1 db 'lib_init',0 + aimg_is_img db 'img_is_img',0 + aimg_info db 'img_info',0 + aimg_from_file db 'img_from_file',0 + aimg_to_file db 'img_to_file',0 + aimg_from_rgb db 'img_from_rgb',0 + aimg_to_rgb db 'img_to_rgb',0 + aimg_to_rgb2 db 'img_to_rgb2',0 + aimg_decode db 'img_decode',0 + aimg_encode db 'img_encode',0 + aimg_create db 'img_create',0 + aimg_destroy db 'img_destroy',0 + aimg_destroy_layer db 'img_destroy_layer',0 + aimg_count db 'img_count',0 + aimg_lock_bits db 'img_lock_bits',0 + aimg_unlock_bits db 'img_unlock_bits',0 + aimg_flip db 'img_flip',0 + aimg_flip_layer db 'img_flip_layer',0 + aimg_rotate db 'img_rotate',0 + aimg_rotate_layer db 'img_rotate_layer',0 + aimg_draw db 'img_draw',0 +;--------------------------------------------------------------------- +;width,left,top,color,shift_color,focus_border_color,\ +; blur_border_color,text_color,max,text,mouse_variable,flags,size,pos + +rect_input: +.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 +.width edit_box 35,95,45,cl_white,0,0,0,0,5,rect_input_buffer.width, mouse_dd1,ed_figure_only +.height edit_box 35,95,65,cl_white,0,0,0,0,5,rect_input_buffer.height,mouse_dd1,ed_figure_only +rect_input_end: +mouse_dd1 rd 1 +rect_input_labels: +.left label 10,10,0,rect_input_labels_text.left +.top label 10,30,0,rect_input_labels_text.top +.width label 10,50,0,rect_input_labels_text.width +.height label 10,70,0,rect_input_labels_text.height +rect_input_labels_end: + +rect_input_labels_text: +if lang eq ru_RU +.left db 'Отступ слева:',0 +.top db 'Отступ сверху:',0 +.width db 'Ширина:',0 +.height db 'Высота:',0 +else ; Default to en_US +.left db 'Left:',0 +.top db 'Top:',0 +.width db 'Width:',0 +.height db 'Height:',0 +end if + +riw_check_boxes: +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_end: + +if lang eq ru_RU +riw_check_boxes_text db 'Использовать область активного окна',0 +riw_grab_text db 'Координаты и размеры области:',0 +else ; Default to en_US +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 diff --git a/programs/media/voxel_editor/utilites/vox_creator.asm b/programs/media/voxel_editor/utilites/vox_creator.asm index 43f3842077..328fc100e9 100644 --- a/programs/media/voxel_editor/utilites/vox_creator.asm +++ b/programs/media/voxel_editor/utilites/vox_creator.asm @@ -1,1544 +1,1544 @@ -use32 - org 0 - db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт - dd 1,start,i_end,mem,stacktop,openfile_path,sys_path - -include '../../../macros.inc' -include '../../../proc32.inc' -include '../../../KOSfuncs.inc' -include '../../../load_img.inc' -include '../../../load_lib.mac' -include '../trunk/str.inc' -include 'lang.inc' - -vox_offs_tree_table equ 4 -vox_offs_data equ 12 -txt_buf rb 8 -include '../trunk/vox_rotate.inc' - -@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load -if lang eq ru_RU -caption db 'Создатель вокселей 04.05.20',0 ;подпись окна -else -caption db 'Voxel creator 04.05.20',0 -end if - -BUF_STRUCT_SIZE equ 21 -buf2d_data equ dword[edi] ;данные буфера изображения -buf2d_w equ dword[edi+8] ;ширина буфера -buf2d_h equ dword[edi+12] ;высота буфера -buf2d_l equ word[edi+4] -buf2d_t equ word[edi+6] ;отступ сверху -buf2d_size_lt equ dword[edi+4] ;отступ слева и справа для буфера -buf2d_color equ dword[edi+16] ;цвет фона буфера -buf2d_bits equ byte[edi+20] ;количество бит в 1-й точке изображения - -vox_obj_size dd 0 ;размер воксельного объекта (для ускорения вставки) -txt_space db ' ',0 -if lang eq ru_RU -txt_pref db ' б ',0,' Кб',0,' Мб',0,' Гб',0 ;приставки: кило, мега, гига -txt_f_size: db 'Размер: ' -else -txt_pref db ' b ',0,' Kb',0,' Mb',0,' Gb',0 ;приставки: кило, мега, гига -txt_f_size: db 'Size: ' -end if -.size: rb 16 - -IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3 -image_data_toolbar dd 0 - -max_open_file_size equ 1024*1024 ;1 Mb - -align 4 -start: - load_libraries l_libs_start,l_libs_end - ;проверка на сколько удачно загузилась библиотека - mov ebp,lib_0 - cmp dword [ebp+ll_struc_size-4],0 - jz @f - mcall SF_TERMINATE_PROCESS - @@: - mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors - mcall SF_SET_EVENTS_MASK,0x27 - stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога - - stdcall [buf2d_create], buf_0 ;создание буфера - stdcall [buf2d_create], buf_0z - stdcall [buf2d_vox_brush_create], buf_vox, vox_6_7_z - - include_image_file 'toolbar.png', image_data_toolbar - - stdcall mem.Alloc,max_open_file_size - mov dword[open_file_vox],eax - stdcall mem.Alloc,max_open_file_size - mov dword[open_file_img],eax - - mcall SF_SYSTEM_GET,SSF_TIME_COUNT - mov [last_time],eax - ;проверка командной строки - cmp dword[openfile_path],0 - je @f - call but_open_file_cmd_lin - @@: - -align 4 -red_win: - call draw_window - -align 4 -still: - mcall SF_SYSTEM_GET,SSF_TIME_COUNT - mov ebx,[last_time] - add ebx,10 ;задержка - cmp ebx,eax - jge @f - mov ebx,eax - @@: - sub ebx,eax - mcall SF_WAIT_EVENT_TIMEOUT - cmp eax,0 - je timer_funct - - cmp al,1 - jz red_win - cmp al,2 - jz key - cmp al,3 - jz button - - jmp still - -align 4 -timer_funct: - cmp byte[calc],0 - je still - - pushad - mcall SF_SYSTEM_GET,SSF_TIME_COUNT - mov [last_time],eax - - ; скидываем указатели буферов buf_npl_p, buf_npl, buf_npl_n - mov edi,buf_npl_p - mov eax,buf2d_data - mov edi,buf_npl - mov ebx,buf2d_data - mov edi,buf_npl_n - mov ecx,buf2d_data - ; change buffer data pointers - mov buf2d_data,eax - mov edi,buf_npl_p - mov buf2d_data,ebx - mov edi,buf_npl - mov buf2d_data,ecx - - mov eax,[n_plane] - mov ebx,buf2d_w - dec ebx - - cmp ebx,eax - jg @f - stdcall create_obj_from_plane,buf_npl,eax ;создаем завершающее сечение - ;вывод конечного результата - call draw_object - mov byte[calc],0 - jmp .end_f - @@: - - inc eax - stdcall create_plane, buf_npl_n,eax - - ; создание воскельного сечения на основе буфера buf_npl - mov edi,buf_npl - mov edx,[bby_min] ;0 - .cycle_0: - mov ecx,[btx_min] ;0 - .cycle_1: - stdcall [buf2d_get_pixel], edi,ecx,edx - cmp eax,buf2d_color - je @f - mov esi,eax - call need_node - cmp eax,buf2d_color - jne @f ;отсеиваем внутренние воксели, для оптимизации модели - mov eax,ebx - sub eax,edx - stdcall buf2d_vox_obj_create_node, [open_file_vox],ecx,[n_plane],\ - eax,[k_scale],esi - @@: - inc ecx - cmp ecx,ebx - jle .cycle_1 - inc edx - cmp edx,ebx - jle .cycle_0 - - stdcall [buf2d_draw], buf_npl - inc dword[n_plane] ;перемещаем плоскость сечения - call draw_pok - .end_f: - popad - jmp still - -align 4 -proc create_plane, buf_img:dword, n_plane:dword - pushad - ; копируем лицевое изображение в буфер buf_img - ; bby_min - используем для оптимизации (если сверху изображение пустое) - mov eax,[bby_min] - mov esi,buf_i2 - mov esi,[esi] ;buf2d_data - mov edi,[buf_img] - mov ecx,buf2d_w - imul eax,ecx - mov ebx,ecx - imul ecx,ebx - sub ecx,eax - lea ecx,[ecx+ecx*2] - mov edi,buf2d_data - lea eax,[eax+eax*2] - add edi,eax - add esi,eax - cld - rep movsb - - mov ecx,ebx - dec ebx - mov edi,buf_i0 - .cycle_0: - mov eax,ebx - sub eax,[n_plane] ;eax - перевернутая координата n_plane - stdcall [buf2d_get_pixel], edi,ecx,eax ;[n_plane] - cmp eax,buf2d_color - jne @f - ;вычеркивание вертикальной линии из сечения buf_img - stdcall [buf2d_line], [buf_img],ecx,[bby_min],ecx,ebx, buf2d_color - jmp .end_1 - @@: - mov edx,[bby_min] ;xor edx,edx - mov esi,eax - .cycle_1: ;цикл для наложения верхней текстуры - stdcall [buf2d_get_pixel], [buf_img],ecx,edx - cmp eax, buf2d_color - je .end_0 - stdcall [buf2d_set_pixel], [buf_img],ecx,edx, esi ;наложение верхней текстуры - jmp .end_1 - .end_0: - inc edx - cmp edx,ebx - jle .cycle_1 - .end_1: - loop .cycle_0 - - ;горизонтальные линии на основе боковой грани - mov ecx,[bby_min] - mov edi,buf_i1 - .cycle_2: - stdcall [buf2d_get_pixel], edi,[n_plane],ecx - cmp eax,buf2d_color - jne @f - ;вычеркивание горизонтальной линии из сечения buf_img - stdcall [buf2d_line], [buf_img],[btx_min],ecx,[btx_max],ecx, buf2d_color - jmp .end_3 - @@: - mov edx,[btx_max] ;ebx - mov esi,eax - .cycle_3: ;цикл для наложения боковой текстуры - stdcall [buf2d_get_pixel], [buf_img],edx,ecx - cmp eax, buf2d_color - je .end_2 - stdcall [buf2d_set_pixel], [buf_img],edx,ecx, esi ;наложение боковой текстуры - jmp .end_3 - .end_2: - dec edx - cmp edx,[btx_min] - jge .cycle_3 - .end_3: - inc ecx - cmp ecx,ebx - jle .cycle_2 - popad - ret -endp - -align 4 -proc create_obj_from_plane, buf_img:dword, n_plane:dword -pushad - ; создание воскельного сечения на основе буфера buf_img - mov edi,[buf_img] - mov ebx,buf2d_w - dec ebx - mov edx,[bby_min] ;0 - .cycle_0: - mov ecx,[btx_min] ;0 - .cycle_1: - stdcall [buf2d_get_pixel], edi,ecx,edx - cmp eax,buf2d_color - je @f - mov esi,eax - ;call need_node - ;cmp eax,buf2d_color - ;jne @f ;отсеиваем внутренние воксели, для оптимизации модели - mov eax,ebx - sub eax,edx - stdcall buf2d_vox_obj_create_node, [open_file_vox],ecx,[n_plane],\ - eax,[k_scale],esi - @@: - inc ecx - cmp ecx,ebx - jle .cycle_1 - inc edx - cmp edx,ebx - jle .cycle_0 - ret -popad -endp - -;description: -; функция проверяет нужно ли отсеивать воксель с координатами [n_plane],ecx,edx -;input: -; ebx = max size y - 1 -;output: -; eax = buf2d_color if node need -align 4 -need_node: - mov eax,buf2d_color - cmp ecx,[btx_min] ;0 - jle .end_f - cmp ecx,[btx_max] ;0 - jge .end_f - cmp edx,[bby_min] ;0 - jle .end_f - cmp edx,ebx ;max-1 - jge .end_f - push ecx edx - stdcall [buf2d_get_pixel], buf_npl_p,ecx,edx ;проверка предыдущего сечения - cmp eax,buf2d_color - je @f - stdcall [buf2d_get_pixel], buf_npl_n,ecx,edx ;проверка последующего сечения - cmp eax,buf2d_color - je @f - dec ecx - stdcall [buf2d_get_pixel], edi,ecx,edx - cmp eax,buf2d_color - je @f - add ecx,2 - stdcall [buf2d_get_pixel], edi,ecx,edx - cmp eax,buf2d_color - je @f - dec ecx - dec edx - stdcall [buf2d_get_pixel], edi,ecx,edx - cmp eax,buf2d_color - je @f - add edx,2 - stdcall [buf2d_get_pixel], edi,ecx,edx - ;cmp eax,buf2d_color - ;je @f - @@: - pop edx ecx - .end_f: - ret - -align 4 -draw_window: -pushad - mcall SF_REDRAW,SSF_BEGIN_DRAW - - ; *** рисование главного окна (выполняется 1 раз при запуске) *** - mov edx,[sc.work] - or edx,(3 shl 24)+0x30000000 - mcall SF_CREATE_WINDOW,(20 shl 16)+410,(20 shl 16)+520,,,caption - - ; *** создание кнопок на панель *** - mov esi,[sc.work_button] - mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3 - - mov ebx,(30 shl 16)+20 - mov edx,4 - int 0x40 - - mov ebx,(55 shl 16)+20 - mov edx,5 - int 0x40 - - mov ebx,(85 shl 16)+20 - mov edx,6 - int 0x40 - - add ebx,25 shl 16 - mov edx,7 - int 0x40 - - add ebx,25 shl 16 - mov edx,8 - int 0x40 - - add ebx,25 shl 16 - mov edx,9 - int 0x40 - - add ebx,25 shl 16 - mov edx,10 - int 0x40 - - add ebx,25 shl 16 - mov edx,11 - int 0x40 - - add ebx,25 shl 16 - mov edx,12 - int 0x40 - - ; *** рисование иконок на кнопках *** - mov edx,(7 shl 16)+7 ;icon new - mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16 - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;icon open - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;icon save - int 0x40 - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(30 shl 16) ; - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - - call draw_buffers - call draw_pok - - mcall SF_REDRAW,SSF_END_DRAW -popad - ret - -align 4 -draw_buffers: - ; *** рисование буфера *** - stdcall [buf2d_draw], buf_0 - stdcall [buf2d_draw], buf_i0 - stdcall [buf2d_draw], buf_i1 - stdcall [buf2d_draw], buf_i2 - ret - -align 4 -draw_pok: - ;обновление подписи размера файла - mov edi,txt_f_size.size - mov eax,dword[vox_obj_size] - mov ebx,txt_pref - .cycle: - cmp eax,1024 - jl @f - shr eax,10 - add ebx,4 - jmp .cycle - @@: - - stdcall convert_int_to_str, 16 - stdcall str_cat, edi,ebx - stdcall str_cat, edi,txt_space ;завершающий пробел - - ;рисование текста - mov ecx,[sc.work_text] - or ecx,0x80000000 or (1 shl 30) - mov edi,[sc.work] ;цвет фона окна - mcall SF_DRAW_TEXT,(275 shl 16)+7,,txt_f_size - - ret - -align 4 -key: - mcall SF_GET_KEY - jmp still - - -align 4 -button: - mcall SF_GET_BUTTON - cmp ah,3 - jne @f - call but_new_file - jmp still - @@: - cmp ah,4 - jne @f - call but_open_file ;открытие воксельного файла - jmp still - @@: - cmp ah,5 - jne @f - call but_save_file - jmp still - @@: - cmp ah,6 - jne @f - call but_1 - jmp still - @@: - cmp ah,7 - jne @f - call but_2 - jmp still - @@: - cmp ah,8 - jne @f - call but_3 - jmp still - @@: - cmp ah,9 - jne @f - stdcall but_run, 0 - jmp still - @@: - cmp ah,10 - jne @f - stdcall but_run, 1 - jmp still - @@: - cmp ah,11 - jne @f - call but_stop - jmp still - @@: - cmp ah,12 - jne @f - call but_rot_z - jmp still - @@: - cmp ah,1 - jne still -.exit: - stdcall [buf2d_delete],buf_0 - stdcall [buf2d_delete],buf_0z - stdcall [buf2d_vox_brush_delete],buf_vox - stdcall [buf2d_delete],buf_i0 - stdcall [buf2d_delete],buf_i1 - stdcall [buf2d_delete],buf_i2 - stdcall [buf2d_delete],buf_npl_p - stdcall [buf2d_delete],buf_npl - stdcall [buf2d_delete],buf_npl_n - stdcall mem.Free,[image_data_toolbar] - stdcall mem.Free,[open_file_vox] - stdcall mem.Free,[open_file_img] - mcall SF_TERMINATE_PROCESS - - -align 4 -vox_new_data: - db 2,0,0,0 - db 000b,001b,010b,011b, 100b,101b,110b,111b ;default table - dd 0 ;null node - -align 4 -proc but_new_file uses ecx edi esi - mov ecx,vox_offs_data+4 - mov [vox_obj_size],ecx - mov esi,vox_new_data - mov edi,[open_file_vox] - cld - rep movsb - ret -endp - -align 4 -open_file_vox dd 0 ;указатель на память для открытия файлов -open_file_img dd 0 ;указатель на память для открытия текстур - -align 4 -but_open_file: - pushad - copy_path open_dialog_name,communication_area_default_path,file_name,0 - mov [OpenDialog_data.type],0 - stdcall [OpenDialog_Start],OpenDialog_data - cmp [OpenDialog_data.status],2 - je @f - ;код при удачном открытии диалога - call but_open_file_cmd_lin - @@: -popad - ret - -align 4 -but_open_file_cmd_lin: -pushad - mov [run_file_70.Function], SSF_READ_FILE - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - mov [run_file_70.Count], dword max_open_file_size - m2m [run_file_70.Buffer],dword[open_file_vox] - mov byte[run_file_70+20], 0 - mov dword[run_file_70.FileName], openfile_path - mcall SF_FILE,run_file_70 - cmp ebx,0xffffffff - je .end_open_file - ; проверка на правильность воксельного формата - mov edi,[open_file_vox] - add edi,vox_offs_tree_table - xor bx,bx - mov ecx,8 - cld - @@: - movzx ax,byte[edi] - add bx,ax - inc edi - loop @b - cmp bx,28 ;28=0+1+2+...+7 - jne .err_open - - mcall SF_SET_CAPTION,1,openfile_path - stdcall buf2d_vox_obj_get_size,[open_file_vox] - mov [vox_obj_size],eax - call draw_object - - jmp .end_open_file - .err_open: - call but_new_file - stdcall [mb_create],msgbox_4,thread - .end_open_file: - popad - ret - -align 4 -but_save_file: - pushad - copy_path open_dialog_name,communication_area_default_path,file_name,0 - mov [OpenDialog_data.type],1 - stdcall [OpenDialog_Start],OpenDialog_data - cmp [OpenDialog_data.status],2 - je .end_save_file - ;код при удачном открытии диалога - - mov eax,6 ;dword[v_zoom] ;задаем масштаб по умолчанию - mov ebx,[open_file_vox] - mov byte[ebx],al - - stdcall buf2d_vox_obj_get_size, ebx - mov dword[run_file_70.Count], eax ;размер файла - mov [run_file_70.Function], SSF_CREATE_FILE - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - mov ebx, dword[open_file_vox] - mov [run_file_70.Buffer], ebx - mov byte[run_file_70+20], 0 - mov dword[run_file_70.FileName], openfile_path - mcall SF_FILE,run_file_70 - cmp ebx,0xffffffff - je .end_save_file - - .end_save_file: - popad - ret - -align 4 -but_1: - stdcall open_image_in_buf, buf_i0 - ret - -align 4 -but_2: - stdcall open_image_in_buf, buf_i1 - call set_buf_tabs - ret - -align 4 -but_3: - stdcall open_image_in_buf, buf_i2 - call set_buf_tabs - ret - -;description: -; в зависимости от ширины 1-го буфера устанавливаем отступы для 2-го и 3-го буферов -align 4 -set_buf_tabs: -push eax ebx edi - mov edi,buf_i0 - cmp buf2d_data,0 - je @f - movzx eax,buf2d_l - mov ebx,buf2d_w - cmp ebx,128 - jle .end_0 - mov ebx,128 - .end_0: - mov edi,buf_i1 - mov buf2d_l,ax - add buf2d_l,bx - add buf2d_l,2 - shl ebx,1 - mov edi,buf_i2 - mov buf2d_l,ax - add buf2d_l,bx - add buf2d_l,4 - @@: -pop edi ebx eax - ret - -align 4 -get_scale: -push eax edi - mov edi,buf_i0 - mov eax,buf2d_w - - mov dword[k_scale],-1 - .cycle_s: - cmp eax,0 - je @f - shr eax,1 - inc dword[k_scale] - jmp .cycle_s - @@: -pop edi eax - ret - -align 4 -proc set_borders uses eax ebx ecx edx edi - mov ecx,dword[k_scale] - mov edx,1 - shl edx,cl - - ;определяем минимальную координату y на лицевой грани - mov edi,buf_i2 - mov dword[bby_min],0 - xor ecx,ecx - .cycle_0: - xor ebx,ebx - .cycle_1: - stdcall [buf2d_get_pixel],edi,ebx,ecx - cmp eax,buf2d_color - jne @f - inc ebx - cmp ebx,edx - jl .cycle_1 - inc dword[bby_min] - inc ecx - cmp ecx,edx - jl .cycle_0 - @@: - - ;определяем минимальную координату x на лицевой грани - mov dword[btx_min],0 - xor ebx,ebx - .cycle_2: - mov ecx,[bby_min] - .cycle_3: - stdcall [buf2d_get_pixel],edi,ebx,ecx - cmp eax,buf2d_color - jne @f - inc ecx - cmp ecx,edx - jl .cycle_3 - inc dword[btx_min] - inc ebx - cmp ebx,edx - jl .cycle_2 - @@: - - ;определяем максимальную координату x на лицевой грани - mov [btx_max],edx - dec dword[btx_max] - mov ebx,[btx_max] - .cycle_4: - mov ecx,[bby_min] - .cycle_5: - stdcall [buf2d_get_pixel],edi,ebx,ecx - cmp eax,buf2d_color - jne @f - inc ecx - cmp ecx,edx - jl .cycle_5 - dec dword[btx_max] - dec ebx - cmp ebx,[btx_min] - jg .cycle_4 - @@: - - ;stdcall [buf2d_line], edi, 0,[bby_min],50,[bby_min],255 - ret -endp - -align 4 -btx_min dd 0 ;буфер верхний мин. x -btx_max dd 0 -bty_min dd 0 ;буфер верхний мин. y -bty_max dd 0 -;bbx_min dd 0 -;bbx_max dd 0 -bby_min dd 0 ;буфер боковой мин. y -bby_max dd 0 -k_scale dd 0 -n_plane dd 0 - -calc db 0 ;если =1, то идет создание объекта - -; создание вокселя в 3 этапа: -; 1) ищем место в структуре дерева, куда надо вставить (если ветвь существует, 2-й этап пропускаем) -; 2) вставляем новую ветвь с вокселем (3-й этап уже не делаем) -; 3) меняем цвет вокселя -align 4 -proc buf2d_vox_obj_create_node, v_obj:dword,coord_x:dword,coord_y:dword,\ -coord_z:dword,k_scale:dword,color:dword -pushad -locals - p_node dd 0 ;родительский узел -endl - - mov edi,[v_obj] - add edi,vox_offs_data - mov esi,[k_scale] - cmp esi,1 - jl .change - ; *** (1) *** - .found: - stdcall vox_obj_get_node_position, [v_obj],[coord_x],[coord_y],[coord_z],esi - movzx bx,byte[edi+3] - mov [p_node],edi - add edi,4 - - cmp eax,0 - je .end_1 - mov ecx,eax - cld - @@: ;цикл для пропуска предыдущих поддеревьев в узле - bt bx,0 ;проверяем есть ли дочерние узлы - jnc .end_0 - xor eax,eax - stdcall vox_obj_rec0 ;в eax вычисляется число дочерних узлов, в данной ветви - .end_0: - shr bx,1 - loop @b - .end_1: - bt bx,0 - jnc .creat ;если поддерева не существует, переходим к созданию - dec esi - cmp esi,0 - jg .found - jmp .change - - ; *** (2) *** - .creat: - mov edx,[color] ;меняем цвет - and edx,0xffffff ;для профилактики - mov ecx,esi - stdcall vox_obj_add_nodes_mem, [v_obj],edi,ecx ;расширяем место занимаемое объектом, для добавления новых узлов - mov ebx,[p_node] - cld - @@: - mov dword[edi],edx - stdcall vox_obj_get_node_bit_mask, [v_obj],[coord_x],[coord_y],[coord_z],esi - or byte[ebx+3],al - - mov ebx,edi - add edi,4 - dec esi - loop @b - jmp .end_2 - - ; *** (3) *** - .change: - mov eax,[color] ;меняем цвет - mov word[edi],ax - shr eax,16 - mov byte[edi+2],al - - .end_2: -popad - ret -endp - -; сдвигает узлы для добавления новых узлов -;input: -; p_insert - позиция для вставки -; count - колличество вставляемых узлов -align 4 -proc vox_obj_add_nodes_mem uses eax ecx edi esi, v_obj:dword,p_insert:dword,count:dword - mov esi,[v_obj] - ;stdcall buf2d_vox_obj_get_size,esi - add esi,[vox_obj_size] ;esi - указатель на конец файла - mov edi,[count] - shl edi,2 - add [vox_obj_size],edi - add edi,esi ;edi - указатель на будущий конец файла - mov ecx,esi - sub ecx,[p_insert] - shr ecx,2 ;ecx - число циклов для копирования - sub esi,4 ;esi - указатель на последний узел - sub edi,4 ;edi - указатель на будущий последний узел - std - rep movsd ;сдвигаем память - ret -endp - -;??? -; определение позиции узла в дереве (от 0 до 7) -align 4 -proc vox_obj_get_node_position uses ebx ecx edi, v_obj:dword,\ -coord_x:dword,coord_y:dword,coord_z:dword,k_scale:dword - mov ecx,[k_scale] - dec ecx - mov eax,[coord_x] - mov ebx,[coord_y] - mov edi,[coord_z] - cmp ecx,1 - jl .end_0 - shr eax,cl - shr ebx,cl - shr edi,cl - .end_0: - and eax,1 - bt ebx,0 - jnc @f - bts eax,1 - @@: - bt edi,0 - jnc @f - bts eax,2 - @@: - - mov edi,[v_obj] - add edi,vox_offs_tree_table - @@: - cmp al,byte[edi] - je @f - inc edi - jmp @b - @@: - sub edi,[v_obj] - sub edi,vox_offs_tree_table - mov eax,edi - - ret -endp - -;??? -;input: -; edi - указатель на данные воксельного объекта -;output: -; eax - eax + число узлов в данных вокс. объекта -; edi - указатель на смещенные данные вокс. объекта -align 4 -proc vox_obj_rec0 - inc eax - cmp byte[edi+3],0 ;смотрим есть ли поддеревья - je .sub_trees - - ;рекурсивный перебор поддеревьев - push ebx ecx - mov bh,byte[edi+3] - add edi,4 - mov bl,8 - .cycle: - bt bx,8 ;тестируем только bh - jnc .c_next - stdcall vox_obj_rec0 - .c_next: - shr bh,1 - dec bl - jnz .cycle - pop ecx ebx - - jmp .end_f - .sub_trees: - add edi,4 - .end_f: - ret -endp - -;output: -; eax - 1,2,4,8,16, ... ,128 -align 4 -proc vox_obj_get_node_bit_mask uses ebx ecx edi, v_obj:dword,\ -coord_x:dword,coord_y:dword,coord_z:dword,k_scale:dword - mov ecx,[k_scale] - dec ecx - mov eax,[coord_x] - mov ebx,[coord_y] - mov edi,[coord_z] - cmp ecx,1 - jl .end_0 - shr eax,cl - shr ebx,cl - shr edi,cl - .end_0: - and eax,1 - bt ebx,0 - jnc @f - bts eax,1 - @@: - bt edi,0 - jnc @f - bts eax,2 - @@: - - mov ecx,[v_obj] - add ecx,vox_offs_tree_table - @@: - cmp al,byte[ecx] - je @f - inc ecx - jmp @b - @@: - mov eax,1 ;устанавливаем первоначальное значение бита - sub ecx,[v_obj] - sub ecx,vox_offs_tree_table - jz @f - shl eax,cl ;сдвигаем бит - @@: - - ret -endp - -;output: -; eax - размер в байтах занимаемый объектом v_obj -align 4 -proc buf2d_vox_obj_get_size uses edi, v_obj:dword - mov edi,[v_obj] - add edi,vox_offs_data - xor eax,eax - stdcall vox_obj_rec0 ;eax - число узлов в объекте v_obj - shl eax,2 - add eax,vox_offs_data - ret -endp - -;input: -; mode_add - если не равно 0 тогда создание в режиме добавления вокселей -align 4 -proc but_run uses eax ebx edi, mode_add:dword - ; проверка размеров изображений (текстур) - mov edi,buf_i0 - mov ebx,buf2d_h - cmp ebx,2 - jle .err_size_t - cmp buf2d_w,ebx - jne .err_size_t - ; - mov edi,buf_i1 - cmp ebx,buf2d_h - jne .err_size_tb - mov ebx,buf2d_h - cmp ebx,2 - jle .err_size_b - cmp buf2d_w,ebx - jne .err_size_b - - cmp dword[vox_obj_size],vox_offs_data - jl .n_file ;если раньше не было открытых файлов - cmp dword[mode_add],0 - jne @f - .n_file: - call but_new_file - @@: - - mov edi,buf_i0 - mov eax,buf2d_w - mov edi,buf_npl - cmp buf2d_data,0 - jne @f - ; *** создаем буфера - m2m buf2d_w,eax - m2m buf2d_h,eax - stdcall [buf2d_create],edi - mov edi,buf_npl_p - m2m buf2d_w,eax - m2m buf2d_h,eax - stdcall [buf2d_create],edi - mov edi,buf_npl_n - m2m buf2d_w,eax - m2m buf2d_h,eax - stdcall [buf2d_create],edi - jmp .end_0 - @@: - ; *** изменяем размеры буферов - stdcall [buf2d_resize], edi, eax,eax,1 - mov edi,buf_npl_p - stdcall [buf2d_resize], edi, eax,eax,1 - mov edi,buf_npl_n - stdcall [buf2d_resize], edi, eax,eax,1 - .end_0: - mov dword[n_plane],1 - mov byte[calc],1 - call get_scale - call set_borders - - stdcall create_plane,buf_npl,0 - stdcall create_plane,buf_npl_n,1 - stdcall create_obj_from_plane,buf_npl,0 ;создаем начальное сечение - - jmp @f - .err_size_t: - stdcall [mb_create],msgbox_0,thread - jmp @f - .err_size_b: - stdcall [mb_create],msgbox_1,thread - jmp @f - .err_size_tb: - stdcall [mb_create],msgbox_3,thread - ;jmp @f - @@: - ret -endp - -;прекратить создание объекта -align 4 -but_stop: - cmp byte[calc],0 - je @f - call draw_object - mov byte[calc],0 - @@: - ret - -align 4 -but_rot_z: - stdcall vox_obj_rot_z, [open_file_vox] - call draw_object - ret - -align 4 -draw_object: - ;вывод результата на экран - stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер - stdcall [buf2d_clear], buf_0z, 0 ;чистим буфер - stdcall [buf2d_vox_obj_draw_3g], buf_0, buf_0z, buf_vox,\ - [open_file_vox], 0,0, 0, 6 ;[k_scale] - stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране - ret - -align 4 -proc open_image_in_buf, buf:dword - pushad - copy_path open_dialog_name,communication_area_default_path,file_name,0 - mov [OpenDialog_data.type],0 - stdcall [OpenDialog_Start],OpenDialog_data - cmp [OpenDialog_data.status],2 - je .end_open_file - - ;stdcall mem.Alloc, dword size ;выделяем память для изображения - ;mov [buf],eax - - mov [run_file_70.Function], SSF_READ_FILE - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - mov [run_file_70.Count], dword max_open_file_size - m2m [run_file_70.Buffer],dword[open_file_img] - mov byte[run_file_70+20], 0 - mov [run_file_70.FileName], openfile_path - mcall SF_FILE,run_file_70 - cmp ebx,0xffffffff - je .end_0 - ;определяем вид изображения - stdcall dword[img_decode], dword[open_file_img],ebx,0 - or eax,eax - jz .end_0 ;если нарушен формат файла - mov ebx,[eax+4] ;+4 = image width - cmp ebx,[eax+8] ;+8 = image height - jne .err_s0 - mov ebx,eax - ;преобразуем изображение к формату rgb - stdcall dword[img_to_rgb2], ebx,dword[open_file_img] - - mov edi,[buf] - cmp buf2d_data,0 - jne @f - m2m buf2d_w,dword[ebx+4] ;+4 = image width - m2m buf2d_h,dword[ebx+8] ;+8 = image height - stdcall [buf2d_create_f_img], edi,[open_file_img] - jmp .end_1 - @@: - mov ecx,[ebx+8] - stdcall [buf2d_resize], edi, [ebx+4],ecx,1 ;изменяем размеры буфера - imul ecx,[ebx+4] - lea ecx,[ecx+ecx*2] - mov edi,buf2d_data - mov esi,[open_file_img] - cld - rep movsb ;copy image - jmp .end_1 - .err_s0: ;ошибка, изображение для преобразования не подходит (не квадратное) - mov ebx,eax - notify_window_run txt_img_not_square - .end_1: - ;удаляем временный буфер в ebx - stdcall dword[img_destroy], ebx - .end_0: - - call draw_buffers - .end_open_file: - popad - ret -endp - -msgbox_0: - db 1,0 - db 'Внимание',0 - db 'Размер верхнего изображения не коректный',0 - db 'Закрыть',0 - db 0 - -msgbox_1: - db 1,0 - db 'Внимание',0 - db 'Размер бокового изображения не коректный',0 - db 'Закрыть',0 - db 0 - -msgbox_2: - db 1,0 - db 'Внимание',0 - db 'Размер переднего изображения не коректный',0 - db 'Закрыть',0 - db 0 - -msgbox_3: - db 1,0 - db 'Внимание',0 - db 'Размеры верхнего и бокового изображений не совпадают',13,\ - 'Откройте изображения одинаковых размеров',0 - db 'Закрыть',0 - db 0 - -msgbox_4: - db 1,0 - db 'Внимание',0 - db 'Открываемый файл содержит не воксельный формат',0 - db 'Закрыть',0 - db 0 - -txt_img_not_square db '"Внимание',13,10,'Открываемое изображение не квадратное" -tW',0 - -;данные для диалога открытия файлов -align 4 -OpenDialog_data: -.type dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию -.procinfo dd procinfo ;+4 -.com_area_name dd communication_area_name ;+8 -.com_area dd 0 ;+12 -.opendir_path dd plugin_path ;+16 -.dir_default_path dd default_dir ;+20 -.start_path dd file_name ;+24 путь к диалогу открытия файлов -.draw_window dd draw_window ;+28 -.status dd 0 ;+32 -.openfile_path dd openfile_path ;+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 - -default_dir db '/sys',0 - -communication_area_name: - db 'FFFFFFFF_open_dialog',0 -open_dialog_name: - db 'opendial',0 -communication_area_default_path: - db '/sys/File managers/',0 - -Filter: -dd Filter.end - Filter ;.1 -.1: -db 'PNG',0 -db 'JPG',0 -db 'JPEG',0 -db 'BMP',0 -db 'GIF',0 -db 'VOX',0 -.end: -db 0 - - - -system_dir_0 db '/sys/lib/' -lib_name_0 db 'proc_lib.obj',0 -system_dir_1 db '/sys/lib/' -lib_name_1 db 'libimg.obj',0 -system_dir_2 db '/sys/lib/' -lib_name_2 db 'buf2d.obj',0 -system_dir_3 db '/sys/lib/' -lib_name_3 db 'msgbox.obj',0 - -align 4 -l_libs_start: - lib_0 l_libs lib_name_0, file_name, system_dir_0, import_proclib - lib_1 l_libs lib_name_1, file_name, system_dir_1, import_libimg - lib_2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d - lib_3 l_libs lib_name_3, file_name, system_dir_3, import_msgbox_lib -l_libs_end: - -align 4 -import_libimg: - dd alib_init1 - img_is_img dd aimg_is_img - img_info dd aimg_info - img_from_file dd aimg_from_file - img_to_file dd aimg_to_file - img_from_rgb dd aimg_from_rgb - img_to_rgb dd aimg_to_rgb - img_to_rgb2 dd aimg_to_rgb2 - img_decode dd aimg_decode - img_encode dd aimg_encode - img_create dd aimg_create - img_destroy dd aimg_destroy - img_destroy_layer dd aimg_destroy_layer - img_count dd aimg_count - img_lock_bits dd aimg_lock_bits - img_unlock_bits dd aimg_unlock_bits - img_flip dd aimg_flip - img_flip_layer dd aimg_flip_layer - img_rotate dd aimg_rotate - img_rotate_layer dd aimg_rotate_layer - img_draw dd aimg_draw - - dd 0,0 - alib_init1 db 'lib_init',0 - aimg_is_img db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение - aimg_info db 'img_info',0 - aimg_from_file db 'img_from_file',0 - aimg_to_file db 'img_to_file',0 - aimg_from_rgb db 'img_from_rgb',0 - aimg_to_rgb db 'img_to_rgb',0 ;преобразование изображения в данные RGB - aimg_to_rgb2 db 'img_to_rgb2',0 - aimg_decode db 'img_decode',0 ;автоматически определяет формат графических данных - aimg_encode db 'img_encode',0 - aimg_create db 'img_create',0 - aimg_destroy db 'img_destroy',0 - aimg_destroy_layer db 'img_destroy_layer',0 - aimg_count db 'img_count',0 - aimg_lock_bits db 'img_lock_bits',0 - aimg_unlock_bits db 'img_unlock_bits',0 - aimg_flip db 'img_flip',0 - aimg_flip_layer db 'img_flip_layer',0 - aimg_rotate db 'img_rotate',0 - aimg_rotate_layer db 'img_rotate_layer',0 - aimg_draw db 'img_draw',0 - -align 4 -import_proclib: - OpenDialog_Init dd aOpenDialog_Init - OpenDialog_Start dd aOpenDialog_Start -dd 0,0 - aOpenDialog_Init db 'OpenDialog_init',0 - aOpenDialog_Start db 'OpenDialog_start',0 - -align 4 -import_buf2d: - init dd sz_init - buf2d_create dd sz_buf2d_create - buf2d_create_f_img dd sz_buf2d_create_f_img - buf2d_clear dd sz_buf2d_clear - buf2d_draw dd sz_buf2d_draw - buf2d_delete dd sz_buf2d_delete - buf2d_resize dd sz_buf2d_resize - buf2d_line dd sz_buf2d_line - buf2d_rect_by_size dd sz_buf2d_rect_by_size - buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size - buf2d_circle dd sz_buf2d_circle - buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2 - buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2 - buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8 - buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32 - buf2d_bit_blt dd sz_buf2d_bit_blt - buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp - buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha - buf2d_curve_bezier dd sz_buf2d_curve_bezier - buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix - buf2d_draw_text dd sz_buf2d_draw_text - buf2d_crop_color dd sz_buf2d_crop_color - buf2d_offset_h dd sz_buf2d_offset_h - buf2d_flood_fill dd sz_buf2d_flood_fill - buf2d_set_pixel dd sz_buf2d_set_pixel - buf2d_get_pixel dd sz_buf2d_get_pixel - buf2d_vox_brush_create dd sz_buf2d_vox_brush_create - buf2d_vox_brush_delete dd sz_buf2d_vox_brush_delete - buf2d_vox_obj_get_img_w_3g dd sz_buf2d_vox_obj_get_img_w_3g - buf2d_vox_obj_get_img_h_3g dd sz_buf2d_vox_obj_get_img_h_3g - buf2d_vox_obj_draw_1g dd sz_buf2d_vox_obj_draw_1g - buf2d_vox_obj_draw_3g dd sz_buf2d_vox_obj_draw_3g - buf2d_vox_obj_draw_3g_scaled dd sz_buf2d_vox_obj_draw_3g_scaled - buf2d_vox_obj_draw_3g_shadows dd sz_buf2d_vox_obj_draw_3g_shadows - buf2d_vox_obj_draw_pl dd sz_buf2d_vox_obj_draw_pl - buf2d_vox_obj_draw_pl_scaled dd sz_buf2d_vox_obj_draw_pl_scaled - dd 0,0 - sz_init db 'lib_init',0 - sz_buf2d_create db 'buf2d_create',0 - sz_buf2d_create_f_img db 'buf2d_create_f_img',0 - sz_buf2d_clear db 'buf2d_clear',0 - sz_buf2d_draw db 'buf2d_draw',0 - sz_buf2d_delete db 'buf2d_delete',0 - sz_buf2d_resize db 'buf2d_resize',0 - sz_buf2d_line db 'buf2d_line',0 - sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0 - sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0 - sz_buf2d_circle db 'buf2d_circle',0 - sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0 - sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0 - sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0 - sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0 - sz_buf2d_bit_blt db 'buf2d_bit_blt',0 - sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0 - sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0 - sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0 - sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0 - sz_buf2d_draw_text db 'buf2d_draw_text',0 - sz_buf2d_crop_color db 'buf2d_crop_color',0 - sz_buf2d_offset_h db 'buf2d_offset_h',0 - sz_buf2d_flood_fill db 'buf2d_flood_fill',0 - sz_buf2d_set_pixel db 'buf2d_set_pixel',0 - sz_buf2d_get_pixel db 'buf2d_get_pixel',0 - sz_buf2d_vox_brush_create db 'buf2d_vox_brush_create',0 - sz_buf2d_vox_brush_delete db 'buf2d_vox_brush_delete',0 - sz_buf2d_vox_obj_get_img_w_3g db 'buf2d_vox_obj_get_img_w_3g',0 - sz_buf2d_vox_obj_get_img_h_3g db 'buf2d_vox_obj_get_img_h_3g',0 - sz_buf2d_vox_obj_draw_1g db 'buf2d_vox_obj_draw_1g',0 - sz_buf2d_vox_obj_draw_3g db 'buf2d_vox_obj_draw_3g',0 - sz_buf2d_vox_obj_draw_3g_scaled db 'buf2d_vox_obj_draw_3g_scaled',0 - sz_buf2d_vox_obj_draw_3g_shadows db 'buf2d_vox_obj_draw_3g_shadows',0 - sz_buf2d_vox_obj_draw_pl db 'buf2d_vox_obj_draw_pl',0 - sz_buf2d_vox_obj_draw_pl_scaled db 'buf2d_vox_obj_draw_pl_scaled',0 - -align 4 -import_msgbox_lib: - mb_create dd amb_create -; mb_reinit dd amb_reinit -; mb_setfunctions dd amb_setfunctions -dd 0,0 - amb_create db 'mb_create',0 -; amb_reinit db 'mb_reinit',0 -; amb_setfunctions db 'mb_setfunctions',0 - -align 4 -buf_0: dd 0 - dw 5 ;+4 left - dw 35 ;+6 top -.w: dd 6*64 ;+8 w -.h: dd 7*64 ;+12 h -.color: dd 0xffffff ;+16 color - db 24 ;+20 bit in pixel - -align 4 -buf_0z: dd 0 - dw 5 ;+4 left - dw 35 ;+6 top -.w: dd 6*64 ;+8 w -.h: dd 7*64 ;+12 h -.color: dd 0 ;+16 color - db 32 ;+20 bit in pixel - -;текстура 1 (верхняя) -align 4 -buf_i0: dd 0 - dw 5 ;+4 left - dw 35 ;+6 top -.w: dd 0 ;+8 w -.h: dd 0 ;+12 h -.color: dd 0 ;+16 color - db 24 ;+20 bit in pixel - -;текстура 2 -align 4 -buf_i1: dd 0 - dw 105 ;+4 left - dw 35 ;+6 top -.w: dd 0 ;+8 w -.h: dd 0 ;+12 h -.color: dd 0 ;+16 color - db 24 ;+20 bit in pixel - -;текстура 3 -align 4 -buf_i2: dd 0 - dw 205 ;+4 left - dw 35 ;+6 top -.w: dd 0 ;+8 w -.h: dd 0 ;+12 h -.color: dd 0 ;+16 color - db 24 ;+20 bit in pixel - -;алгоритм создания модели использует 3 сечения: -; предыдущее, текущее, последующее (это необходимо для отсеивания вокселей внутри объекта) - -;предыдущее сечение -align 4 -buf_npl_p: dd 0 - dw 0 ;+4 left - dw 0 ;+6 top -.w: dd 0 ;+8 w -.h: dd 0 ;+12 h -.color: dd 0 ;+16 color - db 24 ;+20 bit in pixel - -;текущее сечение -align 4 -buf_npl: dd 0 - dw 5 ;+4 left - dw 35 ;+6 top -.w: dd 0 ;+8 w -.h: dd 0 ;+12 h -.color: dd 0 ;+16 color - db 24 ;+20 bit in pixel - -;последующее сечение -align 4 -buf_npl_n: dd 0 - dw 0 ;+4 left - dw 0 ;+6 top -.w: dd 0 ;+8 w -.h: dd 0 ;+12 h -.color: dd 0 ;+16 color - db 24 ;+20 bit in pixel - -;данные для создания минимального единичного вокселя -align 4 -vox_6_7_z: -dd 0,0,1,1,0,0,\ - 0,2,2,2,2,0,\ - 2,2,2,2,2,2,\ - 2,3,2,2,3,2,\ - 2,3,3,3,3,2,\ - 0,3,3,3,3,0,\ - 0,0,3,3,0,0 - -align 4 -buf_vox: - db 6,7,4,3 ;w,h,h_osn,n - rb BUF_STRUCT_SIZE*(2+1) - - -align 16 -i_end: - procinfo process_information - sc system_colors - run_file_70 FileInfoBlock - mouse_dd dd ? - last_time dd ? - rb 2048 - thread: - rb 2048 -stacktop: - sys_path rb 1024 - file_name rb 2048 ;4096 - plugin_path rb 4096 - openfile_path rb 4096 - filename_area rb 256 -mem: +use32 + org 0 + db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт + dd 1,start,i_end,mem,stacktop,openfile_path,sys_path + +include '../../../macros.inc' +include '../../../proc32.inc' +include '../../../KOSfuncs.inc' +include '../../../load_img.inc' +include '../../../load_lib.mac' +include '../trunk/str.inc' +include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US. + +vox_offs_tree_table equ 4 +vox_offs_data equ 12 +txt_buf rb 8 +include '../trunk/vox_rotate.inc' + +@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load +if lang eq ru_RU +caption db 'Создатель вокселей 04.05.20',0 ;подпись окна +else ; Default to en_US +caption db 'Voxel creator 04.05.20',0 +end if + +BUF_STRUCT_SIZE equ 21 +buf2d_data equ dword[edi] ;данные буфера изображения +buf2d_w equ dword[edi+8] ;ширина буфера +buf2d_h equ dword[edi+12] ;высота буфера +buf2d_l equ word[edi+4] +buf2d_t equ word[edi+6] ;отступ сверху +buf2d_size_lt equ dword[edi+4] ;отступ слева и справа для буфера +buf2d_color equ dword[edi+16] ;цвет фона буфера +buf2d_bits equ byte[edi+20] ;количество бит в 1-й точке изображения + +vox_obj_size dd 0 ;размер воксельного объекта (для ускорения вставки) +txt_space db ' ',0 +if lang eq ru_RU +txt_pref db ' б ',0,' Кб',0,' Мб',0,' Гб',0 ;приставки: кило, мега, гига +txt_f_size: db 'Размер: ' +else ; Default to en_US +txt_pref db ' b ',0,' Kb',0,' Mb',0,' Gb',0 ;приставки: кило, мега, гига +txt_f_size: db 'Size: ' +end if +.size: rb 16 + +IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3 +image_data_toolbar dd 0 + +max_open_file_size equ 1024*1024 ;1 Mb + +align 4 +start: + load_libraries l_libs_start,l_libs_end + ;проверка на сколько удачно загузилась библиотека + mov ebp,lib_0 + cmp dword [ebp+ll_struc_size-4],0 + jz @f + mcall SF_TERMINATE_PROCESS + @@: + mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors + mcall SF_SET_EVENTS_MASK,0x27 + stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога + + stdcall [buf2d_create], buf_0 ;создание буфера + stdcall [buf2d_create], buf_0z + stdcall [buf2d_vox_brush_create], buf_vox, vox_6_7_z + + include_image_file 'toolbar.png', image_data_toolbar + + stdcall mem.Alloc,max_open_file_size + mov dword[open_file_vox],eax + stdcall mem.Alloc,max_open_file_size + mov dword[open_file_img],eax + + mcall SF_SYSTEM_GET,SSF_TIME_COUNT + mov [last_time],eax + ;проверка командной строки + cmp dword[openfile_path],0 + je @f + call but_open_file_cmd_lin + @@: + +align 4 +red_win: + call draw_window + +align 4 +still: + mcall SF_SYSTEM_GET,SSF_TIME_COUNT + mov ebx,[last_time] + add ebx,10 ;задержка + cmp ebx,eax + jge @f + mov ebx,eax + @@: + sub ebx,eax + mcall SF_WAIT_EVENT_TIMEOUT + cmp eax,0 + je timer_funct + + cmp al,1 + jz red_win + cmp al,2 + jz key + cmp al,3 + jz button + + jmp still + +align 4 +timer_funct: + cmp byte[calc],0 + je still + + pushad + mcall SF_SYSTEM_GET,SSF_TIME_COUNT + mov [last_time],eax + + ; скидываем указатели буферов buf_npl_p, buf_npl, buf_npl_n + mov edi,buf_npl_p + mov eax,buf2d_data + mov edi,buf_npl + mov ebx,buf2d_data + mov edi,buf_npl_n + mov ecx,buf2d_data + ; change buffer data pointers + mov buf2d_data,eax + mov edi,buf_npl_p + mov buf2d_data,ebx + mov edi,buf_npl + mov buf2d_data,ecx + + mov eax,[n_plane] + mov ebx,buf2d_w + dec ebx + + cmp ebx,eax + jg @f + stdcall create_obj_from_plane,buf_npl,eax ;создаем завершающее сечение + ;вывод конечного результата + call draw_object + mov byte[calc],0 + jmp .end_f + @@: + + inc eax + stdcall create_plane, buf_npl_n,eax + + ; создание воскельного сечения на основе буфера buf_npl + mov edi,buf_npl + mov edx,[bby_min] ;0 + .cycle_0: + mov ecx,[btx_min] ;0 + .cycle_1: + stdcall [buf2d_get_pixel], edi,ecx,edx + cmp eax,buf2d_color + je @f + mov esi,eax + call need_node + cmp eax,buf2d_color + jne @f ;отсеиваем внутренние воксели, для оптимизации модели + mov eax,ebx + sub eax,edx + stdcall buf2d_vox_obj_create_node, [open_file_vox],ecx,[n_plane],\ + eax,[k_scale],esi + @@: + inc ecx + cmp ecx,ebx + jle .cycle_1 + inc edx + cmp edx,ebx + jle .cycle_0 + + stdcall [buf2d_draw], buf_npl + inc dword[n_plane] ;перемещаем плоскость сечения + call draw_pok + .end_f: + popad + jmp still + +align 4 +proc create_plane, buf_img:dword, n_plane:dword + pushad + ; копируем лицевое изображение в буфер buf_img + ; bby_min - используем для оптимизации (если сверху изображение пустое) + mov eax,[bby_min] + mov esi,buf_i2 + mov esi,[esi] ;buf2d_data + mov edi,[buf_img] + mov ecx,buf2d_w + imul eax,ecx + mov ebx,ecx + imul ecx,ebx + sub ecx,eax + lea ecx,[ecx+ecx*2] + mov edi,buf2d_data + lea eax,[eax+eax*2] + add edi,eax + add esi,eax + cld + rep movsb + + mov ecx,ebx + dec ebx + mov edi,buf_i0 + .cycle_0: + mov eax,ebx + sub eax,[n_plane] ;eax - перевернутая координата n_plane + stdcall [buf2d_get_pixel], edi,ecx,eax ;[n_plane] + cmp eax,buf2d_color + jne @f + ;вычеркивание вертикальной линии из сечения buf_img + stdcall [buf2d_line], [buf_img],ecx,[bby_min],ecx,ebx, buf2d_color + jmp .end_1 + @@: + mov edx,[bby_min] ;xor edx,edx + mov esi,eax + .cycle_1: ;цикл для наложения верхней текстуры + stdcall [buf2d_get_pixel], [buf_img],ecx,edx + cmp eax, buf2d_color + je .end_0 + stdcall [buf2d_set_pixel], [buf_img],ecx,edx, esi ;наложение верхней текстуры + jmp .end_1 + .end_0: + inc edx + cmp edx,ebx + jle .cycle_1 + .end_1: + loop .cycle_0 + + ;горизонтальные линии на основе боковой грани + mov ecx,[bby_min] + mov edi,buf_i1 + .cycle_2: + stdcall [buf2d_get_pixel], edi,[n_plane],ecx + cmp eax,buf2d_color + jne @f + ;вычеркивание горизонтальной линии из сечения buf_img + stdcall [buf2d_line], [buf_img],[btx_min],ecx,[btx_max],ecx, buf2d_color + jmp .end_3 + @@: + mov edx,[btx_max] ;ebx + mov esi,eax + .cycle_3: ;цикл для наложения боковой текстуры + stdcall [buf2d_get_pixel], [buf_img],edx,ecx + cmp eax, buf2d_color + je .end_2 + stdcall [buf2d_set_pixel], [buf_img],edx,ecx, esi ;наложение боковой текстуры + jmp .end_3 + .end_2: + dec edx + cmp edx,[btx_min] + jge .cycle_3 + .end_3: + inc ecx + cmp ecx,ebx + jle .cycle_2 + popad + ret +endp + +align 4 +proc create_obj_from_plane, buf_img:dword, n_plane:dword +pushad + ; создание воскельного сечения на основе буфера buf_img + mov edi,[buf_img] + mov ebx,buf2d_w + dec ebx + mov edx,[bby_min] ;0 + .cycle_0: + mov ecx,[btx_min] ;0 + .cycle_1: + stdcall [buf2d_get_pixel], edi,ecx,edx + cmp eax,buf2d_color + je @f + mov esi,eax + ;call need_node + ;cmp eax,buf2d_color + ;jne @f ;отсеиваем внутренние воксели, для оптимизации модели + mov eax,ebx + sub eax,edx + stdcall buf2d_vox_obj_create_node, [open_file_vox],ecx,[n_plane],\ + eax,[k_scale],esi + @@: + inc ecx + cmp ecx,ebx + jle .cycle_1 + inc edx + cmp edx,ebx + jle .cycle_0 + ret +popad +endp + +;description: +; функция проверяет нужно ли отсеивать воксель с координатами [n_plane],ecx,edx +;input: +; ebx = max size y - 1 +;output: +; eax = buf2d_color if node need +align 4 +need_node: + mov eax,buf2d_color + cmp ecx,[btx_min] ;0 + jle .end_f + cmp ecx,[btx_max] ;0 + jge .end_f + cmp edx,[bby_min] ;0 + jle .end_f + cmp edx,ebx ;max-1 + jge .end_f + push ecx edx + stdcall [buf2d_get_pixel], buf_npl_p,ecx,edx ;проверка предыдущего сечения + cmp eax,buf2d_color + je @f + stdcall [buf2d_get_pixel], buf_npl_n,ecx,edx ;проверка последующего сечения + cmp eax,buf2d_color + je @f + dec ecx + stdcall [buf2d_get_pixel], edi,ecx,edx + cmp eax,buf2d_color + je @f + add ecx,2 + stdcall [buf2d_get_pixel], edi,ecx,edx + cmp eax,buf2d_color + je @f + dec ecx + dec edx + stdcall [buf2d_get_pixel], edi,ecx,edx + cmp eax,buf2d_color + je @f + add edx,2 + stdcall [buf2d_get_pixel], edi,ecx,edx + ;cmp eax,buf2d_color + ;je @f + @@: + pop edx ecx + .end_f: + ret + +align 4 +draw_window: +pushad + mcall SF_REDRAW,SSF_BEGIN_DRAW + + ; *** рисование главного окна (выполняется 1 раз при запуске) *** + mov edx,[sc.work] + or edx,(3 shl 24)+0x30000000 + mcall SF_CREATE_WINDOW,(20 shl 16)+410,(20 shl 16)+520,,,caption + + ; *** создание кнопок на панель *** + mov esi,[sc.work_button] + mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3 + + mov ebx,(30 shl 16)+20 + mov edx,4 + int 0x40 + + mov ebx,(55 shl 16)+20 + mov edx,5 + int 0x40 + + mov ebx,(85 shl 16)+20 + mov edx,6 + int 0x40 + + add ebx,25 shl 16 + mov edx,7 + int 0x40 + + add ebx,25 shl 16 + mov edx,8 + int 0x40 + + add ebx,25 shl 16 + mov edx,9 + int 0x40 + + add ebx,25 shl 16 + mov edx,10 + int 0x40 + + add ebx,25 shl 16 + mov edx,11 + int 0x40 + + add ebx,25 shl 16 + mov edx,12 + int 0x40 + + ; *** рисование иконок на кнопках *** + mov edx,(7 shl 16)+7 ;icon new + mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16 + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;icon open + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;icon save + int 0x40 + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(30 shl 16) ; + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + + call draw_buffers + call draw_pok + + mcall SF_REDRAW,SSF_END_DRAW +popad + ret + +align 4 +draw_buffers: + ; *** рисование буфера *** + stdcall [buf2d_draw], buf_0 + stdcall [buf2d_draw], buf_i0 + stdcall [buf2d_draw], buf_i1 + stdcall [buf2d_draw], buf_i2 + ret + +align 4 +draw_pok: + ;обновление подписи размера файла + mov edi,txt_f_size.size + mov eax,dword[vox_obj_size] + mov ebx,txt_pref + .cycle: + cmp eax,1024 + jl @f + shr eax,10 + add ebx,4 + jmp .cycle + @@: + + stdcall convert_int_to_str, 16 + stdcall str_cat, edi,ebx + stdcall str_cat, edi,txt_space ;завершающий пробел + + ;рисование текста + mov ecx,[sc.work_text] + or ecx,0x80000000 or (1 shl 30) + mov edi,[sc.work] ;цвет фона окна + mcall SF_DRAW_TEXT,(275 shl 16)+7,,txt_f_size + + ret + +align 4 +key: + mcall SF_GET_KEY + jmp still + + +align 4 +button: + mcall SF_GET_BUTTON + cmp ah,3 + jne @f + call but_new_file + jmp still + @@: + cmp ah,4 + jne @f + call but_open_file ;открытие воксельного файла + jmp still + @@: + cmp ah,5 + jne @f + call but_save_file + jmp still + @@: + cmp ah,6 + jne @f + call but_1 + jmp still + @@: + cmp ah,7 + jne @f + call but_2 + jmp still + @@: + cmp ah,8 + jne @f + call but_3 + jmp still + @@: + cmp ah,9 + jne @f + stdcall but_run, 0 + jmp still + @@: + cmp ah,10 + jne @f + stdcall but_run, 1 + jmp still + @@: + cmp ah,11 + jne @f + call but_stop + jmp still + @@: + cmp ah,12 + jne @f + call but_rot_z + jmp still + @@: + cmp ah,1 + jne still +.exit: + stdcall [buf2d_delete],buf_0 + stdcall [buf2d_delete],buf_0z + stdcall [buf2d_vox_brush_delete],buf_vox + stdcall [buf2d_delete],buf_i0 + stdcall [buf2d_delete],buf_i1 + stdcall [buf2d_delete],buf_i2 + stdcall [buf2d_delete],buf_npl_p + stdcall [buf2d_delete],buf_npl + stdcall [buf2d_delete],buf_npl_n + stdcall mem.Free,[image_data_toolbar] + stdcall mem.Free,[open_file_vox] + stdcall mem.Free,[open_file_img] + mcall SF_TERMINATE_PROCESS + + +align 4 +vox_new_data: + db 2,0,0,0 + db 000b,001b,010b,011b, 100b,101b,110b,111b ;default table + dd 0 ;null node + +align 4 +proc but_new_file uses ecx edi esi + mov ecx,vox_offs_data+4 + mov [vox_obj_size],ecx + mov esi,vox_new_data + mov edi,[open_file_vox] + cld + rep movsb + ret +endp + +align 4 +open_file_vox dd 0 ;указатель на память для открытия файлов +open_file_img dd 0 ;указатель на память для открытия текстур + +align 4 +but_open_file: + pushad + copy_path open_dialog_name,communication_area_default_path,file_name,0 + mov [OpenDialog_data.type],0 + stdcall [OpenDialog_Start],OpenDialog_data + cmp [OpenDialog_data.status],2 + je @f + ;код при удачном открытии диалога + call but_open_file_cmd_lin + @@: +popad + ret + +align 4 +but_open_file_cmd_lin: +pushad + mov [run_file_70.Function], SSF_READ_FILE + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + mov [run_file_70.Count], dword max_open_file_size + m2m [run_file_70.Buffer],dword[open_file_vox] + mov byte[run_file_70+20], 0 + mov dword[run_file_70.FileName], openfile_path + mcall SF_FILE,run_file_70 + cmp ebx,0xffffffff + je .end_open_file + ; проверка на правильность воксельного формата + mov edi,[open_file_vox] + add edi,vox_offs_tree_table + xor bx,bx + mov ecx,8 + cld + @@: + movzx ax,byte[edi] + add bx,ax + inc edi + loop @b + cmp bx,28 ;28=0+1+2+...+7 + jne .err_open + + mcall SF_SET_CAPTION,1,openfile_path + stdcall buf2d_vox_obj_get_size,[open_file_vox] + mov [vox_obj_size],eax + call draw_object + + jmp .end_open_file + .err_open: + call but_new_file + stdcall [mb_create],msgbox_4,thread + .end_open_file: + popad + ret + +align 4 +but_save_file: + pushad + copy_path open_dialog_name,communication_area_default_path,file_name,0 + mov [OpenDialog_data.type],1 + stdcall [OpenDialog_Start],OpenDialog_data + cmp [OpenDialog_data.status],2 + je .end_save_file + ;код при удачном открытии диалога + + mov eax,6 ;dword[v_zoom] ;задаем масштаб по умолчанию + mov ebx,[open_file_vox] + mov byte[ebx],al + + stdcall buf2d_vox_obj_get_size, ebx + mov dword[run_file_70.Count], eax ;размер файла + mov [run_file_70.Function], SSF_CREATE_FILE + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + mov ebx, dword[open_file_vox] + mov [run_file_70.Buffer], ebx + mov byte[run_file_70+20], 0 + mov dword[run_file_70.FileName], openfile_path + mcall SF_FILE,run_file_70 + cmp ebx,0xffffffff + je .end_save_file + + .end_save_file: + popad + ret + +align 4 +but_1: + stdcall open_image_in_buf, buf_i0 + ret + +align 4 +but_2: + stdcall open_image_in_buf, buf_i1 + call set_buf_tabs + ret + +align 4 +but_3: + stdcall open_image_in_buf, buf_i2 + call set_buf_tabs + ret + +;description: +; в зависимости от ширины 1-го буфера устанавливаем отступы для 2-го и 3-го буферов +align 4 +set_buf_tabs: +push eax ebx edi + mov edi,buf_i0 + cmp buf2d_data,0 + je @f + movzx eax,buf2d_l + mov ebx,buf2d_w + cmp ebx,128 + jle .end_0 + mov ebx,128 + .end_0: + mov edi,buf_i1 + mov buf2d_l,ax + add buf2d_l,bx + add buf2d_l,2 + shl ebx,1 + mov edi,buf_i2 + mov buf2d_l,ax + add buf2d_l,bx + add buf2d_l,4 + @@: +pop edi ebx eax + ret + +align 4 +get_scale: +push eax edi + mov edi,buf_i0 + mov eax,buf2d_w + + mov dword[k_scale],-1 + .cycle_s: + cmp eax,0 + je @f + shr eax,1 + inc dword[k_scale] + jmp .cycle_s + @@: +pop edi eax + ret + +align 4 +proc set_borders uses eax ebx ecx edx edi + mov ecx,dword[k_scale] + mov edx,1 + shl edx,cl + + ;определяем минимальную координату y на лицевой грани + mov edi,buf_i2 + mov dword[bby_min],0 + xor ecx,ecx + .cycle_0: + xor ebx,ebx + .cycle_1: + stdcall [buf2d_get_pixel],edi,ebx,ecx + cmp eax,buf2d_color + jne @f + inc ebx + cmp ebx,edx + jl .cycle_1 + inc dword[bby_min] + inc ecx + cmp ecx,edx + jl .cycle_0 + @@: + + ;определяем минимальную координату x на лицевой грани + mov dword[btx_min],0 + xor ebx,ebx + .cycle_2: + mov ecx,[bby_min] + .cycle_3: + stdcall [buf2d_get_pixel],edi,ebx,ecx + cmp eax,buf2d_color + jne @f + inc ecx + cmp ecx,edx + jl .cycle_3 + inc dword[btx_min] + inc ebx + cmp ebx,edx + jl .cycle_2 + @@: + + ;определяем максимальную координату x на лицевой грани + mov [btx_max],edx + dec dword[btx_max] + mov ebx,[btx_max] + .cycle_4: + mov ecx,[bby_min] + .cycle_5: + stdcall [buf2d_get_pixel],edi,ebx,ecx + cmp eax,buf2d_color + jne @f + inc ecx + cmp ecx,edx + jl .cycle_5 + dec dword[btx_max] + dec ebx + cmp ebx,[btx_min] + jg .cycle_4 + @@: + + ;stdcall [buf2d_line], edi, 0,[bby_min],50,[bby_min],255 + ret +endp + +align 4 +btx_min dd 0 ;буфер верхний мин. x +btx_max dd 0 +bty_min dd 0 ;буфер верхний мин. y +bty_max dd 0 +;bbx_min dd 0 +;bbx_max dd 0 +bby_min dd 0 ;буфер боковой мин. y +bby_max dd 0 +k_scale dd 0 +n_plane dd 0 + +calc db 0 ;если =1, то идет создание объекта + +; создание вокселя в 3 этапа: +; 1) ищем место в структуре дерева, куда надо вставить (если ветвь существует, 2-й этап пропускаем) +; 2) вставляем новую ветвь с вокселем (3-й этап уже не делаем) +; 3) меняем цвет вокселя +align 4 +proc buf2d_vox_obj_create_node, v_obj:dword,coord_x:dword,coord_y:dword,\ +coord_z:dword,k_scale:dword,color:dword +pushad +locals + p_node dd 0 ;родительский узел +endl + + mov edi,[v_obj] + add edi,vox_offs_data + mov esi,[k_scale] + cmp esi,1 + jl .change + ; *** (1) *** + .found: + stdcall vox_obj_get_node_position, [v_obj],[coord_x],[coord_y],[coord_z],esi + movzx bx,byte[edi+3] + mov [p_node],edi + add edi,4 + + cmp eax,0 + je .end_1 + mov ecx,eax + cld + @@: ;цикл для пропуска предыдущих поддеревьев в узле + bt bx,0 ;проверяем есть ли дочерние узлы + jnc .end_0 + xor eax,eax + stdcall vox_obj_rec0 ;в eax вычисляется число дочерних узлов, в данной ветви + .end_0: + shr bx,1 + loop @b + .end_1: + bt bx,0 + jnc .creat ;если поддерева не существует, переходим к созданию + dec esi + cmp esi,0 + jg .found + jmp .change + + ; *** (2) *** + .creat: + mov edx,[color] ;меняем цвет + and edx,0xffffff ;для профилактики + mov ecx,esi + stdcall vox_obj_add_nodes_mem, [v_obj],edi,ecx ;расширяем место занимаемое объектом, для добавления новых узлов + mov ebx,[p_node] + cld + @@: + mov dword[edi],edx + stdcall vox_obj_get_node_bit_mask, [v_obj],[coord_x],[coord_y],[coord_z],esi + or byte[ebx+3],al + + mov ebx,edi + add edi,4 + dec esi + loop @b + jmp .end_2 + + ; *** (3) *** + .change: + mov eax,[color] ;меняем цвет + mov word[edi],ax + shr eax,16 + mov byte[edi+2],al + + .end_2: +popad + ret +endp + +; сдвигает узлы для добавления новых узлов +;input: +; p_insert - позиция для вставки +; count - колличество вставляемых узлов +align 4 +proc vox_obj_add_nodes_mem uses eax ecx edi esi, v_obj:dword,p_insert:dword,count:dword + mov esi,[v_obj] + ;stdcall buf2d_vox_obj_get_size,esi + add esi,[vox_obj_size] ;esi - указатель на конец файла + mov edi,[count] + shl edi,2 + add [vox_obj_size],edi + add edi,esi ;edi - указатель на будущий конец файла + mov ecx,esi + sub ecx,[p_insert] + shr ecx,2 ;ecx - число циклов для копирования + sub esi,4 ;esi - указатель на последний узел + sub edi,4 ;edi - указатель на будущий последний узел + std + rep movsd ;сдвигаем память + ret +endp + +;??? +; определение позиции узла в дереве (от 0 до 7) +align 4 +proc vox_obj_get_node_position uses ebx ecx edi, v_obj:dword,\ +coord_x:dword,coord_y:dword,coord_z:dword,k_scale:dword + mov ecx,[k_scale] + dec ecx + mov eax,[coord_x] + mov ebx,[coord_y] + mov edi,[coord_z] + cmp ecx,1 + jl .end_0 + shr eax,cl + shr ebx,cl + shr edi,cl + .end_0: + and eax,1 + bt ebx,0 + jnc @f + bts eax,1 + @@: + bt edi,0 + jnc @f + bts eax,2 + @@: + + mov edi,[v_obj] + add edi,vox_offs_tree_table + @@: + cmp al,byte[edi] + je @f + inc edi + jmp @b + @@: + sub edi,[v_obj] + sub edi,vox_offs_tree_table + mov eax,edi + + ret +endp + +;??? +;input: +; edi - указатель на данные воксельного объекта +;output: +; eax - eax + число узлов в данных вокс. объекта +; edi - указатель на смещенные данные вокс. объекта +align 4 +proc vox_obj_rec0 + inc eax + cmp byte[edi+3],0 ;смотрим есть ли поддеревья + je .sub_trees + + ;рекурсивный перебор поддеревьев + push ebx ecx + mov bh,byte[edi+3] + add edi,4 + mov bl,8 + .cycle: + bt bx,8 ;тестируем только bh + jnc .c_next + stdcall vox_obj_rec0 + .c_next: + shr bh,1 + dec bl + jnz .cycle + pop ecx ebx + + jmp .end_f + .sub_trees: + add edi,4 + .end_f: + ret +endp + +;output: +; eax - 1,2,4,8,16, ... ,128 +align 4 +proc vox_obj_get_node_bit_mask uses ebx ecx edi, v_obj:dword,\ +coord_x:dword,coord_y:dword,coord_z:dword,k_scale:dword + mov ecx,[k_scale] + dec ecx + mov eax,[coord_x] + mov ebx,[coord_y] + mov edi,[coord_z] + cmp ecx,1 + jl .end_0 + shr eax,cl + shr ebx,cl + shr edi,cl + .end_0: + and eax,1 + bt ebx,0 + jnc @f + bts eax,1 + @@: + bt edi,0 + jnc @f + bts eax,2 + @@: + + mov ecx,[v_obj] + add ecx,vox_offs_tree_table + @@: + cmp al,byte[ecx] + je @f + inc ecx + jmp @b + @@: + mov eax,1 ;устанавливаем первоначальное значение бита + sub ecx,[v_obj] + sub ecx,vox_offs_tree_table + jz @f + shl eax,cl ;сдвигаем бит + @@: + + ret +endp + +;output: +; eax - размер в байтах занимаемый объектом v_obj +align 4 +proc buf2d_vox_obj_get_size uses edi, v_obj:dword + mov edi,[v_obj] + add edi,vox_offs_data + xor eax,eax + stdcall vox_obj_rec0 ;eax - число узлов в объекте v_obj + shl eax,2 + add eax,vox_offs_data + ret +endp + +;input: +; mode_add - если не равно 0 тогда создание в режиме добавления вокселей +align 4 +proc but_run uses eax ebx edi, mode_add:dword + ; проверка размеров изображений (текстур) + mov edi,buf_i0 + mov ebx,buf2d_h + cmp ebx,2 + jle .err_size_t + cmp buf2d_w,ebx + jne .err_size_t + ; + mov edi,buf_i1 + cmp ebx,buf2d_h + jne .err_size_tb + mov ebx,buf2d_h + cmp ebx,2 + jle .err_size_b + cmp buf2d_w,ebx + jne .err_size_b + + cmp dword[vox_obj_size],vox_offs_data + jl .n_file ;если раньше не было открытых файлов + cmp dword[mode_add],0 + jne @f + .n_file: + call but_new_file + @@: + + mov edi,buf_i0 + mov eax,buf2d_w + mov edi,buf_npl + cmp buf2d_data,0 + jne @f + ; *** создаем буфера + m2m buf2d_w,eax + m2m buf2d_h,eax + stdcall [buf2d_create],edi + mov edi,buf_npl_p + m2m buf2d_w,eax + m2m buf2d_h,eax + stdcall [buf2d_create],edi + mov edi,buf_npl_n + m2m buf2d_w,eax + m2m buf2d_h,eax + stdcall [buf2d_create],edi + jmp .end_0 + @@: + ; *** изменяем размеры буферов + stdcall [buf2d_resize], edi, eax,eax,1 + mov edi,buf_npl_p + stdcall [buf2d_resize], edi, eax,eax,1 + mov edi,buf_npl_n + stdcall [buf2d_resize], edi, eax,eax,1 + .end_0: + mov dword[n_plane],1 + mov byte[calc],1 + call get_scale + call set_borders + + stdcall create_plane,buf_npl,0 + stdcall create_plane,buf_npl_n,1 + stdcall create_obj_from_plane,buf_npl,0 ;создаем начальное сечение + + jmp @f + .err_size_t: + stdcall [mb_create],msgbox_0,thread + jmp @f + .err_size_b: + stdcall [mb_create],msgbox_1,thread + jmp @f + .err_size_tb: + stdcall [mb_create],msgbox_3,thread + ;jmp @f + @@: + ret +endp + +;прекратить создание объекта +align 4 +but_stop: + cmp byte[calc],0 + je @f + call draw_object + mov byte[calc],0 + @@: + ret + +align 4 +but_rot_z: + stdcall vox_obj_rot_z, [open_file_vox] + call draw_object + ret + +align 4 +draw_object: + ;вывод результата на экран + stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер + stdcall [buf2d_clear], buf_0z, 0 ;чистим буфер + stdcall [buf2d_vox_obj_draw_3g], buf_0, buf_0z, buf_vox,\ + [open_file_vox], 0,0, 0, 6 ;[k_scale] + stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране + ret + +align 4 +proc open_image_in_buf, buf:dword + pushad + copy_path open_dialog_name,communication_area_default_path,file_name,0 + mov [OpenDialog_data.type],0 + stdcall [OpenDialog_Start],OpenDialog_data + cmp [OpenDialog_data.status],2 + je .end_open_file + + ;stdcall mem.Alloc, dword size ;выделяем память для изображения + ;mov [buf],eax + + mov [run_file_70.Function], SSF_READ_FILE + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + mov [run_file_70.Count], dword max_open_file_size + m2m [run_file_70.Buffer],dword[open_file_img] + mov byte[run_file_70+20], 0 + mov [run_file_70.FileName], openfile_path + mcall SF_FILE,run_file_70 + cmp ebx,0xffffffff + je .end_0 + ;определяем вид изображения + stdcall dword[img_decode], dword[open_file_img],ebx,0 + or eax,eax + jz .end_0 ;если нарушен формат файла + mov ebx,[eax+4] ;+4 = image width + cmp ebx,[eax+8] ;+8 = image height + jne .err_s0 + mov ebx,eax + ;преобразуем изображение к формату rgb + stdcall dword[img_to_rgb2], ebx,dword[open_file_img] + + mov edi,[buf] + cmp buf2d_data,0 + jne @f + m2m buf2d_w,dword[ebx+4] ;+4 = image width + m2m buf2d_h,dword[ebx+8] ;+8 = image height + stdcall [buf2d_create_f_img], edi,[open_file_img] + jmp .end_1 + @@: + mov ecx,[ebx+8] + stdcall [buf2d_resize], edi, [ebx+4],ecx,1 ;изменяем размеры буфера + imul ecx,[ebx+4] + lea ecx,[ecx+ecx*2] + mov edi,buf2d_data + mov esi,[open_file_img] + cld + rep movsb ;copy image + jmp .end_1 + .err_s0: ;ошибка, изображение для преобразования не подходит (не квадратное) + mov ebx,eax + notify_window_run txt_img_not_square + .end_1: + ;удаляем временный буфер в ebx + stdcall dword[img_destroy], ebx + .end_0: + + call draw_buffers + .end_open_file: + popad + ret +endp + +msgbox_0: + db 1,0 + db 'Внимание',0 + db 'Размер верхнего изображения не коректный',0 + db 'Закрыть',0 + db 0 + +msgbox_1: + db 1,0 + db 'Внимание',0 + db 'Размер бокового изображения не коректный',0 + db 'Закрыть',0 + db 0 + +msgbox_2: + db 1,0 + db 'Внимание',0 + db 'Размер переднего изображения не коректный',0 + db 'Закрыть',0 + db 0 + +msgbox_3: + db 1,0 + db 'Внимание',0 + db 'Размеры верхнего и бокового изображений не совпадают',13,\ + 'Откройте изображения одинаковых размеров',0 + db 'Закрыть',0 + db 0 + +msgbox_4: + db 1,0 + db 'Внимание',0 + db 'Открываемый файл содержит не воксельный формат',0 + db 'Закрыть',0 + db 0 + +txt_img_not_square db '"Внимание',13,10,'Открываемое изображение не квадратное" -tW',0 + +;данные для диалога открытия файлов +align 4 +OpenDialog_data: +.type dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию +.procinfo dd procinfo ;+4 +.com_area_name dd communication_area_name ;+8 +.com_area dd 0 ;+12 +.opendir_path dd plugin_path ;+16 +.dir_default_path dd default_dir ;+20 +.start_path dd file_name ;+24 путь к диалогу открытия файлов +.draw_window dd draw_window ;+28 +.status dd 0 ;+32 +.openfile_path dd openfile_path ;+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 + +default_dir db '/sys',0 + +communication_area_name: + db 'FFFFFFFF_open_dialog',0 +open_dialog_name: + db 'opendial',0 +communication_area_default_path: + db '/sys/File managers/',0 + +Filter: +dd Filter.end - Filter ;.1 +.1: +db 'PNG',0 +db 'JPG',0 +db 'JPEG',0 +db 'BMP',0 +db 'GIF',0 +db 'VOX',0 +.end: +db 0 + + + +system_dir_0 db '/sys/lib/' +lib_name_0 db 'proc_lib.obj',0 +system_dir_1 db '/sys/lib/' +lib_name_1 db 'libimg.obj',0 +system_dir_2 db '/sys/lib/' +lib_name_2 db 'buf2d.obj',0 +system_dir_3 db '/sys/lib/' +lib_name_3 db 'msgbox.obj',0 + +align 4 +l_libs_start: + lib_0 l_libs lib_name_0, file_name, system_dir_0, import_proclib + lib_1 l_libs lib_name_1, file_name, system_dir_1, import_libimg + lib_2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d + lib_3 l_libs lib_name_3, file_name, system_dir_3, import_msgbox_lib +l_libs_end: + +align 4 +import_libimg: + dd alib_init1 + img_is_img dd aimg_is_img + img_info dd aimg_info + img_from_file dd aimg_from_file + img_to_file dd aimg_to_file + img_from_rgb dd aimg_from_rgb + img_to_rgb dd aimg_to_rgb + img_to_rgb2 dd aimg_to_rgb2 + img_decode dd aimg_decode + img_encode dd aimg_encode + img_create dd aimg_create + img_destroy dd aimg_destroy + img_destroy_layer dd aimg_destroy_layer + img_count dd aimg_count + img_lock_bits dd aimg_lock_bits + img_unlock_bits dd aimg_unlock_bits + img_flip dd aimg_flip + img_flip_layer dd aimg_flip_layer + img_rotate dd aimg_rotate + img_rotate_layer dd aimg_rotate_layer + img_draw dd aimg_draw + + dd 0,0 + alib_init1 db 'lib_init',0 + aimg_is_img db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение + aimg_info db 'img_info',0 + aimg_from_file db 'img_from_file',0 + aimg_to_file db 'img_to_file',0 + aimg_from_rgb db 'img_from_rgb',0 + aimg_to_rgb db 'img_to_rgb',0 ;преобразование изображения в данные RGB + aimg_to_rgb2 db 'img_to_rgb2',0 + aimg_decode db 'img_decode',0 ;автоматически определяет формат графических данных + aimg_encode db 'img_encode',0 + aimg_create db 'img_create',0 + aimg_destroy db 'img_destroy',0 + aimg_destroy_layer db 'img_destroy_layer',0 + aimg_count db 'img_count',0 + aimg_lock_bits db 'img_lock_bits',0 + aimg_unlock_bits db 'img_unlock_bits',0 + aimg_flip db 'img_flip',0 + aimg_flip_layer db 'img_flip_layer',0 + aimg_rotate db 'img_rotate',0 + aimg_rotate_layer db 'img_rotate_layer',0 + aimg_draw db 'img_draw',0 + +align 4 +import_proclib: + OpenDialog_Init dd aOpenDialog_Init + OpenDialog_Start dd aOpenDialog_Start +dd 0,0 + aOpenDialog_Init db 'OpenDialog_init',0 + aOpenDialog_Start db 'OpenDialog_start',0 + +align 4 +import_buf2d: + init dd sz_init + buf2d_create dd sz_buf2d_create + buf2d_create_f_img dd sz_buf2d_create_f_img + buf2d_clear dd sz_buf2d_clear + buf2d_draw dd sz_buf2d_draw + buf2d_delete dd sz_buf2d_delete + buf2d_resize dd sz_buf2d_resize + buf2d_line dd sz_buf2d_line + buf2d_rect_by_size dd sz_buf2d_rect_by_size + buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size + buf2d_circle dd sz_buf2d_circle + buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2 + buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2 + buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8 + buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32 + buf2d_bit_blt dd sz_buf2d_bit_blt + buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp + buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha + buf2d_curve_bezier dd sz_buf2d_curve_bezier + buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix + buf2d_draw_text dd sz_buf2d_draw_text + buf2d_crop_color dd sz_buf2d_crop_color + buf2d_offset_h dd sz_buf2d_offset_h + buf2d_flood_fill dd sz_buf2d_flood_fill + buf2d_set_pixel dd sz_buf2d_set_pixel + buf2d_get_pixel dd sz_buf2d_get_pixel + buf2d_vox_brush_create dd sz_buf2d_vox_brush_create + buf2d_vox_brush_delete dd sz_buf2d_vox_brush_delete + buf2d_vox_obj_get_img_w_3g dd sz_buf2d_vox_obj_get_img_w_3g + buf2d_vox_obj_get_img_h_3g dd sz_buf2d_vox_obj_get_img_h_3g + buf2d_vox_obj_draw_1g dd sz_buf2d_vox_obj_draw_1g + buf2d_vox_obj_draw_3g dd sz_buf2d_vox_obj_draw_3g + buf2d_vox_obj_draw_3g_scaled dd sz_buf2d_vox_obj_draw_3g_scaled + buf2d_vox_obj_draw_3g_shadows dd sz_buf2d_vox_obj_draw_3g_shadows + buf2d_vox_obj_draw_pl dd sz_buf2d_vox_obj_draw_pl + buf2d_vox_obj_draw_pl_scaled dd sz_buf2d_vox_obj_draw_pl_scaled + dd 0,0 + sz_init db 'lib_init',0 + sz_buf2d_create db 'buf2d_create',0 + sz_buf2d_create_f_img db 'buf2d_create_f_img',0 + sz_buf2d_clear db 'buf2d_clear',0 + sz_buf2d_draw db 'buf2d_draw',0 + sz_buf2d_delete db 'buf2d_delete',0 + sz_buf2d_resize db 'buf2d_resize',0 + sz_buf2d_line db 'buf2d_line',0 + sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0 + sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0 + sz_buf2d_circle db 'buf2d_circle',0 + sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0 + sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0 + sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0 + sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0 + sz_buf2d_bit_blt db 'buf2d_bit_blt',0 + sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0 + sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0 + sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0 + sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0 + sz_buf2d_draw_text db 'buf2d_draw_text',0 + sz_buf2d_crop_color db 'buf2d_crop_color',0 + sz_buf2d_offset_h db 'buf2d_offset_h',0 + sz_buf2d_flood_fill db 'buf2d_flood_fill',0 + sz_buf2d_set_pixel db 'buf2d_set_pixel',0 + sz_buf2d_get_pixel db 'buf2d_get_pixel',0 + sz_buf2d_vox_brush_create db 'buf2d_vox_brush_create',0 + sz_buf2d_vox_brush_delete db 'buf2d_vox_brush_delete',0 + sz_buf2d_vox_obj_get_img_w_3g db 'buf2d_vox_obj_get_img_w_3g',0 + sz_buf2d_vox_obj_get_img_h_3g db 'buf2d_vox_obj_get_img_h_3g',0 + sz_buf2d_vox_obj_draw_1g db 'buf2d_vox_obj_draw_1g',0 + sz_buf2d_vox_obj_draw_3g db 'buf2d_vox_obj_draw_3g',0 + sz_buf2d_vox_obj_draw_3g_scaled db 'buf2d_vox_obj_draw_3g_scaled',0 + sz_buf2d_vox_obj_draw_3g_shadows db 'buf2d_vox_obj_draw_3g_shadows',0 + sz_buf2d_vox_obj_draw_pl db 'buf2d_vox_obj_draw_pl',0 + sz_buf2d_vox_obj_draw_pl_scaled db 'buf2d_vox_obj_draw_pl_scaled',0 + +align 4 +import_msgbox_lib: + mb_create dd amb_create +; mb_reinit dd amb_reinit +; mb_setfunctions dd amb_setfunctions +dd 0,0 + amb_create db 'mb_create',0 +; amb_reinit db 'mb_reinit',0 +; amb_setfunctions db 'mb_setfunctions',0 + +align 4 +buf_0: dd 0 + dw 5 ;+4 left + dw 35 ;+6 top +.w: dd 6*64 ;+8 w +.h: dd 7*64 ;+12 h +.color: dd 0xffffff ;+16 color + db 24 ;+20 bit in pixel + +align 4 +buf_0z: dd 0 + dw 5 ;+4 left + dw 35 ;+6 top +.w: dd 6*64 ;+8 w +.h: dd 7*64 ;+12 h +.color: dd 0 ;+16 color + db 32 ;+20 bit in pixel + +;текстура 1 (верхняя) +align 4 +buf_i0: dd 0 + dw 5 ;+4 left + dw 35 ;+6 top +.w: dd 0 ;+8 w +.h: dd 0 ;+12 h +.color: dd 0 ;+16 color + db 24 ;+20 bit in pixel + +;текстура 2 +align 4 +buf_i1: dd 0 + dw 105 ;+4 left + dw 35 ;+6 top +.w: dd 0 ;+8 w +.h: dd 0 ;+12 h +.color: dd 0 ;+16 color + db 24 ;+20 bit in pixel + +;текстура 3 +align 4 +buf_i2: dd 0 + dw 205 ;+4 left + dw 35 ;+6 top +.w: dd 0 ;+8 w +.h: dd 0 ;+12 h +.color: dd 0 ;+16 color + db 24 ;+20 bit in pixel + +;алгоритм создания модели использует 3 сечения: +; предыдущее, текущее, последующее (это необходимо для отсеивания вокселей внутри объекта) + +;предыдущее сечение +align 4 +buf_npl_p: dd 0 + dw 0 ;+4 left + dw 0 ;+6 top +.w: dd 0 ;+8 w +.h: dd 0 ;+12 h +.color: dd 0 ;+16 color + db 24 ;+20 bit in pixel + +;текущее сечение +align 4 +buf_npl: dd 0 + dw 5 ;+4 left + dw 35 ;+6 top +.w: dd 0 ;+8 w +.h: dd 0 ;+12 h +.color: dd 0 ;+16 color + db 24 ;+20 bit in pixel + +;последующее сечение +align 4 +buf_npl_n: dd 0 + dw 0 ;+4 left + dw 0 ;+6 top +.w: dd 0 ;+8 w +.h: dd 0 ;+12 h +.color: dd 0 ;+16 color + db 24 ;+20 bit in pixel + +;данные для создания минимального единичного вокселя +align 4 +vox_6_7_z: +dd 0,0,1,1,0,0,\ + 0,2,2,2,2,0,\ + 2,2,2,2,2,2,\ + 2,3,2,2,3,2,\ + 2,3,3,3,3,2,\ + 0,3,3,3,3,0,\ + 0,0,3,3,0,0 + +align 4 +buf_vox: + db 6,7,4,3 ;w,h,h_osn,n + rb BUF_STRUCT_SIZE*(2+1) + + +align 16 +i_end: + procinfo process_information + sc system_colors + run_file_70 FileInfoBlock + mouse_dd dd ? + last_time dd ? + rb 2048 + thread: + rb 2048 +stacktop: + sys_path rb 1024 + file_name rb 2048 ;4096 + plugin_path rb 4096 + openfile_path rb 4096 + filename_area rb 256 +mem: diff --git a/programs/media/voxel_editor/utilites/vox_mover.asm b/programs/media/voxel_editor/utilites/vox_mover.asm index 7ffbcb2a20..b80283491c 100644 --- a/programs/media/voxel_editor/utilites/vox_mover.asm +++ b/programs/media/voxel_editor/utilites/vox_mover.asm @@ -1,1557 +1,1559 @@ -use32 - org 0 - db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт - dd 1, start, i_end, mem, stacktop, openfile_path, sys_path - -include '../../../macros.inc' -include '../../../proc32.inc' -include '../../../KOSfuncs.inc' -include '../../../load_img.inc' -include '../../../load_lib.mac' -include '../trunk/vox_draw.inc' -include '../trunk/vox_rotate.inc' -include '../trunk/str.inc' -include 'lang.inc' - -@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load -if lang eq ru_RU -caption db 'Перемещение вокселей 04.05.20',0 ;подпись окна -else -caption db 'Voxel mover 04.05.20',0 -end if - -IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3 -image_data_toolbar dd 0 - -;значения задаваемые по умолчанию, без ini файла -ini_def_window_t equ 10 -ini_def_window_l equ 10 -ini_def_window_w equ 550 -ini_def_window_h equ 415 -ini_def_buf_w equ 198 ;=192+6 -ini_def_buf_h equ 231 ;=224+7 -ini_def_s_zoom equ 5 -ini_def_t_size equ 10 -ini_def_color_b equ 0xffffff -;описание параматров для ini файла -ini_name db 'vox_mover.ini',0 -ini_sec_window db 'Window',0 -key_window_t db 't',0 -key_window_l db 'l',0 -key_window_w db 'w',0 -key_window_h db 'h',0 -key_buf_w db 'buf_w',0 -key_buf_h db 'buf_h',0 -ini_sec_options db 'Options',0 -key_s_zoom db 's_zoom',0 -key_t_size db 'tile_size',0 -key_f_size db 'file_size',0 -key_col_b db 'c_background',0 - -OT_MAP_X equ 0 -OT_MAP_Y equ 0 -OT_CAPT_X_COLOR equ 5 ;отступ для подписи цвета -OT_CAPT_Y_COLOR equ 30 -PEN_MODE_NONE equ -1 -PEN_MODE_CLEAR equ 0 ;режим стирания -PEN_MODE_SELECT_COLOR equ 2 ;режим выбора цвета - -align 4 -start: - load_libraries l_libs_start,l_libs_end - ;проверка на сколько удачно загузилась библиотека - mov ebp,lib0 - cmp dword [ebp+ll_struc_size-4],0 - jz @f - mcall SF_TERMINATE_PROCESS - @@: - mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors - mcall SF_SET_EVENTS_MASK,0xC0000027 - stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога - -;--- load ini file --- - copy_path ini_name,sys_path,file_name,0 - ;window startup pozition - stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_l,ini_def_window_l - mov word[wnd_s_pos+2],ax - stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_w,ini_def_window_w - mov word[wnd_s_pos],ax - stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_t,ini_def_window_t - mov word[wnd_s_pos+6],ax - stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_h,ini_def_window_h - mov word[wnd_s_pos+4],ax - ;image buffer size - stdcall dword[ini_get_int],file_name,ini_sec_window,key_buf_w,ini_def_buf_w - mov [buf_0.w],eax - mov [buf_0z.w],eax - add ax,15 - mov [buf_pl.l],ax ;отступ для правого окна - stdcall dword[ini_get_int],file_name,ini_sec_window,key_buf_h,ini_def_buf_h - mov [buf_0.h],eax - mov [buf_0z.h],eax - ;цвет фона - stdcall dword[ini_get_color],file_name,ini_sec_window,key_col_b,ini_def_color_b - mov [buf_0.color],eax - mov [buf_pl.color],eax - - ;мастаб, после которого будет увеличение - stdcall dword[ini_get_int],file_name,ini_sec_options,key_s_zoom,ini_def_s_zoom - mov [scaled_zoom],eax - ;размер квадратика на плоскости сечения - stdcall dword[ini_get_int],file_name,ini_sec_options,key_t_size,ini_def_t_size - mov [tile_size],eax - - stdcall dword[ini_get_int],file_name,ini_sec_options,key_f_size,64 - shl eax,10 - mov [max_open_file_size],eax - - mov ecx,[scaled_zoom] - xor eax,eax - inc eax - shl eax,cl - imul eax,[tile_size] - mov [buf_pl.w],eax - add eax,[tile_size] - mov [buf_pl.h],eax - - - stdcall [buf2d_create], buf_0 ;создание буфера изображения - stdcall [buf2d_create], buf_0z ;создание буфера глубины - stdcall [buf2d_create], buf_pl ;создание буфера для сечения - - stdcall [buf2d_vox_brush_create], buf_vox, vox_6_7_z - - include_image_file 'toolbar_m.png', image_data_toolbar - - stdcall mem.Alloc,[max_open_file_size] - mov dword[open_file_vox],eax - stdcall mem.Alloc,[max_open_file_size] - mov dword[moved_file_vox],eax - - stdcall but_new_file, [open_file_vox] - stdcall but_new_file, [moved_file_vox] - ;проверка командной строки - cmp dword[openfile_path],0 - je @f - call but_open_file_cmd_lin - @@: - -align 4 -red_win: - call draw_window - -align 4 -still: - mcall SF_WAIT_EVENT - - cmp al,1 - jz red_win - cmp al,2 - jz key - cmp al,3 - jz button - cmp al,6 - jne @f - mcall SF_THREAD_INFO,procinfo,-1 - cmp ax,word[procinfo+4] - jne @f ;окно не активно - call mouse - @@: - jmp still - -align 4 -mouse: - pushad - mcall SF_MOUSE_GET,SSF_BUTTON - bt eax,1 ;right button - jnc @f - mcall SF_MOUSE_GET,SSF_WINDOW_POSITION - mov ebx,eax - shr ebx,16 - and eax,0xffff - stdcall get_buf_color, buf_0 - stdcall get_buf_color, buf_pl - jmp .end_f - @@: - bt eax,0 ;left button - jnc .end_f - mcall SF_MOUSE_GET,SSF_WINDOW_POSITION - mov ebx,eax - shr ebx,16 - and eax,0xffff - - push eax ebx - mov edx,[v_zoom] - cmp edx,[scaled_zoom] - jle @f - ;режим масштабирования изображения - sub edx,[scaled_zoom] - sub ax,word[buf_0.t] - sub bx,word[buf_0.l] - stdcall get_mouse_ev_scale, buf_vox, ebx, eax, [scaled_zoom],edx - cmp eax,0 - je @f - mov ebx,eax - and eax,0x3fffffff - rol ebx,2 - and ebx,3 - dec ebx - - shl ebx,2 - add ebx,cam_x - mov dword[ebx],eax ;change [cam_x] or [cam_y] or [cam_z] - call draw_objects - - pop ebx eax - jmp .end_f - @@: - pop ebx eax - - - ;eax - mouse coord y - ;ebx - mouse coord x - movzx edx,word[buf_pl.t] - add edx,OT_MAP_Y - cmp eax,edx - jl .end_f - sub eax,edx - xor edx,edx - mov ecx,[tile_size] ;H - div ecx - movzx edx,word[buf_pl.l] - add edx,OT_MAP_X - cmp ebx,edx - jl .end_f - call convert_y ;преобразование координаты y - cmp eax,0 - jge .end_0 ;ограничение по нижней координате y - cmp eax,-1 - jne .end_f - ;меняем сечение, попали на квадратик - sub ebx,edx - mov eax,ebx - xor edx,edx - mov ecx,[tile_size] ;W - div ecx - mov [n_plane],eax - jmp .end_1 - .end_0: - mov [v_cur_y],eax ;Y-coord - sub ebx,edx - mov eax,ebx - xor edx,edx - mov ecx,[tile_size] ;W - div ecx - mov [v_cur_x],eax ;X-coord - - .end_1: - call draw_objects - call draw_pok - .end_f: - popad - ret - -;input: -; eax - coord y -; ebx - coord x -align 4 -proc get_buf_color, buf:dword -pushad - mov edi,[buf] - cmp ax,buf2d_t - jl .end_f - sub ax,buf2d_t - cmp eax,buf2d_h - jg .end_f - cmp bx,buf2d_l - jl .end_f - sub bx,buf2d_l - cmp ebx,buf2d_w - jg .end_f - stdcall [buf2d_get_pixel], edi,ebx,eax - mov [v_color],eax - call on_change_color ;отображаем изменения цвета - .end_f: -popad - ret -endp - -;преобразовываем координату y (значение должно увеличиваться с низу вверх) -align 4 -convert_y: - push ecx edx - mov ecx,[v_zoom] - cmp ecx,[scaled_zoom] - jle @f - mov ecx,[scaled_zoom] - @@: - mov edx,1 - cmp ecx,1 - jl @f - shl edx,cl - @@: - sub edx,eax - dec edx - mov eax,edx - pop edx ecx - ret - -align 4 -draw_window: -pushad - mcall SF_REDRAW,SSF_BEGIN_DRAW - - ; *** рисование главного окна (выполняется 1 раз при запуске) *** - mov edx,[sc.work] - or edx,(3 shl 24)+0x30000000 - mcall SF_CREATE_WINDOW,dword[wnd_s_pos],dword[wnd_s_pos+4],,,caption - - ; *** создание кнопок на панель *** - mov esi,[sc.work_button] - mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3 - - mov ebx,(30 shl 16)+20 - mov edx,4 - int 0x40 - add ebx,25 shl 16 - mov edx,5 - int 0x40 - add ebx,30 shl 16 - mov edx,6 - int 0x40 - add ebx,25 shl 16 - mov edx,7 - int 0x40 - add ebx,25 shl 16 - mov edx,8 - int 0x40 - add ebx,25 shl 16 - mov edx,9 - int 0x40 - add ebx,25 shl 16 - mov edx,10 - int 0x40 - add ebx,25 shl 16 - mov edx,11 - int 0x40 - add ebx,25 shl 16 - mov edx,12 - int 0x40 - add ebx,25 shl 16 - mov edx,13 - int 0x40 - add ebx,25 shl 16 - mov edx,14 - int 0x40 - add ebx,25 shl 16 - mov edx,15 - int 0x40 - add ebx,25 shl 16 - mov edx,16 - int 0x40 - add ebx,25 shl 16 - mov edx,17 - int 0x40 - add ebx,25 shl 16 - mov edx,18 - int 0x40 - add ebx,25 shl 16 - mov edx,19 - int 0x40 - add ebx,25 shl 16 - mov edx,20 - int 0x40 - - ; *** рисование иконок на кнопках *** - mov edx,(7 shl 16)+7 ;icon new - mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16 - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;icon open - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;icon save - int 0x40 - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(30 shl 16) ;увелич. масштаб - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;уменьш. масштаб - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;поворот 1 - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;поворот 2 - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;сдвиг плоскости + - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;сдвиг плоскости - - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;освещение - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;рендер 2*2 - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ; - int 0x40 - - ; *** рисование буферов *** - call draw_objects - call draw_pok - - mcall SF_REDRAW,SSF_END_DRAW -popad - ret - -align 4 -draw_pok: - mov esi,[sc.work_button_text] - or esi,(1 shl 30) - mov edi,[sc.work_button] - mcall SF_DRAW_NUMBER, (3 shl 16)+(1 shl 31), [v_zoom], ((350+6*9) shl 16)+OT_CAPT_Y_COLOR+2 ;масштаб - mov ecx,[n_plane] - add edx,115 shl 16 ;9 - int 0x40 ;номер сечения - - ;обновление параметров курсора - mov dword[txt_curor.size],0 - mov eax,dword[v_cur_x] - mov edi,txt_curor.size - stdcall convert_int_to_str,10 - stdcall str_cat, edi,txt_mull - mov eax,dword[v_cur_y] - mov edi,txt_buf - stdcall convert_int_to_str,16 - stdcall str_cat, txt_curor.size,edi - stdcall str_cat, txt_curor.size,txt_space ;завершающий пробел - - ;обновление параметров кисти - mov dword[txt_mov_offs.size],0 - mov eax,dword[mov_x] - mov edi,txt_mov_offs.size - stdcall convert_int_to_str,30 - stdcall str_cat, edi,txt_space - mov eax,dword[mov_y] - mov edi,txt_buf - stdcall convert_int_to_str,16 - stdcall str_cat, txt_mov_offs.size,edi - stdcall str_cat, txt_mov_offs.size,txt_space - mov eax,dword[mov_z] - mov edi,txt_buf - stdcall convert_int_to_str,16 - stdcall str_cat, txt_mov_offs.size,edi - stdcall str_cat, txt_mov_offs.size,txt_space ;завершающий пробел - - ;рисование текста - mov ecx,[sc.work_text] - or ecx,0x80000000 ;or (1 shl 30) - mcall SF_DRAW_TEXT, (OT_CAPT_X_COLOR shl 16)+OT_CAPT_Y_COLOR+2,,txt_color - - mov edx,txt_curor - add ebx,115 shl 16 - or ecx,(1 shl 30) - mov edi,[sc.work] - int 0x40 - - mov edx,txt_mov_offs - add ebx,115 shl 16 - int 0x40 - - mov edx,txt_zoom - add ebx,115 shl 16 - int 0x40 - - mov edx,txt_n_plane - add ebx,115 shl 16 - int 0x40 - - call on_change_color - ret - -align 4 -on_change_color: -pushad - mov ebx,((OT_CAPT_X_COLOR+35) shl 16)+16 ;по оси x - mov ecx,(OT_CAPT_Y_COLOR shl 16)+12 ;по оси y - mcall SF_DRAW_RECT,,,[v_color] - - mov ecx,edx - mov edx,((OT_CAPT_X_COLOR+55) shl 16)+OT_CAPT_Y_COLOR+2 - mov esi,[sc.work_text] - add esi,(1 shl 30) - mov edi,[sc.work] - mcall SF_DRAW_NUMBER,(1 shl 8)+(6 shl 16) -popad - ret - -align 4 -key: - mcall SF_GET_KEY - jmp still - - -align 4 -button: - mcall SF_GET_BUTTON - cmp ah,3 - jne @f - stdcall but_new_file, [open_file_vox] - call draw_objects - call draw_pok - jmp still - @@: - cmp ah,4 - jne @f - call but_open_file - jmp still - @@: - cmp ah,5 - jne @f - call but_save_file - jmp still - @@: - cmp ah,6 - jne @f - call but_zoom_p - jmp still - @@: - cmp ah,7 - jne @f - call but_zoom_m - jmp still - @@: - cmp ah,8 - jne @f - call but_3 - jmp still - @@: - cmp ah,9 - jne @f - call but_4 - jmp still - @@: - cmp ah,10 - jne @f - call but_plane_inc - jmp still - @@: - cmp ah,11 - jne @f - call but_plane_dec - jmp still - @@: - cmp ah,12 - jne @f - call but_light - jmp still - @@: - cmp ah,13 - jne @f - call but_rend_2_2 - jmp still - @@: - cmp ah,14 - jne @f - call but_move - jmp still - @@: - cmp ah,15 - jne @f - dec dword[mov_x] - call draw_pok - jmp still - @@: - cmp ah,16 - jne @f - inc dword[mov_x] - call draw_pok - jmp still - @@: - cmp ah,17 - jne @f - dec dword[mov_y] - call draw_pok - jmp still - @@: - cmp ah,18 - jne @f - inc dword[mov_y] - call draw_pok - jmp still - @@: - cmp ah,19 - jne @f - dec dword[mov_z] - call draw_pok - jmp still - @@: - cmp ah,20 - jne @f - inc dword[mov_z] - call draw_pok - jmp still - @@: - cmp ah,1 - jne still -.exit: - stdcall [buf2d_delete],buf_0 - stdcall [buf2d_delete],buf_0z - cmp dword[buf_r_img],0 - je @f - stdcall [buf2d_delete],buf_r_img - stdcall [buf2d_delete],buf_r_z - @@: - stdcall [buf2d_vox_brush_delete], buf_vox - stdcall mem.Free,[image_data_toolbar] - stdcall mem.Free,[open_file_vox] - stdcall mem.Free,[moved_file_vox] - mcall SF_TERMINATE_PROCESS - -;данные для инициализации воксельного объекта -align 4 -vox_new_data: - db 2,0,0,0 - db 0,1,2,3, 4,5,6,7 ;default table - dd 0 ;null node - -;инициализация воксельного объекта -align 4 -proc but_new_file uses ecx edi esi, file_data:dword - mov ecx,vox_offs_data+4 - mov esi,vox_new_data - mov edi,[file_data] - cld - rep movsb - ret -endp - -align 4 -open_file_vox dd 0 ;указатель на область для открытия файлов -moved_file_vox dd 0 - -align 4 -but_open_file: - copy_path open_dialog_name,communication_area_default_path,file_name,0 -pushad - mov [OpenDialog_data.type],0 - stdcall [OpenDialog_Start],OpenDialog_data - cmp [OpenDialog_data.status],2 - je @f - ;код при удачном открытии диалога - call but_open_file_cmd_lin - @@: -popad - ret - -align 4 -but_open_file_cmd_lin: -pushad - mov [run_file_70.Function], SSF_READ_FILE - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - m2m dword[run_file_70.Count], dword[max_open_file_size] - m2m [run_file_70.Buffer], [open_file_vox] - mov byte[run_file_70+20], 0 - mov dword[run_file_70.FileName], openfile_path - mcall SF_FILE,run_file_70 - cmp ebx,0xffffffff - je .end_open_file - - mcall SF_SET_CAPTION,1,openfile_path - - ;--- - mov eax,[open_file_vox] - movzx eax,byte[eax] - and eax,0xff ;берем масштаб по умолчанию - mov dword[v_zoom],eax ;берем масштаб по умолчанию - mov dword[cam_x],0 - mov dword[cam_y],0 - mov dword[cam_z],0 - call draw_objects - .end_open_file: -popad - ret - -align 4 -but_save_file: - copy_path open_dialog_name,communication_area_default_path,file_name,0 - pushad - mov [OpenDialog_data.type],1 - stdcall [OpenDialog_Start],OpenDialog_data - cmp [OpenDialog_data.status],2 - je .end_save_file - ;код при удачном открытии диалога - - mov eax,dword[v_zoom] ;задаем масштаб по умолчанию - mov ebx,[moved_file_vox] - mov byte[ebx],al - - stdcall buf2d_vox_obj_get_size, ebx - mov dword[run_file_70.Count], eax ;размер файла - mov [run_file_70.Function], SSF_CREATE_FILE - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - mov ebx, dword[moved_file_vox] - mov [run_file_70.Buffer], ebx - mov byte[run_file_70+20], 0 - mov dword[run_file_70.FileName], openfile_path - mcall SF_FILE,run_file_70 - cmp ebx,0xffffffff - je .end_save_file - - .end_save_file: - popad - ret - -;увеличение масштаба -align 4 -but_zoom_p: - cmp dword[v_zoom],10 ;максимальный размер, до которого можно увеличить 2^10=1024 - jge @f - inc dword[v_zoom] - shl dword[n_plane],1 - push eax - mov eax,[v_zoom] - cmp eax,[scaled_zoom] - jl .end_0 - push ecx - mov ecx,[scaled_zoom] - xor eax,eax - inc eax - shl eax,cl - shl dword[cam_x],1 - shl dword[cam_y],1 - shl dword[cam_z],1 - cmp eax,[n_plane] - jg .end_1 - ;коректировка ползунка - sub [n_plane],eax - inc dword[cam_y] - .end_1: - pop ecx - .end_0: - pop eax - call draw_objects - call draw_pok - @@: - ret - -;уменьшение масштаба -align 4 -but_zoom_m: - cmp dword[v_zoom],1 - jl @f - dec dword[v_zoom] - shr dword[n_plane],1 - push eax - mov eax,[v_zoom] - cmp eax,[scaled_zoom] - jl .end_0 - shr dword[cam_x],1 - shr dword[cam_y],1 - jnc .end_1 - ;коректировка ползунка - push ecx - mov ecx,[scaled_zoom] - dec ecx - xor eax,eax - inc eax - shl eax,cl - add [n_plane],eax - pop ecx - .end_1: - shr dword[cam_z],1 - .end_0: - pop eax - call draw_objects - call draw_pok - @@: - ret - -align 4 -but_3: - stdcall vox_obj_rot_z, [open_file_vox] - call draw_objects - ret - -align 4 -but_4: - stdcall vox_obj_rot_x, [open_file_vox] - call draw_objects - ret - -;сдвигаем плоскость среза -align 4 -but_plane_inc: -push eax ecx - inc dword[n_plane] - mov eax,[v_zoom] - cmp eax,[scaled_zoom] - jle .end_0 - ;происходит масштабирование - mov ecx,[scaled_zoom] - xor eax,eax - inc eax - shl eax,cl - cmp eax,[n_plane] - jg @f - mov dword[n_plane],0 - inc dword[cam_y] ;переходим в соседний куб - neg ecx - ;inc ecx - add ecx,[v_zoom] - xor eax,eax - inc eax - shl eax,cl - cmp eax,[cam_y] - jg @f - mov dword[cam_y],0 ;зацикливаем если вылезли за пределы последнего куба - @@: - jmp .end_1 - .end_0: - ;масштабирование не происходит - mov ecx,eax - xor eax,eax - inc eax - shl eax,cl - cmp eax,[n_plane] - jg .end_1 - mov dword[n_plane],0 - .end_1: - call draw_objects - call draw_pok -pop ecx eax - ret - -;сдвигаем плоскость среза -align 4 -but_plane_dec: - dec dword[n_plane] - cmp dword[n_plane],0 - jge .end_f -push eax ecx - mov ecx,[scaled_zoom] - xor eax,eax - inc eax - shl eax,cl - dec eax - mov dword[n_plane],eax - - mov eax,[v_zoom] - cmp eax,[scaled_zoom] - jle .end_0 - ;происходит масштабирование - dec dword[cam_y] ;переходим в соседний куб - cmp dword[cam_y],0 - jge .end_0 - - mov ecx,eax - sub ecx,[scaled_zoom] - xor eax,eax - inc eax - shl eax,cl - dec eax - mov dword[cam_y],eax ;если номер куба оказался меньше 0 исправляем на максимальное значение - .end_0: -pop ecx eax - .end_f: - call draw_objects - call draw_pok - ret - -align 4 -but_light: - xor dword[mode_light],1 - call draw_objects - ret - -align 4 -but_rend_2_2: -push edi - cmp dword[buf_r_img],0 - jne @f - ;создание буфера для рендера - push ecx esi - mov edi,buf_r_img - mov esi,buf_0 - mov ecx,BUF_STRUCT_SIZE - cld - rep movsb ;копируем все параметры с основного буфера - mov edi,buf_r_img - mov buf2d_data,0 - shl buf2d_w,1 ;увеличиваем размер буфера - shl buf2d_h,1 - stdcall [buf2d_create],buf_r_img - - mov edi,buf_r_z - mov esi,buf_0z - mov ecx,BUF_STRUCT_SIZE - cld - rep movsb ;копируем все параметры с основного буфера - mov edi,buf_r_z - mov buf2d_data,0 - shl buf2d_w,1 ;увеличиваем размер буфера - shl buf2d_h,1 - stdcall [buf2d_create],buf_r_z - pop esi ecx - @@: - stdcall [buf2d_clear], buf_r_img, [buf_0.color] ;чистим буфер - stdcall [buf2d_clear], buf_r_z, 0 ;чистим буфер - - push eax ebx ecx - mov eax,[v_zoom] - cmp eax,[scaled_zoom] - jle .end_scaled - ;рендер увеличенной части объекта - mov ebx,[scaled_zoom] - sub eax,ebx - inc ebx - stdcall [buf2d_vox_obj_draw_3g_scaled], buf_r_img, buf_r_z, buf_vox,\ - [open_file_vox], 0,0, 0, ebx, [cam_x],[cam_y],[cam_z],eax, [sc.work_graph] - bt dword[mode_light],0 - jnc @f - stdcall [buf2d_vox_obj_draw_3g_shadows], buf_r_img, buf_r_z, buf_vox, 0,0, 0, ebx, 3 - @@: - xor ebx,ebx - xor ecx,ecx - mov edi,buf_r_img - stdcall [buf2d_img_hdiv2], edi - shr buf2d_h,1 - stdcall [buf2d_img_wdiv2], edi - shr buf2d_w,1 - jmp .show - .end_scaled: - - inc eax - stdcall [buf2d_vox_obj_draw_3g], buf_r_img, buf_r_z, buf_vox, [open_file_vox], 0,0, 0, eax - stdcall [buf2d_vox_obj_draw_1g], buf_r_img, buf_r_z, [open_file_vox], 0,0, eax - bt dword[mode_light],0 - jnc @f - stdcall [buf2d_vox_obj_draw_3g_shadows], buf_r_img, buf_r_z, buf_vox, 0,0, 0, eax, 3 - @@: - - mov edi,buf_r_img - stdcall [buf2d_img_hdiv2], edi - shr buf2d_h,1 - stdcall [buf2d_img_wdiv2], edi - shr buf2d_w,1 - - stdcall [buf2d_vox_obj_get_img_w_3g], buf_vox,[v_zoom] - mov ebx,[buf_0.w] - sub ebx,eax - shr ebx,1 ;ebx - для центровки маленьких изображений по горизонтали - stdcall [buf2d_vox_obj_get_img_h_3g], buf_vox,[v_zoom] - cmp eax,[buf_0.h] - jg @f - mov ecx,[buf_0.h] - sub ecx,eax - shr ecx,1 ;ecx - для центровки маленьких изображений по вертикали - @@: - .show: - stdcall [buf2d_bit_blt], buf_0, ebx,ecx, edi - shl buf2d_h,1 - shl buf2d_w,1 - pop ecx ebx eax -pop edi - stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране - ret - -align 4 -but_move: -push eax - stdcall but_new_file, [moved_file_vox] - mov eax,[v_zoom] - stdcall buf_vox_obj_recreat, [open_file_vox], [moved_file_vox],\ - [mov_x],[mov_y],[mov_z], eax - - stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер - stdcall [buf2d_clear], buf_0z, 0 ;чистим буфер - cmp eax,[scaled_zoom] - jle @f - mov eax,[scaled_zoom] - @@: - stdcall [buf2d_vox_obj_draw_3g], buf_0, buf_0z, buf_vox, [moved_file_vox], 0,0,0, eax -pop eax - stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране - ret - -;description: -; функция рисующая воксельный объект (видно 3 грани) -;input: -; v_obj - воксельный объект -; k_scale - коэф. для масштабирования изображения -align 4 -proc buf_vox_obj_recreat, v_obj:dword, obj_n:dword,\ -coord_x:dword, coord_y:dword, coord_z:dword, k_scale:dword -pushad - mov edi,[v_obj] - mov ecx,[k_scale] - mov ebx,[coord_x] - mov edx,[coord_y] - add edi,vox_offs_data - mov esi,[coord_z] - stdcall vox_go_in_node, [v_obj], [obj_n] -popad - ret -endp - -;input: -; ebx - coord_x -; edx - coord_y -; esi - coord_z -; ecx - уровень текушего узла -; edi - указатель на данные воксельного объекта -align 4 -proc vox_go_in_node, v_obj:dword, obj_n:dword - cmp byte[edi+3],0 ;смотрим есть ли поддеревья - je .sub_trees - ;рекурсивный перебор поддеревьев - push eax edx - - ;прорисовка рамки если размер узла = 1 - cmp ecx,0 - jne @f - stdcall buf2d_vox_obj_create_node, [obj_n], ebx,edx,esi, [v_zoom], [edi] - @@: - - ;вход внутрь узла - dec ecx - mov ah,byte[edi+3] - add edi,4 - mov al,8 - .cycle: - bt ax,8 ;тестируем только ah - jnc .c_next - push ebx edx esi - stdcall vox_corect_coords, [v_obj] - stdcall vox_go_in_node, [v_obj], [obj_n] - pop esi edx ebx - .c_next: - shr ah,1 - dec al - jnz .cycle - - ;выход из узла - inc ecx - pop edx eax - - jmp .end_f - .sub_trees: - ;рисуем узел - cmp ecx,0 - jne @f - stdcall buf2d_vox_obj_create_node, [obj_n], ebx,edx,esi, [v_zoom], [edi] - @@: - - add edi,4 - .end_f: - ret -endp - -;description: -;функция для коректировки координат -;направления осей координат в вокселе: -;*z -;| -;+ -; * y -; / -;+ -; \ -; * x -;input: -; al - номер узла в дереве (от 1 до 8) -; ebx - координата x -; edx - координата y -; esi - координата z -; ecx - уровень текушего узла -;output: -; ebx - новая координата x -; edx - новая координата y -; esi - новая координата z -align 4 -proc vox_corect_coords, v_obj:dword - cmp ecx,0 - jl .end_f ;для ускорения отрисовки - - push eax edi - and eax,15 ;выделяем номер узла в дереве - mov edi,[v_obj] - add edi,vox_offs_tree_table - add edi,8 - sub edi,eax - - xor eax,eax - inc eax - cmp ecx,1 - jl .no_scale ;во избежание зацикливания - shl eax,cl - .no_scale: - - bt word[edi],0 ;test voxel coord x - jnc @f - add ebx,eax - @@: - bt word[edi],1 ;test voxel coord y - jnc @f - add edx,eax - @@: - bt word[edi],2 ;test voxel coord z - jnc @f - add esi,eax - @@: - pop edi eax - .end_f: - ret -endp - -align 4 -v_zoom dd 3 ;текущий масштаб -v_cur_x dd 0 ;координата курсора x -v_cur_y dd 0 ;координата курсора y (но ось в объекте z) -n_plane dd 0 ;плоскость сечения -v_color dd 0xff ;цвет карандаша -mode_light dd 1 ;режим освещения -cam_x dd 0 -cam_y dd 0 -cam_z dd 0 -;сдвиги объекта при пересоздании (передвижении) -mov_x dd 0 -mov_y dd 0 -mov_z dd 0 -scaled_zoom dd 5 ;масштаб после которого начинается рисование части изображения -tile_size dd ? ;размер квадратика на плоскости с сечением -max_open_file_size dd ? -brush_w dd 5 ;ширина кисти -brush_h dd 5 ;высота кисти -brush_data dd 1 shl 31,1 shl 30,1 shl 30,1 shl 30,1 shl 31 -dd 1 shl 30,1 shl 30,1 shl 30,1 shl 30,1 shl 30 -dd 1 shl 30,1 shl 30,1 shl 30,1 shl 30,1 shl 30 -dd 1 shl 30,1 shl 30,1 shl 30,1 shl 30,1 shl 30 -dd 1 shl 31,1 shl 30,1 shl 30,1 shl 30,1 shl 31 -rd 999 ;32*32-25 - -if lang eq ru_RU -txt_zoom db 'Масштаб:',0 -txt_curor: db 'Курсор: ' -.size: rb 10 -txt_n_plane db 'Сечение:',0 -txt_color db 'Цвет:',0 -txt_mov_offs: db 'Смещение: ' -else -txt_zoom db 'Scale:',0 -txt_curor: db 'Cursor: ' -.size: rb 10 -txt_n_plane db 'Section:',0 -txt_color db 'Color:',0 -txt_mov_offs: db 'Offset: ' -end if -.size: rb 30 -txt_mull db '*',0 -txt_space db ' ',0 -txt_buf rb 16 - -align 4 -draw_objects: - stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер - stdcall [buf2d_clear], buf_0z, 0 ;чистим буфер - stdcall [buf2d_clear], buf_pl, [buf_pl.color] ;чистим буфер - - push eax ebx ecx - stdcall [buf2d_vox_obj_get_img_w_3g], buf_vox,[v_zoom] - mov ebx,[buf_0.w] - sub ebx,eax - shr ebx,1 ;ebx - для центровки маленьких изображений по горизонтали - - xor ecx,ecx - stdcall [buf2d_vox_obj_get_img_h_3g], buf_vox,[v_zoom] - cmp eax,[buf_0.h] - jg @f - mov ecx,[buf_0.h] - sub ecx,eax - shr ecx,1 ;ecx - для центровки маленьких изображений по - @@: - - mov eax,[v_zoom] - cmp eax,[scaled_zoom] - jg @f - ;обычный режим изображения - stdcall [buf2d_vox_obj_draw_3g], buf_0, buf_0z, buf_vox,\ - [open_file_vox], ebx,ecx, 0, eax - stdcall [buf2d_vox_obj_draw_pl], buf_pl, [open_file_vox],\ - OT_MAP_X,OT_MAP_Y,[tile_size], eax, [n_plane], [sc.work_graph] - stdcall [buf2d_vox_obj_draw_1g], buf_0, buf_0z,\ - [open_file_vox], 0,0, eax - bt dword[mode_light],0 - jnc .end_1 - stdcall [buf2d_vox_obj_draw_3g_shadows], buf_0, buf_0z, buf_vox, ebx,ecx, 0, eax, 3 - .end_1: - jmp .end_0 - @@: - ;режим масштабирования изображения - sub eax,[scaled_zoom] - stdcall [buf2d_vox_obj_draw_3g_scaled], buf_0, buf_0z, buf_vox,\ - [open_file_vox], 0,0, 0, [scaled_zoom], [cam_x],[cam_y],[cam_z],eax, [sc.work_graph] ;scroll -> 2^eax - stdcall [buf2d_vox_obj_draw_pl_scaled], buf_pl, [open_file_vox],\ - OT_MAP_X,OT_MAP_Y,[tile_size], [scaled_zoom], [n_plane], [sc.work_graph],[cam_x],[cam_y],[cam_z],eax - bt dword[mode_light],0 - jnc .end_2 - stdcall [buf2d_vox_obj_draw_3g_shadows], buf_0, buf_0z, buf_vox, 0,0, 0, [scaled_zoom], 3 - .end_2: - .end_0: - pop ecx ebx eax - - call draw_vox_cursor - stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране - stdcall [buf2d_draw], buf_pl ;обновляем буфер на экране - .end_f: - ret - -;рисование курсора -align 4 -draw_vox_cursor: -pushad - mov ecx,[v_zoom] - cmp ecx,[scaled_zoom] - jle @f - mov ecx,[scaled_zoom] - @@: - xor edx,edx - inc edx - shl edx,cl - - mov eax,[v_cur_x] - cmp eax,edx - jge .end_f ;курсор за пределами поля - mov edi,[tile_size] - imul eax,edi - add eax,OT_MAP_X - mov ebx,edx - dec ebx - sub ebx,[v_cur_y] - imul ebx,edi - add ebx,OT_MAP_Y - inc eax - inc ebx - sub edi,2 - stdcall [buf2d_rect_by_size], buf_pl, eax,ebx, edi,edi,[sc.work_graph] - dec ebx - add edi,2 - - ;горизонтальные линии - sub eax,2 - mov ecx,edi - imul edi,edx - shr ecx,1 - add ebx,ecx ;центровка по середине клетки - mov ecx,OT_MAP_X - add edi,ecx - stdcall [buf2d_line], buf_pl, ecx,ebx, eax,ebx,[sc.work_graph] - add eax,[tile_size] - inc eax - cmp eax,edi - jge @f ;если курсор на краю поля - dec edi - stdcall [buf2d_line], buf_pl, eax,ebx, edi,ebx,[sc.work_graph] - @@: - - .end_f: -popad - ret - - -;данные для диалога открытия файлов -align 4 -OpenDialog_data: -.type dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию -.procinfo dd procinfo ;+4 -.com_area_name dd communication_area_name ;+8 -.com_area dd 0 ;+12 -.opendir_path dd plugin_path ;+16 -.dir_default_path dd default_dir ;+20 -.start_path dd file_name ;+24 путь к диалогу открытия файлов -.draw_window dd draw_window ;+28 -.status dd 0 ;+32 -.openfile_path dd openfile_path ;+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 - -default_dir db '/sys',0 - -communication_area_name: - db 'FFFFFFFF_open_dialog',0 -open_dialog_name: - db 'opendial',0 -communication_area_default_path: - db '/sys/File managers/',0 - -Filter: -dd Filter.end - Filter ;.1 -.1: -db 'VOX',0 -.end: -db 0 - - -system_dir_0 db '/sys/lib/' -lib_name_0 db 'proc_lib.obj',0 -system_dir_1 db '/sys/lib/' -lib_name_1 db 'libimg.obj',0 -system_dir_2 db '/sys/lib/' -lib_name_2 db 'buf2d.obj',0 -system_dir_3 db '/sys/lib/' -lib_name_3 db 'libini.obj',0 - -l_libs_start: - lib0 l_libs lib_name_0, file_name, system_dir_0, import_proclib - lib1 l_libs lib_name_1, file_name, system_dir_1, import_libimg - lib2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d - lib3 l_libs lib_name_3, file_name, system_dir_3, import_libini -l_libs_end: - -align 4 -import_libimg: - dd alib_init1 - img_is_img dd aimg_is_img - img_info dd aimg_info - img_from_file dd aimg_from_file - img_to_file dd aimg_to_file - img_from_rgb dd aimg_from_rgb - img_to_rgb dd aimg_to_rgb - img_to_rgb2 dd aimg_to_rgb2 - img_decode dd aimg_decode - img_encode dd aimg_encode - img_create dd aimg_create - img_destroy dd aimg_destroy - img_destroy_layer dd aimg_destroy_layer - img_count dd aimg_count - img_lock_bits dd aimg_lock_bits - img_unlock_bits dd aimg_unlock_bits - img_flip dd aimg_flip - img_flip_layer dd aimg_flip_layer - img_rotate dd aimg_rotate - img_rotate_layer dd aimg_rotate_layer - img_draw dd aimg_draw - - dd 0,0 - alib_init1 db 'lib_init',0 - aimg_is_img db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение - aimg_info db 'img_info',0 - aimg_from_file db 'img_from_file',0 - aimg_to_file db 'img_to_file',0 - aimg_from_rgb db 'img_from_rgb',0 - aimg_to_rgb db 'img_to_rgb',0 ;преобразование изображения в данные RGB - aimg_to_rgb2 db 'img_to_rgb2',0 - aimg_decode db 'img_decode',0 ;автоматически определяет формат графических данных - aimg_encode db 'img_encode',0 - aimg_create db 'img_create',0 - aimg_destroy db 'img_destroy',0 - aimg_destroy_layer db 'img_destroy_layer',0 - aimg_count db 'img_count',0 - aimg_lock_bits db 'img_lock_bits',0 - aimg_unlock_bits db 'img_unlock_bits',0 - aimg_flip db 'img_flip',0 - aimg_flip_layer db 'img_flip_layer',0 - aimg_rotate db 'img_rotate',0 - aimg_rotate_layer db 'img_rotate_layer',0 - aimg_draw db 'img_draw',0 - -align 4 -import_proclib: - OpenDialog_Init dd aOpenDialog_Init - OpenDialog_Start dd aOpenDialog_Start -dd 0,0 - aOpenDialog_Init db 'OpenDialog_init',0 - aOpenDialog_Start db 'OpenDialog_start',0 - -align 4 -import_buf2d: - init dd sz_init - buf2d_create dd sz_buf2d_create - buf2d_create_f_img dd sz_buf2d_create_f_img - buf2d_clear dd sz_buf2d_clear - buf2d_draw dd sz_buf2d_draw - buf2d_delete dd sz_buf2d_delete - buf2d_line dd sz_buf2d_line - buf2d_rect_by_size dd sz_buf2d_rect_by_size - buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size - buf2d_circle dd sz_buf2d_circle - buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2 - buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2 - buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8 - buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32 - buf2d_bit_blt dd sz_buf2d_bit_blt - buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp - buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha - buf2d_curve_bezier dd sz_buf2d_curve_bezier - buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix - buf2d_draw_text dd sz_buf2d_draw_text - buf2d_crop_color dd sz_buf2d_crop_color - buf2d_offset_h dd sz_buf2d_offset_h - buf2d_flood_fill dd sz_buf2d_flood_fill - buf2d_set_pixel dd sz_buf2d_set_pixel - buf2d_get_pixel dd sz_buf2d_get_pixel - buf2d_vox_brush_create dd sz_buf2d_vox_brush_create - buf2d_vox_brush_delete dd sz_buf2d_vox_brush_delete - buf2d_vox_obj_get_img_w_3g dd sz_buf2d_vox_obj_get_img_w_3g - buf2d_vox_obj_get_img_h_3g dd sz_buf2d_vox_obj_get_img_h_3g - buf2d_vox_obj_draw_1g dd sz_buf2d_vox_obj_draw_1g - buf2d_vox_obj_draw_3g dd sz_buf2d_vox_obj_draw_3g - buf2d_vox_obj_draw_3g_scaled dd sz_buf2d_vox_obj_draw_3g_scaled - buf2d_vox_obj_draw_3g_shadows dd sz_buf2d_vox_obj_draw_3g_shadows - buf2d_vox_obj_draw_pl dd sz_buf2d_vox_obj_draw_pl - buf2d_vox_obj_draw_pl_scaled dd sz_buf2d_vox_obj_draw_pl_scaled - - dd 0,0 - sz_init db 'lib_init',0 - sz_buf2d_create db 'buf2d_create',0 - sz_buf2d_create_f_img db 'buf2d_create_f_img',0 - sz_buf2d_clear db 'buf2d_clear',0 - sz_buf2d_draw db 'buf2d_draw',0 - sz_buf2d_delete db 'buf2d_delete',0 - sz_buf2d_line db 'buf2d_line',0 - sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0 - sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0 - sz_buf2d_circle db 'buf2d_circle',0 - sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0 - sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0 - sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0 - sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0 - sz_buf2d_bit_blt db 'buf2d_bit_blt',0 - sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0 - sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0 - sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0 - sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0 - sz_buf2d_draw_text db 'buf2d_draw_text',0 - sz_buf2d_crop_color db 'buf2d_crop_color',0 - sz_buf2d_offset_h db 'buf2d_offset_h',0 - sz_buf2d_flood_fill db 'buf2d_flood_fill',0 - sz_buf2d_set_pixel db 'buf2d_set_pixel',0 - sz_buf2d_get_pixel db 'buf2d_get_pixel',0 - sz_buf2d_vox_brush_create db 'buf2d_vox_brush_create',0 - sz_buf2d_vox_brush_delete db 'buf2d_vox_brush_delete',0 - sz_buf2d_vox_obj_get_img_w_3g db 'buf2d_vox_obj_get_img_w_3g',0 - sz_buf2d_vox_obj_get_img_h_3g db 'buf2d_vox_obj_get_img_h_3g',0 - sz_buf2d_vox_obj_draw_1g db 'buf2d_vox_obj_draw_1g',0 - sz_buf2d_vox_obj_draw_3g db 'buf2d_vox_obj_draw_3g',0 - sz_buf2d_vox_obj_draw_3g_scaled db 'buf2d_vox_obj_draw_3g_scaled',0 - sz_buf2d_vox_obj_draw_3g_shadows db 'buf2d_vox_obj_draw_3g_shadows',0 - sz_buf2d_vox_obj_draw_pl db 'buf2d_vox_obj_draw_pl',0 - sz_buf2d_vox_obj_draw_pl_scaled db 'buf2d_vox_obj_draw_pl_scaled',0 - -align 4 -import_libini: - dd alib_init2 - ini_get_str dd aini_get_str - ini_get_int dd aini_get_int - ini_get_color dd aini_get_color -dd 0,0 - alib_init2 db 'lib_init',0 - aini_get_str db 'ini_get_str',0 - aini_get_int db 'ini_get_int',0 - aini_get_color db 'ini_get_color',0 - -;буфер основного изображения -align 4 -buf_0: dd 0 ;указатель на дaные изображения -.l: dw 5 ;+4 left -.t: dw 45 ;+6 top -.w: dd 192+6 ;+8 w -.h: dd 224+7 ;+12 h -.color: dd 0xffffff ;+16 color - db 24 ;+20 bit in pixel - -;буфер глубины основного изображения -align 4 -buf_0z: dd 0 - dw 0 ;+4 left - dw 0 ;+6 top -.w: dd 192+6 ;+8 w -.h: dd 224+7 ;+12 h -.color: dd 0 ;+16 color - db 32 ;+20 bit in pixel - -;буфер для рисования среза объекта -align 4 -buf_pl: dd 0 -.l: dw 15+192+6 ;+4 left -.t: dw 45 ;+6 top -.w: dd 320 ;+8 w -.h: dd 330 ;+12 h -.color: dd 0xffffff ;+16 color - db 24 ;+20 bit in pixel - -;буфер для улучшеного рендера -align 4 -buf_r_img: - rb BUF_STRUCT_SIZE -align 4 -buf_r_z: - rb BUF_STRUCT_SIZE - -align 4 -cursor_pointer dd 0 ;указатель на данные для курсора - - -;данные для создания минимального единичного вокселя -align 4 -vox_6_7_z: -dd 0,0,1,1,0,0,\ - 0,2,2,2,2,0,\ - 2,2,2,2,2,2,\ - 2,3,2,2,3,2,\ - 2,3,3,3,3,2,\ - 0,3,3,3,3,0,\ - 0,0,3,3,0,0 - -align 4 -buf_vox: - db 6,7,4,3 ;w,h,h_osn,n - rb BUF_STRUCT_SIZE*(3+1) - -align 16 -i_end: - procinfo process_information - sc system_colors - run_file_70 FileInfoBlock - mouse_dd dd ? - wnd_s_pos: ;место для настроек стартовой позиции окна - rq 0 - rb 4096 ;2048 -stacktop: - sys_path rb 1024 - file_name rb 2048 ;4096 - plugin_path rb 1024 ;4096 - openfile_path rb 1024 ;4096 - filename_area rb 256 -mem: +use32 + org 0 + db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт + dd 1, start, i_end, mem, stacktop, openfile_path, sys_path + +include '../../../macros.inc' +include '../../../proc32.inc' +include '../../../KOSfuncs.inc' +include '../../../load_img.inc' +include '../../../load_lib.mac' +include '../trunk/vox_draw.inc' +include '../trunk/vox_rotate.inc' +include '../trunk/str.inc' +include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US. + +@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load +if lang eq ru_RU +caption db 'Перемещение вокселей 04.05.20',0 ;подпись окна +else ; Default to en_US +caption db 'Voxel mover 04.05.20',0 +end if + +IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3 +image_data_toolbar dd 0 + +;значения задаваемые по умолчанию, без ini файла +ini_def_window_t equ 10 +ini_def_window_l equ 10 +ini_def_window_w equ 550 +ini_def_window_h equ 415 +ini_def_buf_w equ 198 ;=192+6 +ini_def_buf_h equ 231 ;=224+7 +ini_def_s_zoom equ 5 +ini_def_t_size equ 10 +ini_def_color_b equ 0xffffff +;описание параматров для ini файла +ini_name db 'vox_mover.ini',0 +ini_sec_window db 'Window',0 +key_window_t db 't',0 +key_window_l db 'l',0 +key_window_w db 'w',0 +key_window_h db 'h',0 +key_buf_w db 'buf_w',0 +key_buf_h db 'buf_h',0 +ini_sec_options db 'Options',0 +key_s_zoom db 's_zoom',0 +key_t_size db 'tile_size',0 +key_f_size db 'file_size',0 +key_col_b db 'c_background',0 + +OT_MAP_X equ 0 +OT_MAP_Y equ 0 +OT_CAPT_X_COLOR equ 5 ;отступ для подписи цвета +OT_CAPT_Y_COLOR equ 30 +PEN_MODE_NONE equ -1 +PEN_MODE_CLEAR equ 0 ;режим стирания +PEN_MODE_SELECT_COLOR equ 2 ;режим выбора цвета + +align 4 +start: + load_libraries l_libs_start,l_libs_end + ;проверка на сколько удачно загузилась библиотека + mov ebp,lib0 + cmp dword [ebp+ll_struc_size-4],0 + jz @f + mcall SF_TERMINATE_PROCESS + @@: + mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors + mcall SF_SET_EVENTS_MASK,0xC0000027 + stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога + +;--- load ini file --- + copy_path ini_name,sys_path,file_name,0 + ;window startup pozition + stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_l,ini_def_window_l + mov word[wnd_s_pos+2],ax + stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_w,ini_def_window_w + mov word[wnd_s_pos],ax + stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_t,ini_def_window_t + mov word[wnd_s_pos+6],ax + stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_h,ini_def_window_h + mov word[wnd_s_pos+4],ax + ;image buffer size + stdcall dword[ini_get_int],file_name,ini_sec_window,key_buf_w,ini_def_buf_w + mov [buf_0.w],eax + mov [buf_0z.w],eax + add ax,15 + mov [buf_pl.l],ax ;отступ для правого окна + stdcall dword[ini_get_int],file_name,ini_sec_window,key_buf_h,ini_def_buf_h + mov [buf_0.h],eax + mov [buf_0z.h],eax + ;цвет фона + stdcall dword[ini_get_color],file_name,ini_sec_window,key_col_b,ini_def_color_b + mov [buf_0.color],eax + mov [buf_pl.color],eax + + ;мастаб, после которого будет увеличение + stdcall dword[ini_get_int],file_name,ini_sec_options,key_s_zoom,ini_def_s_zoom + mov [scaled_zoom],eax + ;размер квадратика на плоскости сечения + stdcall dword[ini_get_int],file_name,ini_sec_options,key_t_size,ini_def_t_size + mov [tile_size],eax + + stdcall dword[ini_get_int],file_name,ini_sec_options,key_f_size,64 + shl eax,10 + mov [max_open_file_size],eax + + mov ecx,[scaled_zoom] + xor eax,eax + inc eax + shl eax,cl + imul eax,[tile_size] + mov [buf_pl.w],eax + add eax,[tile_size] + mov [buf_pl.h],eax + + + stdcall [buf2d_create], buf_0 ;создание буфера изображения + stdcall [buf2d_create], buf_0z ;создание буфера глубины + stdcall [buf2d_create], buf_pl ;создание буфера для сечения + + stdcall [buf2d_vox_brush_create], buf_vox, vox_6_7_z + + include_image_file 'toolbar_m.png', image_data_toolbar + + stdcall mem.Alloc,[max_open_file_size] + mov dword[open_file_vox],eax + stdcall mem.Alloc,[max_open_file_size] + mov dword[moved_file_vox],eax + + stdcall but_new_file, [open_file_vox] + stdcall but_new_file, [moved_file_vox] + ;проверка командной строки + cmp dword[openfile_path],0 + je @f + call but_open_file_cmd_lin + @@: + +align 4 +red_win: + call draw_window + +align 4 +still: + mcall SF_WAIT_EVENT + + cmp al,1 + jz red_win + cmp al,2 + jz key + cmp al,3 + jz button + cmp al,6 + jne @f + mcall SF_THREAD_INFO,procinfo,-1 + cmp ax,word[procinfo+4] + jne @f ;окно не активно + call mouse + @@: + jmp still + +align 4 +mouse: + pushad + mcall SF_MOUSE_GET,SSF_BUTTON + bt eax,1 ;right button + jnc @f + mcall SF_MOUSE_GET,SSF_WINDOW_POSITION + mov ebx,eax + shr ebx,16 + and eax,0xffff + stdcall get_buf_color, buf_0 + stdcall get_buf_color, buf_pl + jmp .end_f + @@: + bt eax,0 ;left button + jnc .end_f + mcall SF_MOUSE_GET,SSF_WINDOW_POSITION + mov ebx,eax + shr ebx,16 + and eax,0xffff + + push eax ebx + mov edx,[v_zoom] + cmp edx,[scaled_zoom] + jle @f + ;режим масштабирования изображения + sub edx,[scaled_zoom] + sub ax,word[buf_0.t] + sub bx,word[buf_0.l] + stdcall get_mouse_ev_scale, buf_vox, ebx, eax, [scaled_zoom],edx + cmp eax,0 + je @f + mov ebx,eax + and eax,0x3fffffff + rol ebx,2 + and ebx,3 + dec ebx + + shl ebx,2 + add ebx,cam_x + mov dword[ebx],eax ;change [cam_x] or [cam_y] or [cam_z] + call draw_objects + + pop ebx eax + jmp .end_f + @@: + pop ebx eax + + + ;eax - mouse coord y + ;ebx - mouse coord x + movzx edx,word[buf_pl.t] + add edx,OT_MAP_Y + cmp eax,edx + jl .end_f + sub eax,edx + xor edx,edx + mov ecx,[tile_size] ;H + div ecx + movzx edx,word[buf_pl.l] + add edx,OT_MAP_X + cmp ebx,edx + jl .end_f + call convert_y ;преобразование координаты y + cmp eax,0 + jge .end_0 ;ограничение по нижней координате y + cmp eax,-1 + jne .end_f + ;меняем сечение, попали на квадратик + sub ebx,edx + mov eax,ebx + xor edx,edx + mov ecx,[tile_size] ;W + div ecx + mov [n_plane],eax + jmp .end_1 + .end_0: + mov [v_cur_y],eax ;Y-coord + sub ebx,edx + mov eax,ebx + xor edx,edx + mov ecx,[tile_size] ;W + div ecx + mov [v_cur_x],eax ;X-coord + + .end_1: + call draw_objects + call draw_pok + .end_f: + popad + ret + +;input: +; eax - coord y +; ebx - coord x +align 4 +proc get_buf_color, buf:dword +pushad + mov edi,[buf] + cmp ax,buf2d_t + jl .end_f + sub ax,buf2d_t + cmp eax,buf2d_h + jg .end_f + cmp bx,buf2d_l + jl .end_f + sub bx,buf2d_l + cmp ebx,buf2d_w + jg .end_f + stdcall [buf2d_get_pixel], edi,ebx,eax + mov [v_color],eax + call on_change_color ;отображаем изменения цвета + .end_f: +popad + ret +endp + +;преобразовываем координату y (значение должно увеличиваться с низу вверх) +align 4 +convert_y: + push ecx edx + mov ecx,[v_zoom] + cmp ecx,[scaled_zoom] + jle @f + mov ecx,[scaled_zoom] + @@: + mov edx,1 + cmp ecx,1 + jl @f + shl edx,cl + @@: + sub edx,eax + dec edx + mov eax,edx + pop edx ecx + ret + +align 4 +draw_window: +pushad + mcall SF_REDRAW,SSF_BEGIN_DRAW + + ; *** рисование главного окна (выполняется 1 раз при запуске) *** + mov edx,[sc.work] + or edx,(3 shl 24)+0x30000000 + mcall SF_CREATE_WINDOW,dword[wnd_s_pos],dword[wnd_s_pos+4],,,caption + + ; *** создание кнопок на панель *** + mov esi,[sc.work_button] + mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3 + + mov ebx,(30 shl 16)+20 + mov edx,4 + int 0x40 + add ebx,25 shl 16 + mov edx,5 + int 0x40 + add ebx,30 shl 16 + mov edx,6 + int 0x40 + add ebx,25 shl 16 + mov edx,7 + int 0x40 + add ebx,25 shl 16 + mov edx,8 + int 0x40 + add ebx,25 shl 16 + mov edx,9 + int 0x40 + add ebx,25 shl 16 + mov edx,10 + int 0x40 + add ebx,25 shl 16 + mov edx,11 + int 0x40 + add ebx,25 shl 16 + mov edx,12 + int 0x40 + add ebx,25 shl 16 + mov edx,13 + int 0x40 + add ebx,25 shl 16 + mov edx,14 + int 0x40 + add ebx,25 shl 16 + mov edx,15 + int 0x40 + add ebx,25 shl 16 + mov edx,16 + int 0x40 + add ebx,25 shl 16 + mov edx,17 + int 0x40 + add ebx,25 shl 16 + mov edx,18 + int 0x40 + add ebx,25 shl 16 + mov edx,19 + int 0x40 + add ebx,25 shl 16 + mov edx,20 + int 0x40 + + ; *** рисование иконок на кнопках *** + mov edx,(7 shl 16)+7 ;icon new + mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16 + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;icon open + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;icon save + int 0x40 + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(30 shl 16) ;увелич. масштаб + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;уменьш. масштаб + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;поворот 1 + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;поворот 2 + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;сдвиг плоскости + + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;сдвиг плоскости - + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;освещение + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;рендер 2*2 + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ; + int 0x40 + + ; *** рисование буферов *** + call draw_objects + call draw_pok + + mcall SF_REDRAW,SSF_END_DRAW +popad + ret + +align 4 +draw_pok: + mov esi,[sc.work_button_text] + or esi,(1 shl 30) + mov edi,[sc.work_button] + mcall SF_DRAW_NUMBER, (3 shl 16)+(1 shl 31), [v_zoom], ((350+6*9) shl 16)+OT_CAPT_Y_COLOR+2 ;масштаб + mov ecx,[n_plane] + add edx,115 shl 16 ;9 + int 0x40 ;номер сечения + + ;обновление параметров курсора + mov dword[txt_curor.size],0 + mov eax,dword[v_cur_x] + mov edi,txt_curor.size + stdcall convert_int_to_str,10 + stdcall str_cat, edi,txt_mull + mov eax,dword[v_cur_y] + mov edi,txt_buf + stdcall convert_int_to_str,16 + stdcall str_cat, txt_curor.size,edi + stdcall str_cat, txt_curor.size,txt_space ;завершающий пробел + + ;обновление параметров кисти + mov dword[txt_mov_offs.size],0 + mov eax,dword[mov_x] + mov edi,txt_mov_offs.size + stdcall convert_int_to_str,30 + stdcall str_cat, edi,txt_space + mov eax,dword[mov_y] + mov edi,txt_buf + stdcall convert_int_to_str,16 + stdcall str_cat, txt_mov_offs.size,edi + stdcall str_cat, txt_mov_offs.size,txt_space + mov eax,dword[mov_z] + mov edi,txt_buf + stdcall convert_int_to_str,16 + stdcall str_cat, txt_mov_offs.size,edi + stdcall str_cat, txt_mov_offs.size,txt_space ;завершающий пробел + + ;рисование текста + mov ecx,[sc.work_text] + or ecx,0x80000000 ;or (1 shl 30) + mcall SF_DRAW_TEXT, (OT_CAPT_X_COLOR shl 16)+OT_CAPT_Y_COLOR+2,,txt_color + + mov edx,txt_curor + add ebx,115 shl 16 + or ecx,(1 shl 30) + mov edi,[sc.work] + int 0x40 + + mov edx,txt_mov_offs + add ebx,115 shl 16 + int 0x40 + + mov edx,txt_zoom + add ebx,115 shl 16 + int 0x40 + + mov edx,txt_n_plane + add ebx,115 shl 16 + int 0x40 + + call on_change_color + ret + +align 4 +on_change_color: +pushad + mov ebx,((OT_CAPT_X_COLOR+35) shl 16)+16 ;по оси x + mov ecx,(OT_CAPT_Y_COLOR shl 16)+12 ;по оси y + mcall SF_DRAW_RECT,,,[v_color] + + mov ecx,edx + mov edx,((OT_CAPT_X_COLOR+55) shl 16)+OT_CAPT_Y_COLOR+2 + mov esi,[sc.work_text] + add esi,(1 shl 30) + mov edi,[sc.work] + mcall SF_DRAW_NUMBER,(1 shl 8)+(6 shl 16) +popad + ret + +align 4 +key: + mcall SF_GET_KEY + jmp still + + +align 4 +button: + mcall SF_GET_BUTTON + cmp ah,3 + jne @f + stdcall but_new_file, [open_file_vox] + call draw_objects + call draw_pok + jmp still + @@: + cmp ah,4 + jne @f + call but_open_file + jmp still + @@: + cmp ah,5 + jne @f + call but_save_file + jmp still + @@: + cmp ah,6 + jne @f + call but_zoom_p + jmp still + @@: + cmp ah,7 + jne @f + call but_zoom_m + jmp still + @@: + cmp ah,8 + jne @f + call but_3 + jmp still + @@: + cmp ah,9 + jne @f + call but_4 + jmp still + @@: + cmp ah,10 + jne @f + call but_plane_inc + jmp still + @@: + cmp ah,11 + jne @f + call but_plane_dec + jmp still + @@: + cmp ah,12 + jne @f + call but_light + jmp still + @@: + cmp ah,13 + jne @f + call but_rend_2_2 + jmp still + @@: + cmp ah,14 + jne @f + call but_move + jmp still + @@: + cmp ah,15 + jne @f + dec dword[mov_x] + call draw_pok + jmp still + @@: + cmp ah,16 + jne @f + inc dword[mov_x] + call draw_pok + jmp still + @@: + cmp ah,17 + jne @f + dec dword[mov_y] + call draw_pok + jmp still + @@: + cmp ah,18 + jne @f + inc dword[mov_y] + call draw_pok + jmp still + @@: + cmp ah,19 + jne @f + dec dword[mov_z] + call draw_pok + jmp still + @@: + cmp ah,20 + jne @f + inc dword[mov_z] + call draw_pok + jmp still + @@: + cmp ah,1 + jne still +.exit: + stdcall [buf2d_delete],buf_0 + stdcall [buf2d_delete],buf_0z + cmp dword[buf_r_img],0 + je @f + stdcall [buf2d_delete],buf_r_img + stdcall [buf2d_delete],buf_r_z + @@: + stdcall [buf2d_vox_brush_delete], buf_vox + stdcall mem.Free,[image_data_toolbar] + stdcall mem.Free,[open_file_vox] + stdcall mem.Free,[moved_file_vox] + mcall SF_TERMINATE_PROCESS + +;данные для инициализации воксельного объекта +align 4 +vox_new_data: + db 2,0,0,0 + db 0,1,2,3, 4,5,6,7 ;default table + dd 0 ;null node + +;инициализация воксельного объекта +align 4 +proc but_new_file uses ecx edi esi, file_data:dword + mov ecx,vox_offs_data+4 + mov esi,vox_new_data + mov edi,[file_data] + cld + rep movsb + ret +endp + +align 4 +open_file_vox dd 0 ;указатель на область для открытия файлов +moved_file_vox dd 0 + +align 4 +but_open_file: + copy_path open_dialog_name,communication_area_default_path,file_name,0 +pushad + mov [OpenDialog_data.type],0 + stdcall [OpenDialog_Start],OpenDialog_data + cmp [OpenDialog_data.status],2 + je @f + ;код при удачном открытии диалога + call but_open_file_cmd_lin + @@: +popad + ret + +align 4 +but_open_file_cmd_lin: +pushad + mov [run_file_70.Function], SSF_READ_FILE + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + m2m dword[run_file_70.Count], dword[max_open_file_size] + m2m [run_file_70.Buffer], [open_file_vox] + mov byte[run_file_70+20], 0 + mov dword[run_file_70.FileName], openfile_path + mcall SF_FILE,run_file_70 + cmp ebx,0xffffffff + je .end_open_file + + mcall SF_SET_CAPTION,1,openfile_path + + ;--- + mov eax,[open_file_vox] + movzx eax,byte[eax] + and eax,0xff ;берем масштаб по умолчанию + mov dword[v_zoom],eax ;берем масштаб по умолчанию + mov dword[cam_x],0 + mov dword[cam_y],0 + mov dword[cam_z],0 + call draw_objects + .end_open_file: +popad + ret + +align 4 +but_save_file: + copy_path open_dialog_name,communication_area_default_path,file_name,0 + pushad + mov [OpenDialog_data.type],1 + stdcall [OpenDialog_Start],OpenDialog_data + cmp [OpenDialog_data.status],2 + je .end_save_file + ;код при удачном открытии диалога + + mov eax,dword[v_zoom] ;задаем масштаб по умолчанию + mov ebx,[moved_file_vox] + mov byte[ebx],al + + stdcall buf2d_vox_obj_get_size, ebx + mov dword[run_file_70.Count], eax ;размер файла + mov [run_file_70.Function], SSF_CREATE_FILE + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + mov ebx, dword[moved_file_vox] + mov [run_file_70.Buffer], ebx + mov byte[run_file_70+20], 0 + mov dword[run_file_70.FileName], openfile_path + mcall SF_FILE,run_file_70 + cmp ebx,0xffffffff + je .end_save_file + + .end_save_file: + popad + ret + +;увеличение масштаба +align 4 +but_zoom_p: + cmp dword[v_zoom],10 ;максимальный размер, до которого можно увеличить 2^10=1024 + jge @f + inc dword[v_zoom] + shl dword[n_plane],1 + push eax + mov eax,[v_zoom] + cmp eax,[scaled_zoom] + jl .end_0 + push ecx + mov ecx,[scaled_zoom] + xor eax,eax + inc eax + shl eax,cl + shl dword[cam_x],1 + shl dword[cam_y],1 + shl dword[cam_z],1 + cmp eax,[n_plane] + jg .end_1 + ;коректировка ползунка + sub [n_plane],eax + inc dword[cam_y] + .end_1: + pop ecx + .end_0: + pop eax + call draw_objects + call draw_pok + @@: + ret + +;уменьшение масштаба +align 4 +but_zoom_m: + cmp dword[v_zoom],1 + jl @f + dec dword[v_zoom] + shr dword[n_plane],1 + push eax + mov eax,[v_zoom] + cmp eax,[scaled_zoom] + jl .end_0 + shr dword[cam_x],1 + shr dword[cam_y],1 + jnc .end_1 + ;коректировка ползунка + push ecx + mov ecx,[scaled_zoom] + dec ecx + xor eax,eax + inc eax + shl eax,cl + add [n_plane],eax + pop ecx + .end_1: + shr dword[cam_z],1 + .end_0: + pop eax + call draw_objects + call draw_pok + @@: + ret + +align 4 +but_3: + stdcall vox_obj_rot_z, [open_file_vox] + call draw_objects + ret + +align 4 +but_4: + stdcall vox_obj_rot_x, [open_file_vox] + call draw_objects + ret + +;сдвигаем плоскость среза +align 4 +but_plane_inc: +push eax ecx + inc dword[n_plane] + mov eax,[v_zoom] + cmp eax,[scaled_zoom] + jle .end_0 + ;происходит масштабирование + mov ecx,[scaled_zoom] + xor eax,eax + inc eax + shl eax,cl + cmp eax,[n_plane] + jg @f + mov dword[n_plane],0 + inc dword[cam_y] ;переходим в соседний куб + neg ecx + ;inc ecx + add ecx,[v_zoom] + xor eax,eax + inc eax + shl eax,cl + cmp eax,[cam_y] + jg @f + mov dword[cam_y],0 ;зацикливаем если вылезли за пределы последнего куба + @@: + jmp .end_1 + .end_0: + ;масштабирование не происходит + mov ecx,eax + xor eax,eax + inc eax + shl eax,cl + cmp eax,[n_plane] + jg .end_1 + mov dword[n_plane],0 + .end_1: + call draw_objects + call draw_pok +pop ecx eax + ret + +;сдвигаем плоскость среза +align 4 +but_plane_dec: + dec dword[n_plane] + cmp dword[n_plane],0 + jge .end_f +push eax ecx + mov ecx,[scaled_zoom] + xor eax,eax + inc eax + shl eax,cl + dec eax + mov dword[n_plane],eax + + mov eax,[v_zoom] + cmp eax,[scaled_zoom] + jle .end_0 + ;происходит масштабирование + dec dword[cam_y] ;переходим в соседний куб + cmp dword[cam_y],0 + jge .end_0 + + mov ecx,eax + sub ecx,[scaled_zoom] + xor eax,eax + inc eax + shl eax,cl + dec eax + mov dword[cam_y],eax ;если номер куба оказался меньше 0 исправляем на максимальное значение + .end_0: +pop ecx eax + .end_f: + call draw_objects + call draw_pok + ret + +align 4 +but_light: + xor dword[mode_light],1 + call draw_objects + ret + +align 4 +but_rend_2_2: +push edi + cmp dword[buf_r_img],0 + jne @f + ;создание буфера для рендера + push ecx esi + mov edi,buf_r_img + mov esi,buf_0 + mov ecx,BUF_STRUCT_SIZE + cld + rep movsb ;копируем все параметры с основного буфера + mov edi,buf_r_img + mov buf2d_data,0 + shl buf2d_w,1 ;увеличиваем размер буфера + shl buf2d_h,1 + stdcall [buf2d_create],buf_r_img + + mov edi,buf_r_z + mov esi,buf_0z + mov ecx,BUF_STRUCT_SIZE + cld + rep movsb ;копируем все параметры с основного буфера + mov edi,buf_r_z + mov buf2d_data,0 + shl buf2d_w,1 ;увеличиваем размер буфера + shl buf2d_h,1 + stdcall [buf2d_create],buf_r_z + pop esi ecx + @@: + stdcall [buf2d_clear], buf_r_img, [buf_0.color] ;чистим буфер + stdcall [buf2d_clear], buf_r_z, 0 ;чистим буфер + + push eax ebx ecx + mov eax,[v_zoom] + cmp eax,[scaled_zoom] + jle .end_scaled + ;рендер увеличенной части объекта + mov ebx,[scaled_zoom] + sub eax,ebx + inc ebx + stdcall [buf2d_vox_obj_draw_3g_scaled], buf_r_img, buf_r_z, buf_vox,\ + [open_file_vox], 0,0, 0, ebx, [cam_x],[cam_y],[cam_z],eax, [sc.work_graph] + bt dword[mode_light],0 + jnc @f + stdcall [buf2d_vox_obj_draw_3g_shadows], buf_r_img, buf_r_z, buf_vox, 0,0, 0, ebx, 3 + @@: + xor ebx,ebx + xor ecx,ecx + mov edi,buf_r_img + stdcall [buf2d_img_hdiv2], edi + shr buf2d_h,1 + stdcall [buf2d_img_wdiv2], edi + shr buf2d_w,1 + jmp .show + .end_scaled: + + inc eax + stdcall [buf2d_vox_obj_draw_3g], buf_r_img, buf_r_z, buf_vox, [open_file_vox], 0,0, 0, eax + stdcall [buf2d_vox_obj_draw_1g], buf_r_img, buf_r_z, [open_file_vox], 0,0, eax + bt dword[mode_light],0 + jnc @f + stdcall [buf2d_vox_obj_draw_3g_shadows], buf_r_img, buf_r_z, buf_vox, 0,0, 0, eax, 3 + @@: + + mov edi,buf_r_img + stdcall [buf2d_img_hdiv2], edi + shr buf2d_h,1 + stdcall [buf2d_img_wdiv2], edi + shr buf2d_w,1 + + stdcall [buf2d_vox_obj_get_img_w_3g], buf_vox,[v_zoom] + mov ebx,[buf_0.w] + sub ebx,eax + shr ebx,1 ;ebx - для центровки маленьких изображений по горизонтали + stdcall [buf2d_vox_obj_get_img_h_3g], buf_vox,[v_zoom] + cmp eax,[buf_0.h] + jg @f + mov ecx,[buf_0.h] + sub ecx,eax + shr ecx,1 ;ecx - для центровки маленьких изображений по вертикали + @@: + .show: + stdcall [buf2d_bit_blt], buf_0, ebx,ecx, edi + shl buf2d_h,1 + shl buf2d_w,1 + pop ecx ebx eax +pop edi + stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране + ret + +align 4 +but_move: +push eax + stdcall but_new_file, [moved_file_vox] + mov eax,[v_zoom] + stdcall buf_vox_obj_recreat, [open_file_vox], [moved_file_vox],\ + [mov_x],[mov_y],[mov_z], eax + + stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер + stdcall [buf2d_clear], buf_0z, 0 ;чистим буфер + cmp eax,[scaled_zoom] + jle @f + mov eax,[scaled_zoom] + @@: + stdcall [buf2d_vox_obj_draw_3g], buf_0, buf_0z, buf_vox, [moved_file_vox], 0,0,0, eax +pop eax + stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране + ret + +;description: +; функция рисующая воксельный объект (видно 3 грани) +;input: +; v_obj - воксельный объект +; k_scale - коэф. для масштабирования изображения +align 4 +proc buf_vox_obj_recreat, v_obj:dword, obj_n:dword,\ +coord_x:dword, coord_y:dword, coord_z:dword, k_scale:dword +pushad + mov edi,[v_obj] + mov ecx,[k_scale] + mov ebx,[coord_x] + mov edx,[coord_y] + add edi,vox_offs_data + mov esi,[coord_z] + stdcall vox_go_in_node, [v_obj], [obj_n] +popad + ret +endp + +;input: +; ebx - coord_x +; edx - coord_y +; esi - coord_z +; ecx - уровень текушего узла +; edi - указатель на данные воксельного объекта +align 4 +proc vox_go_in_node, v_obj:dword, obj_n:dword + cmp byte[edi+3],0 ;смотрим есть ли поддеревья + je .sub_trees + ;рекурсивный перебор поддеревьев + push eax edx + + ;прорисовка рамки если размер узла = 1 + cmp ecx,0 + jne @f + stdcall buf2d_vox_obj_create_node, [obj_n], ebx,edx,esi, [v_zoom], [edi] + @@: + + ;вход внутрь узла + dec ecx + mov ah,byte[edi+3] + add edi,4 + mov al,8 + .cycle: + bt ax,8 ;тестируем только ah + jnc .c_next + push ebx edx esi + stdcall vox_corect_coords, [v_obj] + stdcall vox_go_in_node, [v_obj], [obj_n] + pop esi edx ebx + .c_next: + shr ah,1 + dec al + jnz .cycle + + ;выход из узла + inc ecx + pop edx eax + + jmp .end_f + .sub_trees: + ;рисуем узел + cmp ecx,0 + jne @f + stdcall buf2d_vox_obj_create_node, [obj_n], ebx,edx,esi, [v_zoom], [edi] + @@: + + add edi,4 + .end_f: + ret +endp + +;description: +;функция для коректировки координат +;направления осей координат в вокселе: +;*z +;| +;+ +; * y +; / +;+ +; \ +; * x +;input: +; al - номер узла в дереве (от 1 до 8) +; ebx - координата x +; edx - координата y +; esi - координата z +; ecx - уровень текушего узла +;output: +; ebx - новая координата x +; edx - новая координата y +; esi - новая координата z +align 4 +proc vox_corect_coords, v_obj:dword + cmp ecx,0 + jl .end_f ;для ускорения отрисовки + + push eax edi + and eax,15 ;выделяем номер узла в дереве + mov edi,[v_obj] + add edi,vox_offs_tree_table + add edi,8 + sub edi,eax + + xor eax,eax + inc eax + cmp ecx,1 + jl .no_scale ;во избежание зацикливания + shl eax,cl + .no_scale: + + bt word[edi],0 ;test voxel coord x + jnc @f + add ebx,eax + @@: + bt word[edi],1 ;test voxel coord y + jnc @f + add edx,eax + @@: + bt word[edi],2 ;test voxel coord z + jnc @f + add esi,eax + @@: + pop edi eax + .end_f: + ret +endp + +align 4 +v_zoom dd 3 ;текущий масштаб +v_cur_x dd 0 ;координата курсора x +v_cur_y dd 0 ;координата курсора y (но ось в объекте z) +n_plane dd 0 ;плоскость сечения +v_color dd 0xff ;цвет карандаша +mode_light dd 1 ;режим освещения +cam_x dd 0 +cam_y dd 0 +cam_z dd 0 +;сдвиги объекта при пересоздании (передвижении) +mov_x dd 0 +mov_y dd 0 +mov_z dd 0 +scaled_zoom dd 5 ;масштаб после которого начинается рисование части изображения +tile_size dd ? ;размер квадратика на плоскости с сечением +max_open_file_size dd ? +brush_w dd 5 ;ширина кисти +brush_h dd 5 ;высота кисти +brush_data dd 1 shl 31,1 shl 30,1 shl 30,1 shl 30,1 shl 31 +dd 1 shl 30,1 shl 30,1 shl 30,1 shl 30,1 shl 30 +dd 1 shl 30,1 shl 30,1 shl 30,1 shl 30,1 shl 30 +dd 1 shl 30,1 shl 30,1 shl 30,1 shl 30,1 shl 30 +dd 1 shl 31,1 shl 30,1 shl 30,1 shl 30,1 shl 31 +rd 999 ;32*32-25 + +if lang eq ru_RU +txt_zoom db 'Масштаб:',0 +txt_curor: db 'Курсор: ' +.size: rb 10 +txt_n_plane db 'Сечение:',0 +txt_color db 'Цвет:',0 +txt_mov_offs: db 'Смещение: ' + +else ; Default to en_US +txt_zoom db 'Scale:',0 +txt_curor: db 'Cursor: ' +.size: rb 10 +txt_n_plane db 'Section:',0 +txt_color db 'Color:',0 +txt_mov_offs: db 'Offset: ' +end if + +.size: rb 30 +txt_mull db '*',0 +txt_space db ' ',0 +txt_buf rb 16 + +align 4 +draw_objects: + stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер + stdcall [buf2d_clear], buf_0z, 0 ;чистим буфер + stdcall [buf2d_clear], buf_pl, [buf_pl.color] ;чистим буфер + + push eax ebx ecx + stdcall [buf2d_vox_obj_get_img_w_3g], buf_vox,[v_zoom] + mov ebx,[buf_0.w] + sub ebx,eax + shr ebx,1 ;ebx - для центровки маленьких изображений по горизонтали + + xor ecx,ecx + stdcall [buf2d_vox_obj_get_img_h_3g], buf_vox,[v_zoom] + cmp eax,[buf_0.h] + jg @f + mov ecx,[buf_0.h] + sub ecx,eax + shr ecx,1 ;ecx - для центровки маленьких изображений по + @@: + + mov eax,[v_zoom] + cmp eax,[scaled_zoom] + jg @f + ;обычный режим изображения + stdcall [buf2d_vox_obj_draw_3g], buf_0, buf_0z, buf_vox,\ + [open_file_vox], ebx,ecx, 0, eax + stdcall [buf2d_vox_obj_draw_pl], buf_pl, [open_file_vox],\ + OT_MAP_X,OT_MAP_Y,[tile_size], eax, [n_plane], [sc.work_graph] + stdcall [buf2d_vox_obj_draw_1g], buf_0, buf_0z,\ + [open_file_vox], 0,0, eax + bt dword[mode_light],0 + jnc .end_1 + stdcall [buf2d_vox_obj_draw_3g_shadows], buf_0, buf_0z, buf_vox, ebx,ecx, 0, eax, 3 + .end_1: + jmp .end_0 + @@: + ;режим масштабирования изображения + sub eax,[scaled_zoom] + stdcall [buf2d_vox_obj_draw_3g_scaled], buf_0, buf_0z, buf_vox,\ + [open_file_vox], 0,0, 0, [scaled_zoom], [cam_x],[cam_y],[cam_z],eax, [sc.work_graph] ;scroll -> 2^eax + stdcall [buf2d_vox_obj_draw_pl_scaled], buf_pl, [open_file_vox],\ + OT_MAP_X,OT_MAP_Y,[tile_size], [scaled_zoom], [n_plane], [sc.work_graph],[cam_x],[cam_y],[cam_z],eax + bt dword[mode_light],0 + jnc .end_2 + stdcall [buf2d_vox_obj_draw_3g_shadows], buf_0, buf_0z, buf_vox, 0,0, 0, [scaled_zoom], 3 + .end_2: + .end_0: + pop ecx ebx eax + + call draw_vox_cursor + stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране + stdcall [buf2d_draw], buf_pl ;обновляем буфер на экране + .end_f: + ret + +;рисование курсора +align 4 +draw_vox_cursor: +pushad + mov ecx,[v_zoom] + cmp ecx,[scaled_zoom] + jle @f + mov ecx,[scaled_zoom] + @@: + xor edx,edx + inc edx + shl edx,cl + + mov eax,[v_cur_x] + cmp eax,edx + jge .end_f ;курсор за пределами поля + mov edi,[tile_size] + imul eax,edi + add eax,OT_MAP_X + mov ebx,edx + dec ebx + sub ebx,[v_cur_y] + imul ebx,edi + add ebx,OT_MAP_Y + inc eax + inc ebx + sub edi,2 + stdcall [buf2d_rect_by_size], buf_pl, eax,ebx, edi,edi,[sc.work_graph] + dec ebx + add edi,2 + + ;горизонтальные линии + sub eax,2 + mov ecx,edi + imul edi,edx + shr ecx,1 + add ebx,ecx ;центровка по середине клетки + mov ecx,OT_MAP_X + add edi,ecx + stdcall [buf2d_line], buf_pl, ecx,ebx, eax,ebx,[sc.work_graph] + add eax,[tile_size] + inc eax + cmp eax,edi + jge @f ;если курсор на краю поля + dec edi + stdcall [buf2d_line], buf_pl, eax,ebx, edi,ebx,[sc.work_graph] + @@: + + .end_f: +popad + ret + + +;данные для диалога открытия файлов +align 4 +OpenDialog_data: +.type dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию +.procinfo dd procinfo ;+4 +.com_area_name dd communication_area_name ;+8 +.com_area dd 0 ;+12 +.opendir_path dd plugin_path ;+16 +.dir_default_path dd default_dir ;+20 +.start_path dd file_name ;+24 путь к диалогу открытия файлов +.draw_window dd draw_window ;+28 +.status dd 0 ;+32 +.openfile_path dd openfile_path ;+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 + +default_dir db '/sys',0 + +communication_area_name: + db 'FFFFFFFF_open_dialog',0 +open_dialog_name: + db 'opendial',0 +communication_area_default_path: + db '/sys/File managers/',0 + +Filter: +dd Filter.end - Filter ;.1 +.1: +db 'VOX',0 +.end: +db 0 + + +system_dir_0 db '/sys/lib/' +lib_name_0 db 'proc_lib.obj',0 +system_dir_1 db '/sys/lib/' +lib_name_1 db 'libimg.obj',0 +system_dir_2 db '/sys/lib/' +lib_name_2 db 'buf2d.obj',0 +system_dir_3 db '/sys/lib/' +lib_name_3 db 'libini.obj',0 + +l_libs_start: + lib0 l_libs lib_name_0, file_name, system_dir_0, import_proclib + lib1 l_libs lib_name_1, file_name, system_dir_1, import_libimg + lib2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d + lib3 l_libs lib_name_3, file_name, system_dir_3, import_libini +l_libs_end: + +align 4 +import_libimg: + dd alib_init1 + img_is_img dd aimg_is_img + img_info dd aimg_info + img_from_file dd aimg_from_file + img_to_file dd aimg_to_file + img_from_rgb dd aimg_from_rgb + img_to_rgb dd aimg_to_rgb + img_to_rgb2 dd aimg_to_rgb2 + img_decode dd aimg_decode + img_encode dd aimg_encode + img_create dd aimg_create + img_destroy dd aimg_destroy + img_destroy_layer dd aimg_destroy_layer + img_count dd aimg_count + img_lock_bits dd aimg_lock_bits + img_unlock_bits dd aimg_unlock_bits + img_flip dd aimg_flip + img_flip_layer dd aimg_flip_layer + img_rotate dd aimg_rotate + img_rotate_layer dd aimg_rotate_layer + img_draw dd aimg_draw + + dd 0,0 + alib_init1 db 'lib_init',0 + aimg_is_img db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение + aimg_info db 'img_info',0 + aimg_from_file db 'img_from_file',0 + aimg_to_file db 'img_to_file',0 + aimg_from_rgb db 'img_from_rgb',0 + aimg_to_rgb db 'img_to_rgb',0 ;преобразование изображения в данные RGB + aimg_to_rgb2 db 'img_to_rgb2',0 + aimg_decode db 'img_decode',0 ;автоматически определяет формат графических данных + aimg_encode db 'img_encode',0 + aimg_create db 'img_create',0 + aimg_destroy db 'img_destroy',0 + aimg_destroy_layer db 'img_destroy_layer',0 + aimg_count db 'img_count',0 + aimg_lock_bits db 'img_lock_bits',0 + aimg_unlock_bits db 'img_unlock_bits',0 + aimg_flip db 'img_flip',0 + aimg_flip_layer db 'img_flip_layer',0 + aimg_rotate db 'img_rotate',0 + aimg_rotate_layer db 'img_rotate_layer',0 + aimg_draw db 'img_draw',0 + +align 4 +import_proclib: + OpenDialog_Init dd aOpenDialog_Init + OpenDialog_Start dd aOpenDialog_Start +dd 0,0 + aOpenDialog_Init db 'OpenDialog_init',0 + aOpenDialog_Start db 'OpenDialog_start',0 + +align 4 +import_buf2d: + init dd sz_init + buf2d_create dd sz_buf2d_create + buf2d_create_f_img dd sz_buf2d_create_f_img + buf2d_clear dd sz_buf2d_clear + buf2d_draw dd sz_buf2d_draw + buf2d_delete dd sz_buf2d_delete + buf2d_line dd sz_buf2d_line + buf2d_rect_by_size dd sz_buf2d_rect_by_size + buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size + buf2d_circle dd sz_buf2d_circle + buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2 + buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2 + buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8 + buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32 + buf2d_bit_blt dd sz_buf2d_bit_blt + buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp + buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha + buf2d_curve_bezier dd sz_buf2d_curve_bezier + buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix + buf2d_draw_text dd sz_buf2d_draw_text + buf2d_crop_color dd sz_buf2d_crop_color + buf2d_offset_h dd sz_buf2d_offset_h + buf2d_flood_fill dd sz_buf2d_flood_fill + buf2d_set_pixel dd sz_buf2d_set_pixel + buf2d_get_pixel dd sz_buf2d_get_pixel + buf2d_vox_brush_create dd sz_buf2d_vox_brush_create + buf2d_vox_brush_delete dd sz_buf2d_vox_brush_delete + buf2d_vox_obj_get_img_w_3g dd sz_buf2d_vox_obj_get_img_w_3g + buf2d_vox_obj_get_img_h_3g dd sz_buf2d_vox_obj_get_img_h_3g + buf2d_vox_obj_draw_1g dd sz_buf2d_vox_obj_draw_1g + buf2d_vox_obj_draw_3g dd sz_buf2d_vox_obj_draw_3g + buf2d_vox_obj_draw_3g_scaled dd sz_buf2d_vox_obj_draw_3g_scaled + buf2d_vox_obj_draw_3g_shadows dd sz_buf2d_vox_obj_draw_3g_shadows + buf2d_vox_obj_draw_pl dd sz_buf2d_vox_obj_draw_pl + buf2d_vox_obj_draw_pl_scaled dd sz_buf2d_vox_obj_draw_pl_scaled + + dd 0,0 + sz_init db 'lib_init',0 + sz_buf2d_create db 'buf2d_create',0 + sz_buf2d_create_f_img db 'buf2d_create_f_img',0 + sz_buf2d_clear db 'buf2d_clear',0 + sz_buf2d_draw db 'buf2d_draw',0 + sz_buf2d_delete db 'buf2d_delete',0 + sz_buf2d_line db 'buf2d_line',0 + sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0 + sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0 + sz_buf2d_circle db 'buf2d_circle',0 + sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0 + sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0 + sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0 + sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0 + sz_buf2d_bit_blt db 'buf2d_bit_blt',0 + sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0 + sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0 + sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0 + sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0 + sz_buf2d_draw_text db 'buf2d_draw_text',0 + sz_buf2d_crop_color db 'buf2d_crop_color',0 + sz_buf2d_offset_h db 'buf2d_offset_h',0 + sz_buf2d_flood_fill db 'buf2d_flood_fill',0 + sz_buf2d_set_pixel db 'buf2d_set_pixel',0 + sz_buf2d_get_pixel db 'buf2d_get_pixel',0 + sz_buf2d_vox_brush_create db 'buf2d_vox_brush_create',0 + sz_buf2d_vox_brush_delete db 'buf2d_vox_brush_delete',0 + sz_buf2d_vox_obj_get_img_w_3g db 'buf2d_vox_obj_get_img_w_3g',0 + sz_buf2d_vox_obj_get_img_h_3g db 'buf2d_vox_obj_get_img_h_3g',0 + sz_buf2d_vox_obj_draw_1g db 'buf2d_vox_obj_draw_1g',0 + sz_buf2d_vox_obj_draw_3g db 'buf2d_vox_obj_draw_3g',0 + sz_buf2d_vox_obj_draw_3g_scaled db 'buf2d_vox_obj_draw_3g_scaled',0 + sz_buf2d_vox_obj_draw_3g_shadows db 'buf2d_vox_obj_draw_3g_shadows',0 + sz_buf2d_vox_obj_draw_pl db 'buf2d_vox_obj_draw_pl',0 + sz_buf2d_vox_obj_draw_pl_scaled db 'buf2d_vox_obj_draw_pl_scaled',0 + +align 4 +import_libini: + dd alib_init2 + ini_get_str dd aini_get_str + ini_get_int dd aini_get_int + ini_get_color dd aini_get_color +dd 0,0 + alib_init2 db 'lib_init',0 + aini_get_str db 'ini_get_str',0 + aini_get_int db 'ini_get_int',0 + aini_get_color db 'ini_get_color',0 + +;буфер основного изображения +align 4 +buf_0: dd 0 ;указатель на дaные изображения +.l: dw 5 ;+4 left +.t: dw 45 ;+6 top +.w: dd 192+6 ;+8 w +.h: dd 224+7 ;+12 h +.color: dd 0xffffff ;+16 color + db 24 ;+20 bit in pixel + +;буфер глубины основного изображения +align 4 +buf_0z: dd 0 + dw 0 ;+4 left + dw 0 ;+6 top +.w: dd 192+6 ;+8 w +.h: dd 224+7 ;+12 h +.color: dd 0 ;+16 color + db 32 ;+20 bit in pixel + +;буфер для рисования среза объекта +align 4 +buf_pl: dd 0 +.l: dw 15+192+6 ;+4 left +.t: dw 45 ;+6 top +.w: dd 320 ;+8 w +.h: dd 330 ;+12 h +.color: dd 0xffffff ;+16 color + db 24 ;+20 bit in pixel + +;буфер для улучшеного рендера +align 4 +buf_r_img: + rb BUF_STRUCT_SIZE +align 4 +buf_r_z: + rb BUF_STRUCT_SIZE + +align 4 +cursor_pointer dd 0 ;указатель на данные для курсора + + +;данные для создания минимального единичного вокселя +align 4 +vox_6_7_z: +dd 0,0,1,1,0,0,\ + 0,2,2,2,2,0,\ + 2,2,2,2,2,2,\ + 2,3,2,2,3,2,\ + 2,3,3,3,3,2,\ + 0,3,3,3,3,0,\ + 0,0,3,3,0,0 + +align 4 +buf_vox: + db 6,7,4,3 ;w,h,h_osn,n + rb BUF_STRUCT_SIZE*(3+1) + +align 16 +i_end: + procinfo process_information + sc system_colors + run_file_70 FileInfoBlock + mouse_dd dd ? + wnd_s_pos: ;место для настроек стартовой позиции окна + rq 0 + rb 4096 ;2048 +stacktop: + sys_path rb 1024 + file_name rb 2048 ;4096 + plugin_path rb 1024 ;4096 + openfile_path rb 1024 ;4096 + filename_area rb 256 +mem: diff --git a/programs/media/voxel_editor/utilites/vox_tgl.asm b/programs/media/voxel_editor/utilites/vox_tgl.asm index 9d3d15ee5b..e5608bdad8 100644 --- a/programs/media/voxel_editor/utilites/vox_tgl.asm +++ b/programs/media/voxel_editor/utilites/vox_tgl.asm @@ -1,1053 +1,1055 @@ -use32 - org 0 - db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт - dd 1, start, i_end, mem, stacktop, openfile_path, sys_path - -include '../../../macros.inc' -include '../../../proc32.inc' -include '../../../KOSfuncs.inc' -include '../../../load_img.inc' -include '../../../load_lib.mac' -include '../../../develop/libraries/TinyGL/asm_fork/opengl_const.inc' -include '../../../develop/libraries/TinyGL/asm_fork/zbuffer.inc' -include 'vox_3d.inc' -include '../trunk/str.inc' -include 'lang.inc' - -@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load -if lang eq ru_RU -caption db 'Просмотр вокселей 11.11.20',0 ;подпись окна -else -caption db 'Voxel viewer 11.11.20',0 -end if - -3d_wnd_l equ 5 ;отступ для tinygl буфера слева -3d_wnd_t equ 30 ;отступ для tinygl буфера сверху -3d_wnd_w equ 512 -3d_wnd_h equ 512 - -IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3 -IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*10 - -align 4 -start: - load_libraries l_libs_start,l_libs_end - ;проверка на сколько удачно загузилась библиотека - mov ebp,lib_0 - cmp dword [ebp+ll_struc_size-4],0 - jz @f - mcall SF_TERMINATE_PROCESS - @@: - mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors - mcall SF_SET_EVENTS_MASK,0xC0000027 - stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога - - stdcall [buf2d_create], buf_0 ;создание буфера - - include_image_file 'toolbar_t.png', image_data_toolbar,,,6 ;6 - for gray icons - mov eax,[image_data_toolbar] - add eax,IMAGE_TOOLBAR_SIZE - stdcall img_to_gray, [image_data_toolbar],eax,(IMAGE_TOOLBAR_SIZE)/3 - - mcall SF_SYSTEM_GET,SSF_TIME_COUNT - mov [last_time],eax - - stdcall [kosglMakeCurrent], 3d_wnd_l,3d_wnd_t,3d_wnd_w,3d_wnd_h,ctx1 - stdcall [glEnable], GL_DEPTH_TEST - stdcall [glEnable], GL_NORMALIZE ;делам нормали одинаковой величины во избежание артефактов - stdcall [glClearColor], 0.0,0.0,0.0,0.0 - stdcall [glShadeModel], GL_SMOOTH - - call but_new_file - ;проверка командной строки - cmp dword[openfile_path],0 - je @f - call but_open_file_cmd_lin - @@: - -align 4 -red_win: - call draw_window - -align 4 -still: - mcall SF_SYSTEM_GET,SSF_TIME_COUNT - mov ebx,[last_time] - add ebx,50 ;задержка - cmp ebx,eax - jge @f - mov ebx,eax - @@: - sub ebx,eax - mcall SF_WAIT_EVENT_TIMEOUT - bt word[opt_auto_rotate],0 - jnc @f - or eax,eax - jz timer_funct - @@: - - cmp al,1 - jz red_win - cmp al,2 - jz key - cmp al,3 - jz button - cmp al,6 - jne @f - call mouse - @@: - - jmp still - -align 4 -timer_funct: - pushad - mcall SF_SYSTEM_GET,SSF_TIME_COUNT - mov [last_time],eax - - ;автоматическое изменение угла обзора - fld dword[angle_y] - fsub dword[delt_size] - fstp dword[angle_y] - call draw_3d - call [kosglSwapBuffers] - - popad - jmp still - -align 4 -draw_window: -pushad - mcall SF_REDRAW,SSF_BEGIN_DRAW - - ; *** рисование главного окна (выполняется 1 раз при запуске) *** - mov edx,[sc.work] - or edx,(3 shl 24)+0x30000000 - mcall SF_CREATE_WINDOW,(20 shl 16)+800,(20 shl 16)+570,,,caption - - ; *** создание кнопок на панель *** - mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3,[sc.work_button] - - mov ebx,(30 shl 16)+20 - mcall ,,,4 - add ebx,25 shl 16 - mcall ,,,5 - add ebx,30 shl 16 - mcall ,,,6 - add ebx,25 shl 16 - mcall ,,,7 - add ebx,25 shl 16 - mcall ,,,8 - add ebx,25 shl 16 - mcall ,,,9 - add ebx,25 shl 16 - mcall ,,,10 - add ebx,25 shl 16 - mcall ,,,11 - add ebx,25 shl 16 - mcall ,,,12 - - call draw_toolbar_i - - stdcall [buf2d_draw], buf_0 - call [kosglSwapBuffers] - - mcall SF_REDRAW,SSF_END_DRAW -popad - ret - - -align 4 -draw_toolbar_i: - ; *** рисование иконок на кнопках *** - mov edx,(7 shl 16)+7 ;icon new - mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16 - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;icon open - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;icon save - int 0x40 - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(30 shl 16) ;zoom + - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;zoom - - int 0x40 - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - cmp word[opt_light],0 - jne @f - add ebx,IMAGE_TOOLBAR_SIZE ;make gray icon - @@: - add edx,(25 shl 16) ;light on/off - int 0x40 - cmp word[opt_light],0 - jne @f - sub ebx,IMAGE_TOOLBAR_SIZE - @@: - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - cmp word[opt_cube_box],0 - jne @f - add ebx,IMAGE_TOOLBAR_SIZE ;make gray icon - @@: - add edx,(25 shl 16) ;box on/off - int 0x40 - cmp word[opt_cube_box],0 - jne @f - sub ebx,IMAGE_TOOLBAR_SIZE - @@: - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - cmp word[opt_auto_rotate],0 - jne @f - add ebx,IMAGE_TOOLBAR_SIZE ;make gray icon - @@: - add edx,(25 shl 16) ;auto rotate on/off - int 0x40 - cmp word[opt_auto_rotate],0 - jne @f - sub ebx,IMAGE_TOOLBAR_SIZE - @@: - - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;info voxels - int 0x40 - add ebx,IMAGE_TOOLBAR_ICON_SIZE - add edx,(25 shl 16) ;refresh - int 0x40 - ret - - -align 4 -key: - mcall SF_GET_KEY - - cmp ah,178 ;Up - jne @f - fld dword[angle_x] - fadd dword[delt_size] - fstp dword[angle_x] - jmp .end0 - @@: - cmp ah,177 ;Down - jne @f - fld dword[angle_x] - fsub dword[delt_size] - fstp dword[angle_x] - jmp .end0 - @@: - cmp ah,176 ;Left - jne @f - fld dword[angle_y] - fadd dword[delt_size] - fstp dword[angle_y] - jmp .end0 - @@: - cmp ah,179 ;Right - jne still ;@f - fld dword[angle_y] - fsub dword[delt_size] - fstp dword[angle_y] - .end0: - call draw_3d - call [kosglSwapBuffers] - ;@@: - jmp still - - -align 4 -mouse: - push eax ebx - mcall SF_MOUSE_GET,SSF_BUTTON_EXT - bt eax,0 - jnc .end_m - ;mouse l. but. move - cmp dword[mouse_drag],1 - jne .end_m - mcall SF_MOUSE_GET,SSF_WINDOW_POSITION - mov ebx,eax - shr ebx,16 ;mouse.x - cmp ebx,3d_wnd_l - jg @f - mov ebx,3d_wnd_l - @@: - sub ebx,3d_wnd_l - cmp ebx,3d_wnd_w - jle @f - mov ebx,3d_wnd_w - @@: - and eax,0xffff ;mouse.y - cmp eax,3d_wnd_t - jg @f - mov eax,3d_wnd_t - @@: - sub eax,3d_wnd_t - cmp eax,3d_wnd_h - jle @f - mov eax,3d_wnd_h - @@: - finit - fild dword[mouse_y] - mov [mouse_y],eax - fisub dword[mouse_y] - fdiv dword[angle_dxm] ;если курсор движется по оси y (вверх или вниз) то поворот делаем вокруг оси x - fadd dword[angle_x] - fstp dword[angle_x] - - fild dword[mouse_x] - mov [mouse_x],ebx - fisub dword[mouse_x] - fdiv dword[angle_dym] ;если курсор движется по оси x (вверх или вниз) то поворот делаем вокруг оси y - fadd dword[angle_y] - fstp dword[angle_y] - - call draw_3d - call [kosglSwapBuffers] - jmp .end_d - .end_m: - bt eax,16 - jnc @f - ;mouse l. but. up - mov dword[mouse_drag],0 - jmp .end_d - @@: - bt eax,8 - jnc .end_d - ;mouse l. but. press - mcall SF_MOUSE_GET,SSF_WINDOW_POSITION - mov ebx,eax - shr ebx,16 ;mouse.x - cmp ebx,3d_wnd_l - jl .end_d - sub ebx,3d_wnd_l - cmp ebx,3d_wnd_w - jg .end_d - and eax,0xffff ;mouse.y - cmp eax,3d_wnd_t - jl .end_d - sub eax,3d_wnd_t - cmp eax,3d_wnd_h - jg .end_d - mov dword[mouse_drag],1 - mov dword[mouse_x],ebx - mov dword[mouse_y],eax - .end_d: - - ;stdcall [kmainmenu_dispatch_cursorevent], [main_menu] - pop ebx eax - ret - -align 4 -button: - mcall SF_GET_BUTTON - cmp ah,3 - jne @f - call but_new_file - jmp still - @@: - cmp ah,4 - jne @f - call but_open_file - jmp still - @@: - cmp ah,5 - jne @f - call but_save_file - jmp still - @@: - cmp ah,6 - jne @f - call but_zoom_p - jmp still - @@: - cmp ah,7 - jne @f - call but_zoom_m - jmp still - @@: - cmp ah,8 - jne @f - call but_light - jmp still - @@: - cmp ah,9 - jne @f - call but_4 - jmp still - @@: - cmp ah,10 - jne @f - call but_5 - jmp still - @@: - cmp ah,11 - jne @f - call but_info - jmp still - @@: - cmp ah,12 - jne @f - call but_draw_cadr - jmp still - @@: - cmp ah,1 - jne still -.exit: - stdcall [buf2d_delete],buf_0 - stdcall mem.Free,[image_data_toolbar] - stdcall mem.Free,[open_file_data] - stdcall mem.Free,[open_file_ogl] - mcall SF_TERMINATE_PROCESS - - -align 4 -but_new_file: - mov dword[angle_x], -30.0 - mov dword[angle_y], 180.0 - mov dword[angle_z], 180.0 - ret - -align 4 -open_file_data dd 0 ;указатель на память для открытия файлов -open_file_size dd 0 ;размер открытого файла -open_file_ogl dd 0 ;для записи координат шраней вокселей в показе opengl -v_zoom dd 0 - -align 4 -but_open_file: - copy_path open_dialog_name,communication_area_default_path,file_name,0 -pushad - mov [OpenDialog_data.type],0 - stdcall [OpenDialog_Start],OpenDialog_data - cmp [OpenDialog_data.status],2 - je @f - ;код при удачном открытии диалога - call but_open_file_cmd_lin - @@: -popad - ret - -align 4 -but_open_file_cmd_lin: -pushad - mov [run_file_70.Function], SSF_GET_INFO - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - mov dword[run_file_70.Count], 0 - mov dword[run_file_70.Buffer], open_b - mov byte[run_file_70+20], 0 - mov dword[run_file_70.FileName], openfile_path - mcall SF_FILE,run_file_70 - - mov ecx,dword[open_b+32] ;+32 qword: размер файла в байтах - stdcall mem.ReAlloc,[open_file_data],ecx - mov [open_file_data],eax - - mov [run_file_70.Function], SSF_READ_FILE - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - mov dword[run_file_70.Count], ecx - m2m dword[run_file_70.Buffer], dword[open_file_data] - mov byte[run_file_70+20], 0 - mov dword[run_file_70.FileName], openfile_path - mcall SF_FILE,run_file_70 - cmp ebx,0xffffffff - je .end_open_file - - mov [open_file_size],ebx - mcall SF_SET_CAPTION,1,openfile_path - - mov eax,[open_file_data] - movzx eax,byte[eax] - mov dword[v_zoom],eax ;берем масштаб по умолчанию - mov ecx,[open_file_size] - sub ecx,vox_offs_data - shr ecx,2 - imul ecx,vox_ogl_size - add ecx,4 ;ecx = размер памяти необходимой для распаковки координат - stdcall mem.ReAlloc,[open_file_ogl],ecx - or eax,eax - jz .end_open_file - mov [open_file_ogl],eax - stdcall buf_vox_obj_create_3d,[open_file_data],eax,0,0,[v_zoom] - call draw_cadr_8 - .end_open_file: -popad - ret - -;description: -; рисование 8-ми кадров под разными углами поворота -align 4 -draw_cadr_8: - call but_new_file ;установка углов поворота по умолчанию - stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер - - ;рисование 8-ми кадров - fild dword[rot_angles+4] - fstp dword[angle_y] - call draw_3d - call draw_cadr - stdcall [buf2d_bit_blt], buf_0, 128, 0, buf_1 - - fild dword[rot_angles+8] - fstp dword[angle_y] - call draw_3d - call draw_cadr - stdcall [buf2d_bit_blt], buf_0, 0, 128, buf_1 - - fild dword[rot_angles+12] - fstp dword[angle_y] - call draw_3d - call draw_cadr - stdcall [buf2d_bit_blt], buf_0, 128, 128, buf_1 - - fild dword[rot_angles+16] - fstp dword[angle_y] - call draw_3d - call draw_cadr - stdcall [buf2d_bit_blt], buf_0, 0, 256, buf_1 - - fild dword[rot_angles+20] - fstp dword[angle_y] - call draw_3d - call draw_cadr - stdcall [buf2d_bit_blt], buf_0, 128, 256, buf_1 - - fild dword[rot_angles+24] - fstp dword[angle_y] - call draw_3d - call draw_cadr - stdcall [buf2d_bit_blt], buf_0, 0, 384, buf_1 - - fild dword[rot_angles+28] - fstp dword[angle_y] - call draw_3d - call draw_cadr - stdcall [buf2d_bit_blt], buf_0, 128, 384, buf_1 - - ; *** последний кадр *** - fild dword[rot_angles] - fstp dword[angle_y] - call draw_3d - call draw_cadr - stdcall [buf2d_bit_blt], buf_0, 0, 0, buf_1 - - call draw_3d - ; *** - - stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране - ret - -align 4 -rot_angles dd 180,225,270,315,0,45,90,135 - -align 4 -draw_cadr: - mov eax,dword[ctx1] ;eax -> TinyGLContext.GLContext - mov eax,[eax] ;eax -> ZBuffer - mov eax,[eax+ZBuffer.pbuf] - mov dword[buf_1],eax - - mov dword[buf_1.w],512 - mov dword[buf_1.h],512 - stdcall [buf2d_img_hdiv2],buf_1 - mov dword[buf_1.h],256 - stdcall [buf2d_img_hdiv2],buf_1 - mov dword[buf_1.h],128 - stdcall [buf2d_img_wdiv2],buf_1 - mov dword[buf_1.w],256 - stdcall [buf2d_img_wdiv2],buf_1 - mov dword[buf_1.w],128 - ret - -align 4 -but_save_file: - copy_path open_dialog_name,communication_area_default_path,file_name,0 - pushad - mov [OpenDialog_data.type],1 - stdcall [OpenDialog_Start],OpenDialog_data - cmp [OpenDialog_data.status],2 - je .end_save_file - ;код при удачном открытии диалога - - mov [run_file_70.Function], SSF_CREATE_FILE - mov [run_file_70.Position], 0 - mov [run_file_70.Flags], 0 - mov ebx, dword[open_file_data] - ;пишем в файл новый масштаб - mov edx,dword[v_zoom] - mov byte[ebx],dl - mov [run_file_70.Buffer], ebx - mov ebx,[open_file_size] - mov dword[run_file_70.Count], ebx ;размер файла - mov byte[run_file_70+20], 0 - mov dword[run_file_70.FileName], openfile_path - mcall SF_FILE,run_file_70 - ;cmp ebx,0xffffffff - ;je .end_save_file - ; ... сообщение о неудачном сохранении ... - - .end_save_file: - popad - ret - -align 4 -proc but_zoom_p uses eax - cmp dword[v_zoom],11 ;max=2^11=2048 - jge @f - inc dword[v_zoom] - stdcall buf_vox_obj_create_3d,[open_file_data],[open_file_ogl],0,0,[v_zoom] - call draw_3d - call [kosglSwapBuffers] - @@: - ret -endp - -align 4 -proc but_zoom_m uses eax - cmp dword[v_zoom],1 - jle @f - dec dword[v_zoom] - stdcall buf_vox_obj_create_3d,[open_file_data],[open_file_ogl],0,0,[v_zoom] - call draw_3d - call [kosglSwapBuffers] - @@: - ret -endp - -align 4 -proc but_light uses eax ebx ecx edx - xor word[opt_light],1 - cmp word[opt_light],0 - je @f - stdcall [glEnable], GL_LIGHTING - stdcall [glEnable], GL_LIGHT0 - jmp .end_light - @@: - stdcall [glDisable], GL_LIGHTING - stdcall [glDisable], GL_LIGHT0 - .end_light: - call draw_toolbar_i - call draw_3d - call [kosglSwapBuffers] - ret -endp - -align 4 -proc but_4 uses eax ebx ecx edx - xor word[opt_cube_box],1 - call draw_toolbar_i - call draw_3d - call [kosglSwapBuffers] - ret -endp - -align 4 -proc but_5 uses eax ebx ecx edx - xor word[opt_auto_rotate],1 - call draw_toolbar_i - ret -endp - -align 4 -proc but_info uses eax ebx ecx edx edi - ;вычисление статистики по вокселям - mov eax,[open_file_ogl] - or eax,eax - jz .end_stat - mov ebx,[eax] - mov ecx,ebx - mov edx,ebx - imul ebx,6 - add eax,4 -align 4 - .cycle_0: - bt word[eax+vox_ogl_planes],vox_ogl_gran_z0 - jc @f - dec ebx - @@: - bt word[eax+vox_ogl_planes],vox_ogl_gran_z1 - jc @f - dec ebx - @@: - bt word[eax+vox_ogl_planes],vox_ogl_gran_y0 - jc @f - dec ebx - @@: - bt word[eax+vox_ogl_planes],vox_ogl_gran_y1 - jc @f - dec ebx - @@: - bt word[eax+vox_ogl_planes],vox_ogl_gran_x0 - jc @f - dec ebx - @@: - bt word[eax+vox_ogl_planes],vox_ogl_gran_x1 - jc @f - dec ebx - @@: - add eax,vox_ogl_size - loop .cycle_0 - - mov eax,edx - mov edi,txt_stat_m1.v - stdcall convert_int_to_str,20 - - mov eax,ebx - mov edi,txt_stat_m2.v - stdcall convert_int_to_str,20 - - stdcall str_n_cat,txt_stat_m1.v,txt_stat_m2,50 - notify_window_run txt_stat_m1 - .end_stat: - ret -endp - -align 4 -txt_stat_m1: -if lang eq ru_RU - db 'Статистика',13,10,'Вокселей: ' -.v: rb 70 -txt_stat_m2: - db 13,10,'Отображаемых граней: ' -else - db 'Statistics',13,10,'Voxels: ' -.v: rb 70 -txt_stat_m2: - db 13,10,'Facets displayed: ' -end if -.v: rb 20 - -align 4 -proc but_draw_cadr uses eax ebx ecx edx - mov ebx,[angle_x] - mov ecx,[angle_y] - mov edx,[angle_z] - call draw_cadr_8 - mov [angle_x],ebx - mov [angle_y],ecx - mov [angle_z],edx - cmp word[opt_auto_rotate],0 - jne @f - call draw_3d - ;call [kosglSwapBuffers] - @@: - ret -endp - -align 4 -draw_3d: - stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;очистим буфер цвета и глубины - stdcall [glPushMatrix] - - cmp word[opt_light],0 - je @f - call SetLight - @@: - stdcall [glTranslatef], 0.0,0.0,0.5 ;координаты по оси z должны быть в пределах от 0.0 до 1.0, иначе изображение будет отсекаться - ;воксельный объект имеет координаты по осям от -0.5 до 0.5, потому его двигаем на +0.5 - ;но все же при поворотах будут отсекатся края, которые вылезут за пределы плоскостей отсечения - ;в версии opengl под Win координаты идут от -1.0 до 1.0 потому там этого делать не нужно - stdcall [glScalef], [scale], [scale], [scale] ;увеличиваем воксельный объект, что-бы не был очень маленьким - stdcall [glScalef], 1.0, 1.0, 0.25 ;что-бы края объекта не вылазили за грани отсечения - stdcall [glRotatef], [angle_x],1.0,0.0,0.0 - stdcall [glRotatef], [angle_y],0.0,1.0,0.0 - stdcall [glRotatef], [angle_z],0.0,0.0,1.0 - stdcall draw_voxels_3d,[open_file_ogl] - - call [glPopMatrix] -ret - -align 4 -proc SetLight - stdcall [glLightfv], GL_LIGHT0, GL_POSITION, light_position - stdcall [glLightfv], GL_LIGHT0, GL_SPOT_DIRECTION, light_dir - - stdcall [glLightfv], GL_LIGHT0, GL_DIFFUSE, white_light - stdcall [glLightfv], GL_LIGHT0, GL_SPECULAR, white_light - - stdcall [glEnable], GL_COLOR_MATERIAL - stdcall [glColorMaterial], GL_FRONT, GL_AMBIENT_AND_DIFFUSE - stdcall [glMaterialfv], GL_FRONT, GL_SPECULAR, mat_specular - stdcall [glMaterialf], GL_FRONT, GL_SHININESS, mat_shininess - stdcall [glLightModelfv], GL_LIGHT_MODEL_AMBIENT, lmodel_ambient - - stdcall [glEnable], GL_LIGHTING - stdcall [glEnable], GL_LIGHT0 - - ;;;stdcall [glLightModeli], GL_LIGHT_MODEL_TWO_SIDE, GL_TRUE - ret -endp - -align 4 -proc img_to_gray, buf_rgb:dword, buf_g24:dword, pixels:dword -pushad - mov esi,[buf_rgb] - mov edi,[buf_g24] - mov ecx,[pixels] - mov ebx,3 -align 4 - @@: - movzx eax,byte[esi] - movzx edx,byte[esi+1] - add eax,edx - movzx edx,byte[esi+2] - add eax,edx - xor edx,edx - div ebx ;shr eax,2 - mov ah,al - mov word[edi],ax - mov byte[edi+2],al - add esi,3 - add edi,3 - loop @b -popad - ret -endp - - -;данные для диалога открытия файлов -align 4 -OpenDialog_data: -.type dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию -.procinfo dd procinfo ;+4 -.com_area_name dd communication_area_name ;+8 -.com_area dd 0 ;+12 -.opendir_path dd plugin_path ;+16 -.dir_default_path dd default_dir ;+20 -.start_path dd file_name ;+24 путь к диалогу открытия файлов -.draw_window dd draw_window ;+28 -.status dd 0 ;+32 -.openfile_path dd openfile_path ;+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 - -default_dir db '/sys',0 - -communication_area_name: - db 'FFFFFFFF_open_dialog',0 -open_dialog_name: - db 'opendial',0 -communication_area_default_path: - db '/sys/File managers/',0 - -Filter: -dd Filter.end - Filter ;.1 -.1: -db 'VOX',0 -db 'TXT',0 -.end: -db 0 - - -system_dir_0 db '/sys/lib/' -lib_name_0 db 'proc_lib.obj',0 -system_dir_1 db '/sys/lib/' -lib_name_1 db 'libimg.obj',0 -system_dir_2 db '/sys/lib/' -lib_name_2 db 'buf2d.obj',0 -system_dir_3 db '/sys/lib/' -lib_name_3 db 'tinygl.obj',0 - -l_libs_start: - lib_0 l_libs lib_name_0, file_name, system_dir_0, import_proclib - lib_1 l_libs lib_name_1, file_name, system_dir_1, import_libimg - lib_2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d - lib_3 l_libs lib_name_3, file_name, system_dir_3, import_tinygl -l_libs_end: - -align 4 -import_libimg: - dd alib_init1 -; img_is_img dd aimg_is_img -; img_info dd aimg_info -; img_from_file dd aimg_from_file -; img_to_file dd aimg_to_file -; img_from_rgb dd aimg_from_rgb -; img_to_rgb dd aimg_to_rgb - img_to_rgb2 dd aimg_to_rgb2 - img_decode dd aimg_decode -; img_encode dd aimg_encode -; img_create dd aimg_create - img_destroy dd aimg_destroy -; img_destroy_layer dd aimg_destroy_layer -; img_count dd aimg_count -; img_lock_bits dd aimg_lock_bits -; img_unlock_bits dd aimg_unlock_bits -; img_flip dd aimg_flip -; img_flip_layer dd aimg_flip_layer -; img_rotate dd aimg_rotate -; img_rotate_layer dd aimg_rotate_layer -; img_draw dd aimg_draw -; img_convert dd aimg_convert - - dd 0,0 - alib_init1 db 'lib_init',0 -; aimg_is_img db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение -; aimg_info db 'img_info',0 -; aimg_from_file db 'img_from_file',0 -; aimg_to_file db 'img_to_file',0 -; aimg_from_rgb db 'img_from_rgb',0 -; aimg_to_rgb db 'img_to_rgb',0 ;преобразование изображения в данные RGB - aimg_to_rgb2 db 'img_to_rgb2',0 - aimg_decode db 'img_decode',0 ;автоматически определяет формат графических данных -; aimg_encode db 'img_encode',0 -; aimg_create db 'img_create',0 - aimg_destroy db 'img_destroy',0 -; aimg_destroy_layer db 'img_destroy_layer',0 -; aimg_count db 'img_count',0 -; aimg_lock_bits db 'img_lock_bits',0 -; aimg_unlock_bits db 'img_unlock_bits',0 -; aimg_flip db 'img_flip',0 -; aimg_flip_layer db 'img_flip_layer',0 -; aimg_rotate db 'img_rotate',0 -; aimg_rotate_layer db 'img_rotate_layer',0 -; aimg_draw db 'img_draw',0 -; aimg_convert db 'img_convert',0 - -align 4 -import_proclib: - OpenDialog_Init dd aOpenDialog_Init - OpenDialog_Start dd aOpenDialog_Start -dd 0,0 - aOpenDialog_Init db 'OpenDialog_init',0 - aOpenDialog_Start db 'OpenDialog_start',0 - -align 4 -import_buf2d: - init dd sz_init - buf2d_create dd sz_buf2d_create - buf2d_create_f_img dd sz_buf2d_create_f_img - buf2d_clear dd sz_buf2d_clear - buf2d_draw dd sz_buf2d_draw - buf2d_delete dd sz_buf2d_delete - buf2d_line dd sz_buf2d_line - buf2d_rect_by_size dd sz_buf2d_rect_by_size - buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size - buf2d_circle dd sz_buf2d_circle - buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2 - buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2 - buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8 - buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32 - buf2d_bit_blt dd sz_buf2d_bit_blt - buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp - buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha - buf2d_curve_bezier dd sz_buf2d_curve_bezier - buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix - buf2d_draw_text dd sz_buf2d_draw_text - buf2d_crop_color dd sz_buf2d_crop_color - buf2d_offset_h dd sz_buf2d_offset_h - buf2d_flood_fill dd sz_buf2d_flood_fill - buf2d_set_pixel dd sz_buf2d_set_pixel - dd 0,0 - sz_init db 'lib_init',0 - sz_buf2d_create db 'buf2d_create',0 - sz_buf2d_create_f_img db 'buf2d_create_f_img',0 - sz_buf2d_clear db 'buf2d_clear',0 - sz_buf2d_draw db 'buf2d_draw',0 - sz_buf2d_delete db 'buf2d_delete',0 - sz_buf2d_line db 'buf2d_line',0 - sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0 - sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0 - sz_buf2d_circle db 'buf2d_circle',0 - sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0 - sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0 - sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0 - sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0 - sz_buf2d_bit_blt db 'buf2d_bit_blt',0 - sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0 - sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0 - sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0 - sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0 - sz_buf2d_draw_text db 'buf2d_draw_text',0 - sz_buf2d_crop_color db 'buf2d_crop_color',0 - sz_buf2d_offset_h db 'buf2d_offset_h',0 - sz_buf2d_flood_fill db 'buf2d_flood_fill',0 - sz_buf2d_set_pixel db 'buf2d_set_pixel',0 - -;-------------------------------------------------- -align 4 -import_tinygl: - -macro E_LIB n -{ - n dd sz_#n -} -include '../../../develop/libraries/TinyGL/asm_fork/export.inc' - dd 0,0 -macro E_LIB n -{ - sz_#n db `n,0 -} -include '../../../develop/libraries/TinyGL/asm_fork/export.inc' - -last_time dd 0 - -align 4 -buf_0: dd 0 ;указатель на буфер изображения - dw 530 ;+4 left - dw 30 ;+6 top -.w: dd 256 ;+8 w -.h: dd 512 ;+12 h -.color: dd 0xffffd0 ;+16 color - db 24 ;+20 bit in pixel - -align 4 -buf_1: dd 0 ;указатель на буфер изображения - dw 0 ;+4 left - dw 0 ;+6 top -.w: dd 512 ;+8 w -.h: dd 512 ;+12 h -.color: dd 0xffffff ;+16 color - db 24 ;+20 bit in pixel - -scale dd 1.414213562 -angle_x dd 0.0 -angle_y dd 0.0 -angle_z dd 0.0 -delt_size dd 3.0 -angle_dxm dd 2.8444 ;~ 3d_wnd_w/180 - прибавление углов поворота сцены при вращении мышей -angle_dym dd 2.8444 ;~ 3d_wnd_h/180 - -opt_light dw 0 ;опция для включения/выключения света -opt_cube_box dw 1 ;опция для рисования рамки вокруг объекта -opt_auto_rotate dw 0 ;опция для автоматического поворота объекта - -light_position dd 0.0, 0.0, 2.0, 1.0 ; Расположение источника [0][1][2] - ;[3] = (0.0 - бесконечно удаленный источник, 1.0 - источник света на определенном расстоянии) -light_dir dd 0.0,0.0,0.0 ;направление лампы - -mat_specular dd 0.3, 0.3, 0.3, 1.0 ; Цвет блика -mat_shininess dd 3.0 ; Размер блика (обратная пропорция) -white_light dd 0.8, 0.8, 0.8, 1.0 ; Цвет и интенсивность освещения, генерируемого источником -lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ; Параметры фонового освещения - - -align 16 -i_end: - ctx1 rb 28 ;sizeof.TinyGLContext = 28 - image_data_toolbar dd ? - mouse_drag dd ? ;режим поворота сцены от перемещении курсора мыши - mouse_x dd ? - mouse_y dd ? - rb 4096 -stacktop: - sys_path rb 1024 - file_name rb 2048 - plugin_path rb 4096 - openfile_path rb 4096 - filename_area rb 256 - sc system_colors - procinfo process_information - run_file_70 FileInfoBlock -mem: +use32 + org 0 + db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт + dd 1, start, i_end, mem, stacktop, openfile_path, sys_path + +include '../../../macros.inc' +include '../../../proc32.inc' +include '../../../KOSfuncs.inc' +include '../../../load_img.inc' +include '../../../load_lib.mac' +include '../../../develop/libraries/TinyGL/asm_fork/opengl_const.inc' +include '../../../develop/libraries/TinyGL/asm_fork/zbuffer.inc' +include 'vox_3d.inc' +include '../trunk/str.inc' +include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US. + +@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load +if lang eq ru_RU +caption db 'Просмотр вокселей 11.11.20',0 ;подпись окна +else ; Default to en_US +caption db 'Voxel viewer 11.11.20',0 +end if + +3d_wnd_l equ 5 ;отступ для tinygl буфера слева +3d_wnd_t equ 30 ;отступ для tinygl буфера сверху +3d_wnd_w equ 512 +3d_wnd_h equ 512 + +IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3 +IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*10 + +align 4 +start: + load_libraries l_libs_start,l_libs_end + ;проверка на сколько удачно загузилась библиотека + mov ebp,lib_0 + cmp dword [ebp+ll_struc_size-4],0 + jz @f + mcall SF_TERMINATE_PROCESS + @@: + mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors + mcall SF_SET_EVENTS_MASK,0xC0000027 + stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога + + stdcall [buf2d_create], buf_0 ;создание буфера + + include_image_file 'toolbar_t.png', image_data_toolbar,,,6 ;6 - for gray icons + mov eax,[image_data_toolbar] + add eax,IMAGE_TOOLBAR_SIZE + stdcall img_to_gray, [image_data_toolbar],eax,(IMAGE_TOOLBAR_SIZE)/3 + + mcall SF_SYSTEM_GET,SSF_TIME_COUNT + mov [last_time],eax + + stdcall [kosglMakeCurrent], 3d_wnd_l,3d_wnd_t,3d_wnd_w,3d_wnd_h,ctx1 + stdcall [glEnable], GL_DEPTH_TEST + stdcall [glEnable], GL_NORMALIZE ;делам нормали одинаковой величины во избежание артефактов + stdcall [glClearColor], 0.0,0.0,0.0,0.0 + stdcall [glShadeModel], GL_SMOOTH + + call but_new_file + ;проверка командной строки + cmp dword[openfile_path],0 + je @f + call but_open_file_cmd_lin + @@: + +align 4 +red_win: + call draw_window + +align 4 +still: + mcall SF_SYSTEM_GET,SSF_TIME_COUNT + mov ebx,[last_time] + add ebx,50 ;задержка + cmp ebx,eax + jge @f + mov ebx,eax + @@: + sub ebx,eax + mcall SF_WAIT_EVENT_TIMEOUT + bt word[opt_auto_rotate],0 + jnc @f + or eax,eax + jz timer_funct + @@: + + cmp al,1 + jz red_win + cmp al,2 + jz key + cmp al,3 + jz button + cmp al,6 + jne @f + call mouse + @@: + + jmp still + +align 4 +timer_funct: + pushad + mcall SF_SYSTEM_GET,SSF_TIME_COUNT + mov [last_time],eax + + ;автоматическое изменение угла обзора + fld dword[angle_y] + fsub dword[delt_size] + fstp dword[angle_y] + call draw_3d + call [kosglSwapBuffers] + + popad + jmp still + +align 4 +draw_window: +pushad + mcall SF_REDRAW,SSF_BEGIN_DRAW + + ; *** рисование главного окна (выполняется 1 раз при запуске) *** + mov edx,[sc.work] + or edx,(3 shl 24)+0x30000000 + mcall SF_CREATE_WINDOW,(20 shl 16)+800,(20 shl 16)+570,,,caption + + ; *** создание кнопок на панель *** + mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3,[sc.work_button] + + mov ebx,(30 shl 16)+20 + mcall ,,,4 + add ebx,25 shl 16 + mcall ,,,5 + add ebx,30 shl 16 + mcall ,,,6 + add ebx,25 shl 16 + mcall ,,,7 + add ebx,25 shl 16 + mcall ,,,8 + add ebx,25 shl 16 + mcall ,,,9 + add ebx,25 shl 16 + mcall ,,,10 + add ebx,25 shl 16 + mcall ,,,11 + add ebx,25 shl 16 + mcall ,,,12 + + call draw_toolbar_i + + stdcall [buf2d_draw], buf_0 + call [kosglSwapBuffers] + + mcall SF_REDRAW,SSF_END_DRAW +popad + ret + + +align 4 +draw_toolbar_i: + ; *** рисование иконок на кнопках *** + mov edx,(7 shl 16)+7 ;icon new + mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16 + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;icon open + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;icon save + int 0x40 + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(30 shl 16) ;zoom + + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;zoom - + int 0x40 + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + cmp word[opt_light],0 + jne @f + add ebx,IMAGE_TOOLBAR_SIZE ;make gray icon + @@: + add edx,(25 shl 16) ;light on/off + int 0x40 + cmp word[opt_light],0 + jne @f + sub ebx,IMAGE_TOOLBAR_SIZE + @@: + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + cmp word[opt_cube_box],0 + jne @f + add ebx,IMAGE_TOOLBAR_SIZE ;make gray icon + @@: + add edx,(25 shl 16) ;box on/off + int 0x40 + cmp word[opt_cube_box],0 + jne @f + sub ebx,IMAGE_TOOLBAR_SIZE + @@: + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + cmp word[opt_auto_rotate],0 + jne @f + add ebx,IMAGE_TOOLBAR_SIZE ;make gray icon + @@: + add edx,(25 shl 16) ;auto rotate on/off + int 0x40 + cmp word[opt_auto_rotate],0 + jne @f + sub ebx,IMAGE_TOOLBAR_SIZE + @@: + + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;info voxels + int 0x40 + add ebx,IMAGE_TOOLBAR_ICON_SIZE + add edx,(25 shl 16) ;refresh + int 0x40 + ret + + +align 4 +key: + mcall SF_GET_KEY + + cmp ah,178 ;Up + jne @f + fld dword[angle_x] + fadd dword[delt_size] + fstp dword[angle_x] + jmp .end0 + @@: + cmp ah,177 ;Down + jne @f + fld dword[angle_x] + fsub dword[delt_size] + fstp dword[angle_x] + jmp .end0 + @@: + cmp ah,176 ;Left + jne @f + fld dword[angle_y] + fadd dword[delt_size] + fstp dword[angle_y] + jmp .end0 + @@: + cmp ah,179 ;Right + jne still ;@f + fld dword[angle_y] + fsub dword[delt_size] + fstp dword[angle_y] + .end0: + call draw_3d + call [kosglSwapBuffers] + ;@@: + jmp still + + +align 4 +mouse: + push eax ebx + mcall SF_MOUSE_GET,SSF_BUTTON_EXT + bt eax,0 + jnc .end_m + ;mouse l. but. move + cmp dword[mouse_drag],1 + jne .end_m + mcall SF_MOUSE_GET,SSF_WINDOW_POSITION + mov ebx,eax + shr ebx,16 ;mouse.x + cmp ebx,3d_wnd_l + jg @f + mov ebx,3d_wnd_l + @@: + sub ebx,3d_wnd_l + cmp ebx,3d_wnd_w + jle @f + mov ebx,3d_wnd_w + @@: + and eax,0xffff ;mouse.y + cmp eax,3d_wnd_t + jg @f + mov eax,3d_wnd_t + @@: + sub eax,3d_wnd_t + cmp eax,3d_wnd_h + jle @f + mov eax,3d_wnd_h + @@: + finit + fild dword[mouse_y] + mov [mouse_y],eax + fisub dword[mouse_y] + fdiv dword[angle_dxm] ;если курсор движется по оси y (вверх или вниз) то поворот делаем вокруг оси x + fadd dword[angle_x] + fstp dword[angle_x] + + fild dword[mouse_x] + mov [mouse_x],ebx + fisub dword[mouse_x] + fdiv dword[angle_dym] ;если курсор движется по оси x (вверх или вниз) то поворот делаем вокруг оси y + fadd dword[angle_y] + fstp dword[angle_y] + + call draw_3d + call [kosglSwapBuffers] + jmp .end_d + .end_m: + bt eax,16 + jnc @f + ;mouse l. but. up + mov dword[mouse_drag],0 + jmp .end_d + @@: + bt eax,8 + jnc .end_d + ;mouse l. but. press + mcall SF_MOUSE_GET,SSF_WINDOW_POSITION + mov ebx,eax + shr ebx,16 ;mouse.x + cmp ebx,3d_wnd_l + jl .end_d + sub ebx,3d_wnd_l + cmp ebx,3d_wnd_w + jg .end_d + and eax,0xffff ;mouse.y + cmp eax,3d_wnd_t + jl .end_d + sub eax,3d_wnd_t + cmp eax,3d_wnd_h + jg .end_d + mov dword[mouse_drag],1 + mov dword[mouse_x],ebx + mov dword[mouse_y],eax + .end_d: + + ;stdcall [kmainmenu_dispatch_cursorevent], [main_menu] + pop ebx eax + ret + +align 4 +button: + mcall SF_GET_BUTTON + cmp ah,3 + jne @f + call but_new_file + jmp still + @@: + cmp ah,4 + jne @f + call but_open_file + jmp still + @@: + cmp ah,5 + jne @f + call but_save_file + jmp still + @@: + cmp ah,6 + jne @f + call but_zoom_p + jmp still + @@: + cmp ah,7 + jne @f + call but_zoom_m + jmp still + @@: + cmp ah,8 + jne @f + call but_light + jmp still + @@: + cmp ah,9 + jne @f + call but_4 + jmp still + @@: + cmp ah,10 + jne @f + call but_5 + jmp still + @@: + cmp ah,11 + jne @f + call but_info + jmp still + @@: + cmp ah,12 + jne @f + call but_draw_cadr + jmp still + @@: + cmp ah,1 + jne still +.exit: + stdcall [buf2d_delete],buf_0 + stdcall mem.Free,[image_data_toolbar] + stdcall mem.Free,[open_file_data] + stdcall mem.Free,[open_file_ogl] + mcall SF_TERMINATE_PROCESS + + +align 4 +but_new_file: + mov dword[angle_x], -30.0 + mov dword[angle_y], 180.0 + mov dword[angle_z], 180.0 + ret + +align 4 +open_file_data dd 0 ;указатель на память для открытия файлов +open_file_size dd 0 ;размер открытого файла +open_file_ogl dd 0 ;для записи координат шраней вокселей в показе opengl +v_zoom dd 0 + +align 4 +but_open_file: + copy_path open_dialog_name,communication_area_default_path,file_name,0 +pushad + mov [OpenDialog_data.type],0 + stdcall [OpenDialog_Start],OpenDialog_data + cmp [OpenDialog_data.status],2 + je @f + ;код при удачном открытии диалога + call but_open_file_cmd_lin + @@: +popad + ret + +align 4 +but_open_file_cmd_lin: +pushad + mov [run_file_70.Function], SSF_GET_INFO + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + mov dword[run_file_70.Count], 0 + mov dword[run_file_70.Buffer], open_b + mov byte[run_file_70+20], 0 + mov dword[run_file_70.FileName], openfile_path + mcall SF_FILE,run_file_70 + + mov ecx,dword[open_b+32] ;+32 qword: размер файла в байтах + stdcall mem.ReAlloc,[open_file_data],ecx + mov [open_file_data],eax + + mov [run_file_70.Function], SSF_READ_FILE + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + mov dword[run_file_70.Count], ecx + m2m dword[run_file_70.Buffer], dword[open_file_data] + mov byte[run_file_70+20], 0 + mov dword[run_file_70.FileName], openfile_path + mcall SF_FILE,run_file_70 + cmp ebx,0xffffffff + je .end_open_file + + mov [open_file_size],ebx + mcall SF_SET_CAPTION,1,openfile_path + + mov eax,[open_file_data] + movzx eax,byte[eax] + mov dword[v_zoom],eax ;берем масштаб по умолчанию + mov ecx,[open_file_size] + sub ecx,vox_offs_data + shr ecx,2 + imul ecx,vox_ogl_size + add ecx,4 ;ecx = размер памяти необходимой для распаковки координат + stdcall mem.ReAlloc,[open_file_ogl],ecx + or eax,eax + jz .end_open_file + mov [open_file_ogl],eax + stdcall buf_vox_obj_create_3d,[open_file_data],eax,0,0,[v_zoom] + call draw_cadr_8 + .end_open_file: +popad + ret + +;description: +; рисование 8-ми кадров под разными углами поворота +align 4 +draw_cadr_8: + call but_new_file ;установка углов поворота по умолчанию + stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер + + ;рисование 8-ми кадров + fild dword[rot_angles+4] + fstp dword[angle_y] + call draw_3d + call draw_cadr + stdcall [buf2d_bit_blt], buf_0, 128, 0, buf_1 + + fild dword[rot_angles+8] + fstp dword[angle_y] + call draw_3d + call draw_cadr + stdcall [buf2d_bit_blt], buf_0, 0, 128, buf_1 + + fild dword[rot_angles+12] + fstp dword[angle_y] + call draw_3d + call draw_cadr + stdcall [buf2d_bit_blt], buf_0, 128, 128, buf_1 + + fild dword[rot_angles+16] + fstp dword[angle_y] + call draw_3d + call draw_cadr + stdcall [buf2d_bit_blt], buf_0, 0, 256, buf_1 + + fild dword[rot_angles+20] + fstp dword[angle_y] + call draw_3d + call draw_cadr + stdcall [buf2d_bit_blt], buf_0, 128, 256, buf_1 + + fild dword[rot_angles+24] + fstp dword[angle_y] + call draw_3d + call draw_cadr + stdcall [buf2d_bit_blt], buf_0, 0, 384, buf_1 + + fild dword[rot_angles+28] + fstp dword[angle_y] + call draw_3d + call draw_cadr + stdcall [buf2d_bit_blt], buf_0, 128, 384, buf_1 + + ; *** последний кадр *** + fild dword[rot_angles] + fstp dword[angle_y] + call draw_3d + call draw_cadr + stdcall [buf2d_bit_blt], buf_0, 0, 0, buf_1 + + call draw_3d + ; *** + + stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране + ret + +align 4 +rot_angles dd 180,225,270,315,0,45,90,135 + +align 4 +draw_cadr: + mov eax,dword[ctx1] ;eax -> TinyGLContext.GLContext + mov eax,[eax] ;eax -> ZBuffer + mov eax,[eax+ZBuffer.pbuf] + mov dword[buf_1],eax + + mov dword[buf_1.w],512 + mov dword[buf_1.h],512 + stdcall [buf2d_img_hdiv2],buf_1 + mov dword[buf_1.h],256 + stdcall [buf2d_img_hdiv2],buf_1 + mov dword[buf_1.h],128 + stdcall [buf2d_img_wdiv2],buf_1 + mov dword[buf_1.w],256 + stdcall [buf2d_img_wdiv2],buf_1 + mov dword[buf_1.w],128 + ret + +align 4 +but_save_file: + copy_path open_dialog_name,communication_area_default_path,file_name,0 + pushad + mov [OpenDialog_data.type],1 + stdcall [OpenDialog_Start],OpenDialog_data + cmp [OpenDialog_data.status],2 + je .end_save_file + ;код при удачном открытии диалога + + mov [run_file_70.Function], SSF_CREATE_FILE + mov [run_file_70.Position], 0 + mov [run_file_70.Flags], 0 + mov ebx, dword[open_file_data] + ;пишем в файл новый масштаб + mov edx,dword[v_zoom] + mov byte[ebx],dl + mov [run_file_70.Buffer], ebx + mov ebx,[open_file_size] + mov dword[run_file_70.Count], ebx ;размер файла + mov byte[run_file_70+20], 0 + mov dword[run_file_70.FileName], openfile_path + mcall SF_FILE,run_file_70 + ;cmp ebx,0xffffffff + ;je .end_save_file + ; ... сообщение о неудачном сохранении ... + + .end_save_file: + popad + ret + +align 4 +proc but_zoom_p uses eax + cmp dword[v_zoom],11 ;max=2^11=2048 + jge @f + inc dword[v_zoom] + stdcall buf_vox_obj_create_3d,[open_file_data],[open_file_ogl],0,0,[v_zoom] + call draw_3d + call [kosglSwapBuffers] + @@: + ret +endp + +align 4 +proc but_zoom_m uses eax + cmp dword[v_zoom],1 + jle @f + dec dword[v_zoom] + stdcall buf_vox_obj_create_3d,[open_file_data],[open_file_ogl],0,0,[v_zoom] + call draw_3d + call [kosglSwapBuffers] + @@: + ret +endp + +align 4 +proc but_light uses eax ebx ecx edx + xor word[opt_light],1 + cmp word[opt_light],0 + je @f + stdcall [glEnable], GL_LIGHTING + stdcall [glEnable], GL_LIGHT0 + jmp .end_light + @@: + stdcall [glDisable], GL_LIGHTING + stdcall [glDisable], GL_LIGHT0 + .end_light: + call draw_toolbar_i + call draw_3d + call [kosglSwapBuffers] + ret +endp + +align 4 +proc but_4 uses eax ebx ecx edx + xor word[opt_cube_box],1 + call draw_toolbar_i + call draw_3d + call [kosglSwapBuffers] + ret +endp + +align 4 +proc but_5 uses eax ebx ecx edx + xor word[opt_auto_rotate],1 + call draw_toolbar_i + ret +endp + +align 4 +proc but_info uses eax ebx ecx edx edi + ;вычисление статистики по вокселям + mov eax,[open_file_ogl] + or eax,eax + jz .end_stat + mov ebx,[eax] + mov ecx,ebx + mov edx,ebx + imul ebx,6 + add eax,4 +align 4 + .cycle_0: + bt word[eax+vox_ogl_planes],vox_ogl_gran_z0 + jc @f + dec ebx + @@: + bt word[eax+vox_ogl_planes],vox_ogl_gran_z1 + jc @f + dec ebx + @@: + bt word[eax+vox_ogl_planes],vox_ogl_gran_y0 + jc @f + dec ebx + @@: + bt word[eax+vox_ogl_planes],vox_ogl_gran_y1 + jc @f + dec ebx + @@: + bt word[eax+vox_ogl_planes],vox_ogl_gran_x0 + jc @f + dec ebx + @@: + bt word[eax+vox_ogl_planes],vox_ogl_gran_x1 + jc @f + dec ebx + @@: + add eax,vox_ogl_size + loop .cycle_0 + + mov eax,edx + mov edi,txt_stat_m1.v + stdcall convert_int_to_str,20 + + mov eax,ebx + mov edi,txt_stat_m2.v + stdcall convert_int_to_str,20 + + stdcall str_n_cat,txt_stat_m1.v,txt_stat_m2,50 + notify_window_run txt_stat_m1 + .end_stat: + ret +endp + +align 4 +txt_stat_m1: +if lang eq ru_RU + db 'Статистика',13,10,'Вокселей: ' +.v: rb 70 +txt_stat_m2: + db 13,10,'Отображаемых граней: ' + +else ; Default to en_US + db 'Statistics',13,10,'Voxels: ' +.v: rb 70 +txt_stat_m2: + db 13,10,'Facets displayed: ' + +end if +.v: rb 20 + +align 4 +proc but_draw_cadr uses eax ebx ecx edx + mov ebx,[angle_x] + mov ecx,[angle_y] + mov edx,[angle_z] + call draw_cadr_8 + mov [angle_x],ebx + mov [angle_y],ecx + mov [angle_z],edx + cmp word[opt_auto_rotate],0 + jne @f + call draw_3d + ;call [kosglSwapBuffers] + @@: + ret +endp + +align 4 +draw_3d: + stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;очистим буфер цвета и глубины + stdcall [glPushMatrix] + + cmp word[opt_light],0 + je @f + call SetLight + @@: + stdcall [glTranslatef], 0.0,0.0,0.5 ;координаты по оси z должны быть в пределах от 0.0 до 1.0, иначе изображение будет отсекаться + ;воксельный объект имеет координаты по осям от -0.5 до 0.5, потому его двигаем на +0.5 + ;но все же при поворотах будут отсекатся края, которые вылезут за пределы плоскостей отсечения + ;в версии opengl под Win координаты идут от -1.0 до 1.0 потому там этого делать не нужно + stdcall [glScalef], [scale], [scale], [scale] ;увеличиваем воксельный объект, что-бы не был очень маленьким + stdcall [glScalef], 1.0, 1.0, 0.25 ;что-бы края объекта не вылазили за грани отсечения + stdcall [glRotatef], [angle_x],1.0,0.0,0.0 + stdcall [glRotatef], [angle_y],0.0,1.0,0.0 + stdcall [glRotatef], [angle_z],0.0,0.0,1.0 + stdcall draw_voxels_3d,[open_file_ogl] + + call [glPopMatrix] +ret + +align 4 +proc SetLight + stdcall [glLightfv], GL_LIGHT0, GL_POSITION, light_position + stdcall [glLightfv], GL_LIGHT0, GL_SPOT_DIRECTION, light_dir + + stdcall [glLightfv], GL_LIGHT0, GL_DIFFUSE, white_light + stdcall [glLightfv], GL_LIGHT0, GL_SPECULAR, white_light + + stdcall [glEnable], GL_COLOR_MATERIAL + stdcall [glColorMaterial], GL_FRONT, GL_AMBIENT_AND_DIFFUSE + stdcall [glMaterialfv], GL_FRONT, GL_SPECULAR, mat_specular + stdcall [glMaterialf], GL_FRONT, GL_SHININESS, mat_shininess + stdcall [glLightModelfv], GL_LIGHT_MODEL_AMBIENT, lmodel_ambient + + stdcall [glEnable], GL_LIGHTING + stdcall [glEnable], GL_LIGHT0 + + ;;;stdcall [glLightModeli], GL_LIGHT_MODEL_TWO_SIDE, GL_TRUE + ret +endp + +align 4 +proc img_to_gray, buf_rgb:dword, buf_g24:dword, pixels:dword +pushad + mov esi,[buf_rgb] + mov edi,[buf_g24] + mov ecx,[pixels] + mov ebx,3 +align 4 + @@: + movzx eax,byte[esi] + movzx edx,byte[esi+1] + add eax,edx + movzx edx,byte[esi+2] + add eax,edx + xor edx,edx + div ebx ;shr eax,2 + mov ah,al + mov word[edi],ax + mov byte[edi+2],al + add esi,3 + add edi,3 + loop @b +popad + ret +endp + + +;данные для диалога открытия файлов +align 4 +OpenDialog_data: +.type dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию +.procinfo dd procinfo ;+4 +.com_area_name dd communication_area_name ;+8 +.com_area dd 0 ;+12 +.opendir_path dd plugin_path ;+16 +.dir_default_path dd default_dir ;+20 +.start_path dd file_name ;+24 путь к диалогу открытия файлов +.draw_window dd draw_window ;+28 +.status dd 0 ;+32 +.openfile_path dd openfile_path ;+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 + +default_dir db '/sys',0 + +communication_area_name: + db 'FFFFFFFF_open_dialog',0 +open_dialog_name: + db 'opendial',0 +communication_area_default_path: + db '/sys/File managers/',0 + +Filter: +dd Filter.end - Filter ;.1 +.1: +db 'VOX',0 +db 'TXT',0 +.end: +db 0 + + +system_dir_0 db '/sys/lib/' +lib_name_0 db 'proc_lib.obj',0 +system_dir_1 db '/sys/lib/' +lib_name_1 db 'libimg.obj',0 +system_dir_2 db '/sys/lib/' +lib_name_2 db 'buf2d.obj',0 +system_dir_3 db '/sys/lib/' +lib_name_3 db 'tinygl.obj',0 + +l_libs_start: + lib_0 l_libs lib_name_0, file_name, system_dir_0, import_proclib + lib_1 l_libs lib_name_1, file_name, system_dir_1, import_libimg + lib_2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d + lib_3 l_libs lib_name_3, file_name, system_dir_3, import_tinygl +l_libs_end: + +align 4 +import_libimg: + dd alib_init1 +; img_is_img dd aimg_is_img +; img_info dd aimg_info +; img_from_file dd aimg_from_file +; img_to_file dd aimg_to_file +; img_from_rgb dd aimg_from_rgb +; img_to_rgb dd aimg_to_rgb + img_to_rgb2 dd aimg_to_rgb2 + img_decode dd aimg_decode +; img_encode dd aimg_encode +; img_create dd aimg_create + img_destroy dd aimg_destroy +; img_destroy_layer dd aimg_destroy_layer +; img_count dd aimg_count +; img_lock_bits dd aimg_lock_bits +; img_unlock_bits dd aimg_unlock_bits +; img_flip dd aimg_flip +; img_flip_layer dd aimg_flip_layer +; img_rotate dd aimg_rotate +; img_rotate_layer dd aimg_rotate_layer +; img_draw dd aimg_draw +; img_convert dd aimg_convert + + dd 0,0 + alib_init1 db 'lib_init',0 +; aimg_is_img db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение +; aimg_info db 'img_info',0 +; aimg_from_file db 'img_from_file',0 +; aimg_to_file db 'img_to_file',0 +; aimg_from_rgb db 'img_from_rgb',0 +; aimg_to_rgb db 'img_to_rgb',0 ;преобразование изображения в данные RGB + aimg_to_rgb2 db 'img_to_rgb2',0 + aimg_decode db 'img_decode',0 ;автоматически определяет формат графических данных +; aimg_encode db 'img_encode',0 +; aimg_create db 'img_create',0 + aimg_destroy db 'img_destroy',0 +; aimg_destroy_layer db 'img_destroy_layer',0 +; aimg_count db 'img_count',0 +; aimg_lock_bits db 'img_lock_bits',0 +; aimg_unlock_bits db 'img_unlock_bits',0 +; aimg_flip db 'img_flip',0 +; aimg_flip_layer db 'img_flip_layer',0 +; aimg_rotate db 'img_rotate',0 +; aimg_rotate_layer db 'img_rotate_layer',0 +; aimg_draw db 'img_draw',0 +; aimg_convert db 'img_convert',0 + +align 4 +import_proclib: + OpenDialog_Init dd aOpenDialog_Init + OpenDialog_Start dd aOpenDialog_Start +dd 0,0 + aOpenDialog_Init db 'OpenDialog_init',0 + aOpenDialog_Start db 'OpenDialog_start',0 + +align 4 +import_buf2d: + init dd sz_init + buf2d_create dd sz_buf2d_create + buf2d_create_f_img dd sz_buf2d_create_f_img + buf2d_clear dd sz_buf2d_clear + buf2d_draw dd sz_buf2d_draw + buf2d_delete dd sz_buf2d_delete + buf2d_line dd sz_buf2d_line + buf2d_rect_by_size dd sz_buf2d_rect_by_size + buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size + buf2d_circle dd sz_buf2d_circle + buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2 + buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2 + buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8 + buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32 + buf2d_bit_blt dd sz_buf2d_bit_blt + buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp + buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha + buf2d_curve_bezier dd sz_buf2d_curve_bezier + buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix + buf2d_draw_text dd sz_buf2d_draw_text + buf2d_crop_color dd sz_buf2d_crop_color + buf2d_offset_h dd sz_buf2d_offset_h + buf2d_flood_fill dd sz_buf2d_flood_fill + buf2d_set_pixel dd sz_buf2d_set_pixel + dd 0,0 + sz_init db 'lib_init',0 + sz_buf2d_create db 'buf2d_create',0 + sz_buf2d_create_f_img db 'buf2d_create_f_img',0 + sz_buf2d_clear db 'buf2d_clear',0 + sz_buf2d_draw db 'buf2d_draw',0 + sz_buf2d_delete db 'buf2d_delete',0 + sz_buf2d_line db 'buf2d_line',0 + sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0 + sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0 + sz_buf2d_circle db 'buf2d_circle',0 + sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0 + sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0 + sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0 + sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0 + sz_buf2d_bit_blt db 'buf2d_bit_blt',0 + sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0 + sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0 + sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0 + sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0 + sz_buf2d_draw_text db 'buf2d_draw_text',0 + sz_buf2d_crop_color db 'buf2d_crop_color',0 + sz_buf2d_offset_h db 'buf2d_offset_h',0 + sz_buf2d_flood_fill db 'buf2d_flood_fill',0 + sz_buf2d_set_pixel db 'buf2d_set_pixel',0 + +;-------------------------------------------------- +align 4 +import_tinygl: + +macro E_LIB n +{ + n dd sz_#n +} +include '../../../develop/libraries/TinyGL/asm_fork/export.inc' + dd 0,0 +macro E_LIB n +{ + sz_#n db `n,0 +} +include '../../../develop/libraries/TinyGL/asm_fork/export.inc' + +last_time dd 0 + +align 4 +buf_0: dd 0 ;указатель на буфер изображения + dw 530 ;+4 left + dw 30 ;+6 top +.w: dd 256 ;+8 w +.h: dd 512 ;+12 h +.color: dd 0xffffd0 ;+16 color + db 24 ;+20 bit in pixel + +align 4 +buf_1: dd 0 ;указатель на буфер изображения + dw 0 ;+4 left + dw 0 ;+6 top +.w: dd 512 ;+8 w +.h: dd 512 ;+12 h +.color: dd 0xffffff ;+16 color + db 24 ;+20 bit in pixel + +scale dd 1.414213562 +angle_x dd 0.0 +angle_y dd 0.0 +angle_z dd 0.0 +delt_size dd 3.0 +angle_dxm dd 2.8444 ;~ 3d_wnd_w/180 - прибавление углов поворота сцены при вращении мышей +angle_dym dd 2.8444 ;~ 3d_wnd_h/180 + +opt_light dw 0 ;опция для включения/выключения света +opt_cube_box dw 1 ;опция для рисования рамки вокруг объекта +opt_auto_rotate dw 0 ;опция для автоматического поворота объекта + +light_position dd 0.0, 0.0, 2.0, 1.0 ; Расположение источника [0][1][2] + ;[3] = (0.0 - бесконечно удаленный источник, 1.0 - источник света на определенном расстоянии) +light_dir dd 0.0,0.0,0.0 ;направление лампы + +mat_specular dd 0.3, 0.3, 0.3, 1.0 ; Цвет блика +mat_shininess dd 3.0 ; Размер блика (обратная пропорция) +white_light dd 0.8, 0.8, 0.8, 1.0 ; Цвет и интенсивность освещения, генерируемого источником +lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ; Параметры фонового освещения + + +align 16 +i_end: + ctx1 rb 28 ;sizeof.TinyGLContext = 28 + image_data_toolbar dd ? + mouse_drag dd ? ;режим поворота сцены от перемещении курсора мыши + mouse_x dd ? + mouse_y dd ? + rb 4096 +stacktop: + sys_path rb 1024 + file_name rb 2048 + plugin_path rb 4096 + openfile_path rb 4096 + filename_area rb 256 + sc system_colors + procinfo process_information + run_file_70 FileInfoBlock +mem: diff --git a/programs/media/zsea/data.inc b/programs/media/zsea/data.inc index fdbdbe6baa..24e8f545a7 100644 --- a/programs/media/zsea/data.inc +++ b/programs/media/zsea/data.inc @@ -1,1785 +1,1787 @@ -;--------------------------------------------------------------------- -; DATA AREA -;--------------------------------------------------------------------- -lsz labelt1,\ - en_US, 'File',\ - ru_RU, 'Файл',\ - de_DE, 'Datei' - db 0 - -;--------------------------------------------------------------------- -lsz labelt2,\ - en_US, 'File info',\ - ru_RU, 'Информация о файле',\ - de_DE, 'Dateiinfo' - db 0 - -lsz fitext,\ - en_US, 'File name ',\ - en_US, 'File size ',\ - en_US, 'X size ',\ - en_US, 'Y size ',\ - en_US, 'Resolution ',\ - en_US, 'Frames total ',\ - \ - ru_RU, 'Имя файла ',\ - ru_RU, 'Размер файла ',\ - ru_RU, 'Ширина ',\ - ru_RU, 'Высота ',\ - ru_RU, 'Бит на пиксел ',\ - ru_RU, 'Всего кадров ',\ - \ - de_DE, 'Datei Namen ',\ - de_DE, 'Fateigroesse ',\ - de_DE, 'X groesse ',\ - de_DE, 'Y groesse ',\ - de_DE, 'Die Tiefe ',\ - de_DE, 'Zahl Frames ' - db 0 -;--------------------------------------------------------------------- -Authors_text: -.1: db 'zSea version: 1.00 RC5-1 Date: 03/12/2021',0 -.2: db 'Authors:',0 -.3: db 'Marat Zakiyanov aka Mario(Mario79)',0 -.4: db 'zSea program, modules: cnv_bmp.obj,',0 -.5: db 'cnv_png.obj, convert.obj, rotate.obj ',0 -.6: db 'scaling.obj, box_lib.obj, OpenDialog',0 -.7: db 'proc_lib.obj',0 - -.8: db 'Evgeny Grechnikov aka Diamond',0 -.9: db 'modules: cnv_jpeg.obj, cnv_gif.obj,',0 -.10: db 'archiver.obj, sort.obj ',0 - -.11: db 'Alexey Teplov aka ',0 -.12: db 'modules: box_lib.obj, load_lib.mac',0 - -.13: db 'Mihail Semenyako aka Mike.dld',0 -.14: db 'modules: libini.obj, libio.obj',0 -;--------------------------------------------------------------------- -status dd 0 ;bit0=1 if file thread is created -;process dd 0 - -bWasDraw db 0 -vflag: db 'x' -bgrmode: dd 1 - -wnd_width dd 210 -wnd_height dd 53 -;--------------------------------- -lsz labelt3,\ - en_US, 'About program',\ - ru_RU, 'О программе',\ - de_DE, 'Uber das programm' - db 0 -;--------------------------------- -lsz labelt4,\ - en_US, 'Set wallpaper',\ - ru_RU, 'Установка фона',\ - de_DE, 'Installation hintergrund' - db 0 -;--------------------------------- -lsz labelt5,\ - en_US, 'Select sorting mode',\ - ru_RU, 'Сортировка директории',\ - de_DE, 'Regimes der Sortierung' - db 0 -;--------------------------------- -lsz bgrdtext,\ - en_US, 'Set as background:',\ - ru_RU, 'Тип обоев:',\ - de_DE, 'Als hintergrund' - db 0 -;--------------------------------- -lsz scc_text,\ - en_US, 'Position:',\ - ru_RU, 'Позиция:',\ - de_DE, 'Position:' - db 0 -;--------------------------------- -lsz sorttext,\ - en_US, 'Directory sorting mode:',\ - ru_RU, 'Режим сортировки директории:',\ - de_DE, 'Regime der Sortierung des Verzeichnisses:' - db 0 -;--------------------------------- -lsz errortext,\ - en_US, 'File system error:',\ - ru_RU, 'Ошибка файловой системы:',\ - de_DE, 'Fehler files systemes:' - db 0 -;--------------------------------- -lsz optiontext,\ - en_US, 'Options:',\ - ru_RU, 'Настройки:',\ - de_DE, 'Optionen:' - db 0 -;--------------------------------- -;lsz tiled,\ -; en_US, 'Tiled',\ -; ru_RU, 'Замостить',\ -; de_DE, 'Gekachelt' - -;lsz stretch,\ -; en_US, 'Stretch',\ -; ru_RU, 'Растянуть',\ -; de_DE, 'Gestreckt' -;--------------------------------- -lsz color_btn,\ - en_US, 'Background color:',\ - ru_RU, 'Цвет фона:',\ - de_DE, 'Hintergrundfarbe:' - db 0 -;--------------------------------- -lsz ok_btn,\ - en_US, 'Ok',\ - ru_RU, 'Ok',\ - de_DE, 'Ok' - db 0 -;--------------------------------- -lsz slide_show_delay_title,\ - en_US, 'Slide show delay:',\ - ru_RU, 'Задержка слайдшоу:',\ - de_DE, 'Verzug der schau:' - db 0 -;--------------------------------- -lsz arrows_offset_title,\ - en_US, 'Arrows offset:',\ - ru_RU, 'Смещение стрелками:',\ - de_DE, 'Bewegung von den zeigern:' - db 0 -;--------------------------------- -slide_show_delay_text: - db '+ -',0 -;--------------------------------------------------------------------- -zoom_auto_factor: - dd 0 -zoom_auto_text: - db 'auto',0 -zoom_factors: - dd zoom_factors.100 -.1: dd 0 -.min: - dd 1 - dd 2 - dd 3 - dd 4 - dd 5 - dd 7 - dd 10 - dd 17 - dd 25 - dd 37 - dd 50 - dd 62 - dd 75 - dd 87 -.100: - dd 100 - dd 125 - dd 150 - dd 175 - dd 200 - dd 225 - dd 250 - dd 275 - dd 300 - dd 350 - dd 400 - dd 450 - dd 500 - dd 600 - dd 700 - dd 800 - dd 900 - dd 1000 - dd 1100 - dd 1200 - dd 1300 - dd 1400 - dd 1500 - dd 1750 - dd 2000 - dd 2250 - dd 2500 - dd 2750 - dd 3000 - dd 3500 - dd 4000 - dd 4500 -.max: - dd 5000 - -zoom_factors_old dd 0 - -;--------------------------------------------------------------------- -; not change this section!!! -; start section -;--------------------------------------------------------------------- -align 4 -crop_image_file dd 0 ;+0 -crop_raw_pointer dd 0 ;+4 -crop_return_code dd 0 ;+8 -crop_img_size dd 0 ;+12 -crop_deflate_unpack dd 0 ;+16 -crop_raw_pointer_2 dd 0 ;+20 -;--------------------------------------------------------------------- -; end section -;--------------------------------------------------------------------- - -;--------------------------------------------------------------------- -; not change this section!!! -; start section -;--------------------------------------------------------------------- -align 4 -image_file dd 0 ;+0 -raw_pointer dd 0 ;+4 -return_code dd 0 ;+8 -img_size dd 0 ;+12 -deflate_unpack dd 0 ;+16 -raw_pointer_2 dd 0 ;+20 -;--------------------------------------------------------------------- -; end section -;--------------------------------------------------------------------- -test1 dd 0 ;+24 -test2 dd 0 ;+28 -test3 dd 0 ;+32 -test4 dd 0 ;+36 -test5 dd 0 ;+40 -test6 dd 0 ;+44 -test7 dd 0 ;+48 -;--------------------------------------------------------------------- -align 4 -soi dd 0 -img_width dd 0 -img_width_2 dd 0 -img_high dd 0 -img_high_2 dd 0 -img_resolution dd 0 -img_resolution_2 dd 0 -img_palette dd 0 - -background_color dd 0xffffff - -skin_height dd 0 - -screen_high dd 0 -screen_width dd 0 - -stretch_start_coordinates: -.y dw 0 -.x dw 0 - -screen_relation dd 0 -picture_relation dd 0 - -stretch_img_high dd 0 -stretch_img_width dd 0 - -RAW1_pointer dd 0 -RAW1_size_x dd 0 -RAW1_size dd 0 -Repeat_N dd 0 -Total_Repeat_N dd 1 -previous_frame_pointer dd 0 -Animation_timer dd 0 -Frame_delay dw 0 -Transp_flag db 0 -Transp_index db 0 -Disposal_Method db 0 -RAW1_flag db 0 -no_fill db 0 -redraw_wallpaper_flag db 0 - -calc_next_value_plus db 0 -calc_next_value_minus db 0 -;--------------------------------------------------------------------- -align 4 -;plugin dd 0 -;plugin_1 dd 0 -;plugin_2 dd 0 -;plugin_3 dd 0 - -;plugin_validate dd 0 -;plugin_validate_1 dd 0 -;plugin_validate_2 dd 0 -;plugin_validate_3 dd 0 - -;plugin_format dd 0 -;plugin_format_1 dd 0 -;plugin_format_2 dd 0 -;plugin_format_3 dd 0 - -;plugin_convert dd 0 -;plugin_convert_background dd 0 -;plugin_sort dd 0 -;plugin_rotate dd 0 -;plugin_scaling dd 0 - -slide_show_delay dd 500 ; cost of 0,01 sec. -slide_show_delay_old dd 0 - -sort_type dd 2 -sort_type_old dd 0 -;--------------------------------------------------------------------- -expansion_length dd 0 -expansion_start dd 0 - -timer dd 0 -;--------------------------------------------------------------------- -mouse_scroll_data: - .vertical dw 0 - .horizontal dw 0 - -mouse_position: - .y dw 0 - .x dw 0 - -mouse_position_old: - .y dw 0 - .x dw 0 - -mouse_keys dd 0 -mouse_keys_old dd 0 - -arrows_offset dd 10 -arrows_offset_old dd 10 - -option_pointer dd 0 -plus_pointer dd 0 -minus_pointer dd 0 -space_pointer dd 0 - -;--------------------------------------------------------------------- -pos: dd 6 - -work_area_LR_old dd 0 -work_area_TB_old dd 0 - -scaling_mode dd 100 -scaling_mode_old dd 100 - -window_start_x_old dd 0 -window_start_y_old dd 0 -window_high_old dd 0 -window_width_old dd 0 - -window_start_x dd 0 -window_start_y dd 0 -window_high dd 0 -window_width dd 0 -;skin_high dd 0 -window_status dd 0 -draw_SB db 0 -draw_SB1 db 0 -correct_w db 0 -correct_h db 0 -wa_width dw 0 -wa_high dw 0 - -wa_width_1 dw 0 -wa_width_2 dw 0 - -wa_high_1 dw 0 -wa_high_2 dw 0 - -image_start_coordinates dd 0 -image_draw_size: -.y: dw 0 -.x: dw 0 - -vertical_position_coorect dd 0 -horizontal_position_coorect dd 0 - -fill_color dd 0xffffff -fill_color_old dd 0xffffff - -position_coorect db 0 - -open_file_flag db 0 -sort_directory_flag db 0 -redraw_flag db 0 - -press_Enter_flag db 0 - -capture_image_area_flag db 0 - -correct_scrollbar_100_flag db 0 -;--------------------------------------------------------------------- -;test_area: -;dd test_area.end - test_area -;db 'BMP',0 -;.end: -;db 0,0,0,0,0,0,0,0,0,0,0,0,0 -;--------------------------------------------------------------------- -aApplicationsPaths db 'ApplicationsPaths',0 -aOther db 'Other',0 - -aHelp db 'Help',0 -aEditor db 'Editor',0 -aOpenDialog db 'OpenDialog',0 -akey_help db 'HelpFile',0 - -aConvertPlugins db 'ConvertPlugins',0 - -ConvertPlugins_no_key db 'NoKey',0 - -aCP0 db 'CP0',0 -aCP1 db 'CP1',0 -aCP2 db 'CP2',0 -aCP3 db 'CP3',0 -aCP4 db 'CP4',0 -aCP5 db 'CP5',0 -aCP6 db 'CP6',0 -aCP7 db 'CP7',0 -aCP8 db 'CP8',0 -aCP9 db 'CP9',0 -;--------------------------------------------------------------------- -plugin_BMP_name db 'cnv_bmp.obj',0 -plugin_PNG_name db 'cnv_png.obj',0 -plugin_JPEG_name db 'cnv_jpeg.obj',0 -plugin_GIF_name db 'cnv_gif.obj',0 - -;plugin_convert_name db 'convert.obj',0 -;plugin_sort_name db 'sort.obj',0 -;plugin_rotate_name db 'rotate.obj',0 -;plugin_scaling_name db 'scaling.obj',0 -;plugin_UNPACK_name db 'archiver.obj',0 -;boxlib_name db 'box_lib.obj',0 -;Libini_name db 'libini.obj',0 -plugins_directory db 'plugins/',0 -ini_file_name db 'zsea.ini',0 - -button_name db 'buttons.png',0 -;buttons_passive_name db '1.png',0 -;buttons_active_name db '2.png',0 -;buttons_click_name db '3.png',0 - -buttons_directory db 'buttons/',0 -;UNPACK_function_name db 'deflate_unpack',0 -;UNPACK_function_name_end: -;UNPACK_function_name db 'deflate_unpack2',0 -;UNPACK_function_name_end: - -system_dir_Boxlib db '/sys/lib/box_lib.obj',0 -system_dir_Libini db '/sys/lib/libini.obj',0 -system_dir_Sort db '/sys/lib/sort.obj',0 -system_dir_UNPACK db '/sys/lib/archiver.obj',0 -system_dir_Convert db '/sys/lib/convert.obj',0 -system_dir_Rotate db '/sys/lib/rotate.obj',0 -system_dir_Scaling db '/sys/lib/scaling.obj',0 -system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 - -;--------------------------------------------------------------------- -l_libs_start: -library01 l_libs system_dir_Boxlib+9, library_path, system_dir_Boxlib, \ -Box_lib_import, plugins_directory - -library02 l_libs system_dir_Libini+9, library_path, system_dir_Libini, \ -Libini_import, plugins_directory - -library03 l_libs system_dir_Sort+9, library_path, system_dir_Sort, \ -Sort_import, plugins_directory - -library04 l_libs system_dir_UNPACK+9, library_path, system_dir_UNPACK, \ -UNPACK_import, plugins_directory - -library05 l_libs system_dir_Convert+9, library_path, system_dir_Convert, \ -Convert_import, plugins_directory - -library06 l_libs system_dir_Rotate+9, library_path, system_dir_Rotate, \ -Rotate_import, plugins_directory - -library07 l_libs system_dir_Scaling+9, library_path, system_dir_Scaling, \ -Scaling_import, plugins_directory - -library08 l_libs system_dir_ProcLib+9, library_path, system_dir_ProcLib, \ -ProcLib_import, plugins_directory - -end_l_libs: -;--------------------------------------------------------------------- -align 4 -cnv_plugin_name_pointer dd plugin_0_name -cnv_plugin_import_pointer dd Convert_plugin_0 - -system_path db '/sys/lib/' -.1: rb 128 -;--------------------------------------------------------------------- -Convert_plugin_0: -.Start dd aCP_Start -.Version dd aCP_Version -.Check dd aCP_Check -.Assoc dd aCP_Assoc - dd 0 - dd 0 -Convert_plugin_1: -.Start dd aCP_Start -.Version dd aCP_Version -.Check dd aCP_Check -.Assoc dd aCP_Assoc - dd 0 - dd 0 -Convert_plugin_2: -.Start dd aCP_Start -.Version dd aCP_Version -.Check dd aCP_Check -.Assoc dd aCP_Assoc - dd 0 - dd 0 -Convert_plugin_3: -.Start dd aCP_Start -.Version dd aCP_Version -.Check dd aCP_Check -.Assoc dd aCP_Assoc - dd 0 - dd 0 -Convert_plugin_4: -.Start dd aCP_Start -.Version dd aCP_Version -.Check dd aCP_Check -.Assoc dd aCP_Assoc - dd 0 - dd 0 -Convert_plugin_5: -.Start dd aCP_Start -.Version dd aCP_Version -.Check dd aCP_Check -.Assoc dd aCP_Assoc - dd 0 - dd 0 -Convert_plugin_6: -.Start dd aCP_Start -.Version dd aCP_Version -.Check dd aCP_Check -.Assoc dd aCP_Assoc - dd 0 - dd 0 -Convert_plugin_7: -.Start dd aCP_Start -.Version dd aCP_Version -.Check dd aCP_Check -.Assoc dd aCP_Assoc - dd 0 - dd 0 -Convert_plugin_8: -.Start dd aCP_Start -.Version dd aCP_Version -.Check dd aCP_Check -.Assoc dd aCP_Assoc - dd 0 - dd 0 -Convert_plugin_9: -.Start dd aCP_Start -.Version dd aCP_Version -.Check dd aCP_Check -.Assoc dd aCP_Assoc - dd 0 - dd 0 -aCP_Start db 'START',0 -aCP_Version db 'version',0 -aCP_Check db 'Check_Header',0 -aCP_Assoc db 'Associations',0 -;--------------------------------------------------------------------- - -file_mount: db 'File N: Amount: Zoom:',0 -.end: - -current_key_code db 0 -old_key_code db 0 -;--------------------------------------------------------------------- -; Tokens -;--------------------------------------------------------------------- -aSortMode db 'SortMode',0 -aSlideShowDelay db 'SlideShowDelay',0 -aArrowsOffset db 'ArrowsOffset',0 -aShowFileName db 'ShowFileName',0 -aFilteringFlag db 'FilteringFlag',0 -;--------------------------------------------------------------------- -;Sections -;--------------------------------------------------------------------- -aVariables db 'Variables',0 -;aVar db 'Var',0 -;aTemp db 'Temp',0 -;--------------------------------------------------------------------- -align 4 -ProcLib_import: -OpenDialog_Init dd aOpenDialog_Init -OpenDialog_Start dd aOpenDialog_Start - -ColorDialog_Init dd aColorDialog_Init -ColorDialog_Start dd aColorDialog_Start -;OpenDialog__Version dd aOpenDialog_Version - dd 0 - dd 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 -;aOpenDialog_Version db 'Version_OpenDialog',0 -;--------------------------------------------------------------------- -align 4 -Scaling_import: -Scaling_Start dd aScaling_Start -Scaling_Version dd aScaling_Version - dd 0 - dd 0 -aScaling_Start db 'START',0 -aScaling_Version db 'version',0 -;--------------------------------------------------------------------- -align 4 -Rotate_import: -rotate_Start dd aRotate_Start -rotate_Version dd aRotate_Version - dd 0 - dd 0 -aRotate_Start db 'START',0 -aRotate_Version db 'version',0 -;--------------------------------------------------------------------- -align 4 -Convert_import: -convert_Start dd aConvert_Start -convert_Version dd aConvert_Version -convert_Conv_24b dd aConvert_Conv_24b - dd 0 - dd 0 -aConvert_Start db 'START',0 -aConvert_Version db 'version',0 -aConvert_Conv_24b db 'Convert24b',0 -;--------------------------------------------------------------------- -align 4 -UNPACK_import: -;unpack_Version dd aUnpack_Version -;unpack_PluginLoad dd aUnpack_PluginLoad -;unpack_OpenFilePlugin dd aUnpack_OpenFilePlugin -;unpack_ClosePlugin dd aUnpack_ClosePlugin -;unpack_ReadFolder dd aUnpack_ReadFolder -;unpack_SetFolder dd aUnpack_SetFolder -;unpack_GetFiles dd aUnpack_GetFiles -;unpack_GetOpenPluginInfo dd aUnpack_GetOpenPluginInfo -;unpack_Getattr dd aUnpack_Getattr -;unpack_Open dd aUnpack_Open -;unpack_Read dd aUnpack_Read -;unpack_Setpos dd aUnpack_Setpos -;unpack_Close dd aUnpack_Close -;unpack_DeflateUnpack dd aUnpack_DeflateUnpack -unpack_DeflateUnpack2 dd aUnpack_DeflateUnpack2 - dd 0 - dd 0 - -;aUnpack_Version db 'version',0 -;aUnpack_PluginLoad db 'plugin_load',0 -;aUnpack_OpenFilePlugin db 'OpenFilePlugin',0 -;aUnpack_ClosePlugin db 'ClosePlugin',0 -;aUnpack_ReadFolder db 'ReadFolder',0 -;aUnpack_SetFolder db 'SetFolder',0 -;aUnpack_GetFiles db 'GetFiles',0 -;aUnpack_GetOpenPluginInfo db 'GetOpenPluginInfo',0 -;aUnpack_Getattr db 'getattr',0 -;aUnpack_Open db 'open',0 -;aUnpack_Read db 'read',0 -;aUnpack_Setpos db 'setpos',0 -;aUnpack_Close db 'close',0 -;aUnpack_DeflateUnpack db 'deflate_unpack',0 -aUnpack_DeflateUnpack2 db 'deflate_unpack2',0 - -;--------------------------------------------------------------------- -align 4 -Sort_import: -sort_init dd aSort_init -sort_version dd aSort_version -sort_dir dd aSort_SortDir -sort_strcmpi dd aSort_strcmpi - dd 0 - dd 0 - -aSort_init db 'START',0 -aSort_version db 'version',0 -aSort_SortDir db 'SortDir',0 -aSort_strcmpi db 'strcmpi',0 - -;--------------------------------------------------------------------- -align 4 -Libini_import: -lib_init dd aLib_init -version_lib_ini dd aVersion_lib_ini -ini_enum_sections dd aIni_enum_sections -ini_enum_keys dd aIni_enum_keys -ini_get_str dd aIni_get_str -ini_get_int dd aIni_get_int -ini_get_color dd aIni_get_color -ini_set_str dd aIni_set_str -ini_set_int dd aIni_set_int -ini_set_color dd aIni_set_color - dd 0 - dd 0 - -aLib_init db 'lib_init',0 -aVersion_lib_ini db 'version',0 -aIni_enum_sections db 'ini_enum_sections',0 -aIni_enum_keys db 'ini_enum_keys',0 -aIni_get_str db 'ini_get_str',0 -aIni_get_int db 'ini_get_int',0 -aIni_get_color db 'ini_get_color',0 -aIni_set_str db 'ini_set_str',0 -aIni_set_int db 'ini_set_int',0 -aIni_set_color db 'ini_set_color',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 - -init_checkbox dd aInit_checkbox -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 - dd 0 - dd 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_mouse db 'edit_box_mouse',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 -;aVersion_ch db 'version_ch2',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 -;--------------------------------------------------------------------- -align 4 -load_directory_pointer dd 0 -file_name_length dd 0 -load_file_number dd 0 -error_fs dd 0 -error_pointer dd 0 -;error_locate dd 0 -error_window_x: dd 100 shl 16 + 300 -error_window_y: dd 100 shl 16 + 100 - -PID dd 0 -PID1 dd 0 -PID2 dd 0 -PID3 dd 0 -PID4 dd 0 -PID5 dd 0 -PID6 dd 0 -PID7 dd 0 -active_process dd 0 -timer_counter dd 0 -draw_scrollbar_counter dd 0 -;--------------------------------------------------------------------- -align 4 -error_fs_text_pointers: - dd error_fs_text_0 - dd error_fs_text_1 - dd error_fs_text_2 - dd error_fs_text_3 - dd error_fs_text_4 - dd error_fs_text_5 - dd error_fs_text_6 - dd error_fs_text_7 - dd error_fs_text_8 - dd error_fs_text_9 - dd error_fs_text_10 - dd error_fs_text_11 - -error_fs_text_0: db 'Success full',0 -error_fs_text_1: db 'Base and/or partition of a hard disk is not defined',0 -error_fs_text_2: db 'Function is not supported for the given file system',0 -error_fs_text_3: db 'Unknown file system',0 -error_fs_text_4: db 'Reserved, is never returned in the current implementation',0 -error_fs_text_5: db 'File not found',0 -error_fs_text_6: db 'End of file, EOF',0 -error_fs_text_7: db 'Pointer lies outside of application memory',0 -error_fs_text_8: db 'Disk is full',0 -error_fs_text_9: db 'FAT table is destroyed',0 -error_fs_text_10: db 'Access denied',0 -error_fs_text_11: db 'Device error',0 -;--------------------------------------------------------------------- -error_type: - db 'File system error',0 -;--------------------------------------------------------------------- -error_not_supported_file: - db 'Unsupported file or corrupt data',0 -;--------------------------------------------------------------------- -error_not_enough_memory: - db 'Not_enough_memory',0 -;--------------------------------------------------------------------- -error_unknown: - db 'Unknown error',0 -;--------------------------------------------------------------------- -extended_key db 0 -no_draw_window db 0 - -shift_flag db 0 -ctrl_flag db 0 -alt_flag db 0 -;--------------------------------------------------------------------- -; for EDITBOX -align 4 -name_editboxes: -edit1 edit_box 200,10,30,0xffffff,0xbbddff,0,0,0,255,string,mouse_dd,ed_focus+ed_always_focus,0 -name_editboxes_end: - -;mouse_flag: dd 0x0 - -mouse_dd rd 1 -;--------------------------------------------------------------------- -align 4 -; option_boxes_bcgr: -op1 option_box option_group1,60,45,6,12,0xFFFFFF,0,0xffffff,op_text.1,op_text.e1-op_text.1 -op2 option_box option_group1,60,60,6,12,0xFFFFFF,0,0xffffff,op_text.2,op_text.e2-op_text.2 -op3 option_box option_group1,60,75,6,12,0xFFFFFF,0,0xffffff,op_text.3,op_text.e3-op_text.3 -op4 option_box option_group1,60,90,6,12,0xFFFFFF,0,0xffffff,op_text.4,op_text.e4-op_text.4 -;option_boxes_bcgr_end: - -op_text: -.1 db 'Tiled' -.e1: -.2 db 'Stretch' -.e2: -.3 db 'Stretch + Crop' -.e3: -.4 db 'Stretch + Inscribe' -.e4: - -option_group1 dd op1 - -option_boxes_bcgr: dd op1,op2,op3,op4,0 - -;--------------------------------------------------------------------- -align 4 -op_UL option_box option_group3,200,40,20,20,0xFFFFFF,0,0xffffff,0,0 -op_UC option_box option_group3,223,40,20,20,0xFFFFFF,0,0xffffff,0,0 -op_UR option_box option_group3,246,40,20,20,0xFFFFFF,0,0xffffff,0,0 -op_CL option_box option_group3,200,63,20,20,0xFFFFFF,0,0xffffff,0,0 -op_CC option_box option_group3,223,63,20,20,0xFFFFFF,0,0xffffff,0,0 -op_CR option_box option_group3,246,63,20,20,0xFFFFFF,0,0xffffff,0,0 -op_DL option_box option_group3,200,86,20,20,0xFFFFFF,0,0xffffff,0,0 -op_DC option_box option_group3,223,86,20,20,0xFFFFFF,0,0xffffff,0,0 -op_DR option_box option_group3,246,86,20,20,0xFFFFFF,0,0xffffff,0,0 -;option_boxes_bcgr_end: - -option_group3 dd op_CC - -Stretch_Crop_Corner dd 1 shl 16+1 -option_boxes_SCC: dd op_UL,op_UC,op_UR,op_CL,op_CC,op_CR,op_DL,op_DC,op_DR,0 - -bcgr_group_pointer db 0 -;--------------------------------------------------------------------- -align 4 -;option_boxes_sort: -sort0 option_box option_group2,60,40,6,12,0xFFFFFF,0,0xffffff,op_text_1.1,op_text_1.e1-op_text_1.1 -sort2 option_box option_group2,60,55,6,12,0xFFFFFF,0,0xffffff,op_text_1.2,op_text_1.e2-op_text_1.2 -sort4 option_box option_group2,60,70,6,12,0xFFFFFF,0,0xffffff,op_text_1.3,op_text_1.e3-op_text_1.3 -sort6 option_box option_group2,60,85,6,12,0xFFFFFF,0,0xffffff,op_text_1.4,op_text_1.e4-op_text_1.4 -option_boxes_sort_end: - -op_text_1: -.1 db 'Name' -.e1: -.2 db 'Type' -.e2: -.3 db 'Date' -.e3: -.4 db 'Size' -.e4: - -option_group2 dd sort2 -option_group2_old dd 0 - -option_boxes_sort dd sort0, sort2, sort4, sort6,0 -;--------------------------------------------------------------------- -check1 check_box2 (140 shl 16)+12,(50 shl 16)+12,6,0xFFFFFF,0,0xffffff,check_text1,ch_flag_middle ;ch_flag_en - -check_text1 db 'Show file name',0 - -show_file_name_old dd 0 -;--------------------------------------------------------------------- -check2 check_box2 (140 shl 16)+12,(70 shl 16)+12,6,0xFFFFFF,0,0xffffff,check_text2,ch_flag_middle ;ch_flag_en - -check_text2 db 'Bilinear filtering',0 - -filtering_flag dd 0 -filtering_flag_old dd 0 -;--------------------------------------------------------------------- -align 4 -scroll_bar_data_vertical: -.x: -.size_x dw 15 ;+0 -.start_x dw 500 ;+2 -.y: -.size_y dw 300 ;+4 -.start_y dw 30 ;+6 -.btn_high dd 15 ;+8 -.type dd 2 ;+12 -.max_area dd 10 ;+16 -.cur_area dd 2 ;+20 -.position dd 0 ;+24 -.bckg_col dd 0xeeeeee ;+28 -.frnt_col dd 0x8aeaa0 ;0xbbddff ;+32 -.line_col dd 0 ;+36 -.redraw dd 0 ;+40 -.delta dw 0 ;+44 -.delta2 dw 0 ;+46 -.run_x: -.r_size_x dw 0 ;+48 -.r_start_x dw 0 ;+50 -.run_y: -.r_size_y dw 0 ;+52 -.r_start_y dw 0 ;+54 -.m_pos dd 0 ;+56 -.m_pos_2 dd 0 ;+60 -.m_keys dd 0 ;+64 -.run_size dd 0 ;+68 -.position2 dd 0 ;+72 -.work_size dd 0 ;+76 -.all_redraw dd 0 ;+80 -.ar_offset dd 10 ;+84 -;--------------------------------------------------------------------- -align 4 -scroll_bar_data_horizontal: -.x: -.size_x dw 300 ;0 ;+0 -.start_x dw 10 ;0 ;+2 -.y: -.size_y dw 15 ;0 ;+4 -.start_y dw 300 ;0 ;+6 -.btn_high dd 15 ;+8 -.type dd 2 ;+12 -.max_area dd 10 ;+16 -.cur_area dd 2 ;+20 -.position dd 0 ;+24 -.bckg_col dd 0xeeeeee ;+28 -.frnt_col dd 0x8aeaa0 ;0xbbddff ;+32 -.line_col dd 0 ;+36 -.redraw dd 0 ;+40 -.delta dw 0 ;+44 -.delta2 dw 0 ;+46 -.run_x: -.r_size_x dw 0 ;+48 -.r_start_x dw 0 ;+50 -.run_y: -.r_size_y dw 0 ;+52 -.r_start_y dw 0 ;+54 -.m_pos dd 0 ;+56 -.m_pos_2 dd 0 ;+60 -.m_keys dd 0 ;+64 -.run_size dd 0 ;+68 -.position2 dd 0 ;+72 -.work_size dd 0 ;+76 -.all_redraw dd 0 ;+80 -.ar_offset dd 10 ;+84 -;--------------------------------------------------------------------- -align 4 -menu_data_1: -.type: dd 0 ;+0 -.x: -.size_x dw 35 ;+4 -.start_x dw 5 ;+6 -.y: -.size_y dw 15 ;+8 -.start_y dw 6 ;+10 -.text_pointer: dd menu_text_area_1 ;0 ;+12 -.pos_pointer: dd menu_text_area_1.1 ;0 ;+16 -.text_end dd menu_text_area_1.end ;0 ;+20 -.ret_key dd 0 ;+24 -.mouse_keys dd 0 ;+28 -.x1: -.size_x1 dw 70 ;+32 -.start_x1 dw 5 ;+34 -.y1: -.size_y1 dw 100 ;+36 -.start_y1 dw 21 ;+38 -.bckg_col dd 0xe5e5e5 ;+40 -.frnt_col dd 0xff ;+44 -.menu_col dd 0xeef0ff ;0xffffff ;+48 -.select dd 0 ;+52 -.out_select dd 0 ;+56 -.buf_adress dd 0 ;+60 -.procinfo dd 0 ;+64 -.click dd 0 ;+68 -.cursor dd 0 ;+72 -.cursor_old dd 0 ;+76 -.interval dd 16 ;+80 -.cursor_max dd 0 ;+84 -.extended_key dd 0 ;+88 -.menu_sel_col dd 0x00cc00 ;+92 -.bckg_text_col dd 0 ; +96 -.frnt_text_col dd 0xffffff ;+100 -.mouse_keys_old dd 0 ;+104 -.font_height dd 8 ;+108 -.cursor_out dd 0 ;+112 -.get_mouse_flag dd 0 ;+116 -;--------------------------------------------------------------------- -menu_text_area_1: -db 'File',0 -.1: -db 'Open',0 -db 'Properties',0 -db 'Exit',0 -.end: -db 0 -;--------------------------------------------------------------------- -align 4 -menu_data_2: -.type: dd 0 ;+0 -.x: -.size_x dw 35 ;+4 -.start_x dw 40 ;+6 -.y: -.size_y dw 15 ;+8 -.start_y dw 6 ;+10 -.text_pointer: dd menu_text_area_2 ;0 ;+12 -.pos_pointer: dd menu_text_area_2.1 ;0 ;+16 -.text_end dd menu_text_area_2.end ;0 ;+20 -.ret_key dd 0 ;+24 -.mouse_keys dd 0 ;+28 -.x1: -.size_x1 dw 90 ;+32 -.start_x1 dw 40 ;+34 -.y1: -.size_y1 dw 100 ;+36 -.start_y1 dw 21 ;+38 -.bckg_col dd 0xe5e5e5 ;+40 -.frnt_col dd 0xff ;+44 -.menu_col dd 0xeef0ff ;0xffffff ;+48 -.select dd 0 ;+52 -.out_select dd 0 ;+56 -.buf_adress dd 0 ;+60 -.procinfo dd 0 ;+64 -.click dd 0 ;+68 -.cursor dd 0 ;+72 -.cursor_old dd 0 ;+76 -.interval dd 16 ;+80 -.cursor_max dd 0 ;+84 -.extended_key dd 0 ;+88 -.menu_sel_col dd 0x00cc00 ;+92 -.bckg_text_col dd 0 ; +96 -.frnt_text_col dd 0xffffff ;+100 -.mouse_keys_old dd 0 ;+104 -.font_height dd 8 ;+108 -.cursor_out dd 0 ;+112 -.get_mouse_flag dd 0 ;+116 -;--------------------------------------------------------------------- -menu_text_area_2: -db 'Edit',0 -.1: -db 'Rotate Clock.',0 -db 'Rotate CClock.',0 -db 'Invert L to R',0 -db 'Invert U to D',0 -.end: -db 0 -;--------------------------------------------------------------------- -align 4 -menu_data_3: -.type: dd 0 ;+0 -.x: -.size_x dw 35 ;+4 -.start_x dw 75 ;+6 -.y: -.size_y dw 15 ;+8 -.start_y dw 6 ;+10 -.text_pointer: dd menu_text_area_3 ;0 ;+12 -.pos_pointer: dd menu_text_area_3.1 ;0 ;+16 -.text_end dd menu_text_area_3.end ;0 ;+20 -.ret_key dd 0 ;+24 -.mouse_keys dd 0 ;+28 -.x1: -.size_x1 dw 90 ;+32 -.start_x1 dw 75 ;+34 -.y1: -.size_y1 dw 100 ;+36 -.start_y1 dw 21 ;+38 -.bckg_col dd 0xe5e5e5 ;+40 -.frnt_col dd 0xff ;+44 -.menu_col dd 0xeef0ff ;0xffffff ;+48 -.select dd 0 ;+52 -.out_select dd 0 ;+56 -.buf_adress dd 0 ;+60 -.procinfo dd 0 ;+64 -.click dd 0 ;+68 -.cursor dd 0 ;+72 -.cursor_old dd 0 ;+76 -.interval dd 16 ;+80 -.cursor_max dd 0 ;+84 -.extended_key dd 0 ;+88 -.menu_sel_col dd 0x00cc00 ;+92 -.bckg_text_col dd 0 ; +96 -.frnt_text_col dd 0xffffff ;+100 -.mouse_keys_old dd 0 ;+104 -.font_height dd 8 ;+108 -.cursor_out dd 0 ;+112 -.get_mouse_flag dd 0 ;+116 -;--------------------------------------------------------------------- -menu_text_area_3: -db 'View',0 -.1: -db 'Sort Directory',0 -db 'Full Screen',0 -db 'Reload',0 -.end: -db 0 -;--------------------------------------------------------------------- -align 4 -menu_data_4: -.type: dd 0 ;+0 -.x: -.size_x dw 35 ;+4 -.start_x dw 110 ;+6 -.y: -.size_y dw 15 ;+8 -.start_y dw 6 ;+10 -.text_pointer: dd menu_text_area_4 ;0 ;+12 -.pos_pointer: dd menu_text_area_4.1 ;0 ;+16 -.text_end dd menu_text_area_4.end ;0 ;+20 -.ret_key dd 0 ;+24 -.mouse_keys dd 0 ;+28 -.x1: -.size_x1 dw 40 ;+32 -.start_x1 dw 110 ;+34 -.y1: -.size_y1 dw 100 ;+36 -.start_y1 dw 21 ;+38 -.bckg_col dd 0xe5e5e5 ;+40 -.frnt_col dd 0xff ;+44 -.menu_col dd 0xeef0ff ;0xffffff ;+48 -.select dd 0 ;+52 -.out_select dd 0 ;+56 -.buf_adress dd 0 ;+60 -.procinfo dd 0 ;+64 -.click dd 0 ;+68 -.cursor dd 0 ;+72 -.cursor_old dd 0 ;+76 -.interval dd 16 ;+80 -.cursor_max dd 0 ;+84 -.extended_key dd 0 ;+88 -.menu_sel_col dd 0x00cc00 ;+92 -.bckg_text_col dd 0 ; +96 -.frnt_text_col dd 0xffffff ;+100 -.mouse_keys_old dd 0 ;+104 -.font_height dd 8 ;+108 -.cursor_out dd 0 ;+112 -.get_mouse_flag dd 0 ;+116 -;--------------------------------------------------------------------- -menu_text_area_4: -db 'Zoom',0 -.1: -db 'Normal',0 -db 'More',0 -db 'Less',0 -db 'Auto',0 -.end: -db 0 -;--------------------------------------------------------------------- -align 4 -menu_data_5: -.type: dd 0 ;+0 -.x: -.size_x dw 40 ;+4 -.start_x dw 145 ;+6 -.y: -.size_y dw 15 ;+8 -.start_y dw 6 ;+10 -.text_pointer: dd menu_text_area_5 ;0 ;+12 -.pos_pointer: dd menu_text_area_5.1 ;0 ;+16 -.text_end dd menu_text_area_5.end ;0 ;+20 -.ret_key dd 0 ;+24 -.mouse_keys dd 0 ;+28 -.x1: -.size_x1 dw 80 ;+32 -.start_x1 dw 145 ;+34 -.y1: -.size_y1 dw 100 ;+36 -.start_y1 dw 21 ;+38 -.bckg_col dd 0xe5e5e5 ;+40 -.frnt_col dd 0xff ;+44 -.menu_col dd 0xeef0ff ;0xffffff ;+48 -.select dd 0 ;+52 -.out_select dd 0 ;+56 -.buf_adress dd 0 ;+60 -.procinfo dd 0 ;+64 -.click dd 0 ;+68 -.cursor dd 0 ;+72 -.cursor_old dd 0 ;+76 -.interval dd 16 ;+80 -.cursor_max dd 0 ;+84 -.extended_key dd 0 ;+88 -.menu_sel_col dd 0x00cc00 ;+92 -.bckg_text_col dd 0 ; +96 -.frnt_text_col dd 0xffffff ;+100 -.mouse_keys_old dd 0 ;+104 -.font_height dd 8 ;+108 -.cursor_out dd 0 ;+112 -.get_mouse_flag dd 0 ;+116 -;--------------------------------------------------------------------- -menu_text_area_5: -db 'Tools',0 -.1: -db 'Image Editor',0 -db 'Wallpaper',0 -db 'Slide Show',0 -db 'Options',0 -.end: -db 0 -;--------------------------------------------------------------------- -align 4 -menu_data_6: -.type: dd 0 ;+0 -.x: -.size_x dw 35 ;+4 -.start_x dw 185 ;+6 -.y: -.size_y dw 15 ;+8 -.start_y dw 6 ;+10 -.text_pointer: dd menu_text_area_6 ;0 ;+12 -.pos_pointer: dd menu_text_area_6.1 ;0 ;+16 -.text_end dd menu_text_area_6.end ;0 ;+20 -.ret_key dd 0 ;+24 -.mouse_keys dd 0 ;+28 -.x1: -.size_x1 dw 50 ;+32 -.start_x1 dw 185 ;+34 -.y1: -.size_y1 dw 100 ;+36 -.start_y1 dw 21 ;+38 -.bckg_col dd 0xe5e5e5 ;+40 -.frnt_col dd 0xff ;+44 -.menu_col dd 0xeef0ff ;0xffffff ;+48 -.select dd 0 ;+52 -.out_select dd 0 ;+56 -.buf_adress dd 0 ;+60 -.procinfo dd 0 ;+64 -.click dd 0 ;+68 -.cursor dd 0 ;+72 -.cursor_old dd 0 ;+76 -.interval dd 16 ;+80 -.cursor_max dd 0 ;+84 -.extended_key dd 0 ;+88 -.menu_sel_col dd 0x00cc00 ;+92 -.bckg_text_col dd 0 ; +96 -.frnt_text_col dd 0xffffff ;+100 -.mouse_keys_old dd 0 ;+104 -.font_height dd 8 ;+108 -.cursor_out dd 0 ;+112 -.get_mouse_flag dd 0 ;+116 -;--------------------------------------------------------------------- -menu_text_area_6: -db 'Help',0 -.1: -db 'Help',0 -db 'About',0 -.end: -db 0 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_1: ; open file -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 230 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_2: ; reload file -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 255 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_3: ; left limit -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 285 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_4: ; left arrow -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 310 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_5: ; slide show -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 335 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_6: ; right arrow -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 360 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_7: ; right limit -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 385 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_8: ; zoom + -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 415 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_9: ; zoom - -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 440 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_10: ; zoom 100% -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 465 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_11: ; rotate clockwise -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 495 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_12: ; rotate counter-clockwise -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 520 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_13: ; file information -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 550 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_14: ; wallpaper -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 575 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dinamic_button_data_15: ; settings -.type dd 0 ;+0 -.x: -.size_x dw 20 ;+4 -.start_x dw 600 ;+6 -.y: -.size_y dw 20 ;+8 -.start_y dw 3 ;+10 -.mouse_pos dd 0 ;+12 -.mouse_keys dd 0 ;+16 -.mouse_keys_old dd 0 ;+20 -.active_raw dd 0 ;+24 -.passive_raw dd 0 ;+28 -.click_raw dd 0 ;+32 -.resolution_raw dd 0 ;+36 -.palette_raw dd 0 ;+40 -.offset_raw dd 0 ;+44 -.select dd 0 ;+48 -.click dd 0 ;+52 -;--------------------------------------------------------------------- -align 4 -dirinfo: -.subfunction dd 1 -.start dd 0 -.flags dd 0 -.size dd 0 -.return dd procinfo - db 0 -.name: dd plugin_pach -;--------------------------------------------------------------------- -align 4 -fileinfo: -.subfunction dd 5 -.Offset dd 0 -.Offset_1 dd 0 -.size dd 0 -.return dd process_info - db 0 -.name: dd string -;--------------------------------------------------------------------- -align 4 -start_appl: -.subfunction dd 7 -.flags dd 0 -.parameter dd library_path -.reserved1 dd 0 -.reserved2 dd 0 - db 0 -.name: dd Help_path -;--------------------------------------------------------------------- -align 4 -dir_header: -.version dd 0 ;+0 -.curn_blocks dd 0 ;+4 -.totl_blocks dd 0 ;+8 -.other rb 20 -;--------------------------------------------------------------------- -OpenDialog_data: -.type dd 0 -.procinfo dd procinfo ;+4 -.com_area_name dd communication_area_name ;+8 -.com_area dd 0 ;+12 -.opendir_pach dd plugin_pach ;+16 -.dir_default_pach dd communication_area_default_pach ;+20 -.start_path dd library_path ;+24 -.draw_window dd draw_window ;+28 -.status dd 0 ;+32 -.openfile_pach dd string ;+36 -.filename_area dd 0 ;+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_name: - db 'opendial',0 -communication_area_default_pach: - db '/sys',0 -;communication_area dd 0 -;--------------------------------------------------------------------- -ColorDialog_data: -.type dd 0 -.procinfo dd procinfo ;+4 -.com_area_name dd cd_communication_area_name ;+8 -.com_area dd 0 ;+12 -.start_path dd colordialog_path ;+16 -.draw_window dd thread4.draw_window ;+20 -.status dd 0 ;+24 -.x: -.x_size dw 510 ;+28 ; Window X size -.x_start dw 10 ;+30 ; Window X position -.y: -.y_size dw 310 ;+32 ; Window y size -.y_start dw 10 ;+34 ; Window Y position -.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 -colordialog_path: - db '/sys/colrdial',0 -;--------------------------------------------------------------------- -; clear bacground thread -clear_thread_stack: - dd 0 -;---------------------- -; window option -thread_stack_7: - dd 0 -;---------------------- -; window error message -thread_stack_6: - dd 0 -;---------------------- -; window set sort mode -thread_stack_5: - dd 0 -;---------------------- -; window background -thread_stack_4: - dd 0 -;---------------------- -; window about -thread_stack_3: - dd 0 -;---------------------- -; file info -thread_stack_2: - dd 0 -;---------------------- -; file open -thread_stack: - dd 0 -;--------------------------------------------------------------------- -;size_before_open_dir: -; dd 0 -;size_before_open_file: -; dd 0 -;size_after_open_file: -; dd 0 -;size_after_convert: -; dd 0 -;size_after_convert_2: -; dd 0 -;size_before_draw_image: -; dd 0 -;size_after_draw_image: -; dd 0 -;size_before_scaling: -; dd 0 -;size_after_scaling: -; dd 0 \ No newline at end of file +; Language support for locales: en_US, ru_RU (CP866), de_DE. + +;--------------------------------------------------------------------- +; DATA AREA +;--------------------------------------------------------------------- +lsz labelt1,\ + en_US, 'File',\ + ru_RU, 'Файл',\ + de_DE, 'Datei' + db 0 + +;--------------------------------------------------------------------- +lsz labelt2,\ + en_US, 'File info',\ + ru_RU, 'Информация о файле',\ + de_DE, 'Dateiinfo' + db 0 + +lsz fitext,\ + en_US, 'File name ',\ + en_US, 'File size ',\ + en_US, 'X size ',\ + en_US, 'Y size ',\ + en_US, 'Resolution ',\ + en_US, 'Frames total ',\ + \ + ru_RU, 'Имя файла ',\ + ru_RU, 'Размер файла ',\ + ru_RU, 'Ширина ',\ + ru_RU, 'Высота ',\ + ru_RU, 'Бит на пиксел ',\ + ru_RU, 'Всего кадров ',\ + \ + de_DE, 'Datei Namen ',\ + de_DE, 'Fateigroesse ',\ + de_DE, 'X groesse ',\ + de_DE, 'Y groesse ',\ + de_DE, 'Die Tiefe ',\ + de_DE, 'Zahl Frames ' + db 0 +;--------------------------------------------------------------------- +Authors_text: +.1: db 'zSea version: 1.00 RC5-1 Date: 03/12/2021',0 +.2: db 'Authors:',0 +.3: db 'Marat Zakiyanov aka Mario(Mario79)',0 +.4: db 'zSea program, modules: cnv_bmp.obj,',0 +.5: db 'cnv_png.obj, convert.obj, rotate.obj ',0 +.6: db 'scaling.obj, box_lib.obj, OpenDialog',0 +.7: db 'proc_lib.obj',0 + +.8: db 'Evgeny Grechnikov aka Diamond',0 +.9: db 'modules: cnv_jpeg.obj, cnv_gif.obj,',0 +.10: db 'archiver.obj, sort.obj ',0 + +.11: db 'Alexey Teplov aka ',0 +.12: db 'modules: box_lib.obj, load_lib.mac',0 + +.13: db 'Mihail Semenyako aka Mike.dld',0 +.14: db 'modules: libini.obj, libio.obj',0 +;--------------------------------------------------------------------- +status dd 0 ;bit0=1 if file thread is created +;process dd 0 + +bWasDraw db 0 +vflag: db 'x' +bgrmode: dd 1 + +wnd_width dd 210 +wnd_height dd 53 +;--------------------------------- +lsz labelt3,\ + en_US, 'About program',\ + ru_RU, 'О программе',\ + de_DE, 'Uber das programm' + db 0 +;--------------------------------- +lsz labelt4,\ + en_US, 'Set wallpaper',\ + ru_RU, 'Установка фона',\ + de_DE, 'Installation hintergrund' + db 0 +;--------------------------------- +lsz labelt5,\ + en_US, 'Select sorting mode',\ + ru_RU, 'Сортировка директории',\ + de_DE, 'Regimes der Sortierung' + db 0 +;--------------------------------- +lsz bgrdtext,\ + en_US, 'Set as background:',\ + ru_RU, 'Тип обоев:',\ + de_DE, 'Als hintergrund' + db 0 +;--------------------------------- +lsz scc_text,\ + en_US, 'Position:',\ + ru_RU, 'Позиция:',\ + de_DE, 'Position:' + db 0 +;--------------------------------- +lsz sorttext,\ + en_US, 'Directory sorting mode:',\ + ru_RU, 'Режим сортировки директории:',\ + de_DE, 'Regime der Sortierung des Verzeichnisses:' + db 0 +;--------------------------------- +lsz errortext,\ + en_US, 'File system error:',\ + ru_RU, 'Ошибка файловой системы:',\ + de_DE, 'Fehler files systemes:' + db 0 +;--------------------------------- +lsz optiontext,\ + en_US, 'Options:',\ + ru_RU, 'Настройки:',\ + de_DE, 'Optionen:' + db 0 +;--------------------------------- +;lsz tiled,\ +; en_US, 'Tiled',\ +; ru_RU, 'Замостить',\ +; de_DE, 'Gekachelt' + +;lsz stretch,\ +; en_US, 'Stretch',\ +; ru_RU, 'Растянуть',\ +; de_DE, 'Gestreckt' +;--------------------------------- +lsz color_btn,\ + en_US, 'Background color:',\ + ru_RU, 'Цвет фона:',\ + de_DE, 'Hintergrundfarbe:' + db 0 +;--------------------------------- +lsz ok_btn,\ + en_US, 'Ok',\ + ru_RU, 'Ok',\ + de_DE, 'Ok' + db 0 +;--------------------------------- +lsz slide_show_delay_title,\ + en_US, 'Slide show delay:',\ + ru_RU, 'Задержка слайдшоу:',\ + de_DE, 'Verzug der schau:' + db 0 +;--------------------------------- +lsz arrows_offset_title,\ + en_US, 'Arrows offset:',\ + ru_RU, 'Смещение стрелками:',\ + de_DE, 'Bewegung von den zeigern:' + db 0 +;--------------------------------- +slide_show_delay_text: + db '+ -',0 +;--------------------------------------------------------------------- +zoom_auto_factor: + dd 0 +zoom_auto_text: + db 'auto',0 +zoom_factors: + dd zoom_factors.100 +.1: dd 0 +.min: + dd 1 + dd 2 + dd 3 + dd 4 + dd 5 + dd 7 + dd 10 + dd 17 + dd 25 + dd 37 + dd 50 + dd 62 + dd 75 + dd 87 +.100: + dd 100 + dd 125 + dd 150 + dd 175 + dd 200 + dd 225 + dd 250 + dd 275 + dd 300 + dd 350 + dd 400 + dd 450 + dd 500 + dd 600 + dd 700 + dd 800 + dd 900 + dd 1000 + dd 1100 + dd 1200 + dd 1300 + dd 1400 + dd 1500 + dd 1750 + dd 2000 + dd 2250 + dd 2500 + dd 2750 + dd 3000 + dd 3500 + dd 4000 + dd 4500 +.max: + dd 5000 + +zoom_factors_old dd 0 + +;--------------------------------------------------------------------- +; not change this section!!! +; start section +;--------------------------------------------------------------------- +align 4 +crop_image_file dd 0 ;+0 +crop_raw_pointer dd 0 ;+4 +crop_return_code dd 0 ;+8 +crop_img_size dd 0 ;+12 +crop_deflate_unpack dd 0 ;+16 +crop_raw_pointer_2 dd 0 ;+20 +;--------------------------------------------------------------------- +; end section +;--------------------------------------------------------------------- + +;--------------------------------------------------------------------- +; not change this section!!! +; start section +;--------------------------------------------------------------------- +align 4 +image_file dd 0 ;+0 +raw_pointer dd 0 ;+4 +return_code dd 0 ;+8 +img_size dd 0 ;+12 +deflate_unpack dd 0 ;+16 +raw_pointer_2 dd 0 ;+20 +;--------------------------------------------------------------------- +; end section +;--------------------------------------------------------------------- +test1 dd 0 ;+24 +test2 dd 0 ;+28 +test3 dd 0 ;+32 +test4 dd 0 ;+36 +test5 dd 0 ;+40 +test6 dd 0 ;+44 +test7 dd 0 ;+48 +;--------------------------------------------------------------------- +align 4 +soi dd 0 +img_width dd 0 +img_width_2 dd 0 +img_high dd 0 +img_high_2 dd 0 +img_resolution dd 0 +img_resolution_2 dd 0 +img_palette dd 0 + +background_color dd 0xffffff + +skin_height dd 0 + +screen_high dd 0 +screen_width dd 0 + +stretch_start_coordinates: +.y dw 0 +.x dw 0 + +screen_relation dd 0 +picture_relation dd 0 + +stretch_img_high dd 0 +stretch_img_width dd 0 + +RAW1_pointer dd 0 +RAW1_size_x dd 0 +RAW1_size dd 0 +Repeat_N dd 0 +Total_Repeat_N dd 1 +previous_frame_pointer dd 0 +Animation_timer dd 0 +Frame_delay dw 0 +Transp_flag db 0 +Transp_index db 0 +Disposal_Method db 0 +RAW1_flag db 0 +no_fill db 0 +redraw_wallpaper_flag db 0 + +calc_next_value_plus db 0 +calc_next_value_minus db 0 +;--------------------------------------------------------------------- +align 4 +;plugin dd 0 +;plugin_1 dd 0 +;plugin_2 dd 0 +;plugin_3 dd 0 + +;plugin_validate dd 0 +;plugin_validate_1 dd 0 +;plugin_validate_2 dd 0 +;plugin_validate_3 dd 0 + +;plugin_format dd 0 +;plugin_format_1 dd 0 +;plugin_format_2 dd 0 +;plugin_format_3 dd 0 + +;plugin_convert dd 0 +;plugin_convert_background dd 0 +;plugin_sort dd 0 +;plugin_rotate dd 0 +;plugin_scaling dd 0 + +slide_show_delay dd 500 ; cost of 0,01 sec. +slide_show_delay_old dd 0 + +sort_type dd 2 +sort_type_old dd 0 +;--------------------------------------------------------------------- +expansion_length dd 0 +expansion_start dd 0 + +timer dd 0 +;--------------------------------------------------------------------- +mouse_scroll_data: + .vertical dw 0 + .horizontal dw 0 + +mouse_position: + .y dw 0 + .x dw 0 + +mouse_position_old: + .y dw 0 + .x dw 0 + +mouse_keys dd 0 +mouse_keys_old dd 0 + +arrows_offset dd 10 +arrows_offset_old dd 10 + +option_pointer dd 0 +plus_pointer dd 0 +minus_pointer dd 0 +space_pointer dd 0 + +;--------------------------------------------------------------------- +pos: dd 6 + +work_area_LR_old dd 0 +work_area_TB_old dd 0 + +scaling_mode dd 100 +scaling_mode_old dd 100 + +window_start_x_old dd 0 +window_start_y_old dd 0 +window_high_old dd 0 +window_width_old dd 0 + +window_start_x dd 0 +window_start_y dd 0 +window_high dd 0 +window_width dd 0 +;skin_high dd 0 +window_status dd 0 +draw_SB db 0 +draw_SB1 db 0 +correct_w db 0 +correct_h db 0 +wa_width dw 0 +wa_high dw 0 + +wa_width_1 dw 0 +wa_width_2 dw 0 + +wa_high_1 dw 0 +wa_high_2 dw 0 + +image_start_coordinates dd 0 +image_draw_size: +.y: dw 0 +.x: dw 0 + +vertical_position_coorect dd 0 +horizontal_position_coorect dd 0 + +fill_color dd 0xffffff +fill_color_old dd 0xffffff + +position_coorect db 0 + +open_file_flag db 0 +sort_directory_flag db 0 +redraw_flag db 0 + +press_Enter_flag db 0 + +capture_image_area_flag db 0 + +correct_scrollbar_100_flag db 0 +;--------------------------------------------------------------------- +;test_area: +;dd test_area.end - test_area +;db 'BMP',0 +;.end: +;db 0,0,0,0,0,0,0,0,0,0,0,0,0 +;--------------------------------------------------------------------- +aApplicationsPaths db 'ApplicationsPaths',0 +aOther db 'Other',0 + +aHelp db 'Help',0 +aEditor db 'Editor',0 +aOpenDialog db 'OpenDialog',0 +akey_help db 'HelpFile',0 + +aConvertPlugins db 'ConvertPlugins',0 + +ConvertPlugins_no_key db 'NoKey',0 + +aCP0 db 'CP0',0 +aCP1 db 'CP1',0 +aCP2 db 'CP2',0 +aCP3 db 'CP3',0 +aCP4 db 'CP4',0 +aCP5 db 'CP5',0 +aCP6 db 'CP6',0 +aCP7 db 'CP7',0 +aCP8 db 'CP8',0 +aCP9 db 'CP9',0 +;--------------------------------------------------------------------- +plugin_BMP_name db 'cnv_bmp.obj',0 +plugin_PNG_name db 'cnv_png.obj',0 +plugin_JPEG_name db 'cnv_jpeg.obj',0 +plugin_GIF_name db 'cnv_gif.obj',0 + +;plugin_convert_name db 'convert.obj',0 +;plugin_sort_name db 'sort.obj',0 +;plugin_rotate_name db 'rotate.obj',0 +;plugin_scaling_name db 'scaling.obj',0 +;plugin_UNPACK_name db 'archiver.obj',0 +;boxlib_name db 'box_lib.obj',0 +;Libini_name db 'libini.obj',0 +plugins_directory db 'plugins/',0 +ini_file_name db 'zsea.ini',0 + +button_name db 'buttons.png',0 +;buttons_passive_name db '1.png',0 +;buttons_active_name db '2.png',0 +;buttons_click_name db '3.png',0 + +buttons_directory db 'buttons/',0 +;UNPACK_function_name db 'deflate_unpack',0 +;UNPACK_function_name_end: +;UNPACK_function_name db 'deflate_unpack2',0 +;UNPACK_function_name_end: + +system_dir_Boxlib db '/sys/lib/box_lib.obj',0 +system_dir_Libini db '/sys/lib/libini.obj',0 +system_dir_Sort db '/sys/lib/sort.obj',0 +system_dir_UNPACK db '/sys/lib/archiver.obj',0 +system_dir_Convert db '/sys/lib/convert.obj',0 +system_dir_Rotate db '/sys/lib/rotate.obj',0 +system_dir_Scaling db '/sys/lib/scaling.obj',0 +system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 + +;--------------------------------------------------------------------- +l_libs_start: +library01 l_libs system_dir_Boxlib+9, library_path, system_dir_Boxlib, \ +Box_lib_import, plugins_directory + +library02 l_libs system_dir_Libini+9, library_path, system_dir_Libini, \ +Libini_import, plugins_directory + +library03 l_libs system_dir_Sort+9, library_path, system_dir_Sort, \ +Sort_import, plugins_directory + +library04 l_libs system_dir_UNPACK+9, library_path, system_dir_UNPACK, \ +UNPACK_import, plugins_directory + +library05 l_libs system_dir_Convert+9, library_path, system_dir_Convert, \ +Convert_import, plugins_directory + +library06 l_libs system_dir_Rotate+9, library_path, system_dir_Rotate, \ +Rotate_import, plugins_directory + +library07 l_libs system_dir_Scaling+9, library_path, system_dir_Scaling, \ +Scaling_import, plugins_directory + +library08 l_libs system_dir_ProcLib+9, library_path, system_dir_ProcLib, \ +ProcLib_import, plugins_directory + +end_l_libs: +;--------------------------------------------------------------------- +align 4 +cnv_plugin_name_pointer dd plugin_0_name +cnv_plugin_import_pointer dd Convert_plugin_0 + +system_path db '/sys/lib/' +.1: rb 128 +;--------------------------------------------------------------------- +Convert_plugin_0: +.Start dd aCP_Start +.Version dd aCP_Version +.Check dd aCP_Check +.Assoc dd aCP_Assoc + dd 0 + dd 0 +Convert_plugin_1: +.Start dd aCP_Start +.Version dd aCP_Version +.Check dd aCP_Check +.Assoc dd aCP_Assoc + dd 0 + dd 0 +Convert_plugin_2: +.Start dd aCP_Start +.Version dd aCP_Version +.Check dd aCP_Check +.Assoc dd aCP_Assoc + dd 0 + dd 0 +Convert_plugin_3: +.Start dd aCP_Start +.Version dd aCP_Version +.Check dd aCP_Check +.Assoc dd aCP_Assoc + dd 0 + dd 0 +Convert_plugin_4: +.Start dd aCP_Start +.Version dd aCP_Version +.Check dd aCP_Check +.Assoc dd aCP_Assoc + dd 0 + dd 0 +Convert_plugin_5: +.Start dd aCP_Start +.Version dd aCP_Version +.Check dd aCP_Check +.Assoc dd aCP_Assoc + dd 0 + dd 0 +Convert_plugin_6: +.Start dd aCP_Start +.Version dd aCP_Version +.Check dd aCP_Check +.Assoc dd aCP_Assoc + dd 0 + dd 0 +Convert_plugin_7: +.Start dd aCP_Start +.Version dd aCP_Version +.Check dd aCP_Check +.Assoc dd aCP_Assoc + dd 0 + dd 0 +Convert_plugin_8: +.Start dd aCP_Start +.Version dd aCP_Version +.Check dd aCP_Check +.Assoc dd aCP_Assoc + dd 0 + dd 0 +Convert_plugin_9: +.Start dd aCP_Start +.Version dd aCP_Version +.Check dd aCP_Check +.Assoc dd aCP_Assoc + dd 0 + dd 0 +aCP_Start db 'START',0 +aCP_Version db 'version',0 +aCP_Check db 'Check_Header',0 +aCP_Assoc db 'Associations',0 +;--------------------------------------------------------------------- + +file_mount: db 'File N: Amount: Zoom:',0 +.end: + +current_key_code db 0 +old_key_code db 0 +;--------------------------------------------------------------------- +; Tokens +;--------------------------------------------------------------------- +aSortMode db 'SortMode',0 +aSlideShowDelay db 'SlideShowDelay',0 +aArrowsOffset db 'ArrowsOffset',0 +aShowFileName db 'ShowFileName',0 +aFilteringFlag db 'FilteringFlag',0 +;--------------------------------------------------------------------- +;Sections +;--------------------------------------------------------------------- +aVariables db 'Variables',0 +;aVar db 'Var',0 +;aTemp db 'Temp',0 +;--------------------------------------------------------------------- +align 4 +ProcLib_import: +OpenDialog_Init dd aOpenDialog_Init +OpenDialog_Start dd aOpenDialog_Start + +ColorDialog_Init dd aColorDialog_Init +ColorDialog_Start dd aColorDialog_Start +;OpenDialog__Version dd aOpenDialog_Version + dd 0 + dd 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 +;aOpenDialog_Version db 'Version_OpenDialog',0 +;--------------------------------------------------------------------- +align 4 +Scaling_import: +Scaling_Start dd aScaling_Start +Scaling_Version dd aScaling_Version + dd 0 + dd 0 +aScaling_Start db 'START',0 +aScaling_Version db 'version',0 +;--------------------------------------------------------------------- +align 4 +Rotate_import: +rotate_Start dd aRotate_Start +rotate_Version dd aRotate_Version + dd 0 + dd 0 +aRotate_Start db 'START',0 +aRotate_Version db 'version',0 +;--------------------------------------------------------------------- +align 4 +Convert_import: +convert_Start dd aConvert_Start +convert_Version dd aConvert_Version +convert_Conv_24b dd aConvert_Conv_24b + dd 0 + dd 0 +aConvert_Start db 'START',0 +aConvert_Version db 'version',0 +aConvert_Conv_24b db 'Convert24b',0 +;--------------------------------------------------------------------- +align 4 +UNPACK_import: +;unpack_Version dd aUnpack_Version +;unpack_PluginLoad dd aUnpack_PluginLoad +;unpack_OpenFilePlugin dd aUnpack_OpenFilePlugin +;unpack_ClosePlugin dd aUnpack_ClosePlugin +;unpack_ReadFolder dd aUnpack_ReadFolder +;unpack_SetFolder dd aUnpack_SetFolder +;unpack_GetFiles dd aUnpack_GetFiles +;unpack_GetOpenPluginInfo dd aUnpack_GetOpenPluginInfo +;unpack_Getattr dd aUnpack_Getattr +;unpack_Open dd aUnpack_Open +;unpack_Read dd aUnpack_Read +;unpack_Setpos dd aUnpack_Setpos +;unpack_Close dd aUnpack_Close +;unpack_DeflateUnpack dd aUnpack_DeflateUnpack +unpack_DeflateUnpack2 dd aUnpack_DeflateUnpack2 + dd 0 + dd 0 + +;aUnpack_Version db 'version',0 +;aUnpack_PluginLoad db 'plugin_load',0 +;aUnpack_OpenFilePlugin db 'OpenFilePlugin',0 +;aUnpack_ClosePlugin db 'ClosePlugin',0 +;aUnpack_ReadFolder db 'ReadFolder',0 +;aUnpack_SetFolder db 'SetFolder',0 +;aUnpack_GetFiles db 'GetFiles',0 +;aUnpack_GetOpenPluginInfo db 'GetOpenPluginInfo',0 +;aUnpack_Getattr db 'getattr',0 +;aUnpack_Open db 'open',0 +;aUnpack_Read db 'read',0 +;aUnpack_Setpos db 'setpos',0 +;aUnpack_Close db 'close',0 +;aUnpack_DeflateUnpack db 'deflate_unpack',0 +aUnpack_DeflateUnpack2 db 'deflate_unpack2',0 + +;--------------------------------------------------------------------- +align 4 +Sort_import: +sort_init dd aSort_init +sort_version dd aSort_version +sort_dir dd aSort_SortDir +sort_strcmpi dd aSort_strcmpi + dd 0 + dd 0 + +aSort_init db 'START',0 +aSort_version db 'version',0 +aSort_SortDir db 'SortDir',0 +aSort_strcmpi db 'strcmpi',0 + +;--------------------------------------------------------------------- +align 4 +Libini_import: +lib_init dd aLib_init +version_lib_ini dd aVersion_lib_ini +ini_enum_sections dd aIni_enum_sections +ini_enum_keys dd aIni_enum_keys +ini_get_str dd aIni_get_str +ini_get_int dd aIni_get_int +ini_get_color dd aIni_get_color +ini_set_str dd aIni_set_str +ini_set_int dd aIni_set_int +ini_set_color dd aIni_set_color + dd 0 + dd 0 + +aLib_init db 'lib_init',0 +aVersion_lib_ini db 'version',0 +aIni_enum_sections db 'ini_enum_sections',0 +aIni_enum_keys db 'ini_enum_keys',0 +aIni_get_str db 'ini_get_str',0 +aIni_get_int db 'ini_get_int',0 +aIni_get_color db 'ini_get_color',0 +aIni_set_str db 'ini_set_str',0 +aIni_set_int db 'ini_set_int',0 +aIni_set_color db 'ini_set_color',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 + +init_checkbox dd aInit_checkbox +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 + dd 0 + dd 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_mouse db 'edit_box_mouse',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 +;aVersion_ch db 'version_ch2',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 +;--------------------------------------------------------------------- +align 4 +load_directory_pointer dd 0 +file_name_length dd 0 +load_file_number dd 0 +error_fs dd 0 +error_pointer dd 0 +;error_locate dd 0 +error_window_x: dd 100 shl 16 + 300 +error_window_y: dd 100 shl 16 + 100 + +PID dd 0 +PID1 dd 0 +PID2 dd 0 +PID3 dd 0 +PID4 dd 0 +PID5 dd 0 +PID6 dd 0 +PID7 dd 0 +active_process dd 0 +timer_counter dd 0 +draw_scrollbar_counter dd 0 +;--------------------------------------------------------------------- +align 4 +error_fs_text_pointers: + dd error_fs_text_0 + dd error_fs_text_1 + dd error_fs_text_2 + dd error_fs_text_3 + dd error_fs_text_4 + dd error_fs_text_5 + dd error_fs_text_6 + dd error_fs_text_7 + dd error_fs_text_8 + dd error_fs_text_9 + dd error_fs_text_10 + dd error_fs_text_11 + +error_fs_text_0: db 'Success full',0 +error_fs_text_1: db 'Base and/or partition of a hard disk is not defined',0 +error_fs_text_2: db 'Function is not supported for the given file system',0 +error_fs_text_3: db 'Unknown file system',0 +error_fs_text_4: db 'Reserved, is never returned in the current implementation',0 +error_fs_text_5: db 'File not found',0 +error_fs_text_6: db 'End of file, EOF',0 +error_fs_text_7: db 'Pointer lies outside of application memory',0 +error_fs_text_8: db 'Disk is full',0 +error_fs_text_9: db 'FAT table is destroyed',0 +error_fs_text_10: db 'Access denied',0 +error_fs_text_11: db 'Device error',0 +;--------------------------------------------------------------------- +error_type: + db 'File system error',0 +;--------------------------------------------------------------------- +error_not_supported_file: + db 'Unsupported file or corrupt data',0 +;--------------------------------------------------------------------- +error_not_enough_memory: + db 'Not_enough_memory',0 +;--------------------------------------------------------------------- +error_unknown: + db 'Unknown error',0 +;--------------------------------------------------------------------- +extended_key db 0 +no_draw_window db 0 + +shift_flag db 0 +ctrl_flag db 0 +alt_flag db 0 +;--------------------------------------------------------------------- +; for EDITBOX +align 4 +name_editboxes: +edit1 edit_box 200,10,30,0xffffff,0xbbddff,0,0,0,255,string,mouse_dd,ed_focus+ed_always_focus,0 +name_editboxes_end: + +;mouse_flag: dd 0x0 + +mouse_dd rd 1 +;--------------------------------------------------------------------- +align 4 +; option_boxes_bcgr: +op1 option_box option_group1,60,45,6,12,0xFFFFFF,0,0xffffff,op_text.1,op_text.e1-op_text.1 +op2 option_box option_group1,60,60,6,12,0xFFFFFF,0,0xffffff,op_text.2,op_text.e2-op_text.2 +op3 option_box option_group1,60,75,6,12,0xFFFFFF,0,0xffffff,op_text.3,op_text.e3-op_text.3 +op4 option_box option_group1,60,90,6,12,0xFFFFFF,0,0xffffff,op_text.4,op_text.e4-op_text.4 +;option_boxes_bcgr_end: + +op_text: +.1 db 'Tiled' +.e1: +.2 db 'Stretch' +.e2: +.3 db 'Stretch + Crop' +.e3: +.4 db 'Stretch + Inscribe' +.e4: + +option_group1 dd op1 + +option_boxes_bcgr: dd op1,op2,op3,op4,0 + +;--------------------------------------------------------------------- +align 4 +op_UL option_box option_group3,200,40,20,20,0xFFFFFF,0,0xffffff,0,0 +op_UC option_box option_group3,223,40,20,20,0xFFFFFF,0,0xffffff,0,0 +op_UR option_box option_group3,246,40,20,20,0xFFFFFF,0,0xffffff,0,0 +op_CL option_box option_group3,200,63,20,20,0xFFFFFF,0,0xffffff,0,0 +op_CC option_box option_group3,223,63,20,20,0xFFFFFF,0,0xffffff,0,0 +op_CR option_box option_group3,246,63,20,20,0xFFFFFF,0,0xffffff,0,0 +op_DL option_box option_group3,200,86,20,20,0xFFFFFF,0,0xffffff,0,0 +op_DC option_box option_group3,223,86,20,20,0xFFFFFF,0,0xffffff,0,0 +op_DR option_box option_group3,246,86,20,20,0xFFFFFF,0,0xffffff,0,0 +;option_boxes_bcgr_end: + +option_group3 dd op_CC + +Stretch_Crop_Corner dd 1 shl 16+1 +option_boxes_SCC: dd op_UL,op_UC,op_UR,op_CL,op_CC,op_CR,op_DL,op_DC,op_DR,0 + +bcgr_group_pointer db 0 +;--------------------------------------------------------------------- +align 4 +;option_boxes_sort: +sort0 option_box option_group2,60,40,6,12,0xFFFFFF,0,0xffffff,op_text_1.1,op_text_1.e1-op_text_1.1 +sort2 option_box option_group2,60,55,6,12,0xFFFFFF,0,0xffffff,op_text_1.2,op_text_1.e2-op_text_1.2 +sort4 option_box option_group2,60,70,6,12,0xFFFFFF,0,0xffffff,op_text_1.3,op_text_1.e3-op_text_1.3 +sort6 option_box option_group2,60,85,6,12,0xFFFFFF,0,0xffffff,op_text_1.4,op_text_1.e4-op_text_1.4 +option_boxes_sort_end: + +op_text_1: +.1 db 'Name' +.e1: +.2 db 'Type' +.e2: +.3 db 'Date' +.e3: +.4 db 'Size' +.e4: + +option_group2 dd sort2 +option_group2_old dd 0 + +option_boxes_sort dd sort0, sort2, sort4, sort6,0 +;--------------------------------------------------------------------- +check1 check_box2 (140 shl 16)+12,(50 shl 16)+12,6,0xFFFFFF,0,0xffffff,check_text1,ch_flag_middle ;ch_flag_en + +check_text1 db 'Show file name',0 + +show_file_name_old dd 0 +;--------------------------------------------------------------------- +check2 check_box2 (140 shl 16)+12,(70 shl 16)+12,6,0xFFFFFF,0,0xffffff,check_text2,ch_flag_middle ;ch_flag_en + +check_text2 db 'Bilinear filtering',0 + +filtering_flag dd 0 +filtering_flag_old dd 0 +;--------------------------------------------------------------------- +align 4 +scroll_bar_data_vertical: +.x: +.size_x dw 15 ;+0 +.start_x dw 500 ;+2 +.y: +.size_y dw 300 ;+4 +.start_y dw 30 ;+6 +.btn_high dd 15 ;+8 +.type dd 2 ;+12 +.max_area dd 10 ;+16 +.cur_area dd 2 ;+20 +.position dd 0 ;+24 +.bckg_col dd 0xeeeeee ;+28 +.frnt_col dd 0x8aeaa0 ;0xbbddff ;+32 +.line_col dd 0 ;+36 +.redraw dd 0 ;+40 +.delta dw 0 ;+44 +.delta2 dw 0 ;+46 +.run_x: +.r_size_x dw 0 ;+48 +.r_start_x dw 0 ;+50 +.run_y: +.r_size_y dw 0 ;+52 +.r_start_y dw 0 ;+54 +.m_pos dd 0 ;+56 +.m_pos_2 dd 0 ;+60 +.m_keys dd 0 ;+64 +.run_size dd 0 ;+68 +.position2 dd 0 ;+72 +.work_size dd 0 ;+76 +.all_redraw dd 0 ;+80 +.ar_offset dd 10 ;+84 +;--------------------------------------------------------------------- +align 4 +scroll_bar_data_horizontal: +.x: +.size_x dw 300 ;0 ;+0 +.start_x dw 10 ;0 ;+2 +.y: +.size_y dw 15 ;0 ;+4 +.start_y dw 300 ;0 ;+6 +.btn_high dd 15 ;+8 +.type dd 2 ;+12 +.max_area dd 10 ;+16 +.cur_area dd 2 ;+20 +.position dd 0 ;+24 +.bckg_col dd 0xeeeeee ;+28 +.frnt_col dd 0x8aeaa0 ;0xbbddff ;+32 +.line_col dd 0 ;+36 +.redraw dd 0 ;+40 +.delta dw 0 ;+44 +.delta2 dw 0 ;+46 +.run_x: +.r_size_x dw 0 ;+48 +.r_start_x dw 0 ;+50 +.run_y: +.r_size_y dw 0 ;+52 +.r_start_y dw 0 ;+54 +.m_pos dd 0 ;+56 +.m_pos_2 dd 0 ;+60 +.m_keys dd 0 ;+64 +.run_size dd 0 ;+68 +.position2 dd 0 ;+72 +.work_size dd 0 ;+76 +.all_redraw dd 0 ;+80 +.ar_offset dd 10 ;+84 +;--------------------------------------------------------------------- +align 4 +menu_data_1: +.type: dd 0 ;+0 +.x: +.size_x dw 35 ;+4 +.start_x dw 5 ;+6 +.y: +.size_y dw 15 ;+8 +.start_y dw 6 ;+10 +.text_pointer: dd menu_text_area_1 ;0 ;+12 +.pos_pointer: dd menu_text_area_1.1 ;0 ;+16 +.text_end dd menu_text_area_1.end ;0 ;+20 +.ret_key dd 0 ;+24 +.mouse_keys dd 0 ;+28 +.x1: +.size_x1 dw 70 ;+32 +.start_x1 dw 5 ;+34 +.y1: +.size_y1 dw 100 ;+36 +.start_y1 dw 21 ;+38 +.bckg_col dd 0xe5e5e5 ;+40 +.frnt_col dd 0xff ;+44 +.menu_col dd 0xeef0ff ;0xffffff ;+48 +.select dd 0 ;+52 +.out_select dd 0 ;+56 +.buf_adress dd 0 ;+60 +.procinfo dd 0 ;+64 +.click dd 0 ;+68 +.cursor dd 0 ;+72 +.cursor_old dd 0 ;+76 +.interval dd 16 ;+80 +.cursor_max dd 0 ;+84 +.extended_key dd 0 ;+88 +.menu_sel_col dd 0x00cc00 ;+92 +.bckg_text_col dd 0 ; +96 +.frnt_text_col dd 0xffffff ;+100 +.mouse_keys_old dd 0 ;+104 +.font_height dd 8 ;+108 +.cursor_out dd 0 ;+112 +.get_mouse_flag dd 0 ;+116 +;--------------------------------------------------------------------- +menu_text_area_1: +db 'File',0 +.1: +db 'Open',0 +db 'Properties',0 +db 'Exit',0 +.end: +db 0 +;--------------------------------------------------------------------- +align 4 +menu_data_2: +.type: dd 0 ;+0 +.x: +.size_x dw 35 ;+4 +.start_x dw 40 ;+6 +.y: +.size_y dw 15 ;+8 +.start_y dw 6 ;+10 +.text_pointer: dd menu_text_area_2 ;0 ;+12 +.pos_pointer: dd menu_text_area_2.1 ;0 ;+16 +.text_end dd menu_text_area_2.end ;0 ;+20 +.ret_key dd 0 ;+24 +.mouse_keys dd 0 ;+28 +.x1: +.size_x1 dw 90 ;+32 +.start_x1 dw 40 ;+34 +.y1: +.size_y1 dw 100 ;+36 +.start_y1 dw 21 ;+38 +.bckg_col dd 0xe5e5e5 ;+40 +.frnt_col dd 0xff ;+44 +.menu_col dd 0xeef0ff ;0xffffff ;+48 +.select dd 0 ;+52 +.out_select dd 0 ;+56 +.buf_adress dd 0 ;+60 +.procinfo dd 0 ;+64 +.click dd 0 ;+68 +.cursor dd 0 ;+72 +.cursor_old dd 0 ;+76 +.interval dd 16 ;+80 +.cursor_max dd 0 ;+84 +.extended_key dd 0 ;+88 +.menu_sel_col dd 0x00cc00 ;+92 +.bckg_text_col dd 0 ; +96 +.frnt_text_col dd 0xffffff ;+100 +.mouse_keys_old dd 0 ;+104 +.font_height dd 8 ;+108 +.cursor_out dd 0 ;+112 +.get_mouse_flag dd 0 ;+116 +;--------------------------------------------------------------------- +menu_text_area_2: +db 'Edit',0 +.1: +db 'Rotate Clock.',0 +db 'Rotate CClock.',0 +db 'Invert L to R',0 +db 'Invert U to D',0 +.end: +db 0 +;--------------------------------------------------------------------- +align 4 +menu_data_3: +.type: dd 0 ;+0 +.x: +.size_x dw 35 ;+4 +.start_x dw 75 ;+6 +.y: +.size_y dw 15 ;+8 +.start_y dw 6 ;+10 +.text_pointer: dd menu_text_area_3 ;0 ;+12 +.pos_pointer: dd menu_text_area_3.1 ;0 ;+16 +.text_end dd menu_text_area_3.end ;0 ;+20 +.ret_key dd 0 ;+24 +.mouse_keys dd 0 ;+28 +.x1: +.size_x1 dw 90 ;+32 +.start_x1 dw 75 ;+34 +.y1: +.size_y1 dw 100 ;+36 +.start_y1 dw 21 ;+38 +.bckg_col dd 0xe5e5e5 ;+40 +.frnt_col dd 0xff ;+44 +.menu_col dd 0xeef0ff ;0xffffff ;+48 +.select dd 0 ;+52 +.out_select dd 0 ;+56 +.buf_adress dd 0 ;+60 +.procinfo dd 0 ;+64 +.click dd 0 ;+68 +.cursor dd 0 ;+72 +.cursor_old dd 0 ;+76 +.interval dd 16 ;+80 +.cursor_max dd 0 ;+84 +.extended_key dd 0 ;+88 +.menu_sel_col dd 0x00cc00 ;+92 +.bckg_text_col dd 0 ; +96 +.frnt_text_col dd 0xffffff ;+100 +.mouse_keys_old dd 0 ;+104 +.font_height dd 8 ;+108 +.cursor_out dd 0 ;+112 +.get_mouse_flag dd 0 ;+116 +;--------------------------------------------------------------------- +menu_text_area_3: +db 'View',0 +.1: +db 'Sort Directory',0 +db 'Full Screen',0 +db 'Reload',0 +.end: +db 0 +;--------------------------------------------------------------------- +align 4 +menu_data_4: +.type: dd 0 ;+0 +.x: +.size_x dw 35 ;+4 +.start_x dw 110 ;+6 +.y: +.size_y dw 15 ;+8 +.start_y dw 6 ;+10 +.text_pointer: dd menu_text_area_4 ;0 ;+12 +.pos_pointer: dd menu_text_area_4.1 ;0 ;+16 +.text_end dd menu_text_area_4.end ;0 ;+20 +.ret_key dd 0 ;+24 +.mouse_keys dd 0 ;+28 +.x1: +.size_x1 dw 40 ;+32 +.start_x1 dw 110 ;+34 +.y1: +.size_y1 dw 100 ;+36 +.start_y1 dw 21 ;+38 +.bckg_col dd 0xe5e5e5 ;+40 +.frnt_col dd 0xff ;+44 +.menu_col dd 0xeef0ff ;0xffffff ;+48 +.select dd 0 ;+52 +.out_select dd 0 ;+56 +.buf_adress dd 0 ;+60 +.procinfo dd 0 ;+64 +.click dd 0 ;+68 +.cursor dd 0 ;+72 +.cursor_old dd 0 ;+76 +.interval dd 16 ;+80 +.cursor_max dd 0 ;+84 +.extended_key dd 0 ;+88 +.menu_sel_col dd 0x00cc00 ;+92 +.bckg_text_col dd 0 ; +96 +.frnt_text_col dd 0xffffff ;+100 +.mouse_keys_old dd 0 ;+104 +.font_height dd 8 ;+108 +.cursor_out dd 0 ;+112 +.get_mouse_flag dd 0 ;+116 +;--------------------------------------------------------------------- +menu_text_area_4: +db 'Zoom',0 +.1: +db 'Normal',0 +db 'More',0 +db 'Less',0 +db 'Auto',0 +.end: +db 0 +;--------------------------------------------------------------------- +align 4 +menu_data_5: +.type: dd 0 ;+0 +.x: +.size_x dw 40 ;+4 +.start_x dw 145 ;+6 +.y: +.size_y dw 15 ;+8 +.start_y dw 6 ;+10 +.text_pointer: dd menu_text_area_5 ;0 ;+12 +.pos_pointer: dd menu_text_area_5.1 ;0 ;+16 +.text_end dd menu_text_area_5.end ;0 ;+20 +.ret_key dd 0 ;+24 +.mouse_keys dd 0 ;+28 +.x1: +.size_x1 dw 80 ;+32 +.start_x1 dw 145 ;+34 +.y1: +.size_y1 dw 100 ;+36 +.start_y1 dw 21 ;+38 +.bckg_col dd 0xe5e5e5 ;+40 +.frnt_col dd 0xff ;+44 +.menu_col dd 0xeef0ff ;0xffffff ;+48 +.select dd 0 ;+52 +.out_select dd 0 ;+56 +.buf_adress dd 0 ;+60 +.procinfo dd 0 ;+64 +.click dd 0 ;+68 +.cursor dd 0 ;+72 +.cursor_old dd 0 ;+76 +.interval dd 16 ;+80 +.cursor_max dd 0 ;+84 +.extended_key dd 0 ;+88 +.menu_sel_col dd 0x00cc00 ;+92 +.bckg_text_col dd 0 ; +96 +.frnt_text_col dd 0xffffff ;+100 +.mouse_keys_old dd 0 ;+104 +.font_height dd 8 ;+108 +.cursor_out dd 0 ;+112 +.get_mouse_flag dd 0 ;+116 +;--------------------------------------------------------------------- +menu_text_area_5: +db 'Tools',0 +.1: +db 'Image Editor',0 +db 'Wallpaper',0 +db 'Slide Show',0 +db 'Options',0 +.end: +db 0 +;--------------------------------------------------------------------- +align 4 +menu_data_6: +.type: dd 0 ;+0 +.x: +.size_x dw 35 ;+4 +.start_x dw 185 ;+6 +.y: +.size_y dw 15 ;+8 +.start_y dw 6 ;+10 +.text_pointer: dd menu_text_area_6 ;0 ;+12 +.pos_pointer: dd menu_text_area_6.1 ;0 ;+16 +.text_end dd menu_text_area_6.end ;0 ;+20 +.ret_key dd 0 ;+24 +.mouse_keys dd 0 ;+28 +.x1: +.size_x1 dw 50 ;+32 +.start_x1 dw 185 ;+34 +.y1: +.size_y1 dw 100 ;+36 +.start_y1 dw 21 ;+38 +.bckg_col dd 0xe5e5e5 ;+40 +.frnt_col dd 0xff ;+44 +.menu_col dd 0xeef0ff ;0xffffff ;+48 +.select dd 0 ;+52 +.out_select dd 0 ;+56 +.buf_adress dd 0 ;+60 +.procinfo dd 0 ;+64 +.click dd 0 ;+68 +.cursor dd 0 ;+72 +.cursor_old dd 0 ;+76 +.interval dd 16 ;+80 +.cursor_max dd 0 ;+84 +.extended_key dd 0 ;+88 +.menu_sel_col dd 0x00cc00 ;+92 +.bckg_text_col dd 0 ; +96 +.frnt_text_col dd 0xffffff ;+100 +.mouse_keys_old dd 0 ;+104 +.font_height dd 8 ;+108 +.cursor_out dd 0 ;+112 +.get_mouse_flag dd 0 ;+116 +;--------------------------------------------------------------------- +menu_text_area_6: +db 'Help',0 +.1: +db 'Help',0 +db 'About',0 +.end: +db 0 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_1: ; open file +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 230 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_2: ; reload file +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 255 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_3: ; left limit +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 285 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_4: ; left arrow +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 310 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_5: ; slide show +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 335 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_6: ; right arrow +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 360 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_7: ; right limit +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 385 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_8: ; zoom + +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 415 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_9: ; zoom - +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 440 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_10: ; zoom 100% +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 465 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_11: ; rotate clockwise +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 495 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_12: ; rotate counter-clockwise +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 520 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_13: ; file information +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 550 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_14: ; wallpaper +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 575 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dinamic_button_data_15: ; settings +.type dd 0 ;+0 +.x: +.size_x dw 20 ;+4 +.start_x dw 600 ;+6 +.y: +.size_y dw 20 ;+8 +.start_y dw 3 ;+10 +.mouse_pos dd 0 ;+12 +.mouse_keys dd 0 ;+16 +.mouse_keys_old dd 0 ;+20 +.active_raw dd 0 ;+24 +.passive_raw dd 0 ;+28 +.click_raw dd 0 ;+32 +.resolution_raw dd 0 ;+36 +.palette_raw dd 0 ;+40 +.offset_raw dd 0 ;+44 +.select dd 0 ;+48 +.click dd 0 ;+52 +;--------------------------------------------------------------------- +align 4 +dirinfo: +.subfunction dd 1 +.start dd 0 +.flags dd 0 +.size dd 0 +.return dd procinfo + db 0 +.name: dd plugin_pach +;--------------------------------------------------------------------- +align 4 +fileinfo: +.subfunction dd 5 +.Offset dd 0 +.Offset_1 dd 0 +.size dd 0 +.return dd process_info + db 0 +.name: dd string +;--------------------------------------------------------------------- +align 4 +start_appl: +.subfunction dd 7 +.flags dd 0 +.parameter dd library_path +.reserved1 dd 0 +.reserved2 dd 0 + db 0 +.name: dd Help_path +;--------------------------------------------------------------------- +align 4 +dir_header: +.version dd 0 ;+0 +.curn_blocks dd 0 ;+4 +.totl_blocks dd 0 ;+8 +.other rb 20 +;--------------------------------------------------------------------- +OpenDialog_data: +.type dd 0 +.procinfo dd procinfo ;+4 +.com_area_name dd communication_area_name ;+8 +.com_area dd 0 ;+12 +.opendir_pach dd plugin_pach ;+16 +.dir_default_pach dd communication_area_default_pach ;+20 +.start_path dd library_path ;+24 +.draw_window dd draw_window ;+28 +.status dd 0 ;+32 +.openfile_pach dd string ;+36 +.filename_area dd 0 ;+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_name: + db 'opendial',0 +communication_area_default_pach: + db '/sys',0 +;communication_area dd 0 +;--------------------------------------------------------------------- +ColorDialog_data: +.type dd 0 +.procinfo dd procinfo ;+4 +.com_area_name dd cd_communication_area_name ;+8 +.com_area dd 0 ;+12 +.start_path dd colordialog_path ;+16 +.draw_window dd thread4.draw_window ;+20 +.status dd 0 ;+24 +.x: +.x_size dw 510 ;+28 ; Window X size +.x_start dw 10 ;+30 ; Window X position +.y: +.y_size dw 310 ;+32 ; Window y size +.y_start dw 10 ;+34 ; Window Y position +.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 +colordialog_path: + db '/sys/colrdial',0 +;--------------------------------------------------------------------- +; clear bacground thread +clear_thread_stack: + dd 0 +;---------------------- +; window option +thread_stack_7: + dd 0 +;---------------------- +; window error message +thread_stack_6: + dd 0 +;---------------------- +; window set sort mode +thread_stack_5: + dd 0 +;---------------------- +; window background +thread_stack_4: + dd 0 +;---------------------- +; window about +thread_stack_3: + dd 0 +;---------------------- +; file info +thread_stack_2: + dd 0 +;---------------------- +; file open +thread_stack: + dd 0 +;--------------------------------------------------------------------- +;size_before_open_dir: +; dd 0 +;size_before_open_file: +; dd 0 +;size_after_open_file: +; dd 0 +;size_after_convert: +; dd 0 +;size_after_convert_2: +; dd 0 +;size_before_draw_image: +; dd 0 +;size_after_draw_image: +; dd 0 +;size_before_scaling: +; dd 0 +;size_after_scaling: +; dd 0 diff --git a/programs/other/cnc_editor/wnd_new_file.inc b/programs/other/cnc_editor/wnd_new_file.inc index 7e2ffa7767..dc870b4980 100644 --- a/programs/other/cnc_editor/wnd_new_file.inc +++ b/programs/other/cnc_editor/wnd_new_file.inc @@ -1,589 +1,589 @@ -; -; в этом файле собраны функции нужные для создания и -; работы окна создания нового файла -; - -wnd_n_file_width equ 300 ;ширина окна создания нового файла -wnd_n_file_height equ 200 ;высота окна создания нового файла - -align 4 -wnd_n_file db 0 ;переменная следящая за тем что-бы не запускать больше 1-го окна создания нового файла - -align 4 -NOptCoordX0 dq 35.0 -NOptCoordY0 dq 25.0 -NOptCoordX1 dq 20.0 ;for circle Radius -NOptCoordY1 dq 16.0 ;S -NOptCoordZ0 dq 1.0 -NOptCoordZ1 dq 5.0 - -;даное окно (процесс) вызываеться функцией but_wnd_coords -align 4 -start_n_file: -pushad - mcall SF_SET_EVENTS_MASK,0x27 ;маска ожидаемых событий - inc byte[wnd_n_file] - - edit_boxes_set_sys_color edit4,editboxes_end_nf,sc ;установка системных цветов - option_boxes_set_sys_color sc,opt_grlist1 - - call get_n_file_opt -popad - call red_win_n_file - -;не отрывать эту функцию от предыдущей -align 4 -still_n_file: - pushad - - mcall SF_WAIT_EVENT_TIMEOUT,10 - or eax,eax - jnz @f - call timer_funct_n_file - jmp .end - @@: - - cmp al,1 ;изм. положение окна - jne @f - call red_win_n_file - jmp .end - @@: - cmp al,2 - jne @f - call key_n_file - jmp .end - @@: - cmp al,3 - jz button_n_file - cmp al,6 - jne @f - call mouse_n_file - @@: -.end: - popad - jmp still_n_file - -align 4 -red_win_n_file: -pushad - mcall SF_REDRAW,SSF_BEGIN_DRAW - - mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT - mov edi,capt_n_file ;children window caption - mov bx,word[procinfo.box.left] - add bx,word[buf_0.l] - add bx,5 ;ширина боковой рамки - shl ebx,16 - mov bx,wnd_n_file_width - mov cx,word[procinfo.box.top] - add cx,ax ;add skin height - add cx,word[buf_0.t] - shl ecx,16 - mov cx,wnd_n_file_height - mov edx,[sc.work] - or edx,0x33000000 - xor eax,eax - int 0x40 - - mov esi,[sc.work_button] - ;ebx = (l<:)+w, ecx = (t<:)+h - mcall SF_DEFINE_BUTTON, (5 shl 16)+59, (145 shl 16)+20, 3 - mcall , (75 shl 16)+59, (145 shl 16)+20, 4 - - mov ecx,[sc.work_text] - bts ecx,31 ;рисуемая строка заканчивается нулём - mcall SF_DRAW_TEXT, (5 shl 16)+5,, capt_sel_fig - - mcall , (5 shl 16)+32,, capt_coord_x0 - mcall , (5 shl 16)+50,, capt_coord_y0 - cmp [opt_gr1],opt1 - jne @f - ;circle - mcall , (5 shl 16)+68,, capt_coord_r - mcall , (5 shl 16)+86,, capt_coord_s - jmp .end0 - @@: - ;rect - mcall , (5 shl 16)+68,, capt_coord_x1 - mcall , (5 shl 16)+86,, capt_coord_y1 - .end0: - mcall , (5 shl 16)+104,,capt_coord_z0 - mcall , (5 shl 16)+122,,capt_coord_z1 - - mov ecx,[sc.work_button_text] - bts ecx,31 - mcall , (9 shl 16)+151,, txt_but_cancel - mcall ,(79 shl 16)+151,, txt_but_create - - stdcall [option_box_draw], opt_grlist1 - - stdcall [edit_box_draw], edit4 - stdcall [edit_box_draw], edit5 - stdcall [edit_box_draw], edit6 - stdcall [edit_box_draw], edit7 - stdcall [edit_box_draw], edit8 - stdcall [edit_box_draw], edit9 - - mcall SF_REDRAW,SSF_END_DRAW -popad - ret - -align 4 -proc key_n_file uses eax ebx - mcall SF_GET_KEY - - test word [edit4.flags],10b ;ed_focus - je @f - stdcall [edit_box_key], edit4 - jmp .end - @@: - test word [edit5.flags],10b - je @f - stdcall [edit_box_key], edit5 - jmp .end - @@: - test word [edit6.flags],10b - je @f - stdcall [edit_box_key], edit6 - jmp .end - @@: - test word [edit7.flags],10b - je @f - stdcall [edit_box_key], edit7 - jmp .end - @@: - test word [edit8.flags],10b - je @f - stdcall [edit_box_key], edit8 - jmp .end - @@: - test word [edit9.flags],10b - je @f - stdcall [edit_box_key], edit9 - ;jmp .end - @@: - .end: - ret -endp - -align 4 -mouse_n_file: - stdcall [option_box_mouse], opt_grlist1 - - stdcall [edit_box_mouse], edit4 - stdcall [edit_box_mouse], edit5 - stdcall [edit_box_mouse], edit6 - stdcall [edit_box_mouse], edit7 - stdcall [edit_box_mouse], edit8 - stdcall [edit_box_mouse], edit9 - ret - -align 4 -button_n_file: - mcall SF_GET_BUTTON - - cmp ah,3 - je .exit - cmp ah,4 - jne .end_save - push eax ecx edi esi - finit - - mov esi,string4 - mov edi,Data_String - cld - mov ecx,8 - rep movsd - call String_to_DoubleFloat - fld qword[Data_Double] ;считываем как double - fstp qword[NOptCoordX0] ;сохраняем как double - - mov esi,string5 - mov edi,Data_String - cld - mov ecx,8 - rep movsd - call String_to_DoubleFloat - fld qword[Data_Double] - fstp qword[NOptCoordY0] - - mov esi,string6 - mov edi,Data_String - cld - mov ecx,8 - rep movsd - call String_to_DoubleFloat - fld qword[Data_Double] - fstp qword[NOptCoordX1] - - mov esi,string7 - mov edi,Data_String - cld - mov ecx,8 - rep movsd - call String_to_DoubleFloat - fld qword[Data_Double] - fstp qword[NOptCoordY1] - - mov esi,string8 - mov edi,Data_String - cld - mov ecx,8 - rep movsd - call String_to_DoubleFloat - fld qword[Data_Double] - fstp qword[NOptCoordZ0] - - mov esi,string9 - mov edi,Data_String - cld - mov ecx,8 - rep movsd - call String_to_DoubleFloat - fld qword[Data_Double] - fstp qword[NOptCoordZ1] - - mov word[NumberSymbolsAD],3 - ;fld qword[NOptCoordZ1] - ;fstp qword[Data_Double] - call DoubleFloat_to_String - call String_crop_0 - mov dword[txt_01.z],0 - mov dword[txt_05.z],0 - mov dword[txt_06.z],0 - stdcall str_cat, txt_01.z, Data_String - stdcall str_cat, txt_01.z, txt_nl - stdcall str_cat, txt_01.z, txt_nl - stdcall str_cat, txt_05.z, Data_String - stdcall str_cat, txt_05.z, txt_nl - stdcall str_cat, txt_05.z, txt_nl - stdcall str_cat, txt_06.z, Data_String - - fld qword[NOptCoordZ0] - fstp qword[Data_Double] - call DoubleFloat_to_String - call String_crop_0 - mov dword[txt_03.z],0 - stdcall str_cat, txt_03.z, Data_String - - fld qword[NOptCoordX0] - cmp [opt_gr1],opt1 - jne @f - ;circle - fadd qword[NOptCoordX1] - @@: - fstp qword[Data_Double] - call DoubleFloat_to_String - call String_crop_0 - mov dword[txt_04.x],0 - stdcall str_cat, txt_04.x, Data_String - stdcall str_cat, txt_04.x, txt_s_poi_Y - fld qword[NOptCoordY0] - fstp qword[Data_Double] - call DoubleFloat_to_String - call String_crop_0 - stdcall str_cat, txt_04.x, Data_String - mov dword[txt_02.x],0 - stdcall str_cat, txt_02.x, txt_04.x - stdcall str_cat, txt_02.x, txt_s_poi_Z - fld qword[NOptCoordZ1] - fstp qword[Data_Double] - call DoubleFloat_to_String - call String_crop_0 - stdcall str_cat, txt_02.x, Data_String - - ;clear old file - stdcall [tl_node_poi_get_info], tree1,0 - or eax,eax - jz @f - mov ebx,eax - stdcall [tl_node_poi_get_data], tree1,ebx - stdcall clear_object_in_list, eax - @@: - stdcall [tl_info_clear], tree1 ;очистка списка объектов - and dword[tree1.style],not tl_cursor_pos_limited - mov dword[offs_last_timer],0 - - stdcall ObjectCreate,ObjData - or dword[tree1.style], tl_cursor_pos_limited - stdcall [tl_cur_beg], tree1 - - mov dword[offs_last_timer],0 ;для обновления блока в таймере - pop esi edi ecx eax - jmp .exit - .end_save: - - cmp ah,1 - jne still_n_file.end -.exit: - mov byte[wnd_n_file],0 ;обнуляем счетчик окон - mcall SF_TERMINATE_PROCESS ;выход из программы - -align 4 -proc ObjectCreate, pobj:dword -pushad - mov ebx,[pobj] - mov [ebx+Object.OType],'Obj' - mov edi,ebx - add edi,Object.Caption - mov dword[edi],'CNC' - - mov eax,7 ;max lines - mov [ebx+Object.FigCount],eax - mov ecx,eax - - shl eax,2 - stdcall mem.Alloc,eax - mov [ebx+Object.FigData],eax - push ecx - mov edi,eax - xor eax,eax - rep stosd ;clear memory - pop ecx - - stdcall add_object_in_list,0,0,ebx,0 - ;eax -> pointer to object node - mov edi,[ebx+Object.FigData] - - mov esi,txt_00 - stdcall FigureInit,FigData,edi - add edi,4 - mov esi,txt_01 - stdcall FigureInit,FigData,edi - add edi,4 - mov esi,txt_02 - stdcall FigureInit,FigData,edi - add edi,4 - mov esi,txt_03 - stdcall FigureInit,FigData,edi - add edi,4 - mov esi,txt_04 ;X__ Y__ - stdcall FigureInit,FigData,edi - ; *** create new points *** - mov edx,[edi] - cmp [opt_gr1],opt1 - jne .rect - ;circle - fld qword[NOptCoordY1] - fistp dword[edx+Figure.PoiCount] - inc dword[edx+Figure.PoiCount] - mov eax,[edx+Figure.PoiCount] - imul eax,sizeof.Point - stdcall mem.ReAlloc,[edx+Figure.PoiData],eax - mov [edx+Figure.PoiData],eax - - ;init points - fldpi - fadd st0,st0 - fdiv qword[NOptCoordY1] - fldz - ;st0 - angle (=0) - ;st1 - delta angle (=pi/slices) - - mov ecx,[edx+Figure.PoiCount] - cmp ecx,3 - jge @f - mov ecx,3 - @@: - mov edx,[edx+Figure.PoiData] - add edx,Point.CoordX - .cycle0: - add edx,sizeof.Point - fadd st0,st1 ;angle += delta angle - - fld st0 - fcos - fmul qword[NOptCoordX1] ;st0 = cos(angle) * radius - fadd qword[NOptCoordX0] - fstp qword[edx] - fld st0 - fsin - fmul qword[NOptCoordX1] ;st0 = sin(angle) * radius - fadd qword[NOptCoordY0] - fstp qword[edx+8] - loop .cycle0 - ffree st0 - fincstp - ffree st0 - fincstp - jmp .end0 - .rect: - ;rect - mov eax,5 - mov dword[edx+Figure.PoiCount],eax - imul eax,sizeof.Point - stdcall mem.ReAlloc,[edx+Figure.PoiData],eax - mov [edx+Figure.PoiData],eax - ;init points - push edi - mov ecx,[edx+Figure.PoiData] - ;p1 - add ecx,sizeof.Point - lea edi,[ecx+Point.CoordX] - mov esi,NOptCoordX1 - movsd - movsd - mov esi,NOptCoordY0 - movsd - movsd - ;p2 - add ecx,sizeof.Point - lea edi,[ecx+Point.CoordX] - mov esi,NOptCoordX1 - movsd - movsd - mov esi,NOptCoordY1 - movsd - movsd - ;p3 - add ecx,sizeof.Point - lea edi,[ecx+Point.CoordX] - mov esi,NOptCoordX0 - movsd - movsd - mov esi,NOptCoordY1 - movsd - movsd - ;p4 - add ecx,sizeof.Point - lea edi,[ecx+Point.CoordX] - mov esi,NOptCoordX0 - movsd - movsd - mov esi,NOptCoordY0 - movsd - movsd - pop edi - .end0: - stdcall found_parent_obj,[edi] ;get figure number in ecx - stdcall figure_update_coords,ObjData,ecx - - add edi,4 - mov esi,txt_05 - stdcall FigureInit,FigData,edi - add edi,4 - mov esi,txt_06 - stdcall FigureInit,FigData,edi - - stdcall ObjCalculateScale,ebx -popad - ret -endp - -align 4 -proc get_n_file_opt uses eax - ;загрузка координат в editbox-ы - mov word[NumberSymbolsAD],3 - finit - fld qword[NOptCoordX0] - fstp qword[Data_Double] - call DoubleFloat_to_String - call String_crop_0 - stdcall [edit_box_set_text], edit4, Data_String - fld qword[NOptCoordY0] - fstp qword[Data_Double] - call DoubleFloat_to_String - call String_crop_0 - stdcall [edit_box_set_text], edit5, Data_String - fld qword[NOptCoordX1] - fstp qword[Data_Double] - call DoubleFloat_to_String - call String_crop_0 - stdcall [edit_box_set_text], edit6, Data_String - fld qword[NOptCoordY1] - fstp qword[Data_Double] - call DoubleFloat_to_String - call String_crop_0 - stdcall [edit_box_set_text], edit7, Data_String - fld qword[NOptCoordZ0] - fstp qword[Data_Double] - call DoubleFloat_to_String - call String_crop_0 - stdcall [edit_box_set_text], edit8, Data_String - fld qword[NOptCoordZ1] - fstp qword[Data_Double] - call DoubleFloat_to_String - call String_crop_0 - stdcall [edit_box_set_text], edit9, Data_String - ; - ;stdcall [edit_box_draw], edit4 - ;stdcall [edit_box_draw], edit5 - ret -endp - -align 4 -proc timer_funct_n_file uses eax - ;просматриваем выделенную координату - mov eax,[opt_gr1] - cmp eax,[last_opt] - je @f - mov eax,[opt_gr1] - mov [last_opt],eax - call red_win_n_file - @@: - ret -endp - -capt_coord_x0 db 'X0:',0 -capt_coord_y0 db 'Y0:',0 -capt_coord_z0 db 'Z0:',0 -capt_coord_x1 db 'X1:',0 -capt_coord_y1 db 'Y1:',0 -capt_coord_z1 db 'Z1:',0 -capt_coord_r db 'R:',0 -capt_coord_s db 'S:',0 - -edit4 edit_box 80, 24, 28, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 34, string4, mouse_dd, 0 -edit5 edit_box 80, 24, 46, 0xd0d0ff, 0xff, 0x80ff, 0, 0x8000, 34, string5, mouse_dd, 0 -edit6 edit_box 80, 24, 64, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 34, string6, mouse_dd, 0 -edit7 edit_box 80, 24, 82, 0xd0d0ff, 0xff, 0x80ff, 0, 0x8000, 34, string7, mouse_dd, 0 -edit8 edit_box 80, 24, 100, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 34, string8, mouse_dd, 0 -edit9 edit_box 80, 24, 118, 0xd0d0ff, 0xff, 0x80ff, 0, 0x8000, 34, string9, mouse_dd, 0 -editboxes_end_nf: - -string4 rb 34 -string5 rb 34 -string6 rb 34 -string7 rb 34 -string8 rb 34 -string9 rb 34 - -align 4 -last_opt dd opt1 ;for timer -opt_gr1 dd opt1 - -opt1 option_box opt_gr1, 115,28,6,12,0xd0d0ff, 0xff, 0x80ff,txt_circle,txt_circle.end-txt_circle -opt2 option_box opt_gr1, 115,46,6,12,0xd0d0ff, 0xff, 0x80ff,txt_rect,txt_rect.end-txt_rect - -align 4 -opt_grlist1 dd opt1,opt2,0 ;end option group - -txt_00 db ';PCB graving',0 -txt_01: db 'G0 M3 X0 Y0 Z' -.z: rb 12 -txt_02: db 'G0 X' -.x: rb 50 ;X__ Y__ Z__ -txt_03: db 'G1 F100 Z' -.z: rb 12 -txt_04: db 'X' -.x: rb 30 ;X__ Y__ -txt_05: db 'G0 Z' -.z: rb 12 -txt_06: db 'G0 M5 X0 Y0 Z' -.z: rb 12 - -if lang eq ru_RU -capt_n_file db 'Создать новый файл',0 -capt_sel_fig db 'Выберите фигуру:',0 -txt_circle: db 'Окружность' -.end: db 0 -txt_rect: db 'Прямоугольник' -.end: db 0 -else -capt_n_file db 'Create new file',0 -capt_sel_fig db 'Select figure:',0 -txt_circle: db 'Circle' -.end: db 0 -txt_rect: db 'Rectangle' -.end: db 0 -end if +; +; в этом файле собраны функции нужные для создания и +; работы окна создания нового файла +; + +wnd_n_file_width equ 300 ;ширина окна создания нового файла +wnd_n_file_height equ 200 ;высота окна создания нового файла + +align 4 +wnd_n_file db 0 ;переменная следящая за тем что-бы не запускать больше 1-го окна создания нового файла + +align 4 +NOptCoordX0 dq 35.0 +NOptCoordY0 dq 25.0 +NOptCoordX1 dq 20.0 ;for circle Radius +NOptCoordY1 dq 16.0 ;S +NOptCoordZ0 dq 1.0 +NOptCoordZ1 dq 5.0 + +;даное окно (процесс) вызываеться функцией but_wnd_coords +align 4 +start_n_file: +pushad + mcall SF_SET_EVENTS_MASK,0x27 ;маска ожидаемых событий + inc byte[wnd_n_file] + + edit_boxes_set_sys_color edit4,editboxes_end_nf,sc ;установка системных цветов + option_boxes_set_sys_color sc,opt_grlist1 + + call get_n_file_opt +popad + call red_win_n_file + +;не отрывать эту функцию от предыдущей +align 4 +still_n_file: + pushad + + mcall SF_WAIT_EVENT_TIMEOUT,10 + or eax,eax + jnz @f + call timer_funct_n_file + jmp .end + @@: + + cmp al,1 ;изм. положение окна + jne @f + call red_win_n_file + jmp .end + @@: + cmp al,2 + jne @f + call key_n_file + jmp .end + @@: + cmp al,3 + jz button_n_file + cmp al,6 + jne @f + call mouse_n_file + @@: +.end: + popad + jmp still_n_file + +align 4 +red_win_n_file: +pushad + mcall SF_REDRAW,SSF_BEGIN_DRAW + + mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT + mov edi,capt_n_file ;children window caption + mov bx,word[procinfo.box.left] + add bx,word[buf_0.l] + add bx,5 ;ширина боковой рамки + shl ebx,16 + mov bx,wnd_n_file_width + mov cx,word[procinfo.box.top] + add cx,ax ;add skin height + add cx,word[buf_0.t] + shl ecx,16 + mov cx,wnd_n_file_height + mov edx,[sc.work] + or edx,0x33000000 + xor eax,eax + int 0x40 + + mov esi,[sc.work_button] + ;ebx = (l<:)+w, ecx = (t<:)+h + mcall SF_DEFINE_BUTTON, (5 shl 16)+59, (145 shl 16)+20, 3 + mcall , (75 shl 16)+59, (145 shl 16)+20, 4 + + mov ecx,[sc.work_text] + bts ecx,31 ;рисуемая строка заканчивается нулём + mcall SF_DRAW_TEXT, (5 shl 16)+5,, capt_sel_fig + + mcall , (5 shl 16)+32,, capt_coord_x0 + mcall , (5 shl 16)+50,, capt_coord_y0 + cmp [opt_gr1],opt1 + jne @f + ;circle + mcall , (5 shl 16)+68,, capt_coord_r + mcall , (5 shl 16)+86,, capt_coord_s + jmp .end0 + @@: + ;rect + mcall , (5 shl 16)+68,, capt_coord_x1 + mcall , (5 shl 16)+86,, capt_coord_y1 + .end0: + mcall , (5 shl 16)+104,,capt_coord_z0 + mcall , (5 shl 16)+122,,capt_coord_z1 + + mov ecx,[sc.work_button_text] + bts ecx,31 + mcall , (9 shl 16)+151,, txt_but_cancel + mcall ,(79 shl 16)+151,, txt_but_create + + stdcall [option_box_draw], opt_grlist1 + + stdcall [edit_box_draw], edit4 + stdcall [edit_box_draw], edit5 + stdcall [edit_box_draw], edit6 + stdcall [edit_box_draw], edit7 + stdcall [edit_box_draw], edit8 + stdcall [edit_box_draw], edit9 + + mcall SF_REDRAW,SSF_END_DRAW +popad + ret + +align 4 +proc key_n_file uses eax ebx + mcall SF_GET_KEY + + test word [edit4.flags],10b ;ed_focus + je @f + stdcall [edit_box_key], edit4 + jmp .end + @@: + test word [edit5.flags],10b + je @f + stdcall [edit_box_key], edit5 + jmp .end + @@: + test word [edit6.flags],10b + je @f + stdcall [edit_box_key], edit6 + jmp .end + @@: + test word [edit7.flags],10b + je @f + stdcall [edit_box_key], edit7 + jmp .end + @@: + test word [edit8.flags],10b + je @f + stdcall [edit_box_key], edit8 + jmp .end + @@: + test word [edit9.flags],10b + je @f + stdcall [edit_box_key], edit9 + ;jmp .end + @@: + .end: + ret +endp + +align 4 +mouse_n_file: + stdcall [option_box_mouse], opt_grlist1 + + stdcall [edit_box_mouse], edit4 + stdcall [edit_box_mouse], edit5 + stdcall [edit_box_mouse], edit6 + stdcall [edit_box_mouse], edit7 + stdcall [edit_box_mouse], edit8 + stdcall [edit_box_mouse], edit9 + ret + +align 4 +button_n_file: + mcall SF_GET_BUTTON + + cmp ah,3 + je .exit + cmp ah,4 + jne .end_save + push eax ecx edi esi + finit + + mov esi,string4 + mov edi,Data_String + cld + mov ecx,8 + rep movsd + call String_to_DoubleFloat + fld qword[Data_Double] ;считываем как double + fstp qword[NOptCoordX0] ;сохраняем как double + + mov esi,string5 + mov edi,Data_String + cld + mov ecx,8 + rep movsd + call String_to_DoubleFloat + fld qword[Data_Double] + fstp qword[NOptCoordY0] + + mov esi,string6 + mov edi,Data_String + cld + mov ecx,8 + rep movsd + call String_to_DoubleFloat + fld qword[Data_Double] + fstp qword[NOptCoordX1] + + mov esi,string7 + mov edi,Data_String + cld + mov ecx,8 + rep movsd + call String_to_DoubleFloat + fld qword[Data_Double] + fstp qword[NOptCoordY1] + + mov esi,string8 + mov edi,Data_String + cld + mov ecx,8 + rep movsd + call String_to_DoubleFloat + fld qword[Data_Double] + fstp qword[NOptCoordZ0] + + mov esi,string9 + mov edi,Data_String + cld + mov ecx,8 + rep movsd + call String_to_DoubleFloat + fld qword[Data_Double] + fstp qword[NOptCoordZ1] + + mov word[NumberSymbolsAD],3 + ;fld qword[NOptCoordZ1] + ;fstp qword[Data_Double] + call DoubleFloat_to_String + call String_crop_0 + mov dword[txt_01.z],0 + mov dword[txt_05.z],0 + mov dword[txt_06.z],0 + stdcall str_cat, txt_01.z, Data_String + stdcall str_cat, txt_01.z, txt_nl + stdcall str_cat, txt_01.z, txt_nl + stdcall str_cat, txt_05.z, Data_String + stdcall str_cat, txt_05.z, txt_nl + stdcall str_cat, txt_05.z, txt_nl + stdcall str_cat, txt_06.z, Data_String + + fld qword[NOptCoordZ0] + fstp qword[Data_Double] + call DoubleFloat_to_String + call String_crop_0 + mov dword[txt_03.z],0 + stdcall str_cat, txt_03.z, Data_String + + fld qword[NOptCoordX0] + cmp [opt_gr1],opt1 + jne @f + ;circle + fadd qword[NOptCoordX1] + @@: + fstp qword[Data_Double] + call DoubleFloat_to_String + call String_crop_0 + mov dword[txt_04.x],0 + stdcall str_cat, txt_04.x, Data_String + stdcall str_cat, txt_04.x, txt_s_poi_Y + fld qword[NOptCoordY0] + fstp qword[Data_Double] + call DoubleFloat_to_String + call String_crop_0 + stdcall str_cat, txt_04.x, Data_String + mov dword[txt_02.x],0 + stdcall str_cat, txt_02.x, txt_04.x + stdcall str_cat, txt_02.x, txt_s_poi_Z + fld qword[NOptCoordZ1] + fstp qword[Data_Double] + call DoubleFloat_to_String + call String_crop_0 + stdcall str_cat, txt_02.x, Data_String + + ;clear old file + stdcall [tl_node_poi_get_info], tree1,0 + or eax,eax + jz @f + mov ebx,eax + stdcall [tl_node_poi_get_data], tree1,ebx + stdcall clear_object_in_list, eax + @@: + stdcall [tl_info_clear], tree1 ;очистка списка объектов + and dword[tree1.style],not tl_cursor_pos_limited + mov dword[offs_last_timer],0 + + stdcall ObjectCreate,ObjData + or dword[tree1.style], tl_cursor_pos_limited + stdcall [tl_cur_beg], tree1 + + mov dword[offs_last_timer],0 ;для обновления блока в таймере + pop esi edi ecx eax + jmp .exit + .end_save: + + cmp ah,1 + jne still_n_file.end +.exit: + mov byte[wnd_n_file],0 ;обнуляем счетчик окон + mcall SF_TERMINATE_PROCESS ;выход из программы + +align 4 +proc ObjectCreate, pobj:dword +pushad + mov ebx,[pobj] + mov [ebx+Object.OType],'Obj' + mov edi,ebx + add edi,Object.Caption + mov dword[edi],'CNC' + + mov eax,7 ;max lines + mov [ebx+Object.FigCount],eax + mov ecx,eax + + shl eax,2 + stdcall mem.Alloc,eax + mov [ebx+Object.FigData],eax + push ecx + mov edi,eax + xor eax,eax + rep stosd ;clear memory + pop ecx + + stdcall add_object_in_list,0,0,ebx,0 + ;eax -> pointer to object node + mov edi,[ebx+Object.FigData] + + mov esi,txt_00 + stdcall FigureInit,FigData,edi + add edi,4 + mov esi,txt_01 + stdcall FigureInit,FigData,edi + add edi,4 + mov esi,txt_02 + stdcall FigureInit,FigData,edi + add edi,4 + mov esi,txt_03 + stdcall FigureInit,FigData,edi + add edi,4 + mov esi,txt_04 ;X__ Y__ + stdcall FigureInit,FigData,edi + ; *** create new points *** + mov edx,[edi] + cmp [opt_gr1],opt1 + jne .rect + ;circle + fld qword[NOptCoordY1] + fistp dword[edx+Figure.PoiCount] + inc dword[edx+Figure.PoiCount] + mov eax,[edx+Figure.PoiCount] + imul eax,sizeof.Point + stdcall mem.ReAlloc,[edx+Figure.PoiData],eax + mov [edx+Figure.PoiData],eax + + ;init points + fldpi + fadd st0,st0 + fdiv qword[NOptCoordY1] + fldz + ;st0 - angle (=0) + ;st1 - delta angle (=pi/slices) + + mov ecx,[edx+Figure.PoiCount] + cmp ecx,3 + jge @f + mov ecx,3 + @@: + mov edx,[edx+Figure.PoiData] + add edx,Point.CoordX + .cycle0: + add edx,sizeof.Point + fadd st0,st1 ;angle += delta angle + + fld st0 + fcos + fmul qword[NOptCoordX1] ;st0 = cos(angle) * radius + fadd qword[NOptCoordX0] + fstp qword[edx] + fld st0 + fsin + fmul qword[NOptCoordX1] ;st0 = sin(angle) * radius + fadd qword[NOptCoordY0] + fstp qword[edx+8] + loop .cycle0 + ffree st0 + fincstp + ffree st0 + fincstp + jmp .end0 + .rect: + ;rect + mov eax,5 + mov dword[edx+Figure.PoiCount],eax + imul eax,sizeof.Point + stdcall mem.ReAlloc,[edx+Figure.PoiData],eax + mov [edx+Figure.PoiData],eax + ;init points + push edi + mov ecx,[edx+Figure.PoiData] + ;p1 + add ecx,sizeof.Point + lea edi,[ecx+Point.CoordX] + mov esi,NOptCoordX1 + movsd + movsd + mov esi,NOptCoordY0 + movsd + movsd + ;p2 + add ecx,sizeof.Point + lea edi,[ecx+Point.CoordX] + mov esi,NOptCoordX1 + movsd + movsd + mov esi,NOptCoordY1 + movsd + movsd + ;p3 + add ecx,sizeof.Point + lea edi,[ecx+Point.CoordX] + mov esi,NOptCoordX0 + movsd + movsd + mov esi,NOptCoordY1 + movsd + movsd + ;p4 + add ecx,sizeof.Point + lea edi,[ecx+Point.CoordX] + mov esi,NOptCoordX0 + movsd + movsd + mov esi,NOptCoordY0 + movsd + movsd + pop edi + .end0: + stdcall found_parent_obj,[edi] ;get figure number in ecx + stdcall figure_update_coords,ObjData,ecx + + add edi,4 + mov esi,txt_05 + stdcall FigureInit,FigData,edi + add edi,4 + mov esi,txt_06 + stdcall FigureInit,FigData,edi + + stdcall ObjCalculateScale,ebx +popad + ret +endp + +align 4 +proc get_n_file_opt uses eax + ;загрузка координат в editbox-ы + mov word[NumberSymbolsAD],3 + finit + fld qword[NOptCoordX0] + fstp qword[Data_Double] + call DoubleFloat_to_String + call String_crop_0 + stdcall [edit_box_set_text], edit4, Data_String + fld qword[NOptCoordY0] + fstp qword[Data_Double] + call DoubleFloat_to_String + call String_crop_0 + stdcall [edit_box_set_text], edit5, Data_String + fld qword[NOptCoordX1] + fstp qword[Data_Double] + call DoubleFloat_to_String + call String_crop_0 + stdcall [edit_box_set_text], edit6, Data_String + fld qword[NOptCoordY1] + fstp qword[Data_Double] + call DoubleFloat_to_String + call String_crop_0 + stdcall [edit_box_set_text], edit7, Data_String + fld qword[NOptCoordZ0] + fstp qword[Data_Double] + call DoubleFloat_to_String + call String_crop_0 + stdcall [edit_box_set_text], edit8, Data_String + fld qword[NOptCoordZ1] + fstp qword[Data_Double] + call DoubleFloat_to_String + call String_crop_0 + stdcall [edit_box_set_text], edit9, Data_String + ; + ;stdcall [edit_box_draw], edit4 + ;stdcall [edit_box_draw], edit5 + ret +endp + +align 4 +proc timer_funct_n_file uses eax + ;просматриваем выделенную координату + mov eax,[opt_gr1] + cmp eax,[last_opt] + je @f + mov eax,[opt_gr1] + mov [last_opt],eax + call red_win_n_file + @@: + ret +endp + +capt_coord_x0 db 'X0:',0 +capt_coord_y0 db 'Y0:',0 +capt_coord_z0 db 'Z0:',0 +capt_coord_x1 db 'X1:',0 +capt_coord_y1 db 'Y1:',0 +capt_coord_z1 db 'Z1:',0 +capt_coord_r db 'R:',0 +capt_coord_s db 'S:',0 + +edit4 edit_box 80, 24, 28, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 34, string4, mouse_dd, 0 +edit5 edit_box 80, 24, 46, 0xd0d0ff, 0xff, 0x80ff, 0, 0x8000, 34, string5, mouse_dd, 0 +edit6 edit_box 80, 24, 64, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 34, string6, mouse_dd, 0 +edit7 edit_box 80, 24, 82, 0xd0d0ff, 0xff, 0x80ff, 0, 0x8000, 34, string7, mouse_dd, 0 +edit8 edit_box 80, 24, 100, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 34, string8, mouse_dd, 0 +edit9 edit_box 80, 24, 118, 0xd0d0ff, 0xff, 0x80ff, 0, 0x8000, 34, string9, mouse_dd, 0 +editboxes_end_nf: + +string4 rb 34 +string5 rb 34 +string6 rb 34 +string7 rb 34 +string8 rb 34 +string9 rb 34 + +align 4 +last_opt dd opt1 ;for timer +opt_gr1 dd opt1 + +opt1 option_box opt_gr1, 115,28,6,12,0xd0d0ff, 0xff, 0x80ff,txt_circle,txt_circle.end-txt_circle +opt2 option_box opt_gr1, 115,46,6,12,0xd0d0ff, 0xff, 0x80ff,txt_rect,txt_rect.end-txt_rect + +align 4 +opt_grlist1 dd opt1,opt2,0 ;end option group + +txt_00 db ';PCB graving',0 +txt_01: db 'G0 M3 X0 Y0 Z' +.z: rb 12 +txt_02: db 'G0 X' +.x: rb 50 ;X__ Y__ Z__ +txt_03: db 'G1 F100 Z' +.z: rb 12 +txt_04: db 'X' +.x: rb 30 ;X__ Y__ +txt_05: db 'G0 Z' +.z: rb 12 +txt_06: db 'G0 M5 X0 Y0 Z' +.z: rb 12 + +if lang eq ru_RU +capt_n_file db 'Создать новый файл',0 +capt_sel_fig db 'Выберите фигуру:',0 +txt_circle: db 'Окружность' +.end: db 0 +txt_rect: db 'Прямоугольник' +.end: db 0 +else ; Default to en_US +capt_n_file db 'Create new file',0 +capt_sel_fig db 'Select figure:',0 +txt_circle: db 'Circle' +.end: db 0 +txt_rect: db 'Rectangle' +.end: db 0 +end if diff --git a/programs/other/cnc_editor/wnd_scale.inc b/programs/other/cnc_editor/wnd_scale.inc index 3430770ab3..904ec23298 100644 --- a/programs/other/cnc_editor/wnd_scale.inc +++ b/programs/other/cnc_editor/wnd_scale.inc @@ -1,181 +1,183 @@ -; -; в этом файле собраны функции нужные для создания и -; работы окна с настройками -; - -wnd_scale_width equ 320 ;ширина окна с настройками -wnd_scale_height equ 150 ;высота окна с настройками - -align 4 -wnd_run_scale db 0 ;переменная следящая за тем что-бы не запускать больше 1-го окна со свойствами одновременно - -;даное окно (процесс) вызываеться функцией but_wnd_coords -align 4 -start_scale: -pushad - mcall SF_SET_EVENTS_MASK,0x27 ;маска ожидаемых событий - inc byte[wnd_run_scale] - - edit_boxes_set_sys_color edit3,editboxes_end_sc,sc ;установка системных цветов - call get_scale -popad - call red_win_scale - -;не отрывать эту функцию от предыдущей -align 4 -still_scale: - pushad - - mcall SF_WAIT_EVENT_TIMEOUT,10 - or eax,eax - jnz @f - call timer_funct_scale - jmp .end - @@: - - cmp al,1 ;изм. положение окна - jne @f - call red_win_scale - jmp .end - @@: - cmp al,2 - jne @f - call key_scale - jmp .end - @@: - cmp al,3 - jz button_scale - cmp al,6 - jne @f - call mouse_scale - @@: -.end: - popad - jmp still_scale - -align 4 -red_win_scale: -pushad - mcall SF_REDRAW,SSF_BEGIN_DRAW - - mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT - mov edi,capt_opt ;children window caption - mov bx,word[procinfo.box.left] - add bx,word[buf_0.l] - add bx,5 ;ширина боковой рамки - shl ebx,16 - mov bx,wnd_scale_width - mov cx,word[procinfo.box.top] - add cx,ax ;add skin height - add cx,word[buf_0.t] - shl ecx,16 - mov cx,wnd_scale_height - mov edx,[sc.work] - or edx,0x33000000 - xor eax,eax - int 0x40 - - mov esi,[sc.work_button] - ;ebx = (l<:)+w, ecx = (t<:)+h - mcall SF_DEFINE_BUTTON, (5 shl 16)+59, (95 shl 16)+20, 3 - mcall , (75 shl 16)+59, (95 shl 16)+20, 4 - - mov ecx,[sc.work_text] - bts ecx,31 ;рисуемая строка заканчивается нулём - mcall SF_DRAW_TEXT, (5 shl 16)+15,, capt_sc - - mov ecx,[sc.work_button_text] - bts ecx,31 - mcall , (9 shl 16)+101,, txt_but_cancel - mov edx,txt_but_apply - mcall ,(79 shl 16)+101 - - stdcall [edit_box_draw], edit3 - - mcall SF_REDRAW,SSF_END_DRAW -popad - ret - -align 4 -proc key_scale uses eax ebx - mcall SF_GET_KEY - - test word [edit3.flags],10b ;ed_focus - je @f - stdcall [edit_box_key], edit3 - ;jmp .end - @@: - - .end: - ret -endp - -align 4 -mouse_scale: - stdcall [edit_box_mouse], edit3 - ret - -align 4 -button_scale: - mcall SF_GET_BUTTON - - cmp ah,3 - je .exit - cmp ah,4 - jne .end_save - push eax ecx edi esi - finit - - mov esi,string3 - mov edi,Data_String - cld - mov ecx,8 - rep movsd - call String_to_DoubleFloat - fld qword[Data_Double] ;считываем как double - fstp qword[Scale1mm] ;сохраняем как double - - pop esi edi ecx eax - jmp .exit - .end_save: - - cmp ah,1 - jne still_scale.end -.exit: - mov byte[wnd_run_scale],0 ;обнуляем счетчик окон - mcall SF_TERMINATE_PROCESS ;выход из программы - -align 4 -get_scale: - ;загрузка координат в editbox-ы - push eax - mov word[NumberSymbolsAD],8 - finit - fld qword[Scale1mm] - fstp qword[Data_Double] - call DoubleFloat_to_String - call String_crop_0 - stdcall [edit_box_set_text], edit3, Data_String - ;stdcall [edit_box_draw], edit3 - pop eax - ret - -align 4 -proc timer_funct_scale - ;просматриваем выделенную координату - ret -endp - -align 4 -if lang eq ru_RU -capt_opt db 'Настройки',0 -capt_sc db 'Масштаб:',0 -else -capt_opt db 'Options',0 -capt_sc db 'Scale:',0 -end if - -edit3 edit_box 80, 54, 11, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 34, string3, mouse_dd, 0 -editboxes_end_sc: - -string3 rb 34 +; +; в этом файле собраны функции нужные для создания и +; работы окна с настройками +; + +; Language support for locales: ru_RU (CP866), en_US. + +wnd_scale_width equ 320 ;ширина окна с настройками +wnd_scale_height equ 150 ;высота окна с настройками + +align 4 +wnd_run_scale db 0 ;переменная следящая за тем что-бы не запускать больше 1-го окна со свойствами одновременно + +;даное окно (процесс) вызываеться функцией but_wnd_coords +align 4 +start_scale: +pushad + mcall SF_SET_EVENTS_MASK,0x27 ;маска ожидаемых событий + inc byte[wnd_run_scale] + + edit_boxes_set_sys_color edit3,editboxes_end_sc,sc ;установка системных цветов + call get_scale +popad + call red_win_scale + +;не отрывать эту функцию от предыдущей +align 4 +still_scale: + pushad + + mcall SF_WAIT_EVENT_TIMEOUT,10 + or eax,eax + jnz @f + call timer_funct_scale + jmp .end + @@: + + cmp al,1 ;изм. положение окна + jne @f + call red_win_scale + jmp .end + @@: + cmp al,2 + jne @f + call key_scale + jmp .end + @@: + cmp al,3 + jz button_scale + cmp al,6 + jne @f + call mouse_scale + @@: +.end: + popad + jmp still_scale + +align 4 +red_win_scale: +pushad + mcall SF_REDRAW,SSF_BEGIN_DRAW + + mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT + mov edi,capt_opt ;children window caption + mov bx,word[procinfo.box.left] + add bx,word[buf_0.l] + add bx,5 ;ширина боковой рамки + shl ebx,16 + mov bx,wnd_scale_width + mov cx,word[procinfo.box.top] + add cx,ax ;add skin height + add cx,word[buf_0.t] + shl ecx,16 + mov cx,wnd_scale_height + mov edx,[sc.work] + or edx,0x33000000 + xor eax,eax + int 0x40 + + mov esi,[sc.work_button] + ;ebx = (l<:)+w, ecx = (t<:)+h + mcall SF_DEFINE_BUTTON, (5 shl 16)+59, (95 shl 16)+20, 3 + mcall , (75 shl 16)+59, (95 shl 16)+20, 4 + + mov ecx,[sc.work_text] + bts ecx,31 ;рисуемая строка заканчивается нулём + mcall SF_DRAW_TEXT, (5 shl 16)+15,, capt_sc + + mov ecx,[sc.work_button_text] + bts ecx,31 + mcall , (9 shl 16)+101,, txt_but_cancel + mov edx,txt_but_apply + mcall ,(79 shl 16)+101 + + stdcall [edit_box_draw], edit3 + + mcall SF_REDRAW,SSF_END_DRAW +popad + ret + +align 4 +proc key_scale uses eax ebx + mcall SF_GET_KEY + + test word [edit3.flags],10b ;ed_focus + je @f + stdcall [edit_box_key], edit3 + ;jmp .end + @@: + + .end: + ret +endp + +align 4 +mouse_scale: + stdcall [edit_box_mouse], edit3 + ret + +align 4 +button_scale: + mcall SF_GET_BUTTON + + cmp ah,3 + je .exit + cmp ah,4 + jne .end_save + push eax ecx edi esi + finit + + mov esi,string3 + mov edi,Data_String + cld + mov ecx,8 + rep movsd + call String_to_DoubleFloat + fld qword[Data_Double] ;считываем как double + fstp qword[Scale1mm] ;сохраняем как double + + pop esi edi ecx eax + jmp .exit + .end_save: + + cmp ah,1 + jne still_scale.end +.exit: + mov byte[wnd_run_scale],0 ;обнуляем счетчик окон + mcall SF_TERMINATE_PROCESS ;выход из программы + +align 4 +get_scale: + ;загрузка координат в editbox-ы + push eax + mov word[NumberSymbolsAD],8 + finit + fld qword[Scale1mm] + fstp qword[Data_Double] + call DoubleFloat_to_String + call String_crop_0 + stdcall [edit_box_set_text], edit3, Data_String + ;stdcall [edit_box_draw], edit3 + pop eax + ret + +align 4 +proc timer_funct_scale + ;просматриваем выделенную координату + ret +endp + +align 4 +if lang eq ru_RU +capt_opt db 'Настройки',0 +capt_sc db 'Масштаб:',0 +else ; Default to en_US +capt_opt db 'Options',0 +capt_sc db 'Scale:',0 +end if + +edit3 edit_box 80, 54, 11, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 34, string3, mouse_dd, 0 +editboxes_end_sc: + +string3 rb 34 diff --git a/programs/other/outdated/cmd/trunk/cmd.asm b/programs/other/outdated/cmd/trunk/cmd.asm index bf8bf25e5c..55feaf806f 100644 --- a/programs/other/outdated/cmd/trunk/cmd.asm +++ b/programs/other/outdated/cmd/trunk/cmd.asm @@ -19,7 +19,7 @@ use32 dd 0x0 include "..\..\..\..\macros.inc" -include "lang.inc" +include "lang.inc" ; Language support for locales: de_DE, en_US. START: call cmdexist @@ -2780,6 +2780,7 @@ title db 'CMD - Command line interpreter',0 smb_cursor db '|' prompt db 'CMD>>' + if lang eq de_DE h1 db ' CMD - Command line interpreter version 0.26 ' h2 db ' copyleft Chemist - dmitry_gt@tut.by ' @@ -2823,7 +2824,9 @@ mess14 db 'Datei erfolgreich umbenannt ' mess15 db 'ERROR: Kann Datei nicht umbenennen! ' mess16 db 'Scriptname erwartet! ' mess17 db 'Dieses Kommando ist nur in Scripts zulaessig! ' -else + +else ; Default to en_US + h1 db ' CMD - Command line interpreter version 0.26 ' h2 db ' copyleft Chemist - dmitry_gt@tut.by ' 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 ' h6 db ' CLS - Clear Screen PS - Process info ' 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 ' h10 db ' SHUTDOWN - Quit Menuet ' h11 db ' PAUSE - Wait for keypress ' @@ -2849,7 +2852,7 @@ proc_head db ' PID Name Start Length Proc_NUMB ' proc_hd11 db '-------------------------------------------- ' 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 ' mess4 db 'terminated. ' mess5 db 'Usage: del [filename] ' diff --git a/programs/other/outdated/mfar/trunk/mf-lang.inc b/programs/other/outdated/mfar/trunk/mf-lang.inc index b81e01ba0f..c0faadaca7 100644 --- a/programs/other/outdated/mfar/trunk/mf-lang.inc +++ b/programs/other/outdated/mfar/trunk/mf-lang.inc @@ -2,38 +2,40 @@ ;///// LOCALIZED STRINGS ////////////////////////////////////////////////////// ;------------------------------------------------------------------------------ +; Language support for locales: ru_RU (CP866), en_US, fr_FR, de_DE. + lsz lname,\ - ru,'Имя',\ - en,'Name',\ - fr,'Nom',\ - ge,'Name' + ru_RU,'Имя',\ + en_US,'Name',\ + fr_FR,'Nom',\ + de_DE,'Name' lsz sort_kind,\ - ru,'ир',\ - en,'nx',\ - fr,'ne',\ - ge,'ne' + ru_RU,'ир',\ + en_US,'nx',\ + fr_FR,'ne',\ + de_DE,'ne' lsz btmkeys,\ - ru,'Помощь ПользМ Просм Редакт Копир ',\ - ru,'Перен Папка Удален КонфМн Выход',\ - en,'Help UserMn View Edit Copy ',\ - en,'RenMov MkFold Delete ConfMn Quit',\ - fr,'Aide UserMn Vue Editer Copier ',\ - fr,'RenDep Cr╬eRp Efface ConfMn Quitter',\ - ge,'Hilfe Men├ Anzeig Bearb. Kopie ',\ - ge,'UmbBew MkDir L┬sche Funkt. Ende' + ru_RU,'Помощь ПользМ Просм Редакт Копир ',\ + ru_RU,'Перен Папка Удален КонфМн Выход',\ + en_US,'Help UserMn View Edit Copy ',\ + en_US,'RenMov MkFold Delete ConfMn Quit',\ + fr_FR,'Aide UserMn Vue Editer Copier ',\ + fr_FR,'RenDep Cr╬eRp Efface ConfMn Quitter',\ + de_DE,'Hilfe Men├ Anzeig Bearb. Kopie ',\ + de_DE,'UmbBew MkDir L┬sche Funkt. Ende' lsz sz_cancel,\ - ru,'Отмена',\ - en,'Cancel',\ - fr,'Annuler',\ - ge,'Beenden' + ru_RU,'Отмена',\ + en_US,'Cancel',\ + fr_FR,'Annuler',\ + de_DE,'Beenden' ;---------- COPY DIALOG ---------- lsz sz_copy,\ - ru,'Копировать "',\ - en,'Copy "',\ - fr,'Copier "',\ - ge,'Kopiere "' + ru_RU,'Копировать "',\ + en_US,'Copy "',\ + fr_FR,'Copier "',\ + de_DE,'Kopiere "' lsz sz_copyto,\ - ru,'" в:',\ - en,'" to:',\ - fr,'" vers:',\ - ge,'" nach:' + ru_RU,'" в:',\ + en_US,'" to:',\ + fr_FR,'" vers:',\ + de_DE,'" nach:' diff --git a/programs/other/outdated/mhc/trunk/mhc.asm b/programs/other/outdated/mhc/trunk/mhc.asm index f59fbdcf7b..c8b3965802 100644 --- a/programs/other/outdated/mhc/trunk/mhc.asm +++ b/programs/other/outdated/mhc/trunk/mhc.asm @@ -1,1001 +1,1003 @@ -; -; MHC archiver for MenuetOS - very fast compression tool -; -; version 0.09 -; -; Written by Nikita Lesnikov (nlo_one@mail.ru, Republic of Belarus, Sluck) -; - -;============================================================================== - -; -; Brief file format description: -; -; +-----------+------------------------+ -; File structure: | Method ID | Compressed data | -; +-----------+------------------------+ -; -; Methods list: -; -; 0. LZP (order-2 specified specially for *.ASM,*.RAW and MeOS executables) -; -; New methods can be easily added without loss of compatibility -; with older versions -; - -;============================================================================== - -; SYSTEM HEADER - -use32 - - org 0x0 - db "MENUET01" - dd 0x01 - dd ENTRANCE - dd MHC_END - dd 0x300000 ; 3 megs of memory needed - dd 0x2FF000 - dd 0x0 - dd 0x0 - -include 'lang.inc' -include '..\..\..\macros.inc' -; CODE AREA - -ENTRANCE: - -; ======== user interface ========= - - - call draw_window ; draw the window - - still: - - mov eax,10 ; wait for event - mcall - - cmp eax,1 ; redraw? - jnz no_redraw - call draw_window - no_redraw: - - cmp eax,2 ; key pressed? - jz key - - cmp eax,3 ; button pressed? - jz button - - jmp still - - ; Key handler - - key: - mov eax,2 ; read it - mcall - shr eax,8 - - cmp byte [editstate],0 - jz still - - cmp al,8 ; backspace - jnz no_bksp - cmp byte [editpos],0 - jz no_del_last - dec byte [editpos] - xor ebx,ebx - mov bl,byte [editpos] - add ebx,cmfile - cmp byte [editstate],2 - jnz no_add_base_1 - add ebx,12 - no_add_base_1: - mov byte [ebx],32 - no_del_last: - call draw_info - jmp still - no_bksp: - - cmp al,13 ; enter - jnz no_enter - mov byte [editstate],0 - call draw_info - jmp still - no_enter: - - cmp eax,dword 31 - jbe no_lit - cmp eax,dword 95 - jb capital - sub eax,32 - capital: - xor ebx,ebx - mov bl,byte [editpos] - add ebx,cmfile - cmp byte [editstate],2 - jnz no_add_base_2 - add ebx,12 - no_add_base_2: - mov byte [ebx],al - inc byte [editpos] - cmp byte [editpos],12 - jnz no_null_state - mov byte [editstate],0 - no_null_state: - call draw_info - no_lit: - - jmp still - - ; Button handler - - button: - - mov eax,17 - mcall - - cmp ah,1 - jnz no_quit - mov eax,-1 - mcall - no_quit: - - cmp ah,4 - jnz nofirst - cld - mov byte [editstate],1 - mov edi,cmfile - mov eax,0x20202020 - mov ecx,3 - rep stosd - mov byte [editpos],0 - mov byte [msgid],0 - call draw_info - nofirst: - - cmp ah,5 - jnz nosecond - cld - mov byte [editstate],2 - mov edi,iofile - mov eax,0x20202020 - mov ecx,3 - rep stosd - mov byte [editpos],0 - mov byte [msgid],0 - call draw_info - nosecond: - - cmp ah,2 - jnz no_compress - call compress - no_compress: - - cmp ah,3 - jnz no_decompress - call decompress - no_decompress: - - cmp ah,6 - jnz no_delete_io - pusha - mov eax,32 - mov ebx,iofile - mcall - popa - no_delete_io: - - cmp ah,7 - jnz no_delete_archive - pusha - mov eax,32 - mov ebx,cmfile - mcall - popa - no_delete_archive: - - jmp still - - ; WINDOW DRAW - - draw_window: - - mov eax,12 ; Start redrawing - mov ebx,1 - mcall - - xor eax,eax ; Define window - mov ebx,100*65536+240 - mov ecx,100*65536+130 - mov edx,0x04AAAAAA - mov esi,0x80777777 - mov edi,0x00777777 - mcall - - mov eax,4 ; Draw all needed texts - mov ebx,8*65536+8 - mov ecx,0x00FFFFFF - mov edx,title - mov esi,arclab-title - mcall - - xor ecx,ecx - mov edx,arclab - mov esi,unplab-arclab - add ebx,10*65536+28 - mcall - - mov edx,unplab - mov esi,fin_text-unplab - add ebx,18 - mcall - - pusha - -; mov eax,8 ; Buttons -; mov ebx,222*65536+10 -; mov ecx,6*65536+10 -; mov edx,1 -; mov esi,0x555555 -; mcall - - mov eax,8 - mov ebx,15*65536+100 - mov ecx,70*65536+13 - mov edx,2 - mcall - - inc edx - add ebx,110*65536 - mcall - - inc edx - mov ebx,214*65536+11 - mov ecx,33*65536+11 - mcall - - inc edx - add ecx,18*65536 - mcall - - inc edx - mov ebx,15*65536+100 - mov ecx,86*65536+13 - mcall - - inc edx - add ebx,110*65536 - mcall - - popa - - mov ecx,0x00FFFFFF - mov edx,keylab - mov esi,dellab-keylab - add ebx,19 - mcall - - mov edx,dellab - mov esi,title-dellab - add ebx,16 - mcall - - call draw_info - - mov eax,12 ; Finish redrawing - mov ebx,2 - mcall - - ret - - draw_info: ; Draw filenames and compressor state - - activecolor equ 0x00112299 - - pusha ; Save registers - - mov eax,13 ; Clean draw area - mov ebx,127*65536+85 - mov ecx,33*65536+33 - mov edx,0x00AAAAAA - mcall - - mov eax,4 ; Draw filenames - mov ebx,134*65536+36 - mov edx,cmfile - xor ecx,ecx - mov esi,12 - cmp byte [editstate],1 - jnz no_active_1 - mov ecx,activecolor - no_active_1: - mcall - xor ecx,ecx - cmp byte [editstate],2 - jnz no_active_2 - mov ecx,activecolor - no_active_2: - add ebx,18 - add edx,12 - mcall - - mov eax,13 ; Clean info area - mov ebx,14*65536+210 - mov ecx,107*65536+14 - mov edx,0x00AAAAAA - mcall - - cmp byte [msgid],0 ; Draw info string - jz notype - mov ebx,16*65536+110 - xor ecx,ecx - mov esi,16 - mov al, byte [msgid] - dec al - shl al,4 - xor ah,ah - xor edx,edx - mov dx,ax - add edx,msgtable - mov eax,4 - mcall - notype: - - popa ; Restore registers - - ret - - ; interface data - - if lang eq de_DE - keylab db " PACKEN ENTPACKEN" - dellab db " LOESCHE I/O LOESCHE *.MHC" - title db "MHC 0.09" - arclab db "GEOACJTE DATEI:" - unplab db "EIN/AUSGABE DATEI:" - fin_text: - - cmfile db "FILENAME.MHC" - iofile db "FILENAME.XYZ" - - msgtable: - db "PACKE... " - db "ENTPACKE... " - db "KEIN I/O! " - db "KEINE *.MHC! " - db "FALSCHE METHODe!" - - else - keylab db " COMPRESS DECOMPRESS" - dellab db " DELETE I/O DELETE *.MHC" - title db "MHC 0.09" - arclab db "COMPRESSED FILE:" - unplab db "INPUT/OUTPUT FILE:" - fin_text: - - cmfile db "FILENAME.MHC" - iofile db "FILENAME.XYZ" - - msgtable: - db "COMPRESSING... " - db "DECOMPRESSING..." - db "I/O NOT FOUND! " - db "*.MHC NOT FOUND!" - db "INVALID METHOD! " - - end if - - - editstate db 0 - editpos db 0 - msgid db 0 - - -; ======== compression/decompression engine ======== - -; Adresses declaration - - hashtable equ MHC_END - ifile equ hashtable+65536*4 - ofile equ ifile+1000000 - - compress: ; File compression - - call fill_filebufs - - mov eax,6 - mov ebx,iofile - xor ecx,ecx - mov edx,ecx - not edx - mov esi,ifile - mcall - - cmp eax,0xFFFFFFFF - jnz compress_filefound ; i/o file not found - mov byte [msgid],3 - call draw_info - ret - - compress_filefound: - - mov byte [msgid],1 - call draw_info - - jmp lzp_compress ; compress with order-2 LZP - compress_dumpdata: - - push edx - - mov eax,32 - mov ebx,cmfile - mcall - - mov eax,33 - pop edx - mov ebx,cmfile - mov ecx,ofile - xor esi,esi - mcall - - mov byte [msgid],0 - call draw_info - - ret - - - decompress: ; File decompression - - call fill_filebufs - - mov eax,6 - mov ebx,cmfile - xor ecx,ecx - mov edx,ecx - not edx - mov esi,ofile - mcall - - cmp eax,0xFFFFFFFF - jnz decompress_filefound ; *.mhc file not found - mov byte [msgid],4 - call draw_info - ret - - decompress_filefound: - - cmp byte [ofile],0 ; Invalid method! - jz right_method - mov byte [msgid],5 - call draw_info - ret - - right_method: - mov byte [msgid],2 - call draw_info - - jmp lzp_decompress - decompress_dumpdata: - - push edx - - mov eax,32 - mov ebx,iofile - mcall - - mov eax,33 - pop edx - mov ebx,iofile - mov ecx,ifile - xor esi,esi - mcall - - mov byte [msgid],0 - call draw_info - - ret - - fill_filebufs: ; Fill filebufs with garbage to simplify matching - pusha - cld - mov eax,0xF7D9A03F ; <- "magic number" :) just garbage... - mov ecx,2000000/4 - mov edi,ifile - rep stosd - popa - ret - -; ==== algorithms section ==== - -; Method 0: LZP compression algorithm - - lzp_compress: ; EDX - how much bytes to dump - - cld ; clear direction flag - - mov esi,ifile ; init pointers - mov edi,ofile - - push eax ; write header: ID0+4bfilesize => total 5 bytes - xor eax,eax - stosb - pop eax - stosd - - pusha ; fill hash table - mov eax,ifile - mov edi,hashtable - mov ecx,65536 - rep stosd - popa - - add eax,esi ; calculate endpointer - mov dword [endpointer],eax - - movsw ; copy three bytes - movsb - - mov dword [controlp],edi - inc edi - - mov byte [controld],0 - mov byte [controlb],0 - - c_loop: - cmp dword [endpointer],esi ; check end of file - ja c_loop_ok - jmp finish_c_loop - c_loop_ok: - - call chash - call compare - jz two_match_c - - lodsb - mov byte [literal],al - call chash - call compare - jz lit_match_c - - mov al,0 - call putbit - mov al,byte [literal] - stosb - movsb - jmp end_c_loop - - lit_match_c: - mov al,1 - call putbit - mov al,0 - call putbit - mov al,byte [literal] - stosb - jmp encode_match - - two_match_c: - mov al,1 - call putbit - call putbit - - encode_match: - call incpos - call compare - jz one_c - mov al,0 - call putbit - jmp end_c_loop - one_c: - - call incpos - mov al,1 - call putbit - - call compare - jnz ec1 - call incpos - call compare - jnz ec2 - call incpos - call compare - jnz ec3 - call incpos - mov al,1 - call putbit - call putbit - call compare - jnz ec4 - call incpos - call compare - jnz ec5 - call incpos - call compare - jnz ec6 - call incpos - call compare - jnz ec7 - call incpos - call compare - jnz ec8 - call incpos - call compare - jnz ec9 - call incpos - call compare - jnz ec10 - call incpos - - mov al,1 - call putbit - call putbit - call putbit - xor ecx,ecx - - match_loop_c: - cmp esi,dword [endpointer] - jae out_match_loop_c - call compare - jnz out_match_loop_c - inc ecx - call incpos - jmp match_loop_c - out_match_loop_c: - - mov al,0xFF - out_lg: - cmp ecx,255 - jb out_lg_out - stosb - sub ecx,255 - jmp out_lg - out_lg_out: - mov al,cl - stosb - jmp end_c_loop - - ec10: - mov al,1 - call putbit - call putbit - mov al,0 - call putbit - jmp end_c_loop - - ec9: - mov al,1 - call putbit - mov al,0 - call putbit - mov al,1 - call putbit - jmp end_c_loop - - ec8: - mov al,1 - call putbit - mov al,0 - call putbit - call putbit - jmp end_c_loop - - ec7: - mov al,0 - call putbit - mov al,1 - call putbit - call putbit - jmp end_c_loop - - ec6: - mov al,0 - call putbit - mov al,1 - call putbit - mov al,0 - call putbit - jmp end_c_loop - - ec5: - mov al,0 - call putbit - call putbit - mov al,1 - call putbit - jmp end_c_loop - - ec4: - mov al,0 - call putbit - call putbit - call putbit - jmp end_c_loop - - ec3: - mov al,1 - call putbit - mov al,0 - call putbit - jmp end_c_loop - - ec2: - mov al,0 - call putbit - mov al,1 - call putbit - jmp end_c_loop - - ec1: - mov al,0 - call putbit - call putbit - - end_c_loop: - jmp c_loop - - finish_c_loop: - - mov eax,dword [controlp] ; store last tagbyte - mov bl,byte [controld] - mov [eax], byte bl - - sub edi,ofile ; calculate dump size - mov edx,edi - - jmp compress_dumpdata - -; LZP decompression algorithm - - lzp_decompress: ; EDX - how much bytes to dump - - cld - - mov edi,ifile - mov esi,ofile+1 - - pusha ; fill hash table - mov eax,ifile - mov edi,hashtable - mov ecx,65536 - rep stosd - popa - - lodsd - - mov ebx,edi - add ebx,eax - mov dword [endpointer],ebx - - movsw - movsb - - lodsb - mov byte [controld],al - mov byte [controlb],0 - - d_loop: - cmp dword [endpointer],edi - ja d_loop_ok - jmp finish_d_loop - d_loop_ok: - - call getbit - cmp al,0 - jnz match_d - call dhash - movsb - call dhash - movsb - jmp end_d_loop - - match_d: - - call getbit - cmp al,0 - jnz no_literal_before_match - call dhash - movsb - no_literal_before_match: - - call dhash - mov ecx,1 - call copymatch - - call getbit - cmp al,0 - jz end_d_loop - mov ecx,1 - call copymatch - call getbit - cmp al,0 - jz dc2 - mov ecx,2 - call copymatch - call getbit - cmp al,0 - jz end_d_loop - mov ecx,1 - call copymatch - call getbit - cmp al,0 - jz dc4 - mov ecx,4 - call copymatch - call getbit - cmp al,0 - jz dc5 - call getbit - cmp al,0 - jz dc6 - mov ecx,3 - call copymatch - - do: - lodsb - xor ecx,ecx - mov cl,al - call copymatch - cmp al,0xFF - jnz end_do - jmp do - end_do: - jmp end_d_loop - - dc6: - mov ecx,2 - call copymatch - jmp end_d_loop - - dc5: - call getbit - cmp al,0 - jz ndc5 - mov ecx,1 - call copymatch - ndc5: - jmp end_d_loop - - dc4: - call getbit - cmp al,0 - jz ndc4 - call getbit - mov ecx,3 - cmp al,1 - jz ndcc4 - dec ecx - ndcc4: - call copymatch - jmp end_d_loop - ndc4: - call getbit - cmp al,0 - jz ndccc4 - mov ecx,1 - call copymatch - ndccc4: - jmp end_d_loop - - dc2: - call getbit - cmp al,0 - jz ndc2 - mov ecx,1 - call copymatch - ndc2: - - end_d_loop: - jmp d_loop - finish_d_loop: - - mov edx, dword [ofile+1] - - jmp decompress_dumpdata - -; LZP subroutines - - putbit: ; bit -> byte tag, AL holds bit for output - pusha - mov cl,byte [controlb] - shl al,cl - mov bl,byte [controld] - or bl,al - mov byte [controld],bl - inc cl - cmp cl,8 - jnz just_increment - mov byte [controlb],0 - mov byte [controld],0 - push edi - mov edi, dword [controlp] - mov al,bl - stosb - pop edi - mov dword [controlp],edi - popa - inc edi - ret - just_increment: - mov byte [controlb],cl - popa - ret - - getbit: ; tag byte -> bit, AL holds input - push ecx - mov al,byte [controld] - mov cl,byte [controlb] - shr al,cl - and al,1 - inc cl - cmp cl,8 - jnz just_increment_d - mov byte [controlb],0 - push eax - lodsb - mov byte [controld],al - pop eax - pop ecx - ret - just_increment_d: - mov byte [controlb],cl - pop ecx - ret - - chash: ; calculate hash -> mp -> fill position - pusha - xor eax,eax - mov al, byte [esi-1] - mov ah, byte [esi-2] - shl eax,2 - add eax,hashtable - mov edx,dword [eax] - mov dword [mp],edx - mov dword [eax],esi - popa - ret - - dhash: ; calculate hash -> mp -> fill position - pusha - xor eax,eax - mov al, byte [edi-1] - mov ah, byte [edi-2] - shl eax,2 - add eax,hashtable - mov edx,dword [eax] - mov dword [mp],edx - mov dword [eax],edi - popa - ret - - copymatch: ; ECX bytes from [mp] to [rp] - push esi - mov esi,dword [mp] - rep movsb - mov dword [mp],esi - pop esi - ret - - compare: ; compare [mp] with [cpos] - push edi - push esi - mov edi,dword [mp] - cmpsb - pop esi - pop edi - ret - - incpos: - inc dword [mp] - inc esi - ret - - -; LZP algorithm data - - endpointer dd 0 - controlp dd 0 - controlb db 0 - controld db 0 - mp dd 0 - literal db 0 - -MHC_END: ; the end... - Nikita Lesnikov (nlo_one) +; +; MHC archiver for MenuetOS - very fast compression tool +; +; version 0.09 +; +; Written by Nikita Lesnikov (nlo_one@mail.ru, Republic of Belarus, Sluck) +; + +;============================================================================== + +; +; Brief file format description: +; +; +-----------+------------------------+ +; File structure: | Method ID | Compressed data | +; +-----------+------------------------+ +; +; Methods list: +; +; 0. LZP (order-2 specified specially for *.ASM,*.RAW and MeOS executables) +; +; New methods can be easily added without loss of compatibility +; with older versions +; + +;============================================================================== + +; SYSTEM HEADER + +use32 + + org 0x0 + db "MENUET01" + dd 0x01 + dd ENTRANCE + dd MHC_END + dd 0x300000 ; 3 megs of memory needed + dd 0x2FF000 + dd 0x0 + dd 0x0 + +include 'lang.inc' ; Language support for locales: de_DE, en_US. +include '..\..\..\macros.inc' +; CODE AREA + +ENTRANCE: + +; ======== user interface ========= + + + call draw_window ; draw the window + + still: + + mov eax,10 ; wait for event + mcall + + cmp eax,1 ; redraw? + jnz no_redraw + call draw_window + no_redraw: + + cmp eax,2 ; key pressed? + jz key + + cmp eax,3 ; button pressed? + jz button + + jmp still + + ; Key handler + + key: + mov eax,2 ; read it + mcall + shr eax,8 + + cmp byte [editstate],0 + jz still + + cmp al,8 ; backspace + jnz no_bksp + cmp byte [editpos],0 + jz no_del_last + dec byte [editpos] + xor ebx,ebx + mov bl,byte [editpos] + add ebx,cmfile + cmp byte [editstate],2 + jnz no_add_base_1 + add ebx,12 + no_add_base_1: + mov byte [ebx],32 + no_del_last: + call draw_info + jmp still + no_bksp: + + cmp al,13 ; enter + jnz no_enter + mov byte [editstate],0 + call draw_info + jmp still + no_enter: + + cmp eax,dword 31 + jbe no_lit + cmp eax,dword 95 + jb capital + sub eax,32 + capital: + xor ebx,ebx + mov bl,byte [editpos] + add ebx,cmfile + cmp byte [editstate],2 + jnz no_add_base_2 + add ebx,12 + no_add_base_2: + mov byte [ebx],al + inc byte [editpos] + cmp byte [editpos],12 + jnz no_null_state + mov byte [editstate],0 + no_null_state: + call draw_info + no_lit: + + jmp still + + ; Button handler + + button: + + mov eax,17 + mcall + + cmp ah,1 + jnz no_quit + mov eax,-1 + mcall + no_quit: + + cmp ah,4 + jnz nofirst + cld + mov byte [editstate],1 + mov edi,cmfile + mov eax,0x20202020 + mov ecx,3 + rep stosd + mov byte [editpos],0 + mov byte [msgid],0 + call draw_info + nofirst: + + cmp ah,5 + jnz nosecond + cld + mov byte [editstate],2 + mov edi,iofile + mov eax,0x20202020 + mov ecx,3 + rep stosd + mov byte [editpos],0 + mov byte [msgid],0 + call draw_info + nosecond: + + cmp ah,2 + jnz no_compress + call compress + no_compress: + + cmp ah,3 + jnz no_decompress + call decompress + no_decompress: + + cmp ah,6 + jnz no_delete_io + pusha + mov eax,32 + mov ebx,iofile + mcall + popa + no_delete_io: + + cmp ah,7 + jnz no_delete_archive + pusha + mov eax,32 + mov ebx,cmfile + mcall + popa + no_delete_archive: + + jmp still + + ; WINDOW DRAW + + draw_window: + + mov eax,12 ; Start redrawing + mov ebx,1 + mcall + + xor eax,eax ; Define window + mov ebx,100*65536+240 + mov ecx,100*65536+130 + mov edx,0x04AAAAAA + mov esi,0x80777777 + mov edi,0x00777777 + mcall + + mov eax,4 ; Draw all needed texts + mov ebx,8*65536+8 + mov ecx,0x00FFFFFF + mov edx,title + mov esi,arclab-title + mcall + + xor ecx,ecx + mov edx,arclab + mov esi,unplab-arclab + add ebx,10*65536+28 + mcall + + mov edx,unplab + mov esi,fin_text-unplab + add ebx,18 + mcall + + pusha + +; mov eax,8 ; Buttons +; mov ebx,222*65536+10 +; mov ecx,6*65536+10 +; mov edx,1 +; mov esi,0x555555 +; mcall + + mov eax,8 + mov ebx,15*65536+100 + mov ecx,70*65536+13 + mov edx,2 + mcall + + inc edx + add ebx,110*65536 + mcall + + inc edx + mov ebx,214*65536+11 + mov ecx,33*65536+11 + mcall + + inc edx + add ecx,18*65536 + mcall + + inc edx + mov ebx,15*65536+100 + mov ecx,86*65536+13 + mcall + + inc edx + add ebx,110*65536 + mcall + + popa + + mov ecx,0x00FFFFFF + mov edx,keylab + mov esi,dellab-keylab + add ebx,19 + mcall + + mov edx,dellab + mov esi,title-dellab + add ebx,16 + mcall + + call draw_info + + mov eax,12 ; Finish redrawing + mov ebx,2 + mcall + + ret + + draw_info: ; Draw filenames and compressor state + + activecolor equ 0x00112299 + + pusha ; Save registers + + mov eax,13 ; Clean draw area + mov ebx,127*65536+85 + mov ecx,33*65536+33 + mov edx,0x00AAAAAA + mcall + + mov eax,4 ; Draw filenames + mov ebx,134*65536+36 + mov edx,cmfile + xor ecx,ecx + mov esi,12 + cmp byte [editstate],1 + jnz no_active_1 + mov ecx,activecolor + no_active_1: + mcall + xor ecx,ecx + cmp byte [editstate],2 + jnz no_active_2 + mov ecx,activecolor + no_active_2: + add ebx,18 + add edx,12 + mcall + + mov eax,13 ; Clean info area + mov ebx,14*65536+210 + mov ecx,107*65536+14 + mov edx,0x00AAAAAA + mcall + + cmp byte [msgid],0 ; Draw info string + jz notype + mov ebx,16*65536+110 + xor ecx,ecx + mov esi,16 + mov al, byte [msgid] + dec al + shl al,4 + xor ah,ah + xor edx,edx + mov dx,ax + add edx,msgtable + mov eax,4 + mcall + notype: + + popa ; Restore registers + + ret + + ; interface data + + if lang eq de_DE + + keylab db " PACKEN ENTPACKEN" + dellab db " LOESCHE I/O LOESCHE *.MHC" + title db "MHC 0.09" + arclab db "GEOACJTE DATEI:" + unplab db "EIN/AUSGABE DATEI:" + fin_text: + + cmfile db "FILENAME.MHC" + iofile db "FILENAME.XYZ" + + msgtable: + db "PACKE... " + db "ENTPACKE... " + db "KEIN I/O! " + db "KEINE *.MHC! " + db "FALSCHE METHODE!" + + else ; Default to en_US + + keylab db " COMPRESS DECOMPRESS" + dellab db " DELETE I/O DELETE *.MHC" + title db "MHC 0.09" + arclab db "COMPRESSED FILE:" + unplab db "INPUT/OUTPUT FILE:" + fin_text: + + cmfile db "FILENAME.MHC" + iofile db "FILENAME.XYZ" + + msgtable: + db "COMPRESSING... " + db "DECOMPRESSING..." + db "I/O NOT FOUND! " + db "*.MHC NOT FOUND!" + db "INVALID METHOD! " + + end if + + + editstate db 0 + editpos db 0 + msgid db 0 + + +; ======== compression/decompression engine ======== + +; Adresses declaration + + hashtable equ MHC_END + ifile equ hashtable+65536*4 + ofile equ ifile+1000000 + + compress: ; File compression + + call fill_filebufs + + mov eax,6 + mov ebx,iofile + xor ecx,ecx + mov edx,ecx + not edx + mov esi,ifile + mcall + + cmp eax,0xFFFFFFFF + jnz compress_filefound ; i/o file not found + mov byte [msgid],3 + call draw_info + ret + + compress_filefound: + + mov byte [msgid],1 + call draw_info + + jmp lzp_compress ; compress with order-2 LZP + compress_dumpdata: + + push edx + + mov eax,32 + mov ebx,cmfile + mcall + + mov eax,33 + pop edx + mov ebx,cmfile + mov ecx,ofile + xor esi,esi + mcall + + mov byte [msgid],0 + call draw_info + + ret + + + decompress: ; File decompression + + call fill_filebufs + + mov eax,6 + mov ebx,cmfile + xor ecx,ecx + mov edx,ecx + not edx + mov esi,ofile + mcall + + cmp eax,0xFFFFFFFF + jnz decompress_filefound ; *.mhc file not found + mov byte [msgid],4 + call draw_info + ret + + decompress_filefound: + + cmp byte [ofile],0 ; Invalid method! + jz right_method + mov byte [msgid],5 + call draw_info + ret + + right_method: + mov byte [msgid],2 + call draw_info + + jmp lzp_decompress + decompress_dumpdata: + + push edx + + mov eax,32 + mov ebx,iofile + mcall + + mov eax,33 + pop edx + mov ebx,iofile + mov ecx,ifile + xor esi,esi + mcall + + mov byte [msgid],0 + call draw_info + + ret + + fill_filebufs: ; Fill filebufs with garbage to simplify matching + pusha + cld + mov eax,0xF7D9A03F ; <- "magic number" :) just garbage... + mov ecx,2000000/4 + mov edi,ifile + rep stosd + popa + ret + +; ==== algorithms section ==== + +; Method 0: LZP compression algorithm + + lzp_compress: ; EDX - how much bytes to dump + + cld ; clear direction flag + + mov esi,ifile ; init pointers + mov edi,ofile + + push eax ; write header: ID0+4bfilesize => total 5 bytes + xor eax,eax + stosb + pop eax + stosd + + pusha ; fill hash table + mov eax,ifile + mov edi,hashtable + mov ecx,65536 + rep stosd + popa + + add eax,esi ; calculate endpointer + mov dword [endpointer],eax + + movsw ; copy three bytes + movsb + + mov dword [controlp],edi + inc edi + + mov byte [controld],0 + mov byte [controlb],0 + + c_loop: + cmp dword [endpointer],esi ; check end of file + ja c_loop_ok + jmp finish_c_loop + c_loop_ok: + + call chash + call compare + jz two_match_c + + lodsb + mov byte [literal],al + call chash + call compare + jz lit_match_c + + mov al,0 + call putbit + mov al,byte [literal] + stosb + movsb + jmp end_c_loop + + lit_match_c: + mov al,1 + call putbit + mov al,0 + call putbit + mov al,byte [literal] + stosb + jmp encode_match + + two_match_c: + mov al,1 + call putbit + call putbit + + encode_match: + call incpos + call compare + jz one_c + mov al,0 + call putbit + jmp end_c_loop + one_c: + + call incpos + mov al,1 + call putbit + + call compare + jnz ec1 + call incpos + call compare + jnz ec2 + call incpos + call compare + jnz ec3 + call incpos + mov al,1 + call putbit + call putbit + call compare + jnz ec4 + call incpos + call compare + jnz ec5 + call incpos + call compare + jnz ec6 + call incpos + call compare + jnz ec7 + call incpos + call compare + jnz ec8 + call incpos + call compare + jnz ec9 + call incpos + call compare + jnz ec10 + call incpos + + mov al,1 + call putbit + call putbit + call putbit + xor ecx,ecx + + match_loop_c: + cmp esi,dword [endpointer] + jae out_match_loop_c + call compare + jnz out_match_loop_c + inc ecx + call incpos + jmp match_loop_c + out_match_loop_c: + + mov al,0xFF + out_lg: + cmp ecx,255 + jb out_lg_out + stosb + sub ecx,255 + jmp out_lg + out_lg_out: + mov al,cl + stosb + jmp end_c_loop + + ec10: + mov al,1 + call putbit + call putbit + mov al,0 + call putbit + jmp end_c_loop + + ec9: + mov al,1 + call putbit + mov al,0 + call putbit + mov al,1 + call putbit + jmp end_c_loop + + ec8: + mov al,1 + call putbit + mov al,0 + call putbit + call putbit + jmp end_c_loop + + ec7: + mov al,0 + call putbit + mov al,1 + call putbit + call putbit + jmp end_c_loop + + ec6: + mov al,0 + call putbit + mov al,1 + call putbit + mov al,0 + call putbit + jmp end_c_loop + + ec5: + mov al,0 + call putbit + call putbit + mov al,1 + call putbit + jmp end_c_loop + + ec4: + mov al,0 + call putbit + call putbit + call putbit + jmp end_c_loop + + ec3: + mov al,1 + call putbit + mov al,0 + call putbit + jmp end_c_loop + + ec2: + mov al,0 + call putbit + mov al,1 + call putbit + jmp end_c_loop + + ec1: + mov al,0 + call putbit + call putbit + + end_c_loop: + jmp c_loop + + finish_c_loop: + + mov eax,dword [controlp] ; store last tagbyte + mov bl,byte [controld] + mov [eax], byte bl + + sub edi,ofile ; calculate dump size + mov edx,edi + + jmp compress_dumpdata + +; LZP decompression algorithm + + lzp_decompress: ; EDX - how much bytes to dump + + cld + + mov edi,ifile + mov esi,ofile+1 + + pusha ; fill hash table + mov eax,ifile + mov edi,hashtable + mov ecx,65536 + rep stosd + popa + + lodsd + + mov ebx,edi + add ebx,eax + mov dword [endpointer],ebx + + movsw + movsb + + lodsb + mov byte [controld],al + mov byte [controlb],0 + + d_loop: + cmp dword [endpointer],edi + ja d_loop_ok + jmp finish_d_loop + d_loop_ok: + + call getbit + cmp al,0 + jnz match_d + call dhash + movsb + call dhash + movsb + jmp end_d_loop + + match_d: + + call getbit + cmp al,0 + jnz no_literal_before_match + call dhash + movsb + no_literal_before_match: + + call dhash + mov ecx,1 + call copymatch + + call getbit + cmp al,0 + jz end_d_loop + mov ecx,1 + call copymatch + call getbit + cmp al,0 + jz dc2 + mov ecx,2 + call copymatch + call getbit + cmp al,0 + jz end_d_loop + mov ecx,1 + call copymatch + call getbit + cmp al,0 + jz dc4 + mov ecx,4 + call copymatch + call getbit + cmp al,0 + jz dc5 + call getbit + cmp al,0 + jz dc6 + mov ecx,3 + call copymatch + + do: + lodsb + xor ecx,ecx + mov cl,al + call copymatch + cmp al,0xFF + jnz end_do + jmp do + end_do: + jmp end_d_loop + + dc6: + mov ecx,2 + call copymatch + jmp end_d_loop + + dc5: + call getbit + cmp al,0 + jz ndc5 + mov ecx,1 + call copymatch + ndc5: + jmp end_d_loop + + dc4: + call getbit + cmp al,0 + jz ndc4 + call getbit + mov ecx,3 + cmp al,1 + jz ndcc4 + dec ecx + ndcc4: + call copymatch + jmp end_d_loop + ndc4: + call getbit + cmp al,0 + jz ndccc4 + mov ecx,1 + call copymatch + ndccc4: + jmp end_d_loop + + dc2: + call getbit + cmp al,0 + jz ndc2 + mov ecx,1 + call copymatch + ndc2: + + end_d_loop: + jmp d_loop + finish_d_loop: + + mov edx, dword [ofile+1] + + jmp decompress_dumpdata + +; LZP subroutines + + putbit: ; bit -> byte tag, AL holds bit for output + pusha + mov cl,byte [controlb] + shl al,cl + mov bl,byte [controld] + or bl,al + mov byte [controld],bl + inc cl + cmp cl,8 + jnz just_increment + mov byte [controlb],0 + mov byte [controld],0 + push edi + mov edi, dword [controlp] + mov al,bl + stosb + pop edi + mov dword [controlp],edi + popa + inc edi + ret + just_increment: + mov byte [controlb],cl + popa + ret + + getbit: ; tag byte -> bit, AL holds input + push ecx + mov al,byte [controld] + mov cl,byte [controlb] + shr al,cl + and al,1 + inc cl + cmp cl,8 + jnz just_increment_d + mov byte [controlb],0 + push eax + lodsb + mov byte [controld],al + pop eax + pop ecx + ret + just_increment_d: + mov byte [controlb],cl + pop ecx + ret + + chash: ; calculate hash -> mp -> fill position + pusha + xor eax,eax + mov al, byte [esi-1] + mov ah, byte [esi-2] + shl eax,2 + add eax,hashtable + mov edx,dword [eax] + mov dword [mp],edx + mov dword [eax],esi + popa + ret + + dhash: ; calculate hash -> mp -> fill position + pusha + xor eax,eax + mov al, byte [edi-1] + mov ah, byte [edi-2] + shl eax,2 + add eax,hashtable + mov edx,dword [eax] + mov dword [mp],edx + mov dword [eax],edi + popa + ret + + copymatch: ; ECX bytes from [mp] to [rp] + push esi + mov esi,dword [mp] + rep movsb + mov dword [mp],esi + pop esi + ret + + compare: ; compare [mp] with [cpos] + push edi + push esi + mov edi,dword [mp] + cmpsb + pop esi + pop edi + ret + + incpos: + inc dword [mp] + inc esi + ret + + +; LZP algorithm data + + endpointer dd 0 + controlp dd 0 + controlb db 0 + controld db 0 + mp dd 0 + literal db 0 + +MHC_END: ; the end... - Nikita Lesnikov (nlo_one) diff --git a/programs/other/outdated/mv/trunk/mv.asm b/programs/other/outdated/mv/trunk/mv.asm index 28cbc5feb2..c974c5bc9d 100644 --- a/programs/other/outdated/mv/trunk/mv.asm +++ b/programs/other/outdated/mv/trunk/mv.asm @@ -35,6 +35,7 @@ dd temp_area , 0x0 ; I_Param , I_Icon include 'lang.inc' +; Language support for locales: ru_RU (CP866), en_US, de_DE. include '..\..\..\..\macros.inc' include '..\..\..\..\develop\examples\editbox\trunk\editbox.inc' ;include 'macros.inc' @@ -655,9 +656,9 @@ labelt: db 'MeView v.0.4' lsz buttext,\ - en, ' FILE OPEN INFO BGRD',\ - ru, ' ФАЙЛ ОТКР ИНФО ФОН ',\ - de, 'DATEI OEFNEN INFO HGRD' + en_US, ' FILE OPEN INFO BGRD',\ + ru_RU, ' ФАЙЛ ОТКР ИНФО ФОН ',\ + de_DE, 'DATEI OEFNEN INFO HGRD' thread1: ; start of thread1 @@ -926,25 +927,25 @@ draw_window2: ; DATA AREA lsz labelt2,\ - en, 'File info',\ - ru, 'Информация о файле',\ - de, 'Dateiinfo' + en_US, 'File info',\ + ru_RU, 'Информация о файле',\ + de_DE, 'Dateiinfo' lsz fitext,\ - en, 'FILE SIZE ',\ - en, 'X SIZE ',\ - en, 'Y SIZE ',\ - en, 'BITS PER PIXEL',\ + en_US, 'FILE SIZE ',\ + en_US, 'X SIZE ',\ + en_US, 'Y SIZE ',\ + en_US, 'BITS PER PIXEL',\ \ - ru, 'Размер файла ',\ - ru, 'Ширина ',\ - ru, 'Высота ',\ - ru, 'Бит на пиксел ',\ + ru_RU, 'Размер файла ',\ + ru_RU, 'Ширина ',\ + ru_RU, 'Высота ',\ + ru_RU, 'Бит на пиксел ',\ \ - de, 'FATEIGROESSE ',\ - de, 'X GROESSE ',\ - de, 'Y GROESSE ',\ - de, 'BITS PER PIXEL' + de_DE, 'FATEIGROESSE ',\ + de_DE, 'X GROESSE ',\ + de_DE, 'Y GROESSE ',\ + de_DE, 'BITS PER PIXEL' thread3: ; start of bgrd thread @@ -1114,29 +1115,29 @@ wnd_width dd 210 wnd_height dd 53 lsz labelt3,\ - en, 'Background set',\ - ru, "Установка фона",\ - de, 'Hintergrund gesetzt' + en_US, 'Background set',\ + ru_RU, "Установка фона",\ + de_DE, 'Hintergrund gesetzt' lsz bgrdtext,\ - en, 'SET AS BACKGROUND:',\ - ru, 'Тип обоев:',\ - de, 'ALS HINTERGRUND' + en_US, 'SET AS BACKGROUND:',\ + ru_RU, 'Тип обоев:',\ + de_DE, 'ALS HINTERGRUND' lsz tiled,\ - en, 'TILED',\ - ru, 'замостить',\ - de, 'GEKACHELT' + en_US, 'TILED',\ + ru_RU, 'замостить',\ + de_DE, 'GEKACHELT' lsz stretch,\ - en, 'STRETCH',\ - ru, 'растянуть',\ - de, 'GESTRECKT' + en_US, 'STRETCH',\ + ru_RU, 'растянуть',\ + de_DE, 'GESTRECKT' lsz ok_btn,\ - en, 'Ok',\ - ru, 'Ok',\ - de, 'Ok' + en_US, 'Ok',\ + ru_RU, 'Ok',\ + de_DE, 'Ok' image_file dd 0 image_file_1 dd 0 diff --git a/programs/other/outdated/rb/trunk/rb.asm b/programs/other/outdated/rb/trunk/rb.asm index fd76eff394..60db279a70 100644 --- a/programs/other/outdated/rb/trunk/rb.asm +++ b/programs/other/outdated/rb/trunk/rb.asm @@ -1,393 +1,393 @@ -; -; DESKTOP CONTEXT MENU -; written by Ivan Poddubny -; -; Автор - Иван Поддубный -; e-mail: ivan-yar@bk.ru -; -; Compile with flat assembler -; -;------------------------------------------------------------------------------ -; version: 1.1 -; last update: 27/03/2012 -; changed by: Marat Zakiyanov aka Mario79, aka Mario -; changes: The program uses only 3404 bytes memory is now. -; Optimisations and code refactoring. -;------------------------------------------------------------------------------ -include 'lang.inc' -include '..\..\..\..\macros.inc' -;------------------------------------------------------------------------------ - use32 - org 0x0 - db 'MENUET01' ; 8 byte id - dd 0x01 ; header version - dd START ; start of code - dd IM_END ; size of image - dd I_END ; memory for app - dd stack_area ; esp - dd 0 ; boot parameters - dd 0 ; path -;------------------------------------------------------------------------------ -START: -; получить системные цвета - mcall 48,3,sc,sizeof.system_colors -; установим маску событий - нас интересует только мышь - mcall 40,100000b -;------------------------------------------------------------------------------ -align 4 -still: ; главный цикл основного процесса - mcall 10 ; ждём события - - mcall 37,2 ; какие нажаты кпопки? - cmp eax,ebx ; если не правая, возврат - jne still -;-------------------------------------- -; это для отладки - если мышь в точке (0;0), закроемся -; xor ebx,ebx -; mcall 37 -; test eax,eax ; курсор в точке (0;0), т.е. eax = 0 -; je exit -;-------------------------------------- -; координаты курсора - xor ebx,ebx - mcall 37 - - mov ebx,eax ; eax = cursor_x - shr eax,16 ; ebx = cursor_y - and ebx,0xffff - mov [curx1],eax ; curx1 = cursor_x - mov [cury1],ebx ; cury1 = cursor_y -; кому принадлежит точка? - mcall 34,[curx1],[cury1] - cmp al,1 ; 1 - ядро - jne still -;-------------------------------------- -align 4 -@@: ; подождём, пока пользователь не отпустил правую кнопку мыши - mcall 37,2 ; нажаты ли кнопки мыши? - test eax,ebx ; если отпустил, (eax != 2) - jz @f ; идём в начало главного цикла - - mcall 68,1 ; иначе переключимся на следующий поток системы и когда - jmp @b ; выполнение вернется этому потоку, проверим мышь опять -;-------------------------------------- -align 4 -@@: -; если уже было открыто меню, нужно подождать, пока оно закроется: - cmp [menu_opened],0 - je @f - - mcall 68,1 ; переключимся на следующий поток системы - ; более эффективный способ задержки чем mcall 5 - jmp @b -;-------------------------------------- -align 4 -@@: -; а теперь можно смело запускать процесс (поток) меню - mcall 51,1,start_wnd,stack_wnd - jmp still -;------------------------------------------------------------------------------ -align 4 -exit_menu: ; если выходим из меню, надо записать в [menu_opened] 0 - mov [menu_opened],0 -;-------------------------------------- -align 4 -exit: ; сюда мы идём, когда выходим из основного процесса - or eax,-1 ; eax = -1 - mcall -;------------------------------------------------------------------------------ -; здесь стартует процесс меню -;------------------------------------------------------------------------------ -align 4 -start_wnd: - mov [menu_opened],1 -; установим маску желаемых событий: меню + кнопки + перерисовка - mcall 40,100101b -;------------------------------------------------------------------------------ -align 4 -red: - call draw_window -;------------------------------------------------------------------------------ -align 4 -still2: ; главный цикл процесса меню - mcall 10 ; ждём события - - cmp eax,1 ; перерисовка? - je red - - cmp eax,3 ; кнопка? - je button - - cmp eax,6 ; мышь? - je mouse - - jmp still2 ; вернёмся в начало главного цикла -;------------------------------------------------------------------------------ -align 4 -; ОБРАБОТЧИК МЫШИ -mouse: ; когда пользователь нажмёт кнопку мыши, закроемся - mcall 37,2 ; какие кнопки нажаты? - test eax,eax ; никакие? - тогда прекрасно! вернёмся в главный цикл - jz still2 - - mcall 37,0 - - mov esi, eax - shr esi, 16 - movzx edi, ax - mcall 9, procinfo, -1 - - mov eax, [procinfo.box.left] - cmp esi, eax - jl exit_menu - - add eax, [procinfo.box.width] - cmp esi, eax - jge exit_menu - - mov eax, [procinfo.box.top] - cmp edi, eax - jl exit_menu - - add eax, [procinfo.box.height] - cmp edi, eax - jge exit_menu - - jmp still2 -;------------------------------------------------------------------------------ -align 4 -; НАЖАТА КНОПКА -button: - mcall 17 ; получить идентификатор нажатой кнопки - - sub ah,10 ; сравниваем с 10 - jl nofuncbtns ; если меньше - закрываем меню - - movzx ebx,ah ; получили номер программы в списке в ebx - mov esi,[startapps + ebx*4] - mov edi,start_info.path - cld -;-------------------------------------- -align 4 -@@: - lodsb - stosb - test al,al - jnz @b - mcall 70, start_info - -; mov eax,5 ; подождём, пока программа запуститься -; mov ebx,1 ; а то её окно не будет отрисовано (баг в ядре???) -; mcall ; раскомментируйте эти строки, если у вас проблемы - ; с отрисовкой -;-------------------------------------- -align 4 -nofuncbtns: ; закрываем меню - jmp exit_menu -;------------------------------------------------------------------------------ -_BTNS_ = 6 ; количество кнопок ("пунктов меню") - -if lang eq ru_RU - font = 0x00000000 - string_length = 20 ; длина строки - wnd_x_size = 133 ; ширина окна - title_pos = 36 shl 16 + 7 -else - font = 0x10000000 - string_length = 12 ; длина строки - wnd_x_size = 105 ; ширина окна - title_pos = 23 shl 16 + 7 -end if -;------------------------------------------------------------------------------ -;******************************* -;******** РИСУЕМ ОКНО ******** -;******************************* -draw_window: - mcall 12,1 ; начинаем "рисовать" - - mov eax,[curx1] ; текущие координаты курсора - mov [curx],eax ; запишем в координаты окна - mov eax,[cury1] - mov [cury],eax -; теперь будем считать координаты окна, чтобы оно за край экрана не вылезло - mcall 14 ; получим размер экрана - - mov ebx,eax - shr eax,16 ; в eax - x_screen - and ebx,0xffff ; в ebx - y_screen - add eax,-wnd_x_size ; eax = [x_screen - ширина окна] - add ebx,-_BTNS_*15-21 ; ebx = [y_screen - высота окна] - - cmp eax,[curx] - jg .okx ; если окно слишком близко к правому краю, - add [curx],-wnd_x_size ; сдвинем его влево на 100 -;-------------------------------------- -align 4 -.okx: - cmp ebx, [cury] - jg .oky ; по вертикали точно также - add [cury], -_BTNS_*15-21 -;-------------------------------------- -align 4 -.oky: - xor eax, eax ; функция 0 - создать окно - mov ebx, [curx] ; ebx = [координата по x] shl 16 + [ширина] - shl ebx, 16 - add ebx, wnd_x_size - mov ecx, [cury] ; ecx = [координата по y] shl 16 + [высота] - shl ecx, 16 - add ecx, _BTNS_*15+21 - mov edx, [sc.work] ; цвет рабочей области - mov esi, [sc.grab] ; цвет заголовка - or esi, 0x81000000 - mov edi, [sc.frame] ; цвет рамки - mcall - - mov eax, 4 ; заголовок - mov ebx, title_pos ; [x] shl 16 + [y] - mov ecx, [sc.grab_text]; шрифт и цвет (серый) - or ecx, 0x10000000 - - push ecx - push ecx - xor edx,edx -;-------------------------------------- -align 4 -.dec_color: - sub byte [esp+edx], 0x33 - jae @f - mov byte [esp+edx], 0 -;-------------------------------------- -align 4 -@@: - inc edx - jnp .dec_color - pop ecx - mov edx, title ; адрес заголовка - mov esi, title.size ; длина заголовка ("M E N U") - mcall - pop ecx - add ebx, 1 shl 16 ; сдвинем вправо на 1 - mcall - - mov ebx, 1*65536+wnd_x_size-2 ; начинаем делать кнопки - mov ecx, 20*65536+15 - mov edx, 10 or 0x40000000 ; бит 30 установлен => кнопка не рисуется - - mov edi,_BTNS_ ; количество кнопок (счётчик) -;-------------------------------------- -align 4 -newbtn: ; начало цикла - mcall 8 ; создаём кнопку - - ; пишем текст на кнопке - pushad ; спасаем регистры - shr ecx, 16 - and ebx, 0xffff0000 - add ebx, ecx ; ebx = [x] shl 16 + [y]; - add ebx, 10*65536+4 ; ebx += смещение относительно края кнопки; - mov ecx, [sc.work_text] ; шрифт и цвет - or ecx, font - add edx, -10 ; edx = номер кнопки; - imul edx, string_length ; edx *= длина строки; - add edx, text ; edx += text; теперь в edx адрес строки - mov esi, string_length ; в esi - длина строки - mcall 4 - popad - - inc edx ; номер кнопки++; - add ecx,15*65536 ; увеличим смещение по y - dec edi ; уменьшим счётчик - jnz newbtn ; если не ноль, повторим всё ещё раз - - mcall 12,2 ; закончили "рисовать" - ret ; возврат -;------------------------------------------------------------------------------ -align 4 -; ДАННЫЕ ПРОГРАММЫ - - macro strtbl name, [string] - { - common - label name dword - forward - local str - dd str - forward - str db string - } - - strtbl startapps ,\ - <"/sys/PIC4",0> ,\ - <"/sys/DESKTOP",0> ,\ - <"/sys/ICON",0>,\ - <"/sys/SETUP",0> ,\ - <"/sys/DEVELOP/BOARD",0> ,\ - <"/sys/CPU",0> - - sz title, "KolibriOS" - - lsz text,\ - en, 'Background ',\ - en, 'Desktop ',\ - en, 'Icon manager',\ - en, 'Device setup',\ - en, 'Debug board ',\ - en, 'Processes ',\ - \ - ru, 'Генератор обоев ',\ - ru, 'Настройка окон ',\ - ru, 'Управление иконками ',\ - ru, 'Настройка устройств ',\ - ru, 'Панель отладки ',\ - ru, 'Процессы ',\ - \ - et, 'Taust ',\ - et, 'TЎЎlaud ',\ - et, 'Ikooni hald.',\ - et, 'Seadme hald.',\ - et, 'Silumis aken',\ - et, 'Protsessid ' - -;------------------------------------------------------------------------------ -align 4 -start_info: - .mode dd 7 - dd 0 - .params dd 0 - dd 0 - dd 0 - db 0 - dd start_info.path -;------------------------------------------------------------------------------ -IM_END: -align 4 -; НЕИНИЦИАЛИЗИРОВАННЫЕ ДАННЫЕ - curx1 dd ? ; координаты курсора - cury1 dd ? - curx dd ? ; координаты окна меню - cury dd ? - - menu_opened db ? ; открыто меню или нет? (1-да, 0-нет) -;------------------------------------------------------------------------------ -align 4 -start_info.path rb 256 -;------------------------------------------------------------------------------ -align 4 -sc system_colors ; системные цвета -;------------------------------------------------------------------------------ -align 4 -procinfo process_information ; информация о процессе -;------------------------------------------------------------------------------ -align 4 - rb 512 ; стэк для окна меню - хватит и 1 Кб -stack_wnd: -;------------------------------------------------------------------------------ -align 4 - rb 512 -stack_area: -;------------------------------------------------------------------------------ -I_END: -;------------------------------------------------------------------------------ -; КОНЕЦ ПРОГРАММЫ -;------------------------------------------------------------------------------ +; +; DESKTOP CONTEXT MENU +; written by Ivan Poddubny +; +; Автор - Иван Поддубный +; e-mail: ivan-yar@bk.ru +; +; Compile with flat assembler +; +;------------------------------------------------------------------------------ +; version: 1.1 +; last update: 27/03/2012 +; changed by: Marat Zakiyanov aka Mario79, aka Mario +; changes: The program uses only 3404 bytes memory is now. +; Optimisations and code refactoring. +;------------------------------------------------------------------------------ +include 'lang.inc' +include '..\..\..\..\macros.inc' +;------------------------------------------------------------------------------ + use32 + org 0x0 + db 'MENUET01' ; 8 byte id + dd 0x01 ; header version + dd START ; start of code + dd IM_END ; size of image + dd I_END ; memory for app + dd stack_area ; esp + dd 0 ; boot parameters + dd 0 ; path +;------------------------------------------------------------------------------ +START: +; получить системные цвета + mcall 48,3,sc,sizeof.system_colors +; установим маску событий - нас интересует только мышь + mcall 40,100000b +;------------------------------------------------------------------------------ +align 4 +still: ; главный цикл основного процесса + mcall 10 ; ждём события + + mcall 37,2 ; какие нажаты кпопки? + cmp eax,ebx ; если не правая, возврат + jne still +;-------------------------------------- +; это для отладки - если мышь в точке (0;0), закроемся +; xor ebx,ebx +; mcall 37 +; test eax,eax ; курсор в точке (0;0), т.е. eax = 0 +; je exit +;-------------------------------------- +; координаты курсора + xor ebx,ebx + mcall 37 + + mov ebx,eax ; eax = cursor_x + shr eax,16 ; ebx = cursor_y + and ebx,0xffff + mov [curx1],eax ; curx1 = cursor_x + mov [cury1],ebx ; cury1 = cursor_y +; кому принадлежит точка? + mcall 34,[curx1],[cury1] + cmp al,1 ; 1 - ядро + jne still +;-------------------------------------- +align 4 +@@: ; подождём, пока пользователь не отпустил правую кнопку мыши + mcall 37,2 ; нажаты ли кнопки мыши? + test eax,ebx ; если отпустил, (eax != 2) + jz @f ; идём в начало главного цикла + + mcall 68,1 ; иначе переключимся на следующий поток системы и когда + jmp @b ; выполнение вернется этому потоку, проверим мышь опять +;-------------------------------------- +align 4 +@@: +; если уже было открыто меню, нужно подождать, пока оно закроется: + cmp [menu_opened],0 + je @f + + mcall 68,1 ; переключимся на следующий поток системы + ; более эффективный способ задержки чем mcall 5 + jmp @b +;-------------------------------------- +align 4 +@@: +; а теперь можно смело запускать процесс (поток) меню + mcall 51,1,start_wnd,stack_wnd + jmp still +;------------------------------------------------------------------------------ +align 4 +exit_menu: ; если выходим из меню, надо записать в [menu_opened] 0 + mov [menu_opened],0 +;-------------------------------------- +align 4 +exit: ; сюда мы идём, когда выходим из основного процесса + or eax,-1 ; eax = -1 + mcall +;------------------------------------------------------------------------------ +; здесь стартует процесс меню +;------------------------------------------------------------------------------ +align 4 +start_wnd: + mov [menu_opened],1 +; установим маску желаемых событий: меню + кнопки + перерисовка + mcall 40,100101b +;------------------------------------------------------------------------------ +align 4 +red: + call draw_window +;------------------------------------------------------------------------------ +align 4 +still2: ; главный цикл процесса меню + mcall 10 ; ждём события + + cmp eax,1 ; перерисовка? + je red + + cmp eax,3 ; кнопка? + je button + + cmp eax,6 ; мышь? + je mouse + + jmp still2 ; вернёмся в начало главного цикла +;------------------------------------------------------------------------------ +align 4 +; ОБРАБОТЧИК МЫШИ +mouse: ; когда пользователь нажмёт кнопку мыши, закроемся + mcall 37,2 ; какие кнопки нажаты? + test eax,eax ; никакие? - тогда прекрасно! вернёмся в главный цикл + jz still2 + + mcall 37,0 + + mov esi, eax + shr esi, 16 + movzx edi, ax + mcall 9, procinfo, -1 + + mov eax, [procinfo.box.left] + cmp esi, eax + jl exit_menu + + add eax, [procinfo.box.width] + cmp esi, eax + jge exit_menu + + mov eax, [procinfo.box.top] + cmp edi, eax + jl exit_menu + + add eax, [procinfo.box.height] + cmp edi, eax + jge exit_menu + + jmp still2 +;------------------------------------------------------------------------------ +align 4 +; НАЖАТА КНОПКА +button: + mcall 17 ; получить идентификатор нажатой кнопки + + sub ah,10 ; сравниваем с 10 + jl nofuncbtns ; если меньше - закрываем меню + + movzx ebx,ah ; получили номер программы в списке в ebx + mov esi,[startapps + ebx*4] + mov edi,start_info.path + cld +;-------------------------------------- +align 4 +@@: + lodsb + stosb + test al,al + jnz @b + mcall 70, start_info + +; mov eax,5 ; подождём, пока программа запуститься +; mov ebx,1 ; а то её окно не будет отрисовано (баг в ядре???) +; mcall ; раскомментируйте эти строки, если у вас проблемы + ; с отрисовкой +;-------------------------------------- +align 4 +nofuncbtns: ; закрываем меню + jmp exit_menu +;------------------------------------------------------------------------------ +_BTNS_ = 6 ; количество кнопок ("пунктов меню") + +if lang eq ru_RU + font = 0x00000000 + string_length = 20 ; длина строки + wnd_x_size = 133 ; ширина окна + title_pos = 36 shl 16 + 7 +else + font = 0x10000000 + string_length = 12 ; string length + wnd_x_size = 105 ; window width + title_pos = 23 shl 16 + 7 +end if +;------------------------------------------------------------------------------ +;******************************* +;******** РИСУЕМ ОКНО ******** +;******************************* +draw_window: + mcall 12,1 ; начинаем "рисовать" + + mov eax,[curx1] ; текущие координаты курсора + mov [curx],eax ; запишем в координаты окна + mov eax,[cury1] + mov [cury],eax +; теперь будем считать координаты окна, чтобы оно за край экрана не вылезло + mcall 14 ; получим размер экрана + + mov ebx,eax + shr eax,16 ; в eax - x_screen + and ebx,0xffff ; в ebx - y_screen + add eax,-wnd_x_size ; eax = [x_screen - ширина окна] + add ebx,-_BTNS_*15-21 ; ebx = [y_screen - высота окна] + + cmp eax,[curx] + jg .okx ; если окно слишком близко к правому краю, + add [curx],-wnd_x_size ; сдвинем его влево на 100 +;-------------------------------------- +align 4 +.okx: + cmp ebx, [cury] + jg .oky ; по вертикали точно также + add [cury], -_BTNS_*15-21 +;-------------------------------------- +align 4 +.oky: + xor eax, eax ; функция 0 - создать окно + mov ebx, [curx] ; ebx = [координата по x] shl 16 + [ширина] + shl ebx, 16 + add ebx, wnd_x_size + mov ecx, [cury] ; ecx = [координата по y] shl 16 + [высота] + shl ecx, 16 + add ecx, _BTNS_*15+21 + mov edx, [sc.work] ; цвет рабочей области + mov esi, [sc.grab] ; цвет заголовка + or esi, 0x81000000 + mov edi, [sc.frame] ; цвет рамки + mcall + + mov eax, 4 ; заголовок + mov ebx, title_pos ; [x] shl 16 + [y] + mov ecx, [sc.grab_text]; шрифт и цвет (серый) + or ecx, 0x10000000 + + push ecx + push ecx + xor edx,edx +;-------------------------------------- +align 4 +.dec_color: + sub byte [esp+edx], 0x33 + jae @f + mov byte [esp+edx], 0 +;-------------------------------------- +align 4 +@@: + inc edx + jnp .dec_color + pop ecx + mov edx, title ; адрес заголовка + mov esi, title.size ; длина заголовка ("M E N U") + mcall + pop ecx + add ebx, 1 shl 16 ; сдвинем вправо на 1 + mcall + + mov ebx, 1*65536+wnd_x_size-2 ; начинаем делать кнопки + mov ecx, 20*65536+15 + mov edx, 10 or 0x40000000 ; бит 30 установлен => кнопка не рисуется + + mov edi,_BTNS_ ; количество кнопок (счётчик) +;-------------------------------------- +align 4 +newbtn: ; начало цикла + mcall 8 ; создаём кнопку + + ; пишем текст на кнопке + pushad ; спасаем регистры + shr ecx, 16 + and ebx, 0xffff0000 + add ebx, ecx ; ebx = [x] shl 16 + [y]; + add ebx, 10*65536+4 ; ebx += смещение относительно края кнопки; + mov ecx, [sc.work_text] ; шрифт и цвет + or ecx, font + add edx, -10 ; edx = номер кнопки; + imul edx, string_length ; edx *= длина строки; + add edx, text ; edx += text; теперь в edx адрес строки + mov esi, string_length ; в esi - длина строки + mcall 4 + popad + + inc edx ; номер кнопки++; + add ecx,15*65536 ; увеличим смещение по y + dec edi ; уменьшим счётчик + jnz newbtn ; если не ноль, повторим всё ещё раз + + mcall 12,2 ; закончили "рисовать" + ret ; возврат +;------------------------------------------------------------------------------ +align 4 +; PROGRAM DATA + + macro strtbl name, [string] + { + common + label name dword + forward + local str + dd str + forward + str db string + } + + strtbl startapps ,\ + <"/sys/PIC4",0> ,\ + <"/sys/DESKTOP",0> ,\ + <"/sys/ICON",0>,\ + <"/sys/SETUP",0> ,\ + <"/sys/DEVELOP/BOARD",0> ,\ + <"/sys/CPU",0> + + sz title, "KolibriOS" + + lsz text,\ + en_US, 'Background ',\ + en_US, 'Desktop ',\ + en_US, 'Icon manager',\ + en_US, 'Device setup',\ + en_US, 'Debug board ',\ + en_US, 'Processes ',\ + \ + ru_RU, 'Генератор обоев ',\ + ru_RU, 'Настройка окон ',\ + ru_RU, 'Управление иконками ',\ + ru_RU, 'Настройка устройств ',\ + ru_RU, 'Панель отладки ',\ + ru_RU, 'Процессы ',\ + \ + et_EE, 'Taust ',\ + et_EE, 'TЎЎlaud ',\ + et_EE, 'Ikooni hald.',\ + et_EE, 'Seadme hald.',\ + et_EE, 'Silumis aken',\ + et_EE, 'Protsessid ' + +;------------------------------------------------------------------------------ +align 4 +start_info: + .mode dd 7 + dd 0 + .params dd 0 + dd 0 + dd 0 + db 0 + dd start_info.path +;------------------------------------------------------------------------------ +IM_END: +align 4 +; НЕИНИЦИАЛИЗИРОВАННЫЕ ДАННЫЕ + curx1 dd ? ; координаты курсора + cury1 dd ? + curx dd ? ; координаты окна меню + cury dd ? + + menu_opened db ? ; открыто меню или нет? (1-да, 0-нет) +;------------------------------------------------------------------------------ +align 4 +start_info.path rb 256 +;------------------------------------------------------------------------------ +align 4 +sc system_colors ; системные цвета +;------------------------------------------------------------------------------ +align 4 +procinfo process_information ; информация о процессе +;------------------------------------------------------------------------------ +align 4 + rb 512 ; стэк для окна меню - хватит и 1 Кб +stack_wnd: +;------------------------------------------------------------------------------ +align 4 + rb 512 +stack_area: +;------------------------------------------------------------------------------ +I_END: +;------------------------------------------------------------------------------ +; КОНЕЦ ПРОГРАММЫ +;------------------------------------------------------------------------------ diff --git a/programs/other/t_edit/t_data.inc b/programs/other/t_edit/t_data.inc index 4b8b135467..ea7d45425e 100644 --- a/programs/other/t_edit/t_data.inc +++ b/programs/other/t_edit/t_data.inc @@ -1 +1,644 @@ -fn_col_option dd def_col_file fn_syntax_dir db 'info/',0 def_col_file db 'default.syn',0 exit_code dd 0 ;переменная используемая для выхода из программы panel_but rb 21 ;настройки отображения кнопок на панели ;значения задаваемые по умолчанию, без ini файла ini_def_window_t equ 20 ini_def_window_l equ 200 ini_def_window_w equ 570 ini_def_window_h equ 470 ini_def_symbol_w equ 7 ini_def_symbol_h equ 10 ini_def_font_s equ 0 ini_def_scroll_type equ 0 ;описание параматров для ini файла ini_name db 't_edit.ini',0 ini_sec_window db 'Window',0 key_window_t db 't',0 key_window_l db 'l',0 key_window_w db 'w',0 key_window_h db 'h',0 key_symbol_w db 'symbol_w',0 key_symbol_h db 'symbol_h',0 key_font_s db 'font_s',0 key_scroll_type db 'scroll_type',0 key_but_new db 'but_new',0 key_but_open db 'but_open',0 key_but_save db 'but_save',0 key_but_save_as db 'but_save_as',0 key_but_select db 'but_select',0 key_but_cut db 'but_cut',0 key_but_copy db 'but_copy',0 key_but_paste db 'but_paste',0 key_but_find db 'but_find',0 key_but_replace db 'but_replace',0 key_but_key_words db 'but_key_words',0 key_but_upper db 'but_upper',0 key_but_lower db 'but_lower',0 key_but_reverse db 'but_reverse',0 key_but_undo db 'but_undo',0 key_but_redo db 'but_redo',0 key_but_invisible db 'but_invisible',0 key_but_syntax_list db 'but_syntax_list',0 key_but_syntax_mode db 'but_syntax_mode',0 key_but_convert_1251_866 db 'but_convert_1251_866',0 key_but_convert_866_1251 db 'but_convert_866_1251',0 ini_sec_options db 'Options',0 key_synt_file: db 'syntax_' .numb: db '0',0 key_synt_ext: db 'ext_' .numb: db '0',0 ini_def_synt_f db 0 align 4 max_synt_auto_open equ 10 synt_auto_open: rb 64*max_synt_auto_open db 0 system_dir_0 db '/sys/lib/' lib_name_0 db 'box_lib.obj',0 system_dir_1 db '/sys/lib/' lib_name_1 db 'msgbox.obj',0 system_dir_2 db '/sys/lib/' lib_name_2 db 'proc_lib.obj',0 system_dir_3 db '/sys/lib/' lib_name_3 db 'libimg.obj',0 system_dir_4 db '/sys/lib/' lib_name_4 db 'libini.obj',0 system_dir_5 db '/sys/lib/' lib_name_5 db 'kmenu.obj',0 ;--------------------------------------------------------------------- align 4 import_box_lib: dd alib_init0 ;функция запускается макросом 1 раз при подключении бибилиотеки, потому в программе метка на нее не нужна edit_box_draw dd aEdit_box_draw edit_box_key dd aEdit_box_key edit_box_mouse dd aEdit_box_mouse ;edit_box_set_text dd aEdit_box_set_text ;version_ed dd aVersion_ed init_checkbox dd ainit_checkbox check_box_draw dd acheck_box_draw check_box_mouse dd acheck_box_mouse 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 tl_data_init dd sz_tl_data_init tl_data_clear dd sz_tl_data_clear tl_info_clear dd sz_tl_info_clear tl_key dd sz_tl_key tl_mouse dd sz_tl_mouse tl_draw dd sz_tl_draw tl_info_undo dd sz_tl_info_undo tl_info_redo dd sz_tl_info_redo tl_node_add dd sz_tl_node_add tl_node_set_data dd sz_tl_node_set_data tl_node_get_data dd sz_tl_node_get_data tl_node_delete dd sz_tl_node_delete tl_cur_beg dd sz_tl_cur_beg tl_cur_next dd sz_tl_cur_next tl_cur_perv dd sz_tl_cur_perv ;tl_node_close_open dd sz_tl_node_close_open tl_node_lev_inc dd sz_tl_node_lev_inc tl_node_lev_dec dd sz_tl_node_lev_dec ted_but_sumb_upper dd sz_ted_but_sumb_upper ted_but_sumb_lover dd sz_ted_but_sumb_lover ted_but_convert_by_table dd sz_ted_but_convert_by_table ted_can_save dd sz_ted_can_save ted_clear dd sz_ted_clear ted_delete dd sz_ted_delete ted_draw dd sz_ted_draw ted_init dd sz_ted_init ted_init_scroll_bars dd sz_ted_init_scroll_bars ted_init_syntax_file dd sz_ted_init_syntax_file ted_is_select dd sz_ted_is_select ted_key dd sz_ted_key ted_mouse dd sz_ted_mouse ted_open_file dd sz_ted_open_file ted_save_file dd sz_ted_save_file ted_text_add dd sz_ted_text_add ted_but_select_word dd sz_ted_but_select_word ted_but_cut dd sz_ted_but_cut ted_but_copy dd sz_ted_but_copy ted_but_paste dd sz_ted_but_paste ted_but_undo dd sz_ted_but_undo ted_but_redo dd sz_ted_but_redo ted_but_reverse dd sz_ted_but_reverse ted_but_find dd sz_ted_but_find ted_but_replace dd sz_ted_but_replace ted_text_colored dd sz_ted_text_colored ted_go_to_position dd sz_ted_go_to_position version_text_edit dd sz_ted_version dd 0,0 alib_init0 db 'lib_init',0 aEdit_box_draw db 'edit_box_draw',0 aEdit_box_key db 'edit_box_key',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 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 sz_tl_data_init db 'tl_data_init',0 sz_tl_data_clear db 'tl_data_clear',0 sz_tl_info_clear db 'tl_info_clear',0 sz_tl_key db 'tl_key',0 sz_tl_mouse db 'tl_mouse',0 sz_tl_draw db 'tl_draw',0 sz_tl_info_undo db 'tl_info_undo',0 sz_tl_info_redo db 'tl_info_redo',0 sz_tl_node_add db 'tl_node_add',0 sz_tl_node_set_data db 'tl_node_set_data',0 sz_tl_node_get_data db 'tl_node_get_data',0 sz_tl_node_delete db 'tl_node_delete',0 sz_tl_cur_beg db 'tl_cur_beg',0 sz_tl_cur_next db 'tl_cur_next',0 sz_tl_cur_perv db 'tl_cur_perv',0 ;sz_tl_node_close_open db 'tl_node_close_open',0 sz_tl_node_lev_inc db 'tl_node_lev_inc',0 sz_tl_node_lev_dec db 'tl_node_lev_dec',0 sz_ted_but_sumb_upper db 'ted_but_sumb_upper',0 sz_ted_but_sumb_lover db 'ted_but_sumb_lover',0 sz_ted_but_convert_by_table db 'ted_but_convert_by_table',0 sz_ted_can_save db 'ted_can_save',0 sz_ted_clear db 'ted_clear',0 sz_ted_delete db 'ted_delete',0 sz_ted_draw db 'ted_draw',0 sz_ted_init db 'ted_init',0 sz_ted_init_scroll_bars db 'ted_init_scroll_bars',0 sz_ted_init_syntax_file db 'ted_init_syntax_file',0 sz_ted_is_select db 'ted_is_select',0 sz_ted_key db 'ted_key',0 sz_ted_mouse db 'ted_mouse',0 sz_ted_open_file db 'ted_open_file',0 sz_ted_save_file db 'ted_save_file',0 sz_ted_text_add db 'ted_text_add',0 sz_ted_but_select_word db 'ted_but_select_word',0 sz_ted_but_cut db 'ted_but_cut',0 sz_ted_but_copy db 'ted_but_copy',0 sz_ted_but_paste db 'ted_but_paste',0 sz_ted_but_undo db 'ted_but_undo',0 sz_ted_but_redo db 'ted_but_redo',0 sz_ted_but_reverse db 'ted_but_reverse',0 sz_ted_but_find db 'ted_but_find',0 sz_ted_but_replace db 'ted_but_replace',0 sz_ted_text_colored db 'ted_text_colored',0 sz_ted_go_to_position db 'ted_go_to_position',0 sz_ted_version db 'version_text_edit',0 align 4 import_proclib: OpenDialog_Init dd aOpenDialog_Init OpenDialog_Start dd aOpenDialog_Start dd 0,0 aOpenDialog_Init db 'OpenDialog_init',0 aOpenDialog_Start db 'OpenDialog_start',0 align 4 import_msgbox_lib: mb_create dd amb_create mb_reinit dd amb_reinit mb_setfunctions dd amb_setfunctions dd 0,0 amb_create db 'mb_create',0 amb_reinit db 'mb_reinit',0 amb_setfunctions db 'mb_setfunctions',0 align 4 import_libimg: dd alib_init1 img_to_rgb2 dd aimg_to_rgb2 img_decode dd aimg_decode img_destroy dd aimg_destroy dd 0,0 alib_init1 db 'lib_init',0 aimg_to_rgb2 db 'img_to_rgb2',0 aimg_decode db 'img_decode',0 ;автоматически определяет формат графических данных aimg_destroy db 'img_destroy',0 align 4 import_libini: dd alib_init2 ini_get_str dd aini_get_str ini_get_int dd aini_get_int ini_get_color dd aini_get_color dd 0,0 alib_init2 db 'lib_init',0 aini_get_str db 'ini_get_str',0 aini_get_int db 'ini_get_int',0 aini_get_color db 'ini_get_color',0 align 4 import_libkmenu: kmenu_init dd akmenu_init kmainmenu_draw dd akmainmenu_draw kmainmenu_dispatch_cursorevent dd akmainmenu_dispatch_cursorevent ksubmenu_new dd aksubmenu_new ksubmenu_delete dd aksubmenu_delete ksubmenu_draw dd aksubmenu_draw ksubmenu_add dd aksubmenu_add kmenuitem_new dd akmenuitem_new kmenuitem_delete dd akmenuitem_delete kmenuitem_draw dd akmenuitem_draw dd 0,0 akmenu_init db 'kmenu_init',0 akmainmenu_draw db 'kmainmenu_draw',0 akmainmenu_dispatch_cursorevent db 'kmainmenu_dispatch_cursorevent',0 aksubmenu_new db 'ksubmenu_new',0 aksubmenu_delete db 'ksubmenu_delete',0 aksubmenu_draw db 'ksubmenu_draw',0 aksubmenu_add db 'ksubmenu_add',0 akmenuitem_new db 'kmenuitem_new',0 akmenuitem_delete db 'kmenuitem_delete',0 akmenuitem_draw db 'kmenuitem_draw',0 ;--------------------------------------------------------------------- align 4 wScr scrollbar 16,50, 300,50, 15, 100,30,0, 0,0,0, 1 align 4 hScr scrollbar 150,0, 16,50, 15, 100,30,0, 0,0,0, 1 ;дочерний скроллинг для элемента ListBox align 4 ws_dir_lbox scrollbar 16,0, 30,70, 15, 100,30,0, 0,0,0, 1 ;--------------------------------------------------------------------- align 4 OpenDialog_data: .type dd 0 .procinfo dd procinfo ;+4 .com_area_name dd communication_area_name ;+8 .com_area dd 0 ;+12 .opendir_path dd plugin_path ;+16 .dir_default_path dd default_dir ;+20 .start_path dd file_name ;+24 путь к диалогу открытия файлов .draw_window dd draw_window ;+28 .status dd 0 ;+32 .openfile_path dd openfile_path ;+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 default_dir db '/sys',0 ;директория по умолчанию communication_area_name: db 'FFFFFFFF_open_dialog',0 open_dialog_name: db 'opendial',0 communication_area_default_path: db '/sys/File managers/',0 Filter: dd Filter.end - Filter.1 .1: db 'ASM',0 db 'CPP',0 db 'INC',0 db 'MAC',0 db 'INI',0 db 'TXT',0 db 'H',0 db 'C',0 db 'HTM',0 db 'HTML',0 db 'PY',0 db 'SH',0 db 'BAT',0 db 'LUA',0 db 'INF',0 db 'LOG',0 db 'DBG',0 db 'DAT',0 .end: db 0 txt_Info db '" -tI',0 TED_PANEL_NULL equ 0 ;нет открытой панели TED_PANEL_FIND equ 1 ;панель поиска TED_PANEL_REPLACE equ 2 ;панель замены TED_PANEL_SYNTAX equ 3 ;панель выбора файлов подсветки TED_PANEL_GOTO equ 4 ;панель перехода TED_PANEL_WIDTH equ 150 ;ширина панели count_of_dir_list_files equ 15 ;максимальное число файлов синтаксиса показываемых в окне элемента tree1 ;------------------------------------------------------------------------------ struct TexSelect x0 dd ? y0 dd ? x1 dd ? y1 dd ? ends ;------------------------------------------------------------------------------ align 4 tedit0: ;структура текстового редактора .wnd BOX 0,50,440,150 ;+ 0 .rec BOX 30,25,ini_def_symbol_w,ini_def_symbol_h ;+16 .drag_m db 0 ;+32 выделение от мыши .drag_k db 0 ;+33 выделение от клавиатуры .sel TexSelect 0,0,0,0 ;+34 структура выделения .seln TexSelect ;+50 дополнительная структура выделения .tex dd 0 ;+66 text memory pointer .tex_1 dd 0 ;+70 text first symbol pointer .tex_end dd 0 ;+74 text end memory pointer .cur_x dd 0 ;+78 координата x курсора .cur_y dd 0 ;+82 координата y курсора .max_chars dd maxChars ;+86 максимальное число символов в одном документе .count_colors_text dd 1 ;+90 колличество цветов текста .count_key_words dd 0 ;+94 колличество ключевых слов .color_cursor dd 0x808080 ;+98 цвет курсора .color_wnd_capt dd 0x80 ;+102 цвет полей вокруг окна .color_wnd_work dd 0x0 ;+106 цвет фона окна .color_wnd_bord dd 0xd0d0d0 ;+110 цвет текста на полях .color_select dd 0x208080 ;+114 цвет выделения .color_cur_text dd 0xff0000 ;+118 цвет символа под курсором .color_wnd_text dd 0xffff00 ;+122 цвет текста в окне .syntax_file dd 0 ;+126 указатель на начало файла синтаксиса .syntax_file_size dd maxSyntaxFileSize ;+130 максимальный размер файла синтаксиса .text_colors dd 0 ;+134 указатель на массив цветов текста .help_text_f1 dd 0 ;+138 указатель на текст справки (по нажатии F1) .help_id dd -1 ;+142 идентификатор для справки .key_words_data dd 0 ;+146 указатель на структуры ключевых слов TexColViv .tim_ch dd ? ;+150 количество изменений в файле .tim_undo dd ? ;+154 количество отмененных действий .tim_ls dd ? ;+158 время последнего сохранения .tim_co dd ? ;+162 время последней цветовой разметки .el_focus dd el_focus ;+166 указатель на переменную элемента в фокусе .err_save db 0 ;+170 ошибка сохранения файла .panel_id db 0 ;+171 номер открытой панели .key_new db 0 ;+172 символ, который будет добавлятся с клавиатуры .symbol_new_line db 20 ;+173 символ завершения строки .scr_w dd wScr ;+174 вертикальный скроллинг .scr_h dd hScr ;+178 горизонтальный скроллинг .arr_key_pos dd 0 ;+182 указатель на массив позиций ключевых слов .buffer dd buf ;+186 указатель на буфер копирования/вставки .buffer_find dd buf_find ;+190 указатель на буфер для поиска .cur_ins db 1 ;+194 режим работы курсора (обычный или замена) .mode_color db 1 ;+195 режим выделения слов цветом (0-выкл. 1-вкл.) .mode_invis db 0 ;+196 режим показа непечатаемых символов .gp_opt db 0 ;+197 опции возвращаемые функцией ted_get_pos_by_cursor .fun_on_key_ctrl_all dd ted_but_ctrl_all ;+198 указатель на функцию вызываемую при нажатии Ctrl+N,O,S,F,H,G dd 0,0,0 ;зарезервировано .buffer_size dd BUF_SIZE ;+214 размер буфера копирования/вставки .fun_find_err dd ted_on_find_err ;+218 указатель на функцию вызываемую если поиск закончился неудачно .fun_init_synt_err dd 0 ;+222 .fun_draw_panel_buttons dd draw_but_toolbar ;+226 указатель на функцию рисования панели с кнопками .fun_draw_panels dd draw_panels ;+230 указатель на функцию рисования панели поиска/замены dd 0 ;+234 зарезервировано .fun_save_err dd ted_save_err_msg ;+238 указатель на функцию вызываемую если сохранение файла закончилось неудачно .increase_size dd 200 ;+242 число символов на которые будет увечиваться память при нехватке .ptr_free_symb dd ? ;+246 используется внутри элемента для ускорения вставки текста .font_size dd 0 ;+250 множитель для размера шрифта ;------------------------------------------------------------------------------ conv_tabl rb 128 ; таблица для конвертирования scan-кода в ascii-код el_focus dd tedit0 mouse_dd dd 0 tree1 tree_list 264,count_of_dir_list_files+2, tl_key_no_edit+tl_draw_par_line+tl_list_box_mode,\ 16,16, 0x8080ff,0x0000ff,0xffffff, 0,70,TED_PANEL_WIDTH-17,120, 0,0,0, el_focus,\ ws_dir_lbox,0 ;dir_list memory tree_file_struct: dd 1,0,0,count_of_dir_list_files dd dir_mem db 0 .f: dd file_name align 4 opt_gr1 dd opt1 opt_grlist1 dd opt1,opt2,opt3,0 ;end option group opt1 option_box opt_gr1, 5, 90,6,12,0xd0d0ff, 0xff, 0x80ff,txt_f_opt_next,txt_f_opt_next.end-txt_f_opt_next opt2 option_box opt_gr1, 5,108,6,12,0xd0d0ff, 0xff, 0x80ff,txt_f_opt_perv,txt_f_opt_perv.end-txt_f_opt_perv opt3 option_box opt_gr1, 5,126,6,12,0xd0d0ff, 0xff, 0x80ff,txt_f_opt_beg,txt_f_opt_beg.end-txt_f_opt_beg check_boxes: ch1 check_box2 (5 shl 16+12),(144 shl 16 +12),5,0xffffff,0,0x80ff,ch_text.1,ch_flag_en+ch_flag_middle check_boxes_end: if lang eq ru_RU msgbox_1: db '"Замена',13,10,'Сделано замен: ' .z: rb 10 msgbox_2: db 3,0 db 'Внимание',0 db 'Сохранить изменения в файле?',0 db 'Сохранить',0 db 'Не сохранять',0 db 'Отмена',0 db 0 msgbox_3: db 1,0 db 'Внимание',0 db 'Ошибка при открытии файла с цветовыми настройками!',13,\ 'Потому выделение слов цветом не возможно.',13,\ ' (код ошибки =' .err: db '?' db ')',0 db 'Закрыть',0 db 0 msgbox_4: db 1,0 db 'Внимание',0 db 'Ошибка при открытии файла!',13,\ 'Возможно имя файла введено не правильно.',13,\ ' (код ошибки =' .err: db '?' db ')',0 db 'Закрыть',0 db 0 msgbox_6: db 1,0 db 'Внимание',0 db 'Ошибка при сохранении файла!',13,\ 'Возможно имя файла введено не правильно.',13,\ ' (код ошибки =' .err: db '?' db ')',0 db 'Закрыть',0 db 0 msgbox_7: db '"Текст не найден',13,10 db 'Попробуйте или изменить запрос и повторить поиск." -tI',0 msgbox_9: db 3,0 db 'Внимание',0 db 'Не открылся ',39,'диалог открытия файла',39,'.',13 .fdp: rb 100 db 0 db 'Закрыть',0 db 0 txtFindCapt db 'Поиск:',0 txtFindNext db 'Найти далее',0 txtRerlaceCapt db 'Чем заменить:',0 txtRerlace db 'Заменить',0 txtRerlaceAll db 'Заменить все',0 txtFormatCapt db 'Формат',0 txtFormatApply db 'Применить',0 txtReplace db 'Заменить',0 txtReplaceAll db 'Заменить все',0 txtGotoCapt db 'Переход на строку:',0 txtGoto db 'Перейти',0 txt_f_opt_next: db 'Вниз' .end: db 0 txt_f_opt_perv: db 'Вверх' .end: db 0 txt_f_opt_beg: db 'С начала' .end: db 0 ch_text: .1 db 'Учитывать регистр',0 else msgbox_1: db '"Replace',13,10,'Made replacements: ' .z: rb 10 msgbox_2: db 3,0 db 'Warning',0 db 'Save changes to the file?',0 db 'Save',0 db 'Discard',0 db 'Cancel',0 db 0 msgbox_3: db 1,0 db 'Warning',0 db 'Error opening the file with the color settings!',13,\ 'Because color selection of words is not possible.',13,\ ' (error code =' .err: db '?' db ')',0 db 'Close',0 db 0 msgbox_4: db 1,0 db 'Warning',0 db 'Error opening file!',13,\ 'Maybe the file name is not entered correctly.',13,\ ' (error code =' .err: db '?' db ')',0 db 'Close',0 db 0 msgbox_6: db 1,0 db 'Warning',0 db 'Error saving file!',13,\ 'Maybe the file name is not entered correctly.',13,\ ' (error code =' .err: db '?' db ')',0 db 'Close',0 db 0 msgbox_7: db '"Text not found.',13,10 db 'Try change the query and search again." -tI',0 msgbox_9: db 3,0 db 'Warning',0 db 'Error run ',39,'open file dialog',39,'.',13 .fdp: rb 100 db 0 db 'Close',0 db 0 txtFindCapt db 'Search:',0 txtFindNext db 'Find next',0 txtRerlaceCapt db 'Replace with:',0 txtRerlace db 'Replace',0 txtRerlaceAll db 'Replace all',0 txtFormatCapt db 'Format',0 txtFormatApply db 'Apply',0 txtReplace db 'Replace',0 txtReplaceAll db 'Replace all',0 txtGotoCapt db 'Go to line:',0 txtGoto db 'Go to',0 txt_f_opt_next: db 'Down' .end: db 0 txt_f_opt_perv: db 'Up' .end: db 0 txt_f_opt_beg: db 'At first' .end: db 0 ch_text: .1 db 'Case sensitive',0 end if ;функции для кнопок в сообщениях msgbox_2N_funct: dd On_SaveAndNewFile dd On_NewFile dd 0 msgbox_2O_funct: dd On_SaveAndOpenFile dd ted_but_open_file.no_msg dd 0 msgbox_2E_funct: dd On_SaveAndExit dd On_Exit dd 0 KM_SHIFT equ 0x00010000 KM_CTRL equ 0x00020000 KM_ALT equ 0x00040000 KM_NUMLOCK equ 0x00080000 ; KEY CODES KEY_F1 equ 0x0000003B KEY_F2 equ 0x0000003C KEY_F3 equ 0x0000003D +fn_col_option dd def_col_file +fn_syntax_dir db 'info/',0 +def_col_file db 'default.syn',0 + +exit_code dd 0 ;переменная используемая для выхода из программы +panel_but rb 21 ;настройки отображения кнопок на панели + +;значения задаваемые по умолчанию, без ini файла +ini_def_window_t equ 20 +ini_def_window_l equ 200 +ini_def_window_w equ 570 +ini_def_window_h equ 470 +ini_def_symbol_w equ 7 +ini_def_symbol_h equ 10 +ini_def_font_s equ 0 +ini_def_scroll_type equ 0 +;описание параматров для ini файла +ini_name db 't_edit.ini',0 +ini_sec_window db 'Window',0 +key_window_t db 't',0 +key_window_l db 'l',0 +key_window_w db 'w',0 +key_window_h db 'h',0 +key_symbol_w db 'symbol_w',0 +key_symbol_h db 'symbol_h',0 +key_font_s db 'font_s',0 +key_scroll_type db 'scroll_type',0 +key_but_new db 'but_new',0 +key_but_open db 'but_open',0 +key_but_save db 'but_save',0 +key_but_save_as db 'but_save_as',0 +key_but_select db 'but_select',0 +key_but_cut db 'but_cut',0 +key_but_copy db 'but_copy',0 +key_but_paste db 'but_paste',0 +key_but_find db 'but_find',0 +key_but_replace db 'but_replace',0 +key_but_key_words db 'but_key_words',0 +key_but_upper db 'but_upper',0 +key_but_lower db 'but_lower',0 +key_but_reverse db 'but_reverse',0 +key_but_undo db 'but_undo',0 +key_but_redo db 'but_redo',0 +key_but_invisible db 'but_invisible',0 +key_but_syntax_list db 'but_syntax_list',0 +key_but_syntax_mode db 'but_syntax_mode',0 +key_but_convert_1251_866 db 'but_convert_1251_866',0 +key_but_convert_866_1251 db 'but_convert_866_1251',0 +ini_sec_options db 'Options',0 +key_synt_file: + db 'syntax_' + .numb: db '0',0 +key_synt_ext: + db 'ext_' + .numb: db '0',0 +ini_def_synt_f db 0 + +align 4 +max_synt_auto_open equ 10 +synt_auto_open: + rb 64*max_synt_auto_open + db 0 + +system_dir_0 db '/sys/lib/' +lib_name_0 db 'box_lib.obj',0 + +system_dir_1 db '/sys/lib/' +lib_name_1 db 'msgbox.obj',0 + +system_dir_2 db '/sys/lib/' +lib_name_2 db 'proc_lib.obj',0 + +system_dir_3 db '/sys/lib/' +lib_name_3 db 'libimg.obj',0 + +system_dir_4 db '/sys/lib/' +lib_name_4 db 'libini.obj',0 + +system_dir_5 db '/sys/lib/' +lib_name_5 db 'kmenu.obj',0 + + +;--------------------------------------------------------------------- +align 4 +import_box_lib: + dd alib_init0 ;функция запускается макросом 1 раз при подключении бибилиотеки, потому в программе метка на нее не нужна + + edit_box_draw dd aEdit_box_draw + edit_box_key dd aEdit_box_key + edit_box_mouse dd aEdit_box_mouse + ;edit_box_set_text dd aEdit_box_set_text + ;version_ed dd aVersion_ed + + init_checkbox dd ainit_checkbox + check_box_draw dd acheck_box_draw + check_box_mouse dd acheck_box_mouse + + 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 + + tl_data_init dd sz_tl_data_init + tl_data_clear dd sz_tl_data_clear + tl_info_clear dd sz_tl_info_clear + tl_key dd sz_tl_key + tl_mouse dd sz_tl_mouse + tl_draw dd sz_tl_draw + tl_info_undo dd sz_tl_info_undo + tl_info_redo dd sz_tl_info_redo + tl_node_add dd sz_tl_node_add + tl_node_set_data dd sz_tl_node_set_data + tl_node_get_data dd sz_tl_node_get_data + tl_node_delete dd sz_tl_node_delete + tl_cur_beg dd sz_tl_cur_beg + tl_cur_next dd sz_tl_cur_next + tl_cur_perv dd sz_tl_cur_perv + ;tl_node_close_open dd sz_tl_node_close_open + tl_node_lev_inc dd sz_tl_node_lev_inc + tl_node_lev_dec dd sz_tl_node_lev_dec + + ted_but_sumb_upper dd sz_ted_but_sumb_upper + ted_but_sumb_lover dd sz_ted_but_sumb_lover + ted_but_convert_by_table dd sz_ted_but_convert_by_table + ted_can_save dd sz_ted_can_save + ted_clear dd sz_ted_clear + ted_delete dd sz_ted_delete + ted_draw dd sz_ted_draw + ted_init dd sz_ted_init + ted_init_scroll_bars dd sz_ted_init_scroll_bars + ted_init_syntax_file dd sz_ted_init_syntax_file + ted_is_select dd sz_ted_is_select + ted_key dd sz_ted_key + ted_mouse dd sz_ted_mouse + ted_open_file dd sz_ted_open_file + ted_save_file dd sz_ted_save_file + ted_text_add dd sz_ted_text_add + ted_but_select_word dd sz_ted_but_select_word + ted_but_cut dd sz_ted_but_cut + ted_but_copy dd sz_ted_but_copy + ted_but_paste dd sz_ted_but_paste + ted_but_undo dd sz_ted_but_undo + ted_but_redo dd sz_ted_but_redo + ted_but_reverse dd sz_ted_but_reverse + ted_but_find dd sz_ted_but_find + ted_but_replace dd sz_ted_but_replace + ted_text_colored dd sz_ted_text_colored + ted_go_to_position dd sz_ted_go_to_position + version_text_edit dd sz_ted_version + +dd 0,0 + alib_init0 db 'lib_init',0 + + aEdit_box_draw db 'edit_box_draw',0 + aEdit_box_key db 'edit_box_key',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 + + 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 + + sz_tl_data_init db 'tl_data_init',0 + sz_tl_data_clear db 'tl_data_clear',0 + sz_tl_info_clear db 'tl_info_clear',0 + sz_tl_key db 'tl_key',0 + sz_tl_mouse db 'tl_mouse',0 + sz_tl_draw db 'tl_draw',0 + sz_tl_info_undo db 'tl_info_undo',0 + sz_tl_info_redo db 'tl_info_redo',0 + sz_tl_node_add db 'tl_node_add',0 + sz_tl_node_set_data db 'tl_node_set_data',0 + sz_tl_node_get_data db 'tl_node_get_data',0 + sz_tl_node_delete db 'tl_node_delete',0 + sz_tl_cur_beg db 'tl_cur_beg',0 + sz_tl_cur_next db 'tl_cur_next',0 + sz_tl_cur_perv db 'tl_cur_perv',0 + ;sz_tl_node_close_open db 'tl_node_close_open',0 + sz_tl_node_lev_inc db 'tl_node_lev_inc',0 + sz_tl_node_lev_dec db 'tl_node_lev_dec',0 + + sz_ted_but_sumb_upper db 'ted_but_sumb_upper',0 + sz_ted_but_sumb_lover db 'ted_but_sumb_lover',0 + sz_ted_but_convert_by_table db 'ted_but_convert_by_table',0 + sz_ted_can_save db 'ted_can_save',0 + sz_ted_clear db 'ted_clear',0 + sz_ted_delete db 'ted_delete',0 + sz_ted_draw db 'ted_draw',0 + sz_ted_init db 'ted_init',0 + sz_ted_init_scroll_bars db 'ted_init_scroll_bars',0 + sz_ted_init_syntax_file db 'ted_init_syntax_file',0 + sz_ted_is_select db 'ted_is_select',0 + sz_ted_key db 'ted_key',0 + sz_ted_mouse db 'ted_mouse',0 + sz_ted_open_file db 'ted_open_file',0 + sz_ted_save_file db 'ted_save_file',0 + sz_ted_text_add db 'ted_text_add',0 + sz_ted_but_select_word db 'ted_but_select_word',0 + sz_ted_but_cut db 'ted_but_cut',0 + sz_ted_but_copy db 'ted_but_copy',0 + sz_ted_but_paste db 'ted_but_paste',0 + sz_ted_but_undo db 'ted_but_undo',0 + sz_ted_but_redo db 'ted_but_redo',0 + sz_ted_but_reverse db 'ted_but_reverse',0 + sz_ted_but_find db 'ted_but_find',0 + sz_ted_but_replace db 'ted_but_replace',0 + sz_ted_text_colored db 'ted_text_colored',0 + sz_ted_go_to_position db 'ted_go_to_position',0 + sz_ted_version db 'version_text_edit',0 + +align 4 +import_proclib: + OpenDialog_Init dd aOpenDialog_Init + OpenDialog_Start dd aOpenDialog_Start +dd 0,0 + aOpenDialog_Init db 'OpenDialog_init',0 + aOpenDialog_Start db 'OpenDialog_start',0 + +align 4 +import_msgbox_lib: + mb_create dd amb_create + mb_reinit dd amb_reinit + mb_setfunctions dd amb_setfunctions +dd 0,0 + amb_create db 'mb_create',0 + amb_reinit db 'mb_reinit',0 + amb_setfunctions db 'mb_setfunctions',0 + +align 4 +import_libimg: + dd alib_init1 + img_to_rgb2 dd aimg_to_rgb2 + img_decode dd aimg_decode + img_destroy dd aimg_destroy +dd 0,0 + alib_init1 db 'lib_init',0 + aimg_to_rgb2 db 'img_to_rgb2',0 + aimg_decode db 'img_decode',0 ;автоматически определяет формат графических данных + aimg_destroy db 'img_destroy',0 + +align 4 +import_libini: + dd alib_init2 + ini_get_str dd aini_get_str + ini_get_int dd aini_get_int + ini_get_color dd aini_get_color +dd 0,0 + alib_init2 db 'lib_init',0 + aini_get_str db 'ini_get_str',0 + aini_get_int db 'ini_get_int',0 + aini_get_color db 'ini_get_color',0 + +align 4 +import_libkmenu: + kmenu_init dd akmenu_init + kmainmenu_draw dd akmainmenu_draw + kmainmenu_dispatch_cursorevent dd akmainmenu_dispatch_cursorevent + ksubmenu_new dd aksubmenu_new + ksubmenu_delete dd aksubmenu_delete + ksubmenu_draw dd aksubmenu_draw + ksubmenu_add dd aksubmenu_add + kmenuitem_new dd akmenuitem_new + kmenuitem_delete dd akmenuitem_delete + kmenuitem_draw dd akmenuitem_draw +dd 0,0 + akmenu_init db 'kmenu_init',0 + akmainmenu_draw db 'kmainmenu_draw',0 + akmainmenu_dispatch_cursorevent db 'kmainmenu_dispatch_cursorevent',0 + aksubmenu_new db 'ksubmenu_new',0 + aksubmenu_delete db 'ksubmenu_delete',0 + aksubmenu_draw db 'ksubmenu_draw',0 + aksubmenu_add db 'ksubmenu_add',0 + akmenuitem_new db 'kmenuitem_new',0 + akmenuitem_delete db 'kmenuitem_delete',0 + akmenuitem_draw db 'kmenuitem_draw',0 + +;--------------------------------------------------------------------- +align 4 +wScr scrollbar 16,50, 300,50, 15, 100,30,0, 0,0,0, 1 + +align 4 +hScr scrollbar 150,0, 16,50, 15, 100,30,0, 0,0,0, 1 + +;дочерний скроллинг для элемента ListBox +align 4 +ws_dir_lbox scrollbar 16,0, 30,70, 15, 100,30,0, 0,0,0, 1 + +;--------------------------------------------------------------------- +align 4 +OpenDialog_data: +.type dd 0 +.procinfo dd procinfo ;+4 +.com_area_name dd communication_area_name ;+8 +.com_area dd 0 ;+12 +.opendir_path dd plugin_path ;+16 +.dir_default_path dd default_dir ;+20 +.start_path dd file_name ;+24 путь к диалогу открытия файлов +.draw_window dd draw_window ;+28 +.status dd 0 ;+32 +.openfile_path dd openfile_path ;+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 + +default_dir db '/sys',0 ;директория по умолчанию + +communication_area_name: + db 'FFFFFFFF_open_dialog',0 +open_dialog_name: + db 'opendial',0 +communication_area_default_path: + db '/sys/File managers/',0 + +Filter: +dd Filter.end - Filter.1 +.1: +db 'ASM',0 +db 'CPP',0 +db 'INC',0 +db 'MAC',0 +db 'INI',0 +db 'TXT',0 +db 'H',0 +db 'C',0 +db 'HTM',0 +db 'HTML',0 +db 'PY',0 +db 'SH',0 +db 'BAT',0 +db 'LUA',0 +db 'INF',0 +db 'LOG',0 +db 'DBG',0 +db 'DAT',0 +.end: +db 0 + +txt_Info db '" -tI',0 + +TED_PANEL_NULL equ 0 ;нет открытой панели +TED_PANEL_FIND equ 1 ;панель поиска +TED_PANEL_REPLACE equ 2 ;панель замены +TED_PANEL_SYNTAX equ 3 ;панель выбора файлов подсветки +TED_PANEL_GOTO equ 4 ;панель перехода +TED_PANEL_WIDTH equ 150 ;ширина панели + +count_of_dir_list_files equ 15 ;максимальное число файлов синтаксиса показываемых в окне элемента tree1 + +;------------------------------------------------------------------------------ +struct TexSelect + x0 dd ? + y0 dd ? + x1 dd ? + y1 dd ? +ends +;------------------------------------------------------------------------------ +align 4 +tedit0: ;структура текстового редактора + .wnd BOX 0,50,440,150 ;+ 0 + .rec BOX 30,25,ini_def_symbol_w,ini_def_symbol_h ;+16 + .drag_m db 0 ;+32 выделение от мыши + .drag_k db 0 ;+33 выделение от клавиатуры + .sel TexSelect 0,0,0,0 ;+34 структура выделения + .seln TexSelect ;+50 дополнительная структура выделения + .tex dd 0 ;+66 text memory pointer + .tex_1 dd 0 ;+70 text first symbol pointer + .tex_end dd 0 ;+74 text end memory pointer + .cur_x dd 0 ;+78 координата x курсора + .cur_y dd 0 ;+82 координата y курсора + .max_chars dd maxChars ;+86 максимальное число символов в одном документе + .count_colors_text dd 1 ;+90 колличество цветов текста + .count_key_words dd 0 ;+94 колличество ключевых слов + .color_cursor dd 0x808080 ;+98 цвет курсора + .color_wnd_capt dd 0x80 ;+102 цвет полей вокруг окна + .color_wnd_work dd 0x0 ;+106 цвет фона окна + .color_wnd_bord dd 0xd0d0d0 ;+110 цвет текста на полях + .color_select dd 0x208080 ;+114 цвет выделения + .color_cur_text dd 0xff0000 ;+118 цвет символа под курсором + .color_wnd_text dd 0xffff00 ;+122 цвет текста в окне + .syntax_file dd 0 ;+126 указатель на начало файла синтаксиса + .syntax_file_size dd maxSyntaxFileSize ;+130 максимальный размер файла синтаксиса + .text_colors dd 0 ;+134 указатель на массив цветов текста + .help_text_f1 dd 0 ;+138 указатель на текст справки (по нажатии F1) + .help_id dd -1 ;+142 идентификатор для справки + .key_words_data dd 0 ;+146 указатель на структуры ключевых слов TexColViv + .tim_ch dd ? ;+150 количество изменений в файле + .tim_undo dd ? ;+154 количество отмененных действий + .tim_ls dd ? ;+158 время последнего сохранения + .tim_co dd ? ;+162 время последней цветовой разметки + .el_focus dd el_focus ;+166 указатель на переменную элемента в фокусе + .err_save db 0 ;+170 ошибка сохранения файла + .panel_id db 0 ;+171 номер открытой панели + .key_new db 0 ;+172 символ, который будет добавлятся с клавиатуры + .symbol_new_line db 20 ;+173 символ завершения строки + .scr_w dd wScr ;+174 вертикальный скроллинг + .scr_h dd hScr ;+178 горизонтальный скроллинг + .arr_key_pos dd 0 ;+182 указатель на массив позиций ключевых слов + .buffer dd buf ;+186 указатель на буфер копирования/вставки + .buffer_find dd buf_find ;+190 указатель на буфер для поиска + .cur_ins db 1 ;+194 режим работы курсора (обычный или замена) + .mode_color db 1 ;+195 режим выделения слов цветом (0-выкл. 1-вкл.) + .mode_invis db 0 ;+196 режим показа непечатаемых символов + .gp_opt db 0 ;+197 опции возвращаемые функцией ted_get_pos_by_cursor + .fun_on_key_ctrl_all dd ted_but_ctrl_all ;+198 указатель на функцию вызываемую при нажатии Ctrl+N,O,S,F,H,G + dd 0,0,0 ;зарезервировано + .buffer_size dd BUF_SIZE ;+214 размер буфера копирования/вставки + .fun_find_err dd ted_on_find_err ;+218 указатель на функцию вызываемую если поиск закончился неудачно + .fun_init_synt_err dd 0 ;+222 + .fun_draw_panel_buttons dd draw_but_toolbar ;+226 указатель на функцию рисования панели с кнопками + .fun_draw_panels dd draw_panels ;+230 указатель на функцию рисования панели поиска/замены + dd 0 ;+234 зарезервировано + .fun_save_err dd ted_save_err_msg ;+238 указатель на функцию вызываемую если сохранение файла закончилось неудачно + .increase_size dd 200 ;+242 число символов на которые будет увечиваться память при нехватке + .ptr_free_symb dd ? ;+246 используется внутри элемента для ускорения вставки текста + .font_size dd 0 ;+250 множитель для размера шрифта +;------------------------------------------------------------------------------ + +conv_tabl rb 128 ; таблица для конвертирования scan-кода в ascii-код + +el_focus dd tedit0 +mouse_dd dd 0 +tree1 tree_list 264,count_of_dir_list_files+2, tl_key_no_edit+tl_draw_par_line+tl_list_box_mode,\ + 16,16, 0x8080ff,0x0000ff,0xffffff, 0,70,TED_PANEL_WIDTH-17,120, 0,0,0, el_focus,\ + ws_dir_lbox,0 + +;dir_list memory +tree_file_struct: + dd 1,0,0,count_of_dir_list_files + dd dir_mem + db 0 +.f: dd file_name + +align 4 +opt_gr1 dd opt1 +opt_grlist1 dd opt1,opt2,opt3,0 ;end option group + +opt1 option_box opt_gr1, 5, 90,6,12,0xd0d0ff, 0xff, 0x80ff,txt_f_opt_next,txt_f_opt_next.end-txt_f_opt_next +opt2 option_box opt_gr1, 5,108,6,12,0xd0d0ff, 0xff, 0x80ff,txt_f_opt_perv,txt_f_opt_perv.end-txt_f_opt_perv +opt3 option_box opt_gr1, 5,126,6,12,0xd0d0ff, 0xff, 0x80ff,txt_f_opt_beg,txt_f_opt_beg.end-txt_f_opt_beg + +check_boxes: +ch1 check_box2 (5 shl 16+12),(144 shl 16 +12),5,0xffffff,0,0x80ff,ch_text.1,ch_flag_en+ch_flag_middle +check_boxes_end: + + + +if lang eq ru_RU + +msgbox_1: + db '"Замена',13,10,'Сделано замен: ' +.z: rb 10 +msgbox_2: + db 3,0 + db 'Внимание',0 + db 'Сохранить изменения в файле?',0 + db 'Сохранить',0 + db 'Не сохранять',0 + db 'Отмена',0 + db 0 +msgbox_3: + db 1,0 + db 'Внимание',0 + db 'Ошибка при открытии файла с цветовыми настройками!',13,\ + 'Потому выделение слов цветом не возможно.',13,\ + ' (код ошибки =' + .err: db '?' + db ')',0 + db 'Закрыть',0 + db 0 +msgbox_4: + db 1,0 + db 'Внимание',0 + db 'Ошибка при открытии файла!',13,\ + 'Возможно имя файла введено не правильно.',13,\ + ' (код ошибки =' + .err: db '?' + db ')',0 + db 'Закрыть',0 + db 0 +msgbox_6: + db 1,0 + db 'Внимание',0 + db 'Ошибка при сохранении файла!',13,\ + 'Возможно имя файла введено не правильно.',13,\ + ' (код ошибки =' + .err: db '?' + db ')',0 + db 'Закрыть',0 + db 0 +msgbox_7: + db '"Текст не найден',13,10 + db 'Попробуйте или изменить запрос и повторить поиск." -tI',0 +msgbox_9: + db 3,0 + db 'Внимание',0 + db 'Не открылся ',39,'диалог открытия файла',39,'.',13 + .fdp: + rb 100 + db 0 + db 'Закрыть',0 + db 0 + +txtFindCapt db 'Поиск:',0 +txtFindNext db 'Найти далее',0 +txtRerlaceCapt db 'Чем заменить:',0 +txtRerlace db 'Заменить',0 +txtRerlaceAll db 'Заменить все',0 +txtFormatCapt db 'Формат',0 +txtFormatApply db 'Применить',0 +txtReplace db 'Заменить',0 +txtReplaceAll db 'Заменить все',0 +txtGotoCapt db 'Переход на строку:',0 +txtGoto db 'Перейти',0 +txt_f_opt_next: db 'Вниз' +.end: db 0 +txt_f_opt_perv: db 'Вверх' +.end: db 0 +txt_f_opt_beg: db 'С начала' +.end: db 0 +ch_text: +.1 db 'Учитывать регистр',0 + +else ; Default to en_US + +msgbox_1: + db '"Replace',13,10,'Made replacements: ' +.z: rb 10 +msgbox_2: + db 3,0 + db 'Warning',0 + db 'Save changes to the file?',0 + db 'Save',0 + db 'Discard',0 + db 'Cancel',0 + db 0 +msgbox_3: + db 1,0 + db 'Warning',0 + db 'Error opening the file with the color settings!',13,\ + 'Because color selection of words is not possible.',13,\ + ' (error code =' + .err: db '?' + db ')',0 + db 'Close',0 + db 0 +msgbox_4: + db 1,0 + db 'Warning',0 + db 'Error opening file!',13,\ + 'Maybe the file name is not entered correctly.',13,\ + ' (error code =' + .err: db '?' + db ')',0 + db 'Close',0 + db 0 +msgbox_6: + db 1,0 + db 'Warning',0 + db 'Error saving file!',13,\ + 'Maybe the file name is not entered correctly.',13,\ + ' (error code =' + .err: db '?' + db ')',0 + db 'Close',0 + db 0 +msgbox_7: + db '"Text not found.',13,10 + db 'Try change the query and search again." -tI',0 +msgbox_9: + db 3,0 + db 'Warning',0 + db 'Error run ',39,'open file dialog',39,'.',13 + .fdp: + rb 100 + db 0 + db 'Close',0 + db 0 + +txtFindCapt db 'Search:',0 +txtFindNext db 'Find next',0 +txtRerlaceCapt db 'Replace with:',0 +txtRerlace db 'Replace',0 +txtRerlaceAll db 'Replace all',0 +txtFormatCapt db 'Format',0 +txtFormatApply db 'Apply',0 +txtReplace db 'Replace',0 +txtReplaceAll db 'Replace all',0 +txtGotoCapt db 'Go to line:',0 +txtGoto db 'Go to',0 +txt_f_opt_next: db 'Down' +.end: db 0 +txt_f_opt_perv: db 'Up' +.end: db 0 +txt_f_opt_beg: db 'At first' +.end: db 0 +ch_text: +.1 db 'Case sensitive',0 + +end if + +;функции для кнопок в сообщениях +msgbox_2N_funct: + dd On_SaveAndNewFile + dd On_NewFile + dd 0 +msgbox_2O_funct: + dd On_SaveAndOpenFile + dd ted_but_open_file.no_msg + dd 0 +msgbox_2E_funct: + dd On_SaveAndExit + dd On_Exit + dd 0 + +KM_SHIFT equ 0x00010000 +KM_CTRL equ 0x00020000 +KM_ALT equ 0x00040000 +KM_NUMLOCK equ 0x00080000 + +; KEY CODES +KEY_F1 equ 0x0000003B +KEY_F2 equ 0x0000003C +KEY_F3 equ 0x0000003D diff --git a/programs/other/t_edit/wnd_k_words.inc b/programs/other/t_edit/wnd_k_words.inc index 1426eda973..ec81f04e45 100644 --- a/programs/other/t_edit/wnd_k_words.inc +++ b/programs/other/t_edit/wnd_k_words.inc @@ -1,209 +1,211 @@ -; -; в этом файле собраны функции нужные для создания и -; работы окна с поиском в ключевых словах -; - -prop_wnd_width equ 350 ;ширина окна с поиском -SIZE_ONE_FLOAT equ 14 - -IMAGE_TOOLBAR_ICON_SIZE equ 20*20*3 - -wnd_k_words_run dd 0 ;переменная следящая за тем что-бы не запускать больше 1-го окна одновременно - -if lang eq ru_RU -txt_caption db 'Поиск в ключевых словах',0 -else -txt_caption db 'Search in keywords',0 -end if - -;даное окно (процесс) вызываеться функцией but_wnd_coords -align 4 -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 - add dword[tree3.info_max_count],edx ;ставим число узлов, равное колличеству ключевых слов в файле подсветки (+2 на начало и конец списка) - stdcall [tl_data_init], tree3 - mov eax,dword[icon_tl_sys] - mov dword[tree3.data_img],eax - mov eax,dword[tree1.data_img_sys] - mov dword[tree3.data_img_sys],eax - - edit_boxes_set_sys_color edit3,editboxes_end,sc ;установка системных цветов -popad - -align 4 -prop_red_win: -pushad - mcall SF_REDRAW,SSF_BEGIN_DRAW - - mov bx,word[procinfo.box.left] - add bx,5 ;word[buf_0.l] - shl ebx,16 - mov bx,prop_wnd_width - mov cx,word[procinfo.box.top] - add cx,42 ;word[buf_0.t] - shl ecx,16 - mov cx,250 - mcall SF_CREATE_WINDOW,,,0x33ffffd0,,txt_caption - - mcall SF_DEFINE_BUTTON,(5 shl 16)+19,(5 shl 16)+19,3,[sc.work_button] - add ebx,(25 shl 16) - mcall ,,,4 - - mov ebx,[bmp_icon] - add ebx,(ID_BUT_FIND-ID_BUT_0)*IMAGE_TOOLBAR_ICON_SIZE - mcall SF_PUT_IMAGE,,(20 shl 16)+20,(5 shl 16)+5 ;найти - - sub ebx,2*IMAGE_TOOLBAR_ICON_SIZE - mov edx,(30 shl 16)+5 ;копировать - int 0x40 - - mcall SF_THREAD_INFO,procinfo,-1 - mov eax,[procinfo.box.height] - cmp eax,90 - jge @f - mov eax,90 ;min size - @@: - sub eax,58 - cmp [tree3.box_height],eax - je @f - 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 - stdcall [edit_box_draw], edit3 - mcall SF_REDRAW,SSF_END_DRAW -popad - -;не отрывать эту функцию от предыдущей -align 4 -prop_still: - mcall SF_WAIT_EVENT - - cmp al,1 ;изм. положение окна - jz prop_red_win - cmp al,2 - jne @f - call prop_key - @@: - cmp al,3 - jne @f - call prop_button - @@: - cmp al,6 - jne @f - call prop_mouse - @@: - jmp prop_still -.exit: - mov dword[tree3.data_img],0 ;чистим указатели на иконки что-бы их не удалил деструктор - mov dword[tree3.data_img_sys],0 ;т. к. они еще используються в других элементах - stdcall [tl_data_clear], tree3 - mov dword[wnd_k_words_run],0 ;обнуляем ID окна - mcall SF_TERMINATE_PROCESS - -align 4 -prop_key: -push eax - mcall SF_GET_KEY - stdcall [edit_box_key], edit3 - stdcall [tl_key], tree3 -pop eax - ret - -align 4 -prop_mouse: - ;push ecx edi - stdcall [tl_mouse], tree3 - stdcall [edit_box_mouse], edit3 - ;pop edi ecx - ret - -align 4 -prop_button: - pushad - mcall SF_GET_BUTTON - - cmp ah,1 - je prop_still.exit - - cmp ah,3 - jne @f - ;найти слова - mov edi,tedit0 - cmp ted_syntax_file,0 - je @f - stdcall [tl_info_clear], tree3 - and dword[tree3.style], not tl_cursor_pos_limited - - mov ebx,ted_key_words_data - mov ecx,ted_key_words_count - cld - .cycle_0: - stdcall str_instr, ebx,[edit3.text] - test al,al - jnz .end_add - ;ключевое слово - stdcall [tl_node_add], tree3, (1 shl 16), ebx - stdcall [tl_cur_next], tree3 - mov edx,[ebx+MAX_COLOR_WORD_LEN] - or edx,edx - jz .end_add - ;справка по ключевому слову - add edx,ted_help_text_f1 - stdcall [tl_node_add], tree3, 1, edx - stdcall [tl_cur_next], tree3 - .end_add: - add ebx,MAX_COLOR_WORD_LEN+8 ;sizeof.TexColViv - loop .cycle_0 - - stdcall [tl_cur_beg], tree3 - or dword[tree3.style], tl_cursor_pos_limited ;ограничиваем движение курсора в пределах списка - stdcall [tl_draw], tree3 - jmp .no_select_0 - @@: - cmp ah,4 - jne @f - ;копировать в буфер - stdcall [tl_node_get_data],tree3 - or eax,eax - jz .no_select_0 - mov esi,eax - mov edi,[tedit0.buffer] - mov dword[edi],MAX_COLOR_WORD_LEN - mov dword[edi+4],0 ;text data - mov dword[edi+8],1 ;code 866 - add edi,12 ;system buffer header size - mov byte[edi+MAX_COLOR_WORD_LEN],0 - mov ecx,MAX_COLOR_WORD_LEN - cld - rep movsb - mcall SF_CLIPBOARD,SSF_WRITE_CB,12+MAX_COLOR_WORD_LEN,[tedit0.buffer] - .no_select_0: - @@: - - 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 -edit3 edit_box 80, 70, 8, 0xffffff, 0xff, 0x80ff, 0, 0x8000, MAX_COLOR_WORD_LEN+2, string1, mouse_dd, ed_focus -editboxes_end: - -string1 rb MAX_COLOR_WORD_LEN - -align 4 -w_scr_t3 scrollbar 16,0, 3,0, 15, 100, 0,0, 0xeeeeee, 0xbbddff, 0, 1 +; +; в этом файле собраны функции нужные для создания и +; работы окна с поиском в ключевых словах +; + +; Language support for locales: ru_RU (CP866), en_US. + +prop_wnd_width equ 350 ;ширина окна с поиском +SIZE_ONE_FLOAT equ 14 + +IMAGE_TOOLBAR_ICON_SIZE equ 20*20*3 + +wnd_k_words_run dd 0 ;переменная следящая за тем что-бы не запускать больше 1-го окна одновременно + +if lang eq ru_RU +txt_caption db 'Поиск в ключевых словах',0 +else ; Default to en_US +txt_caption db 'Search in keywords',0 +end if + +;даное окно (процесс) вызываеться функцией but_wnd_coords +align 4 +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 + add dword[tree3.info_max_count],edx ;ставим число узлов, равное колличеству ключевых слов в файле подсветки (+2 на начало и конец списка) + stdcall [tl_data_init], tree3 + mov eax,dword[icon_tl_sys] + mov dword[tree3.data_img],eax + mov eax,dword[tree1.data_img_sys] + mov dword[tree3.data_img_sys],eax + + edit_boxes_set_sys_color edit3,editboxes_end,sc ;установка системных цветов +popad + +align 4 +prop_red_win: +pushad + mcall SF_REDRAW,SSF_BEGIN_DRAW + + mov bx,word[procinfo.box.left] + add bx,5 ;word[buf_0.l] + shl ebx,16 + mov bx,prop_wnd_width + mov cx,word[procinfo.box.top] + add cx,42 ;word[buf_0.t] + shl ecx,16 + mov cx,250 + mcall SF_CREATE_WINDOW,,,0x33ffffd0,,txt_caption + + mcall SF_DEFINE_BUTTON,(5 shl 16)+19,(5 shl 16)+19,3,[sc.work_button] + add ebx,(25 shl 16) + mcall ,,,4 + + mov ebx,[bmp_icon] + add ebx,(ID_BUT_FIND-ID_BUT_0)*IMAGE_TOOLBAR_ICON_SIZE + mcall SF_PUT_IMAGE,,(20 shl 16)+20,(5 shl 16)+5 ;найти + + sub ebx,2*IMAGE_TOOLBAR_ICON_SIZE + mov edx,(30 shl 16)+5 ;копировать + int 0x40 + + mcall SF_THREAD_INFO,procinfo,-1 + mov eax,[procinfo.box.height] + cmp eax,90 + jge @f + mov eax,90 ;min size + @@: + sub eax,58 + cmp [tree3.box_height],eax + je @f + 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 + stdcall [edit_box_draw], edit3 + mcall SF_REDRAW,SSF_END_DRAW +popad + +;не отрывать эту функцию от предыдущей +align 4 +prop_still: + mcall SF_WAIT_EVENT + + cmp al,1 ;изм. положение окна + jz prop_red_win + cmp al,2 + jne @f + call prop_key + @@: + cmp al,3 + jne @f + call prop_button + @@: + cmp al,6 + jne @f + call prop_mouse + @@: + jmp prop_still +.exit: + mov dword[tree3.data_img],0 ;чистим указатели на иконки что-бы их не удалил деструктор + mov dword[tree3.data_img_sys],0 ;т. к. они еще используються в других элементах + stdcall [tl_data_clear], tree3 + mov dword[wnd_k_words_run],0 ;обнуляем ID окна + mcall SF_TERMINATE_PROCESS + +align 4 +prop_key: +push eax + mcall SF_GET_KEY + stdcall [edit_box_key], edit3 + stdcall [tl_key], tree3 +pop eax + ret + +align 4 +prop_mouse: + ;push ecx edi + stdcall [tl_mouse], tree3 + stdcall [edit_box_mouse], edit3 + ;pop edi ecx + ret + +align 4 +prop_button: + pushad + mcall SF_GET_BUTTON + + cmp ah,1 + je prop_still.exit + + cmp ah,3 + jne @f + ;найти слова + mov edi,tedit0 + cmp ted_syntax_file,0 + je @f + stdcall [tl_info_clear], tree3 + and dword[tree3.style], not tl_cursor_pos_limited + + mov ebx,ted_key_words_data + mov ecx,ted_key_words_count + cld + .cycle_0: + stdcall str_instr, ebx,[edit3.text] + test al,al + jnz .end_add + ;ключевое слово + stdcall [tl_node_add], tree3, (1 shl 16), ebx + stdcall [tl_cur_next], tree3 + mov edx,[ebx+MAX_COLOR_WORD_LEN] + or edx,edx + jz .end_add + ;справка по ключевому слову + add edx,ted_help_text_f1 + stdcall [tl_node_add], tree3, 1, edx + stdcall [tl_cur_next], tree3 + .end_add: + add ebx,MAX_COLOR_WORD_LEN+8 ;sizeof.TexColViv + loop .cycle_0 + + stdcall [tl_cur_beg], tree3 + or dword[tree3.style], tl_cursor_pos_limited ;ограничиваем движение курсора в пределах списка + stdcall [tl_draw], tree3 + jmp .no_select_0 + @@: + cmp ah,4 + jne @f + ;копировать в буфер + stdcall [tl_node_get_data],tree3 + or eax,eax + jz .no_select_0 + mov esi,eax + mov edi,[tedit0.buffer] + mov dword[edi],MAX_COLOR_WORD_LEN + mov dword[edi+4],0 ;text data + mov dword[edi+8],1 ;code 866 + add edi,12 ;system buffer header size + mov byte[edi+MAX_COLOR_WORD_LEN],0 + mov ecx,MAX_COLOR_WORD_LEN + cld + rep movsb + mcall SF_CLIPBOARD,SSF_WRITE_CB,12+MAX_COLOR_WORD_LEN,[tedit0.buffer] + .no_select_0: + @@: + + 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 +edit3 edit_box 80, 70, 8, 0xffffff, 0xff, 0x80ff, 0, 0x8000, MAX_COLOR_WORD_LEN+2, string1, mouse_dd, ed_focus +editboxes_end: + +string1 rb MAX_COLOR_WORD_LEN + +align 4 +w_scr_t3 scrollbar 16,0, 3,0, 15, 100, 0,0, 0xeeeeee, 0xbbddff, 0, 1 diff --git a/programs/system/MyKey/trunk/MyKey.asm b/programs/system/MyKey/trunk/MyKey.asm index baee823c8d..809c091cb7 100644 --- a/programs/system/MyKey/trunk/MyKey.asm +++ b/programs/system/MyKey/trunk/MyKey.asm @@ -1,1080 +1,1075 @@ -; -; MyKey. Version 0.2. -; -; Author: Asper -; Date of issue: 29.12.2009 -; Compiler: FASM -; Target: KolibriOS -; - -use32 - org 0x0 - - db 'MENUET01' ; 8 byte id - dd 38 ; required os - dd STARTAPP ; program start - dd I_END ; program image size - dd 0x1000000 ; required amount of memory - dd 0x1000000 ; stack heap - dd 0x0 - dd app_path - -include 'lang.inc' ;language support - -include 'string.inc' -;include 'macros.inc' -include '../../../macros.inc' -include 'ASPAPI.INC' -;include 'editbox_ex.mac' -include '../../../develop/libraries/box_lib/trunk/box_lib.mac' -;include 'load_lib.mac' -include '../../../develop/libraries/box_lib/load_lib.mac' -include '../../../dll.inc' - -include 'debug.inc' -DEBUG equ 0;1 - -N_KEYCOLOR equ 0x00EEEEEE ; Normal button color -C_KEYCOLOR equ 0x00CBE1E1 ; Control button color -A_KEYCOLOR equ 0x00FF6400;258778 ; Active button color -C_TEXTCOLOR equ 0x80000000 ; Button caption color -CA_TEXTCOLOR equ 0x80FFFFFF ; Active button caption color -A_TEXTCOLOR equ 0x00FFFFFF ; Active text color - -WIN_X equ 265 -WIN_Y equ 50;175 -WIN_W equ 595 -WIN_H equ 415 ;570 -WIN_COLOR equ 0x040099BB;0x04EEEEEE - -ITEM_BUTTON_W equ 192;100 -ITEM_BUTTON_H equ 23 -ITEM_BUTTON_SPACE equ 0 -FIRST_ITEM_BUTTON_ID equ 7 - -BUT_W equ 80 -BUT_H equ 20 - -MAX_HOTKEYS_NUM equ 15 ; Bad bounding :/. Until we have normal listbox control. -PATH_MAX_CHARS equ 255 - -@use_library - -STARTAPP: - ; Initialize memory - mcall 68, 11 - or eax,eax - jz close_app - ; Import libraries - sys_load_library boxlib_name, sys_path, boxlib_name, system_dir0, err_message_found_lib, head_f_l, myimport,err_message_import, head_f_i - cmp eax,-1 - jz close_app - stdcall dll.Load,importTable - test eax, eax - jnz close_app - - mcall 68, 12, MAX_HOTKEYS_NUM*PATH_MAX_CHARS ; Get memory for editboxes text - mov dword [buf_cmd_line], eax - mov dword [edit1.text], eax - mcall 68, 12, MAX_HOTKEYS_NUM*PATH_MAX_CHARS - mov dword [buf_cmd_params], eax - mov dword [edit2.text], eax - mcall 68, 12, MAX_HOTKEYS_NUM*32 - mov dword [it_buf_cmd_line], eax - mov dword [it_edit.text], eax - - call Load_HotkeyList - - mcall 66, 1, 1 ; Set keyboard mode to get scancodes. - mcall 26, 2, 1, ascii_keymap - -get_mykey_window_slot_number: - call draw_window - mcall 18, 7 - mov [mykey_window], eax - -set_event_mask: - mcall 40, 0xC0000027 - -red: - .test_slot: - mcall 18, 7 - mov ebx, [mykey_window] - cmp eax, ebx - jne @f - - mov ecx, [it_window] - cmp ebx, ecx - je @f - .activate_it_window: - mov al, byte [it_alive] - test al, al - jz @f - mov byte [it_alive], 0 - - mcall 18, 3 ; Activate input thread window - @@: - call draw_window - -still: - call reset_modifiers - - mcall 10 ; Wait for an event in the queue. - - cmp al,1 ; redraw request ? - jz red - cmp al,2 ; key in buffer ? - jz key - cmp al,3 ; button in buffer ? - jz button - cmp al,6 - jz mouse - - jmp still - -key: - mcall 2 - - push eax - mcall 66, 3 - ;mov edx, eax - ;and edx, 0x00000FF;F - mov dword [modifiers], eax;edx - pop eax - - test word [edit1.flags], 10b - jnz .editbox_input - test word [edit2.flags], 10b - jz @f - .editbox_input: - cmp ah, 0x80 ;if key up - ja still - cmp ah, 42 ;LShift - je still - cmp ah, 54 ;RShift - je still - cmp ah, 56 ;Alt - je still - cmp ah, 29 ;Ctrl - je still - cmp ah, 69 ;Pause/Break - je still - - mov esi, ascii_keymap - call Scan2ASCII - - push dword edit1 - call [edit_box_key] - - push dword edit2 - call [edit_box_key] - jmp still - @@: - - ;------------------------ - mov cl, byte [hotkeys_num] - .test_next_hotkey: - dec cl - mov bl, cl - and ebx, 0xFF - shl ebx, 2;5 -; mov esi, ebx - add ebx, dword Hotkeys.codes - - mov edx, dword [ebx] - cmp ah, dl - jne @f - - shr edx, 8 - cmp edx, dword [modifiers] - jne @f - - push eax - mov eax, PATH_MAX_CHARS - mul cl - mov edx, eax - add edx, dword [buf_cmd_params] - add eax, dword [buf_cmd_line] - mov esi, eax - pop eax - call RunProgram - jmp .end_test - @@: - or cl, cl - jnz .test_next_hotkey - .end_test: - ;------------------------ - - jmp still - -button: - mcall 17 ; Get pressed button code - cmp ah, 1 ; Test x button - je close_app - - cmp ah, 2 - jne @f - call AddHotKey - jmp red - @@: - cmp ah, 5 - jne @f - call Load_HotkeyList - jmp red - @@: - cmp ah, 6 - jne @f - call WriteIni - xor edx, edx - mov esi, aRamSaver - call RunProgram - @@: - - cmp ah, FIRST_ITEM_BUTTON_ID ; Test if pressed buttons - jb still ; is a HotKey button... - mov al, ah - sub al, FIRST_ITEM_BUTTON_ID - cmp al, byte [hotkeys_num] - jnb still ; ...so, if not then still, - - - mov byte [butt], ah ; if yes then save pressed button ID - and eax, 0xFF - mov cl, byte PATH_MAX_CHARS - mul cl - mov ebx, eax - add ebx, dword [buf_cmd_params] - add eax, dword [buf_cmd_line] - - mov dword [edit1.text], eax - mov dword [edit2.text], ebx - - mov esi, eax - call strlen - mov dword [edit1.size], ecx - mov dword [edit1.pos], ecx - - mov esi, ebx - call strlen - mov dword [edit2.size], ecx - mov dword [edit2.pos], ecx - - jmp red - -mouse: - push dword edit1 - call [edit_box_mouse] - push dword edit2 - call [edit_box_mouse] - - jmp still - - -close_app: - mov eax,-1 ; close this program - int 0x40 - - -draw_window: - start_draw_window WIN_X,WIN_Y,WIN_W,WIN_H,WIN_COLOR,labelt, 11;labellen-labelt - - ;bar 5, 24, 585, 385, 0x800000 or 0x90D2 - ;rectangle2 6, 25, 585, 385, 0xFFFFFF, 0 - - ;bar 5, 24, BUT_W+4, 350, 0x008C00D2;0x800000 or A_KEYCOLOR - ;rectangle2 6, 25, BUT_W+4, 350, 0xFFFFFF, 0 - - - push dword edit1 - call [edit_box_draw] - push dword edit2 - call [edit_box_draw] - - stdcall draw_button, 7,WIN_H-BUT_H-10,BUT_W,BUT_H,2,0x0050D250,AddKeyText, 0,C_TEXTCOLOR ; Add Hotkey. - if 0 - stdcall draw_button, 90,WIN_H-BUT_H-10,BUT_W,BUT_H,3,C_KEYCOLOR,DeleteKeyText,0,C_TEXTCOLOR ; Delete Hotkey. - stdcall draw_button, 173,WIN_H-BUT_H-10,BUT_W,BUT_H,4,C_KEYCOLOR,ManageKeyText,0,C_TEXTCOLOR ; Manage Hotkey. - end if - stdcall draw_button, WIN_W-BUT_W*2-14,WIN_H-BUT_H-10,BUT_W,BUT_H,5,0x0050D250,ReloadKeyText, 0,C_TEXTCOLOR ; Save Hotkeys list. - stdcall draw_button, WIN_W-BUT_W-7,WIN_H-BUT_H-10,BUT_W,BUT_H,6,0x0050D250,SaveKeyText, 0,C_TEXTCOLOR ; Save Hotkeys list. - - movzx ecx, byte [hotkeys_num] - cmp ecx, MAX_HOTKEYS_NUM - jng @f - mov ecx, MAX_HOTKEYS_NUM - @@: - mov eax, 30 - mov ebx, FIRST_ITEM_BUTTON_ID - @@: - or cl, cl - jz @f - - mov edx, ebx - sub edx, FIRST_ITEM_BUTTON_ID - shl edx, 5; edx=edx*32 - add edx, dword Hotkeys - - cmp bl, byte [butt] - jne .l1 - stdcall draw_button, 7,eax,ITEM_BUTTON_W,ITEM_BUTTON_H,ebx,A_KEYCOLOR ,edx,0,CA_TEXTCOLOR - bar 220, 70, 350, 30, 0x00C8E1F0 ;0x800000 or A_KEYCOLOR - rectangle2 221, 71, 350, 30, 0xFFFFFF, 0 - mov esi, Hotkeys.code_names - sub edx, dword Hotkeys - shl edx, 1 - add esi, edx - stdcall outtextxy, 225, 80, esi, 64, C_TEXTCOLOR - jmp .l2 - .l1: - stdcall draw_button, 7,eax,ITEM_BUTTON_W,ITEM_BUTTON_H,ebx,N_KEYCOLOR,edx,0,C_TEXTCOLOR - .l2: - - add eax, ITEM_BUTTON_H+ITEM_BUTTON_SPACE - inc ebx - dec cl - jmp @b - @@: - end_draw_window -ret - - -AddHotKey: - mov al, byte [hotkeys_num] - cmp al, MAX_HOTKEYS_NUM - jge .end - inc al - mov byte [hotkeys_num], al - - mcall 51, 1, dword start_input_thread, dword input_thread_stack_top - .end: -ret - - -Load_HotkeyList: - call ReadIni - - mov al, byte [butt] - and eax, 0xFF - sub al, FIRST_ITEM_BUTTON_ID - mov cl, byte PATH_MAX_CHARS - mul cl - mov ebx, eax - add eax, dword [buf_cmd_line] - add ebx, dword [buf_cmd_params] - - - ;mov [butt], FIRST_ITEM_BUTTON_ID - mov esi, eax - call strlen - mov dword [edit1.size], ecx - mov dword [edit1.pos], ecx - - mov esi, ebx - call strlen - mov dword [edit2.size], ecx - mov dword [edit2.pos], ecx -ret - - -reset_modifiers: - pusha - mov esi, dword [it_hotkey_addr] - test esi, esi - jz .end_set_mods - - lodsd - - ; Set new hotkey for the main thread - mov cl, al - shr eax, 8 - - xor edx, edx - push cx - mov cl, 3 - .next_pair: - shl edx, 4 - mov bl, al - and bl, 3 - - or bl, bl - jz .l1 - - cmp bl, 3 ; both? - jne @f - or dl, 2 - jmp .l1 - @@: - add bl, 2 - or dl, bl - .l1: - shr eax, 2 - dec cl - test cl, cl - jnz .next_pair - - mov bx, dx - and bx, 0xF0F - xchg bl, bh - and dx, 0x0F0 - or dx, bx - pop cx - - mcall 66, 4 - mov dword [it_hotkey_addr], 0 - .end_set_mods: - popa -ret - - -;######################## Input Thread code start ########################## - -start_input_thread: - mov ecx, 1 ; to get scancodes. - mcall 26, 2, 1, it_ascii_keymap - mcall 66, 1 ; Set keyboard mode - mov dword [it_hotkey_addr], 0 -it_set_editbox: - mov al, byte [hotkeys_num] - sub al, 1 - and eax, 0xFF - shl eax, 5 - add eax, dword Hotkeys.names - mov dword [it_edit.text], eax - - mov esi, eax - call strlen - mov dword [it_edit.size], ecx - mov dword [it_edit.pos], ecx -get_it_window_slot_number: - call it_draw_window - mcall 18, 7 - mov [it_window], eax - -it_set_event_mask: - mcall 40, 39 -it_red: - call it_draw_window - -it_still: - mcall 10 ; Wait for an event in the queue. - - cmp al,1 ; redraw request ? - jz it_red - cmp al,2 ; key in buffer ? - jz it_key - cmp al,3 ; button in buffer ? - jz it_button - cmp al,6 - jz it_mouse - - jmp it_still - -it_key: - mcall 2 - - mov byte [it_keycode], 0 - stdcall outtextxy, 10, 100, ctrl_key_names, 35, 0 - - cmp ah, 1 ;Esc - jne @f - dec byte [hotkeys_num] - jmp close_app - @@: - - cmp ah, 0x80 ;if key up - ja .end - cmp ah, 42 ;[Shift] (left) - je .end - cmp ah, 54 ;[Shift] (right) - je .end - cmp ah, 56 ;[Alt] - je .end - cmp ah, 29 ;[Ctrl] - je .end - cmp ah, 69 ;[Pause Break] - je .end - - mov byte [it_keycode], ah - mov esi, it_ascii_keymap - call Scan2ASCII - - test word [it_edit.flags], 10b - jz .end - push dword it_edit - call [edit_box_key] - jmp it_still - .end: - - mcall 26, 2, 1, it_ascii_keymap - call it_test_key_modifiers - test dl, 3 - jz @f - push edx - mcall 26, 2, 2, it_ascii_keymap - pop edx - @@: - - mov al, byte [it_keycode] - test al, al - jz @f - shl edx, 8 - mov dl, al - - mov eax, dword [it_hotkey_addr] - test eax, eax - jnz @f - - call it_set_keycode_name - - mov al, byte [hotkeys_num] - dec al - and eax, 0xFF - shl eax, 2;5 - add eax, dword Hotkeys.codes - mov dword [eax], edx - mov dword [it_hotkey_addr], eax - - mov cl, dl ; finally set hotkey - shr edx, 8 - mcall 66, 4 - @@: - - jmp it_still - - -it_test_key_modifiers: - push eax - mcall 66, 3 ;get control keys state - mov edx, eax - ;and edx, 0x00000FFF - .lshift: - test al, 1 ; LShift ? - jz .rshift - stdcall outtextxy, 10, 100, ctrl_key_names, 6, A_TEXTCOLOR - .rshift: - test al, 2 ; RShift ? - jz .lctrl - stdcall outtextxy, 184, 100, ctrl_key_names+29, 6, A_TEXTCOLOR - .lctrl: - test al, 4 ; LCtrl ? - jz .rctrl - stdcall outtextxy, 52, 100, ctrl_key_names+7, 5, A_TEXTCOLOR - .rctrl: - test al, 8 ; RCtrl ? - jz .lalt - stdcall outtextxy, 148, 100, ctrl_key_names+23, 5, A_TEXTCOLOR - .lalt: - test al, 0x10 ; LAlt ? - jz .ralt - stdcall outtextxy, 88, 100, ctrl_key_names+13, 4, A_TEXTCOLOR - .ralt: - test al, 0x20 ; RAlt ? - jz @f - stdcall outtextxy, 118, 100, ctrl_key_names+18, 4, A_TEXTCOLOR - @@: - pop eax -ret - - -it_set_keycode_name: - pusha - mov al, byte [hotkeys_num] - dec al - and eax, 0xFF - shl eax, 6 - mov edi, Hotkeys.code_names - add edi, eax - - mov ecx, 64 - xor ax, ax - call strnset - mcall 66, 3 ;get control keys state - .lshift: - test al, 1 ; LShift ? - jz .rshift - mov esi, ctrl_key_names - mov ecx, 6 - call strncat - - mov esi, aPlus - mov ecx, 3 - call strncat - ;stdcall outtextxy, 10, 100, ctrl_key_names, 6, 0x00FF0000 - .rshift: - test al, 2 ; RShift ? - jz .lctrl - mov esi, ctrl_key_names+29 - mov ecx, 6 - call strncat - - mov esi, aPlus - mov ecx, 3 - call strncat - ;stdcall outtextxy, 184, 100, ctrl_key_names+29, 6, 0x00FF0000 - .lctrl: - test al, 4 ; LCtrl ? - jz .rctrl - mov esi, ctrl_key_names+7 - mov ecx, 5 - call strncat - - mov esi, aPlus - mov ecx, 3 - call strncat - ;stdcall outtextxy, 52, 100, ctrl_key_names+7, 5, 0x00FF0000 - .rctrl: - test al, 8 ; RCtrl ? - jz .lalt - mov esi, ctrl_key_names+23 - mov ecx, 5 - call strncat - - mov esi, aPlus - mov ecx, 3 - call strncat - ;stdcall outtextxy, 148, 100, ctrl_key_names+23, 5, 0x00FF0000 - .lalt: - test al, 0x10 ; LAlt ? - jz .ralt - mov esi, ctrl_key_names+13 - mov ecx, 4 - call strncat - - mov esi, aPlus - mov ecx, 3 - call strncat - ;stdcall outtextxy, 88, 100, ctrl_key_names+13, 4, 0x00FF0000 - .ralt: - test al, 0x20 ; RAlt ? - jz @f - mov esi, ctrl_key_names+18 - mov ecx, 4 - call strncat - - mov esi, aPlus - mov ecx, 3 - call strncat - ;stdcall outtextxy, 118, 100, ctrl_key_names+18, 4, 0x00FF0000 - @@: - mov esi, it_ascii_keymap - and edx, 0xFF - add esi, edx - mov ecx, 1 - call strncat - - if 1;DEBUG - mov esi, edi;Hotkeys.code_names - call SysMsgBoardStr - newline - end if - - popa -ret - - -it_button: - mcall 17 ; Get pressed button code - cmp ah, 1 ; Test x button - jne @f - jmp close_app - @@: - jmp it_still - -it_mouse: - - push dword it_edit - call [edit_box_mouse] - - jmp it_still - -it_draw_window: - start_draw_window 450,WIN_Y+250,225,70,WIN_COLOR,it_labelt, 26;labellen-labelt - - push dword it_edit - call [edit_box_draw] - - stdcall outtextxy, 43, 50, it_hint, 0, 0x323232 - stdcall outtextxy, 10, 100, ctrl_key_names, 0, 0 - ;stdcall draw_button, 7,WIN_H-30,80,20,2,C_KEYCOLOR,AddKeyText, 0,C_TEXTCOLOR ; Add Hot key. - end_draw_window - mov byte [it_alive], 1 -ret - -;######################## Input Thread code end ########################## - - -; Read configuration file -ReadIni: - ; Get path - mov edi, ini_path - mov esi, app_path - call strlen - - .get_path: - cmp byte [app_path+ecx-1], '/' - je @f - loop .get_path - @@: - call strncpy - mov byte [ini_path+ecx], 0 - mov esi, aIni - call strlen - call strncat - - ; Get hotkey number - invoke ini_get_int, ini_path, aMain, aKeynum, 0 - - and eax, 0xFF - test al, al - jz .end - cmp al, MAX_HOTKEYS_NUM - jle @f - mov al, MAX_HOTKEYS_NUM - @@: - mov byte [hotkeys_num], al - - mov ecx, eax - xor eax, eax - .get_next_hotkey_values: - call set_next_hotkey_section_name - ; Get hotkey name - mov edi, eax - shl edi, 5 ; edi=eax*32 - add edi, dword Hotkeys - push eax ecx - invoke ini_get_str, ini_path, aHotkey, aName, edi, 32, 0 - pop ecx eax - ; Get hotkey code - mov edi, eax - shl edi, 2 ; edi=eax*4 - add edi, dword Hotkeys.codes - push eax ecx edx - invoke ini_get_int, ini_path, aHotkey, aKeycode, 0 - mov dword [it_hotkey_addr], edi - stosd - ; set hotkey - call reset_modifiers - pop edx ecx eax - ; Get hotkey code_name - mov edi, eax - shl edi, 6 ; edi=eax*64 - add edi, dword Hotkeys.code_names - push eax ecx - invoke ini_get_str, ini_path, aHotkey, aKeycodeName, edi, 64, 0 - pop ecx eax - ; Get hotkey path and param - push eax ecx - mov cl, byte PATH_MAX_CHARS - mul cl - mov edi, eax - push edi - add edi, dword [buf_cmd_line] - invoke ini_get_str, ini_path, aHotkey, aPath, edi, 32, 0 - pop edi - add edi, dword [buf_cmd_params] - invoke ini_get_str, ini_path, aHotkey, aParam, edi, 32, 0 - pop ecx eax - - inc al - dec ecx - test ecx, ecx - jnz .get_next_hotkey_values - .end: -ret - - -; Write configuration file -WriteIni: - mov edi, ini_path - ; Set hotkey number - movzx ecx, byte [hotkeys_num] - invoke ini_set_int, ini_path, aMain, aKeynum, ecx - - xor eax, eax - .get_next_hotkey_values: - call set_next_hotkey_section_name - ; Set hotkey name - push eax ecx - mov esi, eax - shl esi, 5 ; edi=eax*32 - add esi, dword Hotkeys - call strlen - invoke ini_set_str, ini_path, aHotkey, aName, esi, ecx - pop ecx eax - ; Set hotkey code - mov esi, eax - shl esi, 2 ; edi=eax*4 - add esi, dword Hotkeys.codes - push eax ecx edx - invoke ini_set_int, ini_path, aHotkey, aKeycode, dword [esi] - pop edx ecx eax - ; Set hotkey code_name - mov esi, eax - shl esi, 6 ; edi=eax*64 - add esi, dword Hotkeys.code_names - push eax ecx - call strlen - invoke ini_set_str, ini_path, aHotkey, aKeycodeName, esi, ecx - pop ecx eax - ; Set hotkey path and param - push eax ecx - ;inc al - mov cl, byte PATH_MAX_CHARS - mul cl - mov esi, eax - push esi - add esi, dword [buf_cmd_line] - call strlen - invoke ini_set_str, ini_path, aHotkey, aPath, esi, ecx - pop esi - add esi, dword [buf_cmd_params] - call strlen - invoke ini_set_str, ini_path, aHotkey, aParam, esi, ecx - pop ecx eax - - inc al - dec ecx - test ecx, ecx - jnz .get_next_hotkey_values - .end: -ret - - -set_next_hotkey_section_name: ;(eax - num) -; this code mainly from debug.inc - push eax ecx edi - mov edi, aHotkey - add edi, 6 ; + strlen("hotkey") - mov ecx, 10 - push -'0' - .l0: - xor edx, edx - div ecx - push edx - test eax, eax - jnz .l0 - .l1: - pop eax - add al, '0' - ;call debug_outchar - stosb - jnz .l1 - pop edi ecx eax -ret - - -;**************************************** -;* input: esi = pointer to keymap * -;* ah = scan code * -;* output: ah = ascii code * -;**************************************** -Scan2ASCII: - push esi - shr eax, 8 - add esi, eax - lodsb - shl eax, 8 - pop esi -ret - - - -;******************************************** -;* input: esi = pointer to the file name * -;* edx = pointer to the parametrs * -;******************************************** - -RunProgram: - pusha - mov dword [InfoStructure], 7 ; run program - mov dword [InfoStructure+4], 0 ; flags - mov dword [InfoStructure+8], edx ; pointer to the parametrs - mov dword [InfoStructure+12], 0 ; reserved - mov dword [InfoStructure+16], 0 ; reserved - mov dword [InfoStructure+20], 0 ; reserved - mov dword [InfoStructure+21], esi ; pointer to the file name - mcall 70, InfoStructure - cmp eax, 0 - jl .err_out - .out: - popa - clc - ret - .err_out: - if lang eq it_IT - print "Impossibile caricare il programma" -;-------------------------------------- - else - print "Can't load program" - - end if - popa - stc - ret - - -; DATA AREA - -; Application Title -labelt db 'MyKey v.0.2' -mykey_window dd 0 ; Slot number of MyKey - - -;########### Input Thread data start ############ - -; Input Thread Title -if lang eq it_IT - it_labelt db "Inserisci hotkey e nome " -;-------------------------------------- -else - it_labelt db "Input hotkey and it's name" - -end if -;labellen: -it_edit edit_box 180, 20, 30, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, 31, it_buf_cmd_line, 0, 0 -it_buf_cmd_line dd 0 ;db MAX_HOTKEYS_NUM*32 dup(0) ; !Make it dynamic!!! -it_window dd 0 ; Slot number of the input thread -it_alive db 0 ; Flag of the input thread existance -it_keycode db 0 -it_hotkey_addr dd 0 -if lang eq it_IT - it_hint db 'o premi Esc per cancellare',0 -;-------------------------------------- -else - it_hint db 'or press Esc to cancel',0 - -end if -;########### Input Thread data end ############ - -;Button names -if lang eq it_IT - AddKeyText db 'Aggiungi',0 - ReloadKeyText db 'Ricarica',0 - SaveKeyText db 'Salva',0 - ;DeleteKeyText db 'Delete',0 - ;ManageKeyText db 'Manage',0 -;-------------------------------------- -else - AddKeyText db 'Add',0 - ReloadKeyText db 'Reload',0 - SaveKeyText db 'Save',0 - ;DeleteKeyText db 'Delete',0 - ;ManageKeyText db 'Manage',0 - -end if - -hotkeys_num db 0;15 -;keyboard_mode db 0 ; Scan or ASCII keys to send ? 0 - ASCII , 1 - Scan -butt db FIRST_ITEM_BUTTON_ID ; Pressed button ID -modifiers dd 0 - -;Data structures for loadlib.mac and editbox_ex.mac [ -edit1 edit_box 350, 220, 30, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, PATH_MAX_CHARS+1, buf_cmd_line, 0, 0 -edit2 edit_box 350, 220, 50, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, PATH_MAX_CHARS+1, buf_cmd_params, 0, 0 - -buf_cmd_line dd 0 ;db MAX_HOTKEYS_NUM*PATH_MAX_CHARS dup(0) ; !Make it dynamic!!! -buf_cmd_params dd 0 ;db MAX_HOTKEYS_NUM*PATH_MAX_CHARS dup(0) ; !Make it dynamic!!! - -sys_path: -system_dir0 db '/sys/lib/' -boxlib_name db 'box_lib.obj',0 - -if lang eq it_IT - err_message_found_lib db "Non trovo box_lib.obj",0 - head_f_i: - head_f_l db 'Errore di sistema',0 - err_message_import db 'Error di importazione di box_lib.obj',0 -;-------------------------------------- -else - err_message_found_lib db "Can't find box_lib.obj",0 - head_f_i: - head_f_l db 'System error',0 - err_message_import db 'Error on import box_lib.obj',0 - -end if -align 4 -myimport: -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 - dd 0,0 - -aEdit_box_draw db 'edit_box_draw',0 -aEdit_box_key db 'edit_box_key',0 -aEdit_box_mouse db 'edit_box_mouse',0 -aVersion_ed db 'version_ed',0 - -align 16 -importTable: -library \ - libini, 'libini.obj';, \ -; boxlib, 'boxlib.obj', \ -; libio, 'libio.obj', \ - -;import boxlib, \ -;edit_box_draw , 'edit_box_draw', \ -;edit_box_key , 'edit_box_key', \ -;edit_box_mouse , 'edit_box_mouse', \ -;version_ed , 'version_ed' - - -import libini, \ - ini_get_str ,'ini_get_str', \ - ini_set_str ,'ini_set_str', \ - ini_get_int ,'ini_get_int', \ - ini_set_int ,'ini_set_int';, \ -; ini_get_color,'ini_get_color', \ -; ini_set_color,'ini_set_color' - - -;] Data structures for loadlib.mac and editbox_ex.mac - -InfoStructure: - dd 0x0 ; subfunction number - dd 0x0 ; position in the file in bytes - dd 0x0 ; upper part of the position address - dd 0x0 ; number of bytes to read - dd 0x0 ; pointer to the buffer to write data - db 0 - dd 0 ; pointer to the filename - - -I_END: ; End of application code and data marker - - rb 300 ;input thread stack size -input_thread_stack_top: - -ascii_keymap: - db 128 dup(?) -ctrl_key_names db 'LShift LCtrl LAlt RAlt RCtrl RShift',0 -aPlus db ' + ',0 -aIni db 'settings/mykey.ini',0 -aMain db 'main',0 -aKeynum db 'keynum',0 -aHotkey db 'hotkey',0,0,0 -aName db 'name',0 -aKeycode db 'keycode',0 -aKeycodeName db 'keycode_name',0 -aPath db 'path',0 -aParam db 'param',0 -aRamSaver db '/sys/rdsave',0 - -app_path rb 255 -ini_path rb 255 - -Hotkeys: ;(name = 32 b) + (modifiers = 3 b) + (keycode = 1 b) = 36 byte for 1 hotkey - .names: - db 'My1',0 - rb 28 - db 'My2',0 - rb 28 - db 'My3',0 - rb 28 - rb MAX_HOTKEYS_NUM*32-3 - .codes: - dd MAX_HOTKEYS_NUM dup (0) - .code_names: - rb MAX_HOTKEYS_NUM*64 - -it_ascii_keymap: +; +; MyKey. Version 0.2. +; +; Author: Asper +; Date of issue: 29.12.2009 +; Compiler: FASM +; Target: KolibriOS +; + +use32 + org 0x0 + + db 'MENUET01' ; 8 byte id + dd 38 ; required os + dd STARTAPP ; program start + dd I_END ; program image size + dd 0x1000000 ; required amount of memory + dd 0x1000000 ; stack heap + dd 0x0 + dd app_path + +include 'lang.inc' ; Language support for locales: it_IT, en_US. + +include 'string.inc' +;include 'macros.inc' +include '../../../macros.inc' +include 'ASPAPI.INC' +;include 'editbox_ex.mac' +include '../../../develop/libraries/box_lib/trunk/box_lib.mac' +;include 'load_lib.mac' +include '../../../develop/libraries/box_lib/load_lib.mac' +include '../../../dll.inc' + +include 'debug.inc' +DEBUG equ 0;1 + +N_KEYCOLOR equ 0x00EEEEEE ; Normal button color +C_KEYCOLOR equ 0x00CBE1E1 ; Control button color +A_KEYCOLOR equ 0x00FF6400;258778 ; Active button color +C_TEXTCOLOR equ 0x80000000 ; Button caption color +CA_TEXTCOLOR equ 0x80FFFFFF ; Active button caption color +A_TEXTCOLOR equ 0x00FFFFFF ; Active text color + +WIN_X equ 265 +WIN_Y equ 50;175 +WIN_W equ 595 +WIN_H equ 415 ;570 +WIN_COLOR equ 0x040099BB;0x04EEEEEE + +ITEM_BUTTON_W equ 192;100 +ITEM_BUTTON_H equ 23 +ITEM_BUTTON_SPACE equ 0 +FIRST_ITEM_BUTTON_ID equ 7 + +BUT_W equ 80 +BUT_H equ 20 + +MAX_HOTKEYS_NUM equ 15 ; Bad bounding :/. Until we have normal listbox control. +PATH_MAX_CHARS equ 255 + +@use_library + +STARTAPP: + ; Initialize memory + mcall 68, 11 + or eax,eax + jz close_app + ; Import libraries + sys_load_library boxlib_name, sys_path, boxlib_name, system_dir0, err_message_found_lib, head_f_l, myimport,err_message_import, head_f_i + cmp eax,-1 + jz close_app + stdcall dll.Load,importTable + test eax, eax + jnz close_app + + mcall 68, 12, MAX_HOTKEYS_NUM*PATH_MAX_CHARS ; Get memory for editboxes text + mov dword [buf_cmd_line], eax + mov dword [edit1.text], eax + mcall 68, 12, MAX_HOTKEYS_NUM*PATH_MAX_CHARS + mov dword [buf_cmd_params], eax + mov dword [edit2.text], eax + mcall 68, 12, MAX_HOTKEYS_NUM*32 + mov dword [it_buf_cmd_line], eax + mov dword [it_edit.text], eax + + call Load_HotkeyList + + mcall 66, 1, 1 ; Set keyboard mode to get scancodes. + mcall 26, 2, 1, ascii_keymap + +get_mykey_window_slot_number: + call draw_window + mcall 18, 7 + mov [mykey_window], eax + +set_event_mask: + mcall 40, 0xC0000027 + +red: + .test_slot: + mcall 18, 7 + mov ebx, [mykey_window] + cmp eax, ebx + jne @f + + mov ecx, [it_window] + cmp ebx, ecx + je @f + .activate_it_window: + mov al, byte [it_alive] + test al, al + jz @f + mov byte [it_alive], 0 + + mcall 18, 3 ; Activate input thread window + @@: + call draw_window + +still: + call reset_modifiers + + mcall 10 ; Wait for an event in the queue. + + cmp al,1 ; redraw request ? + jz red + cmp al,2 ; key in buffer ? + jz key + cmp al,3 ; button in buffer ? + jz button + cmp al,6 + jz mouse + + jmp still + +key: + mcall 2 + + push eax + mcall 66, 3 + ;mov edx, eax + ;and edx, 0x00000FF;F + mov dword [modifiers], eax;edx + pop eax + + test word [edit1.flags], 10b + jnz .editbox_input + test word [edit2.flags], 10b + jz @f + .editbox_input: + cmp ah, 0x80 ;if key up + ja still + cmp ah, 42 ;LShift + je still + cmp ah, 54 ;RShift + je still + cmp ah, 56 ;Alt + je still + cmp ah, 29 ;Ctrl + je still + cmp ah, 69 ;Pause/Break + je still + + mov esi, ascii_keymap + call Scan2ASCII + + push dword edit1 + call [edit_box_key] + + push dword edit2 + call [edit_box_key] + jmp still + @@: + + ;------------------------ + mov cl, byte [hotkeys_num] + .test_next_hotkey: + dec cl + mov bl, cl + and ebx, 0xFF + shl ebx, 2;5 +; mov esi, ebx + add ebx, dword Hotkeys.codes + + mov edx, dword [ebx] + cmp ah, dl + jne @f + + shr edx, 8 + cmp edx, dword [modifiers] + jne @f + + push eax + mov eax, PATH_MAX_CHARS + mul cl + mov edx, eax + add edx, dword [buf_cmd_params] + add eax, dword [buf_cmd_line] + mov esi, eax + pop eax + call RunProgram + jmp .end_test + @@: + or cl, cl + jnz .test_next_hotkey + .end_test: + ;------------------------ + + jmp still + +button: + mcall 17 ; Get pressed button code + cmp ah, 1 ; Test x button + je close_app + + cmp ah, 2 + jne @f + call AddHotKey + jmp red + @@: + cmp ah, 5 + jne @f + call Load_HotkeyList + jmp red + @@: + cmp ah, 6 + jne @f + call WriteIni + xor edx, edx + mov esi, aRamSaver + call RunProgram + @@: + + cmp ah, FIRST_ITEM_BUTTON_ID ; Test if pressed buttons + jb still ; is a HotKey button... + mov al, ah + sub al, FIRST_ITEM_BUTTON_ID + cmp al, byte [hotkeys_num] + jnb still ; ...so, if not then still, + + + mov byte [butt], ah ; if yes then save pressed button ID + and eax, 0xFF + mov cl, byte PATH_MAX_CHARS + mul cl + mov ebx, eax + add ebx, dword [buf_cmd_params] + add eax, dword [buf_cmd_line] + + mov dword [edit1.text], eax + mov dword [edit2.text], ebx + + mov esi, eax + call strlen + mov dword [edit1.size], ecx + mov dword [edit1.pos], ecx + + mov esi, ebx + call strlen + mov dword [edit2.size], ecx + mov dword [edit2.pos], ecx + + jmp red + +mouse: + push dword edit1 + call [edit_box_mouse] + push dword edit2 + call [edit_box_mouse] + + jmp still + + +close_app: + mov eax,-1 ; close this program + int 0x40 + + +draw_window: + start_draw_window WIN_X,WIN_Y,WIN_W,WIN_H,WIN_COLOR,labelt, 11;labellen-labelt + + ;bar 5, 24, 585, 385, 0x800000 or 0x90D2 + ;rectangle2 6, 25, 585, 385, 0xFFFFFF, 0 + + ;bar 5, 24, BUT_W+4, 350, 0x008C00D2;0x800000 or A_KEYCOLOR + ;rectangle2 6, 25, BUT_W+4, 350, 0xFFFFFF, 0 + + + push dword edit1 + call [edit_box_draw] + push dword edit2 + call [edit_box_draw] + + stdcall draw_button, 7,WIN_H-BUT_H-10,BUT_W,BUT_H,2,0x0050D250,AddKeyText, 0,C_TEXTCOLOR ; Add Hotkey. + if 0 + stdcall draw_button, 90,WIN_H-BUT_H-10,BUT_W,BUT_H,3,C_KEYCOLOR,DeleteKeyText,0,C_TEXTCOLOR ; Delete Hotkey. + stdcall draw_button, 173,WIN_H-BUT_H-10,BUT_W,BUT_H,4,C_KEYCOLOR,ManageKeyText,0,C_TEXTCOLOR ; Manage Hotkey. + end if + stdcall draw_button, WIN_W-BUT_W*2-14,WIN_H-BUT_H-10,BUT_W,BUT_H,5,0x0050D250,ReloadKeyText, 0,C_TEXTCOLOR ; Save Hotkeys list. + stdcall draw_button, WIN_W-BUT_W-7,WIN_H-BUT_H-10,BUT_W,BUT_H,6,0x0050D250,SaveKeyText, 0,C_TEXTCOLOR ; Save Hotkeys list. + + movzx ecx, byte [hotkeys_num] + cmp ecx, MAX_HOTKEYS_NUM + jng @f + mov ecx, MAX_HOTKEYS_NUM + @@: + mov eax, 30 + mov ebx, FIRST_ITEM_BUTTON_ID + @@: + or cl, cl + jz @f + + mov edx, ebx + sub edx, FIRST_ITEM_BUTTON_ID + shl edx, 5; edx=edx*32 + add edx, dword Hotkeys + + cmp bl, byte [butt] + jne .l1 + stdcall draw_button, 7,eax,ITEM_BUTTON_W,ITEM_BUTTON_H,ebx,A_KEYCOLOR ,edx,0,CA_TEXTCOLOR + bar 220, 70, 350, 30, 0x00C8E1F0 ;0x800000 or A_KEYCOLOR + rectangle2 221, 71, 350, 30, 0xFFFFFF, 0 + mov esi, Hotkeys.code_names + sub edx, dword Hotkeys + shl edx, 1 + add esi, edx + stdcall outtextxy, 225, 80, esi, 64, C_TEXTCOLOR + jmp .l2 + .l1: + stdcall draw_button, 7,eax,ITEM_BUTTON_W,ITEM_BUTTON_H,ebx,N_KEYCOLOR,edx,0,C_TEXTCOLOR + .l2: + + add eax, ITEM_BUTTON_H+ITEM_BUTTON_SPACE + inc ebx + dec cl + jmp @b + @@: + end_draw_window +ret + + +AddHotKey: + mov al, byte [hotkeys_num] + cmp al, MAX_HOTKEYS_NUM + jge .end + inc al + mov byte [hotkeys_num], al + + mcall 51, 1, dword start_input_thread, dword input_thread_stack_top + .end: +ret + + +Load_HotkeyList: + call ReadIni + + mov al, byte [butt] + and eax, 0xFF + sub al, FIRST_ITEM_BUTTON_ID + mov cl, byte PATH_MAX_CHARS + mul cl + mov ebx, eax + add eax, dword [buf_cmd_line] + add ebx, dword [buf_cmd_params] + + + ;mov [butt], FIRST_ITEM_BUTTON_ID + mov esi, eax + call strlen + mov dword [edit1.size], ecx + mov dword [edit1.pos], ecx + + mov esi, ebx + call strlen + mov dword [edit2.size], ecx + mov dword [edit2.pos], ecx +ret + + +reset_modifiers: + pusha + mov esi, dword [it_hotkey_addr] + test esi, esi + jz .end_set_mods + + lodsd + + ; Set new hotkey for the main thread + mov cl, al + shr eax, 8 + + xor edx, edx + push cx + mov cl, 3 + .next_pair: + shl edx, 4 + mov bl, al + and bl, 3 + + or bl, bl + jz .l1 + + cmp bl, 3 ; both? + jne @f + or dl, 2 + jmp .l1 + @@: + add bl, 2 + or dl, bl + .l1: + shr eax, 2 + dec cl + test cl, cl + jnz .next_pair + + mov bx, dx + and bx, 0xF0F + xchg bl, bh + and dx, 0x0F0 + or dx, bx + pop cx + + mcall 66, 4 + mov dword [it_hotkey_addr], 0 + .end_set_mods: + popa +ret + + +;######################## Input Thread code start ########################## + +start_input_thread: + mov ecx, 1 ; to get scancodes. + mcall 26, 2, 1, it_ascii_keymap + mcall 66, 1 ; Set keyboard mode + mov dword [it_hotkey_addr], 0 +it_set_editbox: + mov al, byte [hotkeys_num] + sub al, 1 + and eax, 0xFF + shl eax, 5 + add eax, dword Hotkeys.names + mov dword [it_edit.text], eax + + mov esi, eax + call strlen + mov dword [it_edit.size], ecx + mov dword [it_edit.pos], ecx +get_it_window_slot_number: + call it_draw_window + mcall 18, 7 + mov [it_window], eax + +it_set_event_mask: + mcall 40, 39 +it_red: + call it_draw_window + +it_still: + mcall 10 ; Wait for an event in the queue. + + cmp al,1 ; redraw request ? + jz it_red + cmp al,2 ; key in buffer ? + jz it_key + cmp al,3 ; button in buffer ? + jz it_button + cmp al,6 + jz it_mouse + + jmp it_still + +it_key: + mcall 2 + + mov byte [it_keycode], 0 + stdcall outtextxy, 10, 100, ctrl_key_names, 35, 0 + + cmp ah, 1 ;Esc + jne @f + dec byte [hotkeys_num] + jmp close_app + @@: + + cmp ah, 0x80 ;if key up + ja .end + cmp ah, 42 ;[Shift] (left) + je .end + cmp ah, 54 ;[Shift] (right) + je .end + cmp ah, 56 ;[Alt] + je .end + cmp ah, 29 ;[Ctrl] + je .end + cmp ah, 69 ;[Pause Break] + je .end + + mov byte [it_keycode], ah + mov esi, it_ascii_keymap + call Scan2ASCII + + test word [it_edit.flags], 10b + jz .end + push dword it_edit + call [edit_box_key] + jmp it_still + .end: + + mcall 26, 2, 1, it_ascii_keymap + call it_test_key_modifiers + test dl, 3 + jz @f + push edx + mcall 26, 2, 2, it_ascii_keymap + pop edx + @@: + + mov al, byte [it_keycode] + test al, al + jz @f + shl edx, 8 + mov dl, al + + mov eax, dword [it_hotkey_addr] + test eax, eax + jnz @f + + call it_set_keycode_name + + mov al, byte [hotkeys_num] + dec al + and eax, 0xFF + shl eax, 2;5 + add eax, dword Hotkeys.codes + mov dword [eax], edx + mov dword [it_hotkey_addr], eax + + mov cl, dl ; finally set hotkey + shr edx, 8 + mcall 66, 4 + @@: + + jmp it_still + + +it_test_key_modifiers: + push eax + mcall 66, 3 ;get control keys state + mov edx, eax + ;and edx, 0x00000FFF + .lshift: + test al, 1 ; LShift ? + jz .rshift + stdcall outtextxy, 10, 100, ctrl_key_names, 6, A_TEXTCOLOR + .rshift: + test al, 2 ; RShift ? + jz .lctrl + stdcall outtextxy, 184, 100, ctrl_key_names+29, 6, A_TEXTCOLOR + .lctrl: + test al, 4 ; LCtrl ? + jz .rctrl + stdcall outtextxy, 52, 100, ctrl_key_names+7, 5, A_TEXTCOLOR + .rctrl: + test al, 8 ; RCtrl ? + jz .lalt + stdcall outtextxy, 148, 100, ctrl_key_names+23, 5, A_TEXTCOLOR + .lalt: + test al, 0x10 ; LAlt ? + jz .ralt + stdcall outtextxy, 88, 100, ctrl_key_names+13, 4, A_TEXTCOLOR + .ralt: + test al, 0x20 ; RAlt ? + jz @f + stdcall outtextxy, 118, 100, ctrl_key_names+18, 4, A_TEXTCOLOR + @@: + pop eax +ret + + +it_set_keycode_name: + pusha + mov al, byte [hotkeys_num] + dec al + and eax, 0xFF + shl eax, 6 + mov edi, Hotkeys.code_names + add edi, eax + + mov ecx, 64 + xor ax, ax + call strnset + mcall 66, 3 ;get control keys state + .lshift: + test al, 1 ; LShift ? + jz .rshift + mov esi, ctrl_key_names + mov ecx, 6 + call strncat + + mov esi, aPlus + mov ecx, 3 + call strncat + ;stdcall outtextxy, 10, 100, ctrl_key_names, 6, 0x00FF0000 + .rshift: + test al, 2 ; RShift ? + jz .lctrl + mov esi, ctrl_key_names+29 + mov ecx, 6 + call strncat + + mov esi, aPlus + mov ecx, 3 + call strncat + ;stdcall outtextxy, 184, 100, ctrl_key_names+29, 6, 0x00FF0000 + .lctrl: + test al, 4 ; LCtrl ? + jz .rctrl + mov esi, ctrl_key_names+7 + mov ecx, 5 + call strncat + + mov esi, aPlus + mov ecx, 3 + call strncat + ;stdcall outtextxy, 52, 100, ctrl_key_names+7, 5, 0x00FF0000 + .rctrl: + test al, 8 ; RCtrl ? + jz .lalt + mov esi, ctrl_key_names+23 + mov ecx, 5 + call strncat + + mov esi, aPlus + mov ecx, 3 + call strncat + ;stdcall outtextxy, 148, 100, ctrl_key_names+23, 5, 0x00FF0000 + .lalt: + test al, 0x10 ; LAlt ? + jz .ralt + mov esi, ctrl_key_names+13 + mov ecx, 4 + call strncat + + mov esi, aPlus + mov ecx, 3 + call strncat + ;stdcall outtextxy, 88, 100, ctrl_key_names+13, 4, 0x00FF0000 + .ralt: + test al, 0x20 ; RAlt ? + jz @f + mov esi, ctrl_key_names+18 + mov ecx, 4 + call strncat + + mov esi, aPlus + mov ecx, 3 + call strncat + ;stdcall outtextxy, 118, 100, ctrl_key_names+18, 4, 0x00FF0000 + @@: + mov esi, it_ascii_keymap + and edx, 0xFF + add esi, edx + mov ecx, 1 + call strncat + + if 1;DEBUG + mov esi, edi;Hotkeys.code_names + call SysMsgBoardStr + newline + end if + + popa +ret + + +it_button: + mcall 17 ; Get pressed button code + cmp ah, 1 ; Test x button + jne @f + jmp close_app + @@: + jmp it_still + +it_mouse: + + push dword it_edit + call [edit_box_mouse] + + jmp it_still + +it_draw_window: + start_draw_window 450,WIN_Y+250,225,70,WIN_COLOR,it_labelt, 26;labellen-labelt + + push dword it_edit + call [edit_box_draw] + + stdcall outtextxy, 43, 50, it_hint, 0, 0x323232 + stdcall outtextxy, 10, 100, ctrl_key_names, 0, 0 + ;stdcall draw_button, 7,WIN_H-30,80,20,2,C_KEYCOLOR,AddKeyText, 0,C_TEXTCOLOR ; Add Hot key. + end_draw_window + mov byte [it_alive], 1 +ret + +;######################## Input Thread code end ########################## + + +; Read configuration file +ReadIni: + ; Get path + mov edi, ini_path + mov esi, app_path + call strlen + + .get_path: + cmp byte [app_path+ecx-1], '/' + je @f + loop .get_path + @@: + call strncpy + mov byte [ini_path+ecx], 0 + mov esi, aIni + call strlen + call strncat + + ; Get hotkey number + invoke ini_get_int, ini_path, aMain, aKeynum, 0 + + and eax, 0xFF + test al, al + jz .end + cmp al, MAX_HOTKEYS_NUM + jle @f + mov al, MAX_HOTKEYS_NUM + @@: + mov byte [hotkeys_num], al + + mov ecx, eax + xor eax, eax + .get_next_hotkey_values: + call set_next_hotkey_section_name + ; Get hotkey name + mov edi, eax + shl edi, 5 ; edi=eax*32 + add edi, dword Hotkeys + push eax ecx + invoke ini_get_str, ini_path, aHotkey, aName, edi, 32, 0 + pop ecx eax + ; Get hotkey code + mov edi, eax + shl edi, 2 ; edi=eax*4 + add edi, dword Hotkeys.codes + push eax ecx edx + invoke ini_get_int, ini_path, aHotkey, aKeycode, 0 + mov dword [it_hotkey_addr], edi + stosd + ; set hotkey + call reset_modifiers + pop edx ecx eax + ; Get hotkey code_name + mov edi, eax + shl edi, 6 ; edi=eax*64 + add edi, dword Hotkeys.code_names + push eax ecx + invoke ini_get_str, ini_path, aHotkey, aKeycodeName, edi, 64, 0 + pop ecx eax + ; Get hotkey path and param + push eax ecx + mov cl, byte PATH_MAX_CHARS + mul cl + mov edi, eax + push edi + add edi, dword [buf_cmd_line] + invoke ini_get_str, ini_path, aHotkey, aPath, edi, 32, 0 + pop edi + add edi, dword [buf_cmd_params] + invoke ini_get_str, ini_path, aHotkey, aParam, edi, 32, 0 + pop ecx eax + + inc al + dec ecx + test ecx, ecx + jnz .get_next_hotkey_values + .end: +ret + + +; Write configuration file +WriteIni: + mov edi, ini_path + ; Set hotkey number + movzx ecx, byte [hotkeys_num] + invoke ini_set_int, ini_path, aMain, aKeynum, ecx + + xor eax, eax + .get_next_hotkey_values: + call set_next_hotkey_section_name + ; Set hotkey name + push eax ecx + mov esi, eax + shl esi, 5 ; edi=eax*32 + add esi, dword Hotkeys + call strlen + invoke ini_set_str, ini_path, aHotkey, aName, esi, ecx + pop ecx eax + ; Set hotkey code + mov esi, eax + shl esi, 2 ; edi=eax*4 + add esi, dword Hotkeys.codes + push eax ecx edx + invoke ini_set_int, ini_path, aHotkey, aKeycode, dword [esi] + pop edx ecx eax + ; Set hotkey code_name + mov esi, eax + shl esi, 6 ; edi=eax*64 + add esi, dword Hotkeys.code_names + push eax ecx + call strlen + invoke ini_set_str, ini_path, aHotkey, aKeycodeName, esi, ecx + pop ecx eax + ; Set hotkey path and param + push eax ecx + ;inc al + mov cl, byte PATH_MAX_CHARS + mul cl + mov esi, eax + push esi + add esi, dword [buf_cmd_line] + call strlen + invoke ini_set_str, ini_path, aHotkey, aPath, esi, ecx + pop esi + add esi, dword [buf_cmd_params] + call strlen + invoke ini_set_str, ini_path, aHotkey, aParam, esi, ecx + pop ecx eax + + inc al + dec ecx + test ecx, ecx + jnz .get_next_hotkey_values + .end: +ret + + +set_next_hotkey_section_name: ;(eax - num) +; this code mainly from debug.inc + push eax ecx edi + mov edi, aHotkey + add edi, 6 ; + strlen("hotkey") + mov ecx, 10 + push -'0' + .l0: + xor edx, edx + div ecx + push edx + test eax, eax + jnz .l0 + .l1: + pop eax + add al, '0' + ;call debug_outchar + stosb + jnz .l1 + pop edi ecx eax +ret + + +;**************************************** +;* input: esi = pointer to keymap * +;* ah = scan code * +;* output: ah = ascii code * +;**************************************** +Scan2ASCII: + push esi + shr eax, 8 + add esi, eax + lodsb + shl eax, 8 + pop esi +ret + + + +;******************************************** +;* input: esi = pointer to the file name * +;* edx = pointer to the parametrs * +;******************************************** + +RunProgram: + pusha + mov dword [InfoStructure], 7 ; run program + mov dword [InfoStructure+4], 0 ; flags + mov dword [InfoStructure+8], edx ; pointer to the parametrs + mov dword [InfoStructure+12], 0 ; reserved + mov dword [InfoStructure+16], 0 ; reserved + mov dword [InfoStructure+20], 0 ; reserved + mov dword [InfoStructure+21], esi ; pointer to the file name + mcall 70, InfoStructure + cmp eax, 0 + jl .err_out + .out: + popa + clc + ret + .err_out: + if lang eq it_IT + print "Impossibile caricare il programma" + else ; Default to en_US + print "Cannot load program" + end if + popa + stc + ret + + +; DATA AREA + +; Application Title +labelt db 'MyKey v.0.2' +mykey_window dd 0 ; Slot number of MyKey + + +;########### Input Thread data start ############ + +; Input Thread Title + +if lang eq it_IT + it_labelt db "Inserisci hotkey e nome " +else ; Default to en_US + it_labelt db "Input hotkey and its name" +end if + +;labellen: +it_edit edit_box 180, 20, 30, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, 31, it_buf_cmd_line, 0, 0 +it_buf_cmd_line dd 0 ;db MAX_HOTKEYS_NUM*32 dup(0) ; !Make it dynamic!!! +it_window dd 0 ; Slot number of the input thread +it_alive db 0 ; Flag of the input thread existance +it_keycode db 0 +it_hotkey_addr dd 0 + +if lang eq it_IT + it_hint db 'o premi Esc per cancellare',0 +else ; Default to en_US + it_hint db 'or press Esc to cancel',0 +end if + +;########### Input Thread data end ############ + +;Button names +if lang eq it_IT + AddKeyText db 'Aggiungi',0 + ReloadKeyText db 'Ricarica',0 + SaveKeyText db 'Salva',0 + ;DeleteKeyText db 'Delete',0 + ;ManageKeyText db 'Manage',0 +else ; Default to en_US + AddKeyText db 'Add',0 + ReloadKeyText db 'Reload',0 + SaveKeyText db 'Save',0 + ;DeleteKeyText db 'Delete',0 + ;ManageKeyText db 'Manage',0 +end if + +hotkeys_num db 0;15 +;keyboard_mode db 0 ; Scan or ASCII keys to send ? 0 - ASCII , 1 - Scan +butt db FIRST_ITEM_BUTTON_ID ; Pressed button ID +modifiers dd 0 + +;Data structures for loadlib.mac and editbox_ex.mac [ +edit1 edit_box 350, 220, 30, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, PATH_MAX_CHARS+1, buf_cmd_line, 0, 0 +edit2 edit_box 350, 220, 50, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, PATH_MAX_CHARS+1, buf_cmd_params, 0, 0 + +buf_cmd_line dd 0 ;db MAX_HOTKEYS_NUM*PATH_MAX_CHARS dup(0) ; !Make it dynamic!!! +buf_cmd_params dd 0 ;db MAX_HOTKEYS_NUM*PATH_MAX_CHARS dup(0) ; !Make it dynamic!!! + +sys_path: +system_dir0 db '/sys/lib/' +boxlib_name db 'box_lib.obj',0 + +if lang eq it_IT + err_message_found_lib db "Non trovo box_lib.obj",0 + head_f_i: + head_f_l db 'Errore di sistema',0 + err_message_import db 'Error di importazione di box_lib.obj',0 +else ; Default to en_US + err_message_found_lib db "Can't find box_lib.obj",0 + head_f_i: + head_f_l db 'System error',0 + err_message_import db 'Error on import box_lib.obj',0 +end if + +align 4 +myimport: +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 + dd 0,0 + +aEdit_box_draw db 'edit_box_draw',0 +aEdit_box_key db 'edit_box_key',0 +aEdit_box_mouse db 'edit_box_mouse',0 +aVersion_ed db 'version_ed',0 + +align 16 +importTable: +library \ + libini, 'libini.obj';, \ +; boxlib, 'boxlib.obj', \ +; libio, 'libio.obj', \ + +;import boxlib, \ +;edit_box_draw , 'edit_box_draw', \ +;edit_box_key , 'edit_box_key', \ +;edit_box_mouse , 'edit_box_mouse', \ +;version_ed , 'version_ed' + + +import libini, \ + ini_get_str ,'ini_get_str', \ + ini_set_str ,'ini_set_str', \ + ini_get_int ,'ini_get_int', \ + ini_set_int ,'ini_set_int';, \ +; ini_get_color,'ini_get_color', \ +; ini_set_color,'ini_set_color' + + +;] Data structures for loadlib.mac and editbox_ex.mac + +InfoStructure: + dd 0x0 ; subfunction number + dd 0x0 ; position in the file in bytes + dd 0x0 ; upper part of the position address + dd 0x0 ; number of bytes to read + dd 0x0 ; pointer to the buffer to write data + db 0 + dd 0 ; pointer to the filename + + +I_END: ; End of application code and data marker + + rb 300 ;input thread stack size +input_thread_stack_top: + +ascii_keymap: + db 128 dup(?) +ctrl_key_names db 'LShift LCtrl LAlt RAlt RCtrl RShift',0 +aPlus db ' + ',0 +aIni db 'settings/mykey.ini',0 +aMain db 'main',0 +aKeynum db 'keynum',0 +aHotkey db 'hotkey',0,0,0 +aName db 'name',0 +aKeycode db 'keycode',0 +aKeycodeName db 'keycode_name',0 +aPath db 'path',0 +aParam db 'param',0 +aRamSaver db '/sys/rdsave',0 + +app_path rb 255 +ini_path rb 255 + +Hotkeys: ;(name = 32 b) + (modifiers = 3 b) + (keycode = 1 b) = 36 byte for 1 hotkey + .names: + db 'My1',0 + rb 28 + db 'My2',0 + rb 28 + db 'My3',0 + rb 28 + rb MAX_HOTKEYS_NUM*32-3 + .codes: + dd MAX_HOTKEYS_NUM dup (0) + .code_names: + rb MAX_HOTKEYS_NUM*64 + +it_ascii_keymap: diff --git a/programs/system/calendar/trunk/data.inc b/programs/system/calendar/trunk/data.inc index ddae8fbafc..90b6db103a 100644 --- a/programs/system/calendar/trunk/data.inc +++ b/programs/system/calendar/trunk/data.inc @@ -1,321 +1,323 @@ -; program data - -curMonth dd ? -curYear dd ? -curDay dd ? - -remainder dd ? -quotient dd ? - -firstday dd ? -Year dd ? -Month dd ? -day_sel dd ? - -datestr dd ? -leap_year dd ? -number dd ? - -; colors -COL_WINDOW_BG equ 0x54E7E7E7 -COL_TOOLBAR_BG equ 0x555555 -COL_ACTIVE_TEXT equ 0x10e7c750 -COL_WEEKDAY_BG equ 0xCCCDDD -COL_DATE_BUTTONS equ 0xF3F3F3 -COL_TIME_BUTTONS equ 0x5555dd -COL_GO_TODAY_T equ 0xd048c8 -COL_MONTH_YEAR_B equ 0x555555 -COL_DROPDOWN_BG equ 0x666666 -COL_DROPDOWN_T equ 0x10CCCccc -COL_NEW_STYLE_T equ 0xef3333 - -COL_DATE_INACTIVE_1 equ 0x388CAF -COL_DATE_INACTIVE_2 equ 0x75B9D5 -COL_DATE_INACTIVE_3 equ 0x9ECBDF -COL_DATE_INACTIVE_4 equ 0xABD7E8 - -COL_DATE_ACTIVE_1 equ 0xA57F2C -COL_DATE_ACTIVE_2 equ 0xEFB52D -COL_DATE_ACTIVE_3 equ 0xFAD84C -COL_DATE_ACTIVE_4 equ 0xFAE995 - -COL_DATE_1 equ 0x8C8C8C -COL_DATE_2 equ 0xFFFfff -COL_DATE_3 equ 0xF2F2F2 -COL_DATE_4 equ 0xF2F2F2 - -; definitions -WIN_W equ 275 -WIN_H equ 326 - -DATE_BUTTON_WIDTH equ 32 -DATE_BUTTON_HEIGHT equ 30 - - -LINE1 equ 27 shl 16+16 -B_MONTH_X equ 15 shl 16+158 -B_Y equ LINE1 -B_MONTH equ 63 shl 16+27 - -BT_WBAR_Y equ 283 shl 16+43 - -B_WBAR_X equ 1 shl 16+WIN_W-1 -B_WBAR_Y equ 64 shl 16+20 -B_WEEK equ 34 shl 16+66 -B_WX_SHIFT equ 32 shl 16 - -B_DROP equ B_MONTH+16 -B_DAYS_Y equ 106 -B_DAYS_SHIFT equ 30 - -B_YEAR equ 204 shl 16+28 - -B_SPIN_X equ 186 shl 16+12 -B_SPIN equ 188 shl 16+28 -spinner db '< >' - -B_TODAY_X equ 25 shl 16 -B_TODAY_Y equ 48 shl 16+10 -B_TODAY equ 30 shl 16+50 - -B_NS_X equ 185 shl 16+75 -B_NS_Y equ 48 shl 16+10 -B_NS equ 190 shl 16+50 - -FOCUSABLE equ 4 - -; multilanguage interface - configuratable in lang.inc -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 - -month_name: -if lang eq ru_RU - db 8 - db 'Январь ' - db 'Февраль ' - db 'Март ' - db 'Апрель ' - db 'Май ' - db 'Июнь ' - db 'Июль ' - db 'Август ' - db 'Сентябрь' - db 'Октябрь ' - db 'Ноябрь ' - db 'Декабрь ' -else if lang eq de_DE - db 9 - db 'Januar ' - db 'Februar ' - db 'M+rz ' - db 'April ' - db 'Mai ' - db 'Juni ' - db 'Juli ' - db 'August ' - db 'September' - db 'Oktober ' - db 'November ' - db 'Dezember ' -else if lang eq fr_FR - db 9 - db 'Janvier ' - db 'Fevrier ' - db 'Mars ' - db 'Avril ' - db 'Mai ' - db 'Juin ' - db 'Juliet ' - db 'Aout ' - db 'Septembre' - db 'Octobre ' - db 'Novembre ' - db 'Decembre ' -else if lang eq fi_FI - db 9 - db 'Tammikuu ' - db 'Helmikuu ' - db 'Maaliskuu' - db 'Huhtikuu ' - db 'Toukokuu ' - db 'Kes+kuu ' - db 'Hein+kuu ' - db 'Elokuu ' - db 'Syyskuu ' - db 'Lokakuu ' - db 'Marraskuu' - db 'Joulukuu ' -else if lang eq et_EE - db 9 - db 'Jaanuar ' - db 'Veebruar ' - db 'Mфrts ' - db 'Aprill ' - db 'Mai ' - db 'Juuni ' - db 'Juuli ' - db 'August ' - db 'September' - db 'Oktoober ' - db 'November ' - db 'Detsember' -else if lang eq it_IT - db 9 - db 'Gennaio ' - db 'Febbraio ' - db 'Marzo ' - db 'Aprile ' - db 'Maggio ' - db 'Giugno ' - db 'Luglio ' - db 'Agosto ' - db 'Settembre' - db 'Ottobre ' - db 'Novembre ' - db 'Dicembre ' -else - db 9 - db 'January ' - db 'February ' - db 'March ' - db 'April ' - db 'May ' - db 'June ' - db 'July ' - db 'August ' - db 'September' - db 'October ' - db 'November ' - db 'December ' -end if -week_days: -if lang eq ru_RU - db 2 - db 1 - db 'Пн' - db 'Вт' - db 'Ср' - db 'Чт' - db 'Пт' - db 'Сб' - db 'Вс' -else if lang eq de_DE - db 2 - db 7 - db 'So' - db 'Mo' - db 'Di' - db 'Mi' - db 'Do' - db 'Fr' - db 'Sa' -else if lang eq fr_FR - db 3 - db 7 - db 'Dim' - db 'Lun' - db 'Mar' - db 'Mer' - db 'Jeu' - db 'Ven' - db 'Sam' -else if lang eq fi_FI - db 2 - db 7 - db 'Su' - db 'Ma' - db 'Ti' - db 'Ke' - db 'To' - db 'Pe' - db 'La' -else if lang eq et_EE - db 3 - db 7 - db 'Esm' - db 'Tei' - db 'Kol' - db 'Nel' - db 'Ree' - db 'Lau' - db 'P№h' -else if lang eq it_IT - db 3 - db 7 - db 'Dom' - db 'Lun' - db 'Mar' - db 'Mer' - db 'Gio' - db 'Ven' - db 'Sab' -else - db 3 - db 7 - db 'Sun' - db 'Mon' - db 'Tue' - db 'Wed' - db 'Thu' - db 'Fri' - db 'Sat' -end if - -title: -if lang eq ru_RU - db 'Календарь',0 -else if lang eq de_DE - db 'Kalender',0 -else if lang eq fr_FR - db 'Calendrier',0 -else if lang eq et_EE - db 'Kalender',0 -else if lang eq it_IT - db 'Calendario',0 -else - db 'Calendar',0 -end if - -today_msg: -if lang eq ru_RU - db 'Сегодня' -else if lang eq de_DE - db 'Heute' -else if lang eq fr_FR - db "Aujourd'hui" -else if lang eq et_EE - db 'Tфna' -else if lang eq it_IT - db 'Oggi' -else - db 'Today' -end if -today_end: -focus dd 3 -new_style dd 1 -dropped db 0 - -sys_text: -if lang eq ru_RU - db 'Время',0 -else if lang eq it_IT - db ' Ora',0 -else if lang eq et_EE - db ' Aeg ',0 -else - db ' Time',0 -end if -separator db ':',0 -plus db '+',0 -minus db '-',0 -set_date_t: -if lang eq ru_RU - db 'Установить дату',0 -else if lang eq it_IT - db ' Impostazioni ',0 -else if lang eq et_EE - db ' Mффra kuupфev ',0 -else - db ' Set date ',0 -end if - +; program data + +curMonth dd ? +curYear dd ? +curDay dd ? + +remainder dd ? +quotient dd ? + +firstday dd ? +Year dd ? +Month dd ? +day_sel dd ? + +datestr dd ? +leap_year dd ? +number dd ? + +; colors +COL_WINDOW_BG equ 0x54E7E7E7 +COL_TOOLBAR_BG equ 0x555555 +COL_ACTIVE_TEXT equ 0x10e7c750 +COL_WEEKDAY_BG equ 0xCCCDDD +COL_DATE_BUTTONS equ 0xF3F3F3 +COL_TIME_BUTTONS equ 0x5555dd +COL_GO_TODAY_T equ 0xd048c8 +COL_MONTH_YEAR_B equ 0x555555 +COL_DROPDOWN_BG equ 0x666666 +COL_DROPDOWN_T equ 0x10CCCccc +COL_NEW_STYLE_T equ 0xef3333 + +COL_DATE_INACTIVE_1 equ 0x388CAF +COL_DATE_INACTIVE_2 equ 0x75B9D5 +COL_DATE_INACTIVE_3 equ 0x9ECBDF +COL_DATE_INACTIVE_4 equ 0xABD7E8 + +COL_DATE_ACTIVE_1 equ 0xA57F2C +COL_DATE_ACTIVE_2 equ 0xEFB52D +COL_DATE_ACTIVE_3 equ 0xFAD84C +COL_DATE_ACTIVE_4 equ 0xFAE995 + +COL_DATE_1 equ 0x8C8C8C +COL_DATE_2 equ 0xFFFfff +COL_DATE_3 equ 0xF2F2F2 +COL_DATE_4 equ 0xF2F2F2 + +; definitions +WIN_W equ 275 +WIN_H equ 326 + +DATE_BUTTON_WIDTH equ 32 +DATE_BUTTON_HEIGHT equ 30 + + +LINE1 equ 27 shl 16+16 +B_MONTH_X equ 15 shl 16+158 +B_Y equ LINE1 +B_MONTH equ 63 shl 16+27 + +BT_WBAR_Y equ 283 shl 16+43 + +B_WBAR_X equ 1 shl 16+WIN_W-1 +B_WBAR_Y equ 64 shl 16+20 +B_WEEK equ 34 shl 16+66 +B_WX_SHIFT equ 32 shl 16 + +B_DROP equ B_MONTH+16 +B_DAYS_Y equ 106 +B_DAYS_SHIFT equ 30 + +B_YEAR equ 204 shl 16+28 + +B_SPIN_X equ 186 shl 16+12 +B_SPIN equ 188 shl 16+28 +spinner db '< >' + +B_TODAY_X equ 25 shl 16 +B_TODAY_Y equ 48 shl 16+10 +B_TODAY equ 30 shl 16+50 + +B_NS_X equ 185 shl 16+75 +B_NS_Y equ 48 shl 16+10 +B_NS equ 190 shl 16+50 + +FOCUSABLE equ 4 + +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 + +; Multilanguage interface - configurable in lang.inc +; Language support for locales: ru_RU (CP866), de_DE, fr_FR, fi_FI, et_EE, it_IT, en_US + +month_name: +if lang eq ru_RU + db 8 + db 'Январь ' + db 'Февраль ' + db 'Март ' + db 'Апрель ' + db 'Май ' + db 'Июнь ' + db 'Июль ' + db 'Август ' + db 'Сентябрь' + db 'Октябрь ' + db 'Ноябрь ' + db 'Декабрь ' +else if lang eq de_DE + db 9 + db 'Januar ' + db 'Februar ' + db 'M+rz ' + db 'April ' + db 'Mai ' + db 'Juni ' + db 'Juli ' + db 'August ' + db 'September' + db 'Oktober ' + db 'November ' + db 'Dezember ' +else if lang eq fr_FR + db 9 + db 'Janvier ' + db 'Fevrier ' + db 'Mars ' + db 'Avril ' + db 'Mai ' + db 'Juin ' + db 'Juliet ' + db 'Aout ' + db 'Septembre' + db 'Octobre ' + db 'Novembre ' + db 'Decembre ' +else if lang eq fi_FI + db 9 + db 'Tammikuu ' + db 'Helmikuu ' + db 'Maaliskuu' + db 'Huhtikuu ' + db 'Toukokuu ' + db 'Kes+kuu ' + db 'Hein+kuu ' + db 'Elokuu ' + db 'Syyskuu ' + db 'Lokakuu ' + db 'Marraskuu' + db 'Joulukuu ' +else if lang eq et_EE + db 9 + db 'Jaanuar ' + db 'Veebruar ' + db 'Mфrts ' + db 'Aprill ' + db 'Mai ' + db 'Juuni ' + db 'Juuli ' + db 'August ' + db 'September' + db 'Oktoober ' + db 'November ' + db 'Detsember' +else if lang eq it_IT + db 9 + db 'Gennaio ' + db 'Febbraio ' + db 'Marzo ' + db 'Aprile ' + db 'Maggio ' + db 'Giugno ' + db 'Luglio ' + db 'Agosto ' + db 'Settembre' + db 'Ottobre ' + db 'Novembre ' + db 'Dicembre ' +else ; Default to en_US + db 9 + db 'January ' + db 'February ' + db 'March ' + db 'April ' + db 'May ' + db 'June ' + db 'July ' + db 'August ' + db 'September' + db 'October ' + db 'November ' + db 'December ' +end if +week_days: +if lang eq ru_RU + db 2 + db 1 + db 'Пн' + db 'Вт' + db 'Ср' + db 'Чт' + db 'Пт' + db 'Сб' + db 'Вс' +else if lang eq de_DE + db 2 + db 7 + db 'So' + db 'Mo' + db 'Di' + db 'Mi' + db 'Do' + db 'Fr' + db 'Sa' +else if lang eq fr_FR + db 3 + db 7 + db 'Dim' + db 'Lun' + db 'Mar' + db 'Mer' + db 'Jeu' + db 'Ven' + db 'Sam' +else if lang eq fi_FI + db 2 + db 7 + db 'Su' + db 'Ma' + db 'Ti' + db 'Ke' + db 'To' + db 'Pe' + db 'La' +else if lang eq et_EE + db 3 + db 7 + db 'Esm' + db 'Tei' + db 'Kol' + db 'Nel' + db 'Ree' + db 'Lau' + db 'P№h' +else if lang eq it_IT + db 3 + db 7 + db 'Dom' + db 'Lun' + db 'Mar' + db 'Mer' + db 'Gio' + db 'Ven' + db 'Sab' +else ; Default to en_US + db 3 + db 7 + db 'Sun' + db 'Mon' + db 'Tue' + db 'Wed' + db 'Thu' + db 'Fri' + db 'Sat' +end if + +title: +if lang eq ru_RU + db 'Календарь',0 +else if lang eq de_DE + db 'Kalender',0 +else if lang eq fr_FR + db 'Calendrier',0 +else if lang eq et_EE + db 'Kalender',0 +else if lang eq it_IT + db 'Calendario',0 +else ; Default to en_US + db 'Calendar',0 +end if + +today_msg: +if lang eq ru_RU + db 'Сегодня' +else if lang eq de_DE + db 'Heute' +else if lang eq fr_FR + db "Aujourd'hui" +else if lang eq et_EE + db 'Tфna' +else if lang eq it_IT + db 'Oggi' +else ; Default to en_US + db 'Today' +end if +today_end: +focus dd 3 +new_style dd 1 +dropped db 0 + +sys_text: +if lang eq ru_RU + db 'Время',0 +else if lang eq it_IT + db ' Ora',0 +else if lang eq et_EE + db ' Aeg ',0 +else ; Default to en_US + db ' Time',0 +end if +separator db ':',0 +plus db '+',0 +minus db '-',0 + +set_date_t: +if lang eq ru_RU + db 'Установить дату',0 +else if lang eq it_IT + db ' Impostazioni ',0 +else if lang eq et_EE + db ' Mффra kuupфev ',0 +else ; Default to en_US + db ' Set date ',0 +end if diff --git a/programs/system/cd_tray/CD_tray.ASM b/programs/system/cd_tray/CD_tray.ASM index 0e74fa9c0e..60fcd5ddbd 100644 --- a/programs/system/cd_tray/CD_tray.ASM +++ b/programs/system/cd_tray/CD_tray.ASM @@ -1,163 +1,165 @@ -; -; ╙яЁртыхэшх ыюЄърьш фшёъют√ї яЁштюфют ATAPI -; 22.07.2007 Mario79 шёїюфэ√щ трЁшрэЄ -;--------------------------------------------------------------------- - - use32 ; тъы■ўшЄ№ 32-сшЄэ√щ Ёхцшь рёёхьсыхЁр - org 0x0 ; рфЁхёрЎш  ё эєы  - - db 'MENUET01' ; 8-срщЄэ√щ шфхэЄшЇшърЄюЁ MenuetOS - dd 0x01 ; тхЁёш  чруюыютър (тёхуфр 1) - dd START ; рфЁхё яхЁтющ ъюьрэф√ - dd I_END ; ЁрчьхЁ яЁюуЁрьь√ - dd 0x11000 ; ъюышўхёЄтю ярь Єш - dd 0x11000 ; рфЁхё тхЁ°шэ√ ёЄ¤ър - dd 0x0 ; рфЁхё сєЇхЁр фы  ярЁрьхЄЁют (эх шёяюы№чєхЄё ) - dd 0x0 ; чрЁхчхЁтшЁютрэю - -include 'macros.inc' ; ьръЁюё√ юсыхуўр■Є цшчэ№ рёёхьсыхЁ∙шъют! - -;--------------------------------------------------------------------- -;--- ═└╫└╦╬ ╧╨╬├╨└╠╠█ ---------------------------------------------- -;--------------------------------------------------------------------- - -START: - -red: ; яхЁхЁшёютрЄ№ юъэю - call draw_window ; т√ч√трхь яЁюЎхфєЁє юЄЁшёютъш юъэр - -;--------------------------------------------------------------------- -;--- ╓╚╩╦ ╬┴╨└┴╬╥╩╚ ╤╬┴█╥╚╔ ---------------------------------------- -;--------------------------------------------------------------------- - -still: - mcall 10 ; ЇєэъЎш  10 - цфрЄ№ ёюс√Єш  - - cmp eax,1 ; яхЁхЁшёютрЄ№ юъэю ? - je red ; хёыш фр - эр ьхЄъє red - cmp eax,2 ; эрцрЄр ъыртш°р ? - je key ; хёыш фр - эр key - cmp eax,3 ; эрцрЄр ъэюяър ? - je button ; хёыш фр - эр button - - jmp still ; хёыш фЁєуюх ёюс√Єшх - т эрўрыю Ўшъыр - - -;--------------------------------------------------------------------- - - - key: ; эрцрЄр ъыртш°р эр ъыртшрЄєЁх - mcall 2 ; ЇєэъЎш  2 - ёўшЄрЄ№ ъюф ёшьтюыр (т ah) - - jmp still ; тхЁэєЄ№ё  ъ эрўрыє Ўшъыр - -;--------------------------------------------------------------------- - - button: - mcall 17 ; 17 - яюыєўшЄ№ шфхэЄшЇшърЄюЁ эрцрЄющ ъэюяъш -; ъэюяъш 2,3,4,5 - load tray CD0/CD1/CD2/CD3 - movzx ecx, ah - sub ecx, 2 - cmp ecx, 3 - ja b6 - mcall 24,5 - jmp red - b6: -; ъэюяъш 6,7,8,9 - eject tray CD0/CD1/CD2/CD3 - sub ecx, 4 - cmp ecx, 3 - ja b1 - mcall 24,4 - jmp red - b1: - cmp ah, 1 ; хёыш ═┼ эрцрЄр ъэюяър ё эюьхЁюь 1, - jne still ; тхЁэєЄ№ё  - - .exit: - mcall -1 ; шэрўх ъюэхЎ яЁюуЁрьь√ - - - -;--------------------------------------------------------------------- -;--- ╬╧╨┼─┼╦┼═╚┼ ╚ ╬╥╨╚╤╬┬╩└ ╬╩═└ ---------------------------------- -;--------------------------------------------------------------------- - -draw_window: - mcall 12, 1 ; ЇєэъЎш  12: ёююс∙шЄ№ ╬╤ юс юЄЁшёютъх юъэр - ; 1 - эрўшэрхь ЁшёютрЄ№ - ; ╤╬╟─└ш╠ ╬╩═╬ - - if lang eq it_IT - mcall 0, <100,250>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0 - else - mcall 0, <100,230>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0 - end if - mcall 71, 1 ,header - mcall 8,<15,42>,<40,20>,2,0xaaaaaa - call draw_buttons - mov edx,6 - add ecx,30 shl 16 - mcall - call draw_buttons - - if lang eq it_IT - mcall 4, <16,25>, 0x80ffffff,text1 - else - mcall 4, <25,25>, 0x80ffffff,text1 - end if - mov edx,text2 - - add ebx,3 shl 16+20 - mcall - mov edx,text3 - add ebx,30 - sub ebx,3 shl 16 - mcall - - mcall 12, 2 ; ЇєэъЎш  12: ёююс∙шЄ№ ╬╤ юс юЄЁшёютъх юъэр - ; 2, чръюэўшыш ЁшёютрЄ№ - - ret ; т√їюфшь шч яЁюЎхфєЁ√ - -draw_buttons: - pusha - if lang eq it_IT - add ebx,60 shl 16 - else - add ebx,50 shl 16 - end if - inc edx - mcall - if lang eq it_IT - add ebx,60 shl 16 - else - add ebx,50 shl 16 - end if - inc edx - mcall - if lang eq it_IT - add ebx,60 shl 16 - else - add ebx,50 shl 16 - end if - inc edx - mcall - popa - ret -;--------------------------------------------------------------------- -;--- ─└══█┼ ╧╨╬├╨└╠╠█ ---------------------------------------------- -;--------------------------------------------------------------------- -header db ' ATAPI Device Tray Control',0 -if lang eq it_IT - text3 db 'espelli espelli espelli espelli',0 - text2 db 'carica carica carica carica',0 - text1 db '/cd0/ /cd1/ /cd2/ /cd3/',0 -else - text3 db 'eject eject eject eject',0 - text2 db 'load load load load',0 - text1 db '/cd0/ /cd1/ /cd2/ /cd3/',0 -end if - -;--------------------------------------------------------------------- - -I_END: ; ьхЄър ъюэЎр яЁюуЁрьь√ +; +; ╙яЁртыхэшх ыюЄърьш фшёъют√ї яЁштюфют ATAPI +; 22.07.2007 Mario79 шёїюфэ√щ трЁшрэЄ +;--------------------------------------------------------------------- + + use32 ; тъы■ўшЄ№ 32-сшЄэ√щ Ёхцшь рёёхьсыхЁр + org 0x0 ; рфЁхёрЎш  ё эєы  + + db 'MENUET01' ; 8-срщЄэ√щ шфхэЄшЇшърЄюЁ MenuetOS + dd 0x01 ; тхЁёш  чруюыютър (тёхуфр 1) + dd START ; рфЁхё яхЁтющ ъюьрэф√ + dd I_END ; ЁрчьхЁ яЁюуЁрьь√ + dd 0x11000 ; ъюышўхёЄтю ярь Єш + dd 0x11000 ; рфЁхё тхЁ°шэ√ ёЄ¤ър + dd 0x0 ; рфЁхё сєЇхЁр фы  ярЁрьхЄЁют (эх шёяюы№чєхЄё ) + dd 0x0 ; чрЁхчхЁтшЁютрэю + +; Language support for locales: it_IT, en_US. + +include 'macros.inc' ; ьръЁюё√ юсыхуўр■Є цшчэ№ рёёхьсыхЁ∙шъют! + +;--------------------------------------------------------------------- +;--- ═└╫└╦╬ ╧╨╬├╨└╠╠█ ---------------------------------------------- +;--------------------------------------------------------------------- + +START: + +red: ; яхЁхЁшёютрЄ№ юъэю + call draw_window ; т√ч√трхь яЁюЎхфєЁє юЄЁшёютъш юъэр + +;--------------------------------------------------------------------- +;--- ╓╚╩╦ ╬┴╨└┴╬╥╩╚ ╤╬┴█╥╚╔ ---------------------------------------- +;--------------------------------------------------------------------- + +still: + mcall 10 ; ЇєэъЎш  10 - цфрЄ№ ёюс√Єш  + + cmp eax,1 ; яхЁхЁшёютрЄ№ юъэю ? + je red ; хёыш фр - эр ьхЄъє red + cmp eax,2 ; эрцрЄр ъыртш°р ? + je key ; хёыш фр - эр key + cmp eax,3 ; эрцрЄр ъэюяър ? + je button ; хёыш фр - эр button + + jmp still ; хёыш фЁєуюх ёюс√Єшх - т эрўрыю Ўшъыр + + +;--------------------------------------------------------------------- + + + key: ; эрцрЄр ъыртш°р эр ъыртшрЄєЁх + mcall 2 ; ЇєэъЎш  2 - ёўшЄрЄ№ ъюф ёшьтюыр (т ah) + + jmp still ; тхЁэєЄ№ё  ъ эрўрыє Ўшъыр + +;--------------------------------------------------------------------- + + button: + mcall 17 ; 17 - яюыєўшЄ№ шфхэЄшЇшърЄюЁ эрцрЄющ ъэюяъш +; ъэюяъш 2,3,4,5 - load tray CD0/CD1/CD2/CD3 + movzx ecx, ah + sub ecx, 2 + cmp ecx, 3 + ja b6 + mcall 24,5 + jmp red + b6: +; ъэюяъш 6,7,8,9 - eject tray CD0/CD1/CD2/CD3 + sub ecx, 4 + cmp ecx, 3 + ja b1 + mcall 24,4 + jmp red + b1: + cmp ah, 1 ; хёыш ═┼ эрцрЄр ъэюяър ё эюьхЁюь 1, + jne still ; тхЁэєЄ№ё  + + .exit: + mcall -1 ; шэрўх ъюэхЎ яЁюуЁрьь√ + + + +;--------------------------------------------------------------------- +;--- ╬╧╨┼─┼╦┼═╚┼ ╚ ╬╥╨╚╤╬┬╩└ ╬╩═└ ---------------------------------- +;--------------------------------------------------------------------- + +draw_window: + mcall 12, 1 ; ЇєэъЎш  12: ёююс∙шЄ№ ╬╤ юс юЄЁшёютъх юъэр + ; 1 - эрўшэрхь ЁшёютрЄ№ + ; ╤╬╟─└ш╠ ╬╩═╬ + + if lang eq it_IT + mcall 0, <100,250>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0 + else ; Default to en_US + mcall 0, <100,230>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0 + end if + mcall 71, 1 ,header + mcall 8,<15,42>,<40,20>,2,0xaaaaaa + call draw_buttons + mov edx,6 + add ecx,30 shl 16 + mcall + call draw_buttons + + if lang eq it_IT + mcall 4, <16,25>, 0x80ffffff,text1 + else ; Default to en_US + mcall 4, <25,25>, 0x80ffffff,text1 + end if + mov edx,text2 + + add ebx,3 shl 16+20 + mcall + mov edx,text3 + add ebx,30 + sub ebx,3 shl 16 + mcall + + mcall 12, 2 ; ЇєэъЎш  12: ёююс∙шЄ№ ╬╤ юс юЄЁшёютъх юъэр + ; 2, чръюэўшыш ЁшёютрЄ№ + + ret ; т√їюфшь шч яЁюЎхфєЁ√ + +draw_buttons: + pusha + if lang eq it_IT + add ebx,60 shl 16 + else ; Default to en_US + add ebx,50 shl 16 + end if + inc edx + mcall + if lang eq it_IT + add ebx,60 shl 16 + else ; Default to en_US + add ebx,50 shl 16 + end if + inc edx + mcall + if lang eq it_IT + add ebx,60 shl 16 + else ; Default to en_US + add ebx,50 shl 16 + end if + inc edx + mcall + popa + ret +;--------------------------------------------------------------------- +;--- ─└══█┼ ╧╨╬├╨└╠╠█ ---------------------------------------------- +;--------------------------------------------------------------------- +header db ' ATAPI Device Tray Control',0 +if lang eq it_IT + text3 db 'espelli espelli espelli espelli',0 + text2 db 'carica carica carica carica',0 + text1 db '/cd0/ /cd1/ /cd2/ /cd3/',0 +else ; Default to en_US + text3 db 'eject eject eject eject',0 + text2 db 'load load load load',0 + text1 db '/cd0/ /cd1/ /cd2/ /cd3/',0 +end if + +;--------------------------------------------------------------------- + +I_END: ; ьхЄър ъюэЎр яЁюуЁрьь√ diff --git a/programs/system/cpu/trunk/cpu.asm b/programs/system/cpu/trunk/cpu.asm index 40f9e127ee..da50e176a5 100644 --- a/programs/system/cpu/trunk/cpu.asm +++ b/programs/system/cpu/trunk/cpu.asm @@ -6,7 +6,7 @@ use32 org 0x0 - + db "MENUET01" ; 8 byte id dd 0x01 ; header version dd START ; start of code @@ -16,7 +16,7 @@ dd 0x0 ; boot parameters 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 "../../../develop/libraries/box_lib/trunk/box_lib.mac" include "../../../KOSfuncs.inc" @@ -43,7 +43,7 @@ EDITBOX: .Y = UNDERTABLE.Y + BUTTON.HEIGHT + 20 .WIDTH = 465 .HEIGHT = 23 - + CHECKBOX: .X = PROCESS_TABLE.X .Y = UNDERTABLE.Y + BUTTON.HEIGHT + 25 @@ -300,7 +300,7 @@ draw_next_process: add ebx, BUTTON.WIDTH mcall -;create terminate process button +;create terminate process button ;mov ecx,[curposy] shl ecx,16 mov cx, BUTTON.HEIGHT @@ -478,7 +478,7 @@ align 4 ;show window y size movzx eax, word [process_info_buffer.box.top] add ebx, 70 shl 16 - call draw_ra_dec_number + call draw_ra_dec_number pop edi ;------------------------------------------------------------------------------- align 4 @@ -515,36 +515,36 @@ draw_window: test [window_status],10b ; window is minimized to panel jnz .exit - + mov eax, strings.process_name mov ebx, 130 shl 16 + 5 xor ecx, ecx call draw_ra_text - + mov eax, strings.ptid add ebx, 80 shl 16 call draw_ra_text - + mov eax, strings.cpu_usage_cycles add ebx, 100 shl 16 call draw_ra_text - + mov eax, strings.cpu_usage_percent add ebx, 55 shl 16 call draw_ra_text - + mov eax, strings.memory_usage add ebx, 60 shl 16 call draw_ra_text - + mov eax, strings.window_stack_pos add ebx, 70 shl 16 call draw_ra_text - + mov eax, strings.window_position.x add ebx, 70 shl 16 call draw_ra_text - + mov eax, strings.window_position.y add ebx, 70 shl 16 call draw_ra_text @@ -621,7 +621,7 @@ align 4 align 4 .exit: ret - + ;------------------------------------------------------------------------------- draw_ra_dec_number: @@ -638,13 +638,13 @@ draw_ra_dec_number: ror ebx, 16 mov ebp, eax - + test edx, edx jz .no_postfix - + mov eax, edx call count_utf8z_chars - + test eax, eax jz .no_postfix push ecx @@ -655,13 +655,13 @@ draw_ra_dec_number: mcall SF_DRAW_TEXT ror ebx, 16 pop ecx - + .no_postfix: mov eax, ebp push edx xor edi, edi - + mov esi, 10 @@: xor edx, edx @@ -681,7 +681,7 @@ draw_ra_dec_number: sub dx, ax rol edx, 16 mcall SF_DRAW_NUMBER, (11 shl 16) or 0x80000000 - + popa ret ;------------------------------------------------------------------------------- @@ -702,7 +702,7 @@ draw_ra_data_size: cmp eax, 1024 ja @f jmp .draw_text - + @@: cmp eax, 1024*1024 jae @f @@ -710,7 +710,7 @@ draw_ra_data_size: div esi mov edx, strings.KB jmp .draw_text - + @@: cmp eax, 1024*1024*1024 jae @f @@ -718,15 +718,15 @@ draw_ra_data_size: div esi mov edx, strings.MB jmp .draw_text - + @@: mov esi, 1024*1024*1024 div esi mov edx, strings.GB - + .draw_text: call draw_ra_dec_number - + popa ret ;------------------------------------------------------------------------------- @@ -743,9 +743,9 @@ draw_ra_text: ror ebx, 16 mov edx, eax - + call count_utf8z_chars - + test eax, eax jz .ret lea eax, [eax*8] @@ -753,7 +753,7 @@ draw_ra_text: rol ebx, 16 or ecx, 0xB0000000 mcall SF_DRAW_TEXT - + .ret: popa ret @@ -773,7 +773,7 @@ draw_button_with_caption: ;ebx = x+width shl 16 + y ;------------------------------------------------------------------------------- pusha - + xor ebp, ebp mov edi, eax test eax, eax @@ -782,7 +782,7 @@ draw_button_with_caption: call count_utf8z_chars mov ebp, eax -.no_caption_0: +.no_caption_0: push ebx esi lea eax, [ebp*8] mov esi, edx @@ -804,7 +804,7 @@ draw_button_with_caption: mov ecx, esi or ecx, 0xB0000000 mcall SF_DRAW_TEXT - + .no_caption_1: popa ret @@ -820,7 +820,7 @@ count_utf8z_chars: push esi ebx mov esi, eax xor ebx, ebx - + .0: lodsb test al, al @@ -836,25 +836,25 @@ count_utf8z_chars: ja @f inc esi jmp .0 - + @@: cmp al, 0xEF ja @f inc esi inc esi jmp .0 - + @@: cmp al, 0xF7 ja .err add esi, 3 jmp .0 - + .ok: mov eax, ebx pop ebx esi ret - + .err: xor eax, eax pop ebx esi @@ -920,7 +920,7 @@ sys_reboot: strings: if lang eq de_DE .window_caption utf8z "Prozesse v0.2.3 - [Ctrl+Alt+Del]" - + .process_name utf8z "NAME/BEENDEN" .ptid utf8z "PID/TID" .cpu_usage_cycles utf8z "CPU(ZYKLEN)" @@ -929,21 +929,21 @@ if lang eq de_DE .window_stack_pos utf8z "W-STACK" .window_position.x utf8z " WIN-X" .window_position.y utf8z " WIN-Y" - + .previous_page utf8z "SEITE ZURUECK" .next_page utf8z "SEITE VOR" .reboot utf8z "REBOOT SYSTEM" .run utf8z "START" - + .checkbox_caption utf8z "System" - + .KB utf8z " KB" .MB utf8z " MB" .GB utf8z " GB" ;------------------------------------------------------------------------------- else if lang eq et_EE .window_caption utf8z "Protsessid v0.2.3 - [Ctrl+Alt+Del]" - + .process_name utf8z "NIMI/L├ХPETA" .ptid utf8z "PID/TID" .cpu_usage_cycles utf8z "CPU(TS├ЬKLID)" @@ -952,21 +952,21 @@ else if lang eq et_EE .window_stack_pos utf8z "W-PUHVER" .window_position.x utf8z " WIN-X" .window_position.y utf8z " WIN-Y" - + .previous_page utf8z "EELMINE LEHT" .next_page utf8z "J├ДRGMINE LEHT" .reboot utf8z "REBOODI S├ЬSTEEM" .run utf8z "START" - + .checkbox_caption utf8z "System" - + .KB utf8z " KB" .MB utf8z " MB" .GB utf8z " GB" ;------------------------------------------------------------------------------- else if lang eq ru_RU .window_caption utf8z "╨Ф╨╕╤Б╨┐╨╡╤В╤З╨╡╤А ╨┐╤А╨╛╤Ж╨╡╤Б╤Б╨╛╨▓ v0.2.3 - [Ctrl+Alt+Del]" - + .process_name utf8z "╨Ш╨Ь╨п/╨Ч╨Р╨Т╨Х╨а╨и╨Ш╨в╨м" .ptid utf8z "PID/TID" .cpu_usage_cycles utf8z "CPU(╨в╨Р╨Ъ╨в╨л)" @@ -975,21 +975,21 @@ else if lang eq ru_RU .window_stack_pos utf8z "W-STACK" .window_position.x utf8z " WIN-X" .window_position.y utf8z " WIN-Y" - + .previous_page utf8z "╨Я╨а╨Х╨Ф. ╨б╨в╨а." .next_page utf8z "╨б╨Ы╨Х╨Ф. ╨б╨в╨а." .reboot utf8z "╨Я╨Х╨а╨Х╨Ч╨Р╨У╨а╨г╨Ч╨Ъ╨Р" .run utf8z "╨Ч╨Р╨Я╨г╨б╨Ъ" - + .checkbox_caption utf8z "╨б╨╕╤Б╤В╨╡╨╝╨╜╤Л╨╡" - + .KB utf8z " ╨Ъ╨С" .MB utf8z " ╨Ь╨С" .GB utf8z " ╨У╨С" ;------------------------------------------------------------------------------- else if lang eq it_IT .window_caption utf8z "Gestore processi v0.2.3 - [Ctrl+Alt+Del]" - + .process_name utf8z "NOME-PROGRAMMA" .ptid utf8z "PID/TID" .cpu_usage_cycles utf8z "CPU(CICLI)" @@ -998,21 +998,21 @@ else if lang eq it_IT .window_stack_pos utf8z "W-STACK" .window_position.x utf8z " WIN-X" .window_position.y utf8z " WIN-Y" - + .previous_page utf8z "INDIETRO" .next_page utf8z "AVANTI" .reboot utf8z "RIAVVIA SISTEMA" .run utf8z "START" - + .checkbox_caption utf8z "System" - + .KB utf8z " KB" .MB utf8z " MB" .GB utf8z " GB" ;------------------------------------------------------------------------------- -else +else ; Default to en_US .window_caption utf8z "Process manager v0.2.3 - [Ctrl+Alt+Del]" - + .process_name utf8z "NAME/TERMINATE" .ptid utf8z "PID/TID" .cpu_usage_cycles utf8z "CPU(CYCLES)" @@ -1021,15 +1021,15 @@ else .window_stack_pos utf8z "W-STACK" .window_position.x utf8z " WIN-X" .window_position.y utf8z " WIN-Y" - - + + .previous_page utf8z "PREV PAGE" .next_page utf8z "NEXT PAGE" .reboot utf8z "REBOOT SYSTEM" .run utf8z "RUN" - + .checkbox_caption utf8z "System" - + .KB utf8z " KB" .MB utf8z " MB" .GB utf8z " GB" diff --git a/programs/system/docpack/trunk/docpack.asm b/programs/system/docpack/trunk/docpack.asm index ae1d91377c..d02dd3530e 100755 --- a/programs/system/docpack/trunk/docpack.asm +++ b/programs/system/docpack/trunk/docpack.asm @@ -1,227 +1,227 @@ -;--------------------------------------------------------------------- -; -; DOCPAK FOR KOLIBRI v1.2 -; Written in pure assembly by Ivushkin Andrey aka Willow -; -;--------------------------------------------------------------------- - -FILE_COUNT=0 -DEF_FILE equ 'g' - -macro embed_docdir_file fn -{ - forward - local label,label2,label3 - dd label2-label - dd label-label3 - label3: - db fn - label: - file '%DOCDIR%' # fn - label2: - FILE_COUNT=FILE_COUNT+1 -} -macro embed_local_file fn -{ - forward - local label,label2,label3 - dd label2-label - dd label-label3 - label3: - db fn - label: - file fn - label2: - FILE_COUNT=FILE_COUNT+1 -} - - use32 - org 0x0 - db 'MENUET01' ; 8 byte id - dd 0x01 ; header version - dd start ; start of code - dd I_END ; size of image - dd I_END+0x400 ; memory for app - dd I_END+0x400 ; esp - dd my_param , 0x0 ; I_Param , I_Icon -include '../../../macros.inc' -include 'lang.inc' - -start: - cmp [my_param],0 - je red - cmp [my_param],'a' - jb .par_a - cmp [my_param],'z' - jbe .ok2 - .par_a: - mov [my_param],DEF_FILE - .ok2: - movzx ecx,[my_param] - mov [my_param],'*' - .open: - sub ecx,'a'-1 - mov edx,embedded - xor esi,esi - .list: - lea edx,[edx+esi+8] - mov esi,[edx-8] - add edx,[edx-4] - test esi,esi - jz .close - loop .list - push edx -; convert number in esi to decimal representation - mov ecx, 10 - push -'0' - mov eax, esi -@@: - xor edx, edx - div ecx - push edx - test eax, eax - jnz @b - mov edi, fsize -@@: - pop eax - add al, '0' - stosb - jnz @b - mcall 70,fileinfo - mov ecx,eax - mcall 5,20 - pop edx - mcall 60,2 - cmp [my_param],'*' - jne still - .close: - mcall -1 - -red: - mov [my_param],'a' - - mcall 48, 3, sc, sizeof.system_colors - - mcall 12,1 - -BTN_H equ 21 - - mov edx,[sc.work] - or edx,0x34000000 - mcall 0, <220,141>, <30,FILECOUNT*(BTN_H+3)+37>, , ,title - - mov ecx,FILECOUNT - mov ebx,23 shl 16+100 - mov esi,[sc.work_button] - mov edi,5 shl 16+BTN_H - mov edx,10 - mov eax,8 - .btnlp: - push ecx - mcall ,,edi - add edi,(BTN_H+3) shl 16 - inc edx - pop ecx - loop .btnlp - mov ecx,FILECOUNT - mov edx,embedded - xor edi,edi - mov ebx,30 shl 16+8 - mov eax,4 - .list: - lea edx,[edx+edi+8] - mov edi,[edx-8] - pusha - sub ebx,20 shl 16 - mov ecx, [sc.work_text] - or ecx, 0x30000000 - mcall ,,,my_param,1 - inc [my_param] - popa - push ecx - mov esi, [edx-4] - sub esi, 4 ;remove .txt extension - mov ecx, [sc.work_button_text] - or ecx, 0x30000000 - mcall - pop ecx - add esi, 4 - add edx, esi - add ebx,(BTN_H+3) - loop .list - mcall 12,2 - -still: - mcall 10 - cmp eax,1 - je red - cmp eax,2 - jne .nokey - mcall 2 - cmp ah,27 ;Esc - je start.close - cmp ah,'a' - jb still - cmp ah,'a'+FILECOUNT - jae still - jmp .cxax - .nokey: - mcall 17 - cmp ah,1 - je start.close - sub ah,10-'a' - .cxax: - movzx ecx,ah - jmp start.open - -fileinfo: - dd 7 - dd 0 - dd param - dd 0 ,0 - db '/sys/TINYPAD',0 - -param db '*' -fsize: - times 10 db '0' - db 0 - -embedded: - -; Please use only filenames w/o path! - -; -- Start of embedding area ------ - embed_docdir_file 'CREDITS.TXT' ;a -if lang eq ru_RU - embed_docdir_file 'GNU.TXT' ;b -else - embed_docdir_file 'COPYING.TXT' ;b -end if - embed_docdir_file 'HOT_KEYS.TXT' ;c - embed_local_file 'FASM.TXT' ;d - embed_docdir_file 'MTDBG.TXT' ;e -if lang eq ru_RU - embed_local_file 'SYSFUNCR.TXT' ;f -else - embed_local_file 'SYSFUNCS.TXT' ;f -end if - embed_local_file 'STACK.TXT' ;g - embed_docdir_file 'KFAR_KEYS.TXT' ;h - embed_docdir_file 'INI.TXT' ;i - embed_docdir_file 'OPENDIAL.TXT' ;j -; -- End of embedding area ------- - - dd 0 -FILECOUNT = FILE_COUNT - - if ~ FILECOUNT>0 - error 'No embedded files' - end if - -my_param db 0 - rb 256 -I_END: - -title db 'Doc Pack',0 - -sc system_colors +;--------------------------------------------------------------------- +; +; DOCPAK FOR KOLIBRI v1.2 +; Written in pure assembly by Ivushkin Andrey aka Willow +; +;--------------------------------------------------------------------- + +FILE_COUNT=0 +DEF_FILE equ 'g' + +macro embed_docdir_file fn +{ + forward + local label,label2,label3 + dd label2-label + dd label-label3 + label3: + db fn + label: + file '%DOCDIR%' # fn + label2: + FILE_COUNT=FILE_COUNT+1 +} +macro embed_local_file fn +{ + forward + local label,label2,label3 + dd label2-label + dd label-label3 + label3: + db fn + label: + file fn + label2: + FILE_COUNT=FILE_COUNT+1 +} + + use32 + org 0x0 + db 'MENUET01' ; 8 byte id + dd 0x01 ; header version + dd start ; start of code + dd I_END ; size of image + dd I_END+0x400 ; memory for app + dd I_END+0x400 ; esp + dd my_param , 0x0 ; I_Param , I_Icon +include '../../../macros.inc' +include 'lang.inc' ; Language support for locales: ru_RU, en_US. + +start: + cmp [my_param],0 + je red + cmp [my_param],'a' + jb .par_a + cmp [my_param],'z' + jbe .ok2 + .par_a: + mov [my_param],DEF_FILE + .ok2: + movzx ecx,[my_param] + mov [my_param],'*' + .open: + sub ecx,'a'-1 + mov edx,embedded + xor esi,esi + .list: + lea edx,[edx+esi+8] + mov esi,[edx-8] + add edx,[edx-4] + test esi,esi + jz .close + loop .list + push edx +; convert number in esi to decimal representation + mov ecx, 10 + push -'0' + mov eax, esi +@@: + xor edx, edx + div ecx + push edx + test eax, eax + jnz @b + mov edi, fsize +@@: + pop eax + add al, '0' + stosb + jnz @b + mcall 70,fileinfo + mov ecx,eax + mcall 5,20 + pop edx + mcall 60,2 + cmp [my_param],'*' + jne still + .close: + mcall -1 + +red: + mov [my_param],'a' + + mcall 48, 3, sc, sizeof.system_colors + + mcall 12,1 + +BTN_H equ 21 + + mov edx,[sc.work] + or edx,0x34000000 + mcall 0, <220,141>, <30,FILECOUNT*(BTN_H+3)+37>, , ,title + + mov ecx,FILECOUNT + mov ebx,23 shl 16+100 + mov esi,[sc.work_button] + mov edi,5 shl 16+BTN_H + mov edx,10 + mov eax,8 + .btnlp: + push ecx + mcall ,,edi + add edi,(BTN_H+3) shl 16 + inc edx + pop ecx + loop .btnlp + mov ecx,FILECOUNT + mov edx,embedded + xor edi,edi + mov ebx,30 shl 16+8 + mov eax,4 + .list: + lea edx,[edx+edi+8] + mov edi,[edx-8] + pusha + sub ebx,20 shl 16 + mov ecx, [sc.work_text] + or ecx, 0x30000000 + mcall ,,,my_param,1 + inc [my_param] + popa + push ecx + mov esi, [edx-4] + sub esi, 4 ;remove .txt extension + mov ecx, [sc.work_button_text] + or ecx, 0x30000000 + mcall + pop ecx + add esi, 4 + add edx, esi + add ebx,(BTN_H+3) + loop .list + mcall 12,2 + +still: + mcall 10 + cmp eax,1 + je red + cmp eax,2 + jne .nokey + mcall 2 + cmp ah,27 ;Esc + je start.close + cmp ah,'a' + jb still + cmp ah,'a'+FILECOUNT + jae still + jmp .cxax + .nokey: + mcall 17 + cmp ah,1 + je start.close + sub ah,10-'a' + .cxax: + movzx ecx,ah + jmp start.open + +fileinfo: + dd 7 + dd 0 + dd param + dd 0 ,0 + db '/sys/TINYPAD',0 + +param db '*' +fsize: + times 10 db '0' + db 0 + +embedded: + +; Please use only filenames w/o path! + +; -- Start of embedding area ------ + embed_docdir_file 'CREDITS.TXT' ;a +if lang eq ru_RU + embed_docdir_file 'GNU.TXT' ;b +else ; Default to en_US + embed_docdir_file 'COPYING.TXT' ;b +end if + embed_docdir_file 'HOT_KEYS.TXT' ;c + embed_local_file 'FASM.TXT' ;d + embed_docdir_file 'MTDBG.TXT' ;e +if lang eq ru_RU + embed_local_file 'SYSFUNCR.TXT' ;f +else ; Default to en_US + embed_local_file 'SYSFUNCS.TXT' ;f +end if + embed_local_file 'STACK.TXT' ;g + embed_docdir_file 'KFAR_KEYS.TXT' ;h + embed_docdir_file 'INI.TXT' ;i + embed_docdir_file 'OPENDIAL.TXT' ;j +; -- End of embedding area ------- + + dd 0 +FILECOUNT = FILE_COUNT + + if ~ FILECOUNT>0 + error 'No embedded files' + end if + +my_param db 0 + rb 256 +I_END: + +title db 'Doc Pack',0 + +sc system_colors diff --git a/programs/system/end/light/data.inc b/programs/system/end/light/data.inc index f6b3faf023..ac7525f356 100644 --- a/programs/system/end/light/data.inc +++ b/programs/system/end/light/data.inc @@ -1,68 +1,71 @@ -WIN_W = 440 -WIN_H = 200 -BOT_PANEL_H = 70 -;--------------------------------------------------------------------- -CANCEL_BUTTON_ID = 1+BT_HIDE -HOME_BUTTON_ID = 2 -REBOOT_BUTTON_ID = 3 -POWEROFF_BUTTON_ID = 4 -CHECKBOX_BUTTON_ID = 5+BT_HIDE -;--------------------------------------------------------------------- -TEXT_HOME: db 'Home',0 -TEXT_ENTER: db 'Enter',0 -TEXT_END: db 'End',0 -TEXT_CANCEL: db 'x',0 -;--------------------------------------------------------------------- -if lang eq ru_RU - TEXT_WTITLE: db 'Завершение работы',0 - TEXT_RDSAVE1: db 'Сохранить изменения, сделанные в',0 - TEXT_RDSAVE2: db 'процессе работы в системе (Ctrl+S)',0 - TEXT_KERNEL: db 'Ядро',0 - TEXT_REBOOT: db 'Перезагрузка',0 - TEXT_OFF: db 'Выключение',0 - TEXT_SAVING: db 'Сохранение образа...',0 -else if lang eq de_DE - TEXT_WTITLE: db 'Shutdown computer',0 - TEXT_RDSAVE1: db 'Save all changes that were done',0 - TEXT_RDSAVE2: db 'during system work (Ctrl+S)',0 - TEXT_KERNEL: db 'Kernel',0 - TEXT_REBOOT: db 'Neustart',0 - TEXT_OFF: db 'Beenden',0 - TEXT_SAVING: db 'Saving RAM-drive...',0 -else if lang eq it_IT - TEXT_WTITLE: db 'Shutdown computer',0 - TEXT_RDSAVE1: db 'Save all changes that were done',0 - TEXT_RDSAVE2: db 'during system work (Ctrl+S)',0 - TEXT_KERNEL: db 'Kernel',0 - TEXT_REBOOT: db 'Riavvio',0 - TEXT_OFF: db 'Spegni',0 - TEXT_SAVING: db 'Saving RAM-drive...',0 -else - TEXT_WTITLE: db 'Shutdown computer',0 - TEXT_RDSAVE1: db 'Save all changes that were done',0 - TEXT_RDSAVE2: db 'during system work (Ctrl+S)',0 - TEXT_KERNEL: db 'Kernel',0 - TEXT_REBOOT: db 'Reboot',0 - TEXT_OFF: db 'Power off',0 - TEXT_SAVING: db 'Saving RAM-drive...',0 -end if -;--------------------------------------------------------------------- -rdsave: - dd SSF_START_APP,0,hide,0,0 - db '/sys/rdsave',0 -hide db 'h',0 -asettings db 'settings',0 -aautosave db 'autosave',0 -ini_file db '/sys/settings/rdsave.ini',0 -;--------------------------------------------------------------------- -importLib: -library \ - libini, 'libini.obj' - -import libini, \ - ini_set_int ,'ini_set_int', \ - ini_get_int ,'ini_get_int' -;--------------------------------------------------------------------- -checkbox_sharedname db 'CHECKBOX',0 -checkbox_img dd ? -;--------------------------------------------------------------------- +WIN_W = 440 +WIN_H = 200 +BOT_PANEL_H = 70 +;--------------------------------------------------------------------- +CANCEL_BUTTON_ID = 1+BT_HIDE +HOME_BUTTON_ID = 2 +REBOOT_BUTTON_ID = 3 +POWEROFF_BUTTON_ID = 4 +CHECKBOX_BUTTON_ID = 5+BT_HIDE +;--------------------------------------------------------------------- +TEXT_HOME: db 'Home',0 +TEXT_ENTER: db 'Enter',0 +TEXT_END: db 'End',0 +TEXT_CANCEL: db 'x',0 +;--------------------------------------------------------------------- + +; Language support for locales: ru_RU (CP866), de_DE, it_IT, en_US + +if lang eq ru_RU + TEXT_WTITLE: db 'Завершение работы',0 + TEXT_RDSAVE1: db 'Сохранить изменения, сделанные в',0 + TEXT_RDSAVE2: db 'процессе работы в системе (Ctrl+S)',0 + TEXT_KERNEL: db 'Ядро',0 + TEXT_REBOOT: db 'Перезагрузка',0 + TEXT_OFF: db 'Выключение',0 + TEXT_SAVING: db 'Сохранение образа...',0 +else if lang eq de_DE + TEXT_WTITLE: db 'Shutdown computer',0 + TEXT_RDSAVE1: db 'Save all changes that were done',0 + TEXT_RDSAVE2: db 'during system work (Ctrl+S)',0 + TEXT_KERNEL: db 'Kernel',0 + TEXT_REBOOT: db 'Neustart',0 + TEXT_OFF: db 'Beenden',0 + TEXT_SAVING: db 'Saving RAM-drive...',0 +else if lang eq it_IT + TEXT_WTITLE: db 'Shutdown computer',0 + TEXT_RDSAVE1: db 'Save all changes that were done',0 + TEXT_RDSAVE2: db 'during system work (Ctrl+S)',0 + TEXT_KERNEL: db 'Kernel',0 + TEXT_REBOOT: db 'Riavvio',0 + TEXT_OFF: db 'Spegni',0 + TEXT_SAVING: db 'Saving RAM-drive...',0 +else ; Default to en_US + TEXT_WTITLE: db 'Shutdown computer',0 + TEXT_RDSAVE1: db 'Save all changes that were done',0 + TEXT_RDSAVE2: db 'during system work (Ctrl+S)',0 + TEXT_KERNEL: db 'Kernel',0 + TEXT_REBOOT: db 'Reboot',0 + TEXT_OFF: db 'Power off',0 + TEXT_SAVING: db 'Saving RAM-drive...',0 +end if +;--------------------------------------------------------------------- +rdsave: + dd SSF_START_APP,0,hide,0,0 + db '/sys/rdsave',0 +hide db 'h',0 +asettings db 'settings',0 +aautosave db 'autosave',0 +ini_file db '/sys/settings/rdsave.ini',0 +;--------------------------------------------------------------------- +importLib: +library \ + libini, 'libini.obj' + +import libini, \ + ini_set_int ,'ini_set_int', \ + ini_get_int ,'ini_get_int' +;--------------------------------------------------------------------- +checkbox_sharedname db 'CHECKBOX',0 +checkbox_img dd ? +;--------------------------------------------------------------------- diff --git a/programs/system/format/format.asm b/programs/system/format/format.asm index 069801dfcb..d194284716 100644 --- a/programs/system/format/format.asm +++ b/programs/system/format/format.asm @@ -1,866 +1,866 @@ -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -; Formatting Disk Utility ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -; Compile with FASM -; FORMAT ver. Oct 19, 2018 - -; Copyright (c) 2018, Efremenkov Sergey aka TheOnlyMirage -; All rights reserved. -; Redistribution and use in source and binary forms, with or without modification, -; are permitted provided that the following conditions are met: -; * Redistributions of source code must retain the above copyright notice, this -; list of conditions and the following disclaimer. -; * Redistributions in binary form must reproduce the above copyright notice, -; this list of conditions and the following disclaimer in the documentation and/or -; other materials provided with the distribution. -; * Neither the name of the nor the names of its contributors may -; be used to endorse or promote products derived from this software without -; specific prior written permission. - -; THE SOFTWARE IS PROVIDED УAS ISФ, WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, -; INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A -; PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT -; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION -; OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE -; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -; -------------------------------------------------------------------------------------- -format binary as "" - -use32 -org 0 - -db 'MENUET01' -dd 1 -dd START -dd I_END -dd MEM -dd STACKTOP -dd 0, 0 - -KMENUITEM_NORMAL equ 0 -KMENUITEM_SUBMENU equ 1 -KMENUITEM_SEPARATOR equ 2 - -include 'lang.inc' -include '../../macros.inc' -include '../../proc32.inc' -include '../../KOSfuncs.inc' -include '../../dll.inc' -include '../../develop/libraries/box_lib/trunk/box_lib.mac' ;for uses checkBox and editBox -include '../../load_lib.mac' -@use_library - -START: - mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors ;get system colors - - stdcall dll.Load, @IMPORT - or eax, eax - jnz exit - - load_libraries l_libs_start,load_lib_end - stdcall [OpenDialog_Init],OpenDialog_data - - ;set mask for events: - ;ёююс∙хэшх ю яхЁхЁшёютъх,эрцрЄр ъэюяър, юяЁхфхы╕ээр  Ёрэхх, ёюс√Єшх юЄ ь√°ш (ўЄю-Єю ёыєўшыюё№ - эрцрЄшх эр ъэюяъє ь√°ш шыш яхЁхьх∙хэшх; ёсЁрё√трхЄё  яЁш яЁюўЄхэшш) - mcall SF_SET_EVENTS_MASK, 0x27 - - mov ecx,[sc.work_text] - and ecx,0x9FFFFFFF - or ecx,0x90000000 - - call initBuf - - mov dword[editLabel.text_color], ecx - mov dword[editMBR.text_color], ecx - - invoke init_checkbox, ch1 - invoke init_checkbox, ch2 - - stdcall [kmenu_init], sc - stdcall [ksubmenu_new] - mov [kmFS], eax - - stdcall [kmenuitem_new], KMENUITEM_NORMAL, kmNone, 110 - stdcall [ksubmenu_add], [kmFS], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, kmFat16, 111 - stdcall [ksubmenu_add], [kmFS], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, kmFat32, 112 - stdcall [ksubmenu_add], [kmFS], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, kmNTFS, 113 - stdcall [ksubmenu_add], [kmFS], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, kmExt2, 114 - stdcall [ksubmenu_add], [kmFS], eax - mov byte[kmID], 0 - - stdcall [kmenuitem_new], KMENUITEM_SUBMENU, kmFat16, [kmFS] - - - stdcall [ksubmenu_new] - mov [kmUnit], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.0, 120 - stdcall [ksubmenu_add], [kmUnit], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.1, 121 - stdcall [ksubmenu_add], [kmUnit], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.2, 122 - stdcall [ksubmenu_add], [kmUnit], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.3, 123 - stdcall [ksubmenu_add], [kmUnit], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.4, 124 - stdcall [ksubmenu_add], [kmUnit], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.5, 125 - stdcall [ksubmenu_add], [kmUnit], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.6, 126 - stdcall [ksubmenu_add], [kmUnit], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.7, 127 - stdcall [ksubmenu_add], [kmUnit], eax - mov byte[kmUnitID], 0 - stdcall [kmenuitem_new], KMENUITEM_SUBMENU, unittext.0, [kmUnit] - - call getDeviceList - - call draw_window - -event_wait: - mcall SF_WAIT_EVENT - - cmp eax, 1 ; Event redraw - je redraw - - cmp eax, 2 ; Event key in buffer ? - je key - - cmp eax, 3 ; Event button in buffer ? - je button - - cmp eax, 6 ; Event mouse in buffer ? - je mouse - - jmp event_wait - - -redraw: - call draw_window - jmp event_wait - -key: - mcall SF_GET_KEY - invoke edit_box_key, editLabel - invoke edit_box_key, editMBR - jmp event_wait - -button: - mcall SF_GET_BUTTON - - cmp ah, 1 ;Close button - jne @f -exit: - mcall SF_TERMINATE_PROCESS -@@: - cmp ah, 2 ;Format button - jne @f - call butFormat - jmp event_wait -@@: - cmp ah, 3 ;Brouse button - jne @f - call butBrouse - jmp event_wait -@@: - cmp ah, 4 ;Select FS button - jne @f - call butSelectFS - jmp event_wait -@@: - cmp ah, 5 ;Select unit size button - jne @f - call butUnit - jmp event_wait -@@: - cmp ah, 6 ;Select Device button - jne @f - call butDevice - jmp event_wait -@@: - cmp ah, 110 ;kmenu list FS - jb @f - cmp ah, 114 - ja @f - sub ah, 110 - mov byte[kmID], ah - jmp redraw -@@: - cmp ah, 120 ;kmenu Unit Size - jb @f - cmp ah, 127 - ja @f - sub ah, 120 - mov byte[kmUnitID], ah - jmp redraw -@@: - cmp ah, 130 ;kmenu Device - jb @f - cmp ah, 250 - ja @f - sub ah, 130 - mov byte[kmDeviceID], ah - jmp redraw -@@: - jmp event_wait - -mouse: - invoke check_box_mouse, ch1 ;яЁютхЁър ўхъ сюъёр - invoke check_box_mouse, ch2 - - invoke edit_box_mouse, editLabel ;яЁютхЁър ёюс√Єшщ ь√°ш фы  editBox'ют - invoke edit_box_mouse, editMBR - - stdcall [kmainmenu_dispatch_cursorevent], [kmFS] - jmp event_wait - -butBrouse: - call but_open_dlg - ret - -butFormat: - ret - -butSelectFS: - push eax ebx ecx - mcall SF_THREAD_INFO, pi, -1 ;get window coord - - mov eax, dword[pi+34] - add eax, Otstup - mov word[coord.x], ax - - mov eax, dword[pi+38] - add eax, 129 - mov word[coord.y], ax - - stdcall [ksubmenu_draw], [kmFS], coord - pop ecx ebx eax - ret - -butUnit: - push eax ebx ecx - mcall SF_THREAD_INFO, pi, -1 - - mov eax, dword[pi+34] - add eax, Otstup+80+30+delta - mov word[coordUnit.x], ax - - mov eax, dword[pi+38] - add eax, 129 - mov word[coordUnit.y], ax - - stdcall [ksubmenu_draw], [kmUnit], coordUnit - pop ecx ebx eax - ret - -butDevice: - push eax ebx ecx - mcall SF_THREAD_INFO, pi, -1 - - mov eax, dword[pi+34] - add eax, Otstup+80+30+delta - mov word[coordDevice.x], ax - - mov eax, dword[pi+38] - add eax, 79 - mov word[coordDevice.y], ax - - stdcall [ksubmenu_draw], [kmDevice], coordDevice - pop ecx ebx eax - ret - - -delta = 50 -dy = 15 + 40 -warning_title: db 'Warning!',0 -draw_warningWindow: - ret - -draw_window: - mcall SF_REDRAW, SSF_BEGIN_DRAW - - mov eax, SF_CREATE_WINDOW ; define and draw window - mov ebx, 100 * 65536 + (290+delta) ; [x start] *65536 + [x size] - mov ecx, 100 * 65536 + (310+dy) ; [y start] *65536 + [y size] - mov edx,[sc.work] ;0x14FFFFFF - add edx, 0x14000000 ; color of work area RRGGBB - ; 0x02000000 = window type 4 (fixed size, skinned window) - mov esi, 0x808899ff ; color of grab bar RRGGBB - ; 0x80000000 = color glide - mov edi, title - mcall - - - mov esi, 0xAABBCC - mcall SF_DEFINE_BUTTON, (290+delta-Otstup-130+10)*65536+130, (270+dy)*65536+(20+3), 2 - - inc edx - mcall , (290+delta-Otstup-50-2)*65536+(50+2), (210+dy)*65536+21 ;14 - - ;button select FS - inc edx - mov esi, 0xFFFFFF - mcall , Otstup*65536+120, (110)*65536+(21) - - ;button select unit size - inc edx - mcall , (Otstup+80+30+delta)*65536+120, (110)*65536+(21) - - ;button select device - inc edx - mcall , (Otstup+80+30+delta)*65536+120, (60)*65536+(21) - - invoke check_box_draw, ch1 ;Ёшёютрэшх ўхъсюъёют - invoke check_box_draw, ch2 - - invoke edit_box_draw, editMBR ;Ёшёютрэшх edit box'ют - invoke edit_box_draw, editLabel - - call draw_super_text - - - mov ecx,[sc.work] - mov dword [frame_data.font_backgr_color],ecx - push dword frame_data - invoke frame_draw - - mov ecx,[sc.work] - mov dword [frame_data2.font_backgr_color],ecx - push dword frame_data2 - invoke frame_draw - - mcall SF_REDRAW, SSF_END_DRAW - ret - - - -Otstup = 30 - -;ЎтхЄ 0x224466 чрьхэ╕э 0x90000000 ш т Їшэрых эр 0 -ch1 check_box2 Otstup shl 16 + 12, (170+dy) shl 16 + 12, 6, 0xFFFFFFFF, 0xAABBCC, 0, ch_text.1, 100b ; 110b = ch_flag_en and ch_flag_middl -ch2 check_box2 Otstup shl 16 + 12, (190+dy) shl 16 + 12, 6, 0xFFFFFFFF, 0xAABBCC, 0, ch_text.2, 100b - - -browse db '...', 0 - -if lang eq ru_RU ; Russian language - -title db "Formatting Disk Utility", 0 - -ch_text: ;text for CheckBoxs -.1 db 'Полное и долгое форматирование',0 -.2 db 'Создать загрузочный диск, запись MBR:',0 - -text: - .volume db 'Метка тома:', 0 - .fs db 'Файловая система:', 0 - .disk db 'Накопитель:', 0 ;'Емкость:', 0 - .unit db 'Размер кластера:', 0 - .option db 'Параметры:', 0 - .format db 'Форматировать', 0 - -unittext: - .0 db '512 байт', 0 - .1 db '1024 байт', 0 - .2 db '2048 байт', 0 - .3 db '4096 байт', 0 - .4 db '8192 байт', 0 - .5 db '16 Кб', 0 - .6 db '32 Кб', 0 - .7 db '64 Кб', 0 - -else ; English language - -title db "Formatting Disk Utility", 0 - -ch_text: -.1 db 'Full and long disk formatting',0 -.2 db 'Create startup disk, write MBR:',0 - -text: - .volume db 'Volume Label:', 0 - .fs db 'File System:', 0 - .disk db 'Storage device:', 0 ;'Capacity:', 0 - .unit db 'Allocation unit size:', 0 - .option db 'Options:', 0 - .format db 'Format', 0 - -unittext: - .0 db '512 bytes', 0 - .1 db '1024 bytes', 0 - .2 db '2048 bytes', 0 - .3 db '4096 bytes', 0 - .4 db '8192 bytes', 0 - .5 db '16 Kb', 0 - .6 db '32 Kb', 0 - .7 db '64 Kb', 0 - -end if - - - -root_path: db "/", 0 - -align 4 -maxDeviceCount = 250-130 -read_folder_struct: - .subfunction dd 1 - .start dd 0 ;start block - .encoding dd 3 ;1-cp866, 2-UTF-16LE, 3-utf8 - .count dd maxDeviceCount ;count blocks - .return dd 0 ;рфЁхё ярь Єш фы  яюыєўрхьюую сыюър ┴─┬╩ ё чруюыютъюь - .name db 0 - .path_adr dd root_path -noneDevice: db '-', 0 -;adrDevice: dd 0 - -getDeviceList: - push eax ebx ecx esi - stdcall [ksubmenu_new] - mov [kmDevice], eax - sizeBDVK = 560 ;304 ; - - mcall SF_SYS_MISC, SSF_HEAP_INIT - - mcall SF_SYS_MISC, SSF_MEM_ALLOC, sizeBDVK*maxDeviceCount+32 - mov dword[read_folder_struct.return], eax - mcall SF_FILE, read_folder_struct - cmp eax, 0 - je .next - cmp eax, 6 - je .next - jmp .none -.next: - mov eax, dword[read_folder_struct.return] - mov esi, deviceAdrStr - add eax, 32 - mov ecx, 130 -@@: - cmp ebx, 0 - je @f - push eax ebx ecx - add eax, 40 - ;mov [adrDevice], eax - mov dword[esi], eax - stdcall [kmenuitem_new], KMENUITEM_NORMAL, [esi], ecx ; [adrDevice], ecx - stdcall [ksubmenu_add], [kmDevice], eax - pop ecx ebx eax - add esi, 4 - inc ecx - dec ebx - add eax, sizeBDVK - cmp ecx, 250 - ja @f - jmp @b -.none: - stdcall [kmenuitem_new], KMENUITEM_NORMAL, noneDevice, 130 - mov dword[esi], noneDevice - stdcall [ksubmenu_add], [kmDevice], eax -@@: - mov byte[kmDeviceID], 0 - stdcall [kmenuitem_new], KMENUITEM_SUBMENU, unittext.0, [kmDevice] - pop esi ecx ebx eax - ret - - -draw_super_text: - push eax ebx ecx edx edi esi - mov ebx, Otstup * 65536 + 49-6 ; draw info text with function 4 (x, y) - mov ecx, 0x90000000 ;0x90224466 ;0x224466 - mov eax, text.volume - mov edx, eax - mov esi, 13 - mcall SF_DRAW_TEXT - - mov ebx, Otstup * 65536 + 99-6 - mov edx, text.fs - mov esi, 12 - mcall SF_DRAW_TEXT - - mov ebx, (Otstup+80+30+delta) * 65536 + 99-6 - mov edx, text.unit - mov esi, 21 - mcall SF_DRAW_TEXT - - mov ebx, (Otstup+80+30+delta) * 65536 + 49-6 - mov edx, text.disk - mov esi, 9 - mcall SF_DRAW_TEXT - -; mov ebx, Otstup * 65536 + (151-6+dy) -; mov edx, text.option -; mov esi, 8 -; mcall SF_DRAW_TEXT - - mov ebx, (Otstup+80+30+delta +5) * 65536 + (110+3) - mov dl, byte[kmUnitID] - cmp dl, 0 - jne @f - mov edx, unittext.0 - jmp .printUnit -@@: - cmp dl, 1 - jne @f - mov edx, unittext.1 - jmp .printUnit -@@: - cmp dl, 2 - jne @f - mov edx, unittext.2 - jmp .printUnit -@@: - cmp dl, 3 - jne @f - mov edx, unittext.3 - jmp .printUnit -@@: - cmp dl, 4 - jne @f - mov edx, unittext.4 - jmp .printUnit -@@: - cmp dl, 5 - jne @f - mov edx, unittext.5 - jmp .printUnit -@@: - cmp dl, 6 - jne @f - mov edx, unittext.6 - jmp .printUnit -@@: - cmp dl, 7 - jne @f - mov edx, unittext.7 - jmp .printUnit -@@: - mov byte[kmUnitID], 0 - mov edx, unittext.0 -.printUnit: - mcall SF_DRAW_TEXT - - mov ebx, (Otstup+5) * 65536 + (110+3) - mov dl, byte[kmID] - cmp dl, 0 - jne @f - mov edx, kmNone - jmp .printFS -@@: - cmp dl, 1 - jne @f - mov edx, kmFat16 - jmp .printFS -@@: - cmp dl, 2 - jne @f - mov edx, kmFat32 - jmp .printFS -@@: - cmp dl, 3 - jne @f - mov edx, kmNTFS - jmp .printFS -@@: - cmp dl, 4 - jne @f - mov edx, kmExt2 - jmp .printFS -@@: - mov byte[kmID], 0 - mov edx, kmNone -.printFS: - ;mov esi, 8 - mcall SF_DRAW_TEXT - - ;button device - mov ebx, (Otstup+80+30+delta +5) * 65536 + (60+3) - mov edx, dword[kmDeviceID] - shl edx, 2 - add edx, deviceAdrStr - mov edx, dword[edx] - ;call setCurrentDeviceInEDX - mcall SF_DRAW_TEXT - - ;buttons text - mov ebx, (290+delta-Otstup-130+10+2+10) * 65536 + (277-3+dy) - mov ecx, 0x90FFFFFF - mov eax, text.format - mov edx, eax - mov esi, 6 - mcall SF_DRAW_TEXT - - mov ebx, (290+delta-Otstup-52+6+8) * 65536 + (213+dy) - ;mov ecx, 0xFFFFFF - mov eax, browse ;text.browse - mov edx, eax - mov esi, 6 - mcall SF_DRAW_TEXT - - pop esi edi edx ecx ebx eax - ret - - - -Buf: - .1 db 'NONAME18',0,0 - ;.3 db 'hd0 [4Gb]',0,0 ;100 dup(0) - .5 rb 512 ;db '/sys/format/fat32mbr.bin', 0, 0 - -initBuf: - push eax ecx - ;buf.1 - label - mov dword[Buf.1], 'NONA' - mov dword[Buf.1+4], 'ME18' - mov word[Buf.1+8], 0 - - ;buf.5 - full name for file mbr - mov eax, Buf.5 - mov ecx, 512/4 -@@: - mov dword[eax], 4 - add eax, 4 - dec ecx - cmp ecx, 0 - je @f - jmp @b -@@: - - pop ecx eax - ret - - - -copyPath: - push eax ebx ecx edx ;copy file name path - mov eax, openfile_path - mov ebx, Buf.5 - mov ecx, 0 - @@: - mov dl, byte[eax] - cmp dl, 0 - je @f - mov byte[ebx], dl - inc eax - inc ebx - inc ecx - jmp @b - @@: - mov byte[ebx], 0 - mov dword[editMBR.size], ecx - mov dword[editMBR.pos], ecx - pop edx ecx ebx eax - ret - -align 4 -but_open_dlg: - pushad - copy_path open_dialog_name,communication_area_default_path,file_name,0 - mov [OpenDialog_data.type],0 - stdcall[OpenDialog_Start], OpenDialog_data - cmp [OpenDialog_data.status],2 - je @f - cmp [OpenDialog_data.status],0 ;яюы№чютрЄхы№ эрцры Cancel? - je .end_open - ;ъюф яЁш єфрўэюь юЄъЁ√Єшш фшрыюур - ;... - call copyPath - jmp .end_open - @@: - ;ъюф яЁш эх єфрўэюь юЄъЁ√Єшш фшрыюур - ;... - .end_open: - popad - ret - -;фрээ√х фы  фшрыюур юЄъЁ√Єш  Їрщыют -align 4 -OpenDialog_data: -.type dd 0 ;0 - юЄъЁ√Є№, 1 - ёюїЁрэшЄ№, 2 - т√сЁрЄ№ фшЁхъЄюЁш■ -.procinfo dd procinfo -.com_area_name dd communication_area_name ;+8 -.com_area dd 0 ;+12 -.opendir_path dd plugin_path ;+16 -.dir_default_path dd default_dir ;+20 -.start_path dd file_name ;+24 яєЄ№ ъ фшрыюує юЄъЁ√Єш  Їрщыют -.draw_window dd draw_window ;+28 -.status dd 0 ;+32 -.openfile_path dd openfile_path ;+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 - -default_dir db '/sys',0 ;фшЁхъЄюЁш  яю єьюыўрэш■ -communication_area_name: db 'FFFFFFFF_open_dialog',0 -open_dialog_name: db 'opendial',0 -communication_area_default_path: db '/sys/File managers/',0 - -Filter: -dd Filter.end - Filter.1 -.1: -;db 'BIN',0 -.end: -db 0 - - -align 16 -@IMPORT: -library box_lib, 'box_lib.obj' - -import box_lib,\ - edit_box_draw, 'edit_box_draw',\ - edit_box_key, 'edit_box_key',\ - edit_box_mouse, 'edit_box_mouse',\ - init_checkbox, 'init_checkbox2',\ - check_box_draw, 'check_box_draw2',\ - check_box_mouse, 'check_box_mouse2',\ - option_box_draw, 'option_box_draw',\ - option_box_mouse, 'option_box_mouse',\ - frame_draw, 'frame_draw' - -align 4 -import_libkmenu: - kmenu_init dd akmenu_init - kmainmenu_draw dd akmainmenu_draw - kmainmenu_dispatch_cursorevent dd akmainmenu_dispatch_cursorevent - ksubmenu_new dd aksubmenu_new - ksubmenu_delete dd aksubmenu_delete - ksubmenu_draw dd aksubmenu_draw - ksubmenu_add dd aksubmenu_add - kmenuitem_new dd akmenuitem_new - kmenuitem_delete dd akmenuitem_delete - kmenuitem_draw dd akmenuitem_draw -dd 0,0 - akmenu_init db 'kmenu_init',0 - akmainmenu_draw db 'kmainmenu_draw',0 - akmainmenu_dispatch_cursorevent db 'kmainmenu_dispatch_cursorevent',0 - aksubmenu_new db 'ksubmenu_new',0 - aksubmenu_delete db 'ksubmenu_delete',0 - aksubmenu_draw db 'ksubmenu_draw',0 - aksubmenu_add db 'ksubmenu_add',0 - akmenuitem_new db 'kmenuitem_new',0 - akmenuitem_delete db 'kmenuitem_delete',0 - akmenuitem_draw db 'kmenuitem_draw',0 - -align 4 -import_proclib: - OpenDialog_Init dd aOpenDialog_Init - OpenDialog_Start dd aOpenDialog_Start -dd 0,0 - aOpenDialog_Init db 'OpenDialog_init',0 - aOpenDialog_Start db 'OpenDialog_start',0 - -system_dir0 db '/sys/lib/' -lib0_name db 'proc_lib.obj',0 -lib1_name db 'kmenu.obj',0 - - -frame_data: -.type dd 0 ;+0 -.x: -.x_size dw 290+delta-2*(Otstup-10) ;+4 -.x_start dw Otstup-10 ;+6 -.y: -.y_size dw 80+20 ;+8 -.y_start dw 151-6+dy ;+10 -.ext_fr_col dd 0x888888 ;+12 -.int_fr_col dd 0xffffff ;+16 -.draw_text_flag dd 1 ;+20 -.text_pointer dd text.option ;+24 -.text_position dd 0 ;+28 -.font_number dd 1;0 ;+32 -.font_size_y dd 9 ;+36 -.font_color dd 0x000000 ;+40 -.font_backgr_color dd 0xFFFFFF ;dddddd ;+44 - -frame_data2: -.type dd 0 -.x: -.x_size dw 290+delta-2*(Otstup-10) -.x_start dw Otstup-10 -.y: -.y_size dw 110 -.y_start dw Otstup+5 -.ext_fr_col dd 0x888888 -.int_fr_col dd 0xffffff -.draw_text_flag dd 0;1 -.text_pointer dd 0 ;text.option -.text_position dd 0 -.font_number dd 0 -.font_size_y dd 9 -.font_color dd 0x0 -.font_backgr_color dd 0xdddddd - -;symbolDownArrow db 25,0 - -kmNone: db 'None', 0 ;only MBR or ZeroDestroy -;kmFat12: db 'FAT12', 0 -kmFat16: db 'FAT16', 0 -kmFat32: db 'FAT32', 0 -;kmExtFat: db 'EXTFAT', 0 -kmNTFS: db 'NTFS', 0 -kmExt2: db 'EXT2', 0 -;kmExt3: db 'EXT3', 0 -;kmExt4: db 'EXT4', 0 -;kmXFS: db 'XFS', 0 - -l_libs_start: - lib0 l_libs lib0_name, file_name, system_dir0, import_proclib - lib1 l_libs lib1_name, file_name, system_dir0, import_libkmenu -load_lib_end: - -;ЁрчьхЁ√: 80 ш 120 -editLabel edit_box 120,Otstup,60,0xffffff,0x6a9480,0,0xAABBCC,0,8,Buf.1, mouse_dd, 0,8,8 -;editRU edit_box 120,Otstup+80+30+delta,60,0xffffff,0x6a9480,0,0xAABBCC,0,16,Buf.3, mouse_dd, 0,16,16 -editMBR edit_box 290+delta-Otstup-52-Otstup-20,Otstup+20,210+dy,0xffffff,0x6a9480,0,0xAABBCC,0,255,Buf.5, mouse_dd, 0,0,0 ;25,25 - -data_of_code dd 0 - -sc system_colors -mouse_dd rd 1 - -coord: - .x: rw 1 - .y: rw 1 - -coordUnit: - .x: rw 1 - .y: rw 1 - -coordDevice: - .x: rw 1 - .y: rw 1 - -kmDeviceID: rd 1 -kmDevice: rd 1 - -kmUnitID: rd 1 -kmUnit: rd 1 - -kmID: rb 1 ;эюьхЁ т√сЁрээюую яєэъЄр -kmFS: rd 1 -mbr: rb 512 - -sys_path: rb 4096 -file_name: rb 4096 -plugin_path: rb 4096 -openfile_path: rb 4096 -filename_area: rb 256 -rb 1024 -procinfo process_information -pi rb 1024 - -deviceAdrStr: rd maxDeviceCount - -I_END: - rb 256 -align 4 -STACKTOP: -MEM: +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; Formatting Disk Utility ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; Compile with FASM +; FORMAT ver. Oct 19, 2018 + +; Copyright (c) 2018, Efremenkov Sergey aka TheOnlyMirage +; All rights reserved. +; Redistribution and use in source and binary forms, with or without modification, +; are permitted provided that the following conditions are met: +; * Redistributions of source code must retain the above copyright notice, this +; list of conditions and the following disclaimer. +; * Redistributions in binary form must reproduce the above copyright notice, +; this list of conditions and the following disclaimer in the documentation and/or +; other materials provided with the distribution. +; * Neither the name of the nor the names of its contributors may +; be used to endorse or promote products derived from this software without +; specific prior written permission. + +; THE SOFTWARE IS PROVIDED УAS ISФ, WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, +; INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A +; PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT +; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +; OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +; -------------------------------------------------------------------------------------- +format binary as "" + +use32 +org 0 + +db 'MENUET01' +dd 1 +dd START +dd I_END +dd MEM +dd STACKTOP +dd 0, 0 + +KMENUITEM_NORMAL equ 0 +KMENUITEM_SUBMENU equ 1 +KMENUITEM_SEPARATOR equ 2 + +include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US. +include '../../macros.inc' +include '../../proc32.inc' +include '../../KOSfuncs.inc' +include '../../dll.inc' +include '../../develop/libraries/box_lib/trunk/box_lib.mac' ;for uses checkBox and editBox +include '../../load_lib.mac' +@use_library + +START: + mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors ;get system colors + + stdcall dll.Load, @IMPORT + or eax, eax + jnz exit + + load_libraries l_libs_start,load_lib_end + stdcall [OpenDialog_Init],OpenDialog_data + + ;set mask for events: + ;ёююс∙хэшх ю яхЁхЁшёютъх,эрцрЄр ъэюяър, юяЁхфхы╕ээр  Ёрэхх, ёюс√Єшх юЄ ь√°ш (ўЄю-Єю ёыєўшыюё№ - эрцрЄшх эр ъэюяъє ь√°ш шыш яхЁхьх∙хэшх; ёсЁрё√трхЄё  яЁш яЁюўЄхэшш) + mcall SF_SET_EVENTS_MASK, 0x27 + + mov ecx,[sc.work_text] + and ecx,0x9FFFFFFF + or ecx,0x90000000 + + call initBuf + + mov dword[editLabel.text_color], ecx + mov dword[editMBR.text_color], ecx + + invoke init_checkbox, ch1 + invoke init_checkbox, ch2 + + stdcall [kmenu_init], sc + stdcall [ksubmenu_new] + mov [kmFS], eax + + stdcall [kmenuitem_new], KMENUITEM_NORMAL, kmNone, 110 + stdcall [ksubmenu_add], [kmFS], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, kmFat16, 111 + stdcall [ksubmenu_add], [kmFS], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, kmFat32, 112 + stdcall [ksubmenu_add], [kmFS], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, kmNTFS, 113 + stdcall [ksubmenu_add], [kmFS], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, kmExt2, 114 + stdcall [ksubmenu_add], [kmFS], eax + mov byte[kmID], 0 + + stdcall [kmenuitem_new], KMENUITEM_SUBMENU, kmFat16, [kmFS] + + + stdcall [ksubmenu_new] + mov [kmUnit], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.0, 120 + stdcall [ksubmenu_add], [kmUnit], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.1, 121 + stdcall [ksubmenu_add], [kmUnit], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.2, 122 + stdcall [ksubmenu_add], [kmUnit], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.3, 123 + stdcall [ksubmenu_add], [kmUnit], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.4, 124 + stdcall [ksubmenu_add], [kmUnit], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.5, 125 + stdcall [ksubmenu_add], [kmUnit], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.6, 126 + stdcall [ksubmenu_add], [kmUnit], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, unittext.7, 127 + stdcall [ksubmenu_add], [kmUnit], eax + mov byte[kmUnitID], 0 + stdcall [kmenuitem_new], KMENUITEM_SUBMENU, unittext.0, [kmUnit] + + call getDeviceList + + call draw_window + +event_wait: + mcall SF_WAIT_EVENT + + cmp eax, 1 ; Event redraw + je redraw + + cmp eax, 2 ; Event key in buffer ? + je key + + cmp eax, 3 ; Event button in buffer ? + je button + + cmp eax, 6 ; Event mouse in buffer ? + je mouse + + jmp event_wait + + +redraw: + call draw_window + jmp event_wait + +key: + mcall SF_GET_KEY + invoke edit_box_key, editLabel + invoke edit_box_key, editMBR + jmp event_wait + +button: + mcall SF_GET_BUTTON + + cmp ah, 1 ;Close button + jne @f +exit: + mcall SF_TERMINATE_PROCESS +@@: + cmp ah, 2 ;Format button + jne @f + call butFormat + jmp event_wait +@@: + cmp ah, 3 ;Brouse button + jne @f + call butBrouse + jmp event_wait +@@: + cmp ah, 4 ;Select FS button + jne @f + call butSelectFS + jmp event_wait +@@: + cmp ah, 5 ;Select unit size button + jne @f + call butUnit + jmp event_wait +@@: + cmp ah, 6 ;Select Device button + jne @f + call butDevice + jmp event_wait +@@: + cmp ah, 110 ;kmenu list FS + jb @f + cmp ah, 114 + ja @f + sub ah, 110 + mov byte[kmID], ah + jmp redraw +@@: + cmp ah, 120 ;kmenu Unit Size + jb @f + cmp ah, 127 + ja @f + sub ah, 120 + mov byte[kmUnitID], ah + jmp redraw +@@: + cmp ah, 130 ;kmenu Device + jb @f + cmp ah, 250 + ja @f + sub ah, 130 + mov byte[kmDeviceID], ah + jmp redraw +@@: + jmp event_wait + +mouse: + invoke check_box_mouse, ch1 ;яЁютхЁър ўхъ сюъёр + invoke check_box_mouse, ch2 + + invoke edit_box_mouse, editLabel ;яЁютхЁър ёюс√Єшщ ь√°ш фы  editBox'ют + invoke edit_box_mouse, editMBR + + stdcall [kmainmenu_dispatch_cursorevent], [kmFS] + jmp event_wait + +butBrouse: + call but_open_dlg + ret + +butFormat: + ret + +butSelectFS: + push eax ebx ecx + mcall SF_THREAD_INFO, pi, -1 ;get window coord + + mov eax, dword[pi+34] + add eax, Otstup + mov word[coord.x], ax + + mov eax, dword[pi+38] + add eax, 129 + mov word[coord.y], ax + + stdcall [ksubmenu_draw], [kmFS], coord + pop ecx ebx eax + ret + +butUnit: + push eax ebx ecx + mcall SF_THREAD_INFO, pi, -1 + + mov eax, dword[pi+34] + add eax, Otstup+80+30+delta + mov word[coordUnit.x], ax + + mov eax, dword[pi+38] + add eax, 129 + mov word[coordUnit.y], ax + + stdcall [ksubmenu_draw], [kmUnit], coordUnit + pop ecx ebx eax + ret + +butDevice: + push eax ebx ecx + mcall SF_THREAD_INFO, pi, -1 + + mov eax, dword[pi+34] + add eax, Otstup+80+30+delta + mov word[coordDevice.x], ax + + mov eax, dword[pi+38] + add eax, 79 + mov word[coordDevice.y], ax + + stdcall [ksubmenu_draw], [kmDevice], coordDevice + pop ecx ebx eax + ret + + +delta = 50 +dy = 15 + 40 +warning_title: db 'Warning!',0 +draw_warningWindow: + ret + +draw_window: + mcall SF_REDRAW, SSF_BEGIN_DRAW + + mov eax, SF_CREATE_WINDOW ; define and draw window + mov ebx, 100 * 65536 + (290+delta) ; [x start] *65536 + [x size] + mov ecx, 100 * 65536 + (310+dy) ; [y start] *65536 + [y size] + mov edx,[sc.work] ;0x14FFFFFF + add edx, 0x14000000 ; color of work area RRGGBB + ; 0x02000000 = window type 4 (fixed size, skinned window) + mov esi, 0x808899ff ; color of grab bar RRGGBB + ; 0x80000000 = color glide + mov edi, title + mcall + + + mov esi, 0xAABBCC + mcall SF_DEFINE_BUTTON, (290+delta-Otstup-130+10)*65536+130, (270+dy)*65536+(20+3), 2 + + inc edx + mcall , (290+delta-Otstup-50-2)*65536+(50+2), (210+dy)*65536+21 ;14 + + ;button select FS + inc edx + mov esi, 0xFFFFFF + mcall , Otstup*65536+120, (110)*65536+(21) + + ;button select unit size + inc edx + mcall , (Otstup+80+30+delta)*65536+120, (110)*65536+(21) + + ;button select device + inc edx + mcall , (Otstup+80+30+delta)*65536+120, (60)*65536+(21) + + invoke check_box_draw, ch1 ;Ёшёютрэшх ўхъсюъёют + invoke check_box_draw, ch2 + + invoke edit_box_draw, editMBR ;Ёшёютрэшх edit box'ют + invoke edit_box_draw, editLabel + + call draw_super_text + + + mov ecx,[sc.work] + mov dword [frame_data.font_backgr_color],ecx + push dword frame_data + invoke frame_draw + + mov ecx,[sc.work] + mov dword [frame_data2.font_backgr_color],ecx + push dword frame_data2 + invoke frame_draw + + mcall SF_REDRAW, SSF_END_DRAW + ret + + + +Otstup = 30 + +;ЎтхЄ 0x224466 чрьхэ╕э 0x90000000 ш т Їшэрых эр 0 +ch1 check_box2 Otstup shl 16 + 12, (170+dy) shl 16 + 12, 6, 0xFFFFFFFF, 0xAABBCC, 0, ch_text.1, 100b ; 110b = ch_flag_en and ch_flag_middl +ch2 check_box2 Otstup shl 16 + 12, (190+dy) shl 16 + 12, 6, 0xFFFFFFFF, 0xAABBCC, 0, ch_text.2, 100b + + +browse db '...', 0 + +if lang eq ru_RU + +title db "Formatting Disk Utility", 0 + +ch_text: ;text for CheckBoxs +.1 db 'Полное и долгое форматирование',0 +.2 db 'Создать загрузочный диск, запись MBR:',0 + +text: + .volume db 'Метка тома:', 0 + .fs db 'Файловая система:', 0 + .disk db 'Накопитель:', 0 ;'Емкость:', 0 + .unit db 'Размер кластера:', 0 + .option db 'Параметры:', 0 + .format db 'Форматировать', 0 + +unittext: + .0 db '512 байт', 0 + .1 db '1024 байт', 0 + .2 db '2048 байт', 0 + .3 db '4096 байт', 0 + .4 db '8192 байт', 0 + .5 db '16 Кб', 0 + .6 db '32 Кб', 0 + .7 db '64 Кб', 0 + +else ; Default to en_US + +title db "Formatting Disk Utility", 0 + +ch_text: +.1 db 'Full and long disk formatting',0 +.2 db 'Create startup disk, write MBR:',0 + +text: + .volume db 'Volume Label:', 0 + .fs db 'File System:', 0 + .disk db 'Storage device:', 0 ;'Capacity:', 0 + .unit db 'Allocation unit size:', 0 + .option db 'Options:', 0 + .format db 'Format', 0 + +unittext: + .0 db '512 bytes', 0 + .1 db '1024 bytes', 0 + .2 db '2048 bytes', 0 + .3 db '4096 bytes', 0 + .4 db '8192 bytes', 0 + .5 db '16 Kb', 0 + .6 db '32 Kb', 0 + .7 db '64 Kb', 0 + +end if + + + +root_path: db "/", 0 + +align 4 +maxDeviceCount = 250-130 +read_folder_struct: + .subfunction dd 1 + .start dd 0 ;start block + .encoding dd 3 ;1-cp866, 2-UTF-16LE, 3-utf8 + .count dd maxDeviceCount ;count blocks + .return dd 0 ;рфЁхё ярь Єш фы  яюыєўрхьюую сыюър ┴─┬╩ ё чруюыютъюь + .name db 0 + .path_adr dd root_path +noneDevice: db '-', 0 +;adrDevice: dd 0 + +getDeviceList: + push eax ebx ecx esi + stdcall [ksubmenu_new] + mov [kmDevice], eax + sizeBDVK = 560 ;304 ; + + mcall SF_SYS_MISC, SSF_HEAP_INIT + + mcall SF_SYS_MISC, SSF_MEM_ALLOC, sizeBDVK*maxDeviceCount+32 + mov dword[read_folder_struct.return], eax + mcall SF_FILE, read_folder_struct + cmp eax, 0 + je .next + cmp eax, 6 + je .next + jmp .none +.next: + mov eax, dword[read_folder_struct.return] + mov esi, deviceAdrStr + add eax, 32 + mov ecx, 130 +@@: + cmp ebx, 0 + je @f + push eax ebx ecx + add eax, 40 + ;mov [adrDevice], eax + mov dword[esi], eax + stdcall [kmenuitem_new], KMENUITEM_NORMAL, [esi], ecx ; [adrDevice], ecx + stdcall [ksubmenu_add], [kmDevice], eax + pop ecx ebx eax + add esi, 4 + inc ecx + dec ebx + add eax, sizeBDVK + cmp ecx, 250 + ja @f + jmp @b +.none: + stdcall [kmenuitem_new], KMENUITEM_NORMAL, noneDevice, 130 + mov dword[esi], noneDevice + stdcall [ksubmenu_add], [kmDevice], eax +@@: + mov byte[kmDeviceID], 0 + stdcall [kmenuitem_new], KMENUITEM_SUBMENU, unittext.0, [kmDevice] + pop esi ecx ebx eax + ret + + +draw_super_text: + push eax ebx ecx edx edi esi + mov ebx, Otstup * 65536 + 49-6 ; draw info text with function 4 (x, y) + mov ecx, 0x90000000 ;0x90224466 ;0x224466 + mov eax, text.volume + mov edx, eax + mov esi, 13 + mcall SF_DRAW_TEXT + + mov ebx, Otstup * 65536 + 99-6 + mov edx, text.fs + mov esi, 12 + mcall SF_DRAW_TEXT + + mov ebx, (Otstup+80+30+delta) * 65536 + 99-6 + mov edx, text.unit + mov esi, 21 + mcall SF_DRAW_TEXT + + mov ebx, (Otstup+80+30+delta) * 65536 + 49-6 + mov edx, text.disk + mov esi, 9 + mcall SF_DRAW_TEXT + +; mov ebx, Otstup * 65536 + (151-6+dy) +; mov edx, text.option +; mov esi, 8 +; mcall SF_DRAW_TEXT + + mov ebx, (Otstup+80+30+delta +5) * 65536 + (110+3) + mov dl, byte[kmUnitID] + cmp dl, 0 + jne @f + mov edx, unittext.0 + jmp .printUnit +@@: + cmp dl, 1 + jne @f + mov edx, unittext.1 + jmp .printUnit +@@: + cmp dl, 2 + jne @f + mov edx, unittext.2 + jmp .printUnit +@@: + cmp dl, 3 + jne @f + mov edx, unittext.3 + jmp .printUnit +@@: + cmp dl, 4 + jne @f + mov edx, unittext.4 + jmp .printUnit +@@: + cmp dl, 5 + jne @f + mov edx, unittext.5 + jmp .printUnit +@@: + cmp dl, 6 + jne @f + mov edx, unittext.6 + jmp .printUnit +@@: + cmp dl, 7 + jne @f + mov edx, unittext.7 + jmp .printUnit +@@: + mov byte[kmUnitID], 0 + mov edx, unittext.0 +.printUnit: + mcall SF_DRAW_TEXT + + mov ebx, (Otstup+5) * 65536 + (110+3) + mov dl, byte[kmID] + cmp dl, 0 + jne @f + mov edx, kmNone + jmp .printFS +@@: + cmp dl, 1 + jne @f + mov edx, kmFat16 + jmp .printFS +@@: + cmp dl, 2 + jne @f + mov edx, kmFat32 + jmp .printFS +@@: + cmp dl, 3 + jne @f + mov edx, kmNTFS + jmp .printFS +@@: + cmp dl, 4 + jne @f + mov edx, kmExt2 + jmp .printFS +@@: + mov byte[kmID], 0 + mov edx, kmNone +.printFS: + ;mov esi, 8 + mcall SF_DRAW_TEXT + + ;button device + mov ebx, (Otstup+80+30+delta +5) * 65536 + (60+3) + mov edx, dword[kmDeviceID] + shl edx, 2 + add edx, deviceAdrStr + mov edx, dword[edx] + ;call setCurrentDeviceInEDX + mcall SF_DRAW_TEXT + + ;buttons text + mov ebx, (290+delta-Otstup-130+10+2+10) * 65536 + (277-3+dy) + mov ecx, 0x90FFFFFF + mov eax, text.format + mov edx, eax + mov esi, 6 + mcall SF_DRAW_TEXT + + mov ebx, (290+delta-Otstup-52+6+8) * 65536 + (213+dy) + ;mov ecx, 0xFFFFFF + mov eax, browse ;text.browse + mov edx, eax + mov esi, 6 + mcall SF_DRAW_TEXT + + pop esi edi edx ecx ebx eax + ret + + + +Buf: + .1 db 'NONAME18',0,0 + ;.3 db 'hd0 [4Gb]',0,0 ;100 dup(0) + .5 rb 512 ;db '/sys/format/fat32mbr.bin', 0, 0 + +initBuf: + push eax ecx + ;buf.1 - label + mov dword[Buf.1], 'NONA' + mov dword[Buf.1+4], 'ME18' + mov word[Buf.1+8], 0 + + ;buf.5 - full name for file mbr + mov eax, Buf.5 + mov ecx, 512/4 +@@: + mov dword[eax], 4 + add eax, 4 + dec ecx + cmp ecx, 0 + je @f + jmp @b +@@: + + pop ecx eax + ret + + + +copyPath: + push eax ebx ecx edx ;copy file name path + mov eax, openfile_path + mov ebx, Buf.5 + mov ecx, 0 + @@: + mov dl, byte[eax] + cmp dl, 0 + je @f + mov byte[ebx], dl + inc eax + inc ebx + inc ecx + jmp @b + @@: + mov byte[ebx], 0 + mov dword[editMBR.size], ecx + mov dword[editMBR.pos], ecx + pop edx ecx ebx eax + ret + +align 4 +but_open_dlg: + pushad + copy_path open_dialog_name,communication_area_default_path,file_name,0 + mov [OpenDialog_data.type],0 + stdcall[OpenDialog_Start], OpenDialog_data + cmp [OpenDialog_data.status],2 + je @f + cmp [OpenDialog_data.status],0 ;яюы№чютрЄхы№ эрцры Cancel? + je .end_open + ;ъюф яЁш єфрўэюь юЄъЁ√Єшш фшрыюур + ;... + call copyPath + jmp .end_open + @@: + ;ъюф яЁш эх єфрўэюь юЄъЁ√Єшш фшрыюур + ;... + .end_open: + popad + ret + +;фрээ√х фы  фшрыюур юЄъЁ√Єш  Їрщыют +align 4 +OpenDialog_data: +.type dd 0 ;0 - юЄъЁ√Є№, 1 - ёюїЁрэшЄ№, 2 - т√сЁрЄ№ фшЁхъЄюЁш■ +.procinfo dd procinfo +.com_area_name dd communication_area_name ;+8 +.com_area dd 0 ;+12 +.opendir_path dd plugin_path ;+16 +.dir_default_path dd default_dir ;+20 +.start_path dd file_name ;+24 яєЄ№ ъ фшрыюує юЄъЁ√Єш  Їрщыют +.draw_window dd draw_window ;+28 +.status dd 0 ;+32 +.openfile_path dd openfile_path ;+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 + +default_dir db '/sys',0 ;фшЁхъЄюЁш  яю єьюыўрэш■ +communication_area_name: db 'FFFFFFFF_open_dialog',0 +open_dialog_name: db 'opendial',0 +communication_area_default_path: db '/sys/File managers/',0 + +Filter: +dd Filter.end - Filter.1 +.1: +;db 'BIN',0 +.end: +db 0 + + +align 16 +@IMPORT: +library box_lib, 'box_lib.obj' + +import box_lib,\ + edit_box_draw, 'edit_box_draw',\ + edit_box_key, 'edit_box_key',\ + edit_box_mouse, 'edit_box_mouse',\ + init_checkbox, 'init_checkbox2',\ + check_box_draw, 'check_box_draw2',\ + check_box_mouse, 'check_box_mouse2',\ + option_box_draw, 'option_box_draw',\ + option_box_mouse, 'option_box_mouse',\ + frame_draw, 'frame_draw' + +align 4 +import_libkmenu: + kmenu_init dd akmenu_init + kmainmenu_draw dd akmainmenu_draw + kmainmenu_dispatch_cursorevent dd akmainmenu_dispatch_cursorevent + ksubmenu_new dd aksubmenu_new + ksubmenu_delete dd aksubmenu_delete + ksubmenu_draw dd aksubmenu_draw + ksubmenu_add dd aksubmenu_add + kmenuitem_new dd akmenuitem_new + kmenuitem_delete dd akmenuitem_delete + kmenuitem_draw dd akmenuitem_draw +dd 0,0 + akmenu_init db 'kmenu_init',0 + akmainmenu_draw db 'kmainmenu_draw',0 + akmainmenu_dispatch_cursorevent db 'kmainmenu_dispatch_cursorevent',0 + aksubmenu_new db 'ksubmenu_new',0 + aksubmenu_delete db 'ksubmenu_delete',0 + aksubmenu_draw db 'ksubmenu_draw',0 + aksubmenu_add db 'ksubmenu_add',0 + akmenuitem_new db 'kmenuitem_new',0 + akmenuitem_delete db 'kmenuitem_delete',0 + akmenuitem_draw db 'kmenuitem_draw',0 + +align 4 +import_proclib: + OpenDialog_Init dd aOpenDialog_Init + OpenDialog_Start dd aOpenDialog_Start +dd 0,0 + aOpenDialog_Init db 'OpenDialog_init',0 + aOpenDialog_Start db 'OpenDialog_start',0 + +system_dir0 db '/sys/lib/' +lib0_name db 'proc_lib.obj',0 +lib1_name db 'kmenu.obj',0 + + +frame_data: +.type dd 0 ;+0 +.x: +.x_size dw 290+delta-2*(Otstup-10) ;+4 +.x_start dw Otstup-10 ;+6 +.y: +.y_size dw 80+20 ;+8 +.y_start dw 151-6+dy ;+10 +.ext_fr_col dd 0x888888 ;+12 +.int_fr_col dd 0xffffff ;+16 +.draw_text_flag dd 1 ;+20 +.text_pointer dd text.option ;+24 +.text_position dd 0 ;+28 +.font_number dd 1;0 ;+32 +.font_size_y dd 9 ;+36 +.font_color dd 0x000000 ;+40 +.font_backgr_color dd 0xFFFFFF ;dddddd ;+44 + +frame_data2: +.type dd 0 +.x: +.x_size dw 290+delta-2*(Otstup-10) +.x_start dw Otstup-10 +.y: +.y_size dw 110 +.y_start dw Otstup+5 +.ext_fr_col dd 0x888888 +.int_fr_col dd 0xffffff +.draw_text_flag dd 0;1 +.text_pointer dd 0 ;text.option +.text_position dd 0 +.font_number dd 0 +.font_size_y dd 9 +.font_color dd 0x0 +.font_backgr_color dd 0xdddddd + +;symbolDownArrow db 25,0 + +kmNone: db 'None', 0 ;only MBR or ZeroDestroy +;kmFat12: db 'FAT12', 0 +kmFat16: db 'FAT16', 0 +kmFat32: db 'FAT32', 0 +;kmExtFat: db 'EXTFAT', 0 +kmNTFS: db 'NTFS', 0 +kmExt2: db 'EXT2', 0 +;kmExt3: db 'EXT3', 0 +;kmExt4: db 'EXT4', 0 +;kmXFS: db 'XFS', 0 + +l_libs_start: + lib0 l_libs lib0_name, file_name, system_dir0, import_proclib + lib1 l_libs lib1_name, file_name, system_dir0, import_libkmenu +load_lib_end: + +;ЁрчьхЁ√: 80 ш 120 +editLabel edit_box 120,Otstup,60,0xffffff,0x6a9480,0,0xAABBCC,0,8,Buf.1, mouse_dd, 0,8,8 +;editRU edit_box 120,Otstup+80+30+delta,60,0xffffff,0x6a9480,0,0xAABBCC,0,16,Buf.3, mouse_dd, 0,16,16 +editMBR edit_box 290+delta-Otstup-52-Otstup-20,Otstup+20,210+dy,0xffffff,0x6a9480,0,0xAABBCC,0,255,Buf.5, mouse_dd, 0,0,0 ;25,25 + +data_of_code dd 0 + +sc system_colors +mouse_dd rd 1 + +coord: + .x: rw 1 + .y: rw 1 + +coordUnit: + .x: rw 1 + .y: rw 1 + +coordDevice: + .x: rw 1 + .y: rw 1 + +kmDeviceID: rd 1 +kmDevice: rd 1 + +kmUnitID: rd 1 +kmUnit: rd 1 + +kmID: rb 1 ;эюьхЁ т√сЁрээюую яєэъЄр +kmFS: rd 1 +mbr: rb 512 + +sys_path: rb 4096 +file_name: rb 4096 +plugin_path: rb 4096 +openfile_path: rb 4096 +filename_area: rb 256 +rb 1024 +procinfo process_information +pi rb 1024 + +deviceAdrStr: rd maxDeviceCount + +I_END: + rb 256 +align 4 +STACKTOP: +MEM: diff --git a/programs/system/gmon/tab_about.inc b/programs/system/gmon/tab_about.inc index 4d70a019f2..056539080c 100644 --- a/programs/system/gmon/tab_about.inc +++ b/programs/system/gmon/tab_about.inc @@ -1,44 +1,45 @@ -; -; Ghost Monitor - ╤Г╤В╨╕╨╗╨╕╤В╨░ (╤Б╤В╤А╨╡╤Б╤Б) ╤В╨╡╤Б╤В╨╕╤А╨╛╨▓╨░╨╜╨╕╤П ╨╕ ╨╝╨╛╨╜╨╕╤В╨╛╤А╨╕╨╜╨│╨░ ╤Б╨╕╤Б╤В╨╡╨╝╤Л -; Copyright (C) 2005, 2006, 2007 Mihailov Ilia (ghost.nsk@mail.ru) -; All Right Reserved - - - mov edx, msg_about - mov ebx, 17 * 65536 + 285 - call show_text - jmp redraw - -if lang eq it_IT - msg_about mls \ - ' Ghost Monitor',\ - '',\ - 'strumento per testare il proprio hardware',\ - '',\ - 'Supported SuperIO : W83627HF,W83697HF',\ - ' W83627THF,W83627THF-A,W83627EHF-A,',\ - ' W83637THF,IT8705F,IT8712F,SiS950',\ - ' ABIT uGuru',\ - '',\ - 'Test basati su R.J.Redelmeier CPUBurn',\ - '',\ - 'Mailto : ghost.nsk@mail.ru',\ - '',\ - ' *** Usare a prioprio rischio ***' -else - msg_about mls \ ; ╨┤╨╛╨╗╨╢╨╜╨░ ╨▒╤Л╤В╤М ╤Е╨╛╤В╤П╨▒╤Л ╨╛╨┤╨╜╨░ ╤Б╤В╤А╨╛╨║╨░ - ' Ghost Monitor',\ - '',\ - ' tool for testing and monitoring hardware',\ - '',\ - 'Supported SuperIO : W83627HF,W83697HF',\ - ' W83627THF,W83627THF-A,W83627EHF-A,',\ - ' W83637THF,IT8705F,IT8712F,SiS950',\ - ' ABIT uGuru',\ - '',\ - 'Tests based on R.J.Redelmeier CPUBurn',\ - '',\ - 'Mailto : ghost.nsk@mail.ru',\ - '',\ - ' *** Use at YOUR own RISK ***' -end if +; +; Ghost Monitor - ╤Г╤В╨╕╨╗╨╕╤В╨░ (╤Б╤В╤А╨╡╤Б╤Б) ╤В╨╡╤Б╤В╨╕╤А╨╛╨▓╨░╨╜╨╕╤П ╨╕ ╨╝╨╛╨╜╨╕╤В╨╛╤А╨╕╨╜╨│╨░ ╤Б╨╕╤Б╤В╨╡╨╝╤Л +; Copyright (C) 2005, 2006, 2007 Mihailov Ilia (ghost.nsk@mail.ru) +; All Right Reserved + +; Language support for locales: it_IT, en_US. + + mov edx, msg_about + mov ebx, 17 * 65536 + 285 + call show_text + jmp redraw + +if lang eq it_IT + msg_about mls \ + ' Ghost Monitor',\ + '',\ + 'strumento per testare il proprio hardware',\ + '',\ + 'Supported SuperIO : W83627HF,W83697HF',\ + ' W83627THF,W83627THF-A,W83627EHF-A,',\ + ' W83637THF,IT8705F,IT8712F,SiS950',\ + ' ABIT uGuru',\ + '',\ + 'Test basati su R.J.Redelmeier CPUBurn',\ + '',\ + 'Mailto : ghost.nsk@mail.ru',\ + '',\ + ' *** Usare a prioprio rischio ***' +else ; Default to en_US + msg_about mls \ ; ╨┤╨╛╨╗╨╢╨╜╨░ ╨▒╤Л╤В╤М ╤Е╨╛╤В╤П╨▒╤Л ╨╛╨┤╨╜╨░ ╤Б╤В╤А╨╛╨║╨░ + ' Ghost Monitor',\ + '',\ + ' tool for testing and monitoring hardware',\ + '',\ + 'Supported SuperIO : W83627HF,W83697HF',\ + ' W83627THF,W83627THF-A,W83627EHF-A,',\ + ' W83637THF,IT8705F,IT8712F,SiS950',\ + ' ABIT uGuru',\ + '',\ + 'Tests based on R.J.Redelmeier CPUBurn',\ + '',\ + 'Mailto : ghost.nsk@mail.ru',\ + '',\ + ' *** Use at your own risk ***' +end if diff --git a/programs/system/gmon/tab_test.inc b/programs/system/gmon/tab_test.inc index 49cee21caa..c522f9b9fd 100644 --- a/programs/system/gmon/tab_test.inc +++ b/programs/system/gmon/tab_test.inc @@ -1,123 +1,125 @@ -; -; Ghost Monitor - ╤Г╤В╨╕╨╗╨╕╤В╨░ (╤Б╤В╤А╨╡╤Б╤Б) ╤В╨╡╤Б╤В╨╕╤А╨╛╨▓╨░╨╜╨╕╤П ╨╕ ╨╝╨╛╨╜╨╕╤В╨╛╤А╨╕╨╜╨│╨░ ╤Б╨╕╤Б╤В╨╡╨╝╤Л -; Copyright (C) 2005, 2006, 2007 Mihailov Ilia (ghost.nsk@mail.ru) -; All Right Reserved -; -; ╨Т╨║╨╗╨░╨┤╨║╨░ ╤В╨╡╤Б╤В╨╛╨▓ -; -; "GenuineIntel" - International Electronics -; "GenuineTMx86" - Transmeta Processor -; "AuthenticAMD" - Advanced Micro Devices -; "AMD ISBETTER" - Advanced Micro Devices -; "UMC UMC UMC " - United Microelectronics Corporation -; "CyrixInstead" - Cyrix Processor -; "Geode by NSC" - National Semiconductor Processor -; "SiS SiS SiS " - SiS Processor -; "RiseRiseRise" - Rise Processor -; "NexGenDriven" - NexGen Processor (acquired by AMD) -; "CentaurHauls" - IDT/Centaur, now VIA Processor - - ; Pentium (P5) button - mov eax, 8 - mov ebx, 17 * 65536 + 145 - mov ecx, 297 * 65536 + 25 - mov edx, 6 - mov esi, tcol - cmp byte[Vendor + 11], 'l' - jne p5n - cmp byte[CPU_fam], 5 - jne p5n - mov esi, atcol -p5n: int 0x40 - ; Pentium Pro / II / III (P6) button - add ecx, 27 * 65536 - inc edx - mov esi, tcol - cmp byte[Vendor + 11], 'l' - jne p6n - cmp byte[CPU_fam], 6 - jne p6n - mov esi, atcol -p6n: int 0x40 - ; AMD K6 button - add ecx, 27 * 65536 - inc edx - mov esi, tcol - cmp byte[Vendor], 'A' - jne k6n - cmp byte[CPU_fam], 5 - jne k6n - mov esi, atcol -k6n: int 0x40 - ; AMD K7 (Athlon / Duron) - add ecx, 27 * 65536 - inc edx - mov esi, tcol - cmp byte[Vendor], 'A' - jne k7n - cmp byte[CPU_fam], 6 - jne k7n - mov esi, atcol -k7n: int 0x40 - ; ╨Я╨╕╤И╨╡╨╝ ╨╜╨░╨╖╨▓╨░╨╜╨╕╤П ╨║╨╜╨╛╨┐╨╛╨║ - mov eax, 4 - mov ebx, 30 * 65536 + 307 - mov esi, 7 - mov edx, tmsg_p ; P5 - xor ecx, ecx - cmp byte[test_id], 6 - jne nr1 - mov ecx, 0xFF0000 -nr1: int 0x40 - add ebx, 27 - mov esi, 20 ; P6 - xor ecx, ecx - cmp byte[test_id], 7 - jne nr2 - mov ecx, 0xFF0000 -nr2: int 0x40 - add ebx, 27 - mov edx, tmsg_k6 ; K6 - mov esi, 13 - xor ecx, ecx - cmp byte[test_id], 8 - jne nr3 - mov ecx, 0xFF0000 -nr3: int 0x40 - add ebx, 27 - mov edx, tmsg_k7 ; K7 - mov esi, 15 - xor ecx, ecx - cmp byte[test_id], 9 - jne nr4 - mov ecx, 0xFF0000 -nr4: int 0x40 - xor ecx, ecx - mov ebx, 190 * 65536 + 420 - mov edx, tmsg_rec - mov esi, 11 - int 0x40 - ; read about - mov ebx, 30 * 65536 + 282 - mov edx, tmsg_war - mov esi, 35 - mov ecx, 0xFF0000 - int 0x40 - ; recommendate color - mov eax, 13 - mov ebx, 170 * 65536 + 10 - mov ecx, 418 * 65536 + 10 - mov edx, atcol - int 0x40 - - jmp redraw - -tmsg_p db 'Pentium (Pro/II/III)' ; 7/20 -tmsg_k6 db 'K6 (I/II/III)' ; 13 -tmsg_k7 db 'K7/Athlon/Duron' ; 15 -tmsg_rec db 'recommended' ; 11 -if lang eq it_IT - tmsg_war db 'Potrebbe danneggiare lo hardware ' -else - tmsg_war db 'May permanently damage the hardware' -end if +; +; Ghost Monitor - ╤Г╤В╨╕╨╗╨╕╤В╨░ (╤Б╤В╤А╨╡╤Б╤Б) ╤В╨╡╤Б╤В╨╕╤А╨╛╨▓╨░╨╜╨╕╤П ╨╕ ╨╝╨╛╨╜╨╕╤В╨╛╤А╨╕╨╜╨│╨░ ╤Б╨╕╤Б╤В╨╡╨╝╤Л +; Copyright (C) 2005, 2006, 2007 Mihailov Ilia (ghost.nsk@mail.ru) +; All Right Reserved +; +; ╨Т╨║╨╗╨░╨┤╨║╨░ ╤В╨╡╤Б╤В╨╛╨▓ + +; Language support for locales: it_IT, en_US. + +; "GenuineIntel" - International Electronics +; "GenuineTMx86" - Transmeta Processor +; "AuthenticAMD" - Advanced Micro Devices +; "AMD ISBETTER" - Advanced Micro Devices +; "UMC UMC UMC " - United Microelectronics Corporation +; "CyrixInstead" - Cyrix Processor +; "Geode by NSC" - National Semiconductor Processor +; "SiS SiS SiS " - SiS Processor +; "RiseRiseRise" - Rise Processor +; "NexGenDriven" - NexGen Processor (acquired by AMD) +; "CentaurHauls" - IDT/Centaur, now VIA Processor + + ; Pentium (P5) button + mov eax, 8 + mov ebx, 17 * 65536 + 145 + mov ecx, 297 * 65536 + 25 + mov edx, 6 + mov esi, tcol + cmp byte[Vendor + 11], 'l' + jne p5n + cmp byte[CPU_fam], 5 + jne p5n + mov esi, atcol +p5n: int 0x40 + ; Pentium Pro / II / III (P6) button + add ecx, 27 * 65536 + inc edx + mov esi, tcol + cmp byte[Vendor + 11], 'l' + jne p6n + cmp byte[CPU_fam], 6 + jne p6n + mov esi, atcol +p6n: int 0x40 + ; AMD K6 button + add ecx, 27 * 65536 + inc edx + mov esi, tcol + cmp byte[Vendor], 'A' + jne k6n + cmp byte[CPU_fam], 5 + jne k6n + mov esi, atcol +k6n: int 0x40 + ; AMD K7 (Athlon / Duron) + add ecx, 27 * 65536 + inc edx + mov esi, tcol + cmp byte[Vendor], 'A' + jne k7n + cmp byte[CPU_fam], 6 + jne k7n + mov esi, atcol +k7n: int 0x40 + ; ╨Я╨╕╤И╨╡╨╝ ╨╜╨░╨╖╨▓╨░╨╜╨╕╤П ╨║╨╜╨╛╨┐╨╛╨║ + mov eax, 4 + mov ebx, 30 * 65536 + 307 + mov esi, 7 + mov edx, tmsg_p ; P5 + xor ecx, ecx + cmp byte[test_id], 6 + jne nr1 + mov ecx, 0xFF0000 +nr1: int 0x40 + add ebx, 27 + mov esi, 20 ; P6 + xor ecx, ecx + cmp byte[test_id], 7 + jne nr2 + mov ecx, 0xFF0000 +nr2: int 0x40 + add ebx, 27 + mov edx, tmsg_k6 ; K6 + mov esi, 13 + xor ecx, ecx + cmp byte[test_id], 8 + jne nr3 + mov ecx, 0xFF0000 +nr3: int 0x40 + add ebx, 27 + mov edx, tmsg_k7 ; K7 + mov esi, 15 + xor ecx, ecx + cmp byte[test_id], 9 + jne nr4 + mov ecx, 0xFF0000 +nr4: int 0x40 + xor ecx, ecx + mov ebx, 190 * 65536 + 420 + mov edx, tmsg_rec + mov esi, 11 + int 0x40 + ; read about + mov ebx, 30 * 65536 + 282 + mov edx, tmsg_war + mov esi, 35 + mov ecx, 0xFF0000 + int 0x40 + ; recommendate color + mov eax, 13 + mov ebx, 170 * 65536 + 10 + mov ecx, 418 * 65536 + 10 + mov edx, atcol + int 0x40 + + jmp redraw + +tmsg_p db 'Pentium (Pro/II/III)' ; 7/20 +tmsg_k6 db 'K6 (I/II/III)' ; 13 +tmsg_k7 db 'K7/Athlon/Duron' ; 15 +tmsg_rec db 'recommended' ; 11 +if lang eq it_IT + tmsg_war db 'Potrebbe danneggiare lo hardware ' +else ; Default to en_US + tmsg_war db 'May permanently damage the hardware' +end if diff --git a/programs/system/icon/trunk/data.inc b/programs/system/icon/trunk/data.inc index ee5591d84b..cfdb514e76 100644 --- a/programs/system/icon/trunk/data.inc +++ b/programs/system/icon/trunk/data.inc @@ -1,206 +1,209 @@ -;------------------------------------------------------------------------------ -tl dd 8 -yw: dd 51 -ya dd 0 -cur_btn dd 40 -;------------------------------------------------------------------------------ -; DATA AREA -bcolor dd 0x335599 -;------------------------------------------------------------------------------ -icon_table: - times 4 db 'xxxx xxxx' - times 2 db ' ' - times 1 db ' ' - times 2 db 'xxxx xxxx' -; times 1 db ' ' -;------------------------------------------------------------------------------ -icons_reserved: - times 9 db ' ' -;------------------------------------------------------------------------------ -if lang eq ru_RU -text: - db 255,255,255,0, ' ТЕКСТ ' - db 255,255,255,0, ' ПРОГРАММА ' - db 255,255,255,0, ' ПАРАМЕТРЫ ' - db 255,255,255,0, ' ПРИМЕНИТЬ ' - db 255,255,255,0, ' ДОБАВИТЬ УДАЛИТЬ ' - db 0,0,0,0, 'НАЖМИТЕ НА ПОЗИЦИЮ ИКОНКИ ДЛЯ РЕДАКТИРОВАНИЯ ' - db 'x' ; <- END MARKER, DONT DELETE - -add_text db 'НАЖМИТЕ НА ПОЗИЦИЮ НЕИСПОЛЬЗУЕМОЙ ИКОНКИ ',0 -rem_text db 'НАЖМИТЕ НА ПОЗИЦИЮ ИСПОЛЬЗУЕМОЙ ИКОНКИ ',0 -title db 'Менеджер иконок',0 - -else if lang eq de_DE -text: - db 255,255,255,0, ' TITLE ' - db 255,255,255,0, ' APP NAME ' - db 255,255,255,0, ' PARAMETER ' - db 255,255,255,0, ' ANWENDEN ' - db 255,255,255,0, ' HINZUFUEGEN ENTFERNEN ' - db 0,0,0,0, 'AUF BUTTON KLICKEN, UM ICON ZU EDITIEREN ' - db 'x' ; <- END MARKER, DONT DELETE - -add_text db 'AUF UNBENUTZTE ICONPOSITION KLICKEN ',0 -rem_text db 'ICON ANKLICKEN; DAS GELOESCHT WERDEN SOLL ',0 -title db 'Icon Manager',0 - -else if lang eq it_IT -text: - db 255,255,255,0, 'Titolo ' - db 255,255,255,0, 'Nome app ' - db 255,255,255,0, 'Parametri ' - db 255,255,255,0, ' Applica modifiche ' - db 255,255,255,0, ' Aggiungi Rimuovi ' - db 0,0,0,0, 'Clicca sull icona per effettuare modifiche ' - db 'x' ; <- END MARKER, DONT DELETE - -add_text db 'Clicca su una posizione non usata ',0 -rem_text db 'Cliccare sull icona da rimuovere ',0 -title db 'Gestore Icone',0 - -else -text: - db 255,255,255,0, ' TITLE ' - db 255,255,255,0, ' APP NAME ' - db 255,255,255,0, ' PARAMETERS ' - db 255,255,255,0, ' APPLY CHANGES ' - db 255,255,255,0, ' ADD ICON REMOVE ICON ' - db 0,0,0,0, 'CLICK BUTTON ON ICON POSITION FOR EDIT ' - db 'x' ; <- END MARKER, DONT DELETE -add_text db 'CLICK ON A NOT USED POSITION ',0 -rem_text db 'CLICK ICON POSITION; YOU WANT TO DELETE ',0 -title db 'Icon Manager',0 - -end if -;------------------------------------------------------------------------------ -arrows db '' -;------------------------------------------------------------------------------ -iconname: - db ICON_APP,0 -;------------------------------------------------------------------------------ -icon_default: - db 'AA-CALC -004-/SYS/CALC ' - db '- *' - db 13,10 -;------------------------------------------------------------------------------ -rep_text: -if lang eq ru_RU - db 'ЗНАЧКИ - ИЗ , ВЫБРАН #' -;else if lang eq it_IT -; db 'Icone - di , Selezionate' -else - db 'ICONS - OF , SELECTED' -end if - -rep_text_len: -;------------------------------------------------------------------------------ -align 4 -finfo_start: - dd 7 - dd 0 -.params dd 0 - dd 0 - dd 0 - db 0 - dd finfo.path -;------------------------------------------------------------------------------ -align 4 -finfo: - dd 5 - dd 0 - dd 0 -.size dd 0 -.point dd procinfo -.path: - db ICON_STRIP,0 - rb 31-($-.path) -;------------------------------------------------------------------------------ -align 4 -positions dd 3,16,47 -str_lens db 8,30,30 - -current_icon dd icon_data - -iconlst db ICONS_DAT,0 - -;image dd image_area -;------------------------------------------------------------------------------ -; not change this section!!! -; start section -;------------------------------------------------------------------------------ -align 4 -image_file dd 0 ;+0 -raw_pointer dd 0 ;+4 -return_code dd 0 ;+8 -img_size dd 0 ;+12 -deflate_unpack dd 0 ;+16 ; not use for scaling -raw_pointer_2 dd 0 ;+20 ; not use for scaling -;------------------------------------------------------------------------------ -; end section -;------------------------------------------------------------------------------ -system_dir_CnvPNG db '/sys/lib/cnv_png.obj',0 -system_dir_UNPACK db '/sys/lib/archiver.obj',0 - -;plugins_directory db 'plugins/',0 -plugins_directory db 0 -;------------------------------------------------------------------------------ -l_libs_start: - -library01 l_libs system_dir_CnvPNG+9,library_path,system_dir_CnvPNG,\ -cnv_png_import,plugins_directory - -library02 l_libs system_dir_UNPACK+9,library_path,system_dir_UNPACK,\ -UNPACK_import,plugins_directory - -end_l_libs: -;--------------------------------------------------------------------- -align 4 -cnv_png_import: -.Start dd aCP_Start -.Version dd aCP_Version -.Check dd aCP_Check -.Assoc dd aCP_Assoc - dd 0 - dd 0 -aCP_Start db 'START',0 -aCP_Version db 'version',0 -aCP_Check db 'Check_Header',0 -aCP_Assoc db 'Associations',0 -;--------------------------------------------------------------------- -align 4 -UNPACK_import: -;unpack_Version dd aUnpack_Version -;unpack_PluginLoad dd aUnpack_PluginLoad -;unpack_OpenFilePlugin dd aUnpack_OpenFilePlugin -;unpack_ClosePlugin dd aUnpack_ClosePlugin -;unpack_ReadFolder dd aUnpack_ReadFolder -;unpack_SetFolder dd aUnpack_SetFolder -;unpack_GetFiles dd aUnpack_GetFiles -;unpack_GetOpenPluginInfo dd aUnpack_GetOpenPluginInfo -;unpack_Getattr dd aUnpack_Getattr -;unpack_Open dd aUnpack_Open -;unpack_Read dd aUnpack_Read -;unpack_Setpos dd aUnpack_Setpos -;unpack_Close dd aUnpack_Close -;unpack_DeflateUnpack dd aUnpack_DeflateUnpack -unpack_DeflateUnpack2 dd aUnpack_DeflateUnpack2 - dd 0 - dd 0 - -;aUnpack_Version db 'version',0 -;aUnpack_PluginLoad db 'plugin_load',0 -;aUnpack_OpenFilePlugin db 'OpenFilePlugin',0 -;aUnpack_ClosePlugin db 'ClosePlugin',0 -;aUnpack_ReadFolder db 'ReadFolder',0 -;aUnpack_SetFolder db 'SetFolder',0 -;aUnpack_GetFiles db 'GetFiles',0 -;aUnpack_GetOpenPluginInfo db 'GetOpenPluginInfo',0 -;aUnpack_Getattr db 'getattr',0 -;aUnpack_Open db 'open',0 -;aUnpack_Read db 'read',0 -;aUnpack_Setpos db 'setpos',0 -;aUnpack_Close db 'close',0 -;aUnpack_DeflateUnpack db 'deflate_unpack',0 -aUnpack_DeflateUnpack2 db 'deflate_unpack2',0 -;------------------------------------------------------------------------------ +;------------------------------------------------------------------------------ +tl dd 8 +yw: dd 51 +ya dd 0 +cur_btn dd 40 +;------------------------------------------------------------------------------ +; DATA AREA +bcolor dd 0x335599 +;------------------------------------------------------------------------------ +icon_table: + times 4 db 'xxxx xxxx' + times 2 db ' ' + times 1 db ' ' + times 2 db 'xxxx xxxx' +; times 1 db ' ' +;------------------------------------------------------------------------------ +icons_reserved: + times 9 db ' ' +;------------------------------------------------------------------------------ + +; Language support for locales: ru_RU (CP866), de_DE, it_IT, en_US + +if lang eq ru_RU +text: + db 255,255,255,0, ' ТЕКСТ ' + db 255,255,255,0, ' ПРОГРАММА ' + db 255,255,255,0, ' ПАРАМЕТРЫ ' + db 255,255,255,0, ' ПРИМЕНИТЬ ' + db 255,255,255,0, ' ДОБАВИТЬ УДАЛИТЬ ' + db 0,0,0,0, 'НАЖМИТЕ НА ПОЗИЦИЮ ИКОНКИ ДЛЯ РЕДАКТИРОВАНИЯ ' + db 'x' ; <- END MARKER, DO NOT DELETE + +add_text db 'НАЖМИТЕ НА ПОЗИЦИЮ НЕИСПОЛЬЗУЕМОЙ ИКОНКИ ',0 +rem_text db 'НАЖМИТЕ НА ПОЗИЦИЮ ИСПОЛЬЗУЕМОЙ ИКОНКИ ',0 +title db 'Менеджер иконок',0 + +else if lang eq de_DE +text: + db 255,255,255,0, ' TITLE ' + db 255,255,255,0, ' APP NAME ' + db 255,255,255,0, ' PARAMETER ' + db 255,255,255,0, ' ANWENDEN ' + db 255,255,255,0, ' HINZUFUEGEN ENTFERNEN ' + db 0,0,0,0, 'AUF BUTTON KLICKEN, UM ICON ZU EDITIEREN ' + db 'x' ; <- END MARKER, DO NOT DELETE + +add_text db 'AUF UNBENUTZTE ICONPOSITION KLICKEN ',0 +rem_text db 'ICON ANKLICKEN; DAS GELOESCHT WERDEN SOLL ',0 +title db 'Icon Manager',0 + +else if lang eq it_IT +text: + db 255,255,255,0, 'Titolo ' + db 255,255,255,0, 'Nome app ' + db 255,255,255,0, 'Parametri ' + db 255,255,255,0, ' Applica modifiche ' + db 255,255,255,0, ' Aggiungi Rimuovi ' + db 0,0,0,0, 'Clicca sull icona per effettuare modifiche ' + db 'x' ; <- END MARKER, DO NOT DELETE + +add_text db 'Clicca su una posizione non usata ',0 +rem_text db 'Cliccare sull icona da rimuovere ',0 +title db 'Gestore Icone',0 + +else ; Default to en_US +text: + db 255,255,255,0, ' TITLE ' + db 255,255,255,0, ' APP NAME ' + db 255,255,255,0, ' PARAMETERS ' + db 255,255,255,0, ' APPLY CHANGES ' + db 255,255,255,0, ' ADD ICON REMOVE ICON ' + db 0,0,0,0, 'CLICK BUTTON ON ICON POSITION FOR EDIT ' + db 'x' ; <- END MARKER, DO NOT DELETE +add_text db 'CLICK ON A NOT USED POSITION ',0 +rem_text db 'CLICK ICON POSITION; YOU WANT TO DELETE ',0 +title db 'Icon Manager',0 + +end if +;------------------------------------------------------------------------------ +arrows db '' +;------------------------------------------------------------------------------ +iconname: + db ICON_APP,0 +;------------------------------------------------------------------------------ +icon_default: + db 'AA-CALC -004-/SYS/CALC ' + db '- *' + db 13,10 +;------------------------------------------------------------------------------ +rep_text: +if lang eq ru_RU + db 'ЗНАЧКИ - ИЗ , ВЫБРАН #' +;else if lang eq it_IT +; db 'Icone - di , Selezionate' +else ; Default to en_US + db 'ICONS - OF , SELECTED' +end if + +rep_text_len: +;------------------------------------------------------------------------------ +align 4 +finfo_start: + dd 7 + dd 0 +.params dd 0 + dd 0 + dd 0 + db 0 + dd finfo.path +;------------------------------------------------------------------------------ +align 4 +finfo: + dd 5 + dd 0 + dd 0 +.size dd 0 +.point dd procinfo +.path: + db ICON_STRIP,0 + rb 31-($-.path) +;------------------------------------------------------------------------------ +align 4 +positions dd 3,16,47 +str_lens db 8,30,30 + +current_icon dd icon_data + +iconlst db ICONS_DAT,0 + +;image dd image_area +;------------------------------------------------------------------------------ +; not change this section!!! +; start section +;------------------------------------------------------------------------------ +align 4 +image_file dd 0 ;+0 +raw_pointer dd 0 ;+4 +return_code dd 0 ;+8 +img_size dd 0 ;+12 +deflate_unpack dd 0 ;+16 ; not use for scaling +raw_pointer_2 dd 0 ;+20 ; not use for scaling +;------------------------------------------------------------------------------ +; end section +;------------------------------------------------------------------------------ +system_dir_CnvPNG db '/sys/lib/cnv_png.obj',0 +system_dir_UNPACK db '/sys/lib/archiver.obj',0 + +;plugins_directory db 'plugins/',0 +plugins_directory db 0 +;------------------------------------------------------------------------------ +l_libs_start: + +library01 l_libs system_dir_CnvPNG+9,library_path,system_dir_CnvPNG,\ +cnv_png_import,plugins_directory + +library02 l_libs system_dir_UNPACK+9,library_path,system_dir_UNPACK,\ +UNPACK_import,plugins_directory + +end_l_libs: +;--------------------------------------------------------------------- +align 4 +cnv_png_import: +.Start dd aCP_Start +.Version dd aCP_Version +.Check dd aCP_Check +.Assoc dd aCP_Assoc + dd 0 + dd 0 +aCP_Start db 'START',0 +aCP_Version db 'version',0 +aCP_Check db 'Check_Header',0 +aCP_Assoc db 'Associations',0 +;--------------------------------------------------------------------- +align 4 +UNPACK_import: +;unpack_Version dd aUnpack_Version +;unpack_PluginLoad dd aUnpack_PluginLoad +;unpack_OpenFilePlugin dd aUnpack_OpenFilePlugin +;unpack_ClosePlugin dd aUnpack_ClosePlugin +;unpack_ReadFolder dd aUnpack_ReadFolder +;unpack_SetFolder dd aUnpack_SetFolder +;unpack_GetFiles dd aUnpack_GetFiles +;unpack_GetOpenPluginInfo dd aUnpack_GetOpenPluginInfo +;unpack_Getattr dd aUnpack_Getattr +;unpack_Open dd aUnpack_Open +;unpack_Read dd aUnpack_Read +;unpack_Setpos dd aUnpack_Setpos +;unpack_Close dd aUnpack_Close +;unpack_DeflateUnpack dd aUnpack_DeflateUnpack +unpack_DeflateUnpack2 dd aUnpack_DeflateUnpack2 + dd 0 + dd 0 + +;aUnpack_Version db 'version',0 +;aUnpack_PluginLoad db 'plugin_load',0 +;aUnpack_OpenFilePlugin db 'OpenFilePlugin',0 +;aUnpack_ClosePlugin db 'ClosePlugin',0 +;aUnpack_ReadFolder db 'ReadFolder',0 +;aUnpack_SetFolder db 'SetFolder',0 +;aUnpack_GetFiles db 'GetFiles',0 +;aUnpack_GetOpenPluginInfo db 'GetOpenPluginInfo',0 +;aUnpack_Getattr db 'getattr',0 +;aUnpack_Open db 'open',0 +;aUnpack_Read db 'read',0 +;aUnpack_Setpos db 'setpos',0 +;aUnpack_Close db 'close',0 +;aUnpack_DeflateUnpack db 'deflate_unpack',0 +aUnpack_DeflateUnpack2 db 'deflate_unpack2',0 +;------------------------------------------------------------------------------ diff --git a/programs/system/icon_new/DlgAdd.inc b/programs/system/icon_new/DlgAdd.inc index fb277cc2f4..f4d3c564b0 100644 --- a/programs/system/icon_new/DlgAdd.inc +++ b/programs/system/icon_new/DlgAdd.inc @@ -1,842 +1,844 @@ -idbChange equ 2 -idbCreate equ 3 -idbLeft equ 4 -idbRight equ 5 -idbCancel equ 1 - -DlgAdd: -DlgProp: - - mov eax,[SelIcon] - mov [DlgSelIcon],eax - cmp eax,-1 - jne SetProp - - ;----------- - mov eax,[MouseX] - mov ebx,[MouseY] - - cmp ax,[wsX] - jae @f - mov ax,[wsX] - @@: - - cmp bx,[wsY] - jae @f - mov bx,[wsY] - @@: ;eax,ebx - реальная координата. Все координаты в проге относительно левого верхнего угла рабочей области - - xor edx,edx - mov dx,[wsXe] - sub edx,ICON_SIZE - cmp eax,edx - jbe @f - mov eax,edx - @@: - - mov dx,[wsYe] - sub edx,ICON_SIZE - cmp ebx,edx - jbe @f - mov ebx,edx - @@: - - xor edx,edx ;преобразовываем в относительные - mov dx,[wsW] - shr edx,1 - add dx,[wsX] - cmp eax,edx - jbe @f - sub ax,[wsXe] - inc ax - jmp .dlg1 - @@: - sub ax,[wsX] - .dlg1: - - xor edx,edx - mov dx,[wsH] - shr edx,1 - add dx,[wsY] - cmp ebx,edx - jbe @f - sub bx,[wsYe] - inc bx - jmp .dlg2 - @@: - sub bx,[wsY] - .dlg2: - - mov [AddX],eax - mov [AddY],ebx - ;----------- - - mov ecx,NAME_LENGTH - mov edi,DAreaName - xor al,al - rep stosb - mov dword[edtName.size],0 - mov dword[edtName.pos],0 - - mov ecx,256 - mov edi,DAreaPath - rep stosb - mov dword[edtExePath.size],0 - mov dword[edtExePath.pos],0 - - mov ecx,256 - mov edi,DAreaParams - rep stosb - mov dword[edtParams.size],0 - mov dword[edtParams.pos],0 - - mov ecx,256 - mov edi,DAreaIcon - - mov [DAreaIcon],'0' - mov dword[edtIcon.size],1 - mov dword[edtIcon.pos],1 - - jmp startDlg - ;-------- -SetProp: - mov esi,[IconsOffs+eax*4] - mov edi,DAreaName - xor ecx,ecx - @@: - lodsb - stosb - inc ecx - test al,al - jnz @b - dec ecx - mov dword[edtName.size],ecx - mov dword[edtName.pos],ecx - - xor ecx,ecx - mov edi,DAreaPath - @@: - lodsb - stosb - inc ecx - test al,al - jnz @b - dec ecx - mov dword[edtExePath.size],ecx - mov dword[edtExePath.pos],ecx - - xor ecx,ecx - mov edi,DAreaParams - @@: - lodsb - stosb - inc ecx - test al,al - jnz @b - dec ecx - mov dword[edtParams.size],ecx - mov dword[edtParams.pos],ecx - - xor ecx,ecx - mov edi,DAreaIcon - @@: - lodsb - stosb - inc ecx - test al,al - jnz @b - dec ecx - mov dword[edtIcon.size],ecx - mov dword[edtIcon.pos],ecx - - -startDlg: - mcall 9,RBProcInfo,-1 - mcall 18,21,dword[RBProcInfo+30] - mov [slotDlgAdd],eax - - or [edtName.flags],ed_focus - - mcall 40,EVM_REDRAW+EVM_KEY+EVM_BUTTON+EVM_MOUSE+EVM_MOUSE_FILTER - xor eax,eax - mov dword[MaxPage],0 - @@: - add eax,ICONS_DRAW_COUNTW - inc dword[MaxPage] - cmp eax,[icon_count] - jb @b - dec dword[MaxPage] - cmp dword[MaxPage],0 - jne @f - mov dword[MaxPage],1 - @@: - -DReDraw: - mcall 48,3,sc,40 - - mov eax,[sc.work] - rol eax,16 - add al,9 - jnc @f - mov al,0FFh - @@: - rol eax,16 - add al,9 - jnc @f - mov al,0FFh - @@: - add ah,9 - jnc @f - mov ah,0FFh - @@: - - mov [sbIcons.bckg_col],eax - m2m [sbIcons.frnt_col],[sc.work] - m2m [sbIcons.line_col],[sc.work_graph] - - ;edit_boxes_set_sys_color edtIcon,endEdits,sc - edit_boxes_set_sys_color edtName,endEdits,sc - - m2m [edtIcon.color],[sc.work] - m2m [edtIcon.blur_border_color],[sc.work] - - call DRedrawWin - -DMessages: - mcall 10 ;WaitMessage - - dec eax - jz DReDraw - dec eax - jz DKey - dec eax - jz DButton - sub eax,3 - jz DMouse - - jmp DMessages - - -;--------------------------------------------------------------------- -DKey: - mcall 2 ;GetKeyPressed - cmp ah,1Bh - je DExit - cmp ah,9 ;Tab - je DNextEdit - stdcall [edit_box_key],edtName - stdcall [edit_box_key],edtExePath - stdcall [edit_box_key],edtParams - ;stdcall [edit_box_key],edtIcon - - jmp DMessages - - -DNextEdit: - test [edtName.flags],ed_focus - jne .DNE1 - test [edtExePath.flags],ed_focus - jne .DNE2 - test [edtParams.flags],ed_focus - jne .DNE3 - ;test [edtIcon.flags],ed_focus - ;jne .DNE4 - jmp DMessages - - .DNE1: - and [edtName.flags],not ed_focus - or [edtExePath.flags],ed_focus - stdcall [edit_box_draw],edtName - stdcall [edit_box_draw],edtExePath - jmp DMessages - - .DNE2: - and [edtExePath.flags],not ed_focus - or [edtParams.flags],ed_focus - stdcall [edit_box_draw],edtExePath - stdcall [edit_box_draw],edtParams - jmp DMessages - - .DNE3: - and [edtParams.flags],not ed_focus - or [edtName.flags],ed_focus - stdcall [edit_box_draw],edtParams - stdcall [edit_box_draw],edtName - jmp DMessages - - ;.DNE4: - ; and [edtIcon.flags],not ed_focus - ; or [edtName.flags],ed_focus - ; stdcall [edit_box_draw],edtName - ; stdcall [edit_box_draw],edtIcon - ; jmp DMessages -;--------------------------------------------------------------------- -DButton: - mcall 17 ;GetButtonPressed - cmp ah, idbCancel - je DExit - cmp ah,idbChange - je DSetExePath - cmp ah,idbCreate - je DSaveIcon - - jmp DMessages -;------------------------------------------------------------------------------- -DMouse: - stdcall [edit_box_mouse],edtName - stdcall [edit_box_mouse],edtExePath - stdcall [edit_box_mouse],edtParams -; stdcall [edit_box_mouse],edtIcon - - push [sbIcons.position] - stdcall [scrollbar_h_mouse],sbIcons - pop eax - cmp eax,[sbIcons.position] - je @f - call DrawStdIcons - @@: - - mcall 37,2 ;GetMouseKey - test eax,1 - jz DMessages - mcall 37,1 ;GetMouseWinPos - - test eax,10001000h - jne DMessages - xor edx,edx - mov dx,ax ;y - shr eax,16 ;x - - sub eax,ICONSX - js DMessages - sub edx,ICONSY - js DMessages - - cmp eax,(IMG_SIZE+SPCW)*ICONS_DRAW_COUNTW-SPCW - ja DMessages - cmp edx,(IMG_SIZE+SPCH)*ICONS_DRAW_COUNTH-SPCH - ja DMessages - - xor ebx,ebx - mov ecx,[sbIcons.position] - test ecx,ecx - jz .DM - @@: - add ebx,ICONS_DRAW_COUNTH - loop @b - .DM: - - sub eax,IMG_SIZE+SPCW - js .DM1 - @@: - add ebx,ICONS_DRAW_COUNTH - sub eax,IMG_SIZE+SPCW - jns @b - .DM1: - - - sub edx,IMG_SIZE+SPCH - js .DM2 - @@: - inc ebx - sub edx,IMG_SIZE+SPCH - jns @b - .DM2: - - mov eax,ebx - - cmp eax,[icon_count] - jae DMessages - -; stdcall byteToHex,al,DAreaIcon ;2 - stdcall intToStr,eax,DAreaIcon - mov dword[edtIcon.size],edx - - ; stdcall [edit_box_draw],edtIcon - - call DrawSelIcon - jmp DMessages -;------------------------------------------------------------------------------- -DSetExePath: - stdcall [OpenDialog_Start],OpenDialog_data - mov edi,DAreaPath - xor al,al - or ecx,-1 - repne scasb - sub edi,DAreaPath - dec edi - mov dword[edtExePath+12*4],edi - - jmp DMessages;DReDraw; - -DSaveIcon: - mov edi,DAreaName - mov esi,secRButt - @@: lodsb - scasb - jne @f - test al,al - jnz @b - - mov dword[fiRunProg+8],ErrName - mov dword[fiRunProg+21],pthNotify - mcall 70,fiRunProg - - jmp DMessages - @@: - mov dword[fiRunProg+8],WarningSave - mov dword[fiRunProg+21],pthNotify - mcall 70,fiRunProg - - - cmp [DlgSelIcon],-1 - je @f - - stdcall EditIcon,[DlgSelIcon],DAreaIcon,DAreaName,DAreaPath,DAreaParams - mov ebx,[DlgSelIcon] - mov eax,[IconsID+ebx*4] - jmp DExitAndSave - @@: - - call GenerateID - - mov ebx,[MaxNumIcon] - mov [IconsID+ebx*4],eax - push eax - stdcall AddIcon,[AddX],[AddY],DAreaIcon,DAreaName,DAreaPath,DAreaParams - pop eax - -;------------------------------------------------------------------------------- -DExitAndSave: - - mov dword[nameSection],eax - stdcall [ini_set_str],IconIni,nameSection,keyName,DAreaName,dword[edtName.size] - stdcall [ini_set_str],IconIni,nameSection,keyPath,DAreaPath,dword[edtExePath.size] - stdcall [ini_set_str],IconIni,nameSection,keyParams,DAreaParams,dword[edtParams.size] - stdcall [ini_set_str],IconIni,nameSection,keyIco,DAreaIcon,dword[edtIcon.size] - - cmp [DlgSelIcon],-1 - jne @f - stdcall [ini_set_int],IconIni,nameSection,keyX,[MouseX] - stdcall [ini_set_int],IconIni,nameSection,keyY,[MouseY] - @@: -DExit: - mov [DlgAddActiv],0 - mov [slotDlgAdd],0 - mcall -1 ;ExitThread - -;################################################################## -proc DRedrawWin - mcall 12,1 ;RedrawWinBeg - mov edx,[sc.work] - or edx,34000000h - cmp [DlgSelIcon],-1 - jne @f - mov edi,DTitleAdd - jmp .l1 - @@: - mov edi,DTitleProp - .l1: - mcall 0,<100,END_ICONS_AREAW+ICONSX+10>,<100,(IMG_SIZE+SPCH)*ICONS_DRAW_COUNTH+178>,,, - - stdcall [edit_box_draw],edtName - stdcall [edit_box_draw],edtExePath - stdcall [edit_box_draw],edtParams - - call DrawStdIcons - - - stdcall [scrollbar_h_draw],sbIcons - mcall 38,,,[sc.work_graph] - mcall ,,,[sc.work_graph] - - mcall ,,,[sc.work_graph] - mcall ,,,[sc.work_graph] - - ;BUTTONS - mcall 8,<265,75>,<30+END_ICONS_AREAH,24>,idbCreate,[sc.work_button] - mcall ,<360,77>, ,idbCancel - mcall ,,<30,20> ,idbChange - - ;CAPTIONS - mov ecx,[sc.work_text] - or ecx,90000000h - mcall 4,<30+IMG_SIZE,10>,,DCaptName - mcall ,<30+IMG_SIZE,35>,,DCaptPath - mcall ,<30+IMG_SIZE,59>,,DCaptParams - -if lang eq ru_RU - mov ecx,[sc.work_button_text] - or ecx,90000000h - mcall ,<369,35+END_ICONS_AREAH>,,DCaptCancel - - cmp [DlgSelIcon],-1 - jne @f - mpack ebx,275,35+END_ICONS_AREAH - mov edx,DCaptCreate - jmp .DRD1 - @@: - mpack ebx,272,35+END_ICONS_AREAH - mov edx,DCaptProperties - .DRD1: -else - mov ecx,[sc.work_button_text] - or ecx,90000000h - mcall ,<372,35+END_ICONS_AREAH>,,DCaptCancel - - - cmp [DlgSelIcon],-1 - jne @f - mpack ebx,277,35+END_ICONS_AREAH - mov edx,DCaptCreate - jmp .DRD1 - @@: - mpack ebx,277,35+END_ICONS_AREAH - mov edx,DCaptProperties - .DRD1: -end if - mcall - - pusha - mov ecx,[sc.work_button_text] - or ecx,90000000h - mcall 4,,,DCaptDots - popa - - call DrawSelIcon - - mcall 12,2 ;RedrawWinEnd - ret -endp - - -proc DrawStdIcons -local IcoX:DWORD,\ - IcoY:DWORD,\ - iIcon:DWORD - - mov ecx,[sbIcons.position] - xor eax,eax - m2m dword[iIcon],0 - - test ecx,ecx - jz .DST1 - @@: - add [iIcon],ICONS_DRAW_COUNTH - add eax,IMG_SIZE*IMG_SIZE*4*ICONS_DRAW_COUNTH - loop @b - .DST1: - - lea esi,[eax+44] - add esi,[raw_pointer] - - mov [IcoX],ICONSX - - mov ecx,ICONS_DRAW_COUNTW - .DrawIcons: - push ecx - - mov [IcoY],ICONSY - - mov ecx,ICONS_DRAW_COUNTH - .DrawIcoStolb: - push ecx - - mov edi,DlgBufImg - mov edx,IMG_SIZE - - .DrawLine: - - - mov ecx,IMG_SIZE - .DrawPix: - - lodsd - test eax,0FF000000h - jnz @f - mov eax,[sc.work] - @@: - - mov [edi],ax - shr eax,16 - mov [edi+2],al - add edi,3 - - loop .DrawPix - - dec edx - jnz .DrawLine - - mov edx,[IcoX] - shl edx,16 - mov dx,word[IcoY] - mcall 7,DlgBufImg, - - inc [iIcon] - mov eax,[iIcon] - cmp eax,[icon_count] - jae .endDrawIcon - - add dword[IcoY],IMG_SIZE+SPCH - pop ecx - loop .DrawIcoStolb - - add dword[IcoX],IMG_SIZE+SPCW - pop ecx - loop .DrawIcons - jmp .endProc - - .endDrawIcon: - - mov ecx,IMG_SIZE*IMG_SIZE - mov edi,DlgBufImg - mov eax,[sc.work] - mov ebx,eax - shr ebx,16 - @@: - mov word[edi],ax - mov [edi+2],bl - add edi,3 - loop @b - - ;затирание не использованых мест - jmp .Dalee - - .DrawIcons2: - push ecx - - mov [IcoY],ICONSY - mov ecx,ICONS_DRAW_COUNTH - .DrawIcoStolb2: - push ecx - - mov edx,[IcoX] - shl edx,16 - mov dx,word[IcoY] - mcall 7,DlgBufImg, - - .Dalee: - add dword[IcoY],IMG_SIZE+SPCH - pop ecx - loop .DrawIcoStolb2 - - add dword[IcoX],IMG_SIZE+SPCW - pop ecx - loop .DrawIcons2 - - .endProc: - - ret -endp - -proc DrawSelIcon - mov edx,[sc.work] - mcall 13,,<59,12> - - mov ecx,[sc.work_text] - or ecx,90000000h - mcall 4,,,DAreaIcon - - mov edi,DAreaIcon - cmp byte[edi],0 - jne @f - ret - @@: - - ;stdcall hexToInt, edi - stdcall strToInt, edi - @@: ;eax=num icon - cmp eax,[icon_count] - jb @f - xor eax,eax - @@: - test eax,eax - je .DI1 - mov ecx,eax - xor eax,eax - @@: - add eax,IMG_SIZE*IMG_SIZE*4 - loop @b - .DI1: - mov esi,eax - add esi,[raw_pointer] - add esi,44 - - mov edi,DlgBufImg - mov edx,IMG_SIZE - .DrawLine: - - mov ecx,IMG_SIZE - .DrawPix: - - lodsd - test eax,0FF000000h - jnz @f - mov eax,[sc.work] - @@: - - mov word[edi],ax - shr eax,16 - mov [edi+2],al - add edi,3 - - loop .DrawPix - - dec edx - jnz .DrawLine - - mcall 7,DlgBufImg,,<30,15> - - ret -endp - -;NOT USED -proc hexToInt strz:DWORD - push ebx - mov ebx,[strz] - mov al,[ebx] - xor edx,edx -.loop: - xor ecx,ecx - inc ebx - shl edx,4 - cmp al,'0' - jb .err - cmp al,'9' - jbe .conv - mov ecx,10 - sub al,11h - cmp al,'0' - jb .err - cmp al,'6' - ja .err -.conv: - sub al,30h - add dl,al - mov al,[ebx] - add dl,cl - test al,al - jnz .loop - mov eax,edx - pop ebx - ret -.err: - xor eax,eax - pop ebx - ret -endp - - -;NOT USED -proc byteToHex byti:BYTE,target:DWORD - push ebx - mov ebx,[target] - mov dl,[byti] - rol dl,4 - mov ecx,2 -.loop: - mov al,dl - and al,0xF - cmp al,10 - jae @f - add al,0x30 - jmp .n -@@: - add al,0x41-10 -.n: - mov [ebx],al - inc ebx - rol dl,4 - loop .loop - - mov byte[ebx],0 -@@: pop ebx - ret - jmp @b -endp - - -proc strToInt strz:DWORD - push ebx edi esi - stdcall strLen, [strz] - xor edx,edx - xor ebx,ebx - xor edi,edi - std - inc ebx - mov esi,[strz] - lea esi,[esi+eax-2] -.loop: - xor eax,eax - lodsb - cmp al,'0' - jb .err - cmp al,'9' - ja .err - - sub al,0x30 - mul ebx - lea ebx,[ebx*4+ebx] ;ebx = ebx*10 - shl ebx,1 - add edi,eax - cmp esi,[strz] - jae .loop - cld - mov eax,edi - pop esi edi ebx - ret -.err: - cld - or eax,-1 - pop esi edi ebx - ret -endp - - -;ret: target - string, edx - length string -proc intToStr inti:DWORD, target:DWORD -locals - resl rb 16 -endl - lea edi,[resl] - mov eax,[inti] - xor ecx,ecx - mov ebx,10 - jmp .stlp -.loop: - xor edx,edx - div ebx - mov [edi],dl - inc edi - inc ecx -.stlp: cmp eax,10 - jae .loop - mov [edi],al - inc ecx - mov edx,ecx - mov ebx,[target] -.conv: - mov al,[edi] - add al,0x30 - mov [ebx],al - inc ebx - dec edi - loop .conv - mov byte[ebx],0 - ret -endp - -;for 'ab',0 strLen = 3 -proc strLen stringZ:DWORD - push edi - xor al,al - mov edi,[stringZ] - or ecx,-1 - repne scasb - sub edi,[stringZ] - mov eax,edi - pop edi - ret -endp - - +; Language support for locales: ru_RU (CP866), en_US. + +idbChange equ 2 +idbCreate equ 3 +idbLeft equ 4 +idbRight equ 5 +idbCancel equ 1 + +DlgAdd: +DlgProp: + + mov eax,[SelIcon] + mov [DlgSelIcon],eax + cmp eax,-1 + jne SetProp + + ;----------- + mov eax,[MouseX] + mov ebx,[MouseY] + + cmp ax,[wsX] + jae @f + mov ax,[wsX] + @@: + + cmp bx,[wsY] + jae @f + mov bx,[wsY] + @@: ;eax,ebx - реальная координата. Все координаты в проге относительно левого верхнего угла рабочей области + + xor edx,edx + mov dx,[wsXe] + sub edx,ICON_SIZE + cmp eax,edx + jbe @f + mov eax,edx + @@: + + mov dx,[wsYe] + sub edx,ICON_SIZE + cmp ebx,edx + jbe @f + mov ebx,edx + @@: + + xor edx,edx ;преобразовываем в относительные + mov dx,[wsW] + shr edx,1 + add dx,[wsX] + cmp eax,edx + jbe @f + sub ax,[wsXe] + inc ax + jmp .dlg1 + @@: + sub ax,[wsX] + .dlg1: + + xor edx,edx + mov dx,[wsH] + shr edx,1 + add dx,[wsY] + cmp ebx,edx + jbe @f + sub bx,[wsYe] + inc bx + jmp .dlg2 + @@: + sub bx,[wsY] + .dlg2: + + mov [AddX],eax + mov [AddY],ebx + ;----------- + + mov ecx,NAME_LENGTH + mov edi,DAreaName + xor al,al + rep stosb + mov dword[edtName.size],0 + mov dword[edtName.pos],0 + + mov ecx,256 + mov edi,DAreaPath + rep stosb + mov dword[edtExePath.size],0 + mov dword[edtExePath.pos],0 + + mov ecx,256 + mov edi,DAreaParams + rep stosb + mov dword[edtParams.size],0 + mov dword[edtParams.pos],0 + + mov ecx,256 + mov edi,DAreaIcon + + mov [DAreaIcon],'0' + mov dword[edtIcon.size],1 + mov dword[edtIcon.pos],1 + + jmp startDlg + ;-------- +SetProp: + mov esi,[IconsOffs+eax*4] + mov edi,DAreaName + xor ecx,ecx + @@: + lodsb + stosb + inc ecx + test al,al + jnz @b + dec ecx + mov dword[edtName.size],ecx + mov dword[edtName.pos],ecx + + xor ecx,ecx + mov edi,DAreaPath + @@: + lodsb + stosb + inc ecx + test al,al + jnz @b + dec ecx + mov dword[edtExePath.size],ecx + mov dword[edtExePath.pos],ecx + + xor ecx,ecx + mov edi,DAreaParams + @@: + lodsb + stosb + inc ecx + test al,al + jnz @b + dec ecx + mov dword[edtParams.size],ecx + mov dword[edtParams.pos],ecx + + xor ecx,ecx + mov edi,DAreaIcon + @@: + lodsb + stosb + inc ecx + test al,al + jnz @b + dec ecx + mov dword[edtIcon.size],ecx + mov dword[edtIcon.pos],ecx + + +startDlg: + mcall 9,RBProcInfo,-1 + mcall 18,21,dword[RBProcInfo+30] + mov [slotDlgAdd],eax + + or [edtName.flags],ed_focus + + mcall 40,EVM_REDRAW+EVM_KEY+EVM_BUTTON+EVM_MOUSE+EVM_MOUSE_FILTER + xor eax,eax + mov dword[MaxPage],0 + @@: + add eax,ICONS_DRAW_COUNTW + inc dword[MaxPage] + cmp eax,[icon_count] + jb @b + dec dword[MaxPage] + cmp dword[MaxPage],0 + jne @f + mov dword[MaxPage],1 + @@: + +DReDraw: + mcall 48,3,sc,40 + + mov eax,[sc.work] + rol eax,16 + add al,9 + jnc @f + mov al,0FFh + @@: + rol eax,16 + add al,9 + jnc @f + mov al,0FFh + @@: + add ah,9 + jnc @f + mov ah,0FFh + @@: + + mov [sbIcons.bckg_col],eax + m2m [sbIcons.frnt_col],[sc.work] + m2m [sbIcons.line_col],[sc.work_graph] + + ;edit_boxes_set_sys_color edtIcon,endEdits,sc + edit_boxes_set_sys_color edtName,endEdits,sc + + m2m [edtIcon.color],[sc.work] + m2m [edtIcon.blur_border_color],[sc.work] + + call DRedrawWin + +DMessages: + mcall 10 ;WaitMessage + + dec eax + jz DReDraw + dec eax + jz DKey + dec eax + jz DButton + sub eax,3 + jz DMouse + + jmp DMessages + + +;--------------------------------------------------------------------- +DKey: + mcall 2 ;GetKeyPressed + cmp ah,1Bh + je DExit + cmp ah,9 ;Tab + je DNextEdit + stdcall [edit_box_key],edtName + stdcall [edit_box_key],edtExePath + stdcall [edit_box_key],edtParams + ;stdcall [edit_box_key],edtIcon + + jmp DMessages + + +DNextEdit: + test [edtName.flags],ed_focus + jne .DNE1 + test [edtExePath.flags],ed_focus + jne .DNE2 + test [edtParams.flags],ed_focus + jne .DNE3 + ;test [edtIcon.flags],ed_focus + ;jne .DNE4 + jmp DMessages + + .DNE1: + and [edtName.flags],not ed_focus + or [edtExePath.flags],ed_focus + stdcall [edit_box_draw],edtName + stdcall [edit_box_draw],edtExePath + jmp DMessages + + .DNE2: + and [edtExePath.flags],not ed_focus + or [edtParams.flags],ed_focus + stdcall [edit_box_draw],edtExePath + stdcall [edit_box_draw],edtParams + jmp DMessages + + .DNE3: + and [edtParams.flags],not ed_focus + or [edtName.flags],ed_focus + stdcall [edit_box_draw],edtParams + stdcall [edit_box_draw],edtName + jmp DMessages + + ;.DNE4: + ; and [edtIcon.flags],not ed_focus + ; or [edtName.flags],ed_focus + ; stdcall [edit_box_draw],edtName + ; stdcall [edit_box_draw],edtIcon + ; jmp DMessages +;--------------------------------------------------------------------- +DButton: + mcall 17 ;GetButtonPressed + cmp ah, idbCancel + je DExit + cmp ah,idbChange + je DSetExePath + cmp ah,idbCreate + je DSaveIcon + + jmp DMessages +;------------------------------------------------------------------------------- +DMouse: + stdcall [edit_box_mouse],edtName + stdcall [edit_box_mouse],edtExePath + stdcall [edit_box_mouse],edtParams +; stdcall [edit_box_mouse],edtIcon + + push [sbIcons.position] + stdcall [scrollbar_h_mouse],sbIcons + pop eax + cmp eax,[sbIcons.position] + je @f + call DrawStdIcons + @@: + + mcall 37,2 ;GetMouseKey + test eax,1 + jz DMessages + mcall 37,1 ;GetMouseWinPos + + test eax,10001000h + jne DMessages + xor edx,edx + mov dx,ax ;y + shr eax,16 ;x + + sub eax,ICONSX + js DMessages + sub edx,ICONSY + js DMessages + + cmp eax,(IMG_SIZE+SPCW)*ICONS_DRAW_COUNTW-SPCW + ja DMessages + cmp edx,(IMG_SIZE+SPCH)*ICONS_DRAW_COUNTH-SPCH + ja DMessages + + xor ebx,ebx + mov ecx,[sbIcons.position] + test ecx,ecx + jz .DM + @@: + add ebx,ICONS_DRAW_COUNTH + loop @b + .DM: + + sub eax,IMG_SIZE+SPCW + js .DM1 + @@: + add ebx,ICONS_DRAW_COUNTH + sub eax,IMG_SIZE+SPCW + jns @b + .DM1: + + + sub edx,IMG_SIZE+SPCH + js .DM2 + @@: + inc ebx + sub edx,IMG_SIZE+SPCH + jns @b + .DM2: + + mov eax,ebx + + cmp eax,[icon_count] + jae DMessages + +; stdcall byteToHex,al,DAreaIcon ;2 + stdcall intToStr,eax,DAreaIcon + mov dword[edtIcon.size],edx + + ; stdcall [edit_box_draw],edtIcon + + call DrawSelIcon + jmp DMessages +;------------------------------------------------------------------------------- +DSetExePath: + stdcall [OpenDialog_Start],OpenDialog_data + mov edi,DAreaPath + xor al,al + or ecx,-1 + repne scasb + sub edi,DAreaPath + dec edi + mov dword[edtExePath+12*4],edi + + jmp DMessages;DReDraw; + +DSaveIcon: + mov edi,DAreaName + mov esi,secRButt + @@: lodsb + scasb + jne @f + test al,al + jnz @b + + mov dword[fiRunProg+8],ErrName + mov dword[fiRunProg+21],pthNotify + mcall 70,fiRunProg + + jmp DMessages + @@: + mov dword[fiRunProg+8],WarningSave + mov dword[fiRunProg+21],pthNotify + mcall 70,fiRunProg + + + cmp [DlgSelIcon],-1 + je @f + + stdcall EditIcon,[DlgSelIcon],DAreaIcon,DAreaName,DAreaPath,DAreaParams + mov ebx,[DlgSelIcon] + mov eax,[IconsID+ebx*4] + jmp DExitAndSave + @@: + + call GenerateID + + mov ebx,[MaxNumIcon] + mov [IconsID+ebx*4],eax + push eax + stdcall AddIcon,[AddX],[AddY],DAreaIcon,DAreaName,DAreaPath,DAreaParams + pop eax + +;------------------------------------------------------------------------------- +DExitAndSave: + + mov dword[nameSection],eax + stdcall [ini_set_str],IconIni,nameSection,keyName,DAreaName,dword[edtName.size] + stdcall [ini_set_str],IconIni,nameSection,keyPath,DAreaPath,dword[edtExePath.size] + stdcall [ini_set_str],IconIni,nameSection,keyParams,DAreaParams,dword[edtParams.size] + stdcall [ini_set_str],IconIni,nameSection,keyIco,DAreaIcon,dword[edtIcon.size] + + cmp [DlgSelIcon],-1 + jne @f + stdcall [ini_set_int],IconIni,nameSection,keyX,[MouseX] + stdcall [ini_set_int],IconIni,nameSection,keyY,[MouseY] + @@: +DExit: + mov [DlgAddActiv],0 + mov [slotDlgAdd],0 + mcall -1 ;ExitThread + +;################################################################## +proc DRedrawWin + mcall 12,1 ;RedrawWinBeg + mov edx,[sc.work] + or edx,34000000h + cmp [DlgSelIcon],-1 + jne @f + mov edi,DTitleAdd + jmp .l1 + @@: + mov edi,DTitleProp + .l1: + mcall 0,<100,END_ICONS_AREAW+ICONSX+10>,<100,(IMG_SIZE+SPCH)*ICONS_DRAW_COUNTH+178>,,, + + stdcall [edit_box_draw],edtName + stdcall [edit_box_draw],edtExePath + stdcall [edit_box_draw],edtParams + + call DrawStdIcons + + + stdcall [scrollbar_h_draw],sbIcons + mcall 38,,,[sc.work_graph] + mcall ,,,[sc.work_graph] + + mcall ,,,[sc.work_graph] + mcall ,,,[sc.work_graph] + + ;BUTTONS + mcall 8,<265,75>,<30+END_ICONS_AREAH,24>,idbCreate,[sc.work_button] + mcall ,<360,77>, ,idbCancel + mcall ,,<30,20> ,idbChange + + ;CAPTIONS + mov ecx,[sc.work_text] + or ecx,90000000h + mcall 4,<30+IMG_SIZE,10>,,DCaptName + mcall ,<30+IMG_SIZE,35>,,DCaptPath + mcall ,<30+IMG_SIZE,59>,,DCaptParams + +if lang eq ru_RU + mov ecx,[sc.work_button_text] + or ecx,90000000h + mcall ,<369,35+END_ICONS_AREAH>,,DCaptCancel + + cmp [DlgSelIcon],-1 + jne @f + mpack ebx,275,35+END_ICONS_AREAH + mov edx,DCaptCreate + jmp .DRD1 + @@: + mpack ebx,272,35+END_ICONS_AREAH + mov edx,DCaptProperties + .DRD1: +else ; Default to en_US + mov ecx,[sc.work_button_text] + or ecx,90000000h + mcall ,<372,35+END_ICONS_AREAH>,,DCaptCancel + + + cmp [DlgSelIcon],-1 + jne @f + mpack ebx,277,35+END_ICONS_AREAH + mov edx,DCaptCreate + jmp .DRD1 + @@: + mpack ebx,277,35+END_ICONS_AREAH + mov edx,DCaptProperties + .DRD1: +end if + mcall + + pusha + mov ecx,[sc.work_button_text] + or ecx,90000000h + mcall 4,,,DCaptDots + popa + + call DrawSelIcon + + mcall 12,2 ;RedrawWinEnd + ret +endp + + +proc DrawStdIcons +local IcoX:DWORD,\ + IcoY:DWORD,\ + iIcon:DWORD + + mov ecx,[sbIcons.position] + xor eax,eax + m2m dword[iIcon],0 + + test ecx,ecx + jz .DST1 + @@: + add [iIcon],ICONS_DRAW_COUNTH + add eax,IMG_SIZE*IMG_SIZE*4*ICONS_DRAW_COUNTH + loop @b + .DST1: + + lea esi,[eax+44] + add esi,[raw_pointer] + + mov [IcoX],ICONSX + + mov ecx,ICONS_DRAW_COUNTW + .DrawIcons: + push ecx + + mov [IcoY],ICONSY + + mov ecx,ICONS_DRAW_COUNTH + .DrawIcoStolb: + push ecx + + mov edi,DlgBufImg + mov edx,IMG_SIZE + + .DrawLine: + + + mov ecx,IMG_SIZE + .DrawPix: + + lodsd + test eax,0FF000000h + jnz @f + mov eax,[sc.work] + @@: + + mov [edi],ax + shr eax,16 + mov [edi+2],al + add edi,3 + + loop .DrawPix + + dec edx + jnz .DrawLine + + mov edx,[IcoX] + shl edx,16 + mov dx,word[IcoY] + mcall 7,DlgBufImg, + + inc [iIcon] + mov eax,[iIcon] + cmp eax,[icon_count] + jae .endDrawIcon + + add dword[IcoY],IMG_SIZE+SPCH + pop ecx + loop .DrawIcoStolb + + add dword[IcoX],IMG_SIZE+SPCW + pop ecx + loop .DrawIcons + jmp .endProc + + .endDrawIcon: + + mov ecx,IMG_SIZE*IMG_SIZE + mov edi,DlgBufImg + mov eax,[sc.work] + mov ebx,eax + shr ebx,16 + @@: + mov word[edi],ax + mov [edi+2],bl + add edi,3 + loop @b + + ;затирание не использованых мест + jmp .Dalee + + .DrawIcons2: + push ecx + + mov [IcoY],ICONSY + mov ecx,ICONS_DRAW_COUNTH + .DrawIcoStolb2: + push ecx + + mov edx,[IcoX] + shl edx,16 + mov dx,word[IcoY] + mcall 7,DlgBufImg, + + .Dalee: + add dword[IcoY],IMG_SIZE+SPCH + pop ecx + loop .DrawIcoStolb2 + + add dword[IcoX],IMG_SIZE+SPCW + pop ecx + loop .DrawIcons2 + + .endProc: + + ret +endp + +proc DrawSelIcon + mov edx,[sc.work] + mcall 13,,<59,12> + + mov ecx,[sc.work_text] + or ecx,90000000h + mcall 4,,,DAreaIcon + + mov edi,DAreaIcon + cmp byte[edi],0 + jne @f + ret + @@: + + ;stdcall hexToInt, edi + stdcall strToInt, edi + @@: ;eax=num icon + cmp eax,[icon_count] + jb @f + xor eax,eax + @@: + test eax,eax + je .DI1 + mov ecx,eax + xor eax,eax + @@: + add eax,IMG_SIZE*IMG_SIZE*4 + loop @b + .DI1: + mov esi,eax + add esi,[raw_pointer] + add esi,44 + + mov edi,DlgBufImg + mov edx,IMG_SIZE + .DrawLine: + + mov ecx,IMG_SIZE + .DrawPix: + + lodsd + test eax,0FF000000h + jnz @f + mov eax,[sc.work] + @@: + + mov word[edi],ax + shr eax,16 + mov [edi+2],al + add edi,3 + + loop .DrawPix + + dec edx + jnz .DrawLine + + mcall 7,DlgBufImg,,<30,15> + + ret +endp + +;NOT USED +proc hexToInt strz:DWORD + push ebx + mov ebx,[strz] + mov al,[ebx] + xor edx,edx +.loop: + xor ecx,ecx + inc ebx + shl edx,4 + cmp al,'0' + jb .err + cmp al,'9' + jbe .conv + mov ecx,10 + sub al,11h + cmp al,'0' + jb .err + cmp al,'6' + ja .err +.conv: + sub al,30h + add dl,al + mov al,[ebx] + add dl,cl + test al,al + jnz .loop + mov eax,edx + pop ebx + ret +.err: + xor eax,eax + pop ebx + ret +endp + + +;NOT USED +proc byteToHex byti:BYTE,target:DWORD + push ebx + mov ebx,[target] + mov dl,[byti] + rol dl,4 + mov ecx,2 +.loop: + mov al,dl + and al,0xF + cmp al,10 + jae @f + add al,0x30 + jmp .n +@@: + add al,0x41-10 +.n: + mov [ebx],al + inc ebx + rol dl,4 + loop .loop + + mov byte[ebx],0 +@@: pop ebx + ret + jmp @b +endp + + +proc strToInt strz:DWORD + push ebx edi esi + stdcall strLen, [strz] + xor edx,edx + xor ebx,ebx + xor edi,edi + std + inc ebx + mov esi,[strz] + lea esi,[esi+eax-2] +.loop: + xor eax,eax + lodsb + cmp al,'0' + jb .err + cmp al,'9' + ja .err + + sub al,0x30 + mul ebx + lea ebx,[ebx*4+ebx] ;ebx = ebx*10 + shl ebx,1 + add edi,eax + cmp esi,[strz] + jae .loop + cld + mov eax,edi + pop esi edi ebx + ret +.err: + cld + or eax,-1 + pop esi edi ebx + ret +endp + + +;ret: target - string, edx - length string +proc intToStr inti:DWORD, target:DWORD +locals + resl rb 16 +endl + lea edi,[resl] + mov eax,[inti] + xor ecx,ecx + mov ebx,10 + jmp .stlp +.loop: + xor edx,edx + div ebx + mov [edi],dl + inc edi + inc ecx +.stlp: cmp eax,10 + jae .loop + mov [edi],al + inc ecx + mov edx,ecx + mov ebx,[target] +.conv: + mov al,[edi] + add al,0x30 + mov [ebx],al + inc ebx + dec edi + loop .conv + mov byte[ebx],0 + ret +endp + +;for 'ab',0 strLen = 3 +proc strLen stringZ:DWORD + push edi + xor al,al + mov edi,[stringZ] + or ecx,-1 + repne scasb + sub edi,[stringZ] + mov eax,edi + pop edi + ret +endp + + diff --git a/programs/system/icon_new/icon.asm b/programs/system/icon_new/icon.asm index de85165015..f6ff15f7b6 100644 --- a/programs/system/icon_new/icon.asm +++ b/programs/system/icon_new/icon.asm @@ -1,1349 +1,1350 @@ -ICON_STRIP equ '/sys/icons32.png' -ICON_INI equ '/sys/settings/icon.ini' -ICON_SIZE equ 68 ;размер области для иконки с надписью -IMG_SIZE equ 32 ;размер иконок -TEXT_BOTTOM_Y equ 14 ;отступ по Y текста от низа иконки -IMAGE_TOP_Y equ 10 ;>=1 Координата Y иконки в области для данной иконки -ALIGN_SIZE equ 68 ;размер сетки выравнивания -NAME_LENGTH equ 11 ;длина имени иконки -MIN_NO_MOVING equ 8 ;через столько пикселей сдвига мыши начинается таскание иконки - - ;--------для диалога создания/редактирования -ICONSX equ 20 -ICONSY equ 90 -ICONS_DRAW_COUNTW equ 12 ;количество иконок в ширину -ICONS_DRAW_COUNTH equ 6 ;количество иконок в высоту -SPCW equ 3 ;пробел между иконками по горизонтали -SPCH equ 3 -END_ICONS_AREAW equ ICONSX+(IMG_SIZE+SPCW)*ICONS_DRAW_COUNTW-SPCW -END_ICONS_AREAH equ ICONSY+(IMG_SIZE+SPCH)*ICONS_DRAW_COUNTH-SPCH - - - -SizeData equ bufStdIco+32 -BegData equ fiStdIco.point -;------------------------------------------------------------------------------ - use32 - org 0x0 - db 'MENUET01' ; 8 byte id - dd 0x01 ; header version - dd START ; start of code - dd I_END ; size of image - dd ENDMEM ; memory for app - dd stack_main ; esp - dd 0 ; boot parameters - dd 0 ; path -;------------------------------------------------------------------------------ -include 'lang.inc' -include '../../macros.inc' -include '../../proc32.inc' -include '../../develop/libraries/box_lib/trunk/box_lib.mac' -include '../../dll.inc' -include '../../debug.inc' - - -; include '../include/lang.inc' -; include '../include/macros.inc' -; include '../include/proc32.inc' -; include '../include/box_lib.mac' -; include '../include/dll.inc' - -;------------------------------------------------------------------------------ -START: ; start of execution - - mcall 68,11 - stdcall dll.Load,IMPORTS - test eax,eax - jnz ErrLoadLibs - - mcall 30,1,curpath - -; unpack deflate - mov eax,[unpack_DeflateUnpack2] - mov [deflate_unpack],eax -;--------------------------------------------------------------------- -; get size of file icons32.png - mcall 70,fiStdIco - test eax,eax - jnz ErrorStrp -; get memory for icons32.png - mov ecx,dword[bufStdIco+32] - mov [fiStdIco.size],ecx - mov [img_size],ecx - mcall 68,12 - mov [fiStdIco.point],eax - mov [image_file],eax -; load icons32.png - mov dword[fiStdIco],0 - mcall 70,fiStdIco - test eax,eax - jnz close -; convert PNG to RAW - xor eax,eax - mov [return_code],eax -;int3 - - push image_file - call [cnv_png_import.Start] - - mov eax,[raw_pointer] - mov ebx,[eax+32] - mov [strip_file_size],ebx - mov eax,[eax+28] - add eax,[raw_pointer] - mov [strip_file],eax -; back memory to system - mcall 68,13,[fiStdIco.point] - - mov eax,[raw_pointer] - mov eax,[eax+8] - shr eax,5 - mov [icon_count],eax - - and eax,0x7 - mov [cur_band_compensation],eax - -;########## загружаем данные иконок в память ########################## - - mcall 70,fiIni ;выделяем память, достаточной для хранения ini файла. - test eax,eax ;Её точно хватит для хранения данных об иконках - jnz ErrorIni - - cmp dword[bufIni+32],0 - je ErrorIni - mcall 68,12,dword[bufIni+32] - mov dword[BegData],eax - jmp NoErrIni - - ErrorIni: - mcall 70,fiRunProg - mcall -1 - - NoErrIni: - m2m [PIcoDB],[BegData] - - - - mov edi,IconsID - xor eax,eax - mov ecx,100h/4 - rep stosd - mov [nLoadIcon],0 - stdcall [ini_enum_sections],IconIni,LoadIconsData - - mov eax,dword[PIcoDB] - sub eax,[BegData] - mov dword[SizeData],eax - mov eax,[BegData] - cmp eax,[PIcoDB] - jne @f - mov dword[eax],0 - mov dword[SizeData],0 - @@: -;###################################################################### - call FillIconsOffs ;заполняет MaxNumIcon,IconsOffs - -;инициализация IPC буфера - mov dword[IPCbuffer],0 - mov dword[IPCbuffer+4],8 - mcall 60,1,IPCbuffer,1024 - - mcall 40,EVM_MOUSE+EVM_IPC ;нужны только события мыши и IPC, - ;перерисовка иконок будет в другом потоке - mov eax,[icon_count] - mov bl,ICONS_DRAW_COUNTH - div bl - test ah,ah - jz @f - inc al - @@: - and eax,0FFh - mov [sbIcons.max_area],eax - - mcall 51,1,BGRedrawThread,stack_bredraw ;запускаем поток перерисовки иконок - stdcall [OpenDialog_Init],OpenDialog_data - -;dph [MaxNumIcon] - -messages: - mcall 10 - sub eax,6 - jz MSGMouse - dec eax - jz MSGIPC - jmp messages - -MSGIPC: - call IPCCreateIcon - jmp messages - -MSGMouse: - mcall 37,0 ;GetMousePos - xor ebx,ebx - mov bx,ax - shr eax,16 - mov ecx,ebx - mov ebx,eax - - mcall 34 - cmp eax,1 - jne messages - - cmp [RButtonActiv],1 - je messages - - mov [MouseY],ecx - mov [MouseX],ebx - -MOUSE_STATE_LMB_HOLD = $00000001 -MOUSE_STATE_RMB_HOLD = $00000002 -MOUSE_EVENT_LMB_DOWN = $00000100 -MOUSE_EVENT_RMB_DOWN = $00000200 - - mcall 37,3 -;check LMB is pressed - test eax, MOUSE_STATE_LMB_HOLD - jz @f - test eax, MOUSE_EVENT_LMB_DOWN - jz @f - jmp LButtonPress -@@: -;check RMB is pressed - test eax, MOUSE_STATE_RMB_HOLD - jz @f - test eax, MOUSE_EVENT_RMB_DOWN - jz @f - jmp RButtonPress -@@: - jmp messages - -ErrLoadLibs: - ;dps 'Не удалось загрузить необходимые библиотеки' - ;debug_newline - jmp close -ErrorStrp: - ;dps 'Ошибка открытия icons32.png' - ;debug_newline -close: - mcall -1 - -LButtonPress: - - stdcall GetNumIcon,[MouseX],[MouseY],-1 -;int3 - cmp eax,-1 - jnz @f - - WaitLB1: - mcall 37,2 - test al,001b - jz messages - ;Yield - mcall 5,1 - jmp WaitLB1 - - - @@: - push eax - stdcall DrawIcon,eax,1 - WaitLB: - mcall 37,2 - test al,001b - jz endWaitLB - - mcall 37,0 - xor ebx,ebx - mov bx,ax - shr eax,16 - sub eax,[MouseX] - jns @f - neg eax - @@: - sub ebx,[MouseY] - jns @f - neg ebx - @@: - cmp [bFixIcons],0 - jne @f - cmp eax,MIN_NO_MOVING - ja MovingIcon - cmp ebx,MIN_NO_MOVING - ja MovingIcon - @@: - ;Yield - mcall 5,1 ;Sleep 1 - - jmp WaitLB - endWaitLB: - - mcall 37,0 - xor ebx,ebx - mov bx,ax - shr eax,16 - mov ecx,ebx - mov ebx,eax - mov [MouseX],ebx - mov [MouseY],ecx - - stdcall GetNumIcon,[MouseX],[MouseY],-1 - cmp eax,[esp] ;[esp] = номер иконки - jne @f - - mov edi,[IconsOffs+eax*4] - or ecx,-1 - xor al,al - repne scasb - mov ebx,edi - repne scasb - ;run program - mov dword[fiRunProg+8],edi - mov dword[fiRunProg+21],ebx - mcall 70,fiRunProg - - test eax,80000000h - jz @f - - mov dword[fiRunProg+8],ErrRunProg - mov dword[fiRunProg+21],pthNotify - mcall 70,fiRunProg - - @@: - pop eax - stdcall RestoreBackgrnd,eax - mcall 5, 60 - jmp messages - -;------------------------------------------------------------------------------- -MovingIcon: - stdcall GetNumIcon,[MouseX],[MouseY],-1 - mov [SelIcon],eax - mov [IconNoDraw],eax - stdcall RestoreBackgrnd,[SelIcon] - -; mov ecx,[MaxNumIcon] -; xor ebx,ebx -; .MI: push ecx -; cmp ebx,[SelIcon] -; je @f -; stdcall DrawIcon,ebx,0 -; @@: -; inc ebx -; pop ecx -; loop .MI - - - -;dps 'Moving' -;debug_newline -; mov edi,[SelIcon] -; mov edi,[IconsOffs+edi*4] -; or ecx,-1 -; xor al,al -; repne scasb -; repne scasb -; repne scasb -; repne scasb -; xor ebx,ebx -; xor esi,esi -; mov bx,word[edi+2] -; mov si,word[edi] -; stdcall GetNumIcon,ebx,esi,[SelIcon] -; cmp eax,-1 -; je @f -; dps 'Q' -; stdcall DrawIcon,eax,0 -; @@: -; -; add ebx,ICON_SIZE-1 -; stdcall GetNumIcon,ebx,esi,[SelIcon] -; cmp eax,-1 -; je @f -; dps 'Q' -; stdcall DrawIcon,eax,0 -; -; @@: -; add esi,ICON_SIZE-1 -; stdcall GetNumIcon,ebx,esi,[SelIcon] -; cmp eax,-1 -; je @f -; dps 'Q' -; stdcall DrawIcon,eax,0 -; -; @@: -; sub ebx,ICON_SIZE-1 -; stdcall GetNumIcon,ebx,esi,[SelIcon] -; cmp eax,-1 -; je @f -; dps 'Q' -; stdcall DrawIcon,eax,0 -; @@: - - -; Sleep 40 - -;qweqwe: - - mov [MovingActiv],1 - mcall 51,1,MovingWnd,stack_mov ;CreateThread MovingWnd,stack_dlg - .WaitLB: - mcall 37,2 ;GetMouseKey - test al,001b - jz .endWaitLB - - ;Yield - mcall 5,1 ;Sleep 1 - jmp .WaitLB - .endWaitLB: - - - mcall 37,0 ;GetMousePos - xor ebx,ebx - mov bx,ax - shr eax,16 - - sub eax,1+ICON_SIZE/2 - jnc @f - xor eax,eax - @@: - - sub ebx,ICON_SIZE/2-7 - jnc @f - xor ebx,ebx - @@: - - cmp ax,[wsX] - jae @f - mov ax,[wsX] - @@: - - cmp bx,[wsY] - jae @f - mov bx,[wsY] - @@: ;eax,ebx - реальная координата. Все координаты в проге относительно левого верхнего угла рабочей области - - xor edx,edx - mov dx,[wsXe] - sub edx,ICON_SIZE - cmp eax,edx - jbe @f - mov eax,edx - @@: - - mov dx,[wsYe] - sub edx,ICON_SIZE - cmp ebx,edx - jbe @f - mov ebx,edx - @@: - - xor edx,edx ;преобразовываем в относительные - mov dx,[wsW] - shr edx,1 - add dx,[wsX] - cmp eax,edx - jbe @f - sub ax,[wsXe] - inc ax - jmp .mov1 - @@: - sub ax,[wsX] - .mov1: - - xor edx,edx - mov dx,[wsH] - shr edx,1 - add dx,[wsY] - cmp ebx,edx - jbe @f - sub bx,[wsYe] - inc bx - jmp .mov2 - @@: - sub bx,[wsY] - .mov2: - - stdcall SetPosition,[SelIcon],eax,ebx - - m2m [PIcoDB],[BegData] - stdcall [ini_enum_sections],IconIni,Ini_SavePos ;in RButton.inc - - mov [bNotSave],1 - mov [IconNoDraw],-1 - - mov [MovingActiv],0 ;только теперь отключаем окно с мышью - - jmp messages - -;------------------------------------------------------------------------------- - -RButtonPress: - mov [RButtonActiv],1 - - @@: - mcall 37,2 ;GetMouseKey - test al,010b - jz @f - mcall 5,1 ;Yield - jmp @b - @@: - - mcall 51,1,RButtonWin,stack_rmenu ;CreateThread RButtonWin,stack_rmenu - - jmp messages - - -;############################################################################### -;ret eax = 1/0 = удача/ошибка -proc DrawIcon NumIcon:DWORD,Activ:DWORD ;NumIcon = 0..n -local IconData:DWORD - push ebx edi esi - - mov ecx,ICON_SIZE*ICON_SIZE - xor eax,eax - mov edi,IconArea - rep stosd - - mov eax,[NumIcon] - cmp eax,[MaxNumIcon] - jb @f - xor eax,eax - pop esi edi ebx - ret - @@: - - mov esi,[IconsOffs+eax*4] - mov [IconData],esi - - ;рисуем текст - mov edi,esi - xor al,al - or ecx,-1 - repne scasb - mov edx,esi - mov eax,edi - sub eax,esi - dec eax - shl eax,1 ;*6 - lea eax,[eax*2+eax] - mov ebx,ICON_SIZE - sub ebx,eax - shr ebx,1 ;ebx = x текста - shl ebx,16 - mov bx,ICON_SIZE - sub bx,TEXT_BOTTOM_Y - mov ecx,88000000h - mov edi,IconAreaH - add ebx,-1*10000h+0 - mcall 4 - add ebx,2*10000h+0 - mcall ;4 - add ebx,-1*10000h-1 - mcall ;4 - add ebx,0*10000h+2 - mcall ;4 - add ebx,1*10000h+0 - mcall ;4 - inc ebx;add ebx,0*10000h+1 - mcall ;4 - add ebx,-1*10000h+0 - mcall ;4 - add ebx,0*10000h-2 - mov ecx,88FFFFFFh - mcall ;4 - ;рисуем картинку - - mov edi,esi - xor al,al - or ecx,-1 - repne scasb - repne scasb - repne scasb - - ;stdcall hexToInt,edi - stdcall strToInt,edi - @@: ;eax=num icon - cmp eax,[icon_count] - jb @f - xor eax,eax - @@: - test eax,eax - je DI1 - mov ecx,eax - xor eax,eax - @@: - add eax,IMG_SIZE*IMG_SIZE*4 - loop @b - DI1: - add eax,[raw_pointer] - add eax,0+4*11 - mov esi,eax - - CopyToMem: - mov edi,IconArea+((IMAGE_TOP_Y*ICON_SIZE)+((ICON_SIZE-IMG_SIZE)/2))*4 - - mov eax,IMG_SIZE - mov edx,eax - @@: - mov ecx,eax - rep movsd - add edi,(ICON_SIZE-IMG_SIZE)*4 - dec edx - jnz @b - -;----------------- - ;если надо, то рисуем обводку - cmp [Activ],0 - je .NoSelect - - mov edi,IconArea - mov eax,0FF000000h - mov ecx,ICON_SIZE - rep stosd - ;mov edi,IconArea+ICON_SIZE*1 - - mov ecx,ICON_SIZE-1 - @@: mov dword[edi],eax - add edi,(ICON_SIZE)*4 - loop @b - - mov edi,IconArea+ICON_SIZE*2*4-4 - mov ecx,ICON_SIZE-1 - @@: mov dword[edi],eax - add edi,(ICON_SIZE)*4 - loop @b - - mov edi,IconArea+ICON_SIZE*(ICON_SIZE-1)*4+4 - mov ecx,ICON_SIZE-2 - rep stosd - - - mov edi,IconArea+ICON_SIZE*4+4 - mov eax,0FFFFFFFFh - mov ecx,ICON_SIZE-2 - rep stosd - - mov edi,IconArea+ICON_SIZE*4+4 - mov ecx,ICON_SIZE-2 - @@: mov dword[edi],eax - add edi,(ICON_SIZE)*4 - loop @b - - mov edi,IconArea+ICON_SIZE*2*4-4*2 - mov ecx,ICON_SIZE-3 - @@: mov dword[edi],eax - add edi,(ICON_SIZE)*4 - loop @b - - mov edi,IconArea+ICON_SIZE*(ICON_SIZE-2)*4+4*2 - mov ecx,ICON_SIZE-3 - rep stosd -;-------------- - - .NoSelect: - mov edi,[IconData] - xor al,al - or ecx,-1 - repne scasb - repne scasb - repne scasb - repne scasb - mov edx,[edi] - - test edx,00008000h - jz @f - add dx,[wsYe] - jmp .DI11 - @@: - add dx,[wsY] - .DI11: - - test edx,80000000h - jz @f - mov ax,[wsXe] - shl eax,16 - add edx,eax - jmp .DI12 - @@: - mov ax,[wsX] - shl eax,16 - add edx,eax - .DI12: - - mov ebx,IconArea - mov ecx,ICON_SIZE*10000h+ICON_SIZE - mcall 25 - -; mov eax,1 - pop esi edi ebx - ret -endp - -proc RestoreBackgrnd,NumIcon:DWORD - push ebx edi - mov eax,[NumIcon] - cmp eax,[MaxNumIcon] - jb @f - xor eax,eax - pop edi ebx - ret - @@: - - mov edi,[IconsOffs+eax*4] - xor al,al - or ecx,-1 - repne scasb - repne scasb - repne scasb - repne scasb - - mov ax,[edi+2] - test ax,8000h - jz @f - add ax,[wsXe] - jmp .rbg1 - @@: - add ax,[wsX] - .rbg1: - - mov bx,[edi] - test bx,8000h - jz @f - add bx,[wsYe] - jmp .rbg2 - @@: - add bx,[wsY] - .rbg2: - - mov cx,ax - shl ecx,16 - add ax,ICON_SIZE - mov cx,ax - mov dx,bx - shl edx,16 - add bx,ICON_SIZE - mov dx,bx - dec ecx - dec edx - mcall 15,9 - pop edi ebx - ret -endp - - ;заполняет MaxNumIcon,IconsOffs -proc FillIconsOffs - push ebx edi - mov edi,[BegData] - mov dword[MaxNumIcon],0 - cmp dword[edi],0 - jne @f - mov dword[IconsOffs],0 - pop edi ebx - ret - @@: - - mov [IconsOffs],edi - xor al,al - xor edx,edx - mov ebx,dword[SizeData] - add ebx,dword[BegData] - or ecx,-1 - .CalcNumIc: - - repne scasb - repne scasb - repne scasb - repne scasb - add edi,4 - mov dword[IconsOffs+edx+4],edi - inc dword[MaxNumIcon] - add edx,4 - - cmp edi,ebx - jae @f - jmp .CalcNumIc - @@: - - mov dword[IconsOffs+edx],0 - - pop edi ebx - ret -endp - -proc LoadIconsData stdcall,f_name,sec_name - push ebx esi edi - - mov edi,secRButt - mov esi,[sec_name] - @@: lodsb - scasb - jnz .lid1 - test al,al - jnz @b - - mov eax,1 - pop edi esi ebx - ret - .lid1: - - - mov ebx,[sec_name] ;копируем ID - mov ax,[ebx] - mov edi,[nLoadIcon] - mov word[edi*4+IconsID],ax - mov word[edi*4+IconsID+2],0 - - mov edi,[PIcoDB] - stdcall [ini_get_str],[f_name],[sec_name],keyName,edi,4096,0 - test eax,eax - jz @f - xor eax,eax - pop edi esi ebx - ret - @@: - xor al,al - or ecx,-1 - repne scasb - - - - stdcall [ini_get_str],[f_name],[sec_name],keyPath,edi,4096,0 - test eax,eax - jz @f - xor eax,eax - pop edi esi ebx - ret - @@: - xor al,al - or ecx,-1 - repne scasb - - stdcall [ini_get_str],[f_name],[sec_name],keyParams,edi,4096,0 - test eax,eax - jz @f - xor eax,eax - pop edi esi ebx - ret - @@: - xor al,al - or ecx,-1 - repne scasb - - stdcall [ini_get_str],[f_name],[sec_name],keyIco,edi,4096,0 - test eax,eax - jz @f - xor eax,eax - pop edi esi ebx - ret - @@: - xor al,al - or ecx,-1 - repne scasb - - stdcall [ini_get_int],[f_name],[sec_name],keyX,80000000h - cmp eax,80000000h - jne @f - xor eax,eax - pop edi esi ebx - ret - @@: - mov word[edi+2],ax - - stdcall [ini_get_int],[f_name],[sec_name],keyY,80000000h - cmp eax,80000000h - jne @f - xor eax,eax - pop edi esi ebx - ret - @@: - mov word[edi],ax - add edi,4 - mov [PIcoDB],edi - - inc [nLoadIcon] - - mov eax,1 - pop edi esi ebx - ret -endp - -proc GenerateID ;ax = ID - push ebx edi - mov ebx,[MaxNumIcon] - test ebx,ebx - jnz @f - mov eax,'00' - pop edi ebx - ret - @@: - - mov eax,dword[IconsID+ebx*4-4] - .inc: - inc ah - cmp ah,'9'+1 - jne @f - mov ah,'A' - @@: - cmp ah,'F'+1 - jne @f - mov ah,'0' - inc al - @@: - cmp al,'9'+1 - jne @f - mov al,'A' - @@: - cmp al,'F'+1 - jne @f - mov al,'0' - @@: - - - mov edi,IconsID - ;cmp dword[edi],0 - ;je @f - mov ecx,100h - @@: scasd - je .inc - cmp dword[edi],0 - je @f - loop @b - @@: - - pop edi ebx - ret -endp - -;------------------------------------------------------------------------------- - - -;формат IPC-сообщения -;dd X -;dd Y -;asciiz Icon - in decimal -;asciiz Name -;asciiz Path -;asciiz Params -;------------------------------------------------------------------------------- -proc IPCCreateIcon -locals - ix rd 1 - iy rd 1 -endl - - mov eax,IPCbuffer+8 - mov dword[IPCbuffer],1 - lea edx,[eax+8] - - m2m dword[ix],dword[edx] - m2m dword[iy],dword[edx+4] - - lea esi,[edx+8] - - mov ecx,256 - mov edi,DAreaIcon - @@: lodsb - stosb - test al,al - jnz @b - - mov ecx,NAME_LENGTH+1 - mov edi,DAreaName - @@: lodsb - stosb - test al,al - jz @f - loop @b - @@: - - mov edi,DAreaPath - @@: lodsb - stosb - test al,al - jnz @b - - mov edi,DAreaParams - @@: lodsb - stosb - test al,al - jnz @b - - mov dword[IPCbuffer+4],8 - mov dword[IPCbuffer],0 - - stdcall AddIcon,[ix],[iy],DAreaIcon,DAreaName,DAreaPath,DAreaParams - - mcall 15,3 - ret -endp - - -include 'iconman.inc' -include 'bgredraw.inc' -include 'RButton.inc' -include 'DlgAdd.inc' -include 'Moving.inc' - -;'Eolite',0,'/sys/File managers/eolite',0,'/hd0/3/Muzik',0,'1',0,00010001h -;------------------------------------------------------------------------------- -;##### DATA #################################################################### -;------------------------------------------------------------------------------- -; not change this section!!! -; start section -;------------------------------------------------------------------------------ -align 4 -image_file dd 0 ;+0 -raw_pointer dd 0 ;+4 -return_code dd 0 ;+8 -img_size dd 0 ;+12 -deflate_unpack dd 0 ;+16 ; not use for scaling -raw_pointer_2 dd 0 ;+20 ; not use for scaling -;------------------------------------------------------------------------------ -; end section -;------------------------------------------------------------------------------ - - -align 4 -fiStdIco: - dd 5 - dd 0 - dd 0 -.size dd 0 -.point dd bufStdIco - db ICON_STRIP,0 - - -align 4 -fiRunProg: ;для запуска программ - dd 7 - dd 0 - dd 0 - dd 0 - dd ErrNotFoundIni - db 0 - dd pthNotify - -fiIni dd 5 ;для ini файла - dd 0 - dd 0 - dd 0 - dd bufIni - db 0 - dd IconIni - - -IconsFile db ICON_STRIP,0 - -align 4 -MaxNumIcon dd 0 ;количество иконок -IconNoDraw dd -1 ;-1 либо номер иконки, которую не надо рисовать( когда её таскают ) - -bFixIcons dd 1 -bNotSave dd 0 - -LButtonActiv dd 0 -RButtonActiv dd 0 -MovingActiv dd 0 -DlgAddActiv dd 0 - -IconIni db ICON_INI,0 - -pthNotify db '/sys/@notify',0 - -keyName db 'name',0 -keyPath db 'path',0 -keyParams db 'param',0 -keyIco db 'ico',0 -keyX db 'x',0 -keyY db 'y',0 - -;------------------------------------------------------------------------------- -IMPORTS: -library cnv_png ,'cnv_png.obj',\ - archiver,'archiver.obj',\ - box_lib ,'box_lib.obj',\ - proc_lib,'proc_lib.obj',\ - libini ,'libini.obj' - -import cnv_png,\ - cnv_png_import.Start ,'START',\ - cnv_png_import.Version ,'version',\ - cnv_png_import.Check ,'Check_Header',\ - cnv_png_import.Assoc ,'Associations' - -import archiver,\ - unpack_DeflateUnpack2 ,'deflate_unpack2' - -import box_lib,\ - edit_box_draw ,'edit_box_draw',\ - edit_box_key ,'edit_box_key',\ - edit_box_mouse ,'edit_box_mouse',\ - scrollbar_h_draw ,'scrollbar_h_draw',\ - scrollbar_h_mouse ,'scrollbar_h_mouse' - -import proc_lib,\ - OpenDialog_Init ,'OpenDialog_init',\ - OpenDialog_Start ,'OpenDialog_start' - -import libini,\ - ini_enum_sections ,'ini_enum_sections',\ - ini_enum_keys ,'ini_enum_keys',\ - ini_get_str ,'ini_get_str',\ - ini_set_str ,'ini_set_str',\ - ini_get_color ,'ini_get_color',\ - ini_get_int ,'ini_get_int',\ - ini_set_int ,'ini_set_int',\ - ini_del_section ,'ini_del_section',\ - ini_exist_sect ,'ini_exist_sect' - - -;ini.get_str (f_name, sec_name, key_name, buffer, buf_len, def_val) -;ini.set_str (f_name, sec_name, key_name, buffer, buf_len) - - -;------------------------------------------------------------------------------- -;----- RButton.inc ------------------------------------------------------------- -;------------------------------------------------------------------------------- - -if lang eq ru_RU - MinRMenuW dd 18*6+10 -else - MinRMenuW dd 15*6+10 -end if - -secRButt db 'rbmenu',0 - -curpath db '/sys',0 - -PredItem dd -1 - -if lang eq ru_RU - RMenuRedrawFon db 'Перерисовать',0 - RMenuAlign db 'Выровнять по сетке',0 - RMenuOffMoving db 'Закрепить иконки',0 - RMenuOnMoving db 'Открепить иконки',0 - RMenuAdd db 'Добавить',0 - RMenuDel db 'Удалить',0 - RMenuProp db 'Свойства',0 -else - RMenuRedrawFon db 'Redraw',0 - RMenuAlign db 'Snap to grid',0 - RMenuOffMoving db 'Fix the icons',0 - RMenuOnMoving db 'Unfix the icons',0 - RMenuAdd db 'Add',0 - RMenuDel db 'Delete',0 - RMenuProp db 'Properties',0 -end if - -if lang eq ru_RU - ErrRunProg db 'Ошибка запуска программы',0 - WarningSave db 'Не забудьте сохранить изменения, запустить RDSave',0 - ErrNotFoundIni db 'Не найден icon.ini',0 - ErrName db 'Имя "rbmenu" зарезервировано',0 -else - ErrRunProg db 'Error running program',0 - WarningSave db 'Remember to save changes with "RDSave"',0 - ErrNotFoundIni db 'icon.ini not found',0 - ErrName db 'The name "rbmenu" reserved',0 -end if - -;------------------------------------------------------------------------------- -;------- AddDlg.inc --------------------------------------------------------------- -;------------------------------------------------------------------------------- -if lang eq ru_RU -DTitleAdd db 'Добавить иконку',0 -DTitleProp db 'Изменить иконку',0 - -DCaptName db ' Имя',0 -DCaptPath db ' Путь',0 -DCaptParams db ' Ключи',0 -;DCaptChange db '.',0 -DCaptCreate db 'Создать',0 -DCaptProperties db 'Изменить',0 -DCaptCancel db 'Отменить',0 - -else -DTitleAdd db 'Add icon',0 -DTitleProp db 'Change icon',0 - -DCaptName db ' Name',0 -DCaptPath db ' Path',0 -DCaptParams db ' Params',0 -DCaptCreate db 'Create',0 -DCaptProperties db 'Change',0 -DCaptCancel db 'Cancel',0 -end if -DCaptDots db '...',0 - -;/не менять положение -edtName edit_box NAME_LENGTH*8+4,120+IMG_SIZE,6,0FFFFFFh,06F9480h,0FFh,0h,0x90000000,NAME_LENGTH,\ - DAreaName,mouse_dd,0,0,0 -edtExePath edit_box END_ICONS_AREAW-120-IMG_SIZE-40,120+IMG_SIZE,30,0FFFFFFh,06F9480h,\ - 0FFh,0h,0x90000000,255, DAreaPath,mouse_dd,0,0,0 -edtParams edit_box END_ICONS_AREAW-120-IMG_SIZE, 120+IMG_SIZE,54,0FFFFFFh,06F9480h,\ - 0FFh,0h,0x90000000,255, DAreaParams,mouse_dd,0,0,0 -edtIcon edit_box 28,24,62,0FFFFFFh,0FFFFFFh,0FFh,0h,0x90000000,3,\ - DAreaIcon,0,0,0,0 -endEdits: -;\ - -sbIcons: - dw END_ICONS_AREAW-ICONSX - dw ICONSX - dw 15 - dw END_ICONS_AREAH+3 - dd 0 - dd 1 - .max_area dd 0 - .cur_area dd ICONS_DRAW_COUNTW - .position dd 0 - .bckg_col dd 0 - .frnt_col dd 0 - .line_col dd 0 - .redraw dd 0 - .delta dd 0 - .delta2 dd 0 - .r_size_x dw 0 - .r_start_x dw 0 - .r_size_y dw 0 - - .r_start_y dw 0 - .m_pos dd 0 - .m_pos2 dd 0 - .m_keys dd 0 - .run_size dd 0 - .position2 dd 0 - .work_size dd 0 - .all_redraw dd 0 - .ar_offset dd 0 - -;------------------------------------------------------------------------------- -OpenDialog_data: -.type dd 0 -.procinfo dd RBProcInfo ;+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 DRedrawWin;draw_window_for_OD ;+28 -.status dd 0 ;+32 -.openfile_pach dd DAreaPath;fname_Info ;+36 -.filename_area dd 0;DAreaPath ;+40 -.filter_area dd Filter -.x: -.x_size dw 420 ;+48 ; Window X size -.x_start dw 100 ;+50 ; Window X position -.y: -.y_size dw 320 ;+52 ; Window y size -.y_start dw 100 ;+54 ; Window Y position - -communication_area_name: - db 'FFFFFFFF_open_dialog',0 -open_dialog_path: - db '/sys/File managers/opendial',0 - -communication_area_default_pach: - db '/sys',0 - -Filter dd 0 - -;open_dialog db 0 -;------------------------------------------------------------------------------- - -;/не разделять -align 4 -IconAreaH dd ICON_SIZE,ICON_SIZE -I_END: -;##### UDATA ################################################################### -IconArea rb 4*ICON_SIZE*ICON_SIZE -;\ - -sc system_colors -sc.workL rd 1 -sc.workH rd 1 - - -align 4 -IPCbuffer rb 1024 - -align 4 - -ScreenW rw 1 -ScreenH rw 1 -wsX rw 1 -wsY rw 1 -wsXe rw 1 -wsYe rw 1 -wsW rw 1 -wsH rw 1 - - -MouseX rd 1 -MouseY rd 1 - -RBSlot rd 1 -AddX rd 1 -AddY rd 1 - -SelIcon rd 1 -DlgSelIcon rd 1 -slotDlgAdd rd 1 -DlgBufImg rb IMG_SIZE*IMG_SIZE*3 - -align 4 -bufStdIco rb 40 -IconsOffs rd 100h ;таблица с указателями на конкретные иконки(для ускорения) -PIcoDB rd 1 ;указатель на буффер с инфой обо всех иконках -nLoadIcon rd 1 ;номер читаемой из ini иконки -IconsID rd 100h ;ID иконок - 2 байтa + байт 0 + выравнивающий байт - строка с 2мя шеснадцетиричными цифрами - -nameSection rb 4 - -align 4 -icon_count rd 1 -strip_file rd 1 -strip_file_size rd 1 - -cur_band_compensation rd 1 - -;---- RButton ----------------------------------------------------------------------- - -bufIni rb 40 -NumMenuButt rd 1 -RBMenuCP rd MAX_USER_BUTTONS*2 ;указатели на подпись и путь с прогой (Caption(dd), Path(dd)) и запасной (dd) для завершающего нуля -RMenuW rw 1 -RMenuH rw 1 - -MaxPage rd 1 -mouse_dd rd 1 - -DAreaName rb NAME_LENGTH+1 -DAreaPath rb 255+1 -DAreaParams rb 255+1 -DAreaIcon rb 255+1 - -align 4 -RBProcInfo rb 1024 -align 4 - - -;------ OpenDialog ------------------------------- -temp_dir_pach rb 1024 -fname_Info rb 1024 - -;------------------------------------------------------------------------------- - rb 512 -stack_mov: ;одновременно таскать и держать открытым менюшку невозможно -stack_rmenu: - rb 512 -stack_dlg: - rb 512 -stack_bredraw: - rb 512 -stack_main: -;------------------------------------------------------------------------------ - - - - -ENDMEM: +ICON_STRIP equ '/sys/icons32.png' +ICON_INI equ '/sys/settings/icon.ini' +ICON_SIZE equ 68 ;размер области для иконки с надписью +IMG_SIZE equ 32 ;размер иконок +TEXT_BOTTOM_Y equ 14 ;отступ по Y текста от низа иконки +IMAGE_TOP_Y equ 10 ;>=1 Координата Y иконки в области для данной иконки +ALIGN_SIZE equ 68 ;размер сетки выравнивания +NAME_LENGTH equ 11 ;длина имени иконки +MIN_NO_MOVING equ 8 ;через столько пикселей сдвига мыши начинается таскание иконки + + ;--------для диалога создания/редактирования +ICONSX equ 20 +ICONSY equ 90 +ICONS_DRAW_COUNTW equ 12 ;количество иконок в ширину +ICONS_DRAW_COUNTH equ 6 ;количество иконок в высоту +SPCW equ 3 ;пробел между иконками по горизонтали +SPCH equ 3 +END_ICONS_AREAW equ ICONSX+(IMG_SIZE+SPCW)*ICONS_DRAW_COUNTW-SPCW +END_ICONS_AREAH equ ICONSY+(IMG_SIZE+SPCH)*ICONS_DRAW_COUNTH-SPCH + + + +SizeData equ bufStdIco+32 +BegData equ fiStdIco.point +;------------------------------------------------------------------------------ + use32 + org 0x0 + db 'MENUET01' ; 8 byte id + dd 0x01 ; header version + dd START ; start of code + dd I_END ; size of image + dd ENDMEM ; memory for app + dd stack_main ; esp + dd 0 ; boot parameters + dd 0 ; path +;------------------------------------------------------------------------------ + +include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US. +include '../../macros.inc' +include '../../proc32.inc' +include '../../develop/libraries/box_lib/trunk/box_lib.mac' +include '../../dll.inc' +include '../../debug.inc' + + +; include '../include/lang.inc' +; include '../include/macros.inc' +; include '../include/proc32.inc' +; include '../include/box_lib.mac' +; include '../include/dll.inc' + +;------------------------------------------------------------------------------ +START: ; start of execution + + mcall 68,11 + stdcall dll.Load,IMPORTS + test eax,eax + jnz ErrLoadLibs + + mcall 30,1,curpath + +; unpack deflate + mov eax,[unpack_DeflateUnpack2] + mov [deflate_unpack],eax +;--------------------------------------------------------------------- +; get size of file icons32.png + mcall 70,fiStdIco + test eax,eax + jnz ErrorStrp +; get memory for icons32.png + mov ecx,dword[bufStdIco+32] + mov [fiStdIco.size],ecx + mov [img_size],ecx + mcall 68,12 + mov [fiStdIco.point],eax + mov [image_file],eax +; load icons32.png + mov dword[fiStdIco],0 + mcall 70,fiStdIco + test eax,eax + jnz close +; convert PNG to RAW + xor eax,eax + mov [return_code],eax +;int3 + + push image_file + call [cnv_png_import.Start] + + mov eax,[raw_pointer] + mov ebx,[eax+32] + mov [strip_file_size],ebx + mov eax,[eax+28] + add eax,[raw_pointer] + mov [strip_file],eax +; back memory to system + mcall 68,13,[fiStdIco.point] + + mov eax,[raw_pointer] + mov eax,[eax+8] + shr eax,5 + mov [icon_count],eax + + and eax,0x7 + mov [cur_band_compensation],eax + +;########## загружаем данные иконок в память ########################## + + mcall 70,fiIni ;выделяем память, достаточной для хранения ini файла. + test eax,eax ;Её точно хватит для хранения данных об иконках + jnz ErrorIni + + cmp dword[bufIni+32],0 + je ErrorIni + mcall 68,12,dword[bufIni+32] + mov dword[BegData],eax + jmp NoErrIni + + ErrorIni: + mcall 70,fiRunProg + mcall -1 + + NoErrIni: + m2m [PIcoDB],[BegData] + + + + mov edi,IconsID + xor eax,eax + mov ecx,100h/4 + rep stosd + mov [nLoadIcon],0 + stdcall [ini_enum_sections],IconIni,LoadIconsData + + mov eax,dword[PIcoDB] + sub eax,[BegData] + mov dword[SizeData],eax + mov eax,[BegData] + cmp eax,[PIcoDB] + jne @f + mov dword[eax],0 + mov dword[SizeData],0 + @@: +;###################################################################### + call FillIconsOffs ;заполняет MaxNumIcon,IconsOffs + +;инициализация IPC буфера + mov dword[IPCbuffer],0 + mov dword[IPCbuffer+4],8 + mcall 60,1,IPCbuffer,1024 + + mcall 40,EVM_MOUSE+EVM_IPC ;нужны только события мыши и IPC, + ;перерисовка иконок будет в другом потоке + mov eax,[icon_count] + mov bl,ICONS_DRAW_COUNTH + div bl + test ah,ah + jz @f + inc al + @@: + and eax,0FFh + mov [sbIcons.max_area],eax + + mcall 51,1,BGRedrawThread,stack_bredraw ;запускаем поток перерисовки иконок + stdcall [OpenDialog_Init],OpenDialog_data + +;dph [MaxNumIcon] + +messages: + mcall 10 + sub eax,6 + jz MSGMouse + dec eax + jz MSGIPC + jmp messages + +MSGIPC: + call IPCCreateIcon + jmp messages + +MSGMouse: + mcall 37,0 ;GetMousePos + xor ebx,ebx + mov bx,ax + shr eax,16 + mov ecx,ebx + mov ebx,eax + + mcall 34 + cmp eax,1 + jne messages + + cmp [RButtonActiv],1 + je messages + + mov [MouseY],ecx + mov [MouseX],ebx + +MOUSE_STATE_LMB_HOLD = $00000001 +MOUSE_STATE_RMB_HOLD = $00000002 +MOUSE_EVENT_LMB_DOWN = $00000100 +MOUSE_EVENT_RMB_DOWN = $00000200 + + mcall 37,3 +;check LMB is pressed + test eax, MOUSE_STATE_LMB_HOLD + jz @f + test eax, MOUSE_EVENT_LMB_DOWN + jz @f + jmp LButtonPress +@@: +;check RMB is pressed + test eax, MOUSE_STATE_RMB_HOLD + jz @f + test eax, MOUSE_EVENT_RMB_DOWN + jz @f + jmp RButtonPress +@@: + jmp messages + +ErrLoadLibs: + ;dps 'Не удалось загрузить необходимые библиотеки' + ;debug_newline + jmp close +ErrorStrp: + ;dps 'Ошибка открытия icons32.png' + ;debug_newline +close: + mcall -1 + +LButtonPress: + + stdcall GetNumIcon,[MouseX],[MouseY],-1 +;int3 + cmp eax,-1 + jnz @f + + WaitLB1: + mcall 37,2 + test al,001b + jz messages + ;Yield + mcall 5,1 + jmp WaitLB1 + + + @@: + push eax + stdcall DrawIcon,eax,1 + WaitLB: + mcall 37,2 + test al,001b + jz endWaitLB + + mcall 37,0 + xor ebx,ebx + mov bx,ax + shr eax,16 + sub eax,[MouseX] + jns @f + neg eax + @@: + sub ebx,[MouseY] + jns @f + neg ebx + @@: + cmp [bFixIcons],0 + jne @f + cmp eax,MIN_NO_MOVING + ja MovingIcon + cmp ebx,MIN_NO_MOVING + ja MovingIcon + @@: + ;Yield + mcall 5,1 ;Sleep 1 + + jmp WaitLB + endWaitLB: + + mcall 37,0 + xor ebx,ebx + mov bx,ax + shr eax,16 + mov ecx,ebx + mov ebx,eax + mov [MouseX],ebx + mov [MouseY],ecx + + stdcall GetNumIcon,[MouseX],[MouseY],-1 + cmp eax,[esp] ;[esp] = номер иконки + jne @f + + mov edi,[IconsOffs+eax*4] + or ecx,-1 + xor al,al + repne scasb + mov ebx,edi + repne scasb + ;run program + mov dword[fiRunProg+8],edi + mov dword[fiRunProg+21],ebx + mcall 70,fiRunProg + + test eax,80000000h + jz @f + + mov dword[fiRunProg+8],ErrRunProg + mov dword[fiRunProg+21],pthNotify + mcall 70,fiRunProg + + @@: + pop eax + stdcall RestoreBackgrnd,eax + mcall 5, 60 + jmp messages + +;------------------------------------------------------------------------------- +MovingIcon: + stdcall GetNumIcon,[MouseX],[MouseY],-1 + mov [SelIcon],eax + mov [IconNoDraw],eax + stdcall RestoreBackgrnd,[SelIcon] + +; mov ecx,[MaxNumIcon] +; xor ebx,ebx +; .MI: push ecx +; cmp ebx,[SelIcon] +; je @f +; stdcall DrawIcon,ebx,0 +; @@: +; inc ebx +; pop ecx +; loop .MI + + + +;dps 'Moving' +;debug_newline +; mov edi,[SelIcon] +; mov edi,[IconsOffs+edi*4] +; or ecx,-1 +; xor al,al +; repne scasb +; repne scasb +; repne scasb +; repne scasb +; xor ebx,ebx +; xor esi,esi +; mov bx,word[edi+2] +; mov si,word[edi] +; stdcall GetNumIcon,ebx,esi,[SelIcon] +; cmp eax,-1 +; je @f +; dps 'Q' +; stdcall DrawIcon,eax,0 +; @@: +; +; add ebx,ICON_SIZE-1 +; stdcall GetNumIcon,ebx,esi,[SelIcon] +; cmp eax,-1 +; je @f +; dps 'Q' +; stdcall DrawIcon,eax,0 +; +; @@: +; add esi,ICON_SIZE-1 +; stdcall GetNumIcon,ebx,esi,[SelIcon] +; cmp eax,-1 +; je @f +; dps 'Q' +; stdcall DrawIcon,eax,0 +; +; @@: +; sub ebx,ICON_SIZE-1 +; stdcall GetNumIcon,ebx,esi,[SelIcon] +; cmp eax,-1 +; je @f +; dps 'Q' +; stdcall DrawIcon,eax,0 +; @@: + + +; Sleep 40 + +;qweqwe: + + mov [MovingActiv],1 + mcall 51,1,MovingWnd,stack_mov ;CreateThread MovingWnd,stack_dlg + .WaitLB: + mcall 37,2 ;GetMouseKey + test al,001b + jz .endWaitLB + + ;Yield + mcall 5,1 ;Sleep 1 + jmp .WaitLB + .endWaitLB: + + + mcall 37,0 ;GetMousePos + xor ebx,ebx + mov bx,ax + shr eax,16 + + sub eax,1+ICON_SIZE/2 + jnc @f + xor eax,eax + @@: + + sub ebx,ICON_SIZE/2-7 + jnc @f + xor ebx,ebx + @@: + + cmp ax,[wsX] + jae @f + mov ax,[wsX] + @@: + + cmp bx,[wsY] + jae @f + mov bx,[wsY] + @@: ;eax,ebx - реальная координата. Все координаты в проге относительно левого верхнего угла рабочей области + + xor edx,edx + mov dx,[wsXe] + sub edx,ICON_SIZE + cmp eax,edx + jbe @f + mov eax,edx + @@: + + mov dx,[wsYe] + sub edx,ICON_SIZE + cmp ebx,edx + jbe @f + mov ebx,edx + @@: + + xor edx,edx ;преобразовываем в относительные + mov dx,[wsW] + shr edx,1 + add dx,[wsX] + cmp eax,edx + jbe @f + sub ax,[wsXe] + inc ax + jmp .mov1 + @@: + sub ax,[wsX] + .mov1: + + xor edx,edx + mov dx,[wsH] + shr edx,1 + add dx,[wsY] + cmp ebx,edx + jbe @f + sub bx,[wsYe] + inc bx + jmp .mov2 + @@: + sub bx,[wsY] + .mov2: + + stdcall SetPosition,[SelIcon],eax,ebx + + m2m [PIcoDB],[BegData] + stdcall [ini_enum_sections],IconIni,Ini_SavePos ;in RButton.inc + + mov [bNotSave],1 + mov [IconNoDraw],-1 + + mov [MovingActiv],0 ;только теперь отключаем окно с мышью + + jmp messages + +;------------------------------------------------------------------------------- + +RButtonPress: + mov [RButtonActiv],1 + + @@: + mcall 37,2 ;GetMouseKey + test al,010b + jz @f + mcall 5,1 ;Yield + jmp @b + @@: + + mcall 51,1,RButtonWin,stack_rmenu ;CreateThread RButtonWin,stack_rmenu + + jmp messages + + +;############################################################################### +;ret eax = 1/0 = удача/ошибка +proc DrawIcon NumIcon:DWORD,Activ:DWORD ;NumIcon = 0..n +local IconData:DWORD + push ebx edi esi + + mov ecx,ICON_SIZE*ICON_SIZE + xor eax,eax + mov edi,IconArea + rep stosd + + mov eax,[NumIcon] + cmp eax,[MaxNumIcon] + jb @f + xor eax,eax + pop esi edi ebx + ret + @@: + + mov esi,[IconsOffs+eax*4] + mov [IconData],esi + + ;рисуем текст + mov edi,esi + xor al,al + or ecx,-1 + repne scasb + mov edx,esi + mov eax,edi + sub eax,esi + dec eax + shl eax,1 ;*6 + lea eax,[eax*2+eax] + mov ebx,ICON_SIZE + sub ebx,eax + shr ebx,1 ;ebx = x текста + shl ebx,16 + mov bx,ICON_SIZE + sub bx,TEXT_BOTTOM_Y + mov ecx,88000000h + mov edi,IconAreaH + add ebx,-1*10000h+0 + mcall 4 + add ebx,2*10000h+0 + mcall ;4 + add ebx,-1*10000h-1 + mcall ;4 + add ebx,0*10000h+2 + mcall ;4 + add ebx,1*10000h+0 + mcall ;4 + inc ebx;add ebx,0*10000h+1 + mcall ;4 + add ebx,-1*10000h+0 + mcall ;4 + add ebx,0*10000h-2 + mov ecx,88FFFFFFh + mcall ;4 + ;рисуем картинку + + mov edi,esi + xor al,al + or ecx,-1 + repne scasb + repne scasb + repne scasb + + ;stdcall hexToInt,edi + stdcall strToInt,edi + @@: ;eax=num icon + cmp eax,[icon_count] + jb @f + xor eax,eax + @@: + test eax,eax + je DI1 + mov ecx,eax + xor eax,eax + @@: + add eax,IMG_SIZE*IMG_SIZE*4 + loop @b + DI1: + add eax,[raw_pointer] + add eax,0+4*11 + mov esi,eax + + CopyToMem: + mov edi,IconArea+((IMAGE_TOP_Y*ICON_SIZE)+((ICON_SIZE-IMG_SIZE)/2))*4 + + mov eax,IMG_SIZE + mov edx,eax + @@: + mov ecx,eax + rep movsd + add edi,(ICON_SIZE-IMG_SIZE)*4 + dec edx + jnz @b + +;----------------- + ;если надо, то рисуем обводку + cmp [Activ],0 + je .NoSelect + + mov edi,IconArea + mov eax,0FF000000h + mov ecx,ICON_SIZE + rep stosd + ;mov edi,IconArea+ICON_SIZE*1 + + mov ecx,ICON_SIZE-1 + @@: mov dword[edi],eax + add edi,(ICON_SIZE)*4 + loop @b + + mov edi,IconArea+ICON_SIZE*2*4-4 + mov ecx,ICON_SIZE-1 + @@: mov dword[edi],eax + add edi,(ICON_SIZE)*4 + loop @b + + mov edi,IconArea+ICON_SIZE*(ICON_SIZE-1)*4+4 + mov ecx,ICON_SIZE-2 + rep stosd + + + mov edi,IconArea+ICON_SIZE*4+4 + mov eax,0FFFFFFFFh + mov ecx,ICON_SIZE-2 + rep stosd + + mov edi,IconArea+ICON_SIZE*4+4 + mov ecx,ICON_SIZE-2 + @@: mov dword[edi],eax + add edi,(ICON_SIZE)*4 + loop @b + + mov edi,IconArea+ICON_SIZE*2*4-4*2 + mov ecx,ICON_SIZE-3 + @@: mov dword[edi],eax + add edi,(ICON_SIZE)*4 + loop @b + + mov edi,IconArea+ICON_SIZE*(ICON_SIZE-2)*4+4*2 + mov ecx,ICON_SIZE-3 + rep stosd +;-------------- + + .NoSelect: + mov edi,[IconData] + xor al,al + or ecx,-1 + repne scasb + repne scasb + repne scasb + repne scasb + mov edx,[edi] + + test edx,00008000h + jz @f + add dx,[wsYe] + jmp .DI11 + @@: + add dx,[wsY] + .DI11: + + test edx,80000000h + jz @f + mov ax,[wsXe] + shl eax,16 + add edx,eax + jmp .DI12 + @@: + mov ax,[wsX] + shl eax,16 + add edx,eax + .DI12: + + mov ebx,IconArea + mov ecx,ICON_SIZE*10000h+ICON_SIZE + mcall 25 + +; mov eax,1 + pop esi edi ebx + ret +endp + +proc RestoreBackgrnd,NumIcon:DWORD + push ebx edi + mov eax,[NumIcon] + cmp eax,[MaxNumIcon] + jb @f + xor eax,eax + pop edi ebx + ret + @@: + + mov edi,[IconsOffs+eax*4] + xor al,al + or ecx,-1 + repne scasb + repne scasb + repne scasb + repne scasb + + mov ax,[edi+2] + test ax,8000h + jz @f + add ax,[wsXe] + jmp .rbg1 + @@: + add ax,[wsX] + .rbg1: + + mov bx,[edi] + test bx,8000h + jz @f + add bx,[wsYe] + jmp .rbg2 + @@: + add bx,[wsY] + .rbg2: + + mov cx,ax + shl ecx,16 + add ax,ICON_SIZE + mov cx,ax + mov dx,bx + shl edx,16 + add bx,ICON_SIZE + mov dx,bx + dec ecx + dec edx + mcall 15,9 + pop edi ebx + ret +endp + + ;заполняет MaxNumIcon,IconsOffs +proc FillIconsOffs + push ebx edi + mov edi,[BegData] + mov dword[MaxNumIcon],0 + cmp dword[edi],0 + jne @f + mov dword[IconsOffs],0 + pop edi ebx + ret + @@: + + mov [IconsOffs],edi + xor al,al + xor edx,edx + mov ebx,dword[SizeData] + add ebx,dword[BegData] + or ecx,-1 + .CalcNumIc: + + repne scasb + repne scasb + repne scasb + repne scasb + add edi,4 + mov dword[IconsOffs+edx+4],edi + inc dword[MaxNumIcon] + add edx,4 + + cmp edi,ebx + jae @f + jmp .CalcNumIc + @@: + + mov dword[IconsOffs+edx],0 + + pop edi ebx + ret +endp + +proc LoadIconsData stdcall,f_name,sec_name + push ebx esi edi + + mov edi,secRButt + mov esi,[sec_name] + @@: lodsb + scasb + jnz .lid1 + test al,al + jnz @b + + mov eax,1 + pop edi esi ebx + ret + .lid1: + + + mov ebx,[sec_name] ;копируем ID + mov ax,[ebx] + mov edi,[nLoadIcon] + mov word[edi*4+IconsID],ax + mov word[edi*4+IconsID+2],0 + + mov edi,[PIcoDB] + stdcall [ini_get_str],[f_name],[sec_name],keyName,edi,4096,0 + test eax,eax + jz @f + xor eax,eax + pop edi esi ebx + ret + @@: + xor al,al + or ecx,-1 + repne scasb + + + + stdcall [ini_get_str],[f_name],[sec_name],keyPath,edi,4096,0 + test eax,eax + jz @f + xor eax,eax + pop edi esi ebx + ret + @@: + xor al,al + or ecx,-1 + repne scasb + + stdcall [ini_get_str],[f_name],[sec_name],keyParams,edi,4096,0 + test eax,eax + jz @f + xor eax,eax + pop edi esi ebx + ret + @@: + xor al,al + or ecx,-1 + repne scasb + + stdcall [ini_get_str],[f_name],[sec_name],keyIco,edi,4096,0 + test eax,eax + jz @f + xor eax,eax + pop edi esi ebx + ret + @@: + xor al,al + or ecx,-1 + repne scasb + + stdcall [ini_get_int],[f_name],[sec_name],keyX,80000000h + cmp eax,80000000h + jne @f + xor eax,eax + pop edi esi ebx + ret + @@: + mov word[edi+2],ax + + stdcall [ini_get_int],[f_name],[sec_name],keyY,80000000h + cmp eax,80000000h + jne @f + xor eax,eax + pop edi esi ebx + ret + @@: + mov word[edi],ax + add edi,4 + mov [PIcoDB],edi + + inc [nLoadIcon] + + mov eax,1 + pop edi esi ebx + ret +endp + +proc GenerateID ;ax = ID + push ebx edi + mov ebx,[MaxNumIcon] + test ebx,ebx + jnz @f + mov eax,'00' + pop edi ebx + ret + @@: + + mov eax,dword[IconsID+ebx*4-4] + .inc: + inc ah + cmp ah,'9'+1 + jne @f + mov ah,'A' + @@: + cmp ah,'F'+1 + jne @f + mov ah,'0' + inc al + @@: + cmp al,'9'+1 + jne @f + mov al,'A' + @@: + cmp al,'F'+1 + jne @f + mov al,'0' + @@: + + + mov edi,IconsID + ;cmp dword[edi],0 + ;je @f + mov ecx,100h + @@: scasd + je .inc + cmp dword[edi],0 + je @f + loop @b + @@: + + pop edi ebx + ret +endp + +;------------------------------------------------------------------------------- + + +;формат IPC-сообщения +;dd X +;dd Y +;asciiz Icon - in decimal +;asciiz Name +;asciiz Path +;asciiz Params +;------------------------------------------------------------------------------- +proc IPCCreateIcon +locals + ix rd 1 + iy rd 1 +endl + + mov eax,IPCbuffer+8 + mov dword[IPCbuffer],1 + lea edx,[eax+8] + + m2m dword[ix],dword[edx] + m2m dword[iy],dword[edx+4] + + lea esi,[edx+8] + + mov ecx,256 + mov edi,DAreaIcon + @@: lodsb + stosb + test al,al + jnz @b + + mov ecx,NAME_LENGTH+1 + mov edi,DAreaName + @@: lodsb + stosb + test al,al + jz @f + loop @b + @@: + + mov edi,DAreaPath + @@: lodsb + stosb + test al,al + jnz @b + + mov edi,DAreaParams + @@: lodsb + stosb + test al,al + jnz @b + + mov dword[IPCbuffer+4],8 + mov dword[IPCbuffer],0 + + stdcall AddIcon,[ix],[iy],DAreaIcon,DAreaName,DAreaPath,DAreaParams + + mcall 15,3 + ret +endp + + +include 'iconman.inc' +include 'bgredraw.inc' +include 'RButton.inc' +include 'DlgAdd.inc' +include 'Moving.inc' + +;'Eolite',0,'/sys/File managers/eolite',0,'/hd0/3/Muzik',0,'1',0,00010001h +;------------------------------------------------------------------------------- +;##### DATA #################################################################### +;------------------------------------------------------------------------------- +; not change this section!!! +; start section +;------------------------------------------------------------------------------ +align 4 +image_file dd 0 ;+0 +raw_pointer dd 0 ;+4 +return_code dd 0 ;+8 +img_size dd 0 ;+12 +deflate_unpack dd 0 ;+16 ; not use for scaling +raw_pointer_2 dd 0 ;+20 ; not use for scaling +;------------------------------------------------------------------------------ +; end section +;------------------------------------------------------------------------------ + + +align 4 +fiStdIco: + dd 5 + dd 0 + dd 0 +.size dd 0 +.point dd bufStdIco + db ICON_STRIP,0 + + +align 4 +fiRunProg: ;для запуска программ + dd 7 + dd 0 + dd 0 + dd 0 + dd ErrNotFoundIni + db 0 + dd pthNotify + +fiIni dd 5 ;для ini файла + dd 0 + dd 0 + dd 0 + dd bufIni + db 0 + dd IconIni + + +IconsFile db ICON_STRIP,0 + +align 4 +MaxNumIcon dd 0 ;количество иконок +IconNoDraw dd -1 ;-1 либо номер иконки, которую не надо рисовать( когда её таскают ) + +bFixIcons dd 1 +bNotSave dd 0 + +LButtonActiv dd 0 +RButtonActiv dd 0 +MovingActiv dd 0 +DlgAddActiv dd 0 + +IconIni db ICON_INI,0 + +pthNotify db '/sys/@notify',0 + +keyName db 'name',0 +keyPath db 'path',0 +keyParams db 'param',0 +keyIco db 'ico',0 +keyX db 'x',0 +keyY db 'y',0 + +;------------------------------------------------------------------------------- +IMPORTS: +library cnv_png ,'cnv_png.obj',\ + archiver,'archiver.obj',\ + box_lib ,'box_lib.obj',\ + proc_lib,'proc_lib.obj',\ + libini ,'libini.obj' + +import cnv_png,\ + cnv_png_import.Start ,'START',\ + cnv_png_import.Version ,'version',\ + cnv_png_import.Check ,'Check_Header',\ + cnv_png_import.Assoc ,'Associations' + +import archiver,\ + unpack_DeflateUnpack2 ,'deflate_unpack2' + +import box_lib,\ + edit_box_draw ,'edit_box_draw',\ + edit_box_key ,'edit_box_key',\ + edit_box_mouse ,'edit_box_mouse',\ + scrollbar_h_draw ,'scrollbar_h_draw',\ + scrollbar_h_mouse ,'scrollbar_h_mouse' + +import proc_lib,\ + OpenDialog_Init ,'OpenDialog_init',\ + OpenDialog_Start ,'OpenDialog_start' + +import libini,\ + ini_enum_sections ,'ini_enum_sections',\ + ini_enum_keys ,'ini_enum_keys',\ + ini_get_str ,'ini_get_str',\ + ini_set_str ,'ini_set_str',\ + ini_get_color ,'ini_get_color',\ + ini_get_int ,'ini_get_int',\ + ini_set_int ,'ini_set_int',\ + ini_del_section ,'ini_del_section',\ + ini_exist_sect ,'ini_exist_sect' + + +;ini.get_str (f_name, sec_name, key_name, buffer, buf_len, def_val) +;ini.set_str (f_name, sec_name, key_name, buffer, buf_len) + + +;------------------------------------------------------------------------------- +;----- RButton.inc ------------------------------------------------------------- +;------------------------------------------------------------------------------- + +if lang eq ru_RU + MinRMenuW dd 18*6+10 +else ; Default to en_US + MinRMenuW dd 15*6+10 +end if + +secRButt db 'rbmenu',0 + +curpath db '/sys',0 + +PredItem dd -1 + +if lang eq ru_RU + RMenuRedrawFon db 'Перерисовать',0 + RMenuAlign db 'Выровнять по сетке',0 + RMenuOffMoving db 'Закрепить иконки',0 + RMenuOnMoving db 'Открепить иконки',0 + RMenuAdd db 'Добавить',0 + RMenuDel db 'Удалить',0 + RMenuProp db 'Свойства',0 +else ; Default to en_US + RMenuRedrawFon db 'Redraw',0 + RMenuAlign db 'Snap to grid',0 + RMenuOffMoving db 'Fix the icons',0 + RMenuOnMoving db 'Unfix the icons',0 + RMenuAdd db 'Add',0 + RMenuDel db 'Delete',0 + RMenuProp db 'Properties',0 +end if + +if lang eq ru_RU + ErrRunProg db 'Ошибка запуска программы',0 + WarningSave db 'Не забудьте сохранить изменения, запустить RDSave',0 + ErrNotFoundIni db 'Не найден icon.ini',0 + ErrName db 'Имя "rbmenu" зарезервировано',0 +else ; Default to en_US + ErrRunProg db 'Error running program',0 + WarningSave db 'Remember to save changes with "RDSave"',0 + ErrNotFoundIni db 'icon.ini not found',0 + ErrName db 'The name "rbmenu" reserved',0 +end if + +;------------------------------------------------------------------------------- +;------- AddDlg.inc --------------------------------------------------------------- +;------------------------------------------------------------------------------- +if lang eq ru_RU +DTitleAdd db 'Добавить иконку',0 +DTitleProp db 'Изменить иконку',0 + +DCaptName db ' Имя',0 +DCaptPath db ' Путь',0 +DCaptParams db ' Ключи',0 +;DCaptChange db '.',0 +DCaptCreate db 'Создать',0 +DCaptProperties db 'Изменить',0 +DCaptCancel db 'Отменить',0 + +else ; Default to en_US +DTitleAdd db 'Add icon',0 +DTitleProp db 'Change icon',0 + +DCaptName db ' Name',0 +DCaptPath db ' Path',0 +DCaptParams db ' Params',0 +DCaptCreate db 'Create',0 +DCaptProperties db 'Change',0 +DCaptCancel db 'Cancel',0 +end if +DCaptDots db '...',0 + +;/не менять положение +edtName edit_box NAME_LENGTH*8+4,120+IMG_SIZE,6,0FFFFFFh,06F9480h,0FFh,0h,0x90000000,NAME_LENGTH,\ + DAreaName,mouse_dd,0,0,0 +edtExePath edit_box END_ICONS_AREAW-120-IMG_SIZE-40,120+IMG_SIZE,30,0FFFFFFh,06F9480h,\ + 0FFh,0h,0x90000000,255, DAreaPath,mouse_dd,0,0,0 +edtParams edit_box END_ICONS_AREAW-120-IMG_SIZE, 120+IMG_SIZE,54,0FFFFFFh,06F9480h,\ + 0FFh,0h,0x90000000,255, DAreaParams,mouse_dd,0,0,0 +edtIcon edit_box 28,24,62,0FFFFFFh,0FFFFFFh,0FFh,0h,0x90000000,3,\ + DAreaIcon,0,0,0,0 +endEdits: +;\ + +sbIcons: + dw END_ICONS_AREAW-ICONSX + dw ICONSX + dw 15 + dw END_ICONS_AREAH+3 + dd 0 + dd 1 + .max_area dd 0 + .cur_area dd ICONS_DRAW_COUNTW + .position dd 0 + .bckg_col dd 0 + .frnt_col dd 0 + .line_col dd 0 + .redraw dd 0 + .delta dd 0 + .delta2 dd 0 + .r_size_x dw 0 + .r_start_x dw 0 + .r_size_y dw 0 + + .r_start_y dw 0 + .m_pos dd 0 + .m_pos2 dd 0 + .m_keys dd 0 + .run_size dd 0 + .position2 dd 0 + .work_size dd 0 + .all_redraw dd 0 + .ar_offset dd 0 + +;------------------------------------------------------------------------------- +OpenDialog_data: +.type dd 0 +.procinfo dd RBProcInfo ;+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 DRedrawWin;draw_window_for_OD ;+28 +.status dd 0 ;+32 +.openfile_pach dd DAreaPath;fname_Info ;+36 +.filename_area dd 0;DAreaPath ;+40 +.filter_area dd Filter +.x: +.x_size dw 420 ;+48 ; Window X size +.x_start dw 100 ;+50 ; Window X position +.y: +.y_size dw 320 ;+52 ; Window y size +.y_start dw 100 ;+54 ; Window Y position + +communication_area_name: + db 'FFFFFFFF_open_dialog',0 +open_dialog_path: + db '/sys/File managers/opendial',0 + +communication_area_default_pach: + db '/sys',0 + +Filter dd 0 + +;open_dialog db 0 +;------------------------------------------------------------------------------- + +;/не разделять +align 4 +IconAreaH dd ICON_SIZE,ICON_SIZE +I_END: +;##### UDATA ################################################################### +IconArea rb 4*ICON_SIZE*ICON_SIZE +;\ + +sc system_colors +sc.workL rd 1 +sc.workH rd 1 + + +align 4 +IPCbuffer rb 1024 + +align 4 + +ScreenW rw 1 +ScreenH rw 1 +wsX rw 1 +wsY rw 1 +wsXe rw 1 +wsYe rw 1 +wsW rw 1 +wsH rw 1 + + +MouseX rd 1 +MouseY rd 1 + +RBSlot rd 1 +AddX rd 1 +AddY rd 1 + +SelIcon rd 1 +DlgSelIcon rd 1 +slotDlgAdd rd 1 +DlgBufImg rb IMG_SIZE*IMG_SIZE*3 + +align 4 +bufStdIco rb 40 +IconsOffs rd 100h ;таблица с указателями на конкретные иконки(для ускорения) +PIcoDB rd 1 ;указатель на буффер с инфой обо всех иконках +nLoadIcon rd 1 ;номер читаемой из ini иконки +IconsID rd 100h ;ID иконок - 2 байтa + байт 0 + выравнивающий байт - строка с 2мя шеснадцетиричными цифрами + +nameSection rb 4 + +align 4 +icon_count rd 1 +strip_file rd 1 +strip_file_size rd 1 + +cur_band_compensation rd 1 + +;---- RButton ----------------------------------------------------------------------- + +bufIni rb 40 +NumMenuButt rd 1 +RBMenuCP rd MAX_USER_BUTTONS*2 ;указатели на подпись и путь с прогой (Caption(dd), Path(dd)) и запасной (dd) для завершающего нуля +RMenuW rw 1 +RMenuH rw 1 + +MaxPage rd 1 +mouse_dd rd 1 + +DAreaName rb NAME_LENGTH+1 +DAreaPath rb 255+1 +DAreaParams rb 255+1 +DAreaIcon rb 255+1 + +align 4 +RBProcInfo rb 1024 +align 4 + + +;------ OpenDialog ------------------------------- +temp_dir_pach rb 1024 +fname_Info rb 1024 + +;------------------------------------------------------------------------------- + rb 512 +stack_mov: ;одновременно таскать и держать открытым менюшку невозможно +stack_rmenu: + rb 512 +stack_dlg: + rb 512 +stack_bredraw: + rb 512 +stack_main: +;------------------------------------------------------------------------------ + + + + +ENDMEM: diff --git a/programs/system/keybi/keybi.asm b/programs/system/keybi/keybi.asm index 632b8023d0..5e789e11ab 100644 --- a/programs/system/keybi/keybi.asm +++ b/programs/system/keybi/keybi.asm @@ -1,198 +1,198 @@ -; Keyboard indicators v0.2 -; by Albom and IgorA - -use32 - org 0 - db 'MENUET01' - dd 1 - dd _start - dd _end - dd _memory - dd stacktop - dd 0 - dd sys_path - -include '../../macros.inc' -include '../../proc32.inc' -include '../../develop/libraries/box_lib/load_lib.mac' -include '../../develop/libraries/box_lib/trunk/box_lib.mac' -;include 'mem.inc' -;include 'dll.inc' -include 'lang.inc' - -@use_library ;_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load - -align 4 -_start: - load_libraries l_libs_start,l_libs_end - mcall 48,3,sc,sizeof.system_colors - mcall 40,0x27 - - init_checkboxes2 check_boxes,check_boxes_end - check_boxes_set_sys_color2 check_boxes,check_boxes_end,sc - call _key_set - -align 4 -red_win: - call draw_window - - -align 4 -still: - mcall 10 - - cmp al,1 ;шчь. яюыюцхэшх юъэр - jz red_win - cmp al,2 - jz key - cmp al,3 - jz button - - ;stdcall [check_box_mouse], ch1 - ;stdcall [check_box_mouse], ch2 - ;stdcall [check_box_mouse], ch3 - - jmp still - -;єёЄрэютшЄ№ юс∙хёшёЄхьэ√х "уюЁ ўшх ъыртш°ш" -align 4 -_key_set: -mov eax, 66 -mov ebx, 4 -mov edx, 0 -mov cl, 69 -int 0x40 - -mov eax, 66 -mov ebx, 4 -mov edx, 0 -mov cl, 58 -int 0x40 - -mov eax, 66 -mov ebx, 4 -mov edx, 0 -mov cl, 70 -int 0x40 - -ret - -align 4 -draw_window: -pushad - mcall 12,1 - mov edx, [sc.work] - or edx, 0x34000000 - mcall 0, (10 shl 16)+100, (10 shl 16)+75 - - stdcall [check_box_draw], ch1 - stdcall [check_box_draw], ch2 - stdcall [check_box_draw], ch3 - mcall 12,2 -popad - ret - -align 4 -key: - mcall 2 - call _indicators_check - jmp still - -align 4 -_indicators_check: -pusha - mov eax, 66 - mov ebx, 3 - int 40h - -test_ins: - test eax, 0x80 - jz @f - bts dword[ch1.flags],1 - jmp test_caps -@@: - btr dword[ch1.flags],1 - -test_caps: - test eax, 0x40 - jz @f - bts dword[ch2.flags],1 - jmp test_scroll -@@: - btr dword[ch2.flags],1 - -test_scroll: - test eax, 0x100 - jz @f - bts dword[ch3.flags],1 - jmp test_ok -@@: - btr dword[ch3.flags],1 - -test_ok: - call draw_window -popa -ret - -align 4 -button: - mcall 17 - cmp ah,1 - jne still -.exit: - mcall -1 - - -check_boxes: -ch1 check_box2 (5 shl 16)+15,(5 shl 16)+10,5, 0xffffff,0x8000,0xff,\ - txt_160,0+ch_flag_middle -ch2 check_box2 (5 shl 16)+15,(17 shl 16)+10,5, 0xffffff,0x8000,0xff,\ - txt_159,0+ch_flag_middle -ch3 check_box2 (5 shl 16)+15,(29 shl 16)+10,5, 0xffffff,0x8000,0xff,\ - txt_158,0+ch_flag_middle -check_boxes_end: - -if lang eq it_IT - txt_160 db 'Bloc Num',0 - txt_159 db 'Bloc Maiusc',0 - txt_158 db 'Bloc Scorr',0 -else - txt_160 db 'Num',0 - txt_159 db 'Caps',0 - txt_158 db 'Scroll',0 -end if -head_f_i: -head_f_l db '╤шёЄхьэр  ю°шсър',0 - -system_dir_0 db '/sys/lib/' -lib_name_0 db 'box_lib.obj',0 -err_msg_found_lib_0 db '═х эрщфхэр сшсышюЄхър box_lib.obj',0 -err_msg_import_0 db '╬°шсър яЁш шьяюЁЄх сшсышюЄхъш box_lib',0 - -l_libs_start: - 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 -l_libs_end: - -align 4 -import_box_lib: - ;init dd sz_init - init_checkbox dd sz_init_checkbox - check_box_draw dd sz_check_box_draw - check_box_mouse dd sz_check_box_mouse - dd 0,0 - ;sz_init db 'lib_init',0 - sz_init_checkbox db 'init_checkbox2',0 - sz_check_box_draw db 'check_box_draw2',0 - sz_check_box_mouse db 'check_box_mouse2',0 - -;mouse_dd dd 0x0 -sc system_colors - -_end: -align 32 - rb 2048 -stacktop: - sys_path rb 1024 - library_path rb 1024 -_memory: +; Keyboard indicators v0.2 +; by Albom and IgorA + +use32 + org 0 + db 'MENUET01' + dd 1 + dd _start + dd _end + dd _memory + dd stacktop + dd 0 + dd sys_path + +include '../../macros.inc' +include '../../proc32.inc' +include '../../develop/libraries/box_lib/load_lib.mac' +include '../../develop/libraries/box_lib/trunk/box_lib.mac' +;include 'mem.inc' +;include 'dll.inc' +include 'lang.inc' ; Language support for locales: it_IT, en_US. + +@use_library ;_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load + +align 4 +_start: + load_libraries l_libs_start,l_libs_end + mcall 48,3,sc,sizeof.system_colors + mcall 40,0x27 + + init_checkboxes2 check_boxes,check_boxes_end + check_boxes_set_sys_color2 check_boxes,check_boxes_end,sc + call _key_set + +align 4 +red_win: + call draw_window + + +align 4 +still: + mcall 10 + + cmp al,1 ;шчь. яюыюцхэшх юъэр + jz red_win + cmp al,2 + jz key + cmp al,3 + jz button + + ;stdcall [check_box_mouse], ch1 + ;stdcall [check_box_mouse], ch2 + ;stdcall [check_box_mouse], ch3 + + jmp still + +;єёЄрэютшЄ№ юс∙хёшёЄхьэ√х "уюЁ ўшх ъыртш°ш" +align 4 +_key_set: +mov eax, 66 +mov ebx, 4 +mov edx, 0 +mov cl, 69 +int 0x40 + +mov eax, 66 +mov ebx, 4 +mov edx, 0 +mov cl, 58 +int 0x40 + +mov eax, 66 +mov ebx, 4 +mov edx, 0 +mov cl, 70 +int 0x40 + +ret + +align 4 +draw_window: +pushad + mcall 12,1 + mov edx, [sc.work] + or edx, 0x34000000 + mcall 0, (10 shl 16)+100, (10 shl 16)+75 + + stdcall [check_box_draw], ch1 + stdcall [check_box_draw], ch2 + stdcall [check_box_draw], ch3 + mcall 12,2 +popad + ret + +align 4 +key: + mcall 2 + call _indicators_check + jmp still + +align 4 +_indicators_check: +pusha + mov eax, 66 + mov ebx, 3 + int 40h + +test_ins: + test eax, 0x80 + jz @f + bts dword[ch1.flags],1 + jmp test_caps +@@: + btr dword[ch1.flags],1 + +test_caps: + test eax, 0x40 + jz @f + bts dword[ch2.flags],1 + jmp test_scroll +@@: + btr dword[ch2.flags],1 + +test_scroll: + test eax, 0x100 + jz @f + bts dword[ch3.flags],1 + jmp test_ok +@@: + btr dword[ch3.flags],1 + +test_ok: + call draw_window +popa +ret + +align 4 +button: + mcall 17 + cmp ah,1 + jne still +.exit: + mcall -1 + + +check_boxes: +ch1 check_box2 (5 shl 16)+15,(5 shl 16)+10,5, 0xffffff,0x8000,0xff,\ + txt_160,0+ch_flag_middle +ch2 check_box2 (5 shl 16)+15,(17 shl 16)+10,5, 0xffffff,0x8000,0xff,\ + txt_159,0+ch_flag_middle +ch3 check_box2 (5 shl 16)+15,(29 shl 16)+10,5, 0xffffff,0x8000,0xff,\ + txt_158,0+ch_flag_middle +check_boxes_end: + +if lang eq it_IT + txt_160 db 'Bloc Num',0 + txt_159 db 'Bloc Maiusc',0 + txt_158 db 'Bloc Scorr',0 +else ; Default to en_US + txt_160 db 'Num',0 + txt_159 db 'Caps',0 + txt_158 db 'Scroll',0 +end if +head_f_i: +head_f_l db '╤шёЄхьэр  ю°шсър',0 + +system_dir_0 db '/sys/lib/' +lib_name_0 db 'box_lib.obj',0 +err_msg_found_lib_0 db '═х эрщфхэр сшсышюЄхър box_lib.obj',0 +err_msg_import_0 db '╬°шсър яЁш шьяюЁЄх сшсышюЄхъш box_lib',0 + +l_libs_start: + 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 +l_libs_end: + +align 4 +import_box_lib: + ;init dd sz_init + init_checkbox dd sz_init_checkbox + check_box_draw dd sz_check_box_draw + check_box_mouse dd sz_check_box_mouse + dd 0,0 + ;sz_init db 'lib_init',0 + sz_init_checkbox db 'init_checkbox2',0 + sz_check_box_draw db 'check_box_draw2',0 + sz_check_box_mouse db 'check_box_mouse2',0 + +;mouse_dd dd 0x0 +sc system_colors + +_end: +align 32 + rb 2048 +stacktop: + sys_path rb 1024 + library_path rb 1024 +_memory: diff --git a/programs/system/launch/trunk/launch.asm b/programs/system/launch/trunk/launch.asm index 37d3ffd679..bd194b02fe 100755 --- a/programs/system/launch/trunk/launch.asm +++ b/programs/system/launch/trunk/launch.asm @@ -1,468 +1,470 @@ -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Copyright (C) Vasiliy Kosenko (vkos), 2009 ;; -;; 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 ;; -;; 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 ;; -;; even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; -;; General Public License for more details. ;; -;; ;; -;; You should have received a copy of the GNU General Public License along with Launch. ;; -;; If not, see . ;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Launch finds program in search dirictories and runs it. ;; -;; For more details see readme.txt ;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -format binary - -APP_NAME fix 'Launch' -APP_VERSION fix '0.1.80.1' - -use32 -org 0x0 - -db 'MENUET01' -dd 0x01 -dd START -dd APP_END -dd MEM_END -dd APP_STACK -dd args -dd path - -define DEBUG_NO 0 -define DEBUG_CONSOLE 1 -define DEBUG_BOARD 2 ;; Not used now - -define PATH_MAX_LEN 1024 -define DEBUG_MAX_LEN 8 -define DEBUG_DEFAULT 0 -define BUFF_SIZE 1024 - -include 'proc32.inc' -include 'macros.inc' -include 'libio.inc' -include 'dll.inc' - -purge mov - -include 'thread.inc' -include 'ipc.inc' -include 'kobra.inc' - -;;-------------------------------------------------------------------------------------------------- -;; Basic initialization -START: - ;; Initialize process heap - mcall 68,11 - test eax, eax - jz exit - - ;; Import modules - stdcall dll.Load,importTable - test eax, eax - jnz exit - -;;-------------------------------------------------------------------------------------------------- -;; Reading config -read_ini_path: ;; Read search path - ;; First read config in /sys/etc - invoke ini.get_str, etc_cfg, cfg_main, cfg_path, search_path, PATH_MAX_LEN, empty_str - - ;; Next, read config from current directory - ;; Find end of path string -.find_path_eol: - mov edi, path - mov ecx, PATH_MAX_LEN - xor al, al - cld - repne scasb - - ;; Append ext to run path (NOTE: this work only when config file has name .cfg and ext size is dword) - mov eax, dword [cfg_ext] - dec edi - mov dword [edi], eax - mov byte [edi+5], 0 - - ;; Currently there is no checking for repeating pathes, so we should only concatenate two strings - ;; So we need to find end of current search_path string -.find_search_eol: - mov edi, search_path - mov ecx, PATH_MAX_LEN - xor al, al - ;cld - repne scasb - dec edi - - ;; Now we need to correct buffer length - mov eax, path+PATH_MAX_LEN - sub eax, edi - ;; Read ini - invoke ini.get_str, path, cfg_main, cfg_path, edi, PATH_MAX_LEN, empty_str - -read_ini_debug: ;; Read debug options - ;; Read debug options from config files - 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 - mov [debug_option], eax - - test eax, eax ;; No console - je .ok - - jmp .con_init - -.console_err: - mov byte [debug_option], 0 - jmp .ok - -.con_init: - stdcall dll.Load, consoleImport - test eax, eax - jnz .console_err - invoke con.init, -1, -1, -1, -1, window_title - -.read_level: - invoke ini.get_int, etc_cfg, cfg_debug, cfg_level, 0 - invoke ini.get_int, path, cfg_debug, cfg_level, eax - mov byte [debug_level], al -.ok: - -read_ini_kobra: - invoke ini.get_bool, etc_cfg, cfg_kobra, cfg_use, 0 - 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 - ;; TODO: use optparse library - ;; Currently the only argument to parse is program name with its' arguments - -.skip_spaces: - mov ecx, -1 - mov edi, args - mov al, ' ' - xor bl, bl - ;cld - repe scasb - - push edi - - mov ecx, -1 -@@: - scasb - je @f - xchg al, bl - dec edi - scasb - jne @b -@@: - mov dword [prog_args], edi - - pop edi - dec edi - ;; Now edi = program name - -;;-------------------------------------------------------------------------------------------------- -;; Finding file -search_file: - push edi - mov esi, search_path - xchg esi, [esp] -.loop: - or dl, dl - je .prn_dbg - xor dl, dl - jmp .prn_end -.prn_dbg: - push eax - mov al, byte [debug_option] -; dec al - test al, al - je .prn_stp - mov al, byte [debug_level] - or al, al - je .prn_stp - dec al - or al, al - je .prn_1 -.prn_1: - cinvoke con.printf, message_dbg_not_found, buff - -.prn_stp: - pop eax -.prn_end: - xor eax, eax ;; When we check is proramme launched we are checking for eax - xchg esi, [esp] - mov edi, buff -.copy_path: - lodsb - cmp al, ';' - je .copy_file - or al, al - je exit - stosb - jmp .copy_path - -.copy_file: - xchg esi, [esp] - push esi -.cp_file_loop: - lodsb - or al, al - je .copy_end - cmp al, ' ' - je .copy_end - stosb - jmp .cp_file_loop - -.copy_end: - pop esi - xor al, al - stosb - - ;; Try to launch - - mov dword [LaunchStruct.Function], 7 - push dword [prog_args] - pop dword [LaunchStruct.Arguments] - mov dword [LaunchStruct.Flags], 0 - mov dword [LaunchStruct.Zero], 0 - mov dword [LaunchStruct.FileNameP], buff - mcall 70, LaunchStruct - cmp eax, 0 - jl .loop - -;;-------------------------------------------------------------------------------------------------- -;; Exit -exit: - mov dword [tid], eax - ;; If console is present we should write some info - mov al, byte [debug_option] - cmp al, DEBUG_CONSOLE - jne .kobra - -.write_console: - mov eax, dword [tid] - test eax, eax - jz .write_error -.write_launched: - cinvoke con.printf, message_ok, buff, eax, eax - jmp .wr_end -.write_error: - pop edi - cinvoke con.printf, message_error, edi -.wr_end: - invoke con.exit, 0 - -.kobra: - mov al, byte [kobra_use] - test al, al - je .close - -.register: - mov dword [IPC_area], buff - call IPC_init -; jnz .close - - mov dword [thread_find_buff], another_buff - - call kobra_register - - test eax, eax - jnz .close - - ;; Prepare message - mov dword [kobra_message], KOBRA_MESSAGE_LAUNCH_STATE - - mov eax, dword [tid] - mov dword [kobra_message+4], eax - -.kobra_send: - stdcall kobra_send_message, kobra_group_launch_reactive, kobra_message, 8 - -.close: - mcall -1 - -;; End of code -;;-------------------------------------------------------------------------------------------------- - -;;-------------------------------------------------------------------------------------------------- -;; Imports -align 16 -importTable: - -library libini, 'libconfig.obj' ;, \ -; libio, 'libio.obj', \ - -import libini, \ - ini.get_str ,'ini_get_str', \ -\; ini.set_str ,'ini_set_str', \ - ini.get_int ,'ini_get_int', \ -\; ini.set_int ,'ini_set_int', \ -\; ini.get_color ,'ini_get_color', \ -\; ini.set_color ,'ini_set_color', \ - ini.get_option_str ,'ini_get_option_str', \ - ini.get_bool ,'ini_get_bool';,\ - -;import libio, \ -; file_find_first,'file_find_first', \ -; file_find_next ,'file_find_next', \ -; file_find_close,'file_find_close', \ -; file_size ,'file_size', \ -; file_open ,'file_open', \ -; file_read ,'file_read', \ -; file_write ,'file_write', \ -; file_seek ,'file_seek', \ -; file_tell ,'file_tell', \ -; file_eof? ,'file_eof?', \ -; file_truncate ,'file_truncate', \ -; file_close ,'file_close' - -consoleImport: -library \ - conlib, 'console.obj' - -import conlib,\ - con.init, 'con_init',\ - con.exit, 'con_exit',\ - con.printf, 'con_printf' ;,\ -; con.write_asciiz, 'con_write_asciiz' - -;;-------------------------------------------------------------------------------------------------- -;; Data -align 16 -APP_DATA: - -;; Window title -window_title: - db APP_NAME, ' ', APP_VERSION, 0 - -;; Messages -if lang eq it_IT - message_dbg_not_found: - db '%s non trovato', 10, 0 - - message_error: - db 'File (%s) non trovato!', 0 - - message_ok: - db '%s caricato correttamente. PID: %d (0x%X)', 0 -else - message_dbg_not_found: - db '%s not found', 10, 0 - - message_error: - db 'File (%s) not found!', 0 - - message_ok: - db '%s loaded succesfully. PID: %d (0x%X)', 0 -end if -;; Configuration path -etc_cfg: - db '/sys/etc/' -cfg_name: - db 'launch' -cfg_ext: - db '.cfg', 0 - -;; Strings in config file -cfg_main: - db 'main', 0 -cfg_path: - db 'path', 0 -cfg_debug: - db 'debug', 0 -cfg_level: - db 'level', 0 -cfg_kobra: - db 'kobra', 0 -cfg_use: - db 'use', 0 - -;; List of debug modes for parsing debug option -debug_strings: - dd debug_no - dd debug_console - dd 0 - -debug_no: - db 'no', 0 -debug_console: - db 'console', 0 - -;; Empty string -empty_str: - db 0 - -kobra_group_launch_reactive: - db 'launch_reactive', 0 - -;;-------------------------------------------------------------------------------------------------- -;; Configuration options -debug_level: - db 0 - -; debug_kobra: -; db 0 - -;; debug option (bool) -debug_option: - db 0 - -kobra_use: - db 0 - -;;-------------------------------------------------------------------------------------------------- -tid: - dd 0 - -struct FileInfoRun - Function dd 7 - Flags dd ? - Arguments dd 0 - Reserved0 dd ? - Reserved1 dd ? - union - FileName rb 1024 - struct - Zero db 0 - FileNameP dd ? - ends - ends -ends - -LaunchStruct FileInfoRun - -args: db 0 -APP_END: -rb 255 - -prog_args: - rd 1 -path: - rb 1024 - -;; Search path will be here -search_path: - rb PATH_MAX_LEN - -;; Buffer -buff: - rb BUFF_SIZE - -another_buff: - rb 0x1000 - -kobra_message: - rb 0x100 - -rb 0x1000 ;; 4 Kb stack -APP_STACK: -MEM_END: +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Copyright (C) Vasiliy Kosenko (vkos), 2009 ;; +;; 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 ;; +;; 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 ;; +;; even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; +;; General Public License for more details. ;; +;; ;; +;; You should have received a copy of the GNU General Public License along with Launch. ;; +;; If not, see . ;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Launch finds program in search dirictories and runs it. ;; +;; For more details see readme.txt ;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +; Language support for locales: it_IT, en_US. + +format binary + +APP_NAME fix 'Launch' +APP_VERSION fix '0.1.80.1' + +use32 +org 0x0 + +db 'MENUET01' +dd 0x01 +dd START +dd APP_END +dd MEM_END +dd APP_STACK +dd args +dd path + +define DEBUG_NO 0 +define DEBUG_CONSOLE 1 +define DEBUG_BOARD 2 ;; Not used now + +define PATH_MAX_LEN 1024 +define DEBUG_MAX_LEN 8 +define DEBUG_DEFAULT 0 +define BUFF_SIZE 1024 + +include 'proc32.inc' +include 'macros.inc' +include 'libio.inc' +include 'dll.inc' + +purge mov + +include 'thread.inc' +include 'ipc.inc' +include 'kobra.inc' + +;;-------------------------------------------------------------------------------------------------- +;; Basic initialization +START: + ;; Initialize process heap + mcall 68,11 + test eax, eax + jz exit + + ;; Import modules + stdcall dll.Load,importTable + test eax, eax + jnz exit + +;;-------------------------------------------------------------------------------------------------- +;; Reading config +read_ini_path: ;; Read search path + ;; First read config in /sys/etc + invoke ini.get_str, etc_cfg, cfg_main, cfg_path, search_path, PATH_MAX_LEN, empty_str + + ;; Next, read config from current directory + ;; Find end of path string +.find_path_eol: + mov edi, path + mov ecx, PATH_MAX_LEN + xor al, al + cld + repne scasb + + ;; Append ext to run path (NOTE: this work only when config file has name .cfg and ext size is dword) + mov eax, dword [cfg_ext] + dec edi + mov dword [edi], eax + mov byte [edi+5], 0 + + ;; Currently there is no checking for repeating pathes, so we should only concatenate two strings + ;; So we need to find end of current search_path string +.find_search_eol: + mov edi, search_path + mov ecx, PATH_MAX_LEN + xor al, al + ;cld + repne scasb + dec edi + + ;; Now we need to correct buffer length + mov eax, path+PATH_MAX_LEN + sub eax, edi + ;; Read ini + invoke ini.get_str, path, cfg_main, cfg_path, edi, PATH_MAX_LEN, empty_str + +read_ini_debug: ;; Read debug options + ;; Read debug options from config files + 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 + mov [debug_option], eax + + test eax, eax ;; No console + je .ok + + jmp .con_init + +.console_err: + mov byte [debug_option], 0 + jmp .ok + +.con_init: + stdcall dll.Load, consoleImport + test eax, eax + jnz .console_err + invoke con.init, -1, -1, -1, -1, window_title + +.read_level: + invoke ini.get_int, etc_cfg, cfg_debug, cfg_level, 0 + invoke ini.get_int, path, cfg_debug, cfg_level, eax + mov byte [debug_level], al +.ok: + +read_ini_kobra: + invoke ini.get_bool, etc_cfg, cfg_kobra, cfg_use, 0 + 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 + ;; TODO: use optparse library + ;; Currently the only argument to parse is program name with its' arguments + +.skip_spaces: + mov ecx, -1 + mov edi, args + mov al, ' ' + xor bl, bl + ;cld + repe scasb + + push edi + + mov ecx, -1 +@@: + scasb + je @f + xchg al, bl + dec edi + scasb + jne @b +@@: + mov dword [prog_args], edi + + pop edi + dec edi + ;; Now edi = program name + +;;-------------------------------------------------------------------------------------------------- +;; Finding file +search_file: + push edi + mov esi, search_path + xchg esi, [esp] +.loop: + or dl, dl + je .prn_dbg + xor dl, dl + jmp .prn_end +.prn_dbg: + push eax + mov al, byte [debug_option] +; dec al + test al, al + je .prn_stp + mov al, byte [debug_level] + or al, al + je .prn_stp + dec al + or al, al + je .prn_1 +.prn_1: + cinvoke con.printf, message_dbg_not_found, buff + +.prn_stp: + pop eax +.prn_end: + xor eax, eax ;; When we check is proramme launched we are checking for eax + xchg esi, [esp] + mov edi, buff +.copy_path: + lodsb + cmp al, ';' + je .copy_file + or al, al + je exit + stosb + jmp .copy_path + +.copy_file: + xchg esi, [esp] + push esi +.cp_file_loop: + lodsb + or al, al + je .copy_end + cmp al, ' ' + je .copy_end + stosb + jmp .cp_file_loop + +.copy_end: + pop esi + xor al, al + stosb + + ;; Try to launch + + mov dword [LaunchStruct.Function], 7 + push dword [prog_args] + pop dword [LaunchStruct.Arguments] + mov dword [LaunchStruct.Flags], 0 + mov dword [LaunchStruct.Zero], 0 + mov dword [LaunchStruct.FileNameP], buff + mcall 70, LaunchStruct + cmp eax, 0 + jl .loop + +;;-------------------------------------------------------------------------------------------------- +;; Exit +exit: + mov dword [tid], eax + ;; If console is present we should write some info + mov al, byte [debug_option] + cmp al, DEBUG_CONSOLE + jne .kobra + +.write_console: + mov eax, dword [tid] + test eax, eax + jz .write_error +.write_launched: + cinvoke con.printf, message_ok, buff, eax, eax + jmp .wr_end +.write_error: + pop edi + cinvoke con.printf, message_error, edi +.wr_end: + invoke con.exit, 0 + +.kobra: + mov al, byte [kobra_use] + test al, al + je .close + +.register: + mov dword [IPC_area], buff + call IPC_init +; jnz .close + + mov dword [thread_find_buff], another_buff + + call kobra_register + + test eax, eax + jnz .close + + ;; Prepare message + mov dword [kobra_message], KOBRA_MESSAGE_LAUNCH_STATE + + mov eax, dword [tid] + mov dword [kobra_message+4], eax + +.kobra_send: + stdcall kobra_send_message, kobra_group_launch_reactive, kobra_message, 8 + +.close: + mcall -1 + +;; End of code +;;-------------------------------------------------------------------------------------------------- + +;;-------------------------------------------------------------------------------------------------- +;; Imports +align 16 +importTable: + +library libini, 'libconfig.obj' ;, \ +; libio, 'libio.obj', \ + +import libini, \ + ini.get_str ,'ini_get_str', \ +\; ini.set_str ,'ini_set_str', \ + ini.get_int ,'ini_get_int', \ +\; ini.set_int ,'ini_set_int', \ +\; ini.get_color ,'ini_get_color', \ +\; ini.set_color ,'ini_set_color', \ + ini.get_option_str ,'ini_get_option_str', \ + ini.get_bool ,'ini_get_bool';,\ + +;import libio, \ +; file_find_first,'file_find_first', \ +; file_find_next ,'file_find_next', \ +; file_find_close,'file_find_close', \ +; file_size ,'file_size', \ +; file_open ,'file_open', \ +; file_read ,'file_read', \ +; file_write ,'file_write', \ +; file_seek ,'file_seek', \ +; file_tell ,'file_tell', \ +; file_eof? ,'file_eof?', \ +; file_truncate ,'file_truncate', \ +; file_close ,'file_close' + +consoleImport: +library \ + conlib, 'console.obj' + +import conlib,\ + con.init, 'con_init',\ + con.exit, 'con_exit',\ + con.printf, 'con_printf' ;,\ +; con.write_asciiz, 'con_write_asciiz' + +;;-------------------------------------------------------------------------------------------------- +;; Data +align 16 +APP_DATA: + +;; Window title +window_title: + db APP_NAME, ' ', APP_VERSION, 0 + +;; Messages +if lang eq it_IT + message_dbg_not_found: + db '%s non trovato', 10, 0 + + message_error: + db 'File (%s) non trovato!', 0 + + message_ok: + db '%s caricato correttamente. PID: %d (0x%X)', 0 +else ; Default to en_US + message_dbg_not_found: + db '%s not found', 10, 0 + + message_error: + db 'File (%s) not found!', 0 + + message_ok: + db '%s loaded successfully. PID: %d (0x%X)', 0 +end if +;; Configuration path +etc_cfg: + db '/sys/etc/' +cfg_name: + db 'launch' +cfg_ext: + db '.cfg', 0 + +;; Strings in config file +cfg_main: + db 'main', 0 +cfg_path: + db 'path', 0 +cfg_debug: + db 'debug', 0 +cfg_level: + db 'level', 0 +cfg_kobra: + db 'kobra', 0 +cfg_use: + db 'use', 0 + +;; List of debug modes for parsing debug option +debug_strings: + dd debug_no + dd debug_console + dd 0 + +debug_no: + db 'no', 0 +debug_console: + db 'console', 0 + +;; Empty string +empty_str: + db 0 + +kobra_group_launch_reactive: + db 'launch_reactive', 0 + +;;-------------------------------------------------------------------------------------------------- +;; Configuration options +debug_level: + db 0 + +; debug_kobra: +; db 0 + +;; debug option (bool) +debug_option: + db 0 + +kobra_use: + db 0 + +;;-------------------------------------------------------------------------------------------------- +tid: + dd 0 + +struct FileInfoRun + Function dd 7 + Flags dd ? + Arguments dd 0 + Reserved0 dd ? + Reserved1 dd ? + union + FileName rb 1024 + struct + Zero db 0 + FileNameP dd ? + ends + ends +ends + +LaunchStruct FileInfoRun + +args: db 0 +APP_END: +rb 255 + +prog_args: + rd 1 +path: + rb 1024 + +;; Search path will be here +search_path: + rb PATH_MAX_LEN + +;; Buffer +buff: + rb BUFF_SIZE + +another_buff: + rb 0x1000 + +kobra_message: + rb 0x100 + +rb 0x1000 ;; 4 Kb stack +APP_STACK: +MEM_END: diff --git a/programs/system/open/open.asm b/programs/system/open/open.asm index a1e0896258..0d5f5b8133 100644 --- a/programs/system/open/open.asm +++ b/programs/system/open/open.asm @@ -1,1066 +1,1066 @@ - DEBUG = 0 - - LIST_WIDTH = 256 - WIN_WIDTH = (LIST_WIDTH + 16 + 12) - LIST_SIZE = 12 - LINE_SIZE = 40 - LIST_HEIGHT = (LIST_SIZE * LINE_SIZE / 2) - WIN_HEIGHT = (LIST_HEIGHT + 80) - - use32 - org 0 - db 'MENUET01' - dd 1, main, dataend, memory, memory -M01header.params: - dd params, 0 - - include "../../proc32.inc" - include "../../macros.inc" - include "../../dll.inc" - include "../../string.inc" - include "../../develop/libraries/box_lib/trunk/box_lib.mac" - - include "lang.inc" - -if DEBUG eq 1 - include "../../debug.inc" -end if - - ;=============================== - -if lang eq ru_RU - title db "Открыть с помощью", 0 - browse_txt db "Обзор...", 0 - notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0 - checkbox_txt db "Использовать всегда", 0 -else if lang eq et_EE - title db "Open with", 0 - browse_txt db "Browse...", 0 - notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0 - checkbox_txt db "Always use selected program", 0 -else if lang eq it_IT - title db "Open with", 0 - browse_txt db "Browse...", 0 - notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0 - checkbox_txt db "Always use selected program", 0 -else - title db "Open with", 0 - browse_txt db "Browse...", 0 - notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0 - checkbox_txt db "Always use selected program", 0 -end if - - sys_dir db "/sys", 0 - slash db "/", 0 - open_dialog_path db "/sys/file managers/opendial", 0 - app_link db "$", 0 - icons db "/sys/icons32.png", 0 - communication_area_name db "FFFFFF_open_dialog", 0 - assoc_ini db "/sys/settings/assoc.ini", 0 - .sec db "Assoc", 0 - .exec db "exec", 0 - .next db "next", 0 - .icon db "icon", 0 - - sb_apps scrollbar \ - 13, WIN_WIDTH - 25, LIST_HEIGHT, 10 + 12, \ ;; w, x, h, y - 0, 0, LIST_SIZE / 2, 0, \ ;; b.h, max, area, pos - 0, 0, 0, 2 - - cb_always check_box2 \ - 5 shl 16 + 16, (LIST_HEIGHT + 33) shl 16 + 16, 6, 0, 0, 0, checkbox_txt, ch_flag_middle - - opendialog: - .type dd 0 - .procinfo dd buffer3 - .com_area_name dd communication_area_name - .com_area dd 0 - .opendir_path dd buffer4 - .dir_default_path dd sys_dir - .start_path dd open_dialog_path - .draw_window dd draw_window - .status dd 0 - .openfile_pach dd buffer - .filename_area dd buffer5 - .filter_area dd .filter - .x: - .x_size dw 420 - .x_start dw 200 - .y: - .y_size dw 320 - .y_start dw 120 - - .filter dd 0 - - ps_addres: - dd 0 ;; type - dw 7 ;; y - dw 4 ;; x - dw 6 ;; font.w - dw LIST_WIDTH ;; w - dd 0 ;; mono - dd 0 ;; without bg - .color dd 0 ;; text color - dd 0 ;; bg color - .txt dd 0 ;; text - dd buffer2 - dd 0 - - is_execute: - dd 7, 0, 0, 0, 0 - db 0 - dd buffer - - is_openas: - dd 7, 0, 0, 0, 0 - db 0 - dd buffer - - is_open: - dd 7, 0, 0, 0, 0 - db 0 - dd buffer - - is_undefined: - dd 7, 0, notify_txt, 0, 0 - db "/sys/@notify", 0 - - is_openimg_info: - dd 5, 0, 0, 0, img.buf - db 0 - dd icons - - is_openimg: - dd 0, 0, 0, 0, 0 - db 0 - dd icons - - is_file_exists: - dd 0, 0, 0, 0, buffer6 - db 0 - dd buffer - - last_x dd -1 - last_y dd -1 - -if DEBUG eq 1 - std_param db "~/sys/example.asm", 0 -end if - - imports: - library libini, "libini.obj" - import libini, libini.get_str, "ini_get_str", \ - libini.set_str, "ini_set_str", \ - libini.get_num, "ini_get_int", \ - libini.for_each_section, "ini_enum_sections" - - imports_add: - library libimg, "libimg.obj", \ - boxlib, "box_lib.obj", \ - prclib, "proc_lib.obj" - import libimg, libimg.init, "lib_init", \ - libimg.toRGB, "img_to_rgb2", \ - libimg.decode, "img_decode", \ - libimg.destroy, "img_destroy" - import boxlib, scrollbar.draw, "scrollbar_v_draw", \ - scrollbar.mouse, "scrollbar_v_mouse", \ - pathshow.init, "PathShow_prepare", \ - pathshow.draw, "PathShow_draw", \ - checkbox.init, "init_checkbox2", \ - checkbox.draw, "check_box_draw2", \ - checkbox.mouse, "check_box_mouse2" - import prclib, opendialog.lib_init, "lib_init", \ - opendialog.init, "OpenDialog_init", \ - opendialog.start, "OpenDialog_start" - - ;=============================== - - main: - mcall 68, 11 - stdcall dll.Load, imports - -if DEBUG eq 1 - stdcall string.copy, std_param, [M01header.params] -end if - - ;; trim params - stdcall string.copy, [M01header.params], paramorig - stdcall string.trim_last, paramorig - stdcall string.trim_first, paramorig - mov [param_s], eax - - stdcall string.to_lower_case, [M01header.params] - stdcall string.trim_last, [M01header.params] - stdcall string.trim_first, [M01header.params] - mov [param_lwr], eax - - ;; if empty - exit - cmpe [eax], byte 0, exit - - ;; if folder - stdcall string.length, [param_s] - add eax, [param_s] - cmpe [eax - 1], byte '/', open - - ;; if dialog - mov eax, [param_s] - mov [is_openas + 8], eax - cmpne [eax], byte '~', @f - inc [param_s] - mov eax, [param_s] - mov [is_openas + 8], eax - jmp start_dialog - @@: - - ;; if without '.' - execute - stdcall string.last_index_of, [param_s], '.', 1 - cmpe eax, -1, execute - ;; if '.' is part of path - execute - mov esi, eax - stdcall string.last_index_of, [param_s], '/', 1 - cmpg eax, esi, execute - - ;; if ext == "kex" - execute - add esi, [param_lwr] - mov [param_e], esi - cmpe [esi], dword "kex", execute - - open_as: - invoke libini.get_str, assoc_ini, assoc_ini.sec, esi, buffer8, 2048, undefined - cmpe byte [buffer8], 0, start_dialog_pre - .run: - mov edi, 0 - cmpne byte [buffer8], "$", .pre_open - mov edi, 1 - invoke libini.get_str, assoc_ini, buffer8 + 1, assoc_ini.exec, buffer, 2048, undefined - cmpe byte [buffer], 0, ini_error - jmp @f - .pre_open: - stdcall string.copy, buffer8, buffer - @@: - mcall 70, is_openas - cmpge eax, 0, exit - cmpe edi, 0, start_dialog - invoke libini.get_str, assoc_ini, buffer8 + 1, assoc_ini.next, buffer8, 2048, undefined - cmpne byte [buffer], 0, .run - jmp start_dialog - - execute: - mov eax, [param_s] - mov [is_execute + 21], eax - mcall 70, is_execute - jmp exit - - open: - invoke libini.get_str, assoc_ini, assoc_ini.sec, slash, buffer, 2048, undefined - cmpne [buffer], byte "$", @f - invoke libini.get_str, assoc_ini, buffer + 1, assoc_ini.exec, buffer, 2048, undefined - cmpe [buffer], byte 0, ini_error - @@: - mov eax, [param_s] - mov [is_open + 8], eax - mcall 70, is_open - jmp exit - - ini_error: - mcall 70, is_undefined - jmp exit - - ;---------------------- - - start_dialog_pre: - or [cb_always.flags], ch_flag_en - - start_dialog: - stdcall dll.Load, imports_add - invoke opendialog.lib_init - - mcall 40, 100111b - - ;; get title - stdcall string.copy, title, win.title - - ;; get positions - mcall 14 - movzx ebx, ax - shr ebx, 1 - shr eax, 16 + 1 - sub eax, WIN_WIDTH / 2 - 1 - sub ebx, WIN_HEIGHT / 2 - 1 - mov [win.x], eax - mov [win.y], ebx - - ;; get colors - mcall 48, 3, skin, sizeof.system_colors - - ;; get opendialog - invoke opendialog.init, opendialog - - ;; get pathshow - mov eax, [param_s] - mov ebx, [skin.work_text] - mov [ps_addres.txt], eax - mov [ps_addres], ebx - m2m [ps_addres.color], [skin.work_text] - invoke pathshow.init, ps_addres - - ;; get checkbox - mov eax, 0xFFFfff - mov ebx, [skin.work_graph] - mov ecx, [skin.work_text] - mov [cb_always.color], eax - mov [cb_always.border_color], ebx - mov [cb_always.text_color], ecx - invoke checkbox.init, cb_always - - ;; get list - invoke libini.for_each_section, assoc_ini, section_cb - stdcall sort_list - mov eax, [sb_apps.max_area] - and eax, 1b - shr [sb_apps.max_area], 1 - add [sb_apps.max_area], eax - - mov eax, 0xFFFfff - mov ebx, 0xCCCccc ;[skin.3d] - mov [sb_apps.bg_color], eax - mov [sb_apps.front_color], ebx - mov [sb_apps.line_color], ebx - - ;; get icons - mcall 70, is_openimg_info - mov edx, dword [img.buf + 32] - shl edx, 4 - stdcall mem.Alloc, edx - mov [img.rgb], eax - - mov [is_openimg + 12], edx - m2m dword[is_openimg + 16], dword[img.rgb] - mcall 70, is_openimg - - invoke libimg.decode, dword[img.rgb], ebx, 0 - mov [img], eax - - ;; alpha - mov edi, [eax + 8] - shl edi, 7 - sub edi, 4 - mov eax, [eax + 24] - .setalpha: - mov ebx, [eax + edi] - shr ebx, 24 - cmpne ebx, 0, @f - mov ecx, 0xFFFfff - mov [eax + edi], ecx - @@: - cmpe edi, 0, @f - sub edi, 4 - jmp .setalpha - @@: - - invoke libimg.toRGB, [img], [img.rgb] - invoke libimg.destroy, [img] - - ;---------------------- - - update: - mcall 10 - cmpe eax, EV_REDRAW, event_redraw - cmpe eax, EV_KEY, event_key - cmpe eax, EV_BUTTON, event_button - cmpe eax, EV_MOUSE, event_mouse - jmp update - - ;---------------------- - - event_redraw: - call draw_window - jmp update - - ;---------------------- - - event_key: - mcall 2 - cmpe ah, 27, exit - - cmpe ah, 13, list_item_activate - cmpe ah, 9, event_button.opendialog - cmpe ah, 32, .toggle_cb - cmpe ah, 179, .go_right - cmpe ah, 176, .go_left - cmpe ah, 178, .go_up - cmpe ah, 177, .go_down - - cmpl ah, "a", @f - cmpg ah, "z", @f - jmp .letter - @@: - - cmpl ah, "а", @f - cmpg ah, "я", @f - jmp .letter - @@: - - cmpl ah, "A", @f - cmpg ah, "Z", @f - jmp .letter_big - @@: - - cmpl ah, "А", @f - cmpg ah, "Я", @f - jmp .letter_big - @@: - - cmpl ah, "0", @f - cmpg ah, "9", @f - jmp .letter - @@: - - jmp update - - .letter_big: - movzx ebx, ah - stdcall downcase_char, ebx - mov ah, al - - .letter: - push eax - - stdcall get_index - inc eax - - mov ecx, eax - - imul ebx, eax, 32 - add ebx, list - - pop eax - - mov edi, 0 - mov esi, [list.size] - .search: - shl esi, 5 - add esi, list - @@: - cmpe ebx, esi, @f - - movzx edx, byte [ebx] - stdcall downcase_char, edx - cmpne ah, al, .next - stdcall set_index, ecx - stdcall draw_list - jmp update - - .next: - inc ecx - add ebx, 32 - jmp @b - @@: - cmpe edi, 1, update - mov ebx, list - mov ecx, 0 - mov edi, 1 - push eax - stdcall get_index - mov esi, eax - pop eax - jmp .search - - .toggle_cb: - mov eax, [cb_always.flags] - mov ebx, eax - and ebx, ch_flag_en - cmpe ebx, 0, @f - sub eax, ch_flag_en - jmp .toggle_cb.redraw - @@: - add eax, ch_flag_en - .toggle_cb.redraw: - mov [cb_always.flags], eax - invoke checkbox.draw, cb_always - jmp update - - .go_right: - mov esi, 1 - jmp .go_anyway - - .go_left: - mov esi, -1 - jmp .go_anyway - - .go_up: - mov esi, -2 - jmp .go_anyway - - .go_down: - mov esi, 2 - - .go_anyway: -;; HIDE OLD SELECTION - stdcall draw_item, [last_x], [last_y], 0 - -;; [X, Y] -> INDEX - stdcall get_index - -;; CHANGE INDEX - .check_p2: - cmpne esi, 2, .check_m2 - mov ebx, [list.size] - dec ebx - sub ebx, eax - cmpg ebx, 1, .add - jmp .check - - .check_m2: - cmpne esi, -2, .add - cmpg eax, 1, .add - jmp .check - - .add: - add eax, esi - - .check: - cmpl eax, [list.size], @f - mov eax, [list.size] - dec eax - @@: - - cmpge eax, 0, @f - mov eax, 0 - @@: - -;; INDEX -> [X, Y] - stdcall set_index, eax - cmpe eax, 1, @f - -;; PARTLY REDRAW - stdcall draw_item, [last_x], [last_y], 1 - jmp update - -;; FULL REDRAW - @@: - stdcall draw_list - jmp update - - ;---------------------- - - event_button: - mcall 17 - cmpe ah, 1, exit - cmpe ah, 2, .opendialog - jmp list_item_activate - - .opendialog: - invoke opendialog.start, opendialog - cmpne [opendialog.status], 1, update - mcall 70, is_openas - - mov edi, 0 - jmp save_assoc - - ;---------------------- - - list_item_activate: - stdcall get_index - shl eax, 5 - add eax, list - cmpe byte [eax], 0, update - mov [param_a], eax - invoke libini.get_str, assoc_ini, eax, assoc_ini.exec, buffer, 256, undefined - cmpe byte [buffer], 0, ini_error - mcall 70, is_openas - - mov edi, 1 - jmp save_assoc - - ;---------------------- - - save_assoc: - mov eax, [cb_always.flags] - and eax, ch_flag_en - cmpe eax, 0, exit - - cmpe edi, 0, @f - stdcall string.copy, app_link, buffer - stdcall string.concatenate, [param_a], buffer - @@: - - stdcall string.length, buffer - mov edi, eax - - invoke libini.set_str, assoc_ini, assoc_ini.sec, [param_e], buffer, edi - jmp exit - - ;---------------------- - - event_mouse: - invoke checkbox.mouse, cb_always - mov edi, [sb_apps.position] - invoke scrollbar.mouse, sb_apps - sub edi, [sb_apps.position] - jz @f - call draw_list - @@: - - mcall 37, 1 - movzx edi, ax - shr eax, 16 - mov esi, eax - sub esi, 4 - sub edi, 10 + 12 - cmpl esi, 0, .out - cmpge esi, LIST_WIDTH, .out - cmpl edi, 0, .out - cmpge edi, LIST_HEIGHT, .out - - mcall 37, 7 - and eax, 0xFFFF - cmpe eax, 65535, .scroll_up - cmpe eax, 0, @f - - .scroll_down: - mov eax, [sb_apps.position] - add eax, LIST_SIZE / 2 - shl eax, 1 - cmpge eax, [list.size], @f - inc [sb_apps.position] - stdcall draw_list - jmp update - - .scroll_up: - cmpe [sb_apps.position], 0, @f - dec [sb_apps.position] - stdcall draw_list - jmp update - - @@: - - mov eax, esi - mov ebx, LIST_WIDTH / 2 - mov edx, 0 - div ebx - mov esi, eax - - mov eax, edi - mov ebx, LINE_SIZE - mov edx, 0 - div ebx - mov edi, eax - - cmpne esi, [last_x], .redraw - cmpne edi, [last_y], .redraw - jmp @f - - .redraw: - stdcall draw_item, [last_x], [last_y], 0 - mov [last_x], esi - mov [last_y], edi - stdcall draw_item, esi, edi, 1 - jmp @f - - .out: - cmpe [last_x], -1, @f - stdcall draw_item, [last_x], [last_y], 0 - mov [last_x], -1 - mov [last_y], -1 - @@: - - jmp update - - ;---------------------- - - exit: - mcall -1 - - ;---------------------- - - proc draw_window - mcall 12, 1 - - mov edx, [skin.work] - or edx, 0x34 shl 24 - mcall 0, <[win.x], WIN_WIDTH>, <[win.y], WIN_HEIGHT>, , , win.title - stdcall draw_list - invoke pathshow.draw, ps_addres - invoke checkbox.draw, cb_always - - mcall 8, <208, 63>, , 2, [skin.work_button] -; - mov ecx, [skin.work_button_text] - add ecx, 0x80 shl 24 - mcall 4, <214, LIST_HEIGHT + 36>, , browse_txt - - ;; buttons - mov eax, 8 - mov ebx, 4 shl 16 + LIST_WIDTH / 2 - mov ecx, (10 + 12) shl 16 + LINE_SIZE - 1 - mov edx, 0x60 shl 24 + 10 - mov edi, LIST_SIZE - mov esi, 0 - @@: - cmpe edi, 0, @f - mcall - - cmpe esi, 0, .doA - .doB: - sub ebx, LIST_WIDTH shl 16 - add ecx, LINE_SIZE shl 16 - .doA: - add ebx, (LIST_WIDTH / 2) shl 16 - sub ecx, LINE_SIZE shl 16 - - not esi - add ecx, LINE_SIZE shl 16 - inc edx - dec edi - jmp @b - @@: - - mcall 12, 2 - ret - endp - - ;---------------------- - - proc draw_list - mcall 13, <3, LIST_WIDTH + 2 + 12>, <9 + 12, 1>, [skin.work_graph] - mcall , , - mcall , <3, 1>, <9 + 12, LIST_HEIGHT + 1> - mcall , <3 + LIST_WIDTH + 12 + 1, 1> - mcall , <4, LIST_WIDTH>, <10 + 12, LIST_HEIGHT>, 0xFFFfff - - mov esi, 1 - mov edi, LIST_SIZE / 2 - 1 - .draw_loop: - mov edx, 0 - cmpne [last_x], esi, @f - cmpne [last_y], edi, @f - mov edx, 1 - @@: - stdcall draw_item, esi, edi, edx - dec esi - cmpne esi, -1, @f - mov esi, 1 - dec edi - @@: - cmpne edi, -1, .draw_loop - - invoke scrollbar.draw, sb_apps - - ret - endp - - ;---------------------- - - proc draw_item uses edx edi esi, _x, _y, _sel - ;; get index - stdcall get_index_cur, [_x], [_y] - mov edi, eax - - cmpge edi, [list.size], .break - - ;; background - mov ebx, [_x] - shl ebx, 7 + 16 - add ebx, 4 shl 16 + LIST_WIDTH / 2 - - imul ecx, [_y], LINE_SIZE - shl ecx, 16 - add ecx, (10 + 12) shl 16 + LINE_SIZE - - mov edx, 0xFFFfff - cmpe [_sel], 0, @f - mov edx, 0x94AECE - @@: - mcall 13 - - ;; shadows - push ecx - cmpe [_sel], 1, .after_shadows - mov edx, 0xCCCccc ;[skin.3d] - - cmpne [_x], 0, @f - imul ecx, [_y], LINE_SIZE - shl ecx, 16 - add ecx, (10 + 12) shl 16 + LINE_SIZE - mcall , <4, 1> - @@: - - cmpne [_y], 0, @f - imul ebx, [_x], LIST_WIDTH / 2 - shl ebx, 16 - add ebx, 4 shl 16 + LIST_WIDTH / 2 - mcall , , <10 + 12, 1> - @@: - - .after_shadows: - pop ecx - - ;; icon - and ebx, 0xFFFF shl 16 - shr ecx, 16 - add ecx, ebx - mov edx, ecx - add edx, 6 shl 16 + (LINE_SIZE - 32) / 2 - - mov ebx, edi - shl ebx, 2 - mov ebx, [ebx + list.icon] - imul ebx, 32 * 32 * 3 - add ebx, [img.rgb] - cmpe [_sel], 0, .draw_icon - .selected: - mov eax, img.sel - mov ecx, 32 * 32 - push edx - @@: - mov edx, [ebx] - and edx, 0xFFFFFF - cmpne edx, 0xFFFFFF, .not - mov edx, 0x94AECE - .not: - mov [eax], edx - add eax, 3 - add ebx, 3 - dec ecx - jnz @b - pop edx - mov ebx, img.sel - - .draw_icon: - mcall 7, , <32, 32> - - ;; text - mov ebx, edx - add ebx, (32 + 6) shl 16 + 32 / 2 - 9 / 2 - - mov ecx, 0x000000 ; inactive item text - cmpe [_sel], 0, @f - mov ecx, 0x000000 ; active item text - @@: - add ecx, 0x80 shl 24 - - mov edx, edi - shl edx, 5 - add edx, list - - mcall 4 - - .break: - ret - endp - - ;---------------------- - - proc downcase_char uses ebx, _ch - mov ebx, [_ch] - - cmpl bl, "A", @f - cmpg bl, "Z", @f - sub bl, "A" - "a" - jmp .ret - @@: - - cmpl bl, "А", @f - cmpg bl, "Я", @f - sub bl, "А" - "а" - @@: - - .ret: - mov al, bl - ret - endp - - ;---------------------- - - proc get_index_cur uses ebx, _x, _y - mov eax, [_y] - shl eax, 1 - add eax, [_x] - mov ebx, [sb_apps.position] - shl ebx, 1 - add eax, ebx - - ret - endp - - ;---------------------- - - proc get_index - stdcall get_index_cur, [last_x], [last_y] - ret - endp - - ;---------------------- - - proc set_index uses ebx,_index - mov eax, [_index] - mov ebx, [sb_apps.position] - shl ebx, 1 - sub eax, ebx - - mov ebx, eax - and ebx, 1b - mov [last_x], ebx - shr eax, 1 - mov [last_y], eax - - mov eax, 0 - - cmpl [last_y], 0xFFFF, @f - mov ebx, 0xFFFFFFFF shr 1 - sub ebx, [last_y] - inc ebx - mov [last_y], 0 - ;dec [sb_apps.position] - sub [sb_apps.position], ebx - mov eax, 1 - jmp .exit - @@: - - cmpl [last_y], LIST_SIZE / 2, @f - mov ebx, [last_y] - sub ebx, LIST_SIZE / 2 - 1 - mov [last_y], LIST_SIZE / 2 - 1 - add [sb_apps.position], ebx - mov eax, 1 - jmp .exit - @@: - - .exit: - cmpge [sb_apps.position], 0, @f - mov [sb_apps.position], 0 - @@: - - ret - endp - - ;---------------------- - - proc section_cb, _file, _sec - ;; CHECK IF EXISTS - invoke libini.get_str, assoc_ini, [_sec], assoc_ini.exec, buffer, 2048, undefined - mcall 70, is_file_exists - cmpe ebx, -1, .exit - - mov ebx, [list.size] - shl ebx, 5 - add ebx, list - stdcall string.cmp, [_sec], assoc_ini.sec - cmpe eax, 0, @f - stdcall string.copy, [_sec], ebx - invoke libini.get_num, [_file], [_sec], assoc_ini.icon, 0 - mov ecx, [list.size] - shl ecx, 2 - mov [ecx + list.icon], eax - inc [list.size] - inc [sb_apps.max_area] - @@: - mov eax, 1 - .exit: - ret - endp - - ;---------------------- - - proc sort_list - mov eax, list - mov ebx, list.lowercased - @@: - stdcall string.copy, eax, ebx - stdcall string.to_lower_case, ebx - add eax, 32 - add ebx, 32 - cmpne byte [eax], 0, @b - - mov edi, 0 - mov ebx, list.lowercased ;; i = 0 - imul ecx, [list.size], 32 ;; i < n - 1 - sub ecx, 32 - add ecx, list.lowercased - - .loop1: - mov edx, list.lowercased ;; j = 0 - mov esi, [list.size] ;; j < n - i - 1 - sub esi, edi - dec esi - imul esi, 32 - add esi, list.lowercased - .loop2: - mov eax, edx - add eax, 32 - stdcall string.cmp, edx, eax, 32 - cmpne eax, 1, .next2 -;; swap names lw - mov eax, edx - add eax, 32 - stdcall string.copy, edx, buffer7 - stdcall string.copy, eax, edx - stdcall string.copy, buffer7, eax -;; swap names - mov eax, edx - sub eax, 256 * 32 - 32 - sub edx, 256 * 32 - stdcall string.copy, edx, buffer7 - stdcall string.copy, eax, edx - stdcall string.copy, buffer7, eax - add edx, 256 * 32 -;; swap icons - mov eax, edx - sub eax, list.lowercased - shr eax, 3 - add eax, list.icon - push ebx ecx - mov ebx, [eax] - mov ecx, [eax + 4] - mov [eax], ecx - mov [eax + 4], ebx - pop ecx ebx - .next2: - add edx, 32 - cmpne edx, esi, .loop2 - .next1: - inc edi - add ebx, 32 - cmpne ebx, ecx, .loop1 - - ret - endp - - ;---------------------- - - dataend: - - ;=============================== - - skin system_colors - list rb 32 * 256 - .lowercased rd 32 * 256 - .icon rd 256 - .size rd 1 - img rd 1 - .rgb rd 1 - .size rd 1 - .buf rb 40 - .sel rb 32 * 32 * 3 - win: - .x rd 1 - .y rd 1 - win.title rb 256 - param_lwr rd 1 - param_e rd 1 - param_a rd 1 - param_s rd 1 - undefined rb 1 - buffer rb 2048 - buffer2 rb 2048 ;OD - buffer3 rb 2048 ;OD - buffer4 rb 2048 ;OD - buffer5 rb 2048 ;OD - buffer6 rb 2048 ;check existance - buffer7 rb 32 ;for sorting - buffer8 rd 2048 - paramorig rb 2048 - _stack rb 2048 - params rb 256 - memory: + DEBUG = 0 + + LIST_WIDTH = 256 + WIN_WIDTH = (LIST_WIDTH + 16 + 12) + LIST_SIZE = 12 + LINE_SIZE = 40 + LIST_HEIGHT = (LIST_SIZE * LINE_SIZE / 2) + WIN_HEIGHT = (LIST_HEIGHT + 80) + + use32 + org 0 + db 'MENUET01' + dd 1, main, dataend, memory, memory +M01header.params: + dd params, 0 + + include "../../proc32.inc" + include "../../macros.inc" + include "../../dll.inc" + include "../../string.inc" + include "../../develop/libraries/box_lib/trunk/box_lib.mac" + + include "lang.inc" ; Language support for locales: ru_RU (CP866), et_EE, it_IT, en_US. + +if DEBUG eq 1 + include "../../debug.inc" +end if + + ;=============================== + +if lang eq ru_RU + title db "Открыть с помощью", 0 + browse_txt db "Обзор...", 0 + notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0 + checkbox_txt db "Использовать всегда", 0 +else if lang eq et_EE + title db "Open with", 0 + browse_txt db "Browse...", 0 + notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0 + checkbox_txt db "Always use selected program", 0 +else if lang eq it_IT + title db "Open with", 0 + browse_txt db "Browse...", 0 + notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0 + checkbox_txt db "Always use selected program", 0 +else ; Default to en_US + title db "Open with", 0 + browse_txt db "Browse...", 0 + notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0 + checkbox_txt db "Always use selected program", 0 +end if + + sys_dir db "/sys", 0 + slash db "/", 0 + open_dialog_path db "/sys/file managers/opendial", 0 + app_link db "$", 0 + icons db "/sys/icons32.png", 0 + communication_area_name db "FFFFFF_open_dialog", 0 + assoc_ini db "/sys/settings/assoc.ini", 0 + .sec db "Assoc", 0 + .exec db "exec", 0 + .next db "next", 0 + .icon db "icon", 0 + + sb_apps scrollbar \ + 13, WIN_WIDTH - 25, LIST_HEIGHT, 10 + 12, \ ;; w, x, h, y + 0, 0, LIST_SIZE / 2, 0, \ ;; b.h, max, area, pos + 0, 0, 0, 2 + + cb_always check_box2 \ + 5 shl 16 + 16, (LIST_HEIGHT + 33) shl 16 + 16, 6, 0, 0, 0, checkbox_txt, ch_flag_middle + + opendialog: + .type dd 0 + .procinfo dd buffer3 + .com_area_name dd communication_area_name + .com_area dd 0 + .opendir_path dd buffer4 + .dir_default_path dd sys_dir + .start_path dd open_dialog_path + .draw_window dd draw_window + .status dd 0 + .openfile_pach dd buffer + .filename_area dd buffer5 + .filter_area dd .filter + .x: + .x_size dw 420 + .x_start dw 200 + .y: + .y_size dw 320 + .y_start dw 120 + + .filter dd 0 + + ps_addres: + dd 0 ;; type + dw 7 ;; y + dw 4 ;; x + dw 6 ;; font.w + dw LIST_WIDTH ;; w + dd 0 ;; mono + dd 0 ;; without bg + .color dd 0 ;; text color + dd 0 ;; bg color + .txt dd 0 ;; text + dd buffer2 + dd 0 + + is_execute: + dd 7, 0, 0, 0, 0 + db 0 + dd buffer + + is_openas: + dd 7, 0, 0, 0, 0 + db 0 + dd buffer + + is_open: + dd 7, 0, 0, 0, 0 + db 0 + dd buffer + + is_undefined: + dd 7, 0, notify_txt, 0, 0 + db "/sys/@notify", 0 + + is_openimg_info: + dd 5, 0, 0, 0, img.buf + db 0 + dd icons + + is_openimg: + dd 0, 0, 0, 0, 0 + db 0 + dd icons + + is_file_exists: + dd 0, 0, 0, 0, buffer6 + db 0 + dd buffer + + last_x dd -1 + last_y dd -1 + +if DEBUG eq 1 + std_param db "~/sys/example.asm", 0 +end if + + imports: + library libini, "libini.obj" + import libini, libini.get_str, "ini_get_str", \ + libini.set_str, "ini_set_str", \ + libini.get_num, "ini_get_int", \ + libini.for_each_section, "ini_enum_sections" + + imports_add: + library libimg, "libimg.obj", \ + boxlib, "box_lib.obj", \ + prclib, "proc_lib.obj" + import libimg, libimg.init, "lib_init", \ + libimg.toRGB, "img_to_rgb2", \ + libimg.decode, "img_decode", \ + libimg.destroy, "img_destroy" + import boxlib, scrollbar.draw, "scrollbar_v_draw", \ + scrollbar.mouse, "scrollbar_v_mouse", \ + pathshow.init, "PathShow_prepare", \ + pathshow.draw, "PathShow_draw", \ + checkbox.init, "init_checkbox2", \ + checkbox.draw, "check_box_draw2", \ + checkbox.mouse, "check_box_mouse2" + import prclib, opendialog.lib_init, "lib_init", \ + opendialog.init, "OpenDialog_init", \ + opendialog.start, "OpenDialog_start" + + ;=============================== + + main: + mcall 68, 11 + stdcall dll.Load, imports + +if DEBUG eq 1 + stdcall string.copy, std_param, [M01header.params] +end if + + ;; trim params + stdcall string.copy, [M01header.params], paramorig + stdcall string.trim_last, paramorig + stdcall string.trim_first, paramorig + mov [param_s], eax + + stdcall string.to_lower_case, [M01header.params] + stdcall string.trim_last, [M01header.params] + stdcall string.trim_first, [M01header.params] + mov [param_lwr], eax + + ;; if empty - exit + cmpe [eax], byte 0, exit + + ;; if folder + stdcall string.length, [param_s] + add eax, [param_s] + cmpe [eax - 1], byte '/', open + + ;; if dialog + mov eax, [param_s] + mov [is_openas + 8], eax + cmpne [eax], byte '~', @f + inc [param_s] + mov eax, [param_s] + mov [is_openas + 8], eax + jmp start_dialog + @@: + + ;; if without '.' - execute + stdcall string.last_index_of, [param_s], '.', 1 + cmpe eax, -1, execute + ;; if '.' is part of path - execute + mov esi, eax + stdcall string.last_index_of, [param_s], '/', 1 + cmpg eax, esi, execute + + ;; if ext == "kex" - execute + add esi, [param_lwr] + mov [param_e], esi + cmpe [esi], dword "kex", execute + + open_as: + invoke libini.get_str, assoc_ini, assoc_ini.sec, esi, buffer8, 2048, undefined + cmpe byte [buffer8], 0, start_dialog_pre + .run: + mov edi, 0 + cmpne byte [buffer8], "$", .pre_open + mov edi, 1 + invoke libini.get_str, assoc_ini, buffer8 + 1, assoc_ini.exec, buffer, 2048, undefined + cmpe byte [buffer], 0, ini_error + jmp @f + .pre_open: + stdcall string.copy, buffer8, buffer + @@: + mcall 70, is_openas + cmpge eax, 0, exit + cmpe edi, 0, start_dialog + invoke libini.get_str, assoc_ini, buffer8 + 1, assoc_ini.next, buffer8, 2048, undefined + cmpne byte [buffer], 0, .run + jmp start_dialog + + execute: + mov eax, [param_s] + mov [is_execute + 21], eax + mcall 70, is_execute + jmp exit + + open: + invoke libini.get_str, assoc_ini, assoc_ini.sec, slash, buffer, 2048, undefined + cmpne [buffer], byte "$", @f + invoke libini.get_str, assoc_ini, buffer + 1, assoc_ini.exec, buffer, 2048, undefined + cmpe [buffer], byte 0, ini_error + @@: + mov eax, [param_s] + mov [is_open + 8], eax + mcall 70, is_open + jmp exit + + ini_error: + mcall 70, is_undefined + jmp exit + + ;---------------------- + + start_dialog_pre: + or [cb_always.flags], ch_flag_en + + start_dialog: + stdcall dll.Load, imports_add + invoke opendialog.lib_init + + mcall 40, 100111b + + ;; get title + stdcall string.copy, title, win.title + + ;; get positions + mcall 14 + movzx ebx, ax + shr ebx, 1 + shr eax, 16 + 1 + sub eax, WIN_WIDTH / 2 - 1 + sub ebx, WIN_HEIGHT / 2 - 1 + mov [win.x], eax + mov [win.y], ebx + + ;; get colors + mcall 48, 3, skin, sizeof.system_colors + + ;; get opendialog + invoke opendialog.init, opendialog + + ;; get pathshow + mov eax, [param_s] + mov ebx, [skin.work_text] + mov [ps_addres.txt], eax + mov [ps_addres], ebx + m2m [ps_addres.color], [skin.work_text] + invoke pathshow.init, ps_addres + + ;; get checkbox + mov eax, 0xFFFfff + mov ebx, [skin.work_graph] + mov ecx, [skin.work_text] + mov [cb_always.color], eax + mov [cb_always.border_color], ebx + mov [cb_always.text_color], ecx + invoke checkbox.init, cb_always + + ;; get list + invoke libini.for_each_section, assoc_ini, section_cb + stdcall sort_list + mov eax, [sb_apps.max_area] + and eax, 1b + shr [sb_apps.max_area], 1 + add [sb_apps.max_area], eax + + mov eax, 0xFFFfff + mov ebx, 0xCCCccc ;[skin.3d] + mov [sb_apps.bg_color], eax + mov [sb_apps.front_color], ebx + mov [sb_apps.line_color], ebx + + ;; get icons + mcall 70, is_openimg_info + mov edx, dword [img.buf + 32] + shl edx, 4 + stdcall mem.Alloc, edx + mov [img.rgb], eax + + mov [is_openimg + 12], edx + m2m dword[is_openimg + 16], dword[img.rgb] + mcall 70, is_openimg + + invoke libimg.decode, dword[img.rgb], ebx, 0 + mov [img], eax + + ;; alpha + mov edi, [eax + 8] + shl edi, 7 + sub edi, 4 + mov eax, [eax + 24] + .setalpha: + mov ebx, [eax + edi] + shr ebx, 24 + cmpne ebx, 0, @f + mov ecx, 0xFFFfff + mov [eax + edi], ecx + @@: + cmpe edi, 0, @f + sub edi, 4 + jmp .setalpha + @@: + + invoke libimg.toRGB, [img], [img.rgb] + invoke libimg.destroy, [img] + + ;---------------------- + + update: + mcall 10 + cmpe eax, EV_REDRAW, event_redraw + cmpe eax, EV_KEY, event_key + cmpe eax, EV_BUTTON, event_button + cmpe eax, EV_MOUSE, event_mouse + jmp update + + ;---------------------- + + event_redraw: + call draw_window + jmp update + + ;---------------------- + + event_key: + mcall 2 + cmpe ah, 27, exit + + cmpe ah, 13, list_item_activate + cmpe ah, 9, event_button.opendialog + cmpe ah, 32, .toggle_cb + cmpe ah, 179, .go_right + cmpe ah, 176, .go_left + cmpe ah, 178, .go_up + cmpe ah, 177, .go_down + + cmpl ah, "a", @f + cmpg ah, "z", @f + jmp .letter + @@: + + cmpl ah, "а", @f + cmpg ah, "я", @f + jmp .letter + @@: + + cmpl ah, "A", @f + cmpg ah, "Z", @f + jmp .letter_big + @@: + + cmpl ah, "А", @f + cmpg ah, "Я", @f + jmp .letter_big + @@: + + cmpl ah, "0", @f + cmpg ah, "9", @f + jmp .letter + @@: + + jmp update + + .letter_big: + movzx ebx, ah + stdcall downcase_char, ebx + mov ah, al + + .letter: + push eax + + stdcall get_index + inc eax + + mov ecx, eax + + imul ebx, eax, 32 + add ebx, list + + pop eax + + mov edi, 0 + mov esi, [list.size] + .search: + shl esi, 5 + add esi, list + @@: + cmpe ebx, esi, @f + + movzx edx, byte [ebx] + stdcall downcase_char, edx + cmpne ah, al, .next + stdcall set_index, ecx + stdcall draw_list + jmp update + + .next: + inc ecx + add ebx, 32 + jmp @b + @@: + cmpe edi, 1, update + mov ebx, list + mov ecx, 0 + mov edi, 1 + push eax + stdcall get_index + mov esi, eax + pop eax + jmp .search + + .toggle_cb: + mov eax, [cb_always.flags] + mov ebx, eax + and ebx, ch_flag_en + cmpe ebx, 0, @f + sub eax, ch_flag_en + jmp .toggle_cb.redraw + @@: + add eax, ch_flag_en + .toggle_cb.redraw: + mov [cb_always.flags], eax + invoke checkbox.draw, cb_always + jmp update + + .go_right: + mov esi, 1 + jmp .go_anyway + + .go_left: + mov esi, -1 + jmp .go_anyway + + .go_up: + mov esi, -2 + jmp .go_anyway + + .go_down: + mov esi, 2 + + .go_anyway: +;; HIDE OLD SELECTION + stdcall draw_item, [last_x], [last_y], 0 + +;; [X, Y] -> INDEX + stdcall get_index + +;; CHANGE INDEX + .check_p2: + cmpne esi, 2, .check_m2 + mov ebx, [list.size] + dec ebx + sub ebx, eax + cmpg ebx, 1, .add + jmp .check + + .check_m2: + cmpne esi, -2, .add + cmpg eax, 1, .add + jmp .check + + .add: + add eax, esi + + .check: + cmpl eax, [list.size], @f + mov eax, [list.size] + dec eax + @@: + + cmpge eax, 0, @f + mov eax, 0 + @@: + +;; INDEX -> [X, Y] + stdcall set_index, eax + cmpe eax, 1, @f + +;; PARTLY REDRAW + stdcall draw_item, [last_x], [last_y], 1 + jmp update + +;; FULL REDRAW + @@: + stdcall draw_list + jmp update + + ;---------------------- + + event_button: + mcall 17 + cmpe ah, 1, exit + cmpe ah, 2, .opendialog + jmp list_item_activate + + .opendialog: + invoke opendialog.start, opendialog + cmpne [opendialog.status], 1, update + mcall 70, is_openas + + mov edi, 0 + jmp save_assoc + + ;---------------------- + + list_item_activate: + stdcall get_index + shl eax, 5 + add eax, list + cmpe byte [eax], 0, update + mov [param_a], eax + invoke libini.get_str, assoc_ini, eax, assoc_ini.exec, buffer, 256, undefined + cmpe byte [buffer], 0, ini_error + mcall 70, is_openas + + mov edi, 1 + jmp save_assoc + + ;---------------------- + + save_assoc: + mov eax, [cb_always.flags] + and eax, ch_flag_en + cmpe eax, 0, exit + + cmpe edi, 0, @f + stdcall string.copy, app_link, buffer + stdcall string.concatenate, [param_a], buffer + @@: + + stdcall string.length, buffer + mov edi, eax + + invoke libini.set_str, assoc_ini, assoc_ini.sec, [param_e], buffer, edi + jmp exit + + ;---------------------- + + event_mouse: + invoke checkbox.mouse, cb_always + mov edi, [sb_apps.position] + invoke scrollbar.mouse, sb_apps + sub edi, [sb_apps.position] + jz @f + call draw_list + @@: + + mcall 37, 1 + movzx edi, ax + shr eax, 16 + mov esi, eax + sub esi, 4 + sub edi, 10 + 12 + cmpl esi, 0, .out + cmpge esi, LIST_WIDTH, .out + cmpl edi, 0, .out + cmpge edi, LIST_HEIGHT, .out + + mcall 37, 7 + and eax, 0xFFFF + cmpe eax, 65535, .scroll_up + cmpe eax, 0, @f + + .scroll_down: + mov eax, [sb_apps.position] + add eax, LIST_SIZE / 2 + shl eax, 1 + cmpge eax, [list.size], @f + inc [sb_apps.position] + stdcall draw_list + jmp update + + .scroll_up: + cmpe [sb_apps.position], 0, @f + dec [sb_apps.position] + stdcall draw_list + jmp update + + @@: + + mov eax, esi + mov ebx, LIST_WIDTH / 2 + mov edx, 0 + div ebx + mov esi, eax + + mov eax, edi + mov ebx, LINE_SIZE + mov edx, 0 + div ebx + mov edi, eax + + cmpne esi, [last_x], .redraw + cmpne edi, [last_y], .redraw + jmp @f + + .redraw: + stdcall draw_item, [last_x], [last_y], 0 + mov [last_x], esi + mov [last_y], edi + stdcall draw_item, esi, edi, 1 + jmp @f + + .out: + cmpe [last_x], -1, @f + stdcall draw_item, [last_x], [last_y], 0 + mov [last_x], -1 + mov [last_y], -1 + @@: + + jmp update + + ;---------------------- + + exit: + mcall -1 + + ;---------------------- + + proc draw_window + mcall 12, 1 + + mov edx, [skin.work] + or edx, 0x34 shl 24 + mcall 0, <[win.x], WIN_WIDTH>, <[win.y], WIN_HEIGHT>, , , win.title + stdcall draw_list + invoke pathshow.draw, ps_addres + invoke checkbox.draw, cb_always + + mcall 8, <208, 63>, , 2, [skin.work_button] +; + mov ecx, [skin.work_button_text] + add ecx, 0x80 shl 24 + mcall 4, <214, LIST_HEIGHT + 36>, , browse_txt + + ;; buttons + mov eax, 8 + mov ebx, 4 shl 16 + LIST_WIDTH / 2 + mov ecx, (10 + 12) shl 16 + LINE_SIZE - 1 + mov edx, 0x60 shl 24 + 10 + mov edi, LIST_SIZE + mov esi, 0 + @@: + cmpe edi, 0, @f + mcall + + cmpe esi, 0, .doA + .doB: + sub ebx, LIST_WIDTH shl 16 + add ecx, LINE_SIZE shl 16 + .doA: + add ebx, (LIST_WIDTH / 2) shl 16 + sub ecx, LINE_SIZE shl 16 + + not esi + add ecx, LINE_SIZE shl 16 + inc edx + dec edi + jmp @b + @@: + + mcall 12, 2 + ret + endp + + ;---------------------- + + proc draw_list + mcall 13, <3, LIST_WIDTH + 2 + 12>, <9 + 12, 1>, [skin.work_graph] + mcall , , + mcall , <3, 1>, <9 + 12, LIST_HEIGHT + 1> + mcall , <3 + LIST_WIDTH + 12 + 1, 1> + mcall , <4, LIST_WIDTH>, <10 + 12, LIST_HEIGHT>, 0xFFFfff + + mov esi, 1 + mov edi, LIST_SIZE / 2 - 1 + .draw_loop: + mov edx, 0 + cmpne [last_x], esi, @f + cmpne [last_y], edi, @f + mov edx, 1 + @@: + stdcall draw_item, esi, edi, edx + dec esi + cmpne esi, -1, @f + mov esi, 1 + dec edi + @@: + cmpne edi, -1, .draw_loop + + invoke scrollbar.draw, sb_apps + + ret + endp + + ;---------------------- + + proc draw_item uses edx edi esi, _x, _y, _sel + ;; get index + stdcall get_index_cur, [_x], [_y] + mov edi, eax + + cmpge edi, [list.size], .break + + ;; background + mov ebx, [_x] + shl ebx, 7 + 16 + add ebx, 4 shl 16 + LIST_WIDTH / 2 + + imul ecx, [_y], LINE_SIZE + shl ecx, 16 + add ecx, (10 + 12) shl 16 + LINE_SIZE + + mov edx, 0xFFFfff + cmpe [_sel], 0, @f + mov edx, 0x94AECE + @@: + mcall 13 + + ;; shadows + push ecx + cmpe [_sel], 1, .after_shadows + mov edx, 0xCCCccc ;[skin.3d] + + cmpne [_x], 0, @f + imul ecx, [_y], LINE_SIZE + shl ecx, 16 + add ecx, (10 + 12) shl 16 + LINE_SIZE + mcall , <4, 1> + @@: + + cmpne [_y], 0, @f + imul ebx, [_x], LIST_WIDTH / 2 + shl ebx, 16 + add ebx, 4 shl 16 + LIST_WIDTH / 2 + mcall , , <10 + 12, 1> + @@: + + .after_shadows: + pop ecx + + ;; icon + and ebx, 0xFFFF shl 16 + shr ecx, 16 + add ecx, ebx + mov edx, ecx + add edx, 6 shl 16 + (LINE_SIZE - 32) / 2 + + mov ebx, edi + shl ebx, 2 + mov ebx, [ebx + list.icon] + imul ebx, 32 * 32 * 3 + add ebx, [img.rgb] + cmpe [_sel], 0, .draw_icon + .selected: + mov eax, img.sel + mov ecx, 32 * 32 + push edx + @@: + mov edx, [ebx] + and edx, 0xFFFFFF + cmpne edx, 0xFFFFFF, .not + mov edx, 0x94AECE + .not: + mov [eax], edx + add eax, 3 + add ebx, 3 + dec ecx + jnz @b + pop edx + mov ebx, img.sel + + .draw_icon: + mcall 7, , <32, 32> + + ;; text + mov ebx, edx + add ebx, (32 + 6) shl 16 + 32 / 2 - 9 / 2 + + mov ecx, 0x000000 ; inactive item text + cmpe [_sel], 0, @f + mov ecx, 0x000000 ; active item text + @@: + add ecx, 0x80 shl 24 + + mov edx, edi + shl edx, 5 + add edx, list + + mcall 4 + + .break: + ret + endp + + ;---------------------- + + proc downcase_char uses ebx, _ch + mov ebx, [_ch] + + cmpl bl, "A", @f + cmpg bl, "Z", @f + sub bl, "A" - "a" + jmp .ret + @@: + + cmpl bl, "А", @f + cmpg bl, "Я", @f + sub bl, "А" - "а" + @@: + + .ret: + mov al, bl + ret + endp + + ;---------------------- + + proc get_index_cur uses ebx, _x, _y + mov eax, [_y] + shl eax, 1 + add eax, [_x] + mov ebx, [sb_apps.position] + shl ebx, 1 + add eax, ebx + + ret + endp + + ;---------------------- + + proc get_index + stdcall get_index_cur, [last_x], [last_y] + ret + endp + + ;---------------------- + + proc set_index uses ebx,_index + mov eax, [_index] + mov ebx, [sb_apps.position] + shl ebx, 1 + sub eax, ebx + + mov ebx, eax + and ebx, 1b + mov [last_x], ebx + shr eax, 1 + mov [last_y], eax + + mov eax, 0 + + cmpl [last_y], 0xFFFF, @f + mov ebx, 0xFFFFFFFF shr 1 + sub ebx, [last_y] + inc ebx + mov [last_y], 0 + ;dec [sb_apps.position] + sub [sb_apps.position], ebx + mov eax, 1 + jmp .exit + @@: + + cmpl [last_y], LIST_SIZE / 2, @f + mov ebx, [last_y] + sub ebx, LIST_SIZE / 2 - 1 + mov [last_y], LIST_SIZE / 2 - 1 + add [sb_apps.position], ebx + mov eax, 1 + jmp .exit + @@: + + .exit: + cmpge [sb_apps.position], 0, @f + mov [sb_apps.position], 0 + @@: + + ret + endp + + ;---------------------- + + proc section_cb, _file, _sec + ;; CHECK IF EXISTS + invoke libini.get_str, assoc_ini, [_sec], assoc_ini.exec, buffer, 2048, undefined + mcall 70, is_file_exists + cmpe ebx, -1, .exit + + mov ebx, [list.size] + shl ebx, 5 + add ebx, list + stdcall string.cmp, [_sec], assoc_ini.sec + cmpe eax, 0, @f + stdcall string.copy, [_sec], ebx + invoke libini.get_num, [_file], [_sec], assoc_ini.icon, 0 + mov ecx, [list.size] + shl ecx, 2 + mov [ecx + list.icon], eax + inc [list.size] + inc [sb_apps.max_area] + @@: + mov eax, 1 + .exit: + ret + endp + + ;---------------------- + + proc sort_list + mov eax, list + mov ebx, list.lowercased + @@: + stdcall string.copy, eax, ebx + stdcall string.to_lower_case, ebx + add eax, 32 + add ebx, 32 + cmpne byte [eax], 0, @b + + mov edi, 0 + mov ebx, list.lowercased ;; i = 0 + imul ecx, [list.size], 32 ;; i < n - 1 + sub ecx, 32 + add ecx, list.lowercased + + .loop1: + mov edx, list.lowercased ;; j = 0 + mov esi, [list.size] ;; j < n - i - 1 + sub esi, edi + dec esi + imul esi, 32 + add esi, list.lowercased + .loop2: + mov eax, edx + add eax, 32 + stdcall string.cmp, edx, eax, 32 + cmpne eax, 1, .next2 +;; swap names lw + mov eax, edx + add eax, 32 + stdcall string.copy, edx, buffer7 + stdcall string.copy, eax, edx + stdcall string.copy, buffer7, eax +;; swap names + mov eax, edx + sub eax, 256 * 32 - 32 + sub edx, 256 * 32 + stdcall string.copy, edx, buffer7 + stdcall string.copy, eax, edx + stdcall string.copy, buffer7, eax + add edx, 256 * 32 +;; swap icons + mov eax, edx + sub eax, list.lowercased + shr eax, 3 + add eax, list.icon + push ebx ecx + mov ebx, [eax] + mov ecx, [eax + 4] + mov [eax], ecx + mov [eax + 4], ebx + pop ecx ebx + .next2: + add edx, 32 + cmpne edx, esi, .loop2 + .next1: + inc edi + add ebx, 32 + cmpne ebx, ecx, .loop1 + + ret + endp + + ;---------------------- + + dataend: + + ;=============================== + + skin system_colors + list rb 32 * 256 + .lowercased rd 32 * 256 + .icon rd 256 + .size rd 1 + img rd 1 + .rgb rd 1 + .size rd 1 + .buf rb 40 + .sel rb 32 * 32 * 3 + win: + .x rd 1 + .y rd 1 + win.title rb 256 + param_lwr rd 1 + param_e rd 1 + param_a rd 1 + param_s rd 1 + undefined rb 1 + buffer rb 2048 + buffer2 rb 2048 ;OD + buffer3 rb 2048 ;OD + buffer4 rb 2048 ;OD + buffer5 rb 2048 ;OD + buffer6 rb 2048 ;check existance + buffer7 rb 32 ;for sorting + buffer8 rd 2048 + paramorig rb 2048 + _stack rb 2048 + params rb 256 + memory: diff --git a/programs/system/rdsave/trunk/rdsave.asm b/programs/system/rdsave/trunk/rdsave.asm index 57249af3cd..e607570687 100644 --- a/programs/system/rdsave/trunk/rdsave.asm +++ b/programs/system/rdsave/trunk/rdsave.asm @@ -1,701 +1,701 @@ -; RDsave для Kolibri (0.6.5.0 и старше) -; Save RAM-disk to hard or floppy drive -;--------------------------------------------------------------------- -; Mario79 2005 -; Heavyiron 12.02.2007 -; 11.05.2009 - для работы нужна системная библиотека box_lib.obj -; Mario79 08.09.2010 - select path with OpenDialog,keys 1,2,3,4 for select options -; Heavyiron 01.12.2013 - new logic -;--------------------------------------------------------------------- -appname equ 'RDsave ' -version equ '1.44' -debug equ no - -use32 ; включить 32-битный режим ассемблера -org 0x0 ; адресация с нуля - -db 'MENUET01' ; 8-байтный идентификатор MenuetOS -dd 0x01 ; версия заголовка (всегда 1) -dd START ; адрес первой команды -dd IM_END ; размер программы -dd I_END ; количество памяти -dd stacktop ; адрес вершины стека -dd PARAMS ; адрес буфера для параметров -dd cur_dir_path - - -include 'lang.inc' -include '../../../macros.inc' -if debug eq yes -include '../../../debug.inc' -end if -include '../../../proc32.inc' -include '../../../dll.inc' -include '../../../KOSfuncs.inc' -include '../../../load_lib.mac' -include '../../../develop/libraries/box_lib/trunk/box_lib.mac' -include 'str.inc' - - @use_library -;--------------------------------------------------------------------- -;--- НАЧАЛО ПРОГРАММЫ ---------------------------------------------- -;--------------------------------------------------------------------- -align 4 -START: -;--------------------------------------------------------------------- - mcall 68,11 - -load_libraries l_libs_start,end_l_libs - inc eax - test eax,eax - jz close - - stdcall dll.Init,[init_lib] - - invoke ini_get_int,ini_file,ini_section,aautoclose,0 - mov [autoclose],eax - invoke ini_get_str,ini_file,ini_section,apath,fname_buf,4096,path - stdcall _lstrcpy,ini_path,fname_buf - stdcall _lstrcpy,filename_area,start_temp_file_name - - mov eax,PARAMS - cmp byte[eax], 0 - je no_params - cmp byte[eax], 'h' - je @f - cmp byte[eax], 'H' - jne .no_h -@@: - mov [hidden],1 - jmp no_params -.no_h: - mov [param],1 - stdcall _lstrcpy,fname_buf,eax - mov ah,2 - jmp noclose - -;--------------------------------------------------------------------- -no_params: - stdcall _lstrcpy,check_dir,ini_path - call check_path - test eax,eax - jz path_ok - cmp eax,6 - je path_ok -;--------------------------------------------------------------------- -if debug eq yes -dps 'read_folder_error' -newline -end if -;--------------------------------------------------------------------- -default_path: - stdcall _lstrcpy,fname_buf,communication_area_default_path - mov [hidden],0 - -;OpenDialog initialisation - push dword OpenDialog_data - call [OpenDialog_Init] - -; prepare for PathShow - push dword PathShow_data_1 - call [PathShow_prepare] - - mcall 40,0x00000027 - - call draw_window - mov ah,3 - jmp noclose -;--------------------------------------------------------------------- -path_ok: -;OpenDialog initialisation - push dword OpenDialog_data - call [OpenDialog_Init] - -; prepare for PathShow - push dword PathShow_data_1 - call [PathShow_prepare] - - mcall 40,0x00000027 - - cmp [hidden],1 - jne red - mov ah,2 - jmp noclose -red: - call draw_window -;--------------------------------------------------------------------- -still: - mcall 10 - - dec eax ; перерисовать окно? - jz red ; если да - на метку red - dec eax - jz key - dec eax - jz button - jmp still -;--------------------------------------------------------------------- -button: - mcall 17 ; получить идентификатор нажатой кнопки - cmp ah,1 ; кнопка с id=1("закрыть")? - jne noclose -close: - mcall -1 ; функция -1: завершить программу - -;--------------------------------------------------------------------- -key: - mcall 2 - cmp ah,0x1b - je close - cmp ah,0x0D - jne @f - mov ah,2 - jmp noclose -@@: - cmp ah,9h - jne still -;--------------------------------------------------------------------- -noclose: - mov ecx,fname_buf - push 16 - mov ebx,1 - cmp byte[ecx+1],'f' - je @f - cmp byte[ecx+1],'F' - jne not_fdd -@@: - cmp byte[ecx+4],'1' - jne @f - cmp ah,2 - je doit -@@: - inc ebx - cmp ah,2 - je doit -not_fdd: - push 18 - mov ebx,6 ; 18.6 = save to specified folder - cmp ah,2 - je doit - -; invoke OpenDialog - push dword OpenDialog_data - call [OpenDialog_Start] - cmp [OpenDialog_data.status],1 - jne still - -; prepare for PathShow - push dword PathShow_data_1 - call [PathShow_prepare] - call draw_window - mov ah,2 - jmp noclose - -doit: - cmp [param],0 - jne @f - call save_ini -@@: - cmp byte[ecx+1],'r' - je @f - cmp byte[ecx+1],'R' - je @f - cmp byte[ecx],'/' - je not_rd -@@: - mov edx,rdError - call print_err - jmp still -not_rd: - cmp [hidden],0 - jne @f - pusha - stdcall _lstrcpy,msg,label2 - mov eax,[sc.work_text] - or eax,0xc0000088 - mov [color],eax - call print_msg - popa -@@: - pop eax - mcall - call check_for_error - jmp still - -;--------------------------------------------------------------------- -check_for_error: ;Обработчик ошибок - test eax,eax - jz print_ok - cmp ebx,6 - je @f - mov edx,error11 - jmp print_err -@@: - cmp eax, 11 - ja .unknown - mov edx, [errors+eax*4] - stdcall _lstrcpy,msg,error - stdcall _lstrcat,msg,edx - mov edx,msg - jmp print_err -.unknown: - mov edx, aUnknownError - -print_err: - stdcall _lstrlen,ini_path - pusha - invoke ini_set_str,ini_file,ini_section,apath,ini_path,eax - popa - stdcall _lstrcpy,msg,edx - cmp [hidden],1 - je @f - cmp [param],1 - je @f - mov ecx,[sc.work_text] - or ecx,0xc0880000 - mov [color],ecx - call print_msg - ret -@@: - stdcall _lstrcpy, ntf_msg, ntf_start - stdcall _lstrcat, ntf_msg, edx - stdcall _lstrcat, ntf_msg, ntf_end_e - mov dword [is_notify + 8], ntf_msg - mcall 70, is_notify - mov [param],0 - mov [hidden],0 - stdcall _lstrcpy,fname_buf,ini_path - jmp no_params - -print_ok: - cmp [hidden],1 - je @f - cmp [param],1 - je @f - stdcall _lstrcpy,msg,ok - mov ecx,[sc.work_text] - or ecx,0xc0008800 - mov [color],ecx - call print_msg - mcall 5,100 - cmp [autoclose],1 - je close - ret -@@: - stdcall _lstrcpy,msg,ok - stdcall _lstrcat,msg,fname_buf - stdcall _lstrcpy, ntf_msg, ntf_start - stdcall _lstrcat, ntf_msg, msg - stdcall _lstrcat, ntf_msg, ntf_end_o - mov edx,ntf_msg - mov dword [is_notify + 8], edx - mcall 70, is_notify - mcall 5,100 - jmp close -;--------------------------------------------------------------------- -print_msg: - mcall 13,<5,380>,<96,10>,[sc.work] - stdcall _lstrlen,msg - lea eax,[eax+eax*2] - add eax,eax - mov ebx,390 - sub ebx,eax - shl ebx,15 - add ebx,96 - mcall 4, ,[color],msg, ,[sc.work] - ret -;--------------------------------------------------------------------- -draw_PathShow: - pusha - mcall 13,<15,280>,<32,16>,0xffffff - push dword PathShow_data_1 - call [PathShow_draw] - popa - ret -;--------------------------------------------------------------------- -save_ini: - pusha - stdcall _lstrlen,fname_buf - invoke ini_set_str,ini_file,ini_section,apath,fname_buf,eax - invoke ini_set_int,ini_file,ini_section,aautoclose,[autoclose] - popa - ret -;--------------------------------------------------------------------- -check_path: -stdcall _lstrlen,check_dir - add eax,check_dir -@@: - dec eax - cmp byte [eax],'/' - jne @b - mov byte [eax+1],0 - - mcall 70,read_folder - ret -;--------------------------------------------------------------------- -;--- Draw window --------------------------------------------------- -;--------------------------------------------------------------------- -draw_window: - mcall 48,3,sc,sizeof.system_colors - mcall 12,1 - - mcall 48,4 - mov ecx,200*65536+111 - add ecx,eax - - mov edx,[sc.work] - or edx,0x34000000 - mcall 0,<200,400>,, , ,title - -;buttons - mcall 8,<198,70>,<68,20>,1,[sc.work_button] - inc edx - mcall ,<125,70>, - inc edx - mcall ,<300,75>,<30,20> - -;labels - mov ecx,[sc.work_button_text] - or ecx,0x80000000 - mcall 4,<134,75>, ,save - mcall ,<215,75>, ,cancel - mcall ,<315,36>, ,select - - m2m dword [frame_data.font_backgr_color],[sc.work] - m2m dword [frame_data.font_color],[sc.work_text] - m2m dword [frame_data.ext_fr_col],[sc.work_graph] - m2m dword [frame_data.int_fr_col],[sc.work_light] - - push dword frame_data - call [Frame_draw] - - call draw_PathShow - call print_msg - - mcall 12,2 - ret - -;--------------------------------------------------------------------- -;--- Data ---------------------------------------------------------- -;--------------------------------------------------------------------- -if lang eq ru_RU -save db 'Сохранить',0 -cancel db 'Отмена',0 -select db 'Изменить',0 -label1 db ' Образ будет сохранен в: ',0 -label2 db 'Сохранение образа...',0 -ok db 'RAM-диск сохранен успешно ',0 -error1 db 'не определена база и/или раздел жёсткого диска',0 -error2 db 'функция не поддерживается для данной файловой системы',0 -error3 db 'неизвестная файловая система',0 -error4 db 'странно... Ошибка 4',0 -error5 db 'несуществующий путь',0 -error6 db 'файл закончился',0 -error7 db 'указатель вне памяти приложения',0 -error8 db 'диск заполнен',0 -error9 db 'файловая структура разрушена',0 -error10 db 'доступ запрещён',0 -error11 db 'Ошибка устройства',0 -aUnknownError db 'Неизвестная ошибка',0 -rdError db 'Нельзя сохранять образ в самого себя',0 -error db 'Ошибка: ',0 -;--------------------------------------------------------------------- -else if lang eq et_EE -save db 'Salvesta',0 -cancel db 'Cancel',0 -select db ' Valige',0 -label1 db ' RAM-drive will be saved as: ',0 -label2 db 'Saving in progress...',0 -ok db 'RAM-ketas salvestatud edukalt ',0 -error1 db 'hard disk base and/or partition not defined',0 -error2 db 'the file system does not support this function',0 -error3 db 'tundmatu failis№steem',0 -error4 db 'strange... Error 4',0 -error5 db 'vigane teekond',0 -error6 db 'end of file',0 -error7 db 'pointer is outside of application memory',0 -error8 db 'ketas tфis',0 -error9 db 'FAT tabel vigane',0 -error10 db 'juurdepффs keelatud',0 -error11 db 'Seadme viga',0 -aUnknownError db 'Tundmatu viga',0 -rdError db "You can't save image on itself",0 -error db 'Viga: ',0 -;--------------------------------------------------------------------- -else if lang eq it_IT -save db ' Salva',0 -cancel db 'Cancel',0 -select db 'Seleziona',0 -label1 db ' RAM-drive will be saved as: ',0 -label2 db 'Saving in progress...',0 -ok db 'Il RAM-drivet e stato salvato ',0 -error1 db 'hard disk base and/or partition not defined',0 -error2 db 'the file system does not support this function',0 -error3 db 'filesystem sconosciuto',0 -error4 db 'strange... Error 4',0 -error5 db 'percorso non valido',0 -error6 db 'end of file',0 -error7 db 'pointer is outside of application memory',0 -error8 db 'disco pieno',0 -error9 db 'tabella FAT corrotta',0 -error10 db 'accesso negato',0 -error11 db 'Errore di device',0 -aUnknownError db 'Errore sconosciuto',0 -rdError db "You can't save image on itself",0 -error db 'Errore: ',0 -;--------------------------------------------------------------------- -else -save db ' Save',0 -cancel db 'Cancel',0 -select db ' Select',0 -label1 db ' RAM-drive will be saved as: ',0 -label2 db 'Saving in progress...',0 -ok db 'RAM-drive was saved successfully ',0 -error1 db 'hard disk base and/or partition not defined',0 -error2 db 'the file system does not support this function',0 -error3 db 'unknown file system',0 -error4 db 'strange... Error 4',0 -error5 db 'incorrect path',0 -error6 db 'end of file',0 -error7 db 'pointer is outside of application memory',0 -error8 db 'disk is full',0 -error9 db 'file structure is destroyed',0 -error10 db 'access denied',0 -error11 db 'Device error',0 -aUnknownError db 'Unknown error',0 -rdError db "You can't save image on itself",0 -error db 'Error: ',0 -end if -;--------------------------------------------------------------------- -ntf_start db '"RDSave\n', 0 -ntf_end_o db '" -tO', 0 -ntf_end_e db '" -tE', 0 -;--------------------------------------------------------------------- -errors: - dd ok - dd error1 - dd error2 - dd error3 - dd error4 - dd error5 - dd error6 - dd error7 - dd error8 - dd error9 - dd error10 - dd error11 -;--------------------------------------------------------------------- - -title db appname,version,0 - -;Lib_DATA -;Всегда соблюдать последовательность в имени. -system_dir_Boxlib db '/sys/lib/box_lib.obj',0 -system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 -system_dir_libini db '/sys/lib/libini.obj',0 -;--------------------------------------------------------------------- -l_libs_start: - -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 - -library03 l_libs system_dir_libini+9, library_path, system_dir_libini, \ - libini_import - -end_l_libs: -;--------------------------------------------------------------------- -OpenDialog_data: -.type dd 1 ; Save -.procinfo dd procinfo ;+4 -.com_area_name dd communication_area_name ;+8 -.com_area dd 0 ;+12 -.opendir_path dd temp_dir_path ;+16 -.dir_default_path dd communication_area_default_path ;+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 200 ;+50 ; Window X position -.y: -.y_size dw 320 ;+52 ; Window y size -.y_start dw 120 ;+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_path: - db '/',0 - -Filter: -dd Filter.end - Filter -.1: -db 'IMG',0 -db 'IMA',0 -.end: -db 0 - -start_temp_file_name: db 'kolibri.img',0 - -;--------------------------------------------------------------------- -align 4 -ProcLib_import: -OpenDialog_Init dd aOpenDialog_Init -OpenDialog_Start dd aOpenDialog_Start - dd 0,0 -aOpenDialog_Init db 'OpenDialog_init',0 -aOpenDialog_Start db 'OpenDialog_start',0 -;--------------------------------------------------------------------- -PathShow_data_1: -.type dd 0 ;+0 -.start_y dw 36 ;+4 -.start_x dw 20 ;+6 -.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 -.area_size_x dw 270 ;+10 -.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable -.background_flag dd 0 ;+16 -.font_color dd 0 ;+20 -.background_color dd 0 ;+24 -.text_pointer dd fname_buf ;+28 -.work_area_pointer dd text_work_area ;+32 -.temp_text_length dd 0 ;+36 -;--------------------------------------------------------------------- -align 4 -Box_lib_import: -;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 - -PathShow_prepare dd sz_PathShow_prepare -PathShow_draw dd sz_PathShow_draw -Frame_draw dd sz_Frame_draw - dd 0,0 - -;aEdit_box_draw db 'edit_box_draw',0 -;aEdit_box_key db 'edit_box_key',0 -;aEdit_box_mouse db 'edit_box_mouse',0 -;aVersion_ed db 'version_ed',0 - -sz_PathShow_prepare db 'PathShow_prepare',0 -sz_PathShow_draw db 'PathShow_draw',0 - -sz_Frame_draw db 'frame_draw',0 -;szVersion_frame db 'version_frame',0 -;--------------------------------------------------------------------- -frame_data: -.type dd 0 ;+0 -.x: -.x_size dw 374 ;+4 -.x_start dw 8 ;+6 -.y: -.y_size dw 45 ;+8 -.y_start dw 17 ;+10 -.ext_fr_col dd 0x888888 ;+12 -.int_fr_col dd 0xffffff ;+16 -.draw_text_flag dd 1 ;+20 -.text_pointer dd label1 ;+24 -.text_position dd 0 ;+28 -.font_number dd 0 ;+32 -.font_size_y dd 9 ;+36 -.font_color dd 0x0 ;+40 -.font_backgr_color dd 0xdddddd ;+44 -;--------------------------------------------------------------------- -align 4 -libini_import: -init_lib dd a_init -ini_get_str dd aini_get_str -ini_get_int dd aini_get_int -ini_set_str dd aini_set_str -ini_set_int dd aini_set_int - dd 0,0 -a_init db 'lib_init',0 -aini_get_str db 'ini_get_str',0 -aini_get_int db 'ini_get_int',0 -aini_set_str db 'ini_set_str',0 -aini_set_int db 'ini_set_int',0 -;--------------------------------------------------------------------- - -ini_file db '/sys/settings/app.ini',0 -ini_section db 'RDSave',0 -apath db 'path',0 -aautoclose db 'autoclose',0 -path db '/hd2/1/kolibri.img',0 -;--------------------------------------------------------------------- -is_notify: - dd 7, 0, ok, 0, 0 - db "/sys/@notify", 0 - -read_folder: -.subfunction dd 1 -.start dd 0 -.flags dd 0 -.size dd 1 -.return dd folder_data - db 0 -.name: dd check_dir - -param dd 0 -hidden dd 0 -;--------------------------------------------------------------------- -IM_END: -;--------------------------------------------------------------------- -align 4 -PARAMS: - rb 256 -ini_path: - rb 4096 -check_dir: - rb 4096 - -sc system_colors - -autoclose rd 1 - -color rd 1 - -msg: - rb 1024 - -ntf_msg: - rb 1024 - -folder_data: - rb 304*32+32 ; 9 Kb -;--------------------------------------------------------------------- -cur_dir_path: - rb 4096 -;--------------------------------------------------------------------- -library_path: - rb 4096 -;--------------------------------------------------------------------- -temp_dir_path: - rb 4096 -;--------------------------------------------------------------------- -fname_buf: - rb 4096 -;--------------------------------------------------------------------- -procinfo: - rb 1024 -;--------------------------------------------------------------------- -filename_area: - rb 256 -;--------------------------------------------------------------------- -text_work_area: - rb 1024 -;--------------------------------------------------------------------- -align 32 - rb 4096 -stacktop: -I_END: +; RDsave для Kolibri (0.6.5.0 и старше) +; Save RAM-disk to hard or floppy drive +;--------------------------------------------------------------------- +; Mario79 2005 +; Heavyiron 12.02.2007 +; 11.05.2009 - для работы нужна системная библиотека box_lib.obj +; Mario79 08.09.2010 - select path with OpenDialog,keys 1,2,3,4 for select options +; Heavyiron 01.12.2013 - new logic +;--------------------------------------------------------------------- +appname equ 'RDsave ' +version equ '1.44' +debug equ no + +use32 ; включить 32-битный режим ассемблера +org 0x0 ; адресация с нуля + +db 'MENUET01' ; 8-байтный идентификатор MenuetOS +dd 0x01 ; версия заголовка (всегда 1) +dd START ; адрес первой команды +dd IM_END ; размер программы +dd I_END ; количество памяти +dd stacktop ; адрес вершины стека +dd PARAMS ; адрес буфера для параметров +dd cur_dir_path + + +include 'lang.inc' ; Language support for locales: ru_RU (CP866), et_EE, it_IT, en_US. +include '../../../macros.inc' +if debug eq yes +include '../../../debug.inc' +end if +include '../../../proc32.inc' +include '../../../dll.inc' +include '../../../KOSfuncs.inc' +include '../../../load_lib.mac' +include '../../../develop/libraries/box_lib/trunk/box_lib.mac' +include 'str.inc' + + @use_library +;--------------------------------------------------------------------- +;--- НАЧАЛО ПРОГРАММЫ ---------------------------------------------- +;--------------------------------------------------------------------- +align 4 +START: +;--------------------------------------------------------------------- + mcall 68,11 + +load_libraries l_libs_start,end_l_libs + inc eax + test eax,eax + jz close + + stdcall dll.Init,[init_lib] + + invoke ini_get_int,ini_file,ini_section,aautoclose,0 + mov [autoclose],eax + invoke ini_get_str,ini_file,ini_section,apath,fname_buf,4096,path + stdcall _lstrcpy,ini_path,fname_buf + stdcall _lstrcpy,filename_area,start_temp_file_name + + mov eax,PARAMS + cmp byte[eax], 0 + je no_params + cmp byte[eax], 'h' + je @f + cmp byte[eax], 'H' + jne .no_h +@@: + mov [hidden],1 + jmp no_params +.no_h: + mov [param],1 + stdcall _lstrcpy,fname_buf,eax + mov ah,2 + jmp noclose + +;--------------------------------------------------------------------- +no_params: + stdcall _lstrcpy,check_dir,ini_path + call check_path + test eax,eax + jz path_ok + cmp eax,6 + je path_ok +;--------------------------------------------------------------------- +if debug eq yes +dps 'read_folder_error' +newline +end if +;--------------------------------------------------------------------- +default_path: + stdcall _lstrcpy,fname_buf,communication_area_default_path + mov [hidden],0 + +;OpenDialog initialisation + push dword OpenDialog_data + call [OpenDialog_Init] + +; prepare for PathShow + push dword PathShow_data_1 + call [PathShow_prepare] + + mcall 40,0x00000027 + + call draw_window + mov ah,3 + jmp noclose +;--------------------------------------------------------------------- +path_ok: +;OpenDialog initialisation + push dword OpenDialog_data + call [OpenDialog_Init] + +; prepare for PathShow + push dword PathShow_data_1 + call [PathShow_prepare] + + mcall 40,0x00000027 + + cmp [hidden],1 + jne red + mov ah,2 + jmp noclose +red: + call draw_window +;--------------------------------------------------------------------- +still: + mcall 10 + + dec eax ; перерисовать окно? + jz red ; если да - на метку red + dec eax + jz key + dec eax + jz button + jmp still +;--------------------------------------------------------------------- +button: + mcall 17 ; получить идентификатор нажатой кнопки + cmp ah,1 ; кнопка с id=1("закрыть")? + jne noclose +close: + mcall -1 ; функция -1: завершить программу + +;--------------------------------------------------------------------- +key: + mcall 2 + cmp ah,0x1b + je close + cmp ah,0x0D + jne @f + mov ah,2 + jmp noclose +@@: + cmp ah,9h + jne still +;--------------------------------------------------------------------- +noclose: + mov ecx,fname_buf + push 16 + mov ebx,1 + cmp byte[ecx+1],'f' + je @f + cmp byte[ecx+1],'F' + jne not_fdd +@@: + cmp byte[ecx+4],'1' + jne @f + cmp ah,2 + je doit +@@: + inc ebx + cmp ah,2 + je doit +not_fdd: + push 18 + mov ebx,6 ; 18.6 = save to specified folder + cmp ah,2 + je doit + +; invoke OpenDialog + push dword OpenDialog_data + call [OpenDialog_Start] + cmp [OpenDialog_data.status],1 + jne still + +; prepare for PathShow + push dword PathShow_data_1 + call [PathShow_prepare] + call draw_window + mov ah,2 + jmp noclose + +doit: + cmp [param],0 + jne @f + call save_ini +@@: + cmp byte[ecx+1],'r' + je @f + cmp byte[ecx+1],'R' + je @f + cmp byte[ecx],'/' + je not_rd +@@: + mov edx,rdError + call print_err + jmp still +not_rd: + cmp [hidden],0 + jne @f + pusha + stdcall _lstrcpy,msg,label2 + mov eax,[sc.work_text] + or eax,0xc0000088 + mov [color],eax + call print_msg + popa +@@: + pop eax + mcall + call check_for_error + jmp still + +;--------------------------------------------------------------------- +check_for_error: ;Обработчик ошибок + test eax,eax + jz print_ok + cmp ebx,6 + je @f + mov edx,error11 + jmp print_err +@@: + cmp eax, 11 + ja .unknown + mov edx, [errors+eax*4] + stdcall _lstrcpy,msg,error + stdcall _lstrcat,msg,edx + mov edx,msg + jmp print_err +.unknown: + mov edx, aUnknownError + +print_err: + stdcall _lstrlen,ini_path + pusha + invoke ini_set_str,ini_file,ini_section,apath,ini_path,eax + popa + stdcall _lstrcpy,msg,edx + cmp [hidden],1 + je @f + cmp [param],1 + je @f + mov ecx,[sc.work_text] + or ecx,0xc0880000 + mov [color],ecx + call print_msg + ret +@@: + stdcall _lstrcpy, ntf_msg, ntf_start + stdcall _lstrcat, ntf_msg, edx + stdcall _lstrcat, ntf_msg, ntf_end_e + mov dword [is_notify + 8], ntf_msg + mcall 70, is_notify + mov [param],0 + mov [hidden],0 + stdcall _lstrcpy,fname_buf,ini_path + jmp no_params + +print_ok: + cmp [hidden],1 + je @f + cmp [param],1 + je @f + stdcall _lstrcpy,msg,ok + mov ecx,[sc.work_text] + or ecx,0xc0008800 + mov [color],ecx + call print_msg + mcall 5,100 + cmp [autoclose],1 + je close + ret +@@: + stdcall _lstrcpy,msg,ok + stdcall _lstrcat,msg,fname_buf + stdcall _lstrcpy, ntf_msg, ntf_start + stdcall _lstrcat, ntf_msg, msg + stdcall _lstrcat, ntf_msg, ntf_end_o + mov edx,ntf_msg + mov dword [is_notify + 8], edx + mcall 70, is_notify + mcall 5,100 + jmp close +;--------------------------------------------------------------------- +print_msg: + mcall 13,<5,380>,<96,10>,[sc.work] + stdcall _lstrlen,msg + lea eax,[eax+eax*2] + add eax,eax + mov ebx,390 + sub ebx,eax + shl ebx,15 + add ebx,96 + mcall 4, ,[color],msg, ,[sc.work] + ret +;--------------------------------------------------------------------- +draw_PathShow: + pusha + mcall 13,<15,280>,<32,16>,0xffffff + push dword PathShow_data_1 + call [PathShow_draw] + popa + ret +;--------------------------------------------------------------------- +save_ini: + pusha + stdcall _lstrlen,fname_buf + invoke ini_set_str,ini_file,ini_section,apath,fname_buf,eax + invoke ini_set_int,ini_file,ini_section,aautoclose,[autoclose] + popa + ret +;--------------------------------------------------------------------- +check_path: +stdcall _lstrlen,check_dir + add eax,check_dir +@@: + dec eax + cmp byte [eax],'/' + jne @b + mov byte [eax+1],0 + + mcall 70,read_folder + ret +;--------------------------------------------------------------------- +;--- Draw window --------------------------------------------------- +;--------------------------------------------------------------------- +draw_window: + mcall 48,3,sc,sizeof.system_colors + mcall 12,1 + + mcall 48,4 + mov ecx,200*65536+111 + add ecx,eax + + mov edx,[sc.work] + or edx,0x34000000 + mcall 0,<200,400>,, , ,title + +;buttons + mcall 8,<198,70>,<68,20>,1,[sc.work_button] + inc edx + mcall ,<125,70>, + inc edx + mcall ,<300,75>,<30,20> + +;labels + mov ecx,[sc.work_button_text] + or ecx,0x80000000 + mcall 4,<134,75>, ,save + mcall ,<215,75>, ,cancel + mcall ,<315,36>, ,select + + m2m dword [frame_data.font_backgr_color],[sc.work] + m2m dword [frame_data.font_color],[sc.work_text] + m2m dword [frame_data.ext_fr_col],[sc.work_graph] + m2m dword [frame_data.int_fr_col],[sc.work_light] + + push dword frame_data + call [Frame_draw] + + call draw_PathShow + call print_msg + + mcall 12,2 + ret + +;--------------------------------------------------------------------- +;--- Data ---------------------------------------------------------- +;--------------------------------------------------------------------- +if lang eq ru_RU +save db 'Сохранить',0 +cancel db 'Отмена',0 +select db 'Изменить',0 +label1 db ' Образ будет сохранен в: ',0 +label2 db 'Сохранение образа...',0 +ok db 'RAM-диск сохранен успешно ',0 +error1 db 'не определена база и/или раздел жёсткого диска',0 +error2 db 'функция не поддерживается для данной файловой системы',0 +error3 db 'неизвестная файловая система',0 +error4 db 'странно... Ошибка 4',0 +error5 db 'несуществующий путь',0 +error6 db 'файл закончился',0 +error7 db 'указатель вне памяти приложения',0 +error8 db 'диск заполнен',0 +error9 db 'файловая структура разрушена',0 +error10 db 'доступ запрещён',0 +error11 db 'Ошибка устройства',0 +aUnknownError db 'Неизвестная ошибка',0 +rdError db 'Нельзя сохранять образ в самого себя',0 +error db 'Ошибка: ',0 +;--------------------------------------------------------------------- +else if lang eq et_EE +save db 'Salvesta',0 +cancel db 'Cancel',0 +select db ' Valige',0 +label1 db ' RAM-drive will be saved as: ',0 +label2 db 'Saving in progress...',0 +ok db 'RAM-ketas salvestatud edukalt ',0 +error1 db 'hard disk base and/or partition not defined',0 +error2 db 'the file system does not support this function',0 +error3 db 'tundmatu failis№steem',0 +error4 db 'strange... Error 4',0 +error5 db 'vigane teekond',0 +error6 db 'end of file',0 +error7 db 'pointer is outside of application memory',0 +error8 db 'ketas tфis',0 +error9 db 'FAT tabel vigane',0 +error10 db 'juurdepффs keelatud',0 +error11 db 'Seadme viga',0 +aUnknownError db 'Tundmatu viga',0 +rdError db "You can't save image on itself",0 +error db 'Viga: ',0 +;--------------------------------------------------------------------- +else if lang eq it_IT +save db ' Salva',0 +cancel db 'Cancel',0 +select db 'Seleziona',0 +label1 db ' RAM-drive will be saved as: ',0 +label2 db 'Saving in progress...',0 +ok db 'Il RAM-drivet e stato salvato ',0 +error1 db 'hard disk base and/or partition not defined',0 +error2 db 'the file system does not support this function',0 +error3 db 'filesystem sconosciuto',0 +error4 db 'strange... Error 4',0 +error5 db 'percorso non valido',0 +error6 db 'end of file',0 +error7 db 'pointer is outside of application memory',0 +error8 db 'disco pieno',0 +error9 db 'tabella FAT corrotta',0 +error10 db 'accesso negato',0 +error11 db 'Errore di device',0 +aUnknownError db 'Errore sconosciuto',0 +rdError db "You can't save image on itself",0 +error db 'Errore: ',0 +;--------------------------------------------------------------------- +else ; Default to en_US +save db ' Save',0 +cancel db 'Cancel',0 +select db ' Select',0 +label1 db ' RAM-drive will be saved as: ',0 +label2 db 'Saving in progress...',0 +ok db 'RAM-drive was saved successfully ',0 +error1 db 'hard disk base and/or partition not defined',0 +error2 db 'the file system does not support this function',0 +error3 db 'unknown file system',0 +error4 db 'strange... Error 4',0 +error5 db 'incorrect path',0 +error6 db 'end of file',0 +error7 db 'pointer is outside of application memory',0 +error8 db 'disk is full',0 +error9 db 'file structure is destroyed',0 +error10 db 'access denied',0 +error11 db 'Device error',0 +aUnknownError db 'Unknown error',0 +rdError db "You can't save image on itself",0 +error db 'Error: ',0 +end if +;--------------------------------------------------------------------- +ntf_start db '"RDSave\n', 0 +ntf_end_o db '" -tO', 0 +ntf_end_e db '" -tE', 0 +;--------------------------------------------------------------------- +errors: + dd ok + dd error1 + dd error2 + dd error3 + dd error4 + dd error5 + dd error6 + dd error7 + dd error8 + dd error9 + dd error10 + dd error11 +;--------------------------------------------------------------------- + +title db appname,version,0 + +;Lib_DATA +;Всегда соблюдать последовательность в имени. +system_dir_Boxlib db '/sys/lib/box_lib.obj',0 +system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 +system_dir_libini db '/sys/lib/libini.obj',0 +;--------------------------------------------------------------------- +l_libs_start: + +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 + +library03 l_libs system_dir_libini+9, library_path, system_dir_libini, \ + libini_import + +end_l_libs: +;--------------------------------------------------------------------- +OpenDialog_data: +.type dd 1 ; Save +.procinfo dd procinfo ;+4 +.com_area_name dd communication_area_name ;+8 +.com_area dd 0 ;+12 +.opendir_path dd temp_dir_path ;+16 +.dir_default_path dd communication_area_default_path ;+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 200 ;+50 ; Window X position +.y: +.y_size dw 320 ;+52 ; Window y size +.y_start dw 120 ;+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_path: + db '/',0 + +Filter: +dd Filter.end - Filter +.1: +db 'IMG',0 +db 'IMA',0 +.end: +db 0 + +start_temp_file_name: db 'kolibri.img',0 + +;--------------------------------------------------------------------- +align 4 +ProcLib_import: +OpenDialog_Init dd aOpenDialog_Init +OpenDialog_Start dd aOpenDialog_Start + dd 0,0 +aOpenDialog_Init db 'OpenDialog_init',0 +aOpenDialog_Start db 'OpenDialog_start',0 +;--------------------------------------------------------------------- +PathShow_data_1: +.type dd 0 ;+0 +.start_y dw 36 ;+4 +.start_x dw 20 ;+6 +.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 +.area_size_x dw 270 ;+10 +.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable +.background_flag dd 0 ;+16 +.font_color dd 0 ;+20 +.background_color dd 0 ;+24 +.text_pointer dd fname_buf ;+28 +.work_area_pointer dd text_work_area ;+32 +.temp_text_length dd 0 ;+36 +;--------------------------------------------------------------------- +align 4 +Box_lib_import: +;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 + +PathShow_prepare dd sz_PathShow_prepare +PathShow_draw dd sz_PathShow_draw +Frame_draw dd sz_Frame_draw + dd 0,0 + +;aEdit_box_draw db 'edit_box_draw',0 +;aEdit_box_key db 'edit_box_key',0 +;aEdit_box_mouse db 'edit_box_mouse',0 +;aVersion_ed db 'version_ed',0 + +sz_PathShow_prepare db 'PathShow_prepare',0 +sz_PathShow_draw db 'PathShow_draw',0 + +sz_Frame_draw db 'frame_draw',0 +;szVersion_frame db 'version_frame',0 +;--------------------------------------------------------------------- +frame_data: +.type dd 0 ;+0 +.x: +.x_size dw 374 ;+4 +.x_start dw 8 ;+6 +.y: +.y_size dw 45 ;+8 +.y_start dw 17 ;+10 +.ext_fr_col dd 0x888888 ;+12 +.int_fr_col dd 0xffffff ;+16 +.draw_text_flag dd 1 ;+20 +.text_pointer dd label1 ;+24 +.text_position dd 0 ;+28 +.font_number dd 0 ;+32 +.font_size_y dd 9 ;+36 +.font_color dd 0x0 ;+40 +.font_backgr_color dd 0xdddddd ;+44 +;--------------------------------------------------------------------- +align 4 +libini_import: +init_lib dd a_init +ini_get_str dd aini_get_str +ini_get_int dd aini_get_int +ini_set_str dd aini_set_str +ini_set_int dd aini_set_int + dd 0,0 +a_init db 'lib_init',0 +aini_get_str db 'ini_get_str',0 +aini_get_int db 'ini_get_int',0 +aini_set_str db 'ini_set_str',0 +aini_set_int db 'ini_set_int',0 +;--------------------------------------------------------------------- + +ini_file db '/sys/settings/app.ini',0 +ini_section db 'RDSave',0 +apath db 'path',0 +aautoclose db 'autoclose',0 +path db '/hd2/1/kolibri.img',0 +;--------------------------------------------------------------------- +is_notify: + dd 7, 0, ok, 0, 0 + db "/sys/@notify", 0 + +read_folder: +.subfunction dd 1 +.start dd 0 +.flags dd 0 +.size dd 1 +.return dd folder_data + db 0 +.name: dd check_dir + +param dd 0 +hidden dd 0 +;--------------------------------------------------------------------- +IM_END: +;--------------------------------------------------------------------- +align 4 +PARAMS: + rb 256 +ini_path: + rb 4096 +check_dir: + rb 4096 + +sc system_colors + +autoclose rd 1 + +color rd 1 + +msg: + rb 1024 + +ntf_msg: + rb 1024 + +folder_data: + rb 304*32+32 ; 9 Kb +;--------------------------------------------------------------------- +cur_dir_path: + rb 4096 +;--------------------------------------------------------------------- +library_path: + rb 4096 +;--------------------------------------------------------------------- +temp_dir_path: + rb 4096 +;--------------------------------------------------------------------- +fname_buf: + rb 4096 +;--------------------------------------------------------------------- +procinfo: + rb 1024 +;--------------------------------------------------------------------- +filename_area: + rb 256 +;--------------------------------------------------------------------- +text_work_area: + rb 1024 +;--------------------------------------------------------------------- +align 32 + rb 4096 +stacktop: +I_END: diff --git a/programs/system/run/trunk/run.asm b/programs/system/run/trunk/run.asm index b81fd3901e..a4046c6443 100644 --- a/programs/system/run/trunk/run.asm +++ b/programs/system/run/trunk/run.asm @@ -7,7 +7,7 @@ include '../../../develop/libraries/box_lib/trunk/box_lib.mac' include 'txtbut.inc' include '../../../macros.inc' include 'run.mac' -include 'lang.inc' +include 'lang.inc' ; Language support for locales: ru_RU (CP866), it_IT, en_US. use32 org 0 db 'MENUET01' @@ -263,7 +263,7 @@ else if lang eq it_IT run_ok db 'Il programma eseguito correttamente',0 grab_text db 'RUN',0 run_but_text db 'Esegui',0 -else +else ; Default to en_US hello db 'Enter full path to file and press ',0 bad_file_sys db 'Unknown file system',0 ; 3 file_not_find db 'File not found',0 ; 5 diff --git a/programs/system/skincfg/trunk/idata.inc b/programs/system/skincfg/trunk/idata.inc index 4992bc9716..245d8c0c38 100644 --- a/programs/system/skincfg/trunk/idata.inc +++ b/programs/system/skincfg/trunk/idata.inc @@ -1,387 +1,385 @@ -;----------------------------------------------------------------------------- -text: -if lang eq ru_RU - db ' Unused1 ' - db ' Unused2 ' - db ' 3d темная сторона ' - db ' 3d светлая сторона ' - db ' Заголовок окна ' - db ' Фон окна ' - db ' Кнопка ' - db ' Текст на кнопке ' - db ' Текст в окне ' - db ' Графика в окне ' - db 'x' -else if lang eq et_EE - db ' Unused1 ' - db ' Unused2 ' - db ' 3d dark ' - db ' 3d light ' - db ' Akna pealkiri ' - db ' Akna tЎЎpiirkond ' - db ' Akna tЎЎpiirkonna nupp ' - db ' Akna tЎЎpiirkonna nuppu tekst ' - db ' Akna tЎЎpiirkonna tekst ' - db ' Akna tЎЎpiirkonna graafika ' - db 'x' -else - db ' Unused1 ' - db ' Unused2 ' - db ' 3d dark ' - db ' 3d light ' - db ' Window title ' - db ' Window background ' - db ' Button ' - db ' Button text ' - db ' Window text ' - db ' Window graph ' - db 'x' -end if -;----------------------------------------------------------------------------- -if lang eq ru_RU - sz t1,'ЗАГРУЗИТЬ СОХРАНИТЬ ПРИМЕНИТЬ' -else if lang eq et_EE - sz t1,' LAADI SALVESTA KINNITA' -else - sz t1,' LOAD SAVE APPLY' -end if -;----------------------------------------------------------------------------- -if lang eq ru_RU - sz t2,'ЗАГРУЗИТЬ 3D ПЛОСКИЕ ПРИМЕНИТЬ' -else if lang eq et_EE - sz t2,' LAADI 3D LAME KINNITA' -else - sz t2,' LOAD 3D FLAT APPLY' -end if -;----------------------------------------------------------------------------- -select_dtp_text: -if lang eq ru_RU - db ' Выбор цветового оформления: ',0 -else if lang eq et_EE - db ' Valik varviskeeme: ',0 -else - db ' Choice of color schemes: ',0 -end if -;----------------------------------------------------------------------------- -select_skin_text: -if lang eq ru_RU - db ' Выбор скина: ',0 -else if lang eq et_EE - db ' Valik nahad: ',0 -else - db ' Choice of skins: ',0 -end if -;----------------------------------------------------------------------------- -if lang eq ru_RU - sz caption_text,'Заголовок' -else if lang eq et_EE - sz caption_text,'Pealkiri' -else - sz caption_text,'Caption' -end if -;----------------------------------------------------------------------------- -sz close_text,'x' -;----------------------------------------------------------------------------- -if lang eq ru_RU - sz window_text,'Текст в окне' -else if lang eq et_EE - sz window_text,'Akna tekst' -else - sz window_text,'Window text' -end if -;----------------------------------------------------------------------------- -if lang eq ru_RU - sz button_text,'Текст на кнопке' -else if lang eq et_EE - sz button_text,'Nupu tekst' -else - sz button_text,'Button text' -end if -;----------------------------------------------------------------------------- -if lang eq ru_RU - title db 'Настройка окон',0 -else if lang eq et_EE - title db 'Akna seaded',0 -else if lang eq it_IT - title db 'Impostazioni',0 -else - title db 'Windows settings',0 -end if -;--------------------------------------------------------------------- -LibIniImportTable: -library \ - libini, 'libini.obj' - -import libini, \ - ini_set_int ,'ini_set_int' - -aIni db '/sys/settings/system.ini',0 -aSectionSkn db 'style',0 -aButtonStyle db 'buttons_gradient',0 -;--------------------------------------------------------------------- -l_libs_start: - -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 - -end_l_libs: -;--------------------------------------------------------------------- -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 -OpenDialog_Start dd aOpenDialog_Start - -ColorDialog_Init dd aColorDialog_Init -ColorDialog_Start dd aColorDialog_Start -;OpenDialog__Version dd aOpenDialog_Version - dd 0 - dd 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 -;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 - -Frame_draw dd sz_Frame_draw -;Version_frame dd szVersion_frame - - dd 0,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_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 - -sz_Frame_draw db 'frame_draw',0 -;szVersion_frame db 'version_frame',0 -;--------------------------------------------------------------------- -PathShow_data_1: -.type dd 0 ;+0 -.start_y dw frame_1.y+19 ;+4 -.start_x dw frame_1.x+15 ;+6 -.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 -.area_size_x dw frame_1.w-28 ;+10 -.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable -.background_flag dd 0 ;+16 -.font_color dd 0x0 ;+20 -.background_color dd 0x0 ;+24 -.text_pointer dd dtp_name ;+28 -.work_area_pointer dd text_work_area ;+32 -.temp_text_length dd 0 ;+36 -;--------------------------------------------------------------------- -PathShow_data_2: -.type dd 0 ;+0 -.start_y dw frame_2.y+19 ;+4 -.start_x dw frame_2.x+15 ;+6 -.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 -.area_size_x dw frame_2.w-28 ;+10 -.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable -.background_flag dd 0 ;+16 -.font_color dd 0x0 ;+20 -.background_color dd 0x0 ;+24 -.text_pointer dd skin_info ;+28 -.work_area_pointer dd text_work_area2 ;+32 -.temp_text_length dd 0 ;+36 -;--------------------------------------------------------------------- -OpenDialog_data: -.type dd 0 -.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 dtp_name ;+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 - -OpenDialog_data2: -.type dd 0 -.procinfo dd procinfo ;+4 -.com_area_name dd communication_area_name2 ;+8 -.com_area dd 0 ;+12 -.opendir_pach dd temp_dir_pach2 ;+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 skin_info ;+36 -.filename_area dd filename_area2 ;+40 -.filter_area dd Filter2 -.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_name2: - db 'FFFFFFFF_open_dialog',0 - -communication_area_name: - db 'FFFFFFFF_open_dialog2',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 '/sys',0 - -Filter: - dd Filter.end - Filter -.1: - db 'DTP',0 -.end: - db 0 - -Filter2: - dd Filter.end - Filter -.1: - db 'SKN',0 -.end: - db 0 - -default_skin: - db '/sys/default.skn',0 -default_dtp: - db '/sys/default.dtp',0 -;--------------------------------------------------------------------- -ColorDialog_data: -.type dd 0 -.procinfo dd procinfo ;+4 -.com_area_name dd cd_communication_area_name ;+8 -.com_area dd 0 ;+12 -.start_path dd colordialog_path ;+16 -.draw_window dd draw_window ;+20 -.status dd 0 ;+24 -.x: -.x_size dw 510 ;+28 ; Window X size -.x_start dw 10 ;+30 ; Window X position -.y: -.y_size dw 310 ;+32 ; Window y size -.y_start dw 10 ;+34 ; Window Y position -.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 -colordialog_path: - db '/sys/colrdial',0 -;--------------------------------------------------------------------- -frame_data: -.type dd 0 ;+0 -.x: -.x_size dw 0 ;+4 -.x_start dw 0 ;+6 -.y: -.y_size dw 0 ;+8 -.y_start dw 0 ;+10 -.ext_fr_col dd 0x0 ;+12 -.int_fr_col dd 0xffffff ;+16 -.draw_text_flag dd 1 ;+20 -.text_pointer dd 0 ;+24 -.text_position dd 0 ;+28 -.font_number dd 1 ;+32 -.font_size_y dd 14 ;+36 -.font_color dd 0x0 ;+40 -.font_backgr_color dd 0xffffff ;+44 -;--------------------------------------------------------------------- -IncludeIGlobals + ; Language support for locales: ru_RU (CP866), et_EE, en_US. + +;----------------------------------------------------------------------------- +text: + db ' Unused1 ' + db ' Unused2 ' +if lang eq ru_RU + db ' 3D темная сторона ' + db ' 3D светлая сторона ' + db ' Заголовок окна ' + db ' Фон окна ' + db ' Кнопка ' + db ' Текст на кнопке ' + db ' Текст в окне ' + db ' Графика в окне ' + db 'x' +else if lang eq et_EE + db ' 3D dark ' + db ' 3D light ' + db ' Akna pealkiri ' + db ' Akna tЎЎpiirkond ' + db ' Akna tЎЎpiirkonna nupp ' + db ' Akna tЎЎpiirkonna nuppu tekst ' + db ' Akna tЎЎpiirkonna tekst ' + db ' Akna tЎЎpiirkonna graafika ' + db 'x' +else ; Default to en_US + db ' 3D dark ' + db ' 3D light ' + db ' Window title ' + db ' Window background ' + db ' Button ' + db ' Button text ' + db ' Window text ' + db ' Window graph ' + db 'x' +end if +;----------------------------------------------------------------------------- +if lang eq ru_RU + sz t1,'ЗАГРУЗИТЬ СОХРАНИТЬ ПРИМЕНИТЬ' +else if lang eq et_EE + sz t1,' LAADI SALVESTA KINNITA' +else ; Default to en_US + sz t1,' LOAD SAVE APPLY' +end if +;----------------------------------------------------------------------------- +if lang eq ru_RU + sz t2,'ЗАГРУЗИТЬ 3D ПЛОСКИЕ ПРИМЕНИТЬ' +else if lang eq et_EE + sz t2,' LAADI 3D LAME KINNITA' +else ; Default to en_US + sz t2,' LOAD 3D FLAT APPLY' +end if +;----------------------------------------------------------------------------- +select_dtp_text: +if lang eq ru_RU + db ' Выбор цветового оформления: ',0 +else if lang eq et_EE + db ' Valik varviskeeme: ',0 +else ; Default to en_US + db ' Choice of color schemes: ',0 +end if +;----------------------------------------------------------------------------- +select_skin_text: +if lang eq ru_RU + db ' Выбор скина: ',0 +else if lang eq et_EE + db ' Valik nahad: ',0 +else ; Default to en_US + db ' Choice of skins: ',0 +end if +;----------------------------------------------------------------------------- +if lang eq ru_RU + sz caption_text,'Заголовок' +else if lang eq et_EE + sz caption_text,'Pealkiri' +else ; Default to en_US + sz caption_text,'Caption' +end if +;----------------------------------------------------------------------------- +sz close_text,'x' +;----------------------------------------------------------------------------- +if lang eq ru_RU + sz window_text,'Текст в окне' +else if lang eq et_EE + sz window_text,'Akna tekst' +else ; Default to en_US + sz window_text,'Window text' +end if +;----------------------------------------------------------------------------- +if lang eq ru_RU + sz button_text,'Текст на кнопке' +else if lang eq et_EE + sz button_text,'Nupu tekst' +else ; Default to en_US + sz button_text,'Button text' +end if +;----------------------------------------------------------------------------- +if lang eq ru_RU + title db 'Настройка окон',0 +else if lang eq et_EE + title db 'Akna seaded',0 +else if lang eq it_IT + title db 'Impostazioni',0 +else ; Default to en_US + title db 'Windows settings',0 +end if +;--------------------------------------------------------------------- +LibIniImportTable: +library \ + libini, 'libini.obj' + +import libini, \ + ini_set_int ,'ini_set_int' + +aIni db '/sys/settings/system.ini',0 +aSectionSkn db 'style',0 +aButtonStyle db 'buttons_gradient',0 +;--------------------------------------------------------------------- +l_libs_start: + +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 + +end_l_libs: +;--------------------------------------------------------------------- +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 +OpenDialog_Start dd aOpenDialog_Start + +ColorDialog_Init dd aColorDialog_Init +ColorDialog_Start dd aColorDialog_Start +;OpenDialog__Version dd aOpenDialog_Version + dd 0 + dd 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 +;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 + +Frame_draw dd sz_Frame_draw +;Version_frame dd szVersion_frame + + dd 0,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_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 + +sz_Frame_draw db 'frame_draw',0 +;szVersion_frame db 'version_frame',0 +;--------------------------------------------------------------------- +PathShow_data_1: +.type dd 0 ;+0 +.start_y dw frame_1.y+19 ;+4 +.start_x dw frame_1.x+15 ;+6 +.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 +.area_size_x dw frame_1.w-28 ;+10 +.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable +.background_flag dd 0 ;+16 +.font_color dd 0x0 ;+20 +.background_color dd 0x0 ;+24 +.text_pointer dd dtp_name ;+28 +.work_area_pointer dd text_work_area ;+32 +.temp_text_length dd 0 ;+36 +;--------------------------------------------------------------------- +PathShow_data_2: +.type dd 0 ;+0 +.start_y dw frame_2.y+19 ;+4 +.start_x dw frame_2.x+15 ;+6 +.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 +.area_size_x dw frame_2.w-28 ;+10 +.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable +.background_flag dd 0 ;+16 +.font_color dd 0x0 ;+20 +.background_color dd 0x0 ;+24 +.text_pointer dd skin_info ;+28 +.work_area_pointer dd text_work_area2 ;+32 +.temp_text_length dd 0 ;+36 +;--------------------------------------------------------------------- +OpenDialog_data: +.type dd 0 +.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 dtp_name ;+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 + +OpenDialog_data2: +.type dd 0 +.procinfo dd procinfo ;+4 +.com_area_name dd communication_area_name2 ;+8 +.com_area dd 0 ;+12 +.opendir_pach dd temp_dir_pach2 ;+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 skin_info ;+36 +.filename_area dd filename_area2 ;+40 +.filter_area dd Filter2 +.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_name2: + db 'FFFFFFFF_open_dialog',0 + +communication_area_name: + db 'FFFFFFFF_open_dialog2',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 '/sys',0 + +Filter: + dd Filter.end - Filter +.1: + db 'DTP',0 +.end: + db 0 + +Filter2: + dd Filter.end - Filter +.1: + db 'SKN',0 +.end: + db 0 + +default_skin: + db '/sys/default.skn',0 +default_dtp: + db '/sys/default.dtp',0 +;--------------------------------------------------------------------- +ColorDialog_data: +.type dd 0 +.procinfo dd procinfo ;+4 +.com_area_name dd cd_communication_area_name ;+8 +.com_area dd 0 ;+12 +.start_path dd colordialog_path ;+16 +.draw_window dd draw_window ;+20 +.status dd 0 ;+24 +.x: +.x_size dw 510 ;+28 ; Window X size +.x_start dw 10 ;+30 ; Window X position +.y: +.y_size dw 310 ;+32 ; Window y size +.y_start dw 10 ;+34 ; Window Y position +.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 +colordialog_path: + db '/sys/colrdial',0 +;--------------------------------------------------------------------- +frame_data: +.type dd 0 ;+0 +.x: +.x_size dw 0 ;+4 +.x_start dw 0 ;+6 +.y: +.y_size dw 0 ;+8 +.y_start dw 0 ;+10 +.ext_fr_col dd 0x0 ;+12 +.int_fr_col dd 0xffffff ;+16 +.draw_text_flag dd 1 ;+20 +.text_pointer dd 0 ;+24 +.text_position dd 0 ;+28 +.font_number dd 1 ;+32 +.font_size_y dd 14 ;+36 +.font_color dd 0x0 ;+40 +.font_backgr_color dd 0xffffff ;+44 +;--------------------------------------------------------------------- +IncludeIGlobals diff --git a/programs/system/skincfg/trunk/skincfg.asm b/programs/system/skincfg/trunk/skincfg.asm index c3e580407a..5a2f14eb50 100644 --- a/programs/system/skincfg/trunk/skincfg.asm +++ b/programs/system/skincfg/trunk/skincfg.asm @@ -26,7 +26,7 @@ M01header.params: dd app_param ; parameters dd cur_dir_path ; path to file - + include 'lang.inc' include '../../../proc32.inc' include '../../../config.inc' ;for nightbuild @@ -85,7 +85,7 @@ frame_1: .y = area.y + area.height + 20 .w = area.w + 217 .height = 65 -;-------------------------------------- +;-------------------------------------- frame_2: .x = frame_1.x .y = frame_1.y + frame_1.height + 20 @@ -99,11 +99,11 @@ win: START: ; start of execution ;--------------------------------------------------------------------- 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 ;if return code =-1 then exit, else nornary work @@ -125,7 +125,7 @@ load_libraries l_libs_start,end_l_libs cmp ecx, '.dtp' je load_dtp_from_param jmp no_param - + load_dtp_from_param: stdcall string.copy, [M01header.params], dtp_name call load_dtp_file.1 @@ -139,8 +139,8 @@ load_skin_from_param: no_param: mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,color_table,4*10 ; get current colors call load_skin_file.2 - -skin_path_ready: + +skin_path_ready: ;--------------------------------------------------------------------- ;OpenDialog initialisation push dword OpenDialog_data @@ -156,13 +156,13 @@ skin_path_ready: ; prepare for PathShow push dword PathShow_data_1 call [PathShow_prepare] - + push dword PathShow_data_2 call [PathShow_prepare] -;--------------------------------------------------------------------- +;--------------------------------------------------------------------- red: call draw_window ; at first, draw the window -;--------------------------------------------------------------------- +;--------------------------------------------------------------------- still: mcall SF_WAIT_EVENT @@ -250,19 +250,19 @@ no_apply_skin: cmp ah,41 jg no_new_colour - -;--------------------------------------------------------------------- + +;--------------------------------------------------------------------- .start_ColorDialog: push dword ColorDialog_data call [ColorDialog_Start] ; 2 - use another method/not found program cmp [ColorDialog_data.status],2 je still -; 1 - OK, color selected +; 1 - OK, color selected cmp [ColorDialog_data.status],1 jne still -;--------------------------------------------------------------------- - +;--------------------------------------------------------------------- + shr eax,8 sub eax,31 shl eax,2 @@ -449,9 +449,9 @@ newcol: add bx,4 sub ecx,2 shl 16 add cx,4 - + mov [frame_data.x],ebx - mov [frame_data.y],ecx + mov [frame_data.y],ecx push dword frame_data call [Frame_draw] @@ -473,7 +473,7 @@ draw_PathShow: ; draw for PathShow push dword PathShow_data_1 call [PathShow_draw] - + push dword PathShow_data_2 call [PathShow_draw] popa @@ -498,7 +498,7 @@ draw_window: mcall ,<110, win.w>,,,,title mcall SF_THREAD_INFO,procinfo,-1 - + mov eax,[procinfo+70] ;status of window test eax,100b jne .end @@ -527,8 +527,8 @@ draw_window: mcall SF_DEFINE_BUTTON,,,16 ; button 17 ; select color DTP button text mcall SF_DRAW_TEXT,,[w_work_button_text],t1,t1.size -;----------------------------------- -; select skin frame +;----------------------------------- +; select skin frame ; LOAD SKIN BUTTON ; button 17 mcall SF_DEFINE_BUTTON,,,17,[w_work_button] ; 3D @@ -543,7 +543,7 @@ draw_window: mcall ,,,18 ; button 18 ; select skin button text mcall SF_DRAW_TEXT,,[w_work_button_text],t2,t2.size -;----------------------------------- +;----------------------------------- call draw_button_row call draw_button_row_of_texts call draw_colours @@ -556,7 +556,7 @@ draw_window: mov eax,[w_work_text] mov [frame_data.font_color],eax mov [frame_data.draw_text_flag],dword 1 - + push dword frame_data call [Frame_draw] ;----------------------------------- diff --git a/programs/system/taskbar/trunk/TASKBAR.ASM b/programs/system/taskbar/trunk/TASKBAR.ASM index 88bcfb663f..e4fe7f9367 100644 --- a/programs/system/taskbar/trunk/TASKBAR.ASM +++ b/programs/system/taskbar/trunk/TASKBAR.ASM @@ -1,1178 +1,1178 @@ -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -; ; -; TASK PANEL for KolibriOS - Compile with fasm ; -; ; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;------------------------------------------------------------------------------ -; version: 2.25 -; last update: 14/07/2013 -; changed by: Marat Zakiyanov aka Mario79, aka Mario -; changes: Reinstall screen work area after change screen resolution -;------------------------------------------------------------------------------ -; version: 2.24 -; last update: 16/06/2013 -; changed by: hidnplayr -; changes: Changed keymap hotkeys to only use left alt -; (Right alt has special function on some keyboards) -;------------------------------------------------------------------------------ -; version: 2.23 -; last update: 26/04/2012 -; changed by: Marat Zakiyanov aka Mario79, aka Mario -; changes: Using new f18.23 - minimize all windows -;------------------------------------------------------------------------------ -; version: 2.22 -; last update: 20/04/2012 -; changed by: Marat Zakiyanov aka Mario79, aka Mario -; changes: Activation mechanism when trying to run an existing appl. -; Forced redrawing the background after the clean desktop (Win+D) -;------------------------------------------------------------------------------ -; version: 2.2 -; last update: 19/04/2012 -; changed by: Marat Zakiyanov aka Mario79, aka Mario -; changes: Support PrintScreen for SCRSHOOT. -; Path to run applications from the INI file. -; Algorithm anti-duplication of applications for run with hotkey. -; Added color selection for the Alt+Tab. -; Alt+Ctrl+ArrowLeft - Page list next -; Alt+Ctrl+ArrowRight - Page list previous -;------------------------------------------------------------------------------ -; version: 2.1 -; last update: 18/04/2012 -; changed by: Marat Zakiyanov aka Mario79, aka Mario -; changes: Added color selection for the text. -; Show "change page list" only if the applications -; does not fit in the panel. -; Display file names up to 11 char previously displ. only 8 char. -;------------------------------------------------------------------------------ -; version: 2.0 -; last update: 17/04/2012 -; changed by: Marat Zakiyanov aka Mario79, aka Mario -; changes: New logic of switching windows (turnoff/restore) -; New logic of button "clear desktop". -; Win+D (restore/clear desktop), Win+R (start RUN application). -; Using the library LibINI to set the parameters. -; New style of panel. Start application Menu with boot options. -; two versions of the location of the panel - -; the bottom of the desktop and on top of the desktop. -;------------------------------------------------------------------------------ -; last update: 31/03/2012 -; changed by: Marat Zakiyanov aka Mario79, aka Mario -; changes: The program uses only 20 Kb memory is now. -; Code optimizing and refactoring. -;------------------------------------------------------------------------------ -format binary as "" - - use32 - org 0x0 - db 'MENUET01' ; 8 byte id - dd 0x01 ; header version - dd START ; program start - dd IM_END ; program image size - dd I_END ; reguired amount of memory - 10 Kb - dd stack_top ; esp - dd 0x0 ; boot parameters - dd path ; application pach -;------------------------------------------------------------------------------ -include 'lang.inc' -include '../../../macros.inc' -include '../../../proc32.inc' -;include '../../../debug.inc' -include 'MOI.INC' ;раскладки клавиатуры -include '../../../develop/libraries/box_lib/load_lib.mac' - @use_library ;use load lib macros -;------------------------------------------------------------------------------ -caps_lock_check fix 1 -;------------------------------------------------------------------------------ -time_bgr_color = 0x66cc -;PANEL_HEIGHT = 18 -ML_SIZE = 10 -MR_SIZE = 10 -if lang eq et_EE -MENU_SIZE = 60 -else -MENU_SIZE = 50 -end if -CLD_SIZE = 20 -TAB_SIZE = 75 ;60 -TRAY_SIZE = 140 - -CLOCK_SIZE = 40 -CPU_USAGE_SIZE = 10 -CHLANG_SIZE = 20 -PAGE_LIST_SIZE = 36 -;------------------------------------------------------------------------------ -align 4 -handle_key: - mcall 18,7 - mov [active_process],eax - - mcall 2 - -; dps "panel key: " -; dph eax -; newline - - cmp al, 2 - jnz begin_1.ret - - mov ebx, exec_fileinfo - shr eax, 8 - cmp al, 0 - je prod - - mov [key_r],al - sub [key_r],3 - cmp [key_r],9 - jc alter - -if caps_lock_check - cmp al,58 ;CAPS LOCK DOWN - jne @f - - pusha - mcall 26,2,9 - mov ebx,eax - mov eax,2 - mov [draw_flag_certainly],1 - call draw_flag ; language - popa - ret -@@: -end if - - cmp al, 15 ; Alt+Tab DOWN - jz alt_tab_pressed - - cmp al, 88 ; Ctrl+Alt+F12 - jz start_end_application - - cmp al, 91 ; RWin DOWN - jz set_win_key_flag - - cmp al, 92 ; LWin DOWN - jz set_win_key_flag - - cmp al, 1 ; LCtrl+Esc DOWN - jz set_win_key_flag - - cmp al, 219 ; RWin UP - jz cut_win_key_flag ;start_menu_application - - cmp al, 220 ; LWin UP - jz cut_win_key_flag ;start_menu_application - - cmp al, 129 ; LCtrl+Esc UP - jz cut_win_key_flag ;start_menu_application - - cmp al, 62 ; Alt+F4 - jz kill_active_application - - cmp al, 205 - jz page_list_next - - cmp al, 203 - jz page_list_prev - - cmp al, 69 ; Alt+Shift+NumLock - jz start_mousemul_application - - cmp al, 19 ; Win+R - jz start_run_application - - cmp al, 32 ; Win+D - jz minimize_all_windows - - cmp al, 55 ; PrintScreen DOWN - jz start_PrintScreen_application -;-------------------------------------- -align 4 -prod: - cmp [current_alt_tab_app], -1 - jz @f - - test ah, 0x30 ; Alt+Tab UP - jz alt_tab_released -;-------------------------------------- -align 4 -@@: -; this is hotkey LCtrl+LShift ;or LShift+RShift - jmp karu -;------------------------------------------------------------------------------ -align 4 -set_win_key_flag: - mov [win_key_flag],1 - ret -;------------------------------------------------------------------------------ -align 4 -cut_win_key_flag: - xor eax,eax - mov [win_key_flag],al - xchg [start_menu_flag],al - test al,al - jz start_menu_application - ret -;------------------------------------------------------------------------------ -align 4 -change_key_lang: - mov dword [ebx+8], chlang - mcall 70 -;-------------------------------------- -align 4 -begin_1: - mov ecx,[active_process] - mcall 18, 3 - mcall 5, 25 -;-------------------------------------- -align 4 -.ret: - ret -;------------------------------------------------------------------------------ -align 4 -start_end_application: - mov esi,end_name - call algorithm_anti_duplication - test eax,eax - jz @f - - mcall 18,3,edi - ret -;-------------------------------------- -align 4 -@@: - mov ebx, exec_fileinfo - mov dword [ebx + 21],end_name - mcall 70 - ret -;------------------------------------------------------------------------------ -align 4 -start_mousemul_application: - mov esi,mousemul_name - call algorithm_anti_duplication - test eax,eax - jz @f - ret -;-------------------------------------- -align 4 -@@: - mov ebx, exec_fileinfo - mov dword [ebx + 21],mousemul_name - mcall 70 - ret -;------------------------------------------------------------------------------ -align 4 -kill_active_application: - mcall 72,1,3,1 - jmp begin_1.ret -;------------------------------------------------------------------------------ - -align 4 -start_menu_application: - call menu_handler - jmp begin_1.ret -;------------------------------------------------------------------------------ -align 4 -start_run_application: - cmp [win_key_flag],1 - je @f - ret -;-------------------------------------- -align 4 -@@: - mov [start_menu_flag],1 - - mov esi,run_name - call algorithm_anti_duplication - test eax,eax - jz @f - - mcall 18,3,edi - ret -;-------------------------------------- -align 4 -@@: - mov ebx, exec_fileinfo - mov dword [ebx + 21], run_name - mcall 70 - jmp begin_1.ret -;------------------------------------------------------------------------------ -align 4 -start_PrintScreen_application: - mov esi,printscreen_name - call algorithm_anti_duplication - test eax,eax - jz @f - mcall 18,3,edi - ret -;-------------------------------------- -align 4 -@@: - mov ebx, exec_fileinfo - mov dword [ebx + 21],printscreen_name - mov [ebx+8],dword bootparam_printscreen - mcall 70 - jmp begin_1.ret -;------------------------------------------------------------------------------ -align 4 -minimize_all_windows: - cmp [win_key_flag],1 - je @f - ret -;-------------------------------------- -align 4 -@@: - mov [start_menu_flag],1 - call clean_desktop - ret -;------------------------------------------------------------------------------ -align 4 -algorithm_anti_duplication: - cld -;-------------------------------------- -align 4 -@@: - lodsb - test al,al - jnz @r -;-------------------------------------- -align 4 -@@: - std - lodsb - cmp al,'/' - jnz @r - add esi,2 - mov edx,esi - - mov edi,1 -;-------------------------------------- -align 4 -@@: - inc edi - mov ecx,edi - mcall 9,procinfo_window_tabs - - cmp edi,eax - jg .apply_changes - - mov esi,edx - mov ecx,11 - add ebx,9 - cld -;-------------------------------------- -align 4 -.loop: - lodsb - inc ebx - cmp al,[ebx] - jne @r - - loop .loop - - mov eax,1 - ret -;-------------------------------------- -align 4 -.apply_changes: - xor eax,eax - ret -;------------------------------------------------------------------------------ -align 4 -page_list_next: - cmp [page_list],50 - je @f - - xor eax,eax - cmp [page_list_enable],eax - je @f - - inc [page_list] - mov [redraw_window_flag],1 -;-------------------------------------- -align 4 -@@: - jmp begin_1.ret -;------------------------------------------------------------------------------ -align 4 -page_list_prev: - xor eax,eax - cmp [page_list],eax - je @f - - cmp [page_list_enable],eax - je @f - - dec [page_list] - mov [redraw_window_flag],1 -;-------------------------------------- -align 4 -@@: - jmp begin_1.ret -;------------------------------------------------------------------------------ -align 4 -alt_tab_pressed: -; handle Alt+Tab and Alt+Shift+Tab - mov ebp, eax - cmp [current_alt_tab_app], -1 - jnz has_alt_tab_app -; заполняем таблицу приложений, подлежащих переключению - xor edx, edx - mov ebx, procinfo_window_tabs - mov ecx, 1 -;-------------------------------------- -align 4 -.fill: - inc ecx - mcall 9 - call need_window_tab - jz @f - - cmp edx, 256 - jz @f - - mov [alt_tab_list+edx*8], ecx - movzx esi, word [ebx+4] - mov [alt_tab_list+edx*8+4], esi - inc edx -;-------------------------------------- -align 4 -@@: - cmp ecx,eax - jb .fill - - mov [alt_tab_list_size], edx - test edx, edx - jz begin_1.ret - - mcall 66,4,0,0 ; ловим момент отпускания всех управляющих клавиш - test eax, eax - jnz begin_1.ret - - xor edx, edx - mov eax, [alt_tab_list+4] - xor ecx, ecx - inc ecx -;-------------------------------------- -align 4 -.findmax: - cmp [alt_tab_list+ecx*8+4], eax - jb @f - - mov edx, ecx - mov eax, [alt_tab_list+ecx*8+4] -;-------------------------------------- -align 4 -@@: - inc ecx - cmp ecx, [alt_tab_list_size] - jb .findmax - - mov [current_alt_tab_app], edx -;-------------------------------------- -align 4 -has_alt_tab_app: - mov eax, [current_alt_tab_app] - mov edx, [alt_tab_list+eax*8+4] ; slot - xor ecx, ecx - or eax, -1 - test ebp, 300h - jz .notshift - - or esi, -1 -;-------------------------------------- -align 4 -.loop1: - cmp [alt_tab_list+ecx*8+4], edx - jbe @f - - cmp [alt_tab_list+ecx*8+4], esi - jae @f - - mov eax, ecx - mov esi, [alt_tab_list+ecx*8+4] -;-------------------------------------- -align 4 -@@: - inc ecx - cmp ecx, [alt_tab_list_size] - jb .loop1 - - cmp eax, -1 - jnz .found - - xor edx, edx - xor ecx, ecx - jmp .loop1 -;-------------------------------------- -align 4 -.notshift: - xor esi, esi -;-------------------------------------- -align 4 -.loop2: - cmp [alt_tab_list+ecx*8+4], edx - jae @f - - cmp [alt_tab_list+ecx*8+4], esi - jbe @f - - mov eax, ecx - mov esi, [alt_tab_list+ecx*8+4] -;-------------------------------------- -align 4 -@@: - inc ecx - cmp ecx, [alt_tab_list_size] - jb .loop2 - - cmp eax, -1 - jnz .found - - or edx, -1 - xor ecx, ecx - jmp .loop2 -;-------------------------------------- -align 4 -.found: - mov [current_alt_tab_app], eax - push eax - xor edx, edx - div [max_applications] - mov [page_list], eax - mov edi, app_list - push edi - mov ecx, 20 - or eax, -1 - rep stosd - pop edi - pop ecx - sub ecx, edx -;-------------------------------------- -align 4 -@@: - cmp ecx, [alt_tab_list_size] - jae redraw_window_tabs - - mov eax, [alt_tab_list+ecx*8] - stosd - inc ecx - jmp @b -;-------------------------------------- -align 4 -alt_tab_released: - mcall 66,5,0,0 ; уже поймали, хватит :) - - or eax, -1 - xchg eax, [current_alt_tab_app] - mov ecx, [alt_tab_list+eax*8] - mcall 18,3 - - jmp redraw_window_tabs -;------------------------------------------------------------------------------ -align 4 -active_process dd 0 - -exit: - mcall -1 -;------------------------------------------------------------------------------ -START: - mcall 68,11 - mcall 66,1,1 - - mcall 9,process_info_buffer,-1 - mov ecx, [ebx + process_information.PID] ; PID - mcall 18,21 - mov [my_active_slot],eax ; WINDOW SLOT - - -load_libraries l_libs_start,end_l_libs - - test eax,eax - jnz exit - - call Get_ini - - mcall 66,4,0,2 ; LShift+RShift - mcall 66,,,33h ; LCtrl+LShift - mcall 66,,88,110h ; Alt+Ctrl+F12 - mcall 66,,91,0h ; RWin DOWN - mcall 66,,92 ; LWin DOWN - mcall 66,,219 ; RWin UP - mcall 66,,220 ; LWin UP - mcall 66,,19,0h ; Win+R DOWN - mcall 66,,32,0h ; Win+D DOWN - mcall 66,,55,10h ; Ctrl+PrintScreen DOWN - mcall 66,,1,30h ; LCtrl+Esc DOWN - mcall 66,,129 ; LCtrl+Esc UP - mcall 66,,62,300h ; Alt+F4 - mcall 66,,2 ; Alt+1 - mcall 66,,3 ; Alt+2 - mcall 66,,4 ; Alt+3 - mcall 66,,5 ; Alt+4 - mcall 66,,6 ; Alt+5 - mcall 66,,7 ; Alt+6 - mcall 66,,8 ; Alt+7 - mcall 66,,9 ; Alt+8 - mcall 66,,10 ; Alt+9 - mcall 66,,15 ; Alt+Tab DOWN - mcall 66,,15,301h ; Alt+Shift+Tab DOWN - mcall 66,,69 ; Alt+Shift+NumLock - -if caps_lock_check - xor edx,edx - mcall 66,4,58 -end if - mcall 14 - mov [screen_size],eax - - call set_work_ares_pf_screen - - mcall 9,process_info_buffer,-1 - mov ecx,[process_info_buffer.PID] - mcall 18,21 - mov [this_slot],eax - mov [max_slot],255 -;-------------------------------------- -align 4 -start_after_minimize: - call draw_window - call draw_running_applications - - mcall 23,30 - call load_ini -;------------------------------------------------------------------------------ -align 4 -still: - call draw_time - call draw_cpu_usage - call draw_running_applications - - mcall 18,7 ; check if active window changed - cmp eax, [last_active_window] - jz @f -; need_window_tab: -; in: ebx->process info -; out: ZF set <=> do not draw - mov ebx,[last_active_window] - mov [prev_active_window], ebx - mov [last_active_window], eax - - mov ecx, eax - mcall 9,process_info_buffer - - call need_window_tab - jnz .need_repaint - - mcall 9,process_info_buffer,[prev_active_window] - call need_window_tab - jz @f -;-------------------------------------- -align 4 -.need_repaint: - mov dword [active_window_changed], 1 -;-------------------------------------- -align 4 -@@: - mcall 23,20 - - push eax - mcall 18,7 - cmp [my_active_slot],eax - je @f - - mov [current_active_slot],eax -;-------------------------------------- -align 4 -@@: - pop eax - - cmp eax,1 ; redraw ? - jz red - - push eax - mov eax,[redraw_window_flag] - test eax,eax - jz @f - - call draw_window -;-------------------------------------- -align 4 -@@: - pop eax - - cmp eax,2 - jnz @f - call handle_key - jmp .key -;-------------------------------------- -align 4 -@@: - cmp eax,3 ; button ? - jz button -;-------------------------------------- -align 4 -.key: - cmp dword [active_window_changed], 0 - jnz red_active - - call draw_flag ; language - jmp still -;------------------------------------------------------------------------------ -align 4 -set_work_ares_pf_screen: -;eax = [xsize]*65536 + [ysize] - mov ecx,eax - shr ecx,16 - and eax,0xFFFF - cmp [place_attachment],1 - je @f - - ror eax,16 - add eax,[height] - rol eax,16 - mov edx,eax - jmp .selected -;-------------------------------------- -align 4 -@@: - sub eax,[height] - mov edx, eax -;-------------------------------------- -align 4 -.selected: - mcall 48,6 - ret -;------------------------------------------------------------------------------ -align 4 -red_active: -red: - mov dword [active_window_changed], 0 - - mcall 14 - movzx ecx,ax - mov edx,eax - shr edx,16 - cmp [screen_size.height],ax - jne @f - - rol eax,16 - cmp [screen_size.width],ax - je .lp1 - - rol eax,16 -;-------------------------------------- -align 4 -@@: - mov [screen_size],eax - - push ecx edx - call set_work_ares_pf_screen - pop edx ecx - - sub ecx,[height] - mcall 67,0,,,[height] -;-------------------------------------- -align 4 -.lp1: - call draw_window - jmp still -;------------------------------------------------------------------------------ -align 4 -button: - mcall 17 - test eax,0xfffffe00 ; is it close button? (signal from @taskbar) - jz still ; if so - wait for another event, because @taskbar shouldn't be closed - - cmp al, 0 - jnz right_mouse - - cmp ah,50 - jb no_activate - cmp ah,70 - jg no_activate - - movzx ecx,byte ah - sub ecx,52 - shl ecx,2 - - mov ecx,[app_list+ecx] - - mcall 9,process_info_buffer - - test [ebx + process_information.wnd_state], byte 10b ; window is minimized to panel - jnz @f - - cmp ecx,[current_active_slot] - je .turn_off -;-------------------------------------- -align 4 -@@: - mcall 18,3, - jmp .task_switching -;-------------------------------------- -align 4 -.turn_off: - mov edx,ecx - mcall 18,22,0 -;-------------------------------------- -align 4 -.task_switching: - mcall 68,1 - jmp still -;------------------------------------------------------------------------------ -align 4 -right_mouse: - cmp ah,50 - jb still - - cmp ah,70 - jg still - - movzx ecx,byte ah - sub ecx,52 - - cmp ecx, [app_tab_count] - jge still - - shl ecx,2 - mcall 37,0 - mov ebx, eax - shr eax, 16 - mov [x_coord], ax - and ebx, 0xFFFF - mov [y_coord], bx - - mov ecx,[app_list+ecx] ; ecx->selected app.slot - mov [n_slot], ecx - mcall 9,procinfo_for_detect - - mcall 51,1,context_menu_start,ctx_menu_stack - - mov [ctx_menu_PID], eax - jmp still -;------------------------------------------------------------------------------ -align 4 -no_activate: - cmp ah,101 ; minimize to left - je left_button - - cmp ah,102 ; minimize to right - je right_button - - cmp ah, 103 - je clean_desktop_1 ; minimize all windows - - cmp ah,byte 1 ; start/terminate menu - jnz noselect - - call menu_handler - - jmp still -;-------------------------------------- -align 4 -clean_desktop_1: - call clean_desktop - jmp still -;-------------------------------------- -align 4 -noselect: - mov ebx, exec_fileinfo - cmp ah,byte 2 ; start calendar - jnz noid15 ;noclock - - mov esi,calendar_name - call algorithm_anti_duplication - test eax,eax - jz @f - - mcall 18,2,edi - jmp still -;-------------------------------------- -align 4 -@@: - mov ebx, exec_fileinfo - mov dword [ebx+21], calendar_name - mcall 70 - jmp still -;-------------------------------------- -align 4 -noid15: - cmp ah,16 - jne noid16 - - call karu - call draw_flag ; language - jmp still -;-------------------------------------- -align 4 -noid16: - cmp ah,18 - jne noid18 - - mov esi,sysmeter_name - call algorithm_anti_duplication - test eax,eax - jz @f - - mcall 18,2,edi - jmp still -;-------------------------------------- -align 4 -@@: - mov ebx, exec_fileinfo - mov dword [ebx+21], sysmeter_name - mcall 70 - jmp still -;-------------------------------------- -align 4 -noid18: - cmp ah,21 - jnz noid21 - - cmp [page_list],50 - jnc still - inc [page_list] - jmp red -;-------------------------------------- -align 4 -noid21: - cmp ah,22 - jnz still - - cmp [page_list],0 - je still - - dec [page_list] - jmp red -;------------------------------------------------------------------------------ -align 4 -restore_desktop: - mcall 9,process_info_buffer,-1 - mov [max_slot], eax - mov ecx, 2 - mov edx, 2 -;-------------------------------------- -align 4 -@@: - mcall 18, 22 - inc edx - cmp edx, [max_slot] - jbe @b - ret -;------------------------------------------------------------------------------ -align 4 -clean_desktop: - mcall 18,23 - test eax,eax - jnz @f - call restore_desktop -;-------------------------------------- -align 4 -@@: - ret -;------------------------------------------------------------------------------ -align 4 -conversion_HEX_to_ASCII: - ror eax,12 - mov ecx,4 -;-------------------------------------- -align 4 -.loop: - mov bl,al - rol eax,4 - and bl,0xf - cmp bl,0xA ; check for ABCDEF - jae @f - - add bl,0x30 ; 0-9 - jmp .store -;-------------------------------------- -align 4 -@@: - add bl,0x57 ; A-F -;-------------------------------------- -align 4 -.store: -; dps "param_store: " - mov [edi],bl - inc edi - dec ecx - jnz .loop - ret -;------------------------------------------------------------------------------ -align 4 -menu_handler: - mov edi,bootparam - - mov eax,[menu_button_x.start] - call conversion_HEX_to_ASCII - - mov eax,[menu_button_x.size] - call conversion_HEX_to_ASCII - - mov eax,[menu_button_y.start] - call conversion_HEX_to_ASCII - - mov eax,[menu_button_y.size] - call conversion_HEX_to_ASCII - - mov eax,[height] - call conversion_HEX_to_ASCII - - mov eax,[place_attachment] - call conversion_HEX_to_ASCII - - xor eax,eax ; terminator for boot parameters string - stosd - - mov ebx, exec_fileinfo - mov [ebx+21],dword menu_name - mov [ebx+8],dword bootparam - mcall 70 - mov [ebx+8],dword 0 - ret -;------------------------------------------------------------------------------ -align 4 -draw_small_right: - pusha - mcall 12,1 - - xor eax,eax - mov edx,[wcolor] - mov esi,edx - mov edi,edx - or edx, 0x01000000 - mcall - - xor ecx,ecx - mov cx,[height] - mcall 8,<0,10>,,1,[wcolor] - - mov ebx,2*65536 ;+6 - mov bx,[height] - shr bx,1 - sub bx,3 - mov edx,[wcolor] - mov eax,COLOR_CHANGE_MAGNITUDE_2 - call add_color_change_magnitude - mov ecx,edx - mcall 4,,,hidetext,1 - - mcall 12,2 - popa - ret -;------------------------------------------------------------------------------ -align 4 -draw_small_left: - pusha - mcall 12,1 - - xor eax,eax - mov edx,[wcolor] - mov esi,edx - mov edi,edx - or edx, 0x01000000 - mcall - - xor ecx,ecx - mov cx,[height] - mcall 8,<0,9>,,1,[wcolor] - - mov ebx,3*65536 ;+6 - mov bx,[height] - shr bx,1 - sub bx,3 - mov edx,[wcolor] - mov eax,COLOR_CHANGE_MAGNITUDE_2 - call add_color_change_magnitude - mov ecx,edx - mcall 4,,,hidetext+1,1 - - mcall 12,2 - popa - ret -;------------------------------------------------------------------------------ -align 4 -right_button: - mov [small_draw],dword draw_small_right - - mcall 14 - - shr eax, 16 - mov ebx, eax - mov ecx, -1 - mov edx, 9 - sub ebx, edx - mov esi, -1 - mcall 67 - - call draw_small_right - jmp small_wait -;------------------------------------------------------------------------------ -align 4 -left_button: - mov [small_draw],dword draw_small_left - - xor ebx,ebx - mcall 67,,-1,9,-1 - - call draw_small_left -;-------------------------------------- -align 4 -small_wait: - mcall 10 - cmp eax,1 - jne no_win - - call [small_draw] - jmp small_wait -;-------------------------------------- -align 4 -no_win: - cmp eax,2 - jne no_key - - call handle_key - jmp small_wait -;-------------------------------------- -align 4 -no_key: - mcall 17 - cmp ah,1 - jne no_full - - mcall 14 ; get screen max x & max y - - mov edx, eax - shr edx, 16 - xor ebx, ebx - mcall 67,,-1,,-1 ; x0 y0 xs ys - - jmp still -;-------------------------------------- -align 4 -no_full: - call menu_handler - jmp small_wait -;------------------------------------------------------------------------------ -include 'libini.inc' -;------------------------------------------------------------------------------ -include '../../../dll.inc' -;------------------------------------------------------------------------------ -include 'drawappl.inc' -;------------------------------------------------------------------------------ -include 'drawbutt.inc' -;------------------------------------------------------------------------------ -include 'drawwind.inc' -;------------------------------------------------------------------------------ -include 'drawtray.inc' -;------------------------------------------------------------------------------ -include 'ctx_menu.asm' -;------------------------------------------------------------------------------ -include 'i_data.inc' -;------------------------------------------------------------------------------ -IM_END: -;------------------------------------------------------------------------------ -include 'u_data.inc' -;------------------------------------------------------------------------------ -I_END: -;------------------------------------------------------------------------------ +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; ; +; TASK PANEL for KolibriOS - Compile with fasm ; +; ; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;------------------------------------------------------------------------------ +; version: 2.25 +; last update: 14/07/2013 +; changed by: Marat Zakiyanov aka Mario79, aka Mario +; changes: Reinstall screen work area after change screen resolution +;------------------------------------------------------------------------------ +; version: 2.24 +; last update: 16/06/2013 +; changed by: hidnplayr +; changes: Changed keymap hotkeys to only use left alt +; (Right alt has special function on some keyboards) +;------------------------------------------------------------------------------ +; version: 2.23 +; last update: 26/04/2012 +; changed by: Marat Zakiyanov aka Mario79, aka Mario +; changes: Using new f18.23 - minimize all windows +;------------------------------------------------------------------------------ +; version: 2.22 +; last update: 20/04/2012 +; changed by: Marat Zakiyanov aka Mario79, aka Mario +; changes: Activation mechanism when trying to run an existing appl. +; Forced redrawing the background after the clean desktop (Win+D) +;------------------------------------------------------------------------------ +; version: 2.2 +; last update: 19/04/2012 +; changed by: Marat Zakiyanov aka Mario79, aka Mario +; changes: Support PrintScreen for SCRSHOOT. +; Path to run applications from the INI file. +; Algorithm anti-duplication of applications for run with hotkey. +; Added color selection for the Alt+Tab. +; Alt+Ctrl+ArrowLeft - Page list next +; Alt+Ctrl+ArrowRight - Page list previous +;------------------------------------------------------------------------------ +; version: 2.1 +; last update: 18/04/2012 +; changed by: Marat Zakiyanov aka Mario79, aka Mario +; changes: Added color selection for the text. +; Show "change page list" only if the applications +; does not fit in the panel. +; Display file names up to 11 char previously displ. only 8 char. +;------------------------------------------------------------------------------ +; version: 2.0 +; last update: 17/04/2012 +; changed by: Marat Zakiyanov aka Mario79, aka Mario +; changes: New logic of switching windows (turnoff/restore) +; New logic of button "clear desktop". +; Win+D (restore/clear desktop), Win+R (start RUN application). +; Using the library LibINI to set the parameters. +; New style of panel. Start application Menu with boot options. +; two versions of the location of the panel - +; the bottom of the desktop and on top of the desktop. +;------------------------------------------------------------------------------ +; last update: 31/03/2012 +; changed by: Marat Zakiyanov aka Mario79, aka Mario +; changes: The program uses only 20 Kb memory is now. +; Code optimizing and refactoring. +;------------------------------------------------------------------------------ +format binary as "" + + use32 + org 0x0 + db 'MENUET01' ; 8 byte id + dd 0x01 ; header version + dd START ; program start + dd IM_END ; program image size + dd I_END ; reguired amount of memory - 10 Kb + dd stack_top ; esp + dd 0x0 ; boot parameters + dd path ; application pach +;------------------------------------------------------------------------------ +include 'lang.inc' +include '../../../macros.inc' +include '../../../proc32.inc' +;include '../../../debug.inc' +include 'MOI.INC' ;раскладки клавиатуры +include '../../../develop/libraries/box_lib/load_lib.mac' + @use_library ;use load lib macros +;------------------------------------------------------------------------------ +caps_lock_check fix 1 +;------------------------------------------------------------------------------ +time_bgr_color = 0x66cc +;PANEL_HEIGHT = 18 +ML_SIZE = 10 +MR_SIZE = 10 +if lang eq et_EE +MENU_SIZE = 60 +else +MENU_SIZE = 50 +end if +CLD_SIZE = 20 +TAB_SIZE = 75 ;60 +TRAY_SIZE = 140 + +CLOCK_SIZE = 40 +CPU_USAGE_SIZE = 10 +CHLANG_SIZE = 20 +PAGE_LIST_SIZE = 36 +;------------------------------------------------------------------------------ +align 4 +handle_key: + mcall 18,7 + mov [active_process],eax + + mcall 2 + +; dps "panel key: " +; dph eax +; newline + + cmp al, 2 + jnz begin_1.ret + + mov ebx, exec_fileinfo + shr eax, 8 + cmp al, 0 + je prod + + mov [key_r],al + sub [key_r],3 + cmp [key_r],9 + jc alter + +if caps_lock_check + cmp al,58 ;CAPS LOCK DOWN + jne @f + + pusha + mcall 26,2,9 + mov ebx,eax + mov eax,2 + mov [draw_flag_certainly],1 + call draw_flag ; language + popa + ret +@@: +end if + + cmp al, 15 ; Alt+Tab DOWN + jz alt_tab_pressed + + cmp al, 88 ; Ctrl+Alt+F12 + jz start_end_application + + cmp al, 91 ; RWin DOWN + jz set_win_key_flag + + cmp al, 92 ; LWin DOWN + jz set_win_key_flag + + cmp al, 1 ; LCtrl+Esc DOWN + jz set_win_key_flag + + cmp al, 219 ; RWin UP + jz cut_win_key_flag ;start_menu_application + + cmp al, 220 ; LWin UP + jz cut_win_key_flag ;start_menu_application + + cmp al, 129 ; LCtrl+Esc UP + jz cut_win_key_flag ;start_menu_application + + cmp al, 62 ; Alt+F4 + jz kill_active_application + + cmp al, 205 + jz page_list_next + + cmp al, 203 + jz page_list_prev + + cmp al, 69 ; Alt+Shift+NumLock + jz start_mousemul_application + + cmp al, 19 ; Win+R + jz start_run_application + + cmp al, 32 ; Win+D + jz minimize_all_windows + + cmp al, 55 ; PrintScreen DOWN + jz start_PrintScreen_application +;-------------------------------------- +align 4 +prod: + cmp [current_alt_tab_app], -1 + jz @f + + test ah, 0x30 ; Alt+Tab UP + jz alt_tab_released +;-------------------------------------- +align 4 +@@: +; this is hotkey LCtrl+LShift ;or LShift+RShift + jmp karu +;------------------------------------------------------------------------------ +align 4 +set_win_key_flag: + mov [win_key_flag],1 + ret +;------------------------------------------------------------------------------ +align 4 +cut_win_key_flag: + xor eax,eax + mov [win_key_flag],al + xchg [start_menu_flag],al + test al,al + jz start_menu_application + ret +;------------------------------------------------------------------------------ +align 4 +change_key_lang: + mov dword [ebx+8], chlang + mcall 70 +;-------------------------------------- +align 4 +begin_1: + mov ecx,[active_process] + mcall 18, 3 + mcall 5, 25 +;-------------------------------------- +align 4 +.ret: + ret +;------------------------------------------------------------------------------ +align 4 +start_end_application: + mov esi,end_name + call algorithm_anti_duplication + test eax,eax + jz @f + + mcall 18,3,edi + ret +;-------------------------------------- +align 4 +@@: + mov ebx, exec_fileinfo + mov dword [ebx + 21],end_name + mcall 70 + ret +;------------------------------------------------------------------------------ +align 4 +start_mousemul_application: + mov esi,mousemul_name + call algorithm_anti_duplication + test eax,eax + jz @f + ret +;-------------------------------------- +align 4 +@@: + mov ebx, exec_fileinfo + mov dword [ebx + 21],mousemul_name + mcall 70 + ret +;------------------------------------------------------------------------------ +align 4 +kill_active_application: + mcall 72,1,3,1 + jmp begin_1.ret +;------------------------------------------------------------------------------ + +align 4 +start_menu_application: + call menu_handler + jmp begin_1.ret +;------------------------------------------------------------------------------ +align 4 +start_run_application: + cmp [win_key_flag],1 + je @f + ret +;-------------------------------------- +align 4 +@@: + mov [start_menu_flag],1 + + mov esi,run_name + call algorithm_anti_duplication + test eax,eax + jz @f + + mcall 18,3,edi + ret +;-------------------------------------- +align 4 +@@: + mov ebx, exec_fileinfo + mov dword [ebx + 21], run_name + mcall 70 + jmp begin_1.ret +;------------------------------------------------------------------------------ +align 4 +start_PrintScreen_application: + mov esi,printscreen_name + call algorithm_anti_duplication + test eax,eax + jz @f + mcall 18,3,edi + ret +;-------------------------------------- +align 4 +@@: + mov ebx, exec_fileinfo + mov dword [ebx + 21],printscreen_name + mov [ebx+8],dword bootparam_printscreen + mcall 70 + jmp begin_1.ret +;------------------------------------------------------------------------------ +align 4 +minimize_all_windows: + cmp [win_key_flag],1 + je @f + ret +;-------------------------------------- +align 4 +@@: + mov [start_menu_flag],1 + call clean_desktop + ret +;------------------------------------------------------------------------------ +align 4 +algorithm_anti_duplication: + cld +;-------------------------------------- +align 4 +@@: + lodsb + test al,al + jnz @r +;-------------------------------------- +align 4 +@@: + std + lodsb + cmp al,'/' + jnz @r + add esi,2 + mov edx,esi + + mov edi,1 +;-------------------------------------- +align 4 +@@: + inc edi + mov ecx,edi + mcall 9,procinfo_window_tabs + + cmp edi,eax + jg .apply_changes + + mov esi,edx + mov ecx,11 + add ebx,9 + cld +;-------------------------------------- +align 4 +.loop: + lodsb + inc ebx + cmp al,[ebx] + jne @r + + loop .loop + + mov eax,1 + ret +;-------------------------------------- +align 4 +.apply_changes: + xor eax,eax + ret +;------------------------------------------------------------------------------ +align 4 +page_list_next: + cmp [page_list],50 + je @f + + xor eax,eax + cmp [page_list_enable],eax + je @f + + inc [page_list] + mov [redraw_window_flag],1 +;-------------------------------------- +align 4 +@@: + jmp begin_1.ret +;------------------------------------------------------------------------------ +align 4 +page_list_prev: + xor eax,eax + cmp [page_list],eax + je @f + + cmp [page_list_enable],eax + je @f + + dec [page_list] + mov [redraw_window_flag],1 +;-------------------------------------- +align 4 +@@: + jmp begin_1.ret +;------------------------------------------------------------------------------ +align 4 +alt_tab_pressed: +; handle Alt+Tab and Alt+Shift+Tab + mov ebp, eax + cmp [current_alt_tab_app], -1 + jnz has_alt_tab_app +; заполняем таблицу приложений, подлежащих переключению + xor edx, edx + mov ebx, procinfo_window_tabs + mov ecx, 1 +;-------------------------------------- +align 4 +.fill: + inc ecx + mcall 9 + call need_window_tab + jz @f + + cmp edx, 256 + jz @f + + mov [alt_tab_list+edx*8], ecx + movzx esi, word [ebx+4] + mov [alt_tab_list+edx*8+4], esi + inc edx +;-------------------------------------- +align 4 +@@: + cmp ecx,eax + jb .fill + + mov [alt_tab_list_size], edx + test edx, edx + jz begin_1.ret + + mcall 66,4,0,0 ; ловим момент отпускания всех управляющих клавиш + test eax, eax + jnz begin_1.ret + + xor edx, edx + mov eax, [alt_tab_list+4] + xor ecx, ecx + inc ecx +;-------------------------------------- +align 4 +.findmax: + cmp [alt_tab_list+ecx*8+4], eax + jb @f + + mov edx, ecx + mov eax, [alt_tab_list+ecx*8+4] +;-------------------------------------- +align 4 +@@: + inc ecx + cmp ecx, [alt_tab_list_size] + jb .findmax + + mov [current_alt_tab_app], edx +;-------------------------------------- +align 4 +has_alt_tab_app: + mov eax, [current_alt_tab_app] + mov edx, [alt_tab_list+eax*8+4] ; slot + xor ecx, ecx + or eax, -1 + test ebp, 300h + jz .notshift + + or esi, -1 +;-------------------------------------- +align 4 +.loop1: + cmp [alt_tab_list+ecx*8+4], edx + jbe @f + + cmp [alt_tab_list+ecx*8+4], esi + jae @f + + mov eax, ecx + mov esi, [alt_tab_list+ecx*8+4] +;-------------------------------------- +align 4 +@@: + inc ecx + cmp ecx, [alt_tab_list_size] + jb .loop1 + + cmp eax, -1 + jnz .found + + xor edx, edx + xor ecx, ecx + jmp .loop1 +;-------------------------------------- +align 4 +.notshift: + xor esi, esi +;-------------------------------------- +align 4 +.loop2: + cmp [alt_tab_list+ecx*8+4], edx + jae @f + + cmp [alt_tab_list+ecx*8+4], esi + jbe @f + + mov eax, ecx + mov esi, [alt_tab_list+ecx*8+4] +;-------------------------------------- +align 4 +@@: + inc ecx + cmp ecx, [alt_tab_list_size] + jb .loop2 + + cmp eax, -1 + jnz .found + + or edx, -1 + xor ecx, ecx + jmp .loop2 +;-------------------------------------- +align 4 +.found: + mov [current_alt_tab_app], eax + push eax + xor edx, edx + div [max_applications] + mov [page_list], eax + mov edi, app_list + push edi + mov ecx, 20 + or eax, -1 + rep stosd + pop edi + pop ecx + sub ecx, edx +;-------------------------------------- +align 4 +@@: + cmp ecx, [alt_tab_list_size] + jae redraw_window_tabs + + mov eax, [alt_tab_list+ecx*8] + stosd + inc ecx + jmp @b +;-------------------------------------- +align 4 +alt_tab_released: + mcall 66,5,0,0 ; уже поймали, хватит :) + + or eax, -1 + xchg eax, [current_alt_tab_app] + mov ecx, [alt_tab_list+eax*8] + mcall 18,3 + + jmp redraw_window_tabs +;------------------------------------------------------------------------------ +align 4 +active_process dd 0 + +exit: + mcall -1 +;------------------------------------------------------------------------------ +START: + mcall 68,11 + mcall 66,1,1 + + mcall 9,process_info_buffer,-1 + mov ecx, [ebx + process_information.PID] ; PID + mcall 18,21 + mov [my_active_slot],eax ; WINDOW SLOT + + +load_libraries l_libs_start,end_l_libs + + test eax,eax + jnz exit + + call Get_ini + + mcall 66,4,0,2 ; LShift+RShift + mcall 66,,,33h ; LCtrl+LShift + mcall 66,,88,110h ; Alt+Ctrl+F12 + mcall 66,,91,0h ; RWin DOWN + mcall 66,,92 ; LWin DOWN + mcall 66,,219 ; RWin UP + mcall 66,,220 ; LWin UP + mcall 66,,19,0h ; Win+R DOWN + mcall 66,,32,0h ; Win+D DOWN + mcall 66,,55,10h ; Ctrl+PrintScreen DOWN + mcall 66,,1,30h ; LCtrl+Esc DOWN + mcall 66,,129 ; LCtrl+Esc UP + mcall 66,,62,300h ; Alt+F4 + mcall 66,,2 ; Alt+1 + mcall 66,,3 ; Alt+2 + mcall 66,,4 ; Alt+3 + mcall 66,,5 ; Alt+4 + mcall 66,,6 ; Alt+5 + mcall 66,,7 ; Alt+6 + mcall 66,,8 ; Alt+7 + mcall 66,,9 ; Alt+8 + mcall 66,,10 ; Alt+9 + mcall 66,,15 ; Alt+Tab DOWN + mcall 66,,15,301h ; Alt+Shift+Tab DOWN + mcall 66,,69 ; Alt+Shift+NumLock + +if caps_lock_check + xor edx,edx + mcall 66,4,58 +end if + mcall 14 + mov [screen_size],eax + + call set_work_ares_pf_screen + + mcall 9,process_info_buffer,-1 + mov ecx,[process_info_buffer.PID] + mcall 18,21 + mov [this_slot],eax + mov [max_slot],255 +;-------------------------------------- +align 4 +start_after_minimize: + call draw_window + call draw_running_applications + + mcall 23,30 + call load_ini +;------------------------------------------------------------------------------ +align 4 +still: + call draw_time + call draw_cpu_usage + call draw_running_applications + + mcall 18,7 ; check if active window changed + cmp eax, [last_active_window] + jz @f +; need_window_tab: +; in: ebx->process info +; out: ZF set <=> do not draw + mov ebx,[last_active_window] + mov [prev_active_window], ebx + mov [last_active_window], eax + + mov ecx, eax + mcall 9,process_info_buffer + + call need_window_tab + jnz .need_repaint + + mcall 9,process_info_buffer,[prev_active_window] + call need_window_tab + jz @f +;-------------------------------------- +align 4 +.need_repaint: + mov dword [active_window_changed], 1 +;-------------------------------------- +align 4 +@@: + mcall 23,20 + + push eax + mcall 18,7 + cmp [my_active_slot],eax + je @f + + mov [current_active_slot],eax +;-------------------------------------- +align 4 +@@: + pop eax + + cmp eax,1 ; redraw ? + jz red + + push eax + mov eax,[redraw_window_flag] + test eax,eax + jz @f + + call draw_window +;-------------------------------------- +align 4 +@@: + pop eax + + cmp eax,2 + jnz @f + call handle_key + jmp .key +;-------------------------------------- +align 4 +@@: + cmp eax,3 ; button ? + jz button +;-------------------------------------- +align 4 +.key: + cmp dword [active_window_changed], 0 + jnz red_active + + call draw_flag ; language + jmp still +;------------------------------------------------------------------------------ +align 4 +set_work_ares_pf_screen: +;eax = [xsize]*65536 + [ysize] + mov ecx,eax + shr ecx,16 + and eax,0xFFFF + cmp [place_attachment],1 + je @f + + ror eax,16 + add eax,[height] + rol eax,16 + mov edx,eax + jmp .selected +;-------------------------------------- +align 4 +@@: + sub eax,[height] + mov edx, eax +;-------------------------------------- +align 4 +.selected: + mcall 48,6 + ret +;------------------------------------------------------------------------------ +align 4 +red_active: +red: + mov dword [active_window_changed], 0 + + mcall 14 + movzx ecx,ax + mov edx,eax + shr edx,16 + cmp [screen_size.height],ax + jne @f + + rol eax,16 + cmp [screen_size.width],ax + je .lp1 + + rol eax,16 +;-------------------------------------- +align 4 +@@: + mov [screen_size],eax + + push ecx edx + call set_work_ares_pf_screen + pop edx ecx + + sub ecx,[height] + mcall 67,0,,,[height] +;-------------------------------------- +align 4 +.lp1: + call draw_window + jmp still +;------------------------------------------------------------------------------ +align 4 +button: + mcall 17 + test eax,0xfffffe00 ; is it close button? (signal from @taskbar) + jz still ; if so - wait for another event, because @taskbar shouldn't be closed + + cmp al, 0 + jnz right_mouse + + cmp ah,50 + jb no_activate + cmp ah,70 + jg no_activate + + movzx ecx,byte ah + sub ecx,52 + shl ecx,2 + + mov ecx,[app_list+ecx] + + mcall 9,process_info_buffer + + test [ebx + process_information.wnd_state], byte 10b ; window is minimized to panel + jnz @f + + cmp ecx,[current_active_slot] + je .turn_off +;-------------------------------------- +align 4 +@@: + mcall 18,3, + jmp .task_switching +;-------------------------------------- +align 4 +.turn_off: + mov edx,ecx + mcall 18,22,0 +;-------------------------------------- +align 4 +.task_switching: + mcall 68,1 + jmp still +;------------------------------------------------------------------------------ +align 4 +right_mouse: + cmp ah,50 + jb still + + cmp ah,70 + jg still + + movzx ecx,byte ah + sub ecx,52 + + cmp ecx, [app_tab_count] + jge still + + shl ecx,2 + mcall 37,0 + mov ebx, eax + shr eax, 16 + mov [x_coord], ax + and ebx, 0xFFFF + mov [y_coord], bx + + mov ecx,[app_list+ecx] ; ecx->selected app.slot + mov [n_slot], ecx + mcall 9,procinfo_for_detect + + mcall 51,1,context_menu_start,ctx_menu_stack + + mov [ctx_menu_PID], eax + jmp still +;------------------------------------------------------------------------------ +align 4 +no_activate: + cmp ah,101 ; minimize to left + je left_button + + cmp ah,102 ; minimize to right + je right_button + + cmp ah, 103 + je clean_desktop_1 ; minimize all windows + + cmp ah,byte 1 ; start/terminate menu + jnz noselect + + call menu_handler + + jmp still +;-------------------------------------- +align 4 +clean_desktop_1: + call clean_desktop + jmp still +;-------------------------------------- +align 4 +noselect: + mov ebx, exec_fileinfo + cmp ah,byte 2 ; start calendar + jnz noid15 ;noclock + + mov esi,calendar_name + call algorithm_anti_duplication + test eax,eax + jz @f + + mcall 18,2,edi + jmp still +;-------------------------------------- +align 4 +@@: + mov ebx, exec_fileinfo + mov dword [ebx+21], calendar_name + mcall 70 + jmp still +;-------------------------------------- +align 4 +noid15: + cmp ah,16 + jne noid16 + + call karu + call draw_flag ; language + jmp still +;-------------------------------------- +align 4 +noid16: + cmp ah,18 + jne noid18 + + mov esi,sysmeter_name + call algorithm_anti_duplication + test eax,eax + jz @f + + mcall 18,2,edi + jmp still +;-------------------------------------- +align 4 +@@: + mov ebx, exec_fileinfo + mov dword [ebx+21], sysmeter_name + mcall 70 + jmp still +;-------------------------------------- +align 4 +noid18: + cmp ah,21 + jnz noid21 + + cmp [page_list],50 + jnc still + inc [page_list] + jmp red +;-------------------------------------- +align 4 +noid21: + cmp ah,22 + jnz still + + cmp [page_list],0 + je still + + dec [page_list] + jmp red +;------------------------------------------------------------------------------ +align 4 +restore_desktop: + mcall 9,process_info_buffer,-1 + mov [max_slot], eax + mov ecx, 2 + mov edx, 2 +;-------------------------------------- +align 4 +@@: + mcall 18, 22 + inc edx + cmp edx, [max_slot] + jbe @b + ret +;------------------------------------------------------------------------------ +align 4 +clean_desktop: + mcall 18,23 + test eax,eax + jnz @f + call restore_desktop +;-------------------------------------- +align 4 +@@: + ret +;------------------------------------------------------------------------------ +align 4 +conversion_HEX_to_ASCII: + ror eax,12 + mov ecx,4 +;-------------------------------------- +align 4 +.loop: + mov bl,al + rol eax,4 + and bl,0xf + cmp bl,0xA ; check for ABCDEF + jae @f + + add bl,0x30 ; 0-9 + jmp .store +;-------------------------------------- +align 4 +@@: + add bl,0x57 ; A-F +;-------------------------------------- +align 4 +.store: +; dps "param_store: " + mov [edi],bl + inc edi + dec ecx + jnz .loop + ret +;------------------------------------------------------------------------------ +align 4 +menu_handler: + mov edi,bootparam + + mov eax,[menu_button_x.start] + call conversion_HEX_to_ASCII + + mov eax,[menu_button_x.size] + call conversion_HEX_to_ASCII + + mov eax,[menu_button_y.start] + call conversion_HEX_to_ASCII + + mov eax,[menu_button_y.size] + call conversion_HEX_to_ASCII + + mov eax,[height] + call conversion_HEX_to_ASCII + + mov eax,[place_attachment] + call conversion_HEX_to_ASCII + + xor eax,eax ; terminator for boot parameters string + stosd + + mov ebx, exec_fileinfo + mov [ebx+21],dword menu_name + mov [ebx+8],dword bootparam + mcall 70 + mov [ebx+8],dword 0 + ret +;------------------------------------------------------------------------------ +align 4 +draw_small_right: + pusha + mcall 12,1 + + xor eax,eax + mov edx,[wcolor] + mov esi,edx + mov edi,edx + or edx, 0x01000000 + mcall + + xor ecx,ecx + mov cx,[height] + mcall 8,<0,10>,,1,[wcolor] + + mov ebx,2*65536 ;+6 + mov bx,[height] + shr bx,1 + sub bx,3 + mov edx,[wcolor] + mov eax,COLOR_CHANGE_MAGNITUDE_2 + call add_color_change_magnitude + mov ecx,edx + mcall 4,,,hidetext,1 + + mcall 12,2 + popa + ret +;------------------------------------------------------------------------------ +align 4 +draw_small_left: + pusha + mcall 12,1 + + xor eax,eax + mov edx,[wcolor] + mov esi,edx + mov edi,edx + or edx, 0x01000000 + mcall + + xor ecx,ecx + mov cx,[height] + mcall 8,<0,9>,,1,[wcolor] + + mov ebx,3*65536 ;+6 + mov bx,[height] + shr bx,1 + sub bx,3 + mov edx,[wcolor] + mov eax,COLOR_CHANGE_MAGNITUDE_2 + call add_color_change_magnitude + mov ecx,edx + mcall 4,,,hidetext+1,1 + + mcall 12,2 + popa + ret +;------------------------------------------------------------------------------ +align 4 +right_button: + mov [small_draw],dword draw_small_right + + mcall 14 + + shr eax, 16 + mov ebx, eax + mov ecx, -1 + mov edx, 9 + sub ebx, edx + mov esi, -1 + mcall 67 + + call draw_small_right + jmp small_wait +;------------------------------------------------------------------------------ +align 4 +left_button: + mov [small_draw],dword draw_small_left + + xor ebx,ebx + mcall 67,,-1,9,-1 + + call draw_small_left +;-------------------------------------- +align 4 +small_wait: + mcall 10 + cmp eax,1 + jne no_win + + call [small_draw] + jmp small_wait +;-------------------------------------- +align 4 +no_win: + cmp eax,2 + jne no_key + + call handle_key + jmp small_wait +;-------------------------------------- +align 4 +no_key: + mcall 17 + cmp ah,1 + jne no_full + + mcall 14 ; get screen max x & max y + + mov edx, eax + shr edx, 16 + xor ebx, ebx + mcall 67,,-1,,-1 ; x0 y0 xs ys + + jmp still +;-------------------------------------- +align 4 +no_full: + call menu_handler + jmp small_wait +;------------------------------------------------------------------------------ +include 'libini.inc' +;------------------------------------------------------------------------------ +include '../../../dll.inc' +;------------------------------------------------------------------------------ +include 'drawappl.inc' +;------------------------------------------------------------------------------ +include 'drawbutt.inc' +;------------------------------------------------------------------------------ +include 'drawwind.inc' +;------------------------------------------------------------------------------ +include 'drawtray.inc' +;------------------------------------------------------------------------------ +include 'ctx_menu.asm' +;------------------------------------------------------------------------------ +include 'i_data.inc' +;------------------------------------------------------------------------------ +IM_END: +;------------------------------------------------------------------------------ +include 'u_data.inc' +;------------------------------------------------------------------------------ +I_END: +;------------------------------------------------------------------------------ diff --git a/programs/system/taskbar/trunk/drawwind.inc b/programs/system/taskbar/trunk/drawwind.inc index 525f8fe744..42b855e051 100644 --- a/programs/system/taskbar/trunk/drawwind.inc +++ b/programs/system/taskbar/trunk/drawwind.inc @@ -35,7 +35,7 @@ no_def_width: cmp [place_attachment],1 je @f - + xor ecx,ecx mov cx,[height] dec cx @@ -51,19 +51,19 @@ align 4 ;-------------------------------------- align 4 .attachment_selected: - xor eax,eax ; DEFINE AND DRAW WINDOW + xor eax,eax ; DEFINE AND DRAW WINDOW mov edx, [wcolor] or edx, 0x01000000 ; do not draw the window mov esi, [wcolor] or esi, 0x01000000 ; unmovable window mov edi, [wcolor] mov [panel_x_pos], ebx - mov [panel_y_pos], ecx ; ╧юър ўЄю Єръ. + mov [panel_y_pos], ecx ; So far ok mcall movzx eax,word [screenxy+2] mov [max_x],eax - + call fill_window call minimize_left_button call minimize_right_button @@ -78,7 +78,7 @@ align 4 ret ;------------------------------------------------------------------------------ align 4 -fill_window: +fill_window: movzx ebx,word [screenxy+2] xor ecx,ecx mov edx,[wcolor] @@ -192,7 +192,7 @@ align 4 .exit: ret ;------------------------------------------------------------------------------ -align 4 +align 4 minimize_right_button: cmp [minimize_right],dword 0 je .exit @@ -247,19 +247,19 @@ align 4 mov ecx, [height] mov edx, 0x60d1ff01 mcall 8,,,,[wcolor] ; MENU BUTTON - + mov eax,ebx shr eax,16 mov [menu_button_x.start],eax - + mov eax,ebx and eax,0xffff mov [menu_button_x.size],eax - + mov eax,ecx shr eax,16 mov [menu_button_y.start],eax - + mov eax,ecx and eax,0xffff mov [menu_button_y.size],eax @@ -268,7 +268,7 @@ align 4 mov edx,[MenuButton_color] ;0x44aa44 mov esi,[wcolor] add ebx,3 shl 16 - 5 - call draw_appl_button + call draw_appl_button add ebx, 4*65536 mov bx,[height] @@ -276,7 +276,7 @@ align 4 sub bx,7 mov ecx,[PanelText_color] or ecx,0x10000000 - if lang eq et_EE + if lang eq et_ET mcall 4,,,m_text,5 else mcall 4,,,m_text,4 @@ -289,7 +289,7 @@ no_menu: je .exit ; calculate and draw clean desktop button 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 je @f @@ -300,7 +300,7 @@ align 4 ; check for menu button enabled cmp [menu_enable],dword 0 je @f - + add ebx, MENU_SIZE shl 16 ;-------------------------------------- align 4 @@ -311,7 +311,7 @@ align 4 mov edx, 0x60000000 + 103 mov ecx, [height] mcall 8 ;,,<3,13> - + call calculate_button_y_coordinate_and_size mov edx,[CleanDesktopButton_color] ;time_bgr_color mov esi,[wcolor] @@ -354,31 +354,31 @@ align 4 @@: cmp [clock_enable],dword 0 je @f - + sub eax,CLOCK_SIZE ;-------------------------------------- -align 4 +align 4 @@: cmp [cpu_usage_enable],dword 0 je @f - + sub eax,CPU_USAGE_SIZE ;-------------------------------------- -align 4 +align 4 @@: cmp [chlang_enable],dword 0 je @f - + sub eax,CHLANG_SIZE ;-------------------------------------- -align 4 +align 4 @@: cmp [page_list_enable],dword 0 je @f - + sub eax,PAGE_LIST_SIZE ;-------------------------------------- -align 4 +align 4 @@: mov ebx, TAB_SIZE xor edx,edx @@ -419,11 +419,11 @@ calculate_offset_X: add eax, ML_SIZE ;-------------------------------------- align 4 -@@: +@@: ; check for menu button enabled cmp [menu_enable],dword 0 je @f - + add eax, MENU_SIZE ;-------------------------------------- align 4 diff --git a/programs/testing/cpuid/trunk/CPUID.ASM b/programs/testing/cpuid/trunk/CPUID.ASM index 37c31ae754..355471553b 100644 --- a/programs/testing/cpuid/trunk/CPUID.ASM +++ b/programs/testing/cpuid/trunk/CPUID.ASM @@ -1,4329 +1,4281 @@ -;****************************************************************************** -; project name: CPUID * -; platform: KolibriOS, x86 (IA-32), x86-64 achitectures * -; compiler: flat assembler 1.70.03 * -; version: 2.31 * -; last update: 9 October 2018 * -; maintained by: Sergey Kuzmin aka Wildwest * -; e-mail: kuzmin_serg@list.ru * -; site: http://coolthemes.narod.ru/files.html * -; license: Copyright 2004-2018 Sergey Kuzmin and co-authors * -; Rules: * -; 1)you can use pieces of code in your project, but should * -; mention the original author (include copyright notice); * -; 2)if you modify CPUID (improve, port, translate, etc) send * -; your changes to the maintainer or make about post changes * -; at forum http://board.kolibrios.org/viewtopic.php?f=42&t=594* -;-----------------------------------------------------------------------------* -; English comments * -;------------------------------------------------------------------------------ -use32 - org 0x0 - db 'MENUET01' - dd 0x01 - dd START - dd I_END - dd U_END+4096 - dd U_END+4096 - dd 0x0 - dd path - -include '..\..\..\develop\libraries\box_lib\load_lib.mac' -include '..\..\..\macros.inc' -include '../../../gui_patterns.inc' -include '../../../KOSfuncs.inc' -include 'lang.inc' -include 'draw.inc' -include 'brand.inc' ; brand ID decoding -include 'caches.inc' ; L1 and L2 cashes decoding for Intel -include 'multipli.inc' ; multiplier decoding -include 'features.inc' ; features decoding -include 'logos.inc' ; include file where gif's are stored -include 'rsatest.inc' -include 'variable.inc' -include 'gif_lite.inc' - -@use_library - -START: - mcall 68,11 - mcall 66,1,1 - mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, sc, sizeof.system_colors - -load_libraries l_libs_start,end_l_libs -;----------------------------------------------------------------------------- -;OpenDialog initialisation - push dword OpenDialog_data - call [OpenDialog_Init] - - mov edi,filename_area - mov esi,start_temp_file_name - call copy_file_name_path -;----------------------------------------------------------------------------- - mcall 68,12,4096*8 ; 16 Kb - I hope this will be enough for store of data - mov [store_text_area_start],eax - - -;------------ -CYCLES: -; CPU speed - mov eax, 18 - mov ebx,5 - mcall - mov [total1],eax ;in Hz, example 1600490000 - xor edx,edx - mov ebx,1000000 - div ebx - mov [total], eax ; in Mhz, example 1600 - xor edx, edx - mov eax, [total1] - mov ebx, 10000 - div ebx - mov [ost], eax ; example 160049 - mov ecx, [total] - imul ecx, 100 - neg ecx - add ecx, eax - mov [sot], ecx ; example 49 -;------------ -cpu: ;is CPUID supported? - pushfd ;push original EFLAGS - pop eax ;get original EFLAGS - mov ebx, eax ;save original EFLAGS - xor eax, 00200000h ;flip 21th bit in EFLAGS - push eax ;save new EFLAGS value on stack - popfd ;replace current EFLAGS value - pushfd ;get new EFLAGS - pop eax ;store new EFLAGS in EAX - cmp eax, ebx ;compare values of 21th bit - jz NO_CPUID ;CPUID isn't supported -;------------ -CPUNAME: ; VENDOR - mov eax,0 ; eax=0 - cpuid - - mov [stdc], eax ; number of calls - mov [cpuname+ 12],ebx - mov [cpuname+ 16],edx - mov [cpuname+ 20],ecx - mov [smallvendor],ecx - -; for various vendors we should later use different methods - -;Decoding cache L1 and L2 for Intel - - cmp ecx, 'ntel' - jne cpu1 ;is not Intel - -;Starting L1, L2, L3 caches detection (Intel made it VERY HARD) - - mov eax, 2 - cpuid - - mov [che], al ; number of calls -multik: - -.eaxl: - test eax, eax ; Test bit 31 - js .ebxl ; <> 0 =>invalid values - call decodecache24 -.ebxl: - test ebx, ebx - js .ecxl - mov eax, ebx - call decodecache32 -.ecxl: - test ecx, ecx - js .edxl - mov eax, ecx - call decodecache32 -.edxl: - test edx, edx - js cpu1 - mov eax, edx - call decodecache32 - - dec [che] ; we made all calls - je cpu1 - -multi: ; not yet - - mov eax, 2 ; so we made call again - cpuid - - jmp multik - -; FAMILY MODEL STEPPING -cpu1: - xor eax, eax - inc eax ; eax=1 - cpuid - - mov ecx, eax - shr ecx,8 ; shift it to the correct position - and ecx,0000000Fh ; get CPU family - mov dword[f],ecx - - mov ecx, eax - shr ecx,4 - and ecx,0000000Fh ; get CPU model - mov dword[m],ecx - - mov ecx, eax - and ecx,0000000Fh ; get CPU stepping - mov dword[s],ecx - - ;- - mov ecx, eax ; get Type - shl ecx, 18 - shr ecx,30 - ;and ecx, 0000000Fh ; only two lower bits can be nonzero - mov dword[t], ecx -;======================================================= - - cmp dword[smallvendor], 'cAMD' - jz maybe_athlon - cmp dword[smallvendor], 'ntel' - jnz no_full ; if not AMD or Intel - -;detect_it: -;cmp [f], 0Fh -;jne no_full fixed calculation of extended model for Intel - -full: - - mov ecx, eax ; get Extended model - shr ecx,16 ;shift it to the correct position - and ecx, 0000000Fh - shl ecx, 4 - mov dword[newpc],ecx ; this value for old pc=0 and for new pc>0 - add ecx, [m] - mov dword[em],ecx ; effective model - - mov ecx, eax ; get Extended family - shr ecx, 20 ;shift it to the correct position - and ecx, 000000FFh - add ecx, [f] - mov dword[ef],ecx ; effective family - - - jmp fut - -no_full: - - mov ecx, [m] - mov [em], ecx - - mov ecx, [f] - mov [ef], ecx - - jmp fut - -maybe_athlon: - mov eax, 0x80000001 ; CPUID ext. function 0x80000001 - cpuid - mov ecx, eax - shr ecx,8 ; shift it to the correct position - and ecx,0000000Fh ; get CPU family - mov dword[ef],ecx - - mov ecx, eax - shr ecx,4 - and ecx,0000000Fh ; get CPU model - mov dword[em],ecx - -fut: - - call decode_sse3_5 - - - - ;call decode_sse3_5 - ;- - call decode_extended - - mov eax,$80000000 - cpuid - - mov [extc], eax ; max number of calls - - test eax, $80000000 ;// Test bit 31 - jz .noname - - cmp eax,$80000003 - ja .mynameis - jmp .noname - -.mynameis: - mov eax,$80000002 - cpuid - mov [myname],eax - mov [myname+4],ebx - mov [myname+8],ecx - mov [myname+12],edx - mov eax,$80000003 - cpuid - mov [myname+16],eax - mov [myname+20],ebx - mov [myname+24],ecx - mov [myname+28],edx - mov eax,$80000004 - cpuid - mov [myname+32],eax - mov [myname+36],ebx - mov [myname+40],ecx - mov [myname+44],edx - jmp red - -.noname: - -red: - - ;mov byte [multiplier], 115; ; for testing - - call decode_sse3 - - call multipl ; get multiplier - mov byte [multiplier], cl - - mov dword [freqbb], 0 - mov dword [freqll], 0 - - mov ebx, dword [multiplier] - test ebx, ebx - jz output - - calc: - - mov eax,dword [ost] ; example 166474 - imul eax, 10 ; example 1664740 - xor edx,edx - div ebx ; get system clock (if multiplier detected) - - xor edx, edx ; example eax=16647 - mov ebx, 100 - div ebx - mov dword [freqbb], eax ; example 166 - mov dword [freqll], edx ; example 47 - - xor edx, edx - mov eax,dword[multiplier] ; example 115 - mov ebx,10 - div ebx - mov dword[multb], eax ; example 11 - mov dword[multa], edx ; example 5 - -output: - - call draw_window ; Draw window - -;HRERE - -PROCCORE: ; Who are you? -; Intel - "GenuineIntel" + -; AMD - "AuthenticAMD" + -; Cyrix - "CyrixInstead" + -; UMC - "UMC UMC UMC " -; NexGen - "NexGenDriven" -; Centaur - "CentaurHauls" + -; Rise Technology - "RiseRiseRise" -; SiS - "SiS SiS SiS " -; Transmeta - "GenuineTMx86" + -; National Semiconductor - "Geode by NSC" -; Vortex - "Vortex86 SoC" + initial support - cmp dword[smallvendor], 'ntel' ;1 - jz Intel - cmp dword[smallvendor], 'cAMD' ;2 - jz AMD - cmp dword[smallvendor], 'tead' ;3 - jz Cyrix - cmp dword[smallvendor], 'auls' ;4 - jz Centaur - cmp dword[smallvendor], 'Mx86' ;5 - jz Transmeta - cmp dword[smallvendor], ' SoC' ;6 - jz Vortex - -; cmp ecx, 'UMC ' -; jz .UMC -; cmp ecx, 'iven' -; jz .NexGen -; cmp ecx, 'Rise' -; jz .Rise -; cmp ecx, 'SiS ' -; jz .SiS -; cmp ecx, ' NSC' -; jz .NSC -; jmp Other ; I don't know what to do with you... -Other: - Text 75,70,0x00000000,other, otherlen-other - - mov esi, other - mov edi, [saveproc] - call concatname - - jmp MMXtest -;------------------------- - -AMD: - -;------------------------------------------------------------------------------- - - Text 15, 190,0x00000000,cache, cachelen-cache - - Text 75,70,,AMDn, AMDnlen-AMDn - mov esi, AMDnNew - mov edi, saveproc - call concatname - mov esi, amd - call load_gif - PutImage 135,107,201,49,img_area+8 - MOV [codeN], 2 -; place size - -; Relax, man. AMD made PRETTY SIMPLE cache detection routine -;CACHE1: - mov eax, 80000005h - cpuid - - movzx eax, cl - mov [lineld], eax - - mov eax, ecx - ;shl eax, 8 - ;shr eax, 24 - - and eax,00FF0000h - shr eax, 16 - mov [wayld], eax - - shr ecx, 24 - mov [L1d], ecx - - - movzx eax, dl - mov [lineli], eax - - mov eax, edx - ;shl eax, 8 - ;shr eax, 24 - - and eax,00FF0000h - shr eax, 16 - mov [wayli], eax - - - shr edx, 24 - mov [L1i], edx - - -;CACHE2: - mov eax, 80000006h - cpuid - - movzx eax, cl - mov dword[linel2], eax - - push ecx - shr ecx, 12+1 - and ecx, 0x7 - mov eax, 1 - shl eax, cl - mov dword [wayl2], eax - pop ecx - - shr ecx, 16 - mov [L2],ecx - -;CACHE3: edx provides l3 - - mov eax, 80000006h - cpuid - - movzx eax, cl ;mov cl to eax, zero extend; cl is counter reg for loop,shifts - mov dword[linel3], eax - - push edx - shr edx, 12+1 - and edx, 0x7 - mov eax, 1 - shl eax, cl - mov dword [wayl3], eax - pop edx - - shr edx, 18 - mov [L3],ecx - - cmp [f], $5 - jz .fiv - cmp [f], $6 - jz .si - cmp [f], $F - jz fif - cmp [f], $10 ;family 16, 010h, - jz ten - - -.fiv: ; Family=5 - mov [micron], 50 - mov edx, A50 - cmp [m], $0 - jz @f - mov [micron], 35 - mov edx, A51 - cmp [m], $1 - jz @f - mov edx, A52 - cmp [m], $2 - jz @f - mov edx, A53 - cmp [m], $3 - jz @f - mov [micron], 30 - mov edx, A56 - cmp [m], $6 - jz @f - mov [micron], 25 - mov edx, A57 - cmp [m], $7 - jz @f - mov edx, A58 - cmp [m], $8 - jz @f - mov edx, A59 - cmp [m], $9 - jz @f - mov [micron], 18 - mov edx, A5D -@@: - jmp @f - -.si: ; Family=6 - mov [micron], 25 - mov edx, At1 - cmp [m], $1 - jz @f - mov [micron], 18 - mov edx, At2 - cmp [m], $2 - jz @f - mov edx, At3 - cmp [m], $3 - jz @f - mov edx, At4 - cmp [m], $4 - jz @f - cmp [m], $6 - jz A6 - mov [micron], 13 - mov edx, At7 - cmp [m], $7 - jz @f - cmp [m], $8 - jz A8 - jmp AA -@@: - mov [cname], edx - jmp MMXtest -A6: -;mov [FRS], 266 ;!!!!!! -;Number 315,90,0,3,dword [FRS],0x000000; MHz - - call newrating; !!!! - - Text 245,70,0x00000000,pr, prlen-pr - Number 310,70,0,4,dword [rating],0x000000 - mov edx, At6 - jmp @b - -A8: - -;mov [FRS], 266 ;!!!!!! -;Number 315,90,0,3,dword [FRS],0x000000; MHz - - cmp [L2], 256 - jl .App ; Applebred - - call newrating;!!!! - - Text 245,70,0x00000000,pr, prlen-pr - Number 310,70,0,4,dword [rating],0x000000 - mov edx, At8 - jmp @b - -.App: - mov edx, At8a - jmp @b - -AA: - -; mov [FRS], 333; !!!! - Text 245,70,0x00000000,pr, prlen-pr - -; Number 315,90,0,3,dword [FRS],0x000000; MHz - - mov edx, Atat - cmp [L2], 256 - jl .Tho ; Thorton - mov edx, Ata -.Tho: - push edx - - call newrating;!!!!! - - Number 310,70,0,4,dword [rating],0x000000 - pop edx - jmp @b - -fif: ; AMD-64 Family=15 - -;here is a need to rewrite detection of AMD F-th family according to "Revision Guide for -;AMD AthlonTM 64 and AMD OpteronTM Processors" 25759.pdf - - - cmp [m],$1 ;Dual-core Opteron - jz AF1. - cmp [m],$3 ;Toledo 1024 0.09 - jz AF3. - cmp [m],$4 ;Athlon 64 Mobile Athlon 64 FX ClawHammer (1024) 0.13 - jz AF4. - cmp [m],$5 ;Opteron Athlon 64 FX 0.13 (1024) - jz AF5. - cmp [m],$7 ;Athlon 64 Athlon 64 FX Clawhammer(1024) 0.13 Sledgehammer(1024) 0.13 // SSE3+ SanDiego(1024) - jz AF7. - cmp [m],$8 ;Athlon 64 Mobile Athlon 64 FX ClawHammer (1024) 0.13 - jz AF8. - cmp [m],$B ;Athlon 64 - jz AFB. - cmp [m],$C ;Athlon 64 Newcastle(512) 0.13 Sempron> Paris (256) 0.13 |SSE3+ Sempron > Palermo FC0 0.09 // (Venice) - jz AFC. - cmp [m],$E ;Athlon 64 - jz AFE. - cmp [m],$F ;Athlon 64 Winchester(512) |SSE3+ SanDiego(1024) Venice (512) Palermo (256) 0.09 - jz AFF. - jmp next_generation - -ten: ;family = 10h - - cmp [m],$2 - jz AB23. - cmp [m], $8 - jz AB83. - cmp [m], $9 - jz AB9. - cmp [m], $2 - jz AB8check2. - -AB8check2.: - cmp [s],03h - jz AB8right2. - cmp [m],$2 - jz athlonCheck - -athlonCheck: - cmp [s],03h - jz athlonKuma - - cmp [m], $5 - jz AB4. - cmp [m],$1 - jz AB1. - cmp [m],$4 - jz AB8check. - -AB8check.: - cmp [s],02h - jz ABC2. - cmp [s],01h - jz ABC3. - cmp [m], $9 - jz AB6. - cmp [m], $2 - jz AB8check. - cmp [m], 06h - jz ABM. - -athlonKuma: - mov [micron], 65 - Text 100,70,0x00000000,AthlonKuma, AthlonKumalen-AthlonKuma - mov esi, AthlonKuma - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AB23.: - mov [micron], 65 - Text 100,70,0x00000000,AB23, AB23len-AB23 - mov esi, AB23 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AB83.: - mov [micron], 65 - Text 100,70,0x00000000,AB83, AB83len-AB83 - mov esi, AB83 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AB9.: - mov [micron], 65 - Text 100,70,0x00000000,AB9, AB9len-AB9 - mov esi, AB9 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AB8right2.: - mov [micron], 65 - Text 100,70,0x00000000,AB8right2, AB8right2len-AB8right2 - mov esi, AB8right2 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AB4.: - mov [micron], 45 - Text 100,70,0x00000000,AB4, AB4len-AB4 - mov esi, AB4 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AB1.: - mov [micron], 65 - Text 100,70,0x00000000,AB1, AB1len-AB1 - mov esi, AB1 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -ABC2.: - mov [micron], 45 - Text 100,70,0x00000000,ABC2, ABC2len-ABC2 - mov esi, ABC2 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AB6.: - mov [micron], 45 - Text 100,70,0x00000000,AB6, AB6len-AB6 - mov esi, AB6 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -ABC3.: - mov [micron], 45 - Text 100,70,0x00000000,ABC3, ABC3len-ABC3 - mov esi, ABC3 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -ABM.: - mov [micron], 45 - Text 100,70,0x00000000,ABM2, ABM2len-ABM - mov esi, ABM2 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AF1.: - mov [micron], 09 ;? - Text 100,70,0x00000000,AF1, AF1len-AF1 - mov esi, AF1 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest -AF3.: - mov [micron], 09 - Text 100,70,0x00000000,AF3, AF3len-AF3 - mov esi, AF3 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest -AF4.: - mov [micron], 13 - Text 100,70,0x00000000,AF4, AF4len-AF4 - mov esi, AF4 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest -AF5.: - mov [micron], 13 - Text 100,70,0x00000000,AF5, AF5len-AF5 - jmp MMXtest - -AF7.: - mov [micron], 13 - Text 100,70,0x00000000,AF5, AF5len-AF5 - mov esi, AF5 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AF8.: - mov [micron], 13 - Text 100,70,0x00000000,AF4, AF4len-AF4 - mov esi, AF4 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AFB.: - mov [micron], 13 - Text 100,70,0x00000000,AF4, AF4len-AF4 - mov esi, AF4 - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AFC.: - cmp [L2], 512 - je AFC.n - - cmp [sse3sup], 1 - je AFC.npal - -AFC.npar: ; paris - mov [micron], 13 - Text 100,70,0x00000000,AFCs, AFCslen-AFCs - mov esi, AFCs - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AFC.npal: ; palermo - mov [micron], 9 - Text 100,70,0x00000000,AFCsp, AFCsplen-AFCsp - mov esi, AFCsp - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AFC.n: ;newcastle - mov [micron], 13 - Text 100,70,0x00000000,AFC, AFClen-AFC - mov esi, AFC - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -AFE.: ; error in cpu - jmp AFC. - -AFF.: - - cmp [sse3sup], 1 - je .AFFsse - -.win: - mov [micron], 9 ; winchester - jmp MMXtest - -.AFFsse: - mov [micron], 9 - cmp [L2], 1024 - jz .AFs - cmp [L2], 512 - jz .AFd - cmp [L2], 256 - jz .AFp - -.AFs: - Text 100,70,0x00000000,AFS, AFSlen-AFS - mov esi, AFS - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -.AFd: - Text 100,70,0x00000000,AFV, AFVlen-AFV - mov esi, AFV - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest - -.AFp: - Text 100,70,0x00000000,AFCsp, AFCsplen-AFCsp - mov esi, AFCsp - mov edi, saveproc + 0x4 - call concatname - jmp MMXtest -;----------------------------------------------- -Intel: - mov [codeN], $1 - Text 75,70,0x00000000,Inteln, Intelnlen-Inteln - mov esi, IntelnNew - mov edi, saveproc - call concatname - mov esi, intel - call load_gif - PutImage 135,107,201,49,img_area+8 - -det: - cmp [f], $5 - jz five - cmp [f], $6 - jz six - cmp [f], $7 - jz sev - cmp [f], $F - jz fift -five: ;Family=5 - - Text 15, 190,0x00000000,cache, cachelen-cache - - cmp [m],$0 - jz .I0 - cmp [m],$1 - jz .I1 - cmp [m],$2 - jz .I2 - cmp [m],$3 - jz .I3 - cmp [m],$4 - jz .I4 - cmp [m],$7 - jz .I7 - cmp [m],$8 - jz .I8 -.I0: - mov [cname], P50 - mov esi, P50 - mov edi, saveproc + 0x6 - call concatname - mov [L1d], 8 - mov [L1i], 8 - mov [L2], 256 - mov [micron], 80 - jmp MMXtest -.I1: - mov [cname], P5 - mov esi, P5 - mov edi, saveproc + 0x6 - call concatname - mov [L1d], 8 - mov [L1i], 8 - mov [L2], 256 - mov [micron], 50 - jmp MMXtest - -.I2: - mov [cname], P54C - mov esi, P54C - mov edi, saveproc + 0x6 - call concatname - mov [L1d], 8 - mov [L1i], 8 - mov [L2], 256 - mov [micron], 50 - jmp MMXtest - -.I3: - mov [cname], P54T - mov esi, P54T - mov edi, saveproc + 0x6 - call concatname - mov [L1d], 8 - mov [L1i], 8 - mov [L2], 256 - mov [micron], 50 - jmp MMXtest - -.I4: - mov [cname], P55C - mov esi, P55C - mov edi, saveproc + 0x6 - call concatname - mov [L1d], 8 - mov [L1i], 8 - mov [L2], 256 - mov [micron], 35 - jmp MMXtest - - -.I7: - mov [cname], P54C - mov esi, P54C - mov edi, saveproc + 0x6 - call concatname - mov [L1d], 8 - mov [L1i], 8 - mov [L2], 256 - mov [micron], 35 - jmp MMXtest - -.I8: - mov [cname], P55C - mov esi, P55C - mov edi, saveproc + 0x6 - call concatname - mov [L1d], 16 - mov [L1i], 16 - mov [L2], 256 - mov [micron], 35 - jmp MMXtest - -six: ;Family=6 - - Text 15, 190,0x00000000,cache, cachelen-cache - cmp [newpc],$0 - jnz NEWintel - - cmp [m],$0 - jz .I60 - cmp [m],$1 - jz .I61 - cmp [m],$3 - jz .I63 - cmp [m],$5 - jz .I65 - cmp [m],$6 - jz .I66 - cmp [m],$7 - jz .I67 - cmp [m],$8 - jz .I68 - cmp [m],$9 - jz .I69 - cmp [m],$A - jz .I6A - cmp [m],$B - jz .I6B - cmp [m],$D - jz .I6D - cmp [m],$E - jz .I6E - cmp [m],$F - jz .I6F -.I60: - mov [micron], 50 - mov [cname], P60 - mov esi, P60 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.I61: - mov [micron], 35 - mov [cname], P61 - mov esi, P61 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.I63: - mov [micron], 28 - mov [cname], P63 - mov esi, P63 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.I65: - mov [micron], 25 - cmp [L2], 0 - jne .pp65 ; Pentium - mov [cname], P65c - mov esi, P65c - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.pp65: - mov [cname], P65 - mov esi, P65 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -.I66: - mov [micron], 25 - mov [cname], P66 - mov esi, P66 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -.I67: - mov [micron], 25 - ;but if SSE4.1 supported then it is Intel Core (Penryn) - mov [cname], P67 - mov esi, P67 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.I68: - mov [micron], 18 - cmp [L2], 128 - jne .pp68 ; Pentium - mov [cname], P68c - mov esi, P68c - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - - .pp68: - mov [cname], P68 - mov esi, P68 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.I69: - mov [micron], 13 - mov [cname], P69 - mov esi, P69 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.I6A: - mov [micron], 18 - ;but if SSE4.2 supported then it is Intel Core (Nehalem) - mov [cname], P6A - mov esi, P6A - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.I6B: - mov [micron], 13 - cmp [L2], 256 - jne .pp6B ; Pentium - mov [cname], P6Bc - mov esi, P6Bc - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.pp6B: - mov [cname], P6B - mov esi, P6B - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.I6D: - mov [micron], 9 - mov [cname], P6D - mov esi, P6D - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.I6E: - mov [micron], 6 - mov [cname], P6E - mov esi, P6E - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.I6F: - mov [micron], 6 - mov [cname], P6F - mov esi, P6F - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -;06Ex - Pentium M Yonah 0.065 -;06Fx - Pentium D Conroe 0.065, Xeon Woodcrest, Celeron D AllenDale, Core 2 Kentsfield - -NEWintel: - - cmp [em],$3A ;IvyBridge - jz I3A - cmp [em],$2A ;SandyBridge - jz I2A - cmp [em],$2D ;SandyBridge-E/EN/EP - jz I2D - cmp [em],$25 ;Arrandale/Clarksdale - jz I25 - cmp [em],$2C ;Gulftown/Westmere-EP - jz I2C ;westmere-EP stepping B1 -> micron 0.032 - cmp [em],$2F ;Westmere-EX - jz I2F - cmp [em],$1E ;Clarksfield/Lynnfield/Jasper Forest - jz I1E - cmp [em],$1A ;Bloomfield/Nehalem-EP - jz I1A - cmp [em],$2E ;Nehalem-EX - jz I2E - cmp [em],$17 ;Yorkfield/Wolfdale/Penryn/Harpertown (DP) - jz I17 - cmp [em],$1D ;Dunnington (MP) - jz I1D - cmp [em],$0F ;Clovertown/Kentsfield/Conroe/Merom/Woodcrest - jz I0F - cmp [em],$16 ;Merom Conroe - jz I16 - cmp [em],$06 ;Cedar Mill/Presler - jz I06 - cmp [em],$03 ;Nocona Irwindale / Prescott - jz I03 - cmp [em],$04 ;NoconaIrwindale / Prescott - jz I03 - cmp [em],$0D ;Dothan - jz I0D - cmp [em],$36 ;Cedarview - jz I36 - cmp [em],$26 ;Lincroft - jz I26 - cmp [em],$1C ;Pineview/Silverthorne - jz I1C - mov [cname], no_known - -Inewunknown: - jmp MMXtest - -I3A: - mov [micron], 32 - mov [cname], P3A - mov esi, P3A - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I2A: - mov [micron], 32 - mov [cname], P2A - mov esi, P2A - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I2D: - mov [micron], 32 - mov [cname], P2D - mov esi, P2D - mov edi,saveproc + 0x10 - call concatname - jmp MMXtest - -I25: - mov [micron], 32 - mov [cname], P25 ;P25 - mov esi, P25 - mov edi, saveproc + 0x10 ;12 - call concatname - jmp MMXtest - -I2C: - mov [micron], 32 - mov [cname], P2C - mov esi, P2C - mov edi,saveproc + 0x10 - call concatname - jmp MMXtest - -I2F: - mov [micron], 32 - mov [cname], P2F - mov esi, P2F - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I1E: - mov [micron], 32 - mov [cname], P1E - mov esi, P1E - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I1A: - mov [micron], 45 - mov [cname], P1A - mov esi, P1A - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I2E: - mov [micron], 45 - mov [cname], P2E - mov esi, P2E - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I17: - mov [micron], 45 - mov [cname], P17 - mov esi, P17 - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I1D: - mov [micron], 45 - mov [cname], P1D - mov esi, P1D - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I0F: - mov [micron], 65 - mov [cname], P0F - mov esi, P0F - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I16: - mov [micron], 65 - mov [cname], P16 - mov esi, P16 - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I06: - mov [micron], 32 - mov [cname], P06 - mov esi, P06 - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I03: - mov [micron], 32 - mov [cname], P03 - mov esi, P03 - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I0D: - mov [micron], 32 - mov [cname], P0D - mov esi, P0D - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I36: - mov [micron], 32 - mov [cname], P36 - mov esi, P36 - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I26: - mov [micron], 32 - mov [cname], P26 - mov esi, P26 - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - -I1C: - mov [micron], 32 - mov [cname], P1C - mov esi, P1C - mov edi, saveproc + 0x10 - call concatname - jmp MMXtest - - -;;;;;;;;;;;;;;;;;;; -sev: ;Family=7 -.IS0: - - Text 15, 190,0x00000000,cache, cachelen-cache - mov [micron], 18 - mov [cname], PS0 - mov esi, PS0 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -fift: ;Family=15 - - Text 15, 190,0x00000000,cacheP4, cacheP4len-cacheP4 - - cmp [m],$0 - jz .IF0 - cmp [m],$1 - jz .IF1 - cmp [m],$2 - jz .IF2 - cmp [m],$3 - jz .IF3 - cmp [m],$4 - jz .IF3 ;identical to F3xh - cmp [m],$5 - jz .IF5 - cmp [m],$6 - jz .IF6 - jmp next_generation -.IF0: - mov [micron], 18 - cmp [L2], 128 - jne .ppF0 ; Pentium - mov [cname], PF0c - mov esi, PF0c - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -.ppF0: - mov [cname], PF0 - mov esi, PF0 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -.IF1: - mov [micron], 18 - cmp [L2], 128 - je .IF0;jne.ppF1 ; Pentium - ; mov eax,dword 0x00000004 - ; mov ebx,115*65536+80 - ; mov ecx,dword 0x00000000 - ; mov edx,PF0c - ; mov esi,PF0clen-PF0c - ; mcall - ;jmp MMXtest -;.ppF1: - mov [cname], PF0 - mov esi, PF0 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -.IF2: - mov [micron], 13 - cmp [L2], 128 - jne .ppF2 ; Pentium - mov [cname], PF2c - mov esi, PF2c - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -.ppF2: - mov [cname], PF2 - mov esi, PF2 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -.IF3: - mov [micron], 09 - cmp [L2], 256 - jne .ppF3 ; Pentium - mov [cname], PF3c - mov esi, PF3c - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -.ppF3: - mov [cname], PF3 - mov esi, PF3 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.IF5: - mov [micron], 09 - cmp [L2], 512 - jae .ppF5 ; Pentium - mov [cname], PF5c - mov esi, PF5c - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -.ppF5: - mov [cname], PF5 - mov esi, PF5 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - - .IF6: - mov [micron], 06 ; 065 - cmp [L2], 512 - ja .ppF6 ; Pentium - mov [cname], PF6c - mov esi, PF6c - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -.ppF6: - mov [cname], PF6 - mov esi, PF6 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - - - next_generation: - mov [cname], NG - mov esi, NG - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -;---------------------------------- -Cyrix: - - mov [codeN], 3 - Text 15, 190,0x00000000,cache, cachelen-cache - - mov esi, cyrix - call load_gif - PutImage 135,107,201,49,img_area+8 - - - cmp [f], $5 - jz .fivv - cmp [f], $6 - jz .sixx -.fivv: ;Family=5 - cmp [m],$2 - jz .C52 - cmp [m],$4 - jz .C54 -.C52: - mov [micron], 50 ;35? - mov [L1i], 8 - mov [L1d], 8 - mov [L2], 512 - Text 75,70,0x00000000,Cyrixn, Cyrixnlen-Cyrixn - mov esi, Cyrixn - mov edi, saveproc - call concatname - mov [cname], C52 - mov esi, C52 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -.C54: - mov [micron], 50 - mov [L1i], 8 - mov [L1d], 8 - mov [L2], 512 - Text 75,70,0x00000000,Cyrixn, Cyrixnlen-Cyrixn - mov esi, Cyrixn - mov edi, saveproc - call concatname - mov [cname], C54 - mov esi, C54 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest - -.sixx: ;Family=6 - cmp [m],$0 - jz .C60 - cmp [m],$5 - jz .C65 -.C60: - mov [micron], 25 - mov [L1i], 32 - mov [L1d], 32 - mov [L2], 512 - Text 75,70,0x00000000,Cyrixn, Cyrixnlen-Cyrixn - mov esi, Cyrixn - mov edi, saveproc - call concatname - mov [cname], C60 - mov esi, C60 - mov edi, saveproc + 0x6 - call concatname - jmp MMXtest -.C65: - mov [micron], 25 ;35? - mov [L1i], 32 - mov [L1d], 32 - mov [L2], 512 - Text 75,70,0x00000000,Centaurn, Centaurnlen-Centaurn - mov esi, Centaurn - mov edi, saveproc - call concatname - mov edx,C65 - mov esi,C65len-C65 - jmp OutProcName -;--------------------- -Centaur: - - Text 15, 190,0x00000000,cache, cachelen-cache - -;CACHE1: - mov eax, 80000005h - cpuid - shr ecx, 24 - mov [L1d], ecx - shr edx, 24 - mov [L1i], edx - -; cache detection routine -;CACHE1: - mov eax, 80000005h - cpuid - - movzx eax, cl - mov [lineld], eax - - mov eax, ecx - shr eax, 16 - and eax,000000FFh - mov [wayld], eax - - shr ecx, 24 - mov [L1d], ecx - - movzx eax, dl - mov [lineli], eax - - mov eax, edx - - shr eax, 16 - and eax,000000FFh - mov [wayli], eax - - shr edx, 24 - mov [L1i], edx - - -;CACHE2: - mov eax, 80000006h - cpuid - - cmp [f], $6 - jz vn - jmp vl2old ; if not then old identification -vn: - cmp [m],$9 - jl vl2old - ; else new - movzx eax, cl - mov dword[linel2], eax - - mov eax, ecx - shl eax, 16 - shr eax, 28 - - mov dword[wayl2], eax - - shr ecx, 16 ; it is 16 bits now - mov [L2],ecx - - - -vl2old: - movzx eax, cl - mov dword[linel2], eax - - mov eax, ecx - shl eax, 8 - shr eax, 24 - - mov dword[wayl2], eax - - shr ecx, 24 ; it was 8 bits earlier - mov [L2],ecx - - - cmp [f], $5 - jz fivC - cmp [f], $6 - jz sixC - -fivC: ;Family=5 - - mov esi, idt - call load_gif - PutImage 135,107,201,49,img_area+8 - ;PutImage 125,107,201,49,img_area+8 - ; place size - - Text 75,70,0x00000000,IDTn, IDTnlen-IDTn - mov esi, IDTn - mov edi, saveproc + 0x4 - call concatname - cmp [m],$4 - jz .V54 - cmp [m],$8 - jz .V58 - cmp [m],$9 - jz .V59 -.V54: - mov [micron], 35 - mov edx,V54 - mov esi,V54len-V54 - jmp OutProcName -.V58: - mov [micron], 25 - mov edx,V58 - mov esi,V58len-V58 - jmp OutProcName -.V59: - mov [micron], 25 - mov edx,V59 - mov esi,V59len-V59 - jmp OutProcName - -sixC: ;Family=6 - - mov esi, via - call load_gif - PutImage 135,107,201,49,img_area+8 - - - Text 75,70,0x00000000,Centaurn, Centaurnlen-Centaurn - mov esi, Centaurn - mov edi, saveproc - call concatname - cmp [m],$6 - jz .V66 - cmp [m],$7 - jz .V67 - cmp [m],$8 - jz .V68 - cmp [m],$9 - jz .V69 - cmp [m],$A - jz .V6A -.V66: - mov [micron], 18 ; 25? - mov edx,V66 - mov esi,V66len-V66 - jmp OutProcName -.V67: - mov [micron], 15 - mov edx,V67 - mov esi,V67len-V67 - jmp OutProcName -.V68: - mov [micron], 13 - mov edx,V68 - mov esi,V68len-V68 - jmp OutProcName -.V69: - mov [micron], 13 - mov edx,V69 - mov esi,V69len-V69 - jmp OutProcName -.V6A: - mov [micron], 9 - mov edx,VA - mov esi,VAlen-VA - jmp OutProcName -;----------- -Transmeta: - - Text 15, 190,0x00000000,cache, cachelen-cache - - Text 75,70,,Tranmsmetan, Tranmsmetanlen-Tranmsmetan - mov esi, Tranmsmetan - mov edi, saveproc - call concatname - - mov esi, transmeta - call load_gif - PutImage 135,107,201,49,img_area+8 - -; cache detection routine - it is the same as for AMD (almost) -;CACHE1: - mov eax, 80000005h - cpuid - - movzx eax, cl - mov [lineld], eax - - mov eax, ecx - - shr eax,16 - and eax,000000FFh - mov [wayld], eax - - shr ecx, 24 - mov [L1d], ecx - - movzx eax, dl - mov [lineli], eax - - mov eax, edx - - shr eax, 16 - and eax,000000FFh - mov [wayli], eax - - shr edx, 24 - mov [L1i], edx - - -;CACHE2: - mov eax, 80000006h - cpuid - - movzx eax, cl - mov dword[linel2], eax - - mov eax, ecx - shl eax, 16 - shr eax, 28 - - mov dword[wayl2], eax - - shr ecx, 16 - mov [L2],ecx - - - cmp [f], $5 - jz .fivt - cmp [f], $F - jz .fift -.fivt: ; Family=5 - - mov edx,T5 - mov esi,T5len-T5 - jmp @f - -.fift: ; Family=F - mov edx,TF - mov esi,TFlen-TF -@@: - mov [micron], 13 ; - Text 140,70,0 - jmp MMXtest - -OutProcName: - Text 100,70,0 - -;---- -;---------------------------------- new -Vortex: - - Text 15, 190,0x00000000,cache, cachelen-cache - - mov esi, vortex - call load_gif - PutImage 135,107,201,49,img_area+8 - ;PutImage 130,127,201,49,img_area+8 - ; place size - - cmp [f], $5 - jz .V54 ;fivvtx -;.fivvtx: ;Family=5 -; cmp [m],$4 -; jz .V54 -.V54: - mov [micron], 13 - mov [L1i], 16 - mov [L1d], 16 - mov [L2], 256 - mov [wayl2], 4 - mov [wayli], 4 - mov [wayld], 4 - Text 75,70,0x00000000,Vortexn, Vortexnlen-Vortexn - mov esi, Vortexn - mov edi, saveproc - call concatname - jmp MMXtest - -;--------------------- - - - -MMXtest: ; MMX test and Brand ID decoding - - call decodebrand ; get Brand ID - - call decode_standard_features - - call decode_extended_features - - xor eax,eax - inc eax - cpuid -HTTtest: - test edx, $10000000; ;Test bit 28 - jz .ELN - -.EL: ;HTT technology is supported - and ebx,00FF0000h ; numbers of logical processors - cmp ebx, 1 shl 16 - ; mov [number_of_log_cpus], ebx - je .ELN ; HHT not enabled (Celeron) - - mov dword [HTTn+9], $736579 - mov dword [HTT+ 6], $736579 - jmp TEXTOUT -.ELN: - - mov dword [HTTn+ 9], $6F6E - mov dword [HTT+ 6], $6F6E - -TEXTOUT: - - Text 275,290,0x00000000,HTT, HTTlen-HTT - Text 275,310,,sse3, sse3len-sse3 - Text 15,290,,MMXs, MMXslen-MMXs - Text 15,310,,SSE, SSElen-SSE - Text 95,310,,SSE2, SSE2len-SSE2 - -;------------------- -TEST3DNOW: - - xor edx, edx - cmp [smallvendor], 'ntel' - ; je @f ;recent change - jne .t - -.t: - - mov eax, $80000001 ;// Setup extended function 8000_0001h - cpuid - - test edx, $80000000 ;// Test bit 31 - jnz .XIT - -.NOEXTENDED: ;// 3DNow! technology is supported - mov dword [now+ 9], $6F6E - jmp TEST3DNOWP -.XIT: - mov dword [now+ 9], $736579 - jmp TEST3DNOWP - -TEST3DNOWP: - - cmp [smallvendor], 'ntel' - je .NOEXTENDEDP - -.tp: - - mov eax, $80000001 ;// Setup extended function 8000_0001h - cpuid - - test edx, $40000000 ;// Test bit 30 - jnz .XITP ;// 3DNow! technology is supported - -.NOEXTENDEDP: - mov dword [nowp+ 9], $6F6E - jmp TESTMMXP -.XITP: - mov dword [nowp+ 9], $736579 - jmp TESTMMXP - - -TESTMMXP: - - mov eax,$80000000 - cpuid - - test eax, 80000000h - jna NOEXTENDEDM - - ;cmp eax, $80000000 ;// Is 800_0001h supported? - ;jz .NOEXTENDEDM ;// If not, 3DNow! technology is not supported - mov eax, $80000001 ;// Setup extended function 8000_0001h - cpuid - cmp [smallvendor], 'tead' - jne noCyr -Cyrmx: - test edx, $01000000 ;// Test bit 24 - jnz XITM ;// 3DNow! technology is supported - jz NOEXTENDEDM -noCyr: - test edx, $00400000 ;// Test bit 22 - jnz XITM ;// 3DNow! technology is supported - ;jz .NOEXTENDEDM - -NOEXTENDEDM: - mov dword [mmxp+ 7], $6F6E - mov dword [MMXPi+ 8], $6F6E - jmp text3d -XITM: - mov dword [mmxp+ 7], $736579 - mov dword [MMXPi+ 8], $736579 - -text3d: - - Text 15,330,0x00000000,now, nowlen-now - Text 95,330,,nowp, nowplen-nowp - Text 95,290,,mmxp, mmxplen-mmxp - Text 110,70,0x80000000,dword[cname] - - jmp still - -;-------------------------- -NO_CPUID: - mov [nocpuid], 1 - Text 15,50,0x00000000,oblom, oblomlen-oblom - -FREEZE: - nop - jmp FREEZE ; maybe we should close application or just made some Warning and jump to still: -;---------------- -still: - -; waiting for events -event_wait: - - mov eax,23 ; function 23 - event wait - mov ebx,50 ; wait for 0.5 second - mcall - - cmp eax,1 ; - je red ; redraw - cmp eax,2 ; - je key ; key - cmp eax,3 ; - je button ; button - jmp still ; - key: ; - mcall ; - jmp still ; - button: ; - mov eax,17 ; - mcall ; - cmp ah,1 ; = 1 ? - je close ; close - - cmp ah,2 ; = 2 ? - je thread_start ; - - cmp ah, 3 - je call_OpenDialog - - mov eax,11 ; function 23 - event wait - mov ebx,1 - mcall - - mov eax,15 ; function 23 - event wait - mov ebx,3 - mcall - -; cmp ah,3 ; = 3 ? - jne still - -close: - mov eax,-1 - mcall - -;**************************** THREAD-SECOND WINDOW -thread_start: - - cmp [num_win2],0 - jne still - -;================================================RSA test - -;test rsa coding speed - call init_test -;length of module - 256 bit - mov eax,26 - mov ebx,9 - mcall - add eax,100 ;test lasts 1 second. - push eax -.loop: - push 4 ;do 4 iterations - this reduces number of calls mcall. -.loop1: - call rsa_test ;this procedure change all registers - dec dword [esp] - jnz .loop1 - pop ecx - mov eax,26 - mov ebx,9 - mcall - cmp eax,dword [esp] ;Is time changed? - jl .loop - pop eax - shr dword [iter],4 ;[iter] - speed in Kb/sec. (every iteration codes 64 bytes) - CreateTread window_2,thread2_esp - jmp still - -window_2: - mov [num_win2],1 - call draw_window_2 - -still_2: - - mov eax,10 - mcall - - cmp eax,1 - je window_2 ; window_2 - cmp eax,2 ; - je key_2 ; key_2 - cmp eax,3 ; - je button_2 ; button_2 - - jmp still_2 ; - - key_2: ; - mcall ; - jmp still_2 ; - - button_2: ; - mov eax,17 ; 17 - mcall ; - - cmp ah,1 ; = 1 ? - jne still_2 ; noclose - - mov [num_win2],0 ; - - or eax,-1 ; - mcall - - -draw_window_2: - - ;call prepare_text_area - - mov eax,12 ; function 12:tell os about windowdraw - mov ebx,1h ; 1, start of draw - mcall - - - Window 250,250,420,520, 0x33FFFFFF, 0x805080d0, standard ;460 - ; place size - - - Text 15, 10,0x00000000, STDCA, STDCAlen-STDCA - Text 215, 10,, EXTCA, EXTCAlen-EXTCA - - Text 15, 30,0x00000000, FPU, FPUlen-FPU - Text 115, 30,, VME, VMElen-VME - Text 215, 30,, DE, DElen-DE - Text 315, 30,, PSE, PSElen-PSE - - Text 15, 50,,TSC, TSClen-TSC - Text 115,50,,MSR, MSRlen-MSR - Text 215,50,,PAE, PAElen-PAE - Text 315,50,,MCE, MCElen-MCE - - Text 15,70,,CX8, CX8len-CX8 - Text 115,70,,APIC, APIClen-APIC - Text 215,70,,Res, Reslen-Res - Text 315,70,,SEP, SEPlen-SEP - - Text 15,90,,MTRR, MTRRlen-MTRR - Text 115,90,,PGE, PGElen-PGE - Text 215,90,,MCA, MCAlen-MCA - Text 315,90,,CMOV, CMOVlen-CMOV - - Text 15,110,,PAT, PATlen-PAT - Text 115,110,,PSE36, PSE36len-PSE36 - Text 215,110,,PSNUM, PSNUMlen-PSNUM - Text 315,110,,CLFLUSHn, CLFLUSHnlen-CLFLUSHn - - Text 15,130,,Res, Reslen-Res - Text 115,130,,DTS, DTSlen-DTS - Text 215,130,,ACPI, ACPIlen-ACPI - Text 315,130,,MMX, MMXlen-MMX - - Text 15,150,,FXSR, FXSRlen-FXSR - Text 115,150,,SSE, SSElen-SSE - Text 215,150,,SSE2, SSE2len-SSE2 - Text 315,150,,SSn, SSnlen-SSn - - Text 15,170,,HTT, HTTnlen-HTTn - Text 115,170,,TM, TMlen-TM - Text 215,170,,IA64, IA64len-IA64 - Text 315,170,,PBE, PBElen-PBE - ;--------------- - DrawLine 0, 410, 185,185,0x8080FF ;10 - - mov eax,$80000000 - cpuid - ;mov eax, $03020101 \A0for test of reaction - test eax, eax - js goooddd - -baaadd: - Text 95,235,0x00000000,NEF, NEFlen-NEF - jmp too - -goooddd: - Text 15,195,0x00000000,SS3, SS3len-SS3 - Text 15,215,,MON, MONlen-MON - Text 15,235,,DS_CPL, DS_CPLlen-DS_CPL - Text 15,255,,EST, ESTlen-EST - Text 15,275,,TM2, TM2len-TM2 - Text 15,295,,VMX, VMXlen-VMX - Text 15,315,,SVM, SVMlen-SVM - - Text 15,355,0x00000000,SMX, SMXlen-SMX - Text 15,335,0x00000000,PAGE, PAGElen-PAGE - Text 15,375,0x00000000,MIS, MISlen-MIS - Text 115,355,0x00000000,WDT, WDTlen-WDT - - Text 115,195,,CNXT_ID, CNXT_IDlen-CNXT_ID - Text 115,215,,CX16, CX16len-CX16 - Text 115,235,,ETPRD, ETPRDlen-ETPRD - Text 115,255,,SYS, SYSlen-SYS - Text 115,275,,LAF, LAFlen-LAF - Text 115,295,,SSSE3, SSSE3len-SSSE3 - Text 115,315,,MCR8, MCR8len-MCR8 - - - Text 115,335,0x00000000,EAS, EASlen-EAS - - Text 115,375,0x00000000,DNP, DNPlen-DNP - - - Text 315,375,0x00000000,SSE5, SSE5len-SSE5 - - Text 215,195,,MP, MPlen-MP - Text 215,215,,NX, NXlen-NX - Text 215,235,,MMXPi, MMXPilen-MMXPi - Text 215,255,,MMXn, MMXnlen-MMXn - Text 215,275,,FXSRn, FXSRnlen-FXSRn - Text 215,295,,DCA,DCAlen-DCA - - Text 315,295,0x00000000,SSE41,SSE41len-SSE41 - Text 215,335,0x00000000,x2APIC,x2APIClen-x2APIC - Text 215,355,0x00000000,ABM,ABMlen-ABM - Text 215,375,0x00000000,OSVW,OSVWlen-OSVW - - Text 315,195,,FFXSR, FFXSRlen-FFXSR - Text 315,215,,TSCP, TSCPlen-TSCP - Text 315,235,,LM, LMlen-LM - Text 315,255,,DNo, DNolen-DNo - Text 315,275,,DN, DNlen-DN - Text 215,315,,CMPL, CMPLlen-CMPL - Text 315,315,0x00000000,SS42,SS42len-SS42 - Text 315,335,0x00000000,PPCNT,PPCNTlen-PPCNT - Text 315,295,0x00000000,SSE4A,SSE4Alen-SSE4A - Text 315,355,0x00000000,SKINIT_,SKINIT_len-SKINIT_ - -too: - DrawLine 10, 400, 430,430,0x8080FF ;10 - - Text 15,415,0x00000000,speed, speedlen-speed - Text 130,415,,kbpersec, kbperseclen-kbpersec - - DrawLine 10, 80, 400, 400, 0x8080FF - - Text 90,400,0x80000000,performancestr, 0 - DrawLine 322, 400, 400, 400, 0x8080FF - DrawLine 10, 10, 400, 490, 0x8080FF - DrawLine 400, 400, 400, 490, 0x8080FF - - DrawLine 10, 400, 490, 490, 0x8080FF - - ; your proc - Text 20,415,0x808080FF,currentcpu, 0 - Number 170,415,0,5,dword [iter],0x000000 ; + 15 - ;Text 115,370,,kbpersec, kbperseclen-kbpersec ;+ 355 - mov eax, dword[iter] - ;mov ebx, 100 - ;mul ebx - add eax, 215 - mov word[linelen], ax ; need to store it as drawline corrupts eax - DrawLine 215, [linelen], 416,416,0x8080FF ;10 + 355 , 357 - DrawLine 215, [linelen], 417,417,0x8080FF ;10 - DrawLine 215, [linelen], 418,418,0x8080FF ;10 -;;; DrawLine 20, 390, 371,371,0x8080FF ;10 - - ; sample proc 1 - Text 20,435,0x80000000,samplename1,0 ; 10 + 40 + 40 +40 + 380 - Number 170,435,0,5,dword [samplespeed1],0x000000; ; 25 + 40 + 40 +40 + 380 - ;Text 115,470,0,kbpersec, kbperseclen-kbpersec ; 25 + 40 + 40 +40 + 380 - mov eax, dword[samplespeed1] - add eax, 215 - mov dword[linelen], eax ; need to store it as drawline corrupts eax - DrawLine 215, [linelen], 436,436,0x8080FF ;27+40 + 40 +40 + 380 - DrawLine 215, [linelen], 437,437,0x8080FF ;10 - DrawLine 215, [linelen], 438,438,0x8080FF ;10 - - ; sample proc 2 - Text 20,455,0x80000000,samplename2,0 ; 10 + 40 + 350 - Number 170,455,0,5,dword [samplespeed2],0x000000; ; 25 + 40 + 350 - ;Text 115,410,0,kbpersec, kbperseclen-kbpersec ; 25 + 40 + 350 - mov eax, dword[samplespeed2] - add eax, 215 - mov dword[linelen], eax ; need to store it as drawline corrupts eax - DrawLine 215, [linelen], 456,456,0x8080FF ;27+40 + 355 - DrawLine 215, [linelen], 457,457,0x8080FF ;10 - DrawLine 215, [linelen], 458,458,0x8080FF ;10 - - ; sample proc 3 - Text 20,475,0x80000000,samplename3,0 ; 10 + 40 + 40 + 38 - Number 170,475,0,5,dword [samplespeed3],0x000000; ; 25 + 40 + 40 + 355 - ;Text 115,440,0,kbpersec, kbperseclen-kbpersec ; 25 + 40 + 40 + 380 - mov eax, dword[samplespeed3] - add eax, 215 - mov dword[linelen], eax ; need to store it as drawline corrupts eax - DrawLine 215, [linelen], 476,476,0x8080FF ;27+40 + 40 - DrawLine 215, [linelen], 477,477,0x8080FF ;10 - DrawLine 215, [linelen], 478,478,0x8080FF ;10 - - mov eax,12 - mov ebx,2h - mcall - - ret - -linelen dd 0 -currentcpu db 'Current CPU',0 -samplename1 db 'Intel Core i5 CPU', 0x000000 ; not real results! -samplespeed1 dd 62 -samplename2 db 'Intel Core i3 CPU', 0 -samplespeed2 dd 48 -samplename3 db 'Intel Pentium Dual CPU', 0 -samplespeed3 dd 35 -performancestr db 'PERFORMANCE (KB/S in RSA test 256 bit)',0 -ptsstring db '' -num_win2 db 0 - -draw_window: - mcall SF_REDRAW, SSF_BEGIN_DRAW - - Window 150, 150, 350, 405, 0x34FFFFFF, 0x805080d0, title - - mov esi, [sc.work_button] - mcall SF_DEFINE_BUTTON, <138,92>, <345,24>, 2 - mcall SF_DEFINE_BUTTON, <238,92>, <345,24>, 3 - - mov ecx, [sc.work_button_text] - or ecx, 0x90000000 - mov edx, btn_more_cap - mcall SF_DRAW_TEXT, (138 + (92 - 7 * 8) / 2) shl 16 + 350 - mov edx, btn_save_cap - mcall SF_DRAW_TEXT, (238 + (92 - 4 * 8) / 2) shl 16 + 350 - - Text 130,270,0x00000000,instruct, instructlen-instruct - DrawLine 10, 330, 340,340,0x8080FF - DrawLine 330, 330, 275,340;,0x8080FF - DrawLine 10, 10, 275,340;,0x8080FF - DrawLine 10, 125, 275,275;,0x8080FF - DrawLine 230, 330, 275,275;,0x8080FF - - cmp dword[smallvendor], 'cAMD' - jne cont - cmp [f], $6 - jne cont - -; Button 240,85,69,15,3,0x030000FF ; button for rating -; Text 245,90,0x00FFFFFF,FR, FRlen-FR ; text at button - - call newrating; !!!! - -cont: - ;Number 82,50,0,4,dword [total],0x000000; MHz - mov esi, total - mov edi, tsum + 0xB ;0xA - call savenumber - - ;Number 110,50,0,2,dword [sot]; KHz - mov esi, sot - mov edi, tsum + 0x10 - call savenumber - - ;Number 75,110,1*256,1,dword [f],0x000000 ; - mov esi, f - mov edi, fam + 0x8 ;0x9 - call savenumber - - ;Number 75,130,,,dword [m] - mov esi, m - mov edi, mode + 0x7 - call savenumber - - ;Number 75,150,,,dword [s] - mov esi, s - mov edi, step + 0xa ;0x9 - call savenumber - - ;Number 110,110,1*256,2,dword [ef] - mov esi, ef - mov edi, fam + 0xE ;0x9 - call savenumber - - ;Number 110,130,,,dword [em] - mov esi, em - mov edi, mode + 0xE ;0xD - call savenumber - - mov esi, multb - mov edi, multil + 0xB - call savenumber - - ;Number 105,30,0,1,dword [multa] - mov esi, multa - mov edi, multil + 0xf - call savenumber - - ;Number 140,170,0,2,dword [wayld],0x000000 - mov esi, wayld - mov edi, cache2 + 0x14 ;0x14 - call savenumber - - ;Number 218,170,,,dword [lineld] - mov esi, lineld - mov edi, cache2 + 0x21 - call savenumber - - ;Number 140,190,,,dword [wayli] - mov esi, wayli - mov edi, cache + 0x14 - call savenumber - ;Number 218,190,,,dword [lineli] - mov esi, lineli - mov edi, cache + 0x21 - call savenumber - - ;Number 140,210,,,dword [wayl2] - mov esi, wayl2 - mov edi, cache3 + 0x14 - call savenumber - ;Number 218,210,,,dword [linel2] - mov esi, linel2 - mov edi, cache3 + 0x21 - call savenumber - - ;Number 140,230,,,dword [wayl3] - mov esi, wayl3 - mov edi, cache4 + 0x14 - call savenumber - ;Number 218,230,,,dword [linel3] - mov esi, linel3 - mov edi, cache4 + 0x21 - call savenumber - - mov esi, L1d - mov edi, cache2 + 0xa - call savenumber - - ;Number 75,190,,,dword [ L1i] - mov esi, L1i - mov edi, cache + 0xa - call savenumber - - ;Number 41,210,0,4,dword[L2] - mov esi, L2 - mov edi, cache3 + 0x4 ;0x3 - call savenumber - - ;Number 35,230,0,5,dword[L3] - mov esi, L3 - mov edi, cache4 + 0x4 ;0x3 - call savenumber - - ;-----------Features - ;Number 258,50,0,2,dword [micron] ; micron - mov esi, micron - mov edi, tech + 0xE - call savenumber - - mov esi, stdc - mov edi, STDCA + 0x14 - call savenumber - - ;Number 335,10,,,dword [extc], - mov esi, extc - mov edi, EXTCA + 0x14 - call savenumber - - Text 15,90,,cpuname, cpunamelen-cpuname; - Text 255,250,,typen, typenlen-typen - Text 175, 50,,tech, techlen-tech; - - red2: - - ;;;;;;;;;;;;;;;;;;;;;;;; - goon: - - call decodebrand - - typedetect: - mov edx, t1 - cmp [t], 00b - jz @f - mov edx, t2 - cmp [t], 01b - jz @f - mov edx, t3 - cmp [t], 11b - jz @f - mov edx, t4 -@@: - mov ebx, 290*65536 + 250 - mov ecx, 0x80000000 - mcall 4 - - Text 15,250,,brandid, brandidlen-brandid - - Text 15,50,0x00000000,tsum, tsumlen-tsum - Text 15,110,0x00000000,fam, famlen-fam - Text 15,130,0x00000000,mode, modelen-mode - Text 15,150,0x00000000,step, steplen-step - - Text 275,290,0x00000000,HTT, HTTlen-HTT - Text 275,310,,sse3, sse3len-sse3 - - Text 175,290,0x00000000,SSE41, SSE41len-SSE41 - Text 175,310,0x00000000,SSE42, SSE42len-SSE42 - Text 175,330,0x00000000,SSE5, SSE5len-SSE5 - - - Text 15,70,,name, namelen-name - Text 15,290,,MMXs, MMXslen-MMXs - Text 15,310,,SSE, SSElen-SSE - Text 95,310,,SSE2, SSE2len-SSE2 - - Text 95,290,,mmxp, mmxplen-mmxp - Text 15,330,0x00000000,now, nowlen-now - Text 95,330,,nowp, nowplen-nowp - - Text 15, 190,0x00000000,cache, cachelen-cache - Text 15,170,0x00000000,cache2, cache2len-cache2 - Text 15,210,,cache3, cache3len-cache3 - Text 15,230,,cache4, cache4len-cache4 - call load_gif - - cmp [nomultiplier], $1 - je nomultip - Text 15,30,0x00000000,multil2, multil2len-multil2 - Text 175,30,0x00000000,freql2, freql2len-freql2 - Number 85,30,0,2,dword [multb],0x000000; - Number 105,30,0,1,dword [multa] - Number 259,30,0,4,dword [freqbb] - Number 289,30,0,2,dword [freqll] - -JumpForCodename: - cmp [codeN], $1 - je codeNIntel - cmp [codeN], $2 - je codeNAMD - cmp [codeN], $3 - je codeNCyrix - cmp [codeN], $4 - je codeNCentaur - cmp [codeN],$5 - je codeNTransmeta - cmp [codeN], $6 - je codeNVortex - jmp nnn - -codeNIntel: - Text 75,70,0x00000000,Inteln, Intelnlen-Inteln - mov esi, intel - call load_gif - PutImage 135,107,201,49,img_area+8 - jmp nnn - -codeNAMD: - Text 75,70,,AMDn, AMDnlen-AMDn - mov esi, amd - call load_gif - PutImage 135,107,201,49,img_area+8 - jmp nnn - -codeNCyrix: - Text 75,70,0x00000000,Cyrixn, Cyrixnlen-Cyrixn - mov esi, cyrix - call load_gif - PutImage 135,107,201,49,img_area+8 - jmp nnn - -codeNCentaur: - Text 75,70,0x00000000,IDTn, IDTnlen-IDTn - mov esi, idt - call load_gif - PutImage 135,107,201,49,img_area+8 - jmp nnn - -codeNTransmeta: - Text 75,70,,Tranmsmetan, Tranmsmetanlen-Tranmsmetan - mov esi, transmeta - call load_gif - PutImage 135,107,201,49,img_area+8 - jmp nnn - -codeNVortex: - Text 75,70,0x00000000,Vortexn, Vortexnlen-Vortexn - mov esi, vortex - call load_gif - PutImage 135,107,201,49,img_area+8 - jmp nnn - -nomultip: - Text 15,30,0x00000000,multi3, multi3len-multi3 - Text 175,30,0x00000000,freql3, freql3len-freql3 - Text 259,30,0x00000000, clock0, clock0len-clock0 - - jmp JumpForCodename - - nnn: - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - - Text 15,10,0x00000000,stm, stmlen-stm - ; Fix for deleting leading whitespaces - ; in Intel P4's internal name - ; by Madis Calme - ; 23.12.2004 ver. 0.81 - cld - mov edi,myname - mov al,20h - or ecx,-1 - repe scasb - dec edi - mov esi,mynamelen - sub esi,edi - Text 105, 10, 0x00000000, edi, esi -;- - Text 15,250,,brandid, brandidlen-brandid - - mcall SF_REDRAW, SSF_END_DRAW - - ret ; - -call_OpenDialog: - - mov [OpenDialog_data.type],1 ; Save - - push dword OpenDialog_data - call [OpenDialog_Start] - - cmp [OpenDialog_data.status],2 ; OpenDialog does not start - je .save_file_default_path - - cmp [OpenDialog_data.status],1 - jne still - - call store_data - jmp still - -.save_file_default_path: - mov edi,file_name - mov esi,file_default_path - call copy_file_name_path - call store_data - jmp still - -copy_file_name_path: - xor eax,eax - cld -@@: - lodsb - stosb - test eax,eax - jnz @r - ret - -;----------------------------------------------------------------------------- -prepare_text_area: - mov edi,[store_text_area_start] - - push edi - mov ecx,4096 - mov eax,dword ' ' - cld - rep stosd - pop edi - mov [store_text_area_end], edi - - mov esi,title - call addstring - - mov esi, stm - call addstring - - mov esi, myname - call addstring - - cmp [nomultiplier], $1 - je noMult - jne detMulti - ;jne detFreq - - detMulti: - mov esi,multil - call addstring - jmp detFreq - - detFreq: - mov esi, freql - call addstring - - noMult: - mov esi,multi3 - call addstring - - mov esi,freql3 - call addstring - - mov esi, tech - call addstring - - mov esi, saveproc - call addstring - - mov esi, cpuname - call addstring - - mov esi, fam - call addstring - - mov esi, mode - call addstring - - mov esi, step - call addstring - - mov esi, cache2 - call addstring - - mov esi, cache - call addstring - - mov esi, cache3 - call addstring - - mov esi, cache4 - call addstring - - mov esi, brandid - call addstring - - mov esi, MMXs - call addstring - - mov esi, mmxp - call addstring - - mov esi, now - call addstring - - mov esi, HTT - call addstring - - mov esi, SSE - call addstring - - mov esi, SSE41 - call addstring - - mov esi, SSE42 - call addstring - - mov esi, SSE5 - call addstring - - mov esi, SSE2 - call addstring - - mov esi, nowp - call addstring - - mov esi, sse3 - call addstring - - mov esi, standard - call addstring - - mov esi, STDCA - call addstring - - mov esi, EXTCA - call addstring - - mov esi, FPU - call addstring - - mov esi, VME - call addstring - - mov esi, DE - call addstring - - mov esi, PSE - call addstring - - mov esi, TSC - call addstring - - mov esi, MSR - call addstring - - mov esi, PAE - call addstring - - mov esi, MCE - call addstring - - mov esi, CX8 - call addstring - - mov esi, APIC - call addstring - - mov esi, Res - call addstring - - mov esi, SEP - call addstring - - mov esi, MTRR - call addstring - - mov esi, PGE - call addstring - - mov esi, MCA - call addstring - - mov esi, CMOV - call addstring - - mov esi, PAT - call addstring - - mov esi, PSE36 - call addstring - - mov esi, PSNUM - call addstring - - mov esi, CLFLUSHn - call addstring - - mov esi, Res - call addstring - - mov esi, DTS - call addstring - - mov esi, ACPI - call addstring - - mov esi, MMX - call addstring - - mov esi, FXSR - call addstring - - mov esi, SSE - call addstring - - - mov esi, SSn - call addstring - - mov esi, HTT - call addstring - - mov esi, TM - call addstring - - mov esi, IA64 - call addstring - - mov esi, PBE - call addstring - - mov esi, SS3 - call addstring - - mov esi, CNXT_ID - call addstring - - mov esi, MP - call addstring - - mov esi, FFXSR - call addstring - - mov esi, MON - call addstring - - mov esi, CX16 - call addstring - - mov esi, NX - call addstring - - mov esi, TSCP - call addstring - - mov esi, DS_CPL - call addstring - - mov esi, ETPRD - call addstring - - mov esi, MMXPi - call addstring - - mov esi, LM - call addstring - - mov esi, EST - call addstring - - mov esi, SYS - call addstring - - mov esi, MMXn - call addstring - - mov esi, DNo - call addstring - - mov esi, TM2 - call addstring - - mov esi, LAF - call addstring - - mov esi, FFXSR - call addstring - - mov esi, DN - call addstring - - mov esi, VMX - call addstring - - mov esi, SSSE3 - call addstring - - mov esi, DCA - call addstring - - mov esi, CMPL - call addstring - - mov esi, SVM - call addstring - - mov esi, MCR8 - call addstring - - mov esi, SMX - call addstring - - mov esi, x2APIC - call addstring - - mov esi, PPCNT - call addstring - - mov esi, PAGE - call addstring - - mov esi, EAS - call addstring - - mov esi, ABM - call addstring - - mov esi, MIS - call addstring - - mov esi,OSVW - call addstring - - mov esi,SKINIT_ - call addstring - - mov esi, WDT - call addstring - - ret - -addstring: - mov edi, [store_text_area_end] - xor eax, eax - xor ecx, ecx - cld -@@: - lodsb - stosb - inc [store_text_area_end] - cmp [esi], byte 0x0 - jnz @r - mov al,0Ah - stosb - - mov [store_text_area_end],edi - xor edi,edi - xor esi, esi - ret - -savenumber: - xor eax, eax - cld - lodsw - call numbertostring - xor esi, esi - xor edi, edi - - ret - -savestring: - xor eax, eax - cld - lodsw - ;call numbertostring - xor esi, esi - xor edi, edi - - ret - -numbertostring: - mov bx, 10 - xor ecx, ecx -@@m1: - xor dx, dx - div bx - push dx - inc cx - test ax, ax - jnz @@m1 -@@m2: - pop ax - add al, '0' - stosb - loop @@m2 - ret - -concatname: - ;mov edi, [saveproc] - xor eax, eax - xor ecx, ecx - cld -@@: - lodsb - stosb - cmp [esi], byte 0x0 - jnz @r - - xor edi,edi - xor esi, esi - ret - -store_data: - call prepare_text_area - mov eax,[store_text_area_start] - mov [fileinfo.return],eax - mov ebx,[store_text_area_end] - sub ebx,eax - inc ebx - mov [fileinfo.size],ebx - mcall 70,fileinfo - ret - -load_gif: - mov edi, img_area - jmp ReadGIF - - -; DATA AREA - -title db 'CPUID 2.31 by S.Kuzmin & KolibriOS Team',0 - -stm: - db 'Internal name:', 0 - -stmlen: - -SS42: - db 'SSE4.2: ',0 -SS42len: - -SMX: - db 'SMX: ',0 -SMXlen: - -x2APIC: - db 'x2APIC: ' -x2APIClen: - -PPCNT: - db 'POPCNT: ' -PPCNTlen: - -PAGE: - db 'Page1Gb: ' -PAGElen: - -EAS: - db 'EAS: ',0 -EASlen: - -newLabel: - db '3DNP: ',0 -newLabellen: - - -ABM: - db 'ABM: ' -ABMlen: - -SSE4A: - db 'SSE4A: ' -SSE4Alen: - -MIS: - db 'MIS: ',0 -MISlen: - -DNP: - db '3DNP: ' -DNPlen: - -OSVW: - db 'OSVW: ',0 -OSVWlen: - -SKINIT_: - db 'SKINIT: ',0 -SKINIT_len: - -WDT: - db 'WDT: ',0 -WDTlen: - - -saveproc: - db ' ',0 - -multil: - db 'Multiplier: . ', 0 - -multillen: - -multil2: - - db 'Multiplier: . ' - -multil2len: - -multi3: - - db 'Multiplier: n/a',0 - -multi3len: - -freql: - - db 'System clock: . MHz', 0 -freqllen: - -freql2: - - db 'System clock: . MHz' - - -freql2len: - -freql3: - - db 'System clock: n/a ' - - -freql3len: - -tsum: - - db 'Frequency: . MHz ',0 - -tsumlen: - -tech: - - db 'Technology: 0. micron ', 0 - -techlen: - -name: - -if lang eq it_IT - - db 'Codename:',0 - -else - - db 'CODENAME:',0 - - -end if - -namelen: - -vendorname: - -if lang eq it_IT - - db 'Vendor CPU ', 0 - -else - - db 'CPU VENDOR: ', 0 - -end if - -vendornamelen: - -cpuname: - -if lang eq it_IT - - db 'Vendor CPU ', 0 - -else - - db 'CPU VENDOR: ', 0 - -end if - -cpunamelen: - - -fam: - -if lang eq it_IT - - db 'Famiglia: std ext', 0 - -else - - db 'FAMILY: std ext', 0 - -end if - -famlen: - -mode: - -if lang eq it_IT - - db 'Modello: std ext', 0 - -else - - db 'MODEL: std ext', 0 - -end if - -modelen: - -step: - -if lang eq it_IT - - db 'Stepping: ', 0 - -else - - db 'STEPPING: ', 0 - -end if - -steplen: - -cache: - - db 'L1(inst): KB -way set -byte line size',0 - -cachelen: - -cache2: - - db 'L1(data): KB -way set -byte line size',0 - -cache2len: - - -cache3: - - db 'L2: KB -way set -byte line size',0 - -cache3len: - -cache4: - - db 'L3: KB -way set -byte line size',0 - -cache4len: - -brandid: - - db 'Brand:', 0 - -brandidlen: - -MMXs: - - db 'MMX: ',0 - -MMXslen: - - -total dd 0x0 - -total1 dd 0x0 - -rating dd 0x0 - -rat dd 0x0 ; - -NEF: - -db 'EXTENDED FEATURES ARE NOT AVAILABLE',0 - -NEFlen: - - - -mb : - -db 'MB' - -mblen: - - - -logcpus : - -db 'Number of logical CPU:' - -logcpuslen: - - - -speed : - -if lang eq it_IT - -; db 'Performance',0 - -else - -; db 'PERFORMANCE:',0 - -end if - -speedlen: - - - -kbpersec: - -db 'KB/SEC' - -kbperseclen: - - - -instruct: - -if lang eq it_IT - - db 'Set istruzioni' - -else - - db 'Instruction sets' - -end if - -instructlen: - - - -standard db 'Standard and Extended features plus Performance test',0 - - -STDCA: - - db 'Highest STD call is ',0 - -STDCAlen: - - - -EXTCA: - - db 'Highest EXT call is h',0 - -EXTCAlen: - - -oblom: - -if lang eq it_IT - - db 'CPUID non e disponibile' - -else - - db 'SORRY, CPUID IS NOT AVAILABLE' - -end if - -oblomlen: - - -other: - -if lang eq it_IT - - db 'Questo vendor non e supportato' - -else - - db 'SORRY, THIS VENDOR IS NOT SUPPORTED YET' - -end if - -otherlen: - -cacheP4: - - db 'L1(inst): Kuops -way set -byte line size' - -cacheP4len: - - - - -typen: - -if lang eq it_IT - - db 'Tipo:' - -else - - db 'Type:' - -end if - - - -typenlen: - - - -pr: - - db 'P-rating:' - -prlen: - - - - -AMDn: - - db 'AMD',0 - -AMDnlen: - -AMDnNew: - - db 'CODENAME: AMD',0 - -AMDnNewlen: - -Inteln: - - db 'Intel',0 - -Intelnlen: - -IntelnNew: - db 'CODENAME: Intel',0 - -IntelnNewlen: - - -Cyrixn: - - db 'Cyrix',0 - -Cyrixnlen: - -IDTn: - - db 'IDT/Centaur',0 - -IDTnlen: - -Centaurn: - - db 'VIA',0 - -Centaurnlen: - - - -Tranmsmetan: - - db 'Transmeta',0 - -Tranmsmetanlen: - - -Vortexn: - db 'Vortex86',0 -Vortexnlen: - - -mmxp: - - db 'MMX+: ',0 - -mmxplen: - - - -HTT: - - db 'HTT: ',0 - -HTTlen: - - -HTTn: - - db 'HTT: ',0 - -HTTnlen: - - -sse3: - - db 'SSE3: ',0 - -sse3len: - -SSE41: - db 'SSE4.1: ',0 -SSE41len: - -SSE42: - db 'SSE4.2: ',0 -SSE42len: - -SSE5: - db 'SSE5: ',0 -SSE5len: - -now: - - db '3DNOW!: ',0 - -nowlen: - -nowp: - - db '3DNOW!+: ',0 - -nowplen: - -;-Type - -t1 db 'OEM',0 - -t2 db 'Overdrive',0 - -t3 db 'Dual',0 - -t4 db 'Unknown',0 - - - -;----------Intel - -P50: - -db 'P5 A-step',0 - -P50len: - -P5: - -db 'P5',0 - -P5len: - -P54T: - -db 'P24T Overdrive',0 - -P54Tlen: - -P54C: - -db 'P54C',0 - -P54Clen: - -P55C: - -db 'P55C (with MMX)',0 - -P55Clen: - -; --- - -P60: - -db 'Pentium Pro A-step',0 - -P60len: - -P61: - -db 'Pentium Pro',0 - -P61len: - -P63: - -db 'Pentium II (Klamath)',0 - -P63len: - -P65: - -db 'Pentium II (Deschutes)',0 - -P65len: - -P66: - -db 'Celeron (Medocino)',0 - -P66len: - -P67: - -db 'Pentium III (Katmai)',0 - -P67len: - -P68: - -db 'Pentium III (Coppermine)',0 - -P68len: - -P69: - -db 'Pentium M (Banias)',0 - -P69len: - -P6A: - -db 'Pentium III Xeon (Cascades)',0 - -P6Alen: - -P6B: - -db 'Pentium III (Tualatin)',0 - -P6Blen: - -P6D: - -db 'Pentium M (Dothan)',0 - -P6Dlen: - -P6E: - -db 'Pentium M (Yonah)/ Core',0 - -P6Elen: - -P6F: - -db 'Pentium D (Conroe)/ Core 2 (Kentsfield)',0 - -P6Flen: - -;--- - -PS0: - -db 'Itanium (IA-64)',0 - -PS0len: - -;------------ - -PF0: - -db 'Pentium 4 (Willamete)',0 - -PF0len: - -PF2: - -db 'Pentium 4 (Northwood)',0 - -PF2len: - -PF3: - -db 'Pentium 4 (Prescott)',0 - -PF3len: - -PF5: - -db 'Pentium 4 (Tejas)',0 - -PF5len: - -PF6: - -db 'Pentium 4 (Presler)',0 - -PF6len: - -;----------------Intel Celerons - -P65c: - -db 'Celeron (Covington)',0 - -P65clen: - -P68c: - -db 'Celeron (Coppermine)',0 - -P68clen: - -P6Bc: - -db 'Celeron (Tualatin)',0 - -P6Bclen: - -PF0c: - -db 'Celeron (Willamete)',0 - -PF0clen: - -PF2c: - -db 'Celeron (Northwood)',0 - -PF2clen: - -PF3c: - -db 'Celeron (Prescott)',0 - -PF3clen: - -PF5c: - -db 'Celeron D (Texas)',0 - -PF5clen: - -PF6c: - -db 'Celeron D (Presler)',0 - -PF6clen: - -;---------New Intel -P3A: - -db 'IvyBridge',0 - -P3Alen: - -P2A: - -db 'Sandy Bridge',0 - -P2Alen: - -P2D: -db 'Sandy bridge-E',0 - -P2Dlen: - - -P25: -db 'Arrandale',0 -P25len: - -P2C: -db 'Gulftown',0 -P2Clen: - -P2F: -db 'Westmere-EX',0 -P2Flen: - -P1E: -db 'Clarksfield',0 -P1Elen: - -P1A: -db 'Bloomfield',0 -P1Alen: - -P2E: -db 'Nehalem-EX',0 -P2Elen: - -P17: -db 'Yorkfield',0 -P17len: - -P1D: -db 'Dunnington',0 -P1Dlen: - -P0F: -db 'Clovertown',0 -P0Flen: - -P16: -db 'Merom Conroe',0 -P16len: - -P06: -db 'Cedar Mill',0 -P06len: - -P03: -db 'Nocona Irwindale',0 -P03len: - -P04: -db 'NoconaIrwindale',0 -P04len: - -P0D: -db 'Dothan',0 -P0Dlen: - -P36: -db 'Cedarview',0 -P36len: - -P26: -db 'Lincroft',0 -P26len: - -P1C: -db 'Pineview',0 -P1Clen: - -no_known: -db 'SORRY, CODENAME IS NOT SUPPORTED YET ', 0 - -;---------AMD - -A50 db 'K5 (PR75, PR90, PR100)',0 - -A51 db '5k86 (PR120, PR133)',0 - -A52 db '5k86 (PR166)',0 - -A53 db '5k86 (PR200)',0 - -A56 db 'K6',0 - -A57 db 'K6',0 - -A58 db 'K6-2',0 - -A59 db 'K6-III',0 - -A5D db 'K6-2+ or K6-III+',0 - -;------------------- - -At1 db 'Athlon',0 - -At2 db 'Athlon',0 - -At3 db 'Duron (Spitfire)',0 - -At4 db 'Athlon (Thunderbird)',0 - -At6 db 'AthlonXP (Palomino)',0 - -At7 db 'Duron (Morgan)',0 - -At8 db 'AthlonXP (Thoroughbred)',0 - -At8a db 'Duron (Applebred)',0 - -Ata db 'AthlonXP (Barton)',0 - -Atat db 'AthlonXP (Thorton)',0 - -;------------------- -AthlonKuma: - -db 'AMD Athlon 7750 Black Edition',0 - -AthlonKumalen: - -AB23: - -db 'Opteron 2300-series',0 - -AB23len: - -AB83: - -db 'Opteron 8300-series',0 - -AB83len: - -AB9: -db 'Phenom X4',0 - -AB9len: - -AB8right2: - -db 'Phenom X3',0 - -AB8right2len: - -AB4: - -db 'Athlon X2',0 - -AB4len: - -AB1: - -db 'Sempron',0 - -AB1len: - -ABC2: - -db 'Opteron (Shanghai) 2387',0 - -ABC2len: - -AB6: - -db 'Opteron (Magny-Cours)',0 - -AB6len: - -ABC3: - -db 'Opteron (Shanghai) 8300 series',0 - -ABC3len: - -ABM2: - -db 'Turion II ',0 - -ABM2len: - -;--- - -AF1: - -db 'Dual-core Opteron',0 - -AF1len: - -AF3: - -db 'Athlon 64 (Toledo)',0 - -AF3len: - -AF4: - -db 'Athlon 64 (ClawHammer)',0 - -AF4len: - -AF5: - -db 'Opteron/Athlon 64 FX (SledgeHammer)',0 - -AF5len: - - -AFC: - -db 'Athlon 64 (Newcastle)',0 - -AFClen: - - -AFF: - -db 'Athlon 64 (Winchester)',0 - -AFFlen: - - -AFS: - -db 'Athlon 64 (San Diego)',0 - -AFSlen: - - -AFV: - -db 'Athlon 64 (Venice)',0 - -AFVlen: - - -AFCs: - -db 'Sempron (Paris)',0 - -AFCslen: - - - -AFCsp: - -db 'Sempron (Palermo)',0 - -AFCsplen: - - - -;---------Cyrix - -C52: - -db '6x86 M1',0 - -C52len: - -C54: - -db 'MediaGX',0 - -C54len: - -C60: - -db '6x86MX M2',0 - -C60len: - -C65: - -db 'C3 (Cyrix M2)',0 ;? - -C65len: - -;--------IDT - -V54: - -db 'WinChip C6',0 - -V54len: - -V58: - -db 'WinChip 2',0 - -V58len: - -V59: - -db 'WinChip 3',0 - -V59len: - -;-------VIA - -V66: - -db 'C3 (Samuel)',0 ; Joshua is unreleased 065 - -V66len: - -V67: - -db 'C3 (Samuel2/Ezra)',0 ; ? - -V67len: - -V68: - -db 'C3 (Ezra-T/Eden)',0 ;? - -V68len: - -V69: - -db 'C3 (Antaur/Nehemiah)',0 ;? - -V69len: - -VA: - -db 'C7 (Esther)',0 ;? - -VAlen: - -;---------Transmeta - -T5: - -db 'Crusoe',0 ; - -T5len: - -TF: - -db 'Efficeon',0 ; - -TFlen: - -;--------- - -NG: - - db 'Next generation CPU',0 - -NGlen: - - -athloncoef db 110, 115, 120, 125, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100, 105, 120 - - db 190, 120, 200, 130, 135, 140, 210, 150, 220, 160, 165, 170, 180, 230, 240 - -athlonmcoef: db 110, 115, 120, 125, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100, 105 - - db 30, 190, 40, 200, 130, 135, 14, 210, 150, 220, 160, 165, 170, 230, 240 - -athloncoef3 db 45, 50, 40, 55, 25, 30, 60, 35 - -p4coef db 160, 170, 180, 190, 200, 210, 220, 230, 80, 90, 100, 110, 120, 130, 140, 150 ; Pentium 4 (Willamete) - -coppercoeff db 50, 30, 40, 20, 55, 35, 45, 25, 35, 70, 80, 60, 20, 75, 15, 65, 90, 110, 120, 20, 95, 115, 85, 25, 35, 70, 80, 100, 20, 75, 15, 105 - -tualatcoeff db 120, 35, 35, 40, 55, 35, 115, 35, 160, 70, 80, 60, 40, 75, 35, 65, 90, 110, 35, 35, 95, 35, 85, 35, 35, 35, 130, 100, 140, 35, 150, 105 - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -I_END: - -img_area: ; image is going to be unpacked to here -rb 201*49*3+8 ; image resolution (bits to reserve) - -img_area2: ; image is going to be unpacked to here -rb 93*24*3+8 ; image resolution (bits to reserve) - -img_area3: ; image is going to be unpacked to here -rb 93*24*3+8 ; image resolution (bits to reserve) - -gif_hash_area: -rd 4096+1 ;hash area size for unpacking gif -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 - -err_message_found_lib2 db 'proc_lib.obj - Not found!',0 - -err_message_import2 db 'proc_lib.obj - Wrong import!',0 - -head_f_i: -head_f_l db 'error',0 -;--------------------------------------------------------------------- -l_libs_start: - -library02 l_libs system_dir_ProcLib+9, 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 -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 -OpenDialog_data: -.type dd 0 -.procinfo dd Proc_Info ;+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 file_name ;+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: - db '/sys/File Managers/opendial',0 -communication_area_default_pach: - db '/sys',0 -Filter: -dd Filter.end - Filter.1 -.1: -db 'TXT',0 -db 'LOG',0 -.end: -dd 0 - -file_default_path: - db '/sys/' -start_temp_file_name: - db 'CPUID.txt',0 -btn_more_cap: - db 'Details', 0 -btn_save_cap: - db 'Save', 0 -;--------------------------------------------------------------------- -align 4 -fileinfo: -.subfunction dd 2 -.Offset dd 0 -.Offset_1 dd 0 -.size dd 4096 -.return dd 0 - db 0 -.name: dd file_name - -align 4 -sc system_colors - -store_text_area_start dd ? -store_text_area_end dd ? -store_text_size dd ? - -;--------------------------------------------------------------------- -library_path: - rb 4096 -;--------------------------------------------------------------------- -path: - rb 4096 -;--------------------------------------------------------------------- -temp_dir_pach: - rb 4096 -;--------------------------------------------------------------------- -file_name: - rb 4096 -;--------------------------------------------------------------------- -file_name_1: - rb 4096 -;--------------------------------------------------------------------- -filename_area: - rb 256 -;--------------------------------------------------------------------- - rb 4096 -stacktop: -;--------------------------------------------------------------------- -Proc_Info process_information -; RSA test data -align 4 - num1 rd 40 - num2 rd 40 - num3 rd 40 - iter rd 1 - openkey rd 1 - - -IncludeUGlobals - -nocpuid db ? -ost dd ? -sot dd ? -f dd ? -m dd ? -s dd ? -t dd ? - -ef dd ? -em dd ? - -multiplier dd ? -multa dd ? -multb dd ? -smallvendor dd ? -L1d dd ? -L1i dd ? -L2 dd ? -L3 dd ? -micron dd ? -brand dd ? -newpc dd ? -nomultiplier dd ? -ram_size_a dd ? -ram_size_t dd ? - -stdc dd ? -extc dd ? - -FRS dd ? -freqsel db ? -sse3sup db ? -sse41sup dd ? -sse42sup dd ? -sse5sup dd ? - -freqbb dd ? -freqll dd ? - -wayli dd ? -lineli dd ? - -wayld dd ? -lineld dd ? - -wayl2 dd ? -linel2 dd ? - -wayl3 dd ? -linel3 dd ? -che db ? ; numbers of calls for Intel caches detection -cname dd ? -codeN dd ? - -myname: - rb 48 - -mynamelen: - db ? - -align 4 - thread2_stack_area rb 64 - thread2_esp = $ -U_END: +;****************************************************************************** +; project name: CPUID * +; platform: KolibriOS, x86 (IA-32), x86-64 achitectures * +; compiler: flat assembler 1.70.03 * +; version: 2.31 * +; last update: 9 October 2018 * +; maintained by: Sergey Kuzmin aka Wildwest * +; e-mail: kuzmin_serg@list.ru * +; site: http://coolthemes.narod.ru/files.html * +; license: Copyright 2004-2018 Sergey Kuzmin and co-authors * +; Rules: * +; 1)you can use pieces of code in your project, but should * +; mention the original author (include copyright notice); * +; 2)if you modify CPUID (improve, port, translate, etc) send * +; your changes to the maintainer or make about post changes * +; at forum http://board.kolibrios.org/viewtopic.php?f=42&t=594* +;-----------------------------------------------------------------------------* +; English comments * +;------------------------------------------------------------------------------ +use32 + org 0x0 + db 'MENUET01' + dd 0x01 + dd START + dd I_END + dd U_END+4096 + dd U_END+4096 + dd 0x0 + dd path + +include '..\..\..\develop\libraries\box_lib\load_lib.mac' +include '..\..\..\macros.inc' +include '../../../gui_patterns.inc' +include '../../../KOSfuncs.inc' +include 'lang.inc' ; Language support for locales: it_IT, en_US. +include 'draw.inc' +include 'brand.inc' ; brand ID decoding +include 'caches.inc' ; L1 and L2 cashes decoding for Intel +include 'multipli.inc' ; multiplier decoding +include 'features.inc' ; features decoding +include 'logos.inc' ; include file where gif's are stored +include 'rsatest.inc' +include 'variable.inc' +include 'gif_lite.inc' + +@use_library + +START: + mcall 68,11 + mcall 66,1,1 + mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, sc, sizeof.system_colors + +load_libraries l_libs_start,end_l_libs +;----------------------------------------------------------------------------- +;OpenDialog initialisation + push dword OpenDialog_data + call [OpenDialog_Init] + + mov edi,filename_area + mov esi,start_temp_file_name + call copy_file_name_path +;----------------------------------------------------------------------------- + mcall 68,12,4096*8 ; 16 Kb - I hope this will be enough for store of data + mov [store_text_area_start],eax + + +;------------ +CYCLES: +; CPU speed + mov eax, 18 + mov ebx,5 + mcall + mov [total1],eax ;in Hz, example 1600490000 + xor edx,edx + mov ebx,1000000 + div ebx + mov [total], eax ; in Mhz, example 1600 + xor edx, edx + mov eax, [total1] + mov ebx, 10000 + div ebx + mov [ost], eax ; example 160049 + mov ecx, [total] + imul ecx, 100 + neg ecx + add ecx, eax + mov [sot], ecx ; example 49 +;------------ +cpu: ;is CPUID supported? + pushfd ;push original EFLAGS + pop eax ;get original EFLAGS + mov ebx, eax ;save original EFLAGS + xor eax, 00200000h ;flip 21th bit in EFLAGS + push eax ;save new EFLAGS value on stack + popfd ;replace current EFLAGS value + pushfd ;get new EFLAGS + pop eax ;store new EFLAGS in EAX + cmp eax, ebx ;compare values of 21th bit + jz NO_CPUID ;CPUID isn't supported +;------------ +CPUNAME: ; VENDOR + mov eax,0 ; eax=0 + cpuid + + mov [stdc], eax ; number of calls + mov [cpuname+ 12],ebx + mov [cpuname+ 16],edx + mov [cpuname+ 20],ecx + mov [smallvendor],ecx + +; for various vendors we should later use different methods + +;Decoding cache L1 and L2 for Intel + + cmp ecx, 'ntel' + jne cpu1 ;is not Intel + +;Starting L1, L2, L3 caches detection (Intel made it VERY HARD) + + mov eax, 2 + cpuid + + mov [che], al ; number of calls +multik: + +.eaxl: + test eax, eax ; Test bit 31 + js .ebxl ; <> 0 =>invalid values + call decodecache24 +.ebxl: + test ebx, ebx + js .ecxl + mov eax, ebx + call decodecache32 +.ecxl: + test ecx, ecx + js .edxl + mov eax, ecx + call decodecache32 +.edxl: + test edx, edx + js cpu1 + mov eax, edx + call decodecache32 + + dec [che] ; we made all calls + je cpu1 + +multi: ; not yet + + mov eax, 2 ; so we made call again + cpuid + + jmp multik + +; FAMILY MODEL STEPPING +cpu1: + xor eax, eax + inc eax ; eax=1 + cpuid + + mov ecx, eax + shr ecx,8 ; shift it to the correct position + and ecx,0000000Fh ; get CPU family + mov dword[f],ecx + + mov ecx, eax + shr ecx,4 + and ecx,0000000Fh ; get CPU model + mov dword[m],ecx + + mov ecx, eax + and ecx,0000000Fh ; get CPU stepping + mov dword[s],ecx + + ;- + mov ecx, eax ; get Type + shl ecx, 18 + shr ecx,30 + ;and ecx, 0000000Fh ; only two lower bits can be nonzero + mov dword[t], ecx +;======================================================= + + cmp dword[smallvendor], 'cAMD' + jz maybe_athlon + cmp dword[smallvendor], 'ntel' + jnz no_full ; if not AMD or Intel + +;detect_it: +;cmp [f], 0Fh +;jne no_full fixed calculation of extended model for Intel + +full: + + mov ecx, eax ; get Extended model + shr ecx,16 ;shift it to the correct position + and ecx, 0000000Fh + shl ecx, 4 + mov dword[newpc],ecx ; this value for old pc=0 and for new pc>0 + add ecx, [m] + mov dword[em],ecx ; effective model + + mov ecx, eax ; get Extended family + shr ecx, 20 ;shift it to the correct position + and ecx, 000000FFh + add ecx, [f] + mov dword[ef],ecx ; effective family + + + jmp fut + +no_full: + + mov ecx, [m] + mov [em], ecx + + mov ecx, [f] + mov [ef], ecx + + jmp fut + +maybe_athlon: + mov eax, 0x80000001 ; CPUID ext. function 0x80000001 + cpuid + mov ecx, eax + shr ecx,8 ; shift it to the correct position + and ecx,0000000Fh ; get CPU family + mov dword[ef],ecx + + mov ecx, eax + shr ecx,4 + and ecx,0000000Fh ; get CPU model + mov dword[em],ecx + +fut: + + call decode_sse3_5 + + + + ;call decode_sse3_5 + ;- + call decode_extended + + mov eax,$80000000 + cpuid + + mov [extc], eax ; max number of calls + + test eax, $80000000 ;// Test bit 31 + jz .noname + + cmp eax,$80000003 + ja .mynameis + jmp .noname + +.mynameis: + mov eax,$80000002 + cpuid + mov [myname],eax + mov [myname+4],ebx + mov [myname+8],ecx + mov [myname+12],edx + mov eax,$80000003 + cpuid + mov [myname+16],eax + mov [myname+20],ebx + mov [myname+24],ecx + mov [myname+28],edx + mov eax,$80000004 + cpuid + mov [myname+32],eax + mov [myname+36],ebx + mov [myname+40],ecx + mov [myname+44],edx + jmp red + +.noname: + +red: + + ;mov byte [multiplier], 115; ; for testing + + call decode_sse3 + + call multipl ; get multiplier + mov byte [multiplier], cl + + mov dword [freqbb], 0 + mov dword [freqll], 0 + + mov ebx, dword [multiplier] + test ebx, ebx + jz output + + calc: + + mov eax,dword [ost] ; example 166474 + imul eax, 10 ; example 1664740 + xor edx,edx + div ebx ; get system clock (if multiplier detected) + + xor edx, edx ; example eax=16647 + mov ebx, 100 + div ebx + mov dword [freqbb], eax ; example 166 + mov dword [freqll], edx ; example 47 + + xor edx, edx + mov eax,dword[multiplier] ; example 115 + mov ebx,10 + div ebx + mov dword[multb], eax ; example 11 + mov dword[multa], edx ; example 5 + +output: + + call draw_window ; Draw window + +;HRERE + +PROCCORE: ; Who are you? +; Intel - "GenuineIntel" + +; AMD - "AuthenticAMD" + +; Cyrix - "CyrixInstead" + +; UMC - "UMC UMC UMC " +; NexGen - "NexGenDriven" +; Centaur - "CentaurHauls" + +; Rise Technology - "RiseRiseRise" +; SiS - "SiS SiS SiS " +; Transmeta - "GenuineTMx86" + +; National Semiconductor - "Geode by NSC" +; Vortex - "Vortex86 SoC" + initial support + cmp dword[smallvendor], 'ntel' ;1 + jz Intel + cmp dword[smallvendor], 'cAMD' ;2 + jz AMD + cmp dword[smallvendor], 'tead' ;3 + jz Cyrix + cmp dword[smallvendor], 'auls' ;4 + jz Centaur + cmp dword[smallvendor], 'Mx86' ;5 + jz Transmeta + cmp dword[smallvendor], ' SoC' ;6 + jz Vortex + +; cmp ecx, 'UMC ' +; jz .UMC +; cmp ecx, 'iven' +; jz .NexGen +; cmp ecx, 'Rise' +; jz .Rise +; cmp ecx, 'SiS ' +; jz .SiS +; cmp ecx, ' NSC' +; jz .NSC +; jmp Other ; I don't know what to do with you... +Other: + Text 75,70,0x00000000,other, otherlen-other + + mov esi, other + mov edi, [saveproc] + call concatname + + jmp MMXtest +;------------------------- + +AMD: + +;------------------------------------------------------------------------------- + + Text 15, 190,0x00000000,cache, cachelen-cache + + Text 75,70,,AMDn, AMDnlen-AMDn + mov esi, AMDnNew + mov edi, saveproc + call concatname + mov esi, amd + call load_gif + PutImage 135,107,201,49,img_area+8 + MOV [codeN], 2 +; place size + +; Relax, man. AMD made PRETTY SIMPLE cache detection routine +;CACHE1: + mov eax, 80000005h + cpuid + + movzx eax, cl + mov [lineld], eax + + mov eax, ecx + ;shl eax, 8 + ;shr eax, 24 + + and eax,00FF0000h + shr eax, 16 + mov [wayld], eax + + shr ecx, 24 + mov [L1d], ecx + + + movzx eax, dl + mov [lineli], eax + + mov eax, edx + ;shl eax, 8 + ;shr eax, 24 + + and eax,00FF0000h + shr eax, 16 + mov [wayli], eax + + + shr edx, 24 + mov [L1i], edx + + +;CACHE2: + mov eax, 80000006h + cpuid + + movzx eax, cl + mov dword[linel2], eax + + push ecx + shr ecx, 12+1 + and ecx, 0x7 + mov eax, 1 + shl eax, cl + mov dword [wayl2], eax + pop ecx + + shr ecx, 16 + mov [L2],ecx + +;CACHE3: edx provides l3 + + mov eax, 80000006h + cpuid + + movzx eax, cl ;mov cl to eax, zero extend; cl is counter reg for loop,shifts + mov dword[linel3], eax + + push edx + shr edx, 12+1 + and edx, 0x7 + mov eax, 1 + shl eax, cl + mov dword [wayl3], eax + pop edx + + shr edx, 18 + mov [L3],ecx + + cmp [f], $5 + jz .fiv + cmp [f], $6 + jz .si + cmp [f], $F + jz fif + cmp [f], $10 ;family 16, 010h, + jz ten + + +.fiv: ; Family=5 + mov [micron], 50 + mov edx, A50 + cmp [m], $0 + jz @f + mov [micron], 35 + mov edx, A51 + cmp [m], $1 + jz @f + mov edx, A52 + cmp [m], $2 + jz @f + mov edx, A53 + cmp [m], $3 + jz @f + mov [micron], 30 + mov edx, A56 + cmp [m], $6 + jz @f + mov [micron], 25 + mov edx, A57 + cmp [m], $7 + jz @f + mov edx, A58 + cmp [m], $8 + jz @f + mov edx, A59 + cmp [m], $9 + jz @f + mov [micron], 18 + mov edx, A5D +@@: + jmp @f + +.si: ; Family=6 + mov [micron], 25 + mov edx, At1 + cmp [m], $1 + jz @f + mov [micron], 18 + mov edx, At2 + cmp [m], $2 + jz @f + mov edx, At3 + cmp [m], $3 + jz @f + mov edx, At4 + cmp [m], $4 + jz @f + cmp [m], $6 + jz A6 + mov [micron], 13 + mov edx, At7 + cmp [m], $7 + jz @f + cmp [m], $8 + jz A8 + jmp AA +@@: + mov [cname], edx + jmp MMXtest +A6: +;mov [FRS], 266 ;!!!!!! +;Number 315,90,0,3,dword [FRS],0x000000; MHz + + call newrating; !!!! + + Text 245,70,0x00000000,pr, prlen-pr + Number 310,70,0,4,dword [rating],0x000000 + mov edx, At6 + jmp @b + +A8: + +;mov [FRS], 266 ;!!!!!! +;Number 315,90,0,3,dword [FRS],0x000000; MHz + + cmp [L2], 256 + jl .App ; Applebred + + call newrating;!!!! + + Text 245,70,0x00000000,pr, prlen-pr + Number 310,70,0,4,dword [rating],0x000000 + mov edx, At8 + jmp @b + +.App: + mov edx, At8a + jmp @b + +AA: + +; mov [FRS], 333; !!!! + Text 245,70,0x00000000,pr, prlen-pr + +; Number 315,90,0,3,dword [FRS],0x000000; MHz + + mov edx, Atat + cmp [L2], 256 + jl .Tho ; Thorton + mov edx, Ata +.Tho: + push edx + + call newrating;!!!!! + + Number 310,70,0,4,dword [rating],0x000000 + pop edx + jmp @b + +fif: ; AMD-64 Family=15 + +;here is a need to rewrite detection of AMD F-th family according to "Revision Guide for +;AMD AthlonTM 64 and AMD OpteronTM Processors" 25759.pdf + + + cmp [m],$1 ;Dual-core Opteron + jz AF1. + cmp [m],$3 ;Toledo 1024 0.09 + jz AF3. + cmp [m],$4 ;Athlon 64 Mobile Athlon 64 FX ClawHammer (1024) 0.13 + jz AF4. + cmp [m],$5 ;Opteron Athlon 64 FX 0.13 (1024) + jz AF5. + cmp [m],$7 ;Athlon 64 Athlon 64 FX Clawhammer(1024) 0.13 Sledgehammer(1024) 0.13 // SSE3+ SanDiego(1024) + jz AF7. + cmp [m],$8 ;Athlon 64 Mobile Athlon 64 FX ClawHammer (1024) 0.13 + jz AF8. + cmp [m],$B ;Athlon 64 + jz AFB. + cmp [m],$C ;Athlon 64 Newcastle(512) 0.13 Sempron> Paris (256) 0.13 |SSE3+ Sempron > Palermo FC0 0.09 // (Venice) + jz AFC. + cmp [m],$E ;Athlon 64 + jz AFE. + cmp [m],$F ;Athlon 64 Winchester(512) |SSE3+ SanDiego(1024) Venice (512) Palermo (256) 0.09 + jz AFF. + jmp next_generation + +ten: ;family = 10h + + cmp [m],$2 + jz AB23. + cmp [m], $8 + jz AB83. + cmp [m], $9 + jz AB9. + cmp [m], $2 + jz AB8check2. + +AB8check2.: + cmp [s],03h + jz AB8right2. + cmp [m],$2 + jz athlonCheck + +athlonCheck: + cmp [s],03h + jz athlonKuma + + cmp [m], $5 + jz AB4. + cmp [m],$1 + jz AB1. + cmp [m],$4 + jz AB8check. + +AB8check.: + cmp [s],02h + jz ABC2. + cmp [s],01h + jz ABC3. + cmp [m], $9 + jz AB6. + cmp [m], $2 + jz AB8check. + cmp [m], 06h + jz ABM. + +athlonKuma: + mov [micron], 65 + Text 100,70,0x00000000,AthlonKuma, AthlonKumalen-AthlonKuma + mov esi, AthlonKuma + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AB23.: + mov [micron], 65 + Text 100,70,0x00000000,AB23, AB23len-AB23 + mov esi, AB23 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AB83.: + mov [micron], 65 + Text 100,70,0x00000000,AB83, AB83len-AB83 + mov esi, AB83 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AB9.: + mov [micron], 65 + Text 100,70,0x00000000,AB9, AB9len-AB9 + mov esi, AB9 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AB8right2.: + mov [micron], 65 + Text 100,70,0x00000000,AB8right2, AB8right2len-AB8right2 + mov esi, AB8right2 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AB4.: + mov [micron], 45 + Text 100,70,0x00000000,AB4, AB4len-AB4 + mov esi, AB4 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AB1.: + mov [micron], 65 + Text 100,70,0x00000000,AB1, AB1len-AB1 + mov esi, AB1 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +ABC2.: + mov [micron], 45 + Text 100,70,0x00000000,ABC2, ABC2len-ABC2 + mov esi, ABC2 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AB6.: + mov [micron], 45 + Text 100,70,0x00000000,AB6, AB6len-AB6 + mov esi, AB6 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +ABC3.: + mov [micron], 45 + Text 100,70,0x00000000,ABC3, ABC3len-ABC3 + mov esi, ABC3 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +ABM.: + mov [micron], 45 + Text 100,70,0x00000000,ABM2, ABM2len-ABM + mov esi, ABM2 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AF1.: + mov [micron], 09 ;? + Text 100,70,0x00000000,AF1, AF1len-AF1 + mov esi, AF1 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest +AF3.: + mov [micron], 09 + Text 100,70,0x00000000,AF3, AF3len-AF3 + mov esi, AF3 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest +AF4.: + mov [micron], 13 + Text 100,70,0x00000000,AF4, AF4len-AF4 + mov esi, AF4 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest +AF5.: + mov [micron], 13 + Text 100,70,0x00000000,AF5, AF5len-AF5 + jmp MMXtest + +AF7.: + mov [micron], 13 + Text 100,70,0x00000000,AF5, AF5len-AF5 + mov esi, AF5 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AF8.: + mov [micron], 13 + Text 100,70,0x00000000,AF4, AF4len-AF4 + mov esi, AF4 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AFB.: + mov [micron], 13 + Text 100,70,0x00000000,AF4, AF4len-AF4 + mov esi, AF4 + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AFC.: + cmp [L2], 512 + je AFC.n + + cmp [sse3sup], 1 + je AFC.npal + +AFC.npar: ; paris + mov [micron], 13 + Text 100,70,0x00000000,AFCs, AFCslen-AFCs + mov esi, AFCs + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AFC.npal: ; palermo + mov [micron], 9 + Text 100,70,0x00000000,AFCsp, AFCsplen-AFCsp + mov esi, AFCsp + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AFC.n: ;newcastle + mov [micron], 13 + Text 100,70,0x00000000,AFC, AFClen-AFC + mov esi, AFC + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +AFE.: ; error in cpu + jmp AFC. + +AFF.: + + cmp [sse3sup], 1 + je .AFFsse + +.win: + mov [micron], 9 ; winchester + jmp MMXtest + +.AFFsse: + mov [micron], 9 + cmp [L2], 1024 + jz .AFs + cmp [L2], 512 + jz .AFd + cmp [L2], 256 + jz .AFp + +.AFs: + Text 100,70,0x00000000,AFS, AFSlen-AFS + mov esi, AFS + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +.AFd: + Text 100,70,0x00000000,AFV, AFVlen-AFV + mov esi, AFV + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest + +.AFp: + Text 100,70,0x00000000,AFCsp, AFCsplen-AFCsp + mov esi, AFCsp + mov edi, saveproc + 0x4 + call concatname + jmp MMXtest +;----------------------------------------------- +Intel: + mov [codeN], $1 + Text 75,70,0x00000000,Inteln, Intelnlen-Inteln + mov esi, IntelnNew + mov edi, saveproc + call concatname + mov esi, intel + call load_gif + PutImage 135,107,201,49,img_area+8 + +det: + cmp [f], $5 + jz five + cmp [f], $6 + jz six + cmp [f], $7 + jz sev + cmp [f], $F + jz fift +five: ;Family=5 + + Text 15, 190,0x00000000,cache, cachelen-cache + + cmp [m],$0 + jz .I0 + cmp [m],$1 + jz .I1 + cmp [m],$2 + jz .I2 + cmp [m],$3 + jz .I3 + cmp [m],$4 + jz .I4 + cmp [m],$7 + jz .I7 + cmp [m],$8 + jz .I8 +.I0: + mov [cname], P50 + mov esi, P50 + mov edi, saveproc + 0x6 + call concatname + mov [L1d], 8 + mov [L1i], 8 + mov [L2], 256 + mov [micron], 80 + jmp MMXtest +.I1: + mov [cname], P5 + mov esi, P5 + mov edi, saveproc + 0x6 + call concatname + mov [L1d], 8 + mov [L1i], 8 + mov [L2], 256 + mov [micron], 50 + jmp MMXtest + +.I2: + mov [cname], P54C + mov esi, P54C + mov edi, saveproc + 0x6 + call concatname + mov [L1d], 8 + mov [L1i], 8 + mov [L2], 256 + mov [micron], 50 + jmp MMXtest + +.I3: + mov [cname], P54T + mov esi, P54T + mov edi, saveproc + 0x6 + call concatname + mov [L1d], 8 + mov [L1i], 8 + mov [L2], 256 + mov [micron], 50 + jmp MMXtest + +.I4: + mov [cname], P55C + mov esi, P55C + mov edi, saveproc + 0x6 + call concatname + mov [L1d], 8 + mov [L1i], 8 + mov [L2], 256 + mov [micron], 35 + jmp MMXtest + + +.I7: + mov [cname], P54C + mov esi, P54C + mov edi, saveproc + 0x6 + call concatname + mov [L1d], 8 + mov [L1i], 8 + mov [L2], 256 + mov [micron], 35 + jmp MMXtest + +.I8: + mov [cname], P55C + mov esi, P55C + mov edi, saveproc + 0x6 + call concatname + mov [L1d], 16 + mov [L1i], 16 + mov [L2], 256 + mov [micron], 35 + jmp MMXtest + +six: ;Family=6 + + Text 15, 190,0x00000000,cache, cachelen-cache + cmp [newpc],$0 + jnz NEWintel + + cmp [m],$0 + jz .I60 + cmp [m],$1 + jz .I61 + cmp [m],$3 + jz .I63 + cmp [m],$5 + jz .I65 + cmp [m],$6 + jz .I66 + cmp [m],$7 + jz .I67 + cmp [m],$8 + jz .I68 + cmp [m],$9 + jz .I69 + cmp [m],$A + jz .I6A + cmp [m],$B + jz .I6B + cmp [m],$D + jz .I6D + cmp [m],$E + jz .I6E + cmp [m],$F + jz .I6F +.I60: + mov [micron], 50 + mov [cname], P60 + mov esi, P60 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.I61: + mov [micron], 35 + mov [cname], P61 + mov esi, P61 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.I63: + mov [micron], 28 + mov [cname], P63 + mov esi, P63 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.I65: + mov [micron], 25 + cmp [L2], 0 + jne .pp65 ; Pentium + mov [cname], P65c + mov esi, P65c + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.pp65: + mov [cname], P65 + mov esi, P65 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +.I66: + mov [micron], 25 + mov [cname], P66 + mov esi, P66 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +.I67: + mov [micron], 25 + ;but if SSE4.1 supported then it is Intel Core (Penryn) + mov [cname], P67 + mov esi, P67 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.I68: + mov [micron], 18 + cmp [L2], 128 + jne .pp68 ; Pentium + mov [cname], P68c + mov esi, P68c + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + + .pp68: + mov [cname], P68 + mov esi, P68 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.I69: + mov [micron], 13 + mov [cname], P69 + mov esi, P69 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.I6A: + mov [micron], 18 + ;but if SSE4.2 supported then it is Intel Core (Nehalem) + mov [cname], P6A + mov esi, P6A + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.I6B: + mov [micron], 13 + cmp [L2], 256 + jne .pp6B ; Pentium + mov [cname], P6Bc + mov esi, P6Bc + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.pp6B: + mov [cname], P6B + mov esi, P6B + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.I6D: + mov [micron], 9 + mov [cname], P6D + mov esi, P6D + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.I6E: + mov [micron], 6 + mov [cname], P6E + mov esi, P6E + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.I6F: + mov [micron], 6 + mov [cname], P6F + mov esi, P6F + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +;06Ex - Pentium M Yonah 0.065 +;06Fx - Pentium D Conroe 0.065, Xeon Woodcrest, Celeron D AllenDale, Core 2 Kentsfield + +NEWintel: + + cmp [em],$3A ;IvyBridge + jz I3A + cmp [em],$2A ;SandyBridge + jz I2A + cmp [em],$2D ;SandyBridge-E/EN/EP + jz I2D + cmp [em],$25 ;Arrandale/Clarksdale + jz I25 + cmp [em],$2C ;Gulftown/Westmere-EP + jz I2C ;westmere-EP stepping B1 -> micron 0.032 + cmp [em],$2F ;Westmere-EX + jz I2F + cmp [em],$1E ;Clarksfield/Lynnfield/Jasper Forest + jz I1E + cmp [em],$1A ;Bloomfield/Nehalem-EP + jz I1A + cmp [em],$2E ;Nehalem-EX + jz I2E + cmp [em],$17 ;Yorkfield/Wolfdale/Penryn/Harpertown (DP) + jz I17 + cmp [em],$1D ;Dunnington (MP) + jz I1D + cmp [em],$0F ;Clovertown/Kentsfield/Conroe/Merom/Woodcrest + jz I0F + cmp [em],$16 ;Merom Conroe + jz I16 + cmp [em],$06 ;Cedar Mill/Presler + jz I06 + cmp [em],$03 ;Nocona Irwindale / Prescott + jz I03 + cmp [em],$04 ;NoconaIrwindale / Prescott + jz I03 + cmp [em],$0D ;Dothan + jz I0D + cmp [em],$36 ;Cedarview + jz I36 + cmp [em],$26 ;Lincroft + jz I26 + cmp [em],$1C ;Pineview/Silverthorne + jz I1C + mov [cname], no_known + +Inewunknown: + jmp MMXtest + +I3A: + mov [micron], 32 + mov [cname], P3A + mov esi, P3A + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I2A: + mov [micron], 32 + mov [cname], P2A + mov esi, P2A + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I2D: + mov [micron], 32 + mov [cname], P2D + mov esi, P2D + mov edi,saveproc + 0x10 + call concatname + jmp MMXtest + +I25: + mov [micron], 32 + mov [cname], P25 ;P25 + mov esi, P25 + mov edi, saveproc + 0x10 ;12 + call concatname + jmp MMXtest + +I2C: + mov [micron], 32 + mov [cname], P2C + mov esi, P2C + mov edi,saveproc + 0x10 + call concatname + jmp MMXtest + +I2F: + mov [micron], 32 + mov [cname], P2F + mov esi, P2F + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I1E: + mov [micron], 32 + mov [cname], P1E + mov esi, P1E + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I1A: + mov [micron], 45 + mov [cname], P1A + mov esi, P1A + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I2E: + mov [micron], 45 + mov [cname], P2E + mov esi, P2E + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I17: + mov [micron], 45 + mov [cname], P17 + mov esi, P17 + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I1D: + mov [micron], 45 + mov [cname], P1D + mov esi, P1D + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I0F: + mov [micron], 65 + mov [cname], P0F + mov esi, P0F + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I16: + mov [micron], 65 + mov [cname], P16 + mov esi, P16 + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I06: + mov [micron], 32 + mov [cname], P06 + mov esi, P06 + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I03: + mov [micron], 32 + mov [cname], P03 + mov esi, P03 + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I0D: + mov [micron], 32 + mov [cname], P0D + mov esi, P0D + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I36: + mov [micron], 32 + mov [cname], P36 + mov esi, P36 + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I26: + mov [micron], 32 + mov [cname], P26 + mov esi, P26 + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + +I1C: + mov [micron], 32 + mov [cname], P1C + mov esi, P1C + mov edi, saveproc + 0x10 + call concatname + jmp MMXtest + + +;;;;;;;;;;;;;;;;;;; +sev: ;Family=7 +.IS0: + + Text 15, 190,0x00000000,cache, cachelen-cache + mov [micron], 18 + mov [cname], PS0 + mov esi, PS0 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +fift: ;Family=15 + + Text 15, 190,0x00000000,cacheP4, cacheP4len-cacheP4 + + cmp [m],$0 + jz .IF0 + cmp [m],$1 + jz .IF1 + cmp [m],$2 + jz .IF2 + cmp [m],$3 + jz .IF3 + cmp [m],$4 + jz .IF3 ;identical to F3xh + cmp [m],$5 + jz .IF5 + cmp [m],$6 + jz .IF6 + jmp next_generation +.IF0: + mov [micron], 18 + cmp [L2], 128 + jne .ppF0 ; Pentium + mov [cname], PF0c + mov esi, PF0c + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +.ppF0: + mov [cname], PF0 + mov esi, PF0 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +.IF1: + mov [micron], 18 + cmp [L2], 128 + je .IF0;jne.ppF1 ; Pentium + ; mov eax,dword 0x00000004 + ; mov ebx,115*65536+80 + ; mov ecx,dword 0x00000000 + ; mov edx,PF0c + ; mov esi,PF0clen-PF0c + ; mcall + ;jmp MMXtest +;.ppF1: + mov [cname], PF0 + mov esi, PF0 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +.IF2: + mov [micron], 13 + cmp [L2], 128 + jne .ppF2 ; Pentium + mov [cname], PF2c + mov esi, PF2c + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +.ppF2: + mov [cname], PF2 + mov esi, PF2 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +.IF3: + mov [micron], 09 + cmp [L2], 256 + jne .ppF3 ; Pentium + mov [cname], PF3c + mov esi, PF3c + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +.ppF3: + mov [cname], PF3 + mov esi, PF3 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.IF5: + mov [micron], 09 + cmp [L2], 512 + jae .ppF5 ; Pentium + mov [cname], PF5c + mov esi, PF5c + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +.ppF5: + mov [cname], PF5 + mov esi, PF5 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + + .IF6: + mov [micron], 06 ; 065 + cmp [L2], 512 + ja .ppF6 ; Pentium + mov [cname], PF6c + mov esi, PF6c + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +.ppF6: + mov [cname], PF6 + mov esi, PF6 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + + + next_generation: + mov [cname], NG + mov esi, NG + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +;---------------------------------- +Cyrix: + + mov [codeN], 3 + Text 15, 190,0x00000000,cache, cachelen-cache + + mov esi, cyrix + call load_gif + PutImage 135,107,201,49,img_area+8 + + + cmp [f], $5 + jz .fivv + cmp [f], $6 + jz .sixx +.fivv: ;Family=5 + cmp [m],$2 + jz .C52 + cmp [m],$4 + jz .C54 +.C52: + mov [micron], 50 ;35? + mov [L1i], 8 + mov [L1d], 8 + mov [L2], 512 + Text 75,70,0x00000000,Cyrixn, Cyrixnlen-Cyrixn + mov esi, Cyrixn + mov edi, saveproc + call concatname + mov [cname], C52 + mov esi, C52 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +.C54: + mov [micron], 50 + mov [L1i], 8 + mov [L1d], 8 + mov [L2], 512 + Text 75,70,0x00000000,Cyrixn, Cyrixnlen-Cyrixn + mov esi, Cyrixn + mov edi, saveproc + call concatname + mov [cname], C54 + mov esi, C54 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest + +.sixx: ;Family=6 + cmp [m],$0 + jz .C60 + cmp [m],$5 + jz .C65 +.C60: + mov [micron], 25 + mov [L1i], 32 + mov [L1d], 32 + mov [L2], 512 + Text 75,70,0x00000000,Cyrixn, Cyrixnlen-Cyrixn + mov esi, Cyrixn + mov edi, saveproc + call concatname + mov [cname], C60 + mov esi, C60 + mov edi, saveproc + 0x6 + call concatname + jmp MMXtest +.C65: + mov [micron], 25 ;35? + mov [L1i], 32 + mov [L1d], 32 + mov [L2], 512 + Text 75,70,0x00000000,Centaurn, Centaurnlen-Centaurn + mov esi, Centaurn + mov edi, saveproc + call concatname + mov edx,C65 + mov esi,C65len-C65 + jmp OutProcName +;--------------------- +Centaur: + + Text 15, 190,0x00000000,cache, cachelen-cache + +;CACHE1: + mov eax, 80000005h + cpuid + shr ecx, 24 + mov [L1d], ecx + shr edx, 24 + mov [L1i], edx + +; cache detection routine +;CACHE1: + mov eax, 80000005h + cpuid + + movzx eax, cl + mov [lineld], eax + + mov eax, ecx + shr eax, 16 + and eax,000000FFh + mov [wayld], eax + + shr ecx, 24 + mov [L1d], ecx + + movzx eax, dl + mov [lineli], eax + + mov eax, edx + + shr eax, 16 + and eax,000000FFh + mov [wayli], eax + + shr edx, 24 + mov [L1i], edx + + +;CACHE2: + mov eax, 80000006h + cpuid + + cmp [f], $6 + jz vn + jmp vl2old ; if not then old identification +vn: + cmp [m],$9 + jl vl2old + ; else new + movzx eax, cl + mov dword[linel2], eax + + mov eax, ecx + shl eax, 16 + shr eax, 28 + + mov dword[wayl2], eax + + shr ecx, 16 ; it is 16 bits now + mov [L2],ecx + + + +vl2old: + movzx eax, cl + mov dword[linel2], eax + + mov eax, ecx + shl eax, 8 + shr eax, 24 + + mov dword[wayl2], eax + + shr ecx, 24 ; it was 8 bits earlier + mov [L2],ecx + + + cmp [f], $5 + jz fivC + cmp [f], $6 + jz sixC + +fivC: ;Family=5 + + mov esi, idt + call load_gif + PutImage 135,107,201,49,img_area+8 + ;PutImage 125,107,201,49,img_area+8 + ; place size + + Text 75,70,0x00000000,IDTn, IDTnlen-IDTn + mov esi, IDTn + mov edi, saveproc + 0x4 + call concatname + cmp [m],$4 + jz .V54 + cmp [m],$8 + jz .V58 + cmp [m],$9 + jz .V59 +.V54: + mov [micron], 35 + mov edx,V54 + mov esi,V54len-V54 + jmp OutProcName +.V58: + mov [micron], 25 + mov edx,V58 + mov esi,V58len-V58 + jmp OutProcName +.V59: + mov [micron], 25 + mov edx,V59 + mov esi,V59len-V59 + jmp OutProcName + +sixC: ;Family=6 + + mov esi, via + call load_gif + PutImage 135,107,201,49,img_area+8 + + + Text 75,70,0x00000000,Centaurn, Centaurnlen-Centaurn + mov esi, Centaurn + mov edi, saveproc + call concatname + cmp [m],$6 + jz .V66 + cmp [m],$7 + jz .V67 + cmp [m],$8 + jz .V68 + cmp [m],$9 + jz .V69 + cmp [m],$A + jz .V6A +.V66: + mov [micron], 18 ; 25? + mov edx,V66 + mov esi,V66len-V66 + jmp OutProcName +.V67: + mov [micron], 15 + mov edx,V67 + mov esi,V67len-V67 + jmp OutProcName +.V68: + mov [micron], 13 + mov edx,V68 + mov esi,V68len-V68 + jmp OutProcName +.V69: + mov [micron], 13 + mov edx,V69 + mov esi,V69len-V69 + jmp OutProcName +.V6A: + mov [micron], 9 + mov edx,VA + mov esi,VAlen-VA + jmp OutProcName +;----------- +Transmeta: + + Text 15, 190,0x00000000,cache, cachelen-cache + + Text 75,70,,Tranmsmetan, Tranmsmetanlen-Tranmsmetan + mov esi, Tranmsmetan + mov edi, saveproc + call concatname + + mov esi, transmeta + call load_gif + PutImage 135,107,201,49,img_area+8 + +; cache detection routine - it is the same as for AMD (almost) +;CACHE1: + mov eax, 80000005h + cpuid + + movzx eax, cl + mov [lineld], eax + + mov eax, ecx + + shr eax,16 + and eax,000000FFh + mov [wayld], eax + + shr ecx, 24 + mov [L1d], ecx + + movzx eax, dl + mov [lineli], eax + + mov eax, edx + + shr eax, 16 + and eax,000000FFh + mov [wayli], eax + + shr edx, 24 + mov [L1i], edx + + +;CACHE2: + mov eax, 80000006h + cpuid + + movzx eax, cl + mov dword[linel2], eax + + mov eax, ecx + shl eax, 16 + shr eax, 28 + + mov dword[wayl2], eax + + shr ecx, 16 + mov [L2],ecx + + + cmp [f], $5 + jz .fivt + cmp [f], $F + jz .fift +.fivt: ; Family=5 + + mov edx,T5 + mov esi,T5len-T5 + jmp @f + +.fift: ; Family=F + mov edx,TF + mov esi,TFlen-TF +@@: + mov [micron], 13 ; + Text 140,70,0 + jmp MMXtest + +OutProcName: + Text 100,70,0 + +;---- +;---------------------------------- new +Vortex: + + Text 15, 190,0x00000000,cache, cachelen-cache + + mov esi, vortex + call load_gif + PutImage 135,107,201,49,img_area+8 + ;PutImage 130,127,201,49,img_area+8 + ; place size + + cmp [f], $5 + jz .V54 ;fivvtx +;.fivvtx: ;Family=5 +; cmp [m],$4 +; jz .V54 +.V54: + mov [micron], 13 + mov [L1i], 16 + mov [L1d], 16 + mov [L2], 256 + mov [wayl2], 4 + mov [wayli], 4 + mov [wayld], 4 + Text 75,70,0x00000000,Vortexn, Vortexnlen-Vortexn + mov esi, Vortexn + mov edi, saveproc + call concatname + jmp MMXtest + +;--------------------- + + + +MMXtest: ; MMX test and Brand ID decoding + + call decodebrand ; get Brand ID + + call decode_standard_features + + call decode_extended_features + + xor eax,eax + inc eax + cpuid +HTTtest: + test edx, $10000000; ;Test bit 28 + jz .ELN + +.EL: ;HTT technology is supported + and ebx,00FF0000h ; numbers of logical processors + cmp ebx, 1 shl 16 + ; mov [number_of_log_cpus], ebx + je .ELN ; HHT not enabled (Celeron) + + mov dword [HTTn+9], $736579 + mov dword [HTT+ 6], $736579 + jmp TEXTOUT +.ELN: + + mov dword [HTTn+ 9], $6F6E + mov dword [HTT+ 6], $6F6E + +TEXTOUT: + + Text 275,290,0x00000000,HTT, HTTlen-HTT + Text 275,310,,sse3, sse3len-sse3 + Text 15,290,,MMXs, MMXslen-MMXs + Text 15,310,,SSE, SSElen-SSE + Text 95,310,,SSE2, SSE2len-SSE2 + +;------------------- +TEST3DNOW: + + xor edx, edx + cmp [smallvendor], 'ntel' + ; je @f ;recent change + jne .t + +.t: + + mov eax, $80000001 ;// Setup extended function 8000_0001h + cpuid + + test edx, $80000000 ;// Test bit 31 + jnz .XIT + +.NOEXTENDED: ;// 3DNow! technology is supported + mov dword [now+ 9], $6F6E + jmp TEST3DNOWP +.XIT: + mov dword [now+ 9], $736579 + jmp TEST3DNOWP + +TEST3DNOWP: + + cmp [smallvendor], 'ntel' + je .NOEXTENDEDP + +.tp: + + mov eax, $80000001 ;// Setup extended function 8000_0001h + cpuid + + test edx, $40000000 ;// Test bit 30 + jnz .XITP ;// 3DNow! technology is supported + +.NOEXTENDEDP: + mov dword [nowp+ 9], $6F6E + jmp TESTMMXP +.XITP: + mov dword [nowp+ 9], $736579 + jmp TESTMMXP + + +TESTMMXP: + + mov eax,$80000000 + cpuid + + test eax, 80000000h + jna NOEXTENDEDM + + ;cmp eax, $80000000 ;// Is 800_0001h supported? + ;jz .NOEXTENDEDM ;// If not, 3DNow! technology is not supported + mov eax, $80000001 ;// Setup extended function 8000_0001h + cpuid + cmp [smallvendor], 'tead' + jne noCyr +Cyrmx: + test edx, $01000000 ;// Test bit 24 + jnz XITM ;// 3DNow! technology is supported + jz NOEXTENDEDM +noCyr: + test edx, $00400000 ;// Test bit 22 + jnz XITM ;// 3DNow! technology is supported + ;jz .NOEXTENDEDM + +NOEXTENDEDM: + mov dword [mmxp+ 7], $6F6E + mov dword [MMXPi+ 8], $6F6E + jmp text3d +XITM: + mov dword [mmxp+ 7], $736579 + mov dword [MMXPi+ 8], $736579 + +text3d: + + Text 15,330,0x00000000,now, nowlen-now + Text 95,330,,nowp, nowplen-nowp + Text 95,290,,mmxp, mmxplen-mmxp + Text 110,70,0x80000000,dword[cname] + + jmp still + +;-------------------------- +NO_CPUID: + mov [nocpuid], 1 + Text 15,50,0x00000000,oblom, oblomlen-oblom + +FREEZE: + nop + jmp FREEZE ; maybe we should close application or just made some Warning and jump to still: +;---------------- +still: + +; waiting for events +event_wait: + + mov eax,23 ; function 23 - event wait + mov ebx,50 ; wait for 0.5 second + mcall + + cmp eax,1 ; + je red ; redraw + cmp eax,2 ; + je key ; key + cmp eax,3 ; + je button ; button + jmp still ; + key: ; + mcall ; + jmp still ; + button: ; + mov eax,17 ; + mcall ; + cmp ah,1 ; = 1 ? + je close ; close + + cmp ah,2 ; = 2 ? + je thread_start ; + + cmp ah, 3 + je call_OpenDialog + + mov eax,11 ; function 23 - event wait + mov ebx,1 + mcall + + mov eax,15 ; function 23 - event wait + mov ebx,3 + mcall + +; cmp ah,3 ; = 3 ? + jne still + +close: + mov eax,-1 + mcall + +;**************************** THREAD-SECOND WINDOW +thread_start: + + cmp [num_win2],0 + jne still + +;================================================RSA test + +;test rsa coding speed + call init_test +;length of module - 256 bit + mov eax,26 + mov ebx,9 + mcall + add eax,100 ;test lasts 1 second. + push eax +.loop: + push 4 ;do 4 iterations - this reduces number of calls mcall. +.loop1: + call rsa_test ;this procedure change all registers + dec dword [esp] + jnz .loop1 + pop ecx + mov eax,26 + mov ebx,9 + mcall + cmp eax,dword [esp] ;Is time changed? + jl .loop + pop eax + shr dword [iter],4 ;[iter] - speed in Kb/sec. (every iteration codes 64 bytes) + CreateTread window_2,thread2_esp + jmp still + +window_2: + mov [num_win2],1 + call draw_window_2 + +still_2: + + mov eax,10 + mcall + + cmp eax,1 + je window_2 ; window_2 + cmp eax,2 ; + je key_2 ; key_2 + cmp eax,3 ; + je button_2 ; button_2 + + jmp still_2 ; + + key_2: ; + mcall ; + jmp still_2 ; + + button_2: ; + mov eax,17 ; 17 + mcall ; + + cmp ah,1 ; = 1 ? + jne still_2 ; noclose + + mov [num_win2],0 ; + + or eax,-1 ; + mcall + + +draw_window_2: + + ;call prepare_text_area + + mov eax,12 ; function 12:tell os about windowdraw + mov ebx,1h ; 1, start of draw + mcall + + + Window 250,250,420,520, 0x33FFFFFF, 0x805080d0, standard ;460 + ; place size + + + Text 15, 10,0x00000000, STDCA, STDCAlen-STDCA + Text 215, 10,, EXTCA, EXTCAlen-EXTCA + + Text 15, 30,0x00000000, FPU, FPUlen-FPU + Text 115, 30,, VME, VMElen-VME + Text 215, 30,, DE, DElen-DE + Text 315, 30,, PSE, PSElen-PSE + + Text 15, 50,,TSC, TSClen-TSC + Text 115,50,,MSR, MSRlen-MSR + Text 215,50,,PAE, PAElen-PAE + Text 315,50,,MCE, MCElen-MCE + + Text 15,70,,CX8, CX8len-CX8 + Text 115,70,,APIC, APIClen-APIC + Text 215,70,,Res, Reslen-Res + Text 315,70,,SEP, SEPlen-SEP + + Text 15,90,,MTRR, MTRRlen-MTRR + Text 115,90,,PGE, PGElen-PGE + Text 215,90,,MCA, MCAlen-MCA + Text 315,90,,CMOV, CMOVlen-CMOV + + Text 15,110,,PAT, PATlen-PAT + Text 115,110,,PSE36, PSE36len-PSE36 + Text 215,110,,PSNUM, PSNUMlen-PSNUM + Text 315,110,,CLFLUSHn, CLFLUSHnlen-CLFLUSHn + + Text 15,130,,Res, Reslen-Res + Text 115,130,,DTS, DTSlen-DTS + Text 215,130,,ACPI, ACPIlen-ACPI + Text 315,130,,MMX, MMXlen-MMX + + Text 15,150,,FXSR, FXSRlen-FXSR + Text 115,150,,SSE, SSElen-SSE + Text 215,150,,SSE2, SSE2len-SSE2 + Text 315,150,,SSn, SSnlen-SSn + + Text 15,170,,HTT, HTTnlen-HTTn + Text 115,170,,TM, TMlen-TM + Text 215,170,,IA64, IA64len-IA64 + Text 315,170,,PBE, PBElen-PBE + ;--------------- + DrawLine 0, 410, 185,185,0x8080FF ;10 + + mov eax,$80000000 + cpuid + ;mov eax, $03020101 \A0for test of reaction + test eax, eax + js goooddd + +baaadd: + Text 95,235,0x00000000,NEF, NEFlen-NEF + jmp too + +goooddd: + Text 15,195,0x00000000,SS3, SS3len-SS3 + Text 15,215,,MON, MONlen-MON + Text 15,235,,DS_CPL, DS_CPLlen-DS_CPL + Text 15,255,,EST, ESTlen-EST + Text 15,275,,TM2, TM2len-TM2 + Text 15,295,,VMX, VMXlen-VMX + Text 15,315,,SVM, SVMlen-SVM + + Text 15,355,0x00000000,SMX, SMXlen-SMX + Text 15,335,0x00000000,PAGE, PAGElen-PAGE + Text 15,375,0x00000000,MIS, MISlen-MIS + Text 115,355,0x00000000,WDT, WDTlen-WDT + + Text 115,195,,CNXT_ID, CNXT_IDlen-CNXT_ID + Text 115,215,,CX16, CX16len-CX16 + Text 115,235,,ETPRD, ETPRDlen-ETPRD + Text 115,255,,SYS, SYSlen-SYS + Text 115,275,,LAF, LAFlen-LAF + Text 115,295,,SSSE3, SSSE3len-SSSE3 + Text 115,315,,MCR8, MCR8len-MCR8 + + + Text 115,335,0x00000000,EAS, EASlen-EAS + + Text 115,375,0x00000000,DNP, DNPlen-DNP + + + Text 315,375,0x00000000,SSE5, SSE5len-SSE5 + + Text 215,195,,MP, MPlen-MP + Text 215,215,,NX, NXlen-NX + Text 215,235,,MMXPi, MMXPilen-MMXPi + Text 215,255,,MMXn, MMXnlen-MMXn + Text 215,275,,FXSRn, FXSRnlen-FXSRn + Text 215,295,,DCA,DCAlen-DCA + + Text 315,295,0x00000000,SSE41,SSE41len-SSE41 + Text 215,335,0x00000000,x2APIC,x2APIClen-x2APIC + Text 215,355,0x00000000,ABM,ABMlen-ABM + Text 215,375,0x00000000,OSVW,OSVWlen-OSVW + + Text 315,195,,FFXSR, FFXSRlen-FFXSR + Text 315,215,,TSCP, TSCPlen-TSCP + Text 315,235,,LM, LMlen-LM + Text 315,255,,DNo, DNolen-DNo + Text 315,275,,DN, DNlen-DN + Text 215,315,,CMPL, CMPLlen-CMPL + Text 315,315,0x00000000,SS42,SS42len-SS42 + Text 315,335,0x00000000,PPCNT,PPCNTlen-PPCNT + Text 315,295,0x00000000,SSE4A,SSE4Alen-SSE4A + Text 315,355,0x00000000,SKINIT_,SKINIT_len-SKINIT_ + +too: + DrawLine 10, 400, 430,430,0x8080FF ;10 + + Text 15,415,0x00000000,speed, speedlen-speed + Text 130,415,,kbpersec, kbperseclen-kbpersec + + DrawLine 10, 80, 400, 400, 0x8080FF + + Text 90,400,0x80000000,performancestr, 0 + DrawLine 322, 400, 400, 400, 0x8080FF + DrawLine 10, 10, 400, 490, 0x8080FF + DrawLine 400, 400, 400, 490, 0x8080FF + + DrawLine 10, 400, 490, 490, 0x8080FF + + ; your proc + Text 20,415,0x808080FF,currentcpu, 0 + Number 170,415,0,5,dword [iter],0x000000 ; + 15 + ;Text 115,370,,kbpersec, kbperseclen-kbpersec ;+ 355 + mov eax, dword[iter] + ;mov ebx, 100 + ;mul ebx + add eax, 215 + mov word[linelen], ax ; need to store it as drawline corrupts eax + DrawLine 215, [linelen], 416,416,0x8080FF ;10 + 355 , 357 + DrawLine 215, [linelen], 417,417,0x8080FF ;10 + DrawLine 215, [linelen], 418,418,0x8080FF ;10 +;;; DrawLine 20, 390, 371,371,0x8080FF ;10 + + ; sample proc 1 + Text 20,435,0x80000000,samplename1,0 ; 10 + 40 + 40 +40 + 380 + Number 170,435,0,5,dword [samplespeed1],0x000000; ; 25 + 40 + 40 +40 + 380 + ;Text 115,470,0,kbpersec, kbperseclen-kbpersec ; 25 + 40 + 40 +40 + 380 + mov eax, dword[samplespeed1] + add eax, 215 + mov dword[linelen], eax ; need to store it as drawline corrupts eax + DrawLine 215, [linelen], 436,436,0x8080FF ;27+40 + 40 +40 + 380 + DrawLine 215, [linelen], 437,437,0x8080FF ;10 + DrawLine 215, [linelen], 438,438,0x8080FF ;10 + + ; sample proc 2 + Text 20,455,0x80000000,samplename2,0 ; 10 + 40 + 350 + Number 170,455,0,5,dword [samplespeed2],0x000000; ; 25 + 40 + 350 + ;Text 115,410,0,kbpersec, kbperseclen-kbpersec ; 25 + 40 + 350 + mov eax, dword[samplespeed2] + add eax, 215 + mov dword[linelen], eax ; need to store it as drawline corrupts eax + DrawLine 215, [linelen], 456,456,0x8080FF ;27+40 + 355 + DrawLine 215, [linelen], 457,457,0x8080FF ;10 + DrawLine 215, [linelen], 458,458,0x8080FF ;10 + + ; sample proc 3 + Text 20,475,0x80000000,samplename3,0 ; 10 + 40 + 40 + 38 + Number 170,475,0,5,dword [samplespeed3],0x000000; ; 25 + 40 + 40 + 355 + ;Text 115,440,0,kbpersec, kbperseclen-kbpersec ; 25 + 40 + 40 + 380 + mov eax, dword[samplespeed3] + add eax, 215 + mov dword[linelen], eax ; need to store it as drawline corrupts eax + DrawLine 215, [linelen], 476,476,0x8080FF ;27+40 + 40 + DrawLine 215, [linelen], 477,477,0x8080FF ;10 + DrawLine 215, [linelen], 478,478,0x8080FF ;10 + + mov eax,12 + mov ebx,2h + mcall + + ret + +linelen dd 0 +currentcpu db 'Current CPU',0 +samplename1 db 'Intel Core i5 CPU', 0x000000 ; not real results! +samplespeed1 dd 62 +samplename2 db 'Intel Core i3 CPU', 0 +samplespeed2 dd 48 +samplename3 db 'Intel Pentium Dual CPU', 0 +samplespeed3 dd 35 +performancestr db 'PERFORMANCE (KB/S in RSA test 256 bit)',0 +ptsstring db '' +num_win2 db 0 + +draw_window: + mcall SF_REDRAW, SSF_BEGIN_DRAW + + Window 150, 150, 350, 405, 0x34FFFFFF, 0x805080d0, title + + mov esi, [sc.work_button] + mcall SF_DEFINE_BUTTON, <138,92>, <345,24>, 2 + mcall SF_DEFINE_BUTTON, <238,92>, <345,24>, 3 + + mov ecx, [sc.work_button_text] + or ecx, 0x90000000 + mov edx, btn_more_cap + mcall SF_DRAW_TEXT, (138 + (92 - 7 * 8) / 2) shl 16 + 350 + mov edx, btn_save_cap + mcall SF_DRAW_TEXT, (238 + (92 - 4 * 8) / 2) shl 16 + 350 + + Text 130,270,0x00000000,instruct, instructlen-instruct + DrawLine 10, 330, 340,340,0x8080FF + DrawLine 330, 330, 275,340;,0x8080FF + DrawLine 10, 10, 275,340;,0x8080FF + DrawLine 10, 125, 275,275;,0x8080FF + DrawLine 230, 330, 275,275;,0x8080FF + + cmp dword[smallvendor], 'cAMD' + jne cont + cmp [f], $6 + jne cont + +; Button 240,85,69,15,3,0x030000FF ; button for rating +; Text 245,90,0x00FFFFFF,FR, FRlen-FR ; text at button + + call newrating; !!!! + +cont: + ;Number 82,50,0,4,dword [total],0x000000; MHz + mov esi, total + mov edi, tsum + 0xB ;0xA + call savenumber + + ;Number 110,50,0,2,dword [sot]; KHz + mov esi, sot + mov edi, tsum + 0x10 + call savenumber + + ;Number 75,110,1*256,1,dword [f],0x000000 ; + mov esi, f + mov edi, fam + 0x8 ;0x9 + call savenumber + + ;Number 75,130,,,dword [m] + mov esi, m + mov edi, mode + 0x7 + call savenumber + + ;Number 75,150,,,dword [s] + mov esi, s + mov edi, step + 0xa ;0x9 + call savenumber + + ;Number 110,110,1*256,2,dword [ef] + mov esi, ef + mov edi, fam + 0xE ;0x9 + call savenumber + + ;Number 110,130,,,dword [em] + mov esi, em + mov edi, mode + 0xE ;0xD + call savenumber + + mov esi, multb + mov edi, multil + 0xB + call savenumber + + ;Number 105,30,0,1,dword [multa] + mov esi, multa + mov edi, multil + 0xf + call savenumber + + ;Number 140,170,0,2,dword [wayld],0x000000 + mov esi, wayld + mov edi, cache2 + 0x14 ;0x14 + call savenumber + + ;Number 218,170,,,dword [lineld] + mov esi, lineld + mov edi, cache2 + 0x21 + call savenumber + + ;Number 140,190,,,dword [wayli] + mov esi, wayli + mov edi, cache + 0x14 + call savenumber + ;Number 218,190,,,dword [lineli] + mov esi, lineli + mov edi, cache + 0x21 + call savenumber + + ;Number 140,210,,,dword [wayl2] + mov esi, wayl2 + mov edi, cache3 + 0x14 + call savenumber + ;Number 218,210,,,dword [linel2] + mov esi, linel2 + mov edi, cache3 + 0x21 + call savenumber + + ;Number 140,230,,,dword [wayl3] + mov esi, wayl3 + mov edi, cache4 + 0x14 + call savenumber + ;Number 218,230,,,dword [linel3] + mov esi, linel3 + mov edi, cache4 + 0x21 + call savenumber + + mov esi, L1d + mov edi, cache2 + 0xa + call savenumber + + ;Number 75,190,,,dword [ L1i] + mov esi, L1i + mov edi, cache + 0xa + call savenumber + + ;Number 41,210,0,4,dword[L2] + mov esi, L2 + mov edi, cache3 + 0x4 ;0x3 + call savenumber + + ;Number 35,230,0,5,dword[L3] + mov esi, L3 + mov edi, cache4 + 0x4 ;0x3 + call savenumber + + ;-----------Features + ;Number 258,50,0,2,dword [micron] ; micron + mov esi, micron + mov edi, tech + 0xE + call savenumber + + mov esi, stdc + mov edi, STDCA + 0x14 + call savenumber + + ;Number 335,10,,,dword [extc], + mov esi, extc + mov edi, EXTCA + 0x14 + call savenumber + + Text 15,90,,cpuname, cpunamelen-cpuname; + Text 255,250,,typen, typenlen-typen + Text 175, 50,,tech, techlen-tech; + + red2: + + ;;;;;;;;;;;;;;;;;;;;;;;; + goon: + + call decodebrand + + typedetect: + mov edx, t1 + cmp [t], 00b + jz @f + mov edx, t2 + cmp [t], 01b + jz @f + mov edx, t3 + cmp [t], 11b + jz @f + mov edx, t4 +@@: + mov ebx, 290*65536 + 250 + mov ecx, 0x80000000 + mcall 4 + + Text 15,250,,brandid, brandidlen-brandid + + Text 15,50,0x00000000,tsum, tsumlen-tsum + Text 15,110,0x00000000,fam, famlen-fam + Text 15,130,0x00000000,mode, modelen-mode + Text 15,150,0x00000000,step, steplen-step + + Text 275,290,0x00000000,HTT, HTTlen-HTT + Text 275,310,,sse3, sse3len-sse3 + + Text 175,290,0x00000000,SSE41, SSE41len-SSE41 + Text 175,310,0x00000000,SSE42, SSE42len-SSE42 + Text 175,330,0x00000000,SSE5, SSE5len-SSE5 + + + Text 15,70,,name, namelen-name + Text 15,290,,MMXs, MMXslen-MMXs + Text 15,310,,SSE, SSElen-SSE + Text 95,310,,SSE2, SSE2len-SSE2 + + Text 95,290,,mmxp, mmxplen-mmxp + Text 15,330,0x00000000,now, nowlen-now + Text 95,330,,nowp, nowplen-nowp + + Text 15, 190,0x00000000,cache, cachelen-cache + Text 15,170,0x00000000,cache2, cache2len-cache2 + Text 15,210,,cache3, cache3len-cache3 + Text 15,230,,cache4, cache4len-cache4 + call load_gif + + cmp [nomultiplier], $1 + je nomultip + Text 15,30,0x00000000,multil2, multil2len-multil2 + Text 175,30,0x00000000,freql2, freql2len-freql2 + Number 85,30,0,2,dword [multb],0x000000; + Number 105,30,0,1,dword [multa] + Number 259,30,0,4,dword [freqbb] + Number 289,30,0,2,dword [freqll] + +JumpForCodename: + cmp [codeN], $1 + je codeNIntel + cmp [codeN], $2 + je codeNAMD + cmp [codeN], $3 + je codeNCyrix + cmp [codeN], $4 + je codeNCentaur + cmp [codeN],$5 + je codeNTransmeta + cmp [codeN], $6 + je codeNVortex + jmp nnn + +codeNIntel: + Text 75,70,0x00000000,Inteln, Intelnlen-Inteln + mov esi, intel + call load_gif + PutImage 135,107,201,49,img_area+8 + jmp nnn + +codeNAMD: + Text 75,70,,AMDn, AMDnlen-AMDn + mov esi, amd + call load_gif + PutImage 135,107,201,49,img_area+8 + jmp nnn + +codeNCyrix: + Text 75,70,0x00000000,Cyrixn, Cyrixnlen-Cyrixn + mov esi, cyrix + call load_gif + PutImage 135,107,201,49,img_area+8 + jmp nnn + +codeNCentaur: + Text 75,70,0x00000000,IDTn, IDTnlen-IDTn + mov esi, idt + call load_gif + PutImage 135,107,201,49,img_area+8 + jmp nnn + +codeNTransmeta: + Text 75,70,,Tranmsmetan, Tranmsmetanlen-Tranmsmetan + mov esi, transmeta + call load_gif + PutImage 135,107,201,49,img_area+8 + jmp nnn + +codeNVortex: + Text 75,70,0x00000000,Vortexn, Vortexnlen-Vortexn + mov esi, vortex + call load_gif + PutImage 135,107,201,49,img_area+8 + jmp nnn + +nomultip: + Text 15,30,0x00000000,multi3, multi3len-multi3 + Text 175,30,0x00000000,freql3, freql3len-freql3 + Text 259,30,0x00000000, clock0, clock0len-clock0 + + jmp JumpForCodename + + nnn: + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + + Text 15,10,0x00000000,stm, stmlen-stm + ; Fix for deleting leading whitespaces + ; in Intel P4's internal name + ; by Madis Calme + ; 23.12.2004 ver. 0.81 + cld + mov edi,myname + mov al,20h + or ecx,-1 + repe scasb + dec edi + mov esi,mynamelen + sub esi,edi + Text 105, 10, 0x00000000, edi, esi +;- + Text 15,250,,brandid, brandidlen-brandid + + mcall SF_REDRAW, SSF_END_DRAW + + ret ; + +call_OpenDialog: + + mov [OpenDialog_data.type],1 ; Save + + push dword OpenDialog_data + call [OpenDialog_Start] + + cmp [OpenDialog_data.status],2 ; OpenDialog does not start + je .save_file_default_path + + cmp [OpenDialog_data.status],1 + jne still + + call store_data + jmp still + +.save_file_default_path: + mov edi,file_name + mov esi,file_default_path + call copy_file_name_path + call store_data + jmp still + +copy_file_name_path: + xor eax,eax + cld +@@: + lodsb + stosb + test eax,eax + jnz @r + ret + +;----------------------------------------------------------------------------- +prepare_text_area: + mov edi,[store_text_area_start] + + push edi + mov ecx,4096 + mov eax,dword ' ' + cld + rep stosd + pop edi + mov [store_text_area_end], edi + + mov esi,title + call addstring + + mov esi, stm + call addstring + + mov esi, myname + call addstring + + cmp [nomultiplier], $1 + je noMult + jne detMulti + ;jne detFreq + + detMulti: + mov esi,multil + call addstring + jmp detFreq + + detFreq: + mov esi, freql + call addstring + + noMult: + mov esi,multi3 + call addstring + + mov esi,freql3 + call addstring + + mov esi, tech + call addstring + + mov esi, saveproc + call addstring + + mov esi, cpuname + call addstring + + mov esi, fam + call addstring + + mov esi, mode + call addstring + + mov esi, step + call addstring + + mov esi, cache2 + call addstring + + mov esi, cache + call addstring + + mov esi, cache3 + call addstring + + mov esi, cache4 + call addstring + + mov esi, brandid + call addstring + + mov esi, MMXs + call addstring + + mov esi, mmxp + call addstring + + mov esi, now + call addstring + + mov esi, HTT + call addstring + + mov esi, SSE + call addstring + + mov esi, SSE41 + call addstring + + mov esi, SSE42 + call addstring + + mov esi, SSE5 + call addstring + + mov esi, SSE2 + call addstring + + mov esi, nowp + call addstring + + mov esi, sse3 + call addstring + + mov esi, standard + call addstring + + mov esi, STDCA + call addstring + + mov esi, EXTCA + call addstring + + mov esi, FPU + call addstring + + mov esi, VME + call addstring + + mov esi, DE + call addstring + + mov esi, PSE + call addstring + + mov esi, TSC + call addstring + + mov esi, MSR + call addstring + + mov esi, PAE + call addstring + + mov esi, MCE + call addstring + + mov esi, CX8 + call addstring + + mov esi, APIC + call addstring + + mov esi, Res + call addstring + + mov esi, SEP + call addstring + + mov esi, MTRR + call addstring + + mov esi, PGE + call addstring + + mov esi, MCA + call addstring + + mov esi, CMOV + call addstring + + mov esi, PAT + call addstring + + mov esi, PSE36 + call addstring + + mov esi, PSNUM + call addstring + + mov esi, CLFLUSHn + call addstring + + mov esi, Res + call addstring + + mov esi, DTS + call addstring + + mov esi, ACPI + call addstring + + mov esi, MMX + call addstring + + mov esi, FXSR + call addstring + + mov esi, SSE + call addstring + + + mov esi, SSn + call addstring + + mov esi, HTT + call addstring + + mov esi, TM + call addstring + + mov esi, IA64 + call addstring + + mov esi, PBE + call addstring + + mov esi, SS3 + call addstring + + mov esi, CNXT_ID + call addstring + + mov esi, MP + call addstring + + mov esi, FFXSR + call addstring + + mov esi, MON + call addstring + + mov esi, CX16 + call addstring + + mov esi, NX + call addstring + + mov esi, TSCP + call addstring + + mov esi, DS_CPL + call addstring + + mov esi, ETPRD + call addstring + + mov esi, MMXPi + call addstring + + mov esi, LM + call addstring + + mov esi, EST + call addstring + + mov esi, SYS + call addstring + + mov esi, MMXn + call addstring + + mov esi, DNo + call addstring + + mov esi, TM2 + call addstring + + mov esi, LAF + call addstring + + mov esi, FFXSR + call addstring + + mov esi, DN + call addstring + + mov esi, VMX + call addstring + + mov esi, SSSE3 + call addstring + + mov esi, DCA + call addstring + + mov esi, CMPL + call addstring + + mov esi, SVM + call addstring + + mov esi, MCR8 + call addstring + + mov esi, SMX + call addstring + + mov esi, x2APIC + call addstring + + mov esi, PPCNT + call addstring + + mov esi, PAGE + call addstring + + mov esi, EAS + call addstring + + mov esi, ABM + call addstring + + mov esi, MIS + call addstring + + mov esi,OSVW + call addstring + + mov esi,SKINIT_ + call addstring + + mov esi, WDT + call addstring + + ret + +addstring: + mov edi, [store_text_area_end] + xor eax, eax + xor ecx, ecx + cld +@@: + lodsb + stosb + inc [store_text_area_end] + cmp [esi], byte 0x0 + jnz @r + mov al,0Ah + stosb + + mov [store_text_area_end],edi + xor edi,edi + xor esi, esi + ret + +savenumber: + xor eax, eax + cld + lodsw + call numbertostring + xor esi, esi + xor edi, edi + + ret + +savestring: + xor eax, eax + cld + lodsw + ;call numbertostring + xor esi, esi + xor edi, edi + + ret + +numbertostring: + mov bx, 10 + xor ecx, ecx +@@m1: + xor dx, dx + div bx + push dx + inc cx + test ax, ax + jnz @@m1 +@@m2: + pop ax + add al, '0' + stosb + loop @@m2 + ret + +concatname: + ;mov edi, [saveproc] + xor eax, eax + xor ecx, ecx + cld +@@: + lodsb + stosb + cmp [esi], byte 0x0 + jnz @r + + xor edi,edi + xor esi, esi + ret + +store_data: + call prepare_text_area + mov eax,[store_text_area_start] + mov [fileinfo.return],eax + mov ebx,[store_text_area_end] + sub ebx,eax + inc ebx + mov [fileinfo.size],ebx + mcall 70,fileinfo + ret + +load_gif: + mov edi, img_area + jmp ReadGIF + + +; DATA AREA + +title db 'CPUID 2.31 by S.Kuzmin & KolibriOS Team',0 + +stm: + db 'Internal name:', 0 + +stmlen: + +SS42: + db 'SSE4.2: ',0 +SS42len: + +SMX: + db 'SMX: ',0 +SMXlen: + +x2APIC: + db 'x2APIC: ' +x2APIClen: + +PPCNT: + db 'POPCNT: ' +PPCNTlen: + +PAGE: + db 'Page1Gb: ' +PAGElen: + +EAS: + db 'EAS: ',0 +EASlen: + +newLabel: + db '3DNP: ',0 +newLabellen: + + +ABM: + db 'ABM: ' +ABMlen: + +SSE4A: + db 'SSE4A: ' +SSE4Alen: + +MIS: + db 'MIS: ',0 +MISlen: + +DNP: + db '3DNP: ' +DNPlen: + +OSVW: + db 'OSVW: ',0 +OSVWlen: + +SKINIT_: + db 'SKINIT: ',0 +SKINIT_len: + +WDT: + db 'WDT: ',0 +WDTlen: + + +saveproc: + db ' ',0 + +multil: + db 'Multiplier: . ', 0 + +multillen: + +multil2: + + db 'Multiplier: . ' + +multil2len: + +multi3: + + db 'Multiplier: n/a',0 + +multi3len: + +freql: + + db 'System clock: . MHz', 0 +freqllen: + +freql2: + + db 'System clock: . MHz' + + +freql2len: + +freql3: + + db 'System clock: n/a ' + + +freql3len: + +tsum: + + db 'Frequency: . MHz ',0 + +tsumlen: + +tech: + + db 'Technology: 0. micron ', 0 + +techlen: + +name: + +if lang eq it_IT + db 'Codename:',0 +else ; Default to en_US + db 'CODENAME:',0 +end if + +namelen: + +vendorname: + +if lang eq it_IT + db 'Vendor CPU ', 0 +else ; Default to en_US + db 'CPU VENDOR: ', 0 +end if + +vendornamelen: + +cpuname: + +if lang eq it_IT + db 'Vendor CPU ', 0 +else ; Default to en_US + db 'CPU VENDOR: ', 0 +end if + +cpunamelen: + + +fam: + +if lang eq it_IT + db 'Famiglia: std ext', 0 +else ; Default to en_US + db 'FAMILY: std ext', 0 +end if + +famlen: + +mode: + +if lang eq it_IT + db 'Modello: std ext', 0 +else ; Default to en_US + db 'MODEL: std ext', 0 +end if + +modelen: + +step: + +if lang eq it_IT + db 'Stepping: ', 0 +else ; Default to en_US + db 'STEPPING: ', 0 +end if + +steplen: + +cache: + + db 'L1(inst): KB -way set -byte line size',0 + +cachelen: + +cache2: + + db 'L1(data): KB -way set -byte line size',0 + +cache2len: + + +cache3: + + db 'L2: KB -way set -byte line size',0 + +cache3len: + +cache4: + + db 'L3: KB -way set -byte line size',0 + +cache4len: + +brandid: + + db 'Brand:', 0 + +brandidlen: + +MMXs: + + db 'MMX: ',0 + +MMXslen: + + +total dd 0x0 + +total1 dd 0x0 + +rating dd 0x0 + +rat dd 0x0 ; + +NEF: + +db 'EXTENDED FEATURES ARE NOT AVAILABLE',0 + +NEFlen: + + + +mb : + +db 'MB' + +mblen: + + + +logcpus : + +db 'Number of logical CPU:' + +logcpuslen: + + + +speed : + +if lang eq it_IT +; db 'Performance',0 +else ; Default to en_US +; db 'PERFORMANCE:',0 +end if + +speedlen: + + + +kbpersec: + +db 'KB/SEC' + +kbperseclen: + + + +instruct: + +if lang eq it_IT + db 'Set istruzioni' +else ; Default to en_US + db 'Instruction sets' +end if + +instructlen: + + + +standard db 'Standard and Extended features plus Performance test',0 + + +STDCA: + + db 'Highest STD call is ',0 + +STDCAlen: + + + +EXTCA: + + db 'Highest EXT call is h',0 + +EXTCAlen: + + +oblom: + +if lang eq it_IT + db 'CPUID non e disponibile' +else ; Default to en_US + db 'SORRY, CPUID IS NOT AVAILABLE' +end if + +oblomlen: + + +other: + +if lang eq it_IT + db 'Questo vendor non e supportato' +else ; Default to en_US + db 'SORRY, THIS VENDOR IS NOT SUPPORTED YET' +end if + +otherlen: + + +cacheP4: + + db 'L1(inst): Kuops -way set -byte line size' + +cacheP4len: + + +typen: + +if lang eq it_IT + db 'Tipo:' +else ; Default to en_US + db 'Type:' +end if + +typenlen: + + + +pr: + + db 'P-rating:' + +prlen: + + + + +AMDn: + + db 'AMD',0 + +AMDnlen: + +AMDnNew: + + db 'CODENAME: AMD',0 + +AMDnNewlen: + +Inteln: + + db 'Intel',0 + +Intelnlen: + +IntelnNew: + db 'CODENAME: Intel',0 + +IntelnNewlen: + + +Cyrixn: + + db 'Cyrix',0 + +Cyrixnlen: + +IDTn: + + db 'IDT/Centaur',0 + +IDTnlen: + +Centaurn: + + db 'VIA',0 + +Centaurnlen: + + + +Tranmsmetan: + + db 'Transmeta',0 + +Tranmsmetanlen: + + +Vortexn: + db 'Vortex86',0 +Vortexnlen: + + +mmxp: + + db 'MMX+: ',0 + +mmxplen: + + + +HTT: + + db 'HTT: ',0 + +HTTlen: + + +HTTn: + + db 'HTT: ',0 + +HTTnlen: + + +sse3: + + db 'SSE3: ',0 + +sse3len: + +SSE41: + db 'SSE4.1: ',0 +SSE41len: + +SSE42: + db 'SSE4.2: ',0 +SSE42len: + +SSE5: + db 'SSE5: ',0 +SSE5len: + +now: + + db '3DNOW!: ',0 + +nowlen: + +nowp: + + db '3DNOW!+: ',0 + +nowplen: + +;-Type + +t1 db 'OEM',0 + +t2 db 'Overdrive',0 + +t3 db 'Dual',0 + +t4 db 'Unknown',0 + + + +;----------Intel + +P50: + +db 'P5 A-step',0 + +P50len: + +P5: + +db 'P5',0 + +P5len: + +P54T: + +db 'P24T Overdrive',0 + +P54Tlen: + +P54C: + +db 'P54C',0 + +P54Clen: + +P55C: + +db 'P55C (with MMX)',0 + +P55Clen: + +; --- + +P60: + +db 'Pentium Pro A-step',0 + +P60len: + +P61: + +db 'Pentium Pro',0 + +P61len: + +P63: + +db 'Pentium II (Klamath)',0 + +P63len: + +P65: + +db 'Pentium II (Deschutes)',0 + +P65len: + +P66: + +db 'Celeron (Medocino)',0 + +P66len: + +P67: + +db 'Pentium III (Katmai)',0 + +P67len: + +P68: + +db 'Pentium III (Coppermine)',0 + +P68len: + +P69: + +db 'Pentium M (Banias)',0 + +P69len: + +P6A: + +db 'Pentium III Xeon (Cascades)',0 + +P6Alen: + +P6B: + +db 'Pentium III (Tualatin)',0 + +P6Blen: + +P6D: + +db 'Pentium M (Dothan)',0 + +P6Dlen: + +P6E: + +db 'Pentium M (Yonah)/ Core',0 + +P6Elen: + +P6F: + +db 'Pentium D (Conroe)/ Core 2 (Kentsfield)',0 + +P6Flen: + +;--- + +PS0: + +db 'Itanium (IA-64)',0 + +PS0len: + +;------------ + +PF0: + +db 'Pentium 4 (Willamete)',0 + +PF0len: + +PF2: + +db 'Pentium 4 (Northwood)',0 + +PF2len: + +PF3: + +db 'Pentium 4 (Prescott)',0 + +PF3len: + +PF5: + +db 'Pentium 4 (Tejas)',0 + +PF5len: + +PF6: + +db 'Pentium 4 (Presler)',0 + +PF6len: + +;----------------Intel Celerons + +P65c: + +db 'Celeron (Covington)',0 + +P65clen: + +P68c: + +db 'Celeron (Coppermine)',0 + +P68clen: + +P6Bc: + +db 'Celeron (Tualatin)',0 + +P6Bclen: + +PF0c: + +db 'Celeron (Willamete)',0 + +PF0clen: + +PF2c: + +db 'Celeron (Northwood)',0 + +PF2clen: + +PF3c: + +db 'Celeron (Prescott)',0 + +PF3clen: + +PF5c: + +db 'Celeron D (Texas)',0 + +PF5clen: + +PF6c: + +db 'Celeron D (Presler)',0 + +PF6clen: + +;---------New Intel +P3A: + +db 'IvyBridge',0 + +P3Alen: + +P2A: + +db 'Sandy Bridge',0 + +P2Alen: + +P2D: +db 'Sandy bridge-E',0 + +P2Dlen: + + +P25: +db 'Arrandale',0 +P25len: + +P2C: +db 'Gulftown',0 +P2Clen: + +P2F: +db 'Westmere-EX',0 +P2Flen: + +P1E: +db 'Clarksfield',0 +P1Elen: + +P1A: +db 'Bloomfield',0 +P1Alen: + +P2E: +db 'Nehalem-EX',0 +P2Elen: + +P17: +db 'Yorkfield',0 +P17len: + +P1D: +db 'Dunnington',0 +P1Dlen: + +P0F: +db 'Clovertown',0 +P0Flen: + +P16: +db 'Merom Conroe',0 +P16len: + +P06: +db 'Cedar Mill',0 +P06len: + +P03: +db 'Nocona Irwindale',0 +P03len: + +P04: +db 'NoconaIrwindale',0 +P04len: + +P0D: +db 'Dothan',0 +P0Dlen: + +P36: +db 'Cedarview',0 +P36len: + +P26: +db 'Lincroft',0 +P26len: + +P1C: +db 'Pineview',0 +P1Clen: + +no_known: +db 'SORRY, CODENAME IS NOT SUPPORTED YET ', 0 + +;---------AMD + +A50 db 'K5 (PR75, PR90, PR100)',0 + +A51 db '5k86 (PR120, PR133)',0 + +A52 db '5k86 (PR166)',0 + +A53 db '5k86 (PR200)',0 + +A56 db 'K6',0 + +A57 db 'K6',0 + +A58 db 'K6-2',0 + +A59 db 'K6-III',0 + +A5D db 'K6-2+ or K6-III+',0 + +;------------------- + +At1 db 'Athlon',0 + +At2 db 'Athlon',0 + +At3 db 'Duron (Spitfire)',0 + +At4 db 'Athlon (Thunderbird)',0 + +At6 db 'AthlonXP (Palomino)',0 + +At7 db 'Duron (Morgan)',0 + +At8 db 'AthlonXP (Thoroughbred)',0 + +At8a db 'Duron (Applebred)',0 + +Ata db 'AthlonXP (Barton)',0 + +Atat db 'AthlonXP (Thorton)',0 + +;------------------- +AthlonKuma: + +db 'AMD Athlon 7750 Black Edition',0 + +AthlonKumalen: + +AB23: + +db 'Opteron 2300-series',0 + +AB23len: + +AB83: + +db 'Opteron 8300-series',0 + +AB83len: + +AB9: +db 'Phenom X4',0 + +AB9len: + +AB8right2: + +db 'Phenom X3',0 + +AB8right2len: + +AB4: + +db 'Athlon X2',0 + +AB4len: + +AB1: + +db 'Sempron',0 + +AB1len: + +ABC2: + +db 'Opteron (Shanghai) 2387',0 + +ABC2len: + +AB6: + +db 'Opteron (Magny-Cours)',0 + +AB6len: + +ABC3: + +db 'Opteron (Shanghai) 8300 series',0 + +ABC3len: + +ABM2: + +db 'Turion II ',0 + +ABM2len: + +;--- + +AF1: + +db 'Dual-core Opteron',0 + +AF1len: + +AF3: + +db 'Athlon 64 (Toledo)',0 + +AF3len: + +AF4: + +db 'Athlon 64 (ClawHammer)',0 + +AF4len: + +AF5: + +db 'Opteron/Athlon 64 FX (SledgeHammer)',0 + +AF5len: + + +AFC: + +db 'Athlon 64 (Newcastle)',0 + +AFClen: + + +AFF: + +db 'Athlon 64 (Winchester)',0 + +AFFlen: + + +AFS: + +db 'Athlon 64 (San Diego)',0 + +AFSlen: + + +AFV: + +db 'Athlon 64 (Venice)',0 + +AFVlen: + + +AFCs: + +db 'Sempron (Paris)',0 + +AFCslen: + + + +AFCsp: + +db 'Sempron (Palermo)',0 + +AFCsplen: + + + +;---------Cyrix + +C52: + +db '6x86 M1',0 + +C52len: + +C54: + +db 'MediaGX',0 + +C54len: + +C60: + +db '6x86MX M2',0 + +C60len: + +C65: + +db 'C3 (Cyrix M2)',0 ;? + +C65len: + +;--------IDT + +V54: + +db 'WinChip C6',0 + +V54len: + +V58: + +db 'WinChip 2',0 + +V58len: + +V59: + +db 'WinChip 3',0 + +V59len: + +;-------VIA + +V66: + +db 'C3 (Samuel)',0 ; Joshua is unreleased 065 + +V66len: + +V67: + +db 'C3 (Samuel2/Ezra)',0 ; ? + +V67len: + +V68: + +db 'C3 (Ezra-T/Eden)',0 ;? + +V68len: + +V69: + +db 'C3 (Antaur/Nehemiah)',0 ;? + +V69len: + +VA: + +db 'C7 (Esther)',0 ;? + +VAlen: + +;---------Transmeta + +T5: + +db 'Crusoe',0 ; + +T5len: + +TF: + +db 'Efficeon',0 ; + +TFlen: + +;--------- + +NG: + + db 'Next generation CPU',0 + +NGlen: + + +athloncoef db 110, 115, 120, 125, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100, 105, 120 + + db 190, 120, 200, 130, 135, 140, 210, 150, 220, 160, 165, 170, 180, 230, 240 + +athlonmcoef: db 110, 115, 120, 125, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100, 105 + + db 30, 190, 40, 200, 130, 135, 14, 210, 150, 220, 160, 165, 170, 230, 240 + +athloncoef3 db 45, 50, 40, 55, 25, 30, 60, 35 + +p4coef db 160, 170, 180, 190, 200, 210, 220, 230, 80, 90, 100, 110, 120, 130, 140, 150 ; Pentium 4 (Willamete) + +coppercoeff db 50, 30, 40, 20, 55, 35, 45, 25, 35, 70, 80, 60, 20, 75, 15, 65, 90, 110, 120, 20, 95, 115, 85, 25, 35, 70, 80, 100, 20, 75, 15, 105 + +tualatcoeff db 120, 35, 35, 40, 55, 35, 115, 35, 160, 70, 80, 60, 40, 75, 35, 65, 90, 110, 35, 35, 95, 35, 85, 35, 35, 35, 130, 100, 140, 35, 150, 105 + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +I_END: + +img_area: ; image is going to be unpacked to here +rb 201*49*3+8 ; image resolution (bits to reserve) + +img_area2: ; image is going to be unpacked to here +rb 93*24*3+8 ; image resolution (bits to reserve) + +img_area3: ; image is going to be unpacked to here +rb 93*24*3+8 ; image resolution (bits to reserve) + +gif_hash_area: +rd 4096+1 ;hash area size for unpacking gif +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 + +err_message_found_lib2 db 'proc_lib.obj - Not found!',0 + +err_message_import2 db 'proc_lib.obj - Wrong import!',0 + +head_f_i: +head_f_l db 'error',0 +;--------------------------------------------------------------------- +l_libs_start: + +library02 l_libs system_dir_ProcLib+9, 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 +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 +OpenDialog_data: +.type dd 0 +.procinfo dd Proc_Info ;+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 file_name ;+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: + db '/sys/File Managers/opendial',0 +communication_area_default_pach: + db '/sys',0 +Filter: +dd Filter.end - Filter.1 +.1: +db 'TXT',0 +db 'LOG',0 +.end: +dd 0 + +file_default_path: + db '/sys/' +start_temp_file_name: + db 'CPUID.txt',0 +btn_more_cap: + db 'Details', 0 +btn_save_cap: + db 'Save', 0 +;--------------------------------------------------------------------- +align 4 +fileinfo: +.subfunction dd 2 +.Offset dd 0 +.Offset_1 dd 0 +.size dd 4096 +.return dd 0 + db 0 +.name: dd file_name + +align 4 +sc system_colors + +store_text_area_start dd ? +store_text_area_end dd ? +store_text_size dd ? + +;--------------------------------------------------------------------- +library_path: + rb 4096 +;--------------------------------------------------------------------- +path: + rb 4096 +;--------------------------------------------------------------------- +temp_dir_pach: + rb 4096 +;--------------------------------------------------------------------- +file_name: + rb 4096 +;--------------------------------------------------------------------- +file_name_1: + rb 4096 +;--------------------------------------------------------------------- +filename_area: + rb 256 +;--------------------------------------------------------------------- + rb 4096 +stacktop: +;--------------------------------------------------------------------- +Proc_Info process_information +; RSA test data +align 4 + num1 rd 40 + num2 rd 40 + num3 rd 40 + iter rd 1 + openkey rd 1 + + +IncludeUGlobals + +nocpuid db ? +ost dd ? +sot dd ? +f dd ? +m dd ? +s dd ? +t dd ? + +ef dd ? +em dd ? + +multiplier dd ? +multa dd ? +multb dd ? +smallvendor dd ? +L1d dd ? +L1i dd ? +L2 dd ? +L3 dd ? +micron dd ? +brand dd ? +newpc dd ? +nomultiplier dd ? +ram_size_a dd ? +ram_size_t dd ? + +stdc dd ? +extc dd ? + +FRS dd ? +freqsel db ? +sse3sup db ? +sse41sup dd ? +sse42sup dd ? +sse5sup dd ? + +freqbb dd ? +freqll dd ? + +wayli dd ? +lineli dd ? + +wayld dd ? +lineld dd ? + +wayl2 dd ? +linel2 dd ? + +wayl3 dd ? +linel3 dd ? +che db ? ; numbers of calls for Intel caches detection +cname dd ? +codeN dd ? + +myname: + rb 48 + +mynamelen: + db ? + +align 4 + thread2_stack_area rb 64 + thread2_esp = $ +U_END: diff --git a/programs/testing/disptest/trunk/disptest.ASM b/programs/testing/disptest/trunk/disptest.ASM index fbb6b5cd25..1b235a14a9 100644 --- a/programs/testing/disptest/trunk/disptest.ASM +++ b/programs/testing/disptest/trunk/disptest.ASM @@ -1,930 +1,930 @@ -;------------------------------------------------------------------------------ -; Display Test for KolibriOS -;------------------------------------------------------------------------------ -; version: 0.41 -; last update: 17/03/2012 -; written by: Marat Zakiyanov aka Mario79, aka Mario -; changes: some optimisations and code refactoring -;------------------------------------------------------------------------------ -; compiler: FASM 1.50 -; name: Display Test -; version: 0.4 -; original author: barsuk - -; <--- include all MeOS stuff ---> -include "lang.inc" -include "../../../macros.inc" - -; <--- start of MenuetOS application ---> -MEOS_APP_START - -;include "..\..\..\debug.inc" - - -; <--- start of code ---> -CODE - mcall 37,4,cursor,2 - or eax, eax - jz exit - mov [cursorID], eax -;------------------------------------------------------------------------------ -redraw: - call draw_window ; at first create and draw the window -;------------------------------------------------------------------------------ -wait_event: ; main cycle - xor ebx, ebx - mcall 10 - - cmp eax, 1 ; if event == 1 - je redraw ; jump to redraw handler - cmp eax, 2 ; else if event == 2 - je key ; jump to key handler - cmp eax, 3 ; else if event == 3 - je button ; jump to button handler - - jmp wait_event ; else return to the start of main cycle -;------------------------------------------------------------------------------ -key: ; key event handler - mcall 2 ; get key code - - cmp ah, 27 - jz exit - - cmp ah, 0x20 - jz next_test - - cmp ah, 179 ; -> - jz next_test - - cmp ah, 176 ; <- - jz prev_test - - cmp ah, 'i' - jz toggle_info - - cmp ah, 'I' ; а вдруг у чела КАПСЛОК )) - jz toggle_info - - cmp ah, 'c' - jz toggle_cursor - - cmp ah, 'C' - jz toggle_cursor - - cmp ah, 'd' - jz redraw - - cmp ah, 'D' - jz redraw - - jmp wait_event -;------------------------------------------------------------------------------ -next_test: - cmp dword [test_done], 1 - jz wait_event - - inc dword [test_num] - call draw_window - jmp wait_event -;------------------------------------------------------------------------------ -prev_test: - cmp dword [test_num], ebx - jz wait_event - - dec dword [test_num] - mov dword [test_done], ebx - call draw_window - jmp wait_event -;------------------------------------------------------------------------------ -toggle_info: - xor dword [show_info], 1 - call draw_window - jmp wait_event -;------------------------------------------------------------------------------ -toggle_cursor: - mov eax, cursorVisible - cmp dword [eax], 0 - jz .no_cursor - - mov dword [eax], 0 - mov ecx, [cursorID] - jmp .set -;-------------------------------------- -.no_cursor: - mov dword [eax], 1 - xor ecx, ecx -;-------------------------------------- -.set: - mcall 37,5 - mcall 18,15 ; чтобы обновился - jmp wait_event -;------------------------------------------------------------------------------ -button: ; button event handler - mcall 17 ; get button identifier - cmp ah, 1 - jne wait_event ; return if button id != 1 -;-------------------------------------- -exit: - or eax, -1 ; exit application - mcall -;------------------------------------------------------------------------------ -draw_window: - mcall 12,1 - - ; курсор - ;mov eax, 37 - ;mov ebx, 5 - ;mov ecx, cursorID - ;int 0x40 - - mcall 14 ; screen size - - mov ebx, eax - shr ebx, 16 - mov ecx, eax - and ecx, 0xffff - mov [screenx], ebx - mov [screeny], ecx - - inc ebx - inc ecx - xor eax, eax ; create and draw the window - mov edx, 0x01000000 - mov esi, edx - mcall - ; стереть границы окна - xor edx, edx - mcall 13 ; грубо так - - dec ebx - dec ecx - - mov eax, [test_num] - mov eax, [test_proc + eax*4] - or eax, eax - jz end_of_test - call eax - jmp exit_draw -;-------------------------------------- -end_of_test: - mcall 4,<8,8>,0xffffff,test_finish,test_finish.size - mov dword [test_done], 1 - jmp no_info -;-------------------------------------- -exit_draw: - cmp dword [show_info], 1 - jnz no_info -; снова размеры экрана - mov ebx, [screenx] - mov ecx, [screeny] -; сгенерить строчку с разрешением экрана. НЕ нужно, потому что ппц - ; прямоугольник 200х40 с инфой - mov edx, 200 - sub ebx, edx - shl ebx, 15 - mov bx, dx - mov edx, 40 - sub ecx, edx - shl ecx, 15 - mov cx, dx - mcall 13,,,0xffffff - - xor edx, edx - add ebx, 0x0000fffe ; очень удобно :)))) - add ecx, 0x0000fffe - mcall -; текст - shr ecx, 16 - mov bx, cx - add ebx, 0x00010001 - mov ecx, 0x80ffffff - mov edx, [test_num] - mov edx, [test_info + edx*4] - mcall 4 - - add ebx, 12 - mcall ,,,press_space - - add ebx, 8 - mcall ,,,press_i - - add ebx, 8 - mcall ,,,press_c -;-------------------------------------- -no_info: - mcall 12,2 - ret -;------------------------------------------------------------------------------ -; <---- procedures for various tests of display -----> -; in: ebx = screen_width, ecx = screen_height -;------------------------------------------------------------------------------ -lsz i_image_size,\ - ru, "Размер изображения и размещение",\ - en, "Image Size and Placement" -db 0 -;------------------------------------------------------------------------------ -t_image_size: - mov esi, ebx - mov edi, ecx -; 6 отрезков - xor ecx, ecx - mcall 38,,,0xffffff - - mov ecx, edi - shl ecx, 16 - xor ebx, ebx - mcall - - mov ebx, esi - shl ebx, 16 - add ecx, edi - mcall - - sub ecx, edi - add ebx, esi - mcall -; рамка готова - mov ebx, esi - shl ebx, 16 - mov ecx, edi - shl ecx, 15 - mov cx, di - shr cx, 1 - mcall - - shr ebx, 1 - mov bx, si - shr bx, 1 - mov ecx, edi - shl ecx, 16 - mcall - ret -;------------------------------------------------------------------------------ -lsz i_grid,\ - ru, "Сетка",\ - en, "Grid" -db 0 -;------------------------------------------------------------------------------ -t_grid: -; сетка размером в 64 пиксела - mov eax, 38 - inc ebx - inc ecx - mov esi, ebx - mov edi, ecx - mov edx, 0xffffff - mov ebp, 0x00400040 -; горизонтальные линии - shl ebx, 16 - xor ecx, ecx -;-------------------------------------- -grid_next_y: - mcall - - add ecx, ebp - cmp cx, di - jnae grid_next_y - sub ecx, 0x00010001 - mcall -; вертикальные линии - mov ecx, edi - shl ecx, 16 - xor ebx, ebx -;-------------------------------------- -grid_next_x: - mcall - add ebx, ebp - cmp bx, si - jnae grid_next_x - sub ebx, 0x00010001 - mcall - ret -;------------------------------------------------------------------------------ -lsz i_horstr,\ - ru, "Горизонтальные прямые линии",\ - en, "Horizontal Straightness" -db 0 -;------------------------------------------------------------------------------ -t_horstr: - mov eax, 38 - mov edi, ecx - mov edx, 0xffffff - mov esi, ecx - inc esi - shr esi, 3 - mov ebp, esi - shl ebp, 16 - mov bp, si -; горизонтальные линии - shl ebx, 16 - mov ecx, ebp - shr ecx, 1 - mov cx, bp - shr cx, 1 -;-------------------------------------- -hor_next_y: - mcall - add ecx, ebp - cmp cx, di - jnae hor_next_y - ret -;------------------------------------------------------------------------------ -lsz i_vertstr,\ - ru, "Вертикальные прямые линии",\ - en, "Vertical Straightness" -db 0 -;------------------------------------------------------------------------------ -t_vertstr: - mov eax, 38 - mov edx, 0xffffff - mov esi, ebx - shl ecx, 16 - mov edi, esi - shr edi, 3 - mov ebp, edi - shl ebp, 16 - mov bp, di - mov ebx, ebp - shr ebx, 1 - mov bx, bp - shr bx, 1 -;-------------------------------------- -vert_next_x: - mcall - add ebx, ebp - cmp bx, si - jnae vert_next_x - ret -;------------------------------------------------------------------------------ -lsz i_distort,\ - ru, "Проверка на искажения",\ - en, "Distortion", -db 0 -;------------------------------------------------------------------------------ -t_distort: - mov edx, 0xffffff - mov esi, ebx - mov edi, ecx - mov ebp, 3 - xor ebx, ebx -;-------------------------------------- -dist_next: - push ebp - mov ebp, ebx - shl ebx, 16 - or ebx, ebp - - mov ecx, edi - shl ecx, 16 - or ecx, ebp - mcall 38 - - mov ebx, esi - shl ebx, 16 - mov bx, si - mcall - - mov bx, bp - mov ecx, ebp - shl ecx, 16 - or ecx, ebp - mcall - - mov ecx, edi - shl ecx, 16 - mov cx, di - mcall - - mov eax, 30 - sub esi, eax - sub edi, eax - mov ebx, ebp - add ebx, eax - pop ebp - dec ebp - jnz dist_next - ret -;------------------------------------------------------------------------------ -lsz i_horres,\ - ru, "Разрешение по горизонтали",\ - en, "Horizontal Resolution", -db 0 -;------------------------------------------------------------------------------ -t_horres: - mov eax, 38 - mov edx, 0xffffff - mov edi, ecx - shl ecx, 16 - mov esi, ebx - xor ebx, ebx - mov edi, 0x003A003A - mov ebp, 0x00030003 -;-------------------------------------- -horres_next: - add ebx, edi - mcall - - add ebx, ebp - mcall - - add ebx, ebp - mcall - - add ebx, ebp - mcall - - add ebx, ebp - mcall - - cmp bx, si - jna horres_next - ret -;------------------------------------------------------------------------------ -lsz i_vertres,\ - ru, "Разрешение по вертикали",\ - en, "Vertical Resolution", -db 0 -;------------------------------------------------------------------------------ -t_vertres: - mov eax, 38 - mov edx, 0xffffff -; mov esi, ebx - shl ebx, 16 - mov edi, ecx - xor ecx, ecx - mov ebp, 0x00030003 - mov esi, 0x002A002A -;-------------------------------------- -vertres_next: - add ecx, esi - mcall - - add ecx, ebp - mcall - - add ecx, ebp - mcall - - add ecx, ebp - mcall - - add ecx, ebp - mcall - - add ecx, 0x00540054 - cmp cx, di - jna vertres_next - ret -;------------------------------------------------------------------------------ -lsz i_moire,\ - ru, "Шаблоны Муара",\ - en, "Moire Patterns", -db 0 -;------------------------------------------------------------------------------ -t_moire: - mov eax, 38 - mov edx, 0xffffff - mov edi, ecx - shl ecx, 16 - mov esi, ebx - xor ebx, ebx - mov ebp, 0x00030003 -;-------------------------------------- -moire_next: - mcall - add ebx, ebp - cmp bx, si - jna moire_next - ret -;------------------------------------------------------------------------------ -lsz i_revsharp,\ - ru, "Реверсивная резкость видео",\ - en, "Reverse Video Sharpness", -db 0 -;------------------------------------------------------------------------------ -t_revsharp: - mov esi, ebx - mov edi, ecx - shr ecx, 1 - mcall 13,,,0xffffff -; а теперь - инверсные линии - mov eax, 38 - mov ecx, edi - mov edx, 0x01000000 - xor ebx, ebx - mov ebp, 0x00010001 - mov edi, 0x003F003F -;-------------------------------------- -revsharp_next: - add ebx, edi - mcall - - add ebx, ebp - mcall - - add ebx, ebp - mcall - - add ebx, edi - sub ebx, ebp - mcall - - cmp bx, si - jna revsharp_next - ret -;------------------------------------------------------------------------------ -lsz i_flicker,\ - ru, "Уровень мерцания",\ - en, "Flicker Severity", -db 0 -;------------------------------------------------------------------------------ -t_flicker: - mcall 13,,,0xffffff - ret -;------------------------------------------------------------------------------ -lsz i_glare,\ - ru, "Уровень бликов подсветки",\ - en, "Glare Severity", -db 0 -;------------------------------------------------------------------------------ -t_glare: ; оптимизировать нечего - ret -;------------------------------------------------------------------------------ -lsz i_interlace,\ - ru, "Обнаружение интерлейсинга",\ - en, "Interlacing Detection", -db 0 -;------------------------------------------------------------------------------ -t_interlace: - mov edi, ecx - mov eax, 38 - mov edx, 0xffffff - xor ecx, ecx - mov ebp, 0x00020002 -;-------------------------------------- -interlace_next: - add ecx, ebp - mcall - cmp cx, di - jna interlace_next - ret -;------------------------------------------------------------------------------ -lsz i_scrreg,\ - ru, "Регулировка экрана",\ - en, "Screen Regulation", -db 0 -;------------------------------------------------------------------------------ -t_scrreg: - add ebx, 0x0018FFCD ; +25 к началу и -50 от длины - shr ecx, 1 - add ecx, 0x0013FFEC ; +19 к началу и -19 от длины - mcall 13,,,0xffffff - ret -;------------------------------------------------------------------------------ -lsz i_pricol,\ - ru, "Чистота основных цветов",\ - en, "Primary Color Purity", -db 0 -;------------------------------------------------------------------------------ -t_pricol: - mov esi, ebx - mov edi, ecx - - shr ebx, 4 ; /16 - mov ebp, ebx - shl ebx, 16 - mov bx, bp - shl ebp, 16 - lea ebp, [ebp + ebp * 4] ; ebp *= 5 - - mov ecx, 0x00280000 - mov cx, di - sub cx, 80 - ;shr cx, 1 - - shl bx, 2 - mcall 13,,,0xff0000 - - add ebx, ebp - shr edx, 8 - mcall - - add ebx, ebp - shr edx, 8 - mcall - ret -;------------------------------------------------------------------------------ -lsz i_colint,\ - ru, "Градиент интенсивности цвета",\ - en, "Color Intensity Gradient", -db 0 -;------------------------------------------------------------------------------ -t_colint: - - mov esi, ebx - mov edi, ecx - -; mov eax, ecx -; shr ecx, 2 ; end y coord -; and ecx, 0xffffff80 ; это not 7F -; shr eax, 7 ; / 128 -; mov ebp, eax -; mov edx, eax -; lea eax, [eax + eax * 2] ; eax *= 5 -; shl ebp, 4 -; add eax, ebp - -; shl eax, 16 -; add ecx, eax -; mov edx, ebp -; shl ebp, 16 -; mov bp, dx ; йа больной - - ; я не понял, что там делалось, и решил написать снова о_О - - ; надо здесь сгенерить ecx (начальный сдвиг) и ebp (шаг по у) - - mov eax, edi - lea eax, [eax + 2 * eax] - shr eax, 5 ; eax = 3/32 высоты - mov ebp, eax - shl ebp, 16 - mov bp, ax ; ebp = ax в обоих словах - - mov ebx, eax ; сохраним это значение - - mov eax, edi - inc eax - shr eax, 4 ; 3/16 высоты - начальное значение - ; всего полосы займут 3/4 высоты, итого по 3/32 высоты на полосу (для ровного счета) - lea eax, [eax + eax * 2] - mov ecx, eax - shl ecx, 16 - shr ebx, 2 - lea ebx, [ebx + ebx * 2] ; ebx = 3/4 ebx, т.е. 3/4 высоты полосы - add eax, ebx - mov cx, ax - - xor edx, edx - mov eax, 0xffff - div esi - mov edi, eax ; edi = 64K/width - - mov dword [color_index], 0 - jmp colint_next -;------------------------------------------------------------------------------ -color_table dd 0x00ff0000, 0x0000ff00, 0x00ffff00, \ - 0x000000ff, 0x00ff00ff, 0x0000ffff, 0x00ffffff -color_index dd 0 -;------------------------------------------------------------------------------ -colint_next: - xor edx, edx - xor ebx, ebx - mov eax, 38 -;-------------------------------------- -colint_next_line: - push edx - push eax - movzx eax, dh - shl eax, 16 - mov dl, dh - or edx, eax - mov eax, [color_index] - mov eax, [color_table + eax * 4] - and edx, eax - pop eax - mcall - pop edx - add ebx, 0x00010001 - add edx, edi - cmp bx, si - jna colint_next_line - - add ecx, ebp - inc dword [color_index] - cmp dword [color_index], 7 - jb colint_next - ret -;------------------------------------------------------------------------------ -lsz i_colalign,\ - ru, "Цветовое выравнивание",\ - en, "Color Alignment Grid", -db 0 -;------------------------------------------------------------------------------ -t_colalign: -; красная сетка - inc ebx ; так нужно - inc ecx - mov esi, ebx - mov edi, ecx - mov edx, 0xff0000 -; горизонтальные линии - shl ebx, 16 - xor ecx, ecx - push edi - shr edi, 3 - mov ebp, edi - shl ebp, 16 - mov bp, di - pop edi - mov [yshift], ebp - mov eax, 38 -;-------------------------------------- -cgrid_next_y: - mcall - add ecx, ebp - cmp cx, di - jnae cgrid_next_y - ; последняя линия: - sub ecx, 0x00010001 - mcall - -; вертикальные линии - mov ecx, edi - shl ecx, 16 - xor ebx, ebx - push esi - shr esi, 3 - mov ebp, esi - shl ebp, 16 - mov bp, si - mov [xshift], ebp - pop esi - mov eax, 38 -;-------------------------------------- -cgrid_next_x: - mcall - add ebx, ebp - cmp bx, si - jnae cgrid_next_x - ; последняя линия - sub ebx, 0x00010001 - mcall - jmp cgrid_green -;------------------------------------------------------------------------------ - xshift dd 0 - yshift dd 0 - shift dd 0 -;------------------------------------------------------------------------------ -cgrid_green: -; зеленые линии: горизонтальные - mov edx, esi - shr edx, 5 - lea eax, [edx + edx * 2] - shl edx, 16 - or edx, eax - mov [shift], edx - mov eax, 38 - mov edx, 0x00ff00 - xor ecx, ecx - mov ebp, [xshift] -;-------------------------------------- -ggrid_next_yy: - mov ebx, [shift] -;-------------------------------------- -ggrid_next_yx: - mcall - add ebx, ebp - cmp bx, si - jnae ggrid_next_yx - sub ebx, 0x00010001 - mcall - - add ecx, [yshift] - cmp cx, di - jnae ggrid_next_yy - ; last row of lines - mov ebx, [shift] - dec ecx -;-------------------------------------- -ggrid_last_yx: - mcall - add ebx, ebp - cmp bx, si - jnae ggrid_last_yx - -; и вертикальные - mov edx, edi - shr edx, 5 - lea eax, [edx + edx * 2] - shl edx, 16 - or edx, eax - mov [shift], edx - - mov eax, 38 - mov edx, 0x00ff00 - mov ecx, [shift] - mov ebp, [xshift] -;-------------------------------------- -ggrid_next_xy: - xor ebx, ebx -;-------------------------------------- -ggrid_next_xx: - mcall - - add ebx, ebp - cmp bx, si - jnae ggrid_next_xx - sub ebx, 0x00010001 - mcall - - add ecx, [yshift] - cmp cx, di - jnae ggrid_next_xy - xor ebx, ebx - dec ecx -;-------------------------------------- -ggrid_last_xy: - ;int 0x40 - ;add ebx, ebp - ;cmp bx, si - ;jnae ggrid_last_xy - ret -;------------------------------------------------------------------------------ -lsz i_colsyn,\ - ru, "Синхронизация цвета",\ - en, "Color Synchronization", -db 0 -;------------------------------------------------------------------------------ -t_colsyn: - inc ebx - inc ecx - mov esi, ebx - mov edi, ecx - - shr ebx, 5 - mov eax, ebx - lea ebx, [ebx + ebx * 4] - shl ebx, 1 ; 10/32 - mov ebp, ebx - shl eax, 16 - or ebx, eax - shl ebp, 16 - - mov edi, 0x0000ffff - add ecx, 0x003FFF7F - mov edx, edi - mcall 13 - - mov edx, 0x00ff0000 - add ebx, ebp - mcall - - mov edx, edi - add ebx, ebp - mcall - ret -;------------------------------------------------------------------------------ -; <--- initialised data ---> -DATA - screenx dd 0 - screeny dd 0 - - test_num dd 0 - test_done dd 0 - show_info dd 1 - test_proc dd t_image_size, t_grid, t_horstr, t_vertstr,\ - t_distort, t_horres, t_vertres, t_moire, t_revsharp, \ - t_flicker, t_glare, t_interlace, t_scrreg, t_pricol, \ - t_colint, t_colalign, t_colsyn, 0 - test_info dd i_image_size, i_grid, i_horstr, i_vertstr, \ - i_distort, i_horres, i_vertres, i_moire, i_revsharp, \ - i_flicker, i_glare, i_interlace, i_scrreg, i_pricol, \ - i_colint, i_colalign, i_colsyn, 0 - - lsz press_space,\ - ru, "Нажмите пробел для продолжения,",\ - en, "Press 'Space' key to continue", - db 0 - - lsz press_i,\ - ru, "I для переключения сведений,",\ - en, "I to turn details on and off ", - db 0 - - lsz press_c,\ - ru, "и C для переключения курсора",\ - en, "and C to show and hide cursor", - db 0 - - lsz header,\ - ru, "Тест монитора",\ - en, "Display test", - db 0 - - lsz test_finish,\ - ru, "Конец теста. Нажмите ESC.",\ - en, "Test has been finished. Press ESC.", - db 0 - - cursor dd 32*32 dup(0x00000000) ; все равно сожмется - - cursorVisible dd 1 - cursorID dd 0 -;------------------------------------------------------------------------------ -; <--- uninitialised data ---> -UDATA -;------------------------------------------------------------------------------ -MEOS_APP_END -; <--- end of MenuetOS application ---> -;------------------------------------------------------------------------------ +;------------------------------------------------------------------------------ +; Display Test for KolibriOS +;------------------------------------------------------------------------------ +; version: 0.41 +; last update: 17/03/2012 +; written by: Marat Zakiyanov aka Mario79, aka Mario +; changes: some optimisations and code refactoring +;------------------------------------------------------------------------------ +; compiler: FASM 1.50 +; name: Display Test +; version: 0.4 +; original author: barsuk + +; <--- include all MeOS stuff ---> +include "lang.inc" ; Language support for locales: ru_RU, en_US. +include "../../../macros.inc" + +; <--- start of MenuetOS application ---> +MEOS_APP_START + +;include "..\..\..\debug.inc" + + +; <--- start of code ---> +CODE + mcall 37,4,cursor,2 + or eax, eax + jz exit + mov [cursorID], eax +;------------------------------------------------------------------------------ +redraw: + call draw_window ; at first create and draw the window +;------------------------------------------------------------------------------ +wait_event: ; main cycle + xor ebx, ebx + mcall 10 + + cmp eax, 1 ; if event == 1 + je redraw ; jump to redraw handler + cmp eax, 2 ; else if event == 2 + je key ; jump to key handler + cmp eax, 3 ; else if event == 3 + je button ; jump to button handler + + jmp wait_event ; else return to the start of main cycle +;------------------------------------------------------------------------------ +key: ; key event handler + mcall 2 ; get key code + + cmp ah, 27 + jz exit + + cmp ah, 0x20 + jz next_test + + cmp ah, 179 ; -> + jz next_test + + cmp ah, 176 ; <- + jz prev_test + + cmp ah, 'i' + jz toggle_info + + cmp ah, 'I' ; а вдруг у чела КАПСЛОК )) + jz toggle_info + + cmp ah, 'c' + jz toggle_cursor + + cmp ah, 'C' + jz toggle_cursor + + cmp ah, 'd' + jz redraw + + cmp ah, 'D' + jz redraw + + jmp wait_event +;------------------------------------------------------------------------------ +next_test: + cmp dword [test_done], 1 + jz wait_event + + inc dword [test_num] + call draw_window + jmp wait_event +;------------------------------------------------------------------------------ +prev_test: + cmp dword [test_num], ebx + jz wait_event + + dec dword [test_num] + mov dword [test_done], ebx + call draw_window + jmp wait_event +;------------------------------------------------------------------------------ +toggle_info: + xor dword [show_info], 1 + call draw_window + jmp wait_event +;------------------------------------------------------------------------------ +toggle_cursor: + mov eax, cursorVisible + cmp dword [eax], 0 + jz .no_cursor + + mov dword [eax], 0 + mov ecx, [cursorID] + jmp .set +;-------------------------------------- +.no_cursor: + mov dword [eax], 1 + xor ecx, ecx +;-------------------------------------- +.set: + mcall 37,5 + mcall 18,15 ; чтобы обновился + jmp wait_event +;------------------------------------------------------------------------------ +button: ; button event handler + mcall 17 ; get button identifier + cmp ah, 1 + jne wait_event ; return if button id != 1 +;-------------------------------------- +exit: + or eax, -1 ; exit application + mcall +;------------------------------------------------------------------------------ +draw_window: + mcall 12,1 + + ; курсор + ;mov eax, 37 + ;mov ebx, 5 + ;mov ecx, cursorID + ;int 0x40 + + mcall 14 ; screen size + + mov ebx, eax + shr ebx, 16 + mov ecx, eax + and ecx, 0xffff + mov [screenx], ebx + mov [screeny], ecx + + inc ebx + inc ecx + xor eax, eax ; create and draw the window + mov edx, 0x01000000 + mov esi, edx + mcall + ; стереть границы окна + xor edx, edx + mcall 13 ; грубо так + + dec ebx + dec ecx + + mov eax, [test_num] + mov eax, [test_proc + eax*4] + or eax, eax + jz end_of_test + call eax + jmp exit_draw +;-------------------------------------- +end_of_test: + mcall 4,<8,8>,0xffffff,test_finish,test_finish.size + mov dword [test_done], 1 + jmp no_info +;-------------------------------------- +exit_draw: + cmp dword [show_info], 1 + jnz no_info +; снова размеры экрана + mov ebx, [screenx] + mov ecx, [screeny] +; сгенерить строчку с разрешением экрана. НЕ нужно, потому что ппц + ; прямоугольник 200х40 с инфой + mov edx, 200 + sub ebx, edx + shl ebx, 15 + mov bx, dx + mov edx, 40 + sub ecx, edx + shl ecx, 15 + mov cx, dx + mcall 13,,,0xffffff + + xor edx, edx + add ebx, 0x0000fffe ; очень удобно :)))) + add ecx, 0x0000fffe + mcall +; текст + shr ecx, 16 + mov bx, cx + add ebx, 0x00010001 + mov ecx, 0x80ffffff + mov edx, [test_num] + mov edx, [test_info + edx*4] + mcall 4 + + add ebx, 12 + mcall ,,,press_space + + add ebx, 8 + mcall ,,,press_i + + add ebx, 8 + mcall ,,,press_c +;-------------------------------------- +no_info: + mcall 12,2 + ret +;------------------------------------------------------------------------------ +; <---- procedures for various tests of display -----> +; in: ebx = screen_width, ecx = screen_height +;------------------------------------------------------------------------------ +lsz i_image_size,\ + ru_RU, "Размер изображения и размещение",\ + en_US, "Image Size and Placement" +db 0 +;------------------------------------------------------------------------------ +t_image_size: + mov esi, ebx + mov edi, ecx +; 6 отрезков + xor ecx, ecx + mcall 38,,,0xffffff + + mov ecx, edi + shl ecx, 16 + xor ebx, ebx + mcall + + mov ebx, esi + shl ebx, 16 + add ecx, edi + mcall + + sub ecx, edi + add ebx, esi + mcall +; рамка готова + mov ebx, esi + shl ebx, 16 + mov ecx, edi + shl ecx, 15 + mov cx, di + shr cx, 1 + mcall + + shr ebx, 1 + mov bx, si + shr bx, 1 + mov ecx, edi + shl ecx, 16 + mcall + ret +;------------------------------------------------------------------------------ +lsz i_grid,\ + ru_RU, "Сетка",\ + en_US, "Grid" +db 0 +;------------------------------------------------------------------------------ +t_grid: +; сетка размером в 64 пиксела + mov eax, 38 + inc ebx + inc ecx + mov esi, ebx + mov edi, ecx + mov edx, 0xffffff + mov ebp, 0x00400040 +; горизонтальные линии + shl ebx, 16 + xor ecx, ecx +;-------------------------------------- +grid_next_y: + mcall + + add ecx, ebp + cmp cx, di + jnae grid_next_y + sub ecx, 0x00010001 + mcall +; вертикальные линии + mov ecx, edi + shl ecx, 16 + xor ebx, ebx +;-------------------------------------- +grid_next_x: + mcall + add ebx, ebp + cmp bx, si + jnae grid_next_x + sub ebx, 0x00010001 + mcall + ret +;------------------------------------------------------------------------------ +lsz i_horstr,\ + ru_RU, "Горизонтальные прямые линии",\ + en_US, "Horizontal Straightness" +db 0 +;------------------------------------------------------------------------------ +t_horstr: + mov eax, 38 + mov edi, ecx + mov edx, 0xffffff + mov esi, ecx + inc esi + shr esi, 3 + mov ebp, esi + shl ebp, 16 + mov bp, si +; горизонтальные линии + shl ebx, 16 + mov ecx, ebp + shr ecx, 1 + mov cx, bp + shr cx, 1 +;-------------------------------------- +hor_next_y: + mcall + add ecx, ebp + cmp cx, di + jnae hor_next_y + ret +;------------------------------------------------------------------------------ +lsz i_vertstr,\ + ru_RU, "Вертикальные прямые линии",\ + en_US, "Vertical Straightness" +db 0 +;------------------------------------------------------------------------------ +t_vertstr: + mov eax, 38 + mov edx, 0xffffff + mov esi, ebx + shl ecx, 16 + mov edi, esi + shr edi, 3 + mov ebp, edi + shl ebp, 16 + mov bp, di + mov ebx, ebp + shr ebx, 1 + mov bx, bp + shr bx, 1 +;-------------------------------------- +vert_next_x: + mcall + add ebx, ebp + cmp bx, si + jnae vert_next_x + ret +;------------------------------------------------------------------------------ +lsz i_distort,\ + ru_RU, "Проверка на искажения",\ + en_US, "Distortion", +db 0 +;------------------------------------------------------------------------------ +t_distort: + mov edx, 0xffffff + mov esi, ebx + mov edi, ecx + mov ebp, 3 + xor ebx, ebx +;-------------------------------------- +dist_next: + push ebp + mov ebp, ebx + shl ebx, 16 + or ebx, ebp + + mov ecx, edi + shl ecx, 16 + or ecx, ebp + mcall 38 + + mov ebx, esi + shl ebx, 16 + mov bx, si + mcall + + mov bx, bp + mov ecx, ebp + shl ecx, 16 + or ecx, ebp + mcall + + mov ecx, edi + shl ecx, 16 + mov cx, di + mcall + + mov eax, 30 + sub esi, eax + sub edi, eax + mov ebx, ebp + add ebx, eax + pop ebp + dec ebp + jnz dist_next + ret +;------------------------------------------------------------------------------ +lsz i_horres,\ + ru_RU, "Разрешение по горизонтали",\ + en_US, "Horizontal Resolution", +db 0 +;------------------------------------------------------------------------------ +t_horres: + mov eax, 38 + mov edx, 0xffffff + mov edi, ecx + shl ecx, 16 + mov esi, ebx + xor ebx, ebx + mov edi, 0x003A003A + mov ebp, 0x00030003 +;-------------------------------------- +horres_next: + add ebx, edi + mcall + + add ebx, ebp + mcall + + add ebx, ebp + mcall + + add ebx, ebp + mcall + + add ebx, ebp + mcall + + cmp bx, si + jna horres_next + ret +;------------------------------------------------------------------------------ +lsz i_vertres,\ + ru_RU, "Разрешение по вертикали",\ + en_US, "Vertical Resolution", +db 0 +;------------------------------------------------------------------------------ +t_vertres: + mov eax, 38 + mov edx, 0xffffff +; mov esi, ebx + shl ebx, 16 + mov edi, ecx + xor ecx, ecx + mov ebp, 0x00030003 + mov esi, 0x002A002A +;-------------------------------------- +vertres_next: + add ecx, esi + mcall + + add ecx, ebp + mcall + + add ecx, ebp + mcall + + add ecx, ebp + mcall + + add ecx, ebp + mcall + + add ecx, 0x00540054 + cmp cx, di + jna vertres_next + ret +;------------------------------------------------------------------------------ +lsz i_moire,\ + ru_RU, "Шаблоны Муара",\ + en_US, "Moire Patterns", +db 0 +;------------------------------------------------------------------------------ +t_moire: + mov eax, 38 + mov edx, 0xffffff + mov edi, ecx + shl ecx, 16 + mov esi, ebx + xor ebx, ebx + mov ebp, 0x00030003 +;-------------------------------------- +moire_next: + mcall + add ebx, ebp + cmp bx, si + jna moire_next + ret +;------------------------------------------------------------------------------ +lsz i_revsharp,\ + ru_RU, "Реверсивная резкость видео",\ + en_US, "Reverse Video Sharpness", +db 0 +;------------------------------------------------------------------------------ +t_revsharp: + mov esi, ebx + mov edi, ecx + shr ecx, 1 + mcall 13,,,0xffffff +; а теперь - инверсные линии + mov eax, 38 + mov ecx, edi + mov edx, 0x01000000 + xor ebx, ebx + mov ebp, 0x00010001 + mov edi, 0x003F003F +;-------------------------------------- +revsharp_next: + add ebx, edi + mcall + + add ebx, ebp + mcall + + add ebx, ebp + mcall + + add ebx, edi + sub ebx, ebp + mcall + + cmp bx, si + jna revsharp_next + ret +;------------------------------------------------------------------------------ +lsz i_flicker,\ + ru_RU, "Уровень мерцания",\ + en_US, "Flicker Severity", +db 0 +;------------------------------------------------------------------------------ +t_flicker: + mcall 13,,,0xffffff + ret +;------------------------------------------------------------------------------ +lsz i_glare,\ + ru_RU, "Уровень бликов подсветки",\ + en_US, "Glare Severity", +db 0 +;------------------------------------------------------------------------------ +t_glare: ; оптимизировать нечего + ret +;------------------------------------------------------------------------------ +lsz i_interlace,\ + ru_RU, "Обнаружение интерлейсинга",\ + en_US, "Interlacing Detection", +db 0 +;------------------------------------------------------------------------------ +t_interlace: + mov edi, ecx + mov eax, 38 + mov edx, 0xffffff + xor ecx, ecx + mov ebp, 0x00020002 +;-------------------------------------- +interlace_next: + add ecx, ebp + mcall + cmp cx, di + jna interlace_next + ret +;------------------------------------------------------------------------------ +lsz i_scrreg,\ + ru_RU, "Регулировка экрана",\ + en_US, "Screen Regulation", +db 0 +;------------------------------------------------------------------------------ +t_scrreg: + add ebx, 0x0018FFCD ; +25 к началу и -50 от длины + shr ecx, 1 + add ecx, 0x0013FFEC ; +19 к началу и -19 от длины + mcall 13,,,0xffffff + ret +;------------------------------------------------------------------------------ +lsz i_pricol,\ + ru_RU, "Чистота основных цветов",\ + en_US, "Primary Color Purity", +db 0 +;------------------------------------------------------------------------------ +t_pricol: + mov esi, ebx + mov edi, ecx + + shr ebx, 4 ; /16 + mov ebp, ebx + shl ebx, 16 + mov bx, bp + shl ebp, 16 + lea ebp, [ebp + ebp * 4] ; ebp *= 5 + + mov ecx, 0x00280000 + mov cx, di + sub cx, 80 + ;shr cx, 1 + + shl bx, 2 + mcall 13,,,0xff0000 + + add ebx, ebp + shr edx, 8 + mcall + + add ebx, ebp + shr edx, 8 + mcall + ret +;------------------------------------------------------------------------------ +lsz i_colint,\ + ru_RU, "Градиент интенсивности цвета",\ + en_US, "Color Intensity Gradient", +db 0 +;------------------------------------------------------------------------------ +t_colint: + + mov esi, ebx + mov edi, ecx + +; mov eax, ecx +; shr ecx, 2 ; end y coord +; and ecx, 0xffffff80 ; это not 7F +; shr eax, 7 ; / 128 +; mov ebp, eax +; mov edx, eax +; lea eax, [eax + eax * 2] ; eax *= 5 +; shl ebp, 4 +; add eax, ebp + +; shl eax, 16 +; add ecx, eax +; mov edx, ebp +; shl ebp, 16 +; mov bp, dx ; йа больной + + ; я не понял, что там делалось, и решил написать снова о_О + + ; надо здесь сгенерить ecx (начальный сдвиг) и ebp (шаг по у) + + mov eax, edi + lea eax, [eax + 2 * eax] + shr eax, 5 ; eax = 3/32 высоты + mov ebp, eax + shl ebp, 16 + mov bp, ax ; ebp = ax в обоих словах + + mov ebx, eax ; сохраним это значение + + mov eax, edi + inc eax + shr eax, 4 ; 3/16 высоты - начальное значение + ; всего полосы займут 3/4 высоты, итого по 3/32 высоты на полосу (для ровного счета) + lea eax, [eax + eax * 2] + mov ecx, eax + shl ecx, 16 + shr ebx, 2 + lea ebx, [ebx + ebx * 2] ; ebx = 3/4 ebx, т.е. 3/4 высоты полосы + add eax, ebx + mov cx, ax + + xor edx, edx + mov eax, 0xffff + div esi + mov edi, eax ; edi = 64K/width + + mov dword [color_index], 0 + jmp colint_next +;------------------------------------------------------------------------------ +color_table dd 0x00ff0000, 0x0000ff00, 0x00ffff00, \ + 0x000000ff, 0x00ff00ff, 0x0000ffff, 0x00ffffff +color_index dd 0 +;------------------------------------------------------------------------------ +colint_next: + xor edx, edx + xor ebx, ebx + mov eax, 38 +;-------------------------------------- +colint_next_line: + push edx + push eax + movzx eax, dh + shl eax, 16 + mov dl, dh + or edx, eax + mov eax, [color_index] + mov eax, [color_table + eax * 4] + and edx, eax + pop eax + mcall + pop edx + add ebx, 0x00010001 + add edx, edi + cmp bx, si + jna colint_next_line + + add ecx, ebp + inc dword [color_index] + cmp dword [color_index], 7 + jb colint_next + ret +;------------------------------------------------------------------------------ +lsz i_colalign,\ + ru_RU, "Цветовое выравнивание",\ + en_US, "Color Alignment Grid", +db 0 +;------------------------------------------------------------------------------ +t_colalign: +; красная сетка + inc ebx ; так нужно + inc ecx + mov esi, ebx + mov edi, ecx + mov edx, 0xff0000 +; горизонтальные линии + shl ebx, 16 + xor ecx, ecx + push edi + shr edi, 3 + mov ebp, edi + shl ebp, 16 + mov bp, di + pop edi + mov [yshift], ebp + mov eax, 38 +;-------------------------------------- +cgrid_next_y: + mcall + add ecx, ebp + cmp cx, di + jnae cgrid_next_y + ; последняя линия: + sub ecx, 0x00010001 + mcall + +; вертикальные линии + mov ecx, edi + shl ecx, 16 + xor ebx, ebx + push esi + shr esi, 3 + mov ebp, esi + shl ebp, 16 + mov bp, si + mov [xshift], ebp + pop esi + mov eax, 38 +;-------------------------------------- +cgrid_next_x: + mcall + add ebx, ebp + cmp bx, si + jnae cgrid_next_x + ; последняя линия + sub ebx, 0x00010001 + mcall + jmp cgrid_green +;------------------------------------------------------------------------------ + xshift dd 0 + yshift dd 0 + shift dd 0 +;------------------------------------------------------------------------------ +cgrid_green: +; зеленые линии: горизонтальные + mov edx, esi + shr edx, 5 + lea eax, [edx + edx * 2] + shl edx, 16 + or edx, eax + mov [shift], edx + mov eax, 38 + mov edx, 0x00ff00 + xor ecx, ecx + mov ebp, [xshift] +;-------------------------------------- +ggrid_next_yy: + mov ebx, [shift] +;-------------------------------------- +ggrid_next_yx: + mcall + add ebx, ebp + cmp bx, si + jnae ggrid_next_yx + sub ebx, 0x00010001 + mcall + + add ecx, [yshift] + cmp cx, di + jnae ggrid_next_yy + ; last row of lines + mov ebx, [shift] + dec ecx +;-------------------------------------- +ggrid_last_yx: + mcall + add ebx, ebp + cmp bx, si + jnae ggrid_last_yx + +; и вертикальные + mov edx, edi + shr edx, 5 + lea eax, [edx + edx * 2] + shl edx, 16 + or edx, eax + mov [shift], edx + + mov eax, 38 + mov edx, 0x00ff00 + mov ecx, [shift] + mov ebp, [xshift] +;-------------------------------------- +ggrid_next_xy: + xor ebx, ebx +;-------------------------------------- +ggrid_next_xx: + mcall + + add ebx, ebp + cmp bx, si + jnae ggrid_next_xx + sub ebx, 0x00010001 + mcall + + add ecx, [yshift] + cmp cx, di + jnae ggrid_next_xy + xor ebx, ebx + dec ecx +;-------------------------------------- +ggrid_last_xy: + ;int 0x40 + ;add ebx, ebp + ;cmp bx, si + ;jnae ggrid_last_xy + ret +;------------------------------------------------------------------------------ +lsz i_colsyn,\ + ru_RU, "Синхронизация цвета",\ + en_US, "Color Synchronization", +db 0 +;------------------------------------------------------------------------------ +t_colsyn: + inc ebx + inc ecx + mov esi, ebx + mov edi, ecx + + shr ebx, 5 + mov eax, ebx + lea ebx, [ebx + ebx * 4] + shl ebx, 1 ; 10/32 + mov ebp, ebx + shl eax, 16 + or ebx, eax + shl ebp, 16 + + mov edi, 0x0000ffff + add ecx, 0x003FFF7F + mov edx, edi + mcall 13 + + mov edx, 0x00ff0000 + add ebx, ebp + mcall + + mov edx, edi + add ebx, ebp + mcall + ret +;------------------------------------------------------------------------------ +; <--- initialised data ---> +DATA + screenx dd 0 + screeny dd 0 + + test_num dd 0 + test_done dd 0 + show_info dd 1 + test_proc dd t_image_size, t_grid, t_horstr, t_vertstr,\ + t_distort, t_horres, t_vertres, t_moire, t_revsharp, \ + t_flicker, t_glare, t_interlace, t_scrreg, t_pricol, \ + t_colint, t_colalign, t_colsyn, 0 + test_info dd i_image_size, i_grid, i_horstr, i_vertstr, \ + i_distort, i_horres, i_vertres, i_moire, i_revsharp, \ + i_flicker, i_glare, i_interlace, i_scrreg, i_pricol, \ + i_colint, i_colalign, i_colsyn, 0 + + lsz press_space,\ + ru_RU, "Нажмите пробел для продолжения,",\ + en_US, "Press 'Space' key to continue", + db 0 + + lsz press_i,\ + ru_RU, "I для переключения сведений,",\ + en_US, "I to turn details on and off ", + db 0 + + lsz press_c,\ + ru_RU, "и C для переключения курсора",\ + en_US, "and C to show and hide cursor", + db 0 + + lsz header,\ + ru_RU, "Тест монитора",\ + en_US, "Display test", + db 0 + + lsz test_finish,\ + ru_RU, "Конец теста. Нажмите ESC.",\ + en_US, "Test has finished. Press ESC.", + db 0 + + cursor dd 32*32 dup(0x00000000) ; все равно сожмется + + cursorVisible dd 1 + cursorID dd 0 +;------------------------------------------------------------------------------ +; <--- uninitialised data ---> +UDATA +;------------------------------------------------------------------------------ +MEOS_APP_END +; <--- end of MenuetOS application ---> +;------------------------------------------------------------------------------ diff --git a/programs/testing/fspeed/idata.inc b/programs/testing/fspeed/idata.inc index d296fcbe0a..e5c43025d5 100644 --- a/programs/testing/fspeed/idata.inc +++ b/programs/testing/fspeed/idata.inc @@ -1,301 +1,303 @@ -;----------------------------------------------------------------------------- -s_text: -if lang eq ru_RU - db 'Выбор файла',0 -else - db 'Select file',0 -end if -;----------------------------------------------------------------------------- -r_text: -if lang eq ru_RU - db 'Пуск',0 -else - db 'Start',0 -end if -;----------------------------------------------------------------------------- -result_table_text: -if lang eq ru_RU - db 'Размер Чтение (КБ/с) Запись (КБ/с)',0 -else - db 'Size Read (KB/s) Write (KB/s)',0 -end if -;----------------------------------------------------------------------------- -title db 'File Speed v0.3',0 -;----------------------------------------------------------------------------- -include_debug_strings -;----------------------------------------------------------------------------- -l_libs_start: - -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 - -end_l_libs: -;----------------------------------------------------------------------------- -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 -OpenDialog_Start dd aOpenDialog_Start -;OpenDialog_Version dd aOpenDialog_Version - -;ColorDialog_Init dd aColorDialog_Init -;ColorDialog_Start dd aColorDialog_Start -;ColorDialog_Version dd aColorDialog_Version - - dd 0 - dd 0 - -aOpenDialog_Init db 'OpenDialog_init',0 -aOpenDialog_Start db 'OpenDialog_start',0 -;aOpenDialog_Version db 'Version_OpenDialog',0 - -;aColorDialog_Init db 'ColorDialog_init',0 -;aColorDialog_Start db 'ColorDialog_start',0 -;aColorDialog_Version db 'Version_ColorDialog',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 - -init_checkbox dd aInit_checkbox -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 - -;Frame_draw dd sz_Frame_draw -;Version_frame dd szVersion_frame - - dd 0,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_mouse db 'edit_box_mouse',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 -;aVersion_ch db 'version_ch2',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 - -;sz_Frame_draw db 'frame_draw',0 -;szVersion_frame db 'version_frame',0 -;----------------------------------------------------------------------------- -PathShow_data: -.type dd 0 ;+0 -.start_y dw 5+4 ;+4 -.start_x dw 5+5 ;+6 -.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 -.area_size_x dw 400-30 ;+10 -.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable -.background_flag dd 0 ;+16 -.font_color dd 0x0 ;+20 -.background_color dd 0x0 ;+24 -.text_pointer dd fname ;+28 -.work_area_pointer dd text_work_area ;+32 -.temp_text_length dd 0 ;+36 -;----------------------------------------------------------------------------- -check1 check_box2 (100 shl 16)+12,(27 shl 16)+12,6,0xFFFFFF,0,0xffffff,\ - check_text1,ch_flag_middle - -check_text1: -if lang eq ru_RU - db 'Тестировать запись',0 -else - db 'Use testing of write',0 -end if - -check_box_warning_text: -if lang eq ru_RU - db 'ВНИМАНИЕ! Проверка скорости записи уничтожает содержимое файла!',0 -else - db 'WARNING! Testing of write speed is destroy contents of file!',0 -end if -;----------------------------------------------------------------------------- -OpenDialog_data: -.type dd 0 -.procinfo dd process_info ;+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 ;+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_dialog2',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 '/sys',0 - -Filter: -dd Filter.end - Filter.1 -.1: -;db 'BIN',0 -;db 'DAT',0 -.end: -db 0 - -start_temp_file_name: - db 'default.dtp',0 - -default_dtp: - db '/sys/default.dtp',0 -;----------------------------------------------------------------------------- -sector equ 512 -;-------------------------------------- -result_table: - dd a512b, 0, 0, sector*1 - dd a1K, 1, 1, sector*2 - dd a2K, 2, 2, sector*4 - dd a4K, 3, 3, sector*8 - dd a8K, 4, 4, sector*16 - dd a16K, 5, 5, sector*32 - dd a32K, 6, 6, sector*64 - dd a64K, 7, 7, sector*128 - dd a128K, 8, 8, sector*256 - dd a256K, 9, 9, sector*512 - dd a512K, 10, 10, sector*1024 - dd a1M, 11, 11, sector*2*1024 - dd a2M, 12, 12, sector*4*1024 - dd a4M, 13, 13, sector*8*1024 - dd a8M, 14, 14, sector*16*1024 - dd a16M, 15, 15, sector*32*1024 - dd a32M, 16, 16, sector*64*1024 - dd a64M, 17, 17, sector*128*1024 -;----------------------------------------------------------------------------- -a512b db ' 512',0 -a1K db ' 1K',0 -a2K db ' 2K',0 -a4K db ' 4K',0 -a8K db ' 8K',0 -a16K db ' 16K',0 -a32K db ' 32K',0 -a64K db ' 64K',0 -a128K db '128K',0 -a256K db '256K',0 -a512K db '512K',0 -a1M db ' 1M',0 -a2M db ' 2M',0 -a4M db ' 4M',0 -a8M db ' 8M',0 -a16M db ' 16M',0 -a32M db ' 32M',0 -a64M db ' 64M',0 -;----------------------------------------------------------------------------- -align 4 -fileinfo: -.subfunction dd 5 -.offset dd 0 -.offset_1 dd 0 -.size dd 0 -.return dd file_info - db 0 -.name: dd fname -;----------------------------------------------------------------------------- -align 4 -fileread: -.subfunction dd 0 -.offset dd 0 -.offset_1 dd 0 -.size dd 0 -.return dd process_info - db 0 -.name: dd fname -;----------------------------------------------------------------------------- -align 4 -filewrite: -.subfunction dd 3 -.offset dd 0 -.offset_1 dd 0 -.size dd 0 -.data dd process_info - db 0 -.name: dd fname -;----------------------------------------------------------------------------- +; Language support for locales: ru_RU (CP866), en_US. + +;----------------------------------------------------------------------------- +s_text: +if lang eq ru_RU + db 'Выбор файла',0 +else ; Default to en_US + db 'Select file',0 +end if +;----------------------------------------------------------------------------- +r_text: +if lang eq ru_RU + db 'Пуск',0 +else ; Default to en_US + db 'Start',0 +end if +;----------------------------------------------------------------------------- +result_table_text: +if lang eq ru_RU + db 'Размер Чтение (КБ/с) Запись (КБ/с)',0 +else ; Default to en_US + db 'Size Read (KB/s) Write (KB/s)',0 +end if +;----------------------------------------------------------------------------- +title db 'File Speed v0.3',0 +;----------------------------------------------------------------------------- +include_debug_strings +;----------------------------------------------------------------------------- +l_libs_start: + +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 + +end_l_libs: +;----------------------------------------------------------------------------- +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 +OpenDialog_Start dd aOpenDialog_Start +;OpenDialog_Version dd aOpenDialog_Version + +;ColorDialog_Init dd aColorDialog_Init +;ColorDialog_Start dd aColorDialog_Start +;ColorDialog_Version dd aColorDialog_Version + + dd 0 + dd 0 + +aOpenDialog_Init db 'OpenDialog_init',0 +aOpenDialog_Start db 'OpenDialog_start',0 +;aOpenDialog_Version db 'Version_OpenDialog',0 + +;aColorDialog_Init db 'ColorDialog_init',0 +;aColorDialog_Start db 'ColorDialog_start',0 +;aColorDialog_Version db 'Version_ColorDialog',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 + +init_checkbox dd aInit_checkbox +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 + +;Frame_draw dd sz_Frame_draw +;Version_frame dd szVersion_frame + + dd 0,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_mouse db 'edit_box_mouse',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 +;aVersion_ch db 'version_ch2',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 + +;sz_Frame_draw db 'frame_draw',0 +;szVersion_frame db 'version_frame',0 +;----------------------------------------------------------------------------- +PathShow_data: +.type dd 0 ;+0 +.start_y dw 5+4 ;+4 +.start_x dw 5+5 ;+6 +.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 +.area_size_x dw 400-30 ;+10 +.font_number dd 0 ;+12 ; 0 - monospace, 1 - variable +.background_flag dd 0 ;+16 +.font_color dd 0x0 ;+20 +.background_color dd 0x0 ;+24 +.text_pointer dd fname ;+28 +.work_area_pointer dd text_work_area ;+32 +.temp_text_length dd 0 ;+36 +;----------------------------------------------------------------------------- +check1 check_box2 (100 shl 16)+12,(27 shl 16)+12,6,0xFFFFFF,0,0xffffff,\ + check_text1,ch_flag_middle + +check_text1: +if lang eq ru_RU + db 'Тестировать запись',0 +else ; Default to en_US + db 'Use testing of write',0 +end if + +check_box_warning_text: +if lang eq ru_RU + db 'ВНИМАНИЕ! Проверка скорости записи уничтожает содержимое файла!',0 +else ; Default to en_US + db 'WARNING! Testing of write speed will destroy file contents!',0 +end if +;----------------------------------------------------------------------------- +OpenDialog_data: +.type dd 0 +.procinfo dd process_info ;+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 ;+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_dialog2',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 '/sys',0 + +Filter: +dd Filter.end - Filter.1 +.1: +;db 'BIN',0 +;db 'DAT',0 +.end: +db 0 + +start_temp_file_name: + db 'default.dtp',0 + +default_dtp: + db '/sys/default.dtp',0 +;----------------------------------------------------------------------------- +sector equ 512 +;-------------------------------------- +result_table: + dd a512b, 0, 0, sector*1 + dd a1K, 1, 1, sector*2 + dd a2K, 2, 2, sector*4 + dd a4K, 3, 3, sector*8 + dd a8K, 4, 4, sector*16 + dd a16K, 5, 5, sector*32 + dd a32K, 6, 6, sector*64 + dd a64K, 7, 7, sector*128 + dd a128K, 8, 8, sector*256 + dd a256K, 9, 9, sector*512 + dd a512K, 10, 10, sector*1024 + dd a1M, 11, 11, sector*2*1024 + dd a2M, 12, 12, sector*4*1024 + dd a4M, 13, 13, sector*8*1024 + dd a8M, 14, 14, sector*16*1024 + dd a16M, 15, 15, sector*32*1024 + dd a32M, 16, 16, sector*64*1024 + dd a64M, 17, 17, sector*128*1024 +;----------------------------------------------------------------------------- +a512b db ' 512',0 +a1K db ' 1K',0 +a2K db ' 2K',0 +a4K db ' 4K',0 +a8K db ' 8K',0 +a16K db ' 16K',0 +a32K db ' 32K',0 +a64K db ' 64K',0 +a128K db '128K',0 +a256K db '256K',0 +a512K db '512K',0 +a1M db ' 1M',0 +a2M db ' 2M',0 +a4M db ' 4M',0 +a8M db ' 8M',0 +a16M db ' 16M',0 +a32M db ' 32M',0 +a64M db ' 64M',0 +;----------------------------------------------------------------------------- +align 4 +fileinfo: +.subfunction dd 5 +.offset dd 0 +.offset_1 dd 0 +.size dd 0 +.return dd file_info + db 0 +.name: dd fname +;----------------------------------------------------------------------------- +align 4 +fileread: +.subfunction dd 0 +.offset dd 0 +.offset_1 dd 0 +.size dd 0 +.return dd process_info + db 0 +.name: dd fname +;----------------------------------------------------------------------------- +align 4 +filewrite: +.subfunction dd 3 +.offset dd 0 +.offset_1 dd 0 +.size dd 0 +.data dd process_info + db 0 +.name: dd fname +;----------------------------------------------------------------------------- diff --git a/programs/testing/kbd/trunk/kbd.ASM b/programs/testing/kbd/trunk/kbd.ASM index cf45407567..715bb50cc2 100644 --- a/programs/testing/kbd/trunk/kbd.ASM +++ b/programs/testing/kbd/trunk/kbd.ASM @@ -1,617 +1,616 @@ -; -; Kolibri Bus Disconnect -; Test for bus disconnect -; -; Compile with FASM for Menuet -; -; - -include '..\..\..\macros.inc' -include 'lang.inc' - -memsize = 1000h - org 0 -PARAMS = memsize - 1024 - -appname equ 'Kolibri Bus Disconnect' -version equ ' 1.1 ' - - use32 ; включить 32-битный режим ассемблера - - db 'MENUET01' ; 8 byte id - dd 0x01 ; header version - dd START ; start of code - dd I_END ; size of image - dd memsize ; memory for app - dd memsize - 1024 ; esp - dd PARAMS , 0x0 ; I_Param , I_Icon - - - -;--------------------------------------------------------------------- -;--- НАЧАЛО ПРОГРАММЫ ---------------------------------------------- -;--------------------------------------------------------------------- - -START: - cmp [PARAMS], byte 0 - jne check_parameters - -no_params: - call find_north_bridg - - test dword[bd_id], -1 ; check zero - jnz drawwindow - -controller_not_found: - push .notify - dec esp - push 0 - push 0 - push .error_message - push 0 - push dword 7 ;SSF_START_APP - - mcall 70, esp - add esp, 6*4 + 1 - mcall -1 -.error_message: - db '"KBD\nController not found" -tdE',0 -.notify: - db '/sys/@notify',0 - -drawwindow: - mov eax,48 - mov ebx,3 - mov ecx,sc - mov edx,sizeof.system_colors - mcall - - mov eax, 12 - mov ebx, 1 ; start redraw - mcall - - mov eax, 0 ; window - mov ebx, 100 shl 16 + 300 - mov ecx, 100 shl 16 + 90 - mov edx, [sc.work] - or edx, 0x13000000 - mov edi, title - mcall - - mov eax, 4 - mov ebx, 17 shl 16 + 30 - mov ecx, [sc.work_text] - mov edx, msg_nb - mov esi, msg_nb.length - mcall - - mov ebx, 105 shl 16 + 30 - mov edx, [nb_name] - movzx esi, byte[edx] - inc edx - mcall - - mov ebx, 17 shl 16 + 40 - mov edx, msg_stat - mov esi, msg_stat.length - mcall - - mov ebx, 102 shl 16 + 50 - mov edx, msg_divs - mov esi, msg_divs.length - mcall - mov ebx, 17 shl 16 + 62 - mov edx, msg_hdd - mov esi, msg_hdd.length - mcall - mov ebx, 17 shl 16 + 72 - mov edx, msg_sgd - mov esi, msg_sgd.length - mcall - - call get_divs - mov eax, 47 - mov ebx, 0x30000 - mov ecx, [val_hdd] - mov edx, 8 - shl edx, cl - mov ecx, edx - mov edx, 80 shl 16 + 62 - mov esi, [sc.work_text] - mcall - - mov ecx, [val_sgd] - mov edx, 8 - shl edx, cl - mov ecx, edx - mov edx, 80 shl 16 + 72 - mcall - - - call get_bd_stat - mov ecx, [sc.work_text] - mov esi, msg_nf.length - mov ebx, 105 shl 16 + 40 - mov edx, msg_nf - mov al, [bd_stat] - test al, al - jz @f - mov edx, msg_dis - dec al - jz @f - mov edx, msg_en - mov esi, msg_en.length -@@: mov eax, 4 - mcall - - ; Создаём кнопку - mov ecx, 27 shl 16 + 20 - mov eax, 8 - mov ebx, 220 shl 16 + 70 - mov esi, [sc.work_button] - mov edx, 2 - mcall - - ; И ещё 14 ;) - mov edi, 7 - mov ecx, 60 shl 16 + 10 - mov eax, 8 - mov ebx, 105 shl 16 + 25 - mov edx, 3 - -@@: mcall - inc edx - add ebx, 27 shl 16 - dec edi - jnz @b - - add ecx, 12 shl 16 - mov ebx, 105 shl 16 + 25 - mov edi, 7 -@@: mcall - inc edx - add ebx, 27 shl 16 - dec edi - jnz @b - -end_dr: mov eax, 12 - mov ebx, 2 ; end redraw - mcall - -; Wait for event ... - mov eax, 10 - mcall - - cmp al, 3 - jne not_bt - - mov eax, 17 ; get id - mcall - cmp ah, 1 - jne no_exit - mov eax, -1 ; close this program - mcall -no_exit: - cmp ah, 2 - jne no_ch_bt - mov dl, [bd_stat] - test dl, dl - jz drawwindow - xor eax, eax - dec dl - jnz @f - inc eax -@@: call set_bd_stat - jmp drawwindow - -no_ch_bt: - cmp ah, 9 - jg no_hdd_bt - sub ah, 3 - movzx esi, ah - mov edi, [val_sgd] - call set_divs - jmp drawwindow -no_hdd_bt: - sub ah, 10 - movzx edi, ah - mov esi, [val_hdd] - call set_divs - jmp drawwindow - - -not_bt: cmp al, 2 - jne drawwindow - mov eax, 2 ; пока клава не поддерживается - читаем и забываем - mcall - jmp drawwindow -;-------------------------------------------------------------------------- -bus_num: db 2 ; Номер шины -devfn: db 255 -bd_id: dd 0 ; Идентификатор устройства -bd_stat: db 0 ; 0 - не найден, 1 - выключен, 2 - включен - -nb_name dd nb_nf -bd_msk dd msk_i440 - -if lang eq it_IT - ;nb_nf db 9, 'Non trovato' - nb_nf db 11, 'Non trovato' -else - nb_nf db 9, 'Not found' -end if -msk_i440 db 0 -nb_i440 db 4, 'i440' -msk_nforce db 0x6D, 0x80, 0xE7, 0x06, 0 ; номер регистра, маска, номер регистра, маска, ... , 0 -nb_nforce db 6, 'nForce' -msk_nforce2 db 0x6F, 0x10, 0 -nb_nforce2 db 8, 'nForce 2' -msk_sis730 db 0x6B, 0x01, 0 -nb_sis730 db 7, 'SiS 730' -nb_sis733 db 7, 'SiS 733' -msk_sis735 db 0x6A, 0x03, 0 -nb_sis735 db 7, 'SiS 735' -nb_sis740 db 7, 'SiS 740' -nb_sis741 db 7, 'SiS 741' -nb_sis745 db 7, 'SiS 745' -msk_sis746 db 0x6C, 0x01, 0 -nb_sis746 db 7, 'SiS 746' -nb_sis748 db 7, 'SiS 748' -msk_amd751 db 0x62, 0x06, 0 -nb_amd751 db 7, 'AMD 751' -nb_amd751s db 8, 'AMD 751S' -nb_amd761 db 7, 'AMD 761' -msk_amd762 db 0x62, 0x02, 0x6A, 0x02, 0 -nb_amd762 db 7, 'AMD 762' -msk_viakt133 db 0x52, 0x80, 0x70, 0x08, 0 -nb_viakt133 db 30, 'VIA KT133(A)/KM133/KL133/KN133' -nb_viakx133 db 9, 'VIA KX133' -nb_viakle133 db 10, 'VIA KLE133' -msk_viakt266 db 0x92, 0x80, 0x95, 0x02, 0x70, 0x08, 0 -nb_viakt266 db 18, 'VIA KT266(A)/KT333' -nb_viakm266 db 21, 'VIA KM266/KL266/KM333' -nb_viakn266 db 9, 'VIA KN266' -msk_viakt400 db 0xD2, 0x80, 0xD5, 0x02, 0x70, 0x08, 0 -nb_viakt400 db 18, 'VIA KT400(A)/KT600' -nb_viakm400 db 9, 'VIA KM400' -msk_viakt880 db 0x82, 0x80, 0x85, 0x02, 0 -nb_viakt880 db 9, 'VIA KT880' - - -bd_table: dd 0x70061022 ; AMD 751 ---- - dd nb_amd751 - dd msk_amd751 - - dd 0x70041022 ; AMD 751S - dd nb_amd751s - dd msk_amd751 - - dd 0x700E1022 ; AMD 761 - dd nb_amd761 - dd msk_amd751 - - dd 0x700C1022 ; AMD 762 - dd nb_amd762 - dd msk_amd762 - - dd 0x71908086 ; i440 --- - dd nb_i440 - dd msk_i440 - - dd 0x01A410DE ; nForce ---- - dd nb_nforce - dd msk_nforce - - dd 0x01E010DE ; nForce 2 - dd nb_nforce2 - dd msk_nforce2 - - dd 0x07301039 ; SiS 730 ---- - dd nb_sis730 - dd msk_sis730 - - dd 0x07331039 ; SiS 733 - dd nb_sis733 - dd msk_sis730 - - dd 0x07351039 ; SiS 735 - dd nb_sis735 - dd msk_sis735 - - dd 0x07401039 ; SiS 740 - dd nb_sis740 - dd msk_sis735 - - dd 0x07411039 ; SiS 741 - dd nb_sis741 - dd msk_sis735 - - dd 0x07451039 ; SiS 745 - dd nb_sis745 - dd msk_sis735 - - dd 0x07461039 ; SiS 746 - dd nb_sis746 - dd msk_sis746 - - dd 0x07481039 ; SiS 748 - dd nb_sis748 - dd msk_sis746 - - dd 0x03051106 ; VIA KT133(A)/KM133/KL133/KN133 ---- - dd nb_viakt133 - dd msk_viakt133 - - dd 0x03911106 ; VIA KX133 - dd nb_viakx133 - dd msk_viakt133 - - dd 0x06911106 ; VIA KLE133 - dd nb_viakle133 - dd msk_viakt133 - - dd 0x30991106 ; VIA KT266(A)/KT333 - dd nb_viakt266 - dd msk_viakt266 - - dd 0x31161106 ; VIA KM266/KL266/KM333 - dd nb_viakm266 - dd msk_viakt266 - - dd 0x31561106 ; VIA KN266 - dd nb_viakn266 - dd msk_viakt266 - - dd 0x31891106 ; VIA KT400(A)/KT600 - dd nb_viakt400 - dd msk_viakt400 - - dd 0x32051106 ; VIA KM400 - dd nb_viakm400 - dd msk_viakt400 - - dd 0x22691106 ; VIA KT880 - dd nb_viakt880 - dd msk_viakt880 -bd_table_end: - - -find_north_bridg: - mov bl, 6 - xor cl, cl -nbus: mov bh, [bus_num] -ndevfn: mov ch, [devfn] - mov eax, 62 - mcall - cmp eax, 0xffffffff - je bd_next - ;--------- - mov esi, bd_table_end - bd_table - 12 -@@: cmp eax, [bd_table + esi] - je bd_found - test esi, esi - jz bd_next - sub esi, 12 - jmp @b - ;--------- -bd_next:dec byte[devfn] - jns ndevfn - mov byte[devfn], 0 - dec byte[bus_num] - jns nbus - ret -bd_found: - add esi, bd_table + 4 - mov edi, nb_name - mov ecx, 2 - rep movsd - - mov [bd_id], eax - ret - -;---------------------- -;bd_stat: db 0 ; 0 - не найден, 1 - выключен, 2 - включен -get_bd_stat: - mov byte[bd_stat], 1 - cld - mov esi, [bd_msk] - lodsw - test al, al - jnz @f - mov byte[bd_stat], 0 - ret -@@: push eax - mov bh, [bus_num] - mov bl, 4 - mov ch, [devfn] - mov cl, al - mov eax, 62 - mcall - pop edx - and al, dh - jnz @f - lodsw - test al, al - jnz @b - ret -@@: mov byte[bd_stat], 2 - ret -;---------------------- -set_bd_stat: - cmp dword[bd_id], 0x01E010DE ; специально для nForce2 400 - je set_stat_nforce2 - - mov edi, eax - cld - mov esi, [bd_msk] -bd_ss_nxt: - lodsw - test al, al - jz bd_ss_end - mov dl, ah ; маска - mov bh, [bus_num] - mov bl, 4 - mov ch, [devfn] - mov cl, al - mov eax, 62 - mcall - mov bl, 8 - test edi, edi - jz @f - or al, dl - mov dl, al - mov eax, 62 - mcall - jmp bd_ss_nxt -@@: not dl - and al, dl - mov dl, al - mov eax, 62 - mcall - jmp bd_ss_nxt -bd_ss_end: - ret -;------- nForce 2 ----------- -set_stat_nforce2: -; IN : eax = 0 - disable, !0 - enable - push eax - mov bh, [bus_num] - mov bl, 4 - mov ch, [devfn] - mov cl, 0x6f - mov eax, 62 - mcall - and al, 0x1F - mov dl, al - mov bl, 8 - mov eax, 62 - mcall - pop eax - test eax, eax - jz @f - or dl, 0x10 - mov eax, 62 - mcall - ret -@@: and dl, 0xef - mov eax, 62 - mcall - ret -;-------------------------------------------------------------------------- -; x8 x16 x32 x64 x128 x256 x512 -div_hdd: db 0x23, 0x27, 0x2B, 0x2F, 0x63, 0x67, 0x6B ; Halt Disconnect Divisor -div_sgd: db 0x12, 0x52, 0x92, 0xD2, 0x12, 0x52, 0x92 ; Stop Grand Divisor -; low word of 0xC001001B MSR -; HDD\SGD 8 16 32 64 128 256 512 -; 8 0x1223 0x5223 0x9223 0xD223 | 0x1223 0x5223 0x9223 -; 16 0x1227 | -; 32 0x122B | -; 64 0x122F | 0x522F -; 128 0x1263 | -; 256 0x1267 & bit 18 is clear | & bit 18 is set -; 512 0x126B | - ; ^^^^ - ; ||||_HDD - ; ||_SGD -set_divs: -; IN : ESI - hdd (0 = x8, 1 = x16 ..) -; EDI - sgd (0 = x8, 1 = x16 ..) - mov eax, 68 - mov ebx, 3 - mov edx, 0xC001001b - mcall - mov al, [div_hdd + esi] - mov ah, [div_sgd + edi] - and eax, 0xFFFBFFFF - cmp edi, 3 - jle @f - or eax, 0x40000 -@@: mov edi, eax - mov esi, ebx - mov eax, 68 - mov ebx, 4 - mcall - ret - -get_divs: -; OUT : val_hdd - hdd (0 = x8, 1 = x16 ..) -; val_sgd - sgd ... - mov eax, 68 - mov ebx, 3 - mov edx, 0xC001001b - mcall - mov ecx, 7 -@@: cmp [div_hdd + ecx - 1], al - je @f - loop @b -@@: dec ecx - mov [val_hdd], ecx - mov ecx, 4 -@@: cmp [div_sgd + ecx - 1], ah - je @f - loop @b -@@: dec ecx - test eax, 0x40000 - jz @f - add ecx, 4 -@@: mov [val_sgd], ecx - ret - -;****************************************************************************** - -check_parameters: - cmp [PARAMS], dword "BOOT" ; received BOOT parameter -> goto handler - je boot_bd_enable - jmp no_params - -;****************************************************************************** - -boot_bd_enable: - - call find_north_bridg - test dword[bd_id], -1 ; check zero - jz controller_not_found - - call set_bd_stat - mcall -1 - -;****************************************************************************** - - -;-------------------------------------------------------------------------- - -title db appname,version,0 - -msg_divs db ' x8 x16 x32 x64 x128 x256 x512' -.length = $ - msg_divs -msg_hdd db 'Hatl Disc.' -.length = $ - msg_hdd -msg_sgd db 'Stop Grand' -.length = $ - msg_sgd -msg_nb db 'North bridge :' -.length = $ - msg_nb -msg_stat db 'Status :' -.length = $ - msg_stat - -if lang eq it_IT - msg_en db 'Abilitato ' - .length = $ - msg_en - msg_dis db 'Disabilitato' - .length = $ - msg_dis - msg_nf db 'Non trovato ' - .length = $ - msg_nf -else - msg_en db 'Enabled ' - .length = $ - msg_en - msg_dis db 'Disabled ' - .length = $ - msg_dis - msg_nf db 'Not found' - .length = $ - msg_nf -end if - -I_END: - -sc system_colors -val_hdd dd ? -val_sgd dd ? - +; +; Kolibri Bus Disconnect +; Test for bus disconnect +; +; Compile with FASM for Menuet +; +; + +include '..\..\..\macros.inc' +include 'lang.inc' ; Language support for locales: it_IT, en_US. + +memsize = 1000h + org 0 +PARAMS = memsize - 1024 + +appname equ 'Kolibri Bus Disconnect' +version equ ' 1.1 ' + + use32 ; включить 32-битный режим ассемблера + + db 'MENUET01' ; 8 byte id + dd 0x01 ; header version + dd START ; start of code + dd I_END ; size of image + dd memsize ; memory for app + dd memsize - 1024 ; esp + dd PARAMS , 0x0 ; I_Param , I_Icon + + + +;--------------------------------------------------------------------- +;--- НАЧАЛО ПРОГРАММЫ ---------------------------------------------- +;--------------------------------------------------------------------- + +START: + cmp [PARAMS], byte 0 + jne check_parameters + +no_params: + call find_north_bridg + + test dword[bd_id], -1 ; check zero + jnz drawwindow + +controller_not_found: + push .notify + dec esp + push 0 + push 0 + push .error_message + push 0 + push dword 7 ;SSF_START_APP + + mcall 70, esp + add esp, 6*4 + 1 + mcall -1 +.error_message: + db '"KBD\nController not found" -tdE',0 +.notify: + db '/sys/@notify',0 + +drawwindow: + mov eax,48 + mov ebx,3 + mov ecx,sc + mov edx,sizeof.system_colors + mcall + + mov eax, 12 + mov ebx, 1 ; start redraw + mcall + + mov eax, 0 ; window + mov ebx, 100 shl 16 + 300 + mov ecx, 100 shl 16 + 90 + mov edx, [sc.work] + or edx, 0x13000000 + mov edi, title + mcall + + mov eax, 4 + mov ebx, 17 shl 16 + 30 + mov ecx, [sc.work_text] + mov edx, msg_nb + mov esi, msg_nb.length + mcall + + mov ebx, 105 shl 16 + 30 + mov edx, [nb_name] + movzx esi, byte[edx] + inc edx + mcall + + mov ebx, 17 shl 16 + 40 + mov edx, msg_stat + mov esi, msg_stat.length + mcall + + mov ebx, 102 shl 16 + 50 + mov edx, msg_divs + mov esi, msg_divs.length + mcall + mov ebx, 17 shl 16 + 62 + mov edx, msg_hdd + mov esi, msg_hdd.length + mcall + mov ebx, 17 shl 16 + 72 + mov edx, msg_sgd + mov esi, msg_sgd.length + mcall + + call get_divs + mov eax, 47 + mov ebx, 0x30000 + mov ecx, [val_hdd] + mov edx, 8 + shl edx, cl + mov ecx, edx + mov edx, 80 shl 16 + 62 + mov esi, [sc.work_text] + mcall + + mov ecx, [val_sgd] + mov edx, 8 + shl edx, cl + mov ecx, edx + mov edx, 80 shl 16 + 72 + mcall + + + call get_bd_stat + mov ecx, [sc.work_text] + mov esi, msg_nf.length + mov ebx, 105 shl 16 + 40 + mov edx, msg_nf + mov al, [bd_stat] + test al, al + jz @f + mov edx, msg_dis + dec al + jz @f + mov edx, msg_en + mov esi, msg_en.length +@@: mov eax, 4 + mcall + + ; Создаём кнопку + mov ecx, 27 shl 16 + 20 + mov eax, 8 + mov ebx, 220 shl 16 + 70 + mov esi, [sc.work_button] + mov edx, 2 + mcall + + ; И ещё 14 ;) + mov edi, 7 + mov ecx, 60 shl 16 + 10 + mov eax, 8 + mov ebx, 105 shl 16 + 25 + mov edx, 3 + +@@: mcall + inc edx + add ebx, 27 shl 16 + dec edi + jnz @b + + add ecx, 12 shl 16 + mov ebx, 105 shl 16 + 25 + mov edi, 7 +@@: mcall + inc edx + add ebx, 27 shl 16 + dec edi + jnz @b + +end_dr: mov eax, 12 + mov ebx, 2 ; end redraw + mcall + +; Wait for event ... + mov eax, 10 + mcall + + cmp al, 3 + jne not_bt + + mov eax, 17 ; get id + mcall + cmp ah, 1 + jne no_exit + mov eax, -1 ; close this program + mcall +no_exit: + cmp ah, 2 + jne no_ch_bt + mov dl, [bd_stat] + test dl, dl + jz drawwindow + xor eax, eax + dec dl + jnz @f + inc eax +@@: call set_bd_stat + jmp drawwindow + +no_ch_bt: + cmp ah, 9 + jg no_hdd_bt + sub ah, 3 + movzx esi, ah + mov edi, [val_sgd] + call set_divs + jmp drawwindow +no_hdd_bt: + sub ah, 10 + movzx edi, ah + mov esi, [val_hdd] + call set_divs + jmp drawwindow + + +not_bt: cmp al, 2 + jne drawwindow + mov eax, 2 ; пока клава не поддерживается - читаем и забываем + mcall + jmp drawwindow +;-------------------------------------------------------------------------- +bus_num: db 2 ; Номер шины +devfn: db 255 +bd_id: dd 0 ; Идентификатор устройства +bd_stat: db 0 ; 0 - не найден, 1 - выключен, 2 - включен + +nb_name dd nb_nf +bd_msk dd msk_i440 + +if lang eq it_IT + nb_nf db 11, 'Non trovato' +else ; Default to en_US + nb_nf db 9, 'Not found' +end if +msk_i440 db 0 +nb_i440 db 4, 'i440' +msk_nforce db 0x6D, 0x80, 0xE7, 0x06, 0 ; номер регистра, маска, номер регистра, маска, ... , 0 +nb_nforce db 6, 'nForce' +msk_nforce2 db 0x6F, 0x10, 0 +nb_nforce2 db 8, 'nForce 2' +msk_sis730 db 0x6B, 0x01, 0 +nb_sis730 db 7, 'SiS 730' +nb_sis733 db 7, 'SiS 733' +msk_sis735 db 0x6A, 0x03, 0 +nb_sis735 db 7, 'SiS 735' +nb_sis740 db 7, 'SiS 740' +nb_sis741 db 7, 'SiS 741' +nb_sis745 db 7, 'SiS 745' +msk_sis746 db 0x6C, 0x01, 0 +nb_sis746 db 7, 'SiS 746' +nb_sis748 db 7, 'SiS 748' +msk_amd751 db 0x62, 0x06, 0 +nb_amd751 db 7, 'AMD 751' +nb_amd751s db 8, 'AMD 751S' +nb_amd761 db 7, 'AMD 761' +msk_amd762 db 0x62, 0x02, 0x6A, 0x02, 0 +nb_amd762 db 7, 'AMD 762' +msk_viakt133 db 0x52, 0x80, 0x70, 0x08, 0 +nb_viakt133 db 30, 'VIA KT133(A)/KM133/KL133/KN133' +nb_viakx133 db 9, 'VIA KX133' +nb_viakle133 db 10, 'VIA KLE133' +msk_viakt266 db 0x92, 0x80, 0x95, 0x02, 0x70, 0x08, 0 +nb_viakt266 db 18, 'VIA KT266(A)/KT333' +nb_viakm266 db 21, 'VIA KM266/KL266/KM333' +nb_viakn266 db 9, 'VIA KN266' +msk_viakt400 db 0xD2, 0x80, 0xD5, 0x02, 0x70, 0x08, 0 +nb_viakt400 db 18, 'VIA KT400(A)/KT600' +nb_viakm400 db 9, 'VIA KM400' +msk_viakt880 db 0x82, 0x80, 0x85, 0x02, 0 +nb_viakt880 db 9, 'VIA KT880' + + +bd_table: dd 0x70061022 ; AMD 751 ---- + dd nb_amd751 + dd msk_amd751 + + dd 0x70041022 ; AMD 751S + dd nb_amd751s + dd msk_amd751 + + dd 0x700E1022 ; AMD 761 + dd nb_amd761 + dd msk_amd751 + + dd 0x700C1022 ; AMD 762 + dd nb_amd762 + dd msk_amd762 + + dd 0x71908086 ; i440 --- + dd nb_i440 + dd msk_i440 + + dd 0x01A410DE ; nForce ---- + dd nb_nforce + dd msk_nforce + + dd 0x01E010DE ; nForce 2 + dd nb_nforce2 + dd msk_nforce2 + + dd 0x07301039 ; SiS 730 ---- + dd nb_sis730 + dd msk_sis730 + + dd 0x07331039 ; SiS 733 + dd nb_sis733 + dd msk_sis730 + + dd 0x07351039 ; SiS 735 + dd nb_sis735 + dd msk_sis735 + + dd 0x07401039 ; SiS 740 + dd nb_sis740 + dd msk_sis735 + + dd 0x07411039 ; SiS 741 + dd nb_sis741 + dd msk_sis735 + + dd 0x07451039 ; SiS 745 + dd nb_sis745 + dd msk_sis735 + + dd 0x07461039 ; SiS 746 + dd nb_sis746 + dd msk_sis746 + + dd 0x07481039 ; SiS 748 + dd nb_sis748 + dd msk_sis746 + + dd 0x03051106 ; VIA KT133(A)/KM133/KL133/KN133 ---- + dd nb_viakt133 + dd msk_viakt133 + + dd 0x03911106 ; VIA KX133 + dd nb_viakx133 + dd msk_viakt133 + + dd 0x06911106 ; VIA KLE133 + dd nb_viakle133 + dd msk_viakt133 + + dd 0x30991106 ; VIA KT266(A)/KT333 + dd nb_viakt266 + dd msk_viakt266 + + dd 0x31161106 ; VIA KM266/KL266/KM333 + dd nb_viakm266 + dd msk_viakt266 + + dd 0x31561106 ; VIA KN266 + dd nb_viakn266 + dd msk_viakt266 + + dd 0x31891106 ; VIA KT400(A)/KT600 + dd nb_viakt400 + dd msk_viakt400 + + dd 0x32051106 ; VIA KM400 + dd nb_viakm400 + dd msk_viakt400 + + dd 0x22691106 ; VIA KT880 + dd nb_viakt880 + dd msk_viakt880 +bd_table_end: + + +find_north_bridg: + mov bl, 6 + xor cl, cl +nbus: mov bh, [bus_num] +ndevfn: mov ch, [devfn] + mov eax, 62 + mcall + cmp eax, 0xffffffff + je bd_next + ;--------- + mov esi, bd_table_end - bd_table - 12 +@@: cmp eax, [bd_table + esi] + je bd_found + test esi, esi + jz bd_next + sub esi, 12 + jmp @b + ;--------- +bd_next:dec byte[devfn] + jns ndevfn + mov byte[devfn], 0 + dec byte[bus_num] + jns nbus + ret +bd_found: + add esi, bd_table + 4 + mov edi, nb_name + mov ecx, 2 + rep movsd + + mov [bd_id], eax + ret + +;---------------------- +;bd_stat: db 0 ; 0 - не найден, 1 - выключен, 2 - включен +get_bd_stat: + mov byte[bd_stat], 1 + cld + mov esi, [bd_msk] + lodsw + test al, al + jnz @f + mov byte[bd_stat], 0 + ret +@@: push eax + mov bh, [bus_num] + mov bl, 4 + mov ch, [devfn] + mov cl, al + mov eax, 62 + mcall + pop edx + and al, dh + jnz @f + lodsw + test al, al + jnz @b + ret +@@: mov byte[bd_stat], 2 + ret +;---------------------- +set_bd_stat: + cmp dword[bd_id], 0x01E010DE ; специально для nForce2 400 + je set_stat_nforce2 + + mov edi, eax + cld + mov esi, [bd_msk] +bd_ss_nxt: + lodsw + test al, al + jz bd_ss_end + mov dl, ah ; маска + mov bh, [bus_num] + mov bl, 4 + mov ch, [devfn] + mov cl, al + mov eax, 62 + mcall + mov bl, 8 + test edi, edi + jz @f + or al, dl + mov dl, al + mov eax, 62 + mcall + jmp bd_ss_nxt +@@: not dl + and al, dl + mov dl, al + mov eax, 62 + mcall + jmp bd_ss_nxt +bd_ss_end: + ret +;------- nForce 2 ----------- +set_stat_nforce2: +; IN : eax = 0 - disable, !0 - enable + push eax + mov bh, [bus_num] + mov bl, 4 + mov ch, [devfn] + mov cl, 0x6f + mov eax, 62 + mcall + and al, 0x1F + mov dl, al + mov bl, 8 + mov eax, 62 + mcall + pop eax + test eax, eax + jz @f + or dl, 0x10 + mov eax, 62 + mcall + ret +@@: and dl, 0xef + mov eax, 62 + mcall + ret +;-------------------------------------------------------------------------- +; x8 x16 x32 x64 x128 x256 x512 +div_hdd: db 0x23, 0x27, 0x2B, 0x2F, 0x63, 0x67, 0x6B ; Halt Disconnect Divisor +div_sgd: db 0x12, 0x52, 0x92, 0xD2, 0x12, 0x52, 0x92 ; Stop Grand Divisor +; low word of 0xC001001B MSR +; HDD\SGD 8 16 32 64 128 256 512 +; 8 0x1223 0x5223 0x9223 0xD223 | 0x1223 0x5223 0x9223 +; 16 0x1227 | +; 32 0x122B | +; 64 0x122F | 0x522F +; 128 0x1263 | +; 256 0x1267 & bit 18 is clear | & bit 18 is set +; 512 0x126B | + ; ^^^^ + ; ||||_HDD + ; ||_SGD +set_divs: +; IN : ESI - hdd (0 = x8, 1 = x16 ..) +; EDI - sgd (0 = x8, 1 = x16 ..) + mov eax, 68 + mov ebx, 3 + mov edx, 0xC001001b + mcall + mov al, [div_hdd + esi] + mov ah, [div_sgd + edi] + and eax, 0xFFFBFFFF + cmp edi, 3 + jle @f + or eax, 0x40000 +@@: mov edi, eax + mov esi, ebx + mov eax, 68 + mov ebx, 4 + mcall + ret + +get_divs: +; OUT : val_hdd - hdd (0 = x8, 1 = x16 ..) +; val_sgd - sgd ... + mov eax, 68 + mov ebx, 3 + mov edx, 0xC001001b + mcall + mov ecx, 7 +@@: cmp [div_hdd + ecx - 1], al + je @f + loop @b +@@: dec ecx + mov [val_hdd], ecx + mov ecx, 4 +@@: cmp [div_sgd + ecx - 1], ah + je @f + loop @b +@@: dec ecx + test eax, 0x40000 + jz @f + add ecx, 4 +@@: mov [val_sgd], ecx + ret + +;****************************************************************************** + +check_parameters: + cmp [PARAMS], dword "BOOT" ; received BOOT parameter -> goto handler + je boot_bd_enable + jmp no_params + +;****************************************************************************** + +boot_bd_enable: + + call find_north_bridg + test dword[bd_id], -1 ; check zero + jz controller_not_found + + call set_bd_stat + mcall -1 + +;****************************************************************************** + + +;-------------------------------------------------------------------------- + +title db appname,version,0 + +msg_divs db ' x8 x16 x32 x64 x128 x256 x512' +.length = $ - msg_divs +msg_hdd db 'Hatl Disc.' +.length = $ - msg_hdd +msg_sgd db 'Stop Grand' +.length = $ - msg_sgd +msg_nb db 'North bridge :' +.length = $ - msg_nb +msg_stat db 'Status :' +.length = $ - msg_stat + +if lang eq it_IT + msg_en db 'Abilitato ' + .length = $ - msg_en + msg_dis db 'Disabilitato' + .length = $ - msg_dis + msg_nf db 'Non trovato ' + .length = $ - msg_nf +else ; Default to en_US + msg_en db 'Enabled ' + .length = $ - msg_en + msg_dis db 'Disabled ' + .length = $ - msg_dis + msg_nf db 'Not found' + .length = $ - msg_nf +end if + +I_END: + +sc system_colors +val_hdd dd ? +val_sgd dd ? +