forked from KolibriOS/kolibrios
442 lines
14 KiB
NASM
442 lines
14 KiB
NASM
; Copyright (c) 2009, <Lrz>
|
|
; 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 <organization> nor the
|
|
; names of its contributors may be used to endorse or promote products
|
|
; derived from this software without specific prior written permission.
|
|
;
|
|
; THIS SOFTWARE IS PROVIDED BY Alexey Teplov nickname <Lrz> ''AS IS'' AND ANY
|
|
; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
|
; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
; DISCLAIMED. IN NO EVENT SHALL <copyright holder> BE LIABLE FOR ANY
|
|
; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
|
; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
|
; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
|
; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
|
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
;*****************************************************************************
|
|
|
|
;;;;;;;;;;;;;;;;;;
|
|
|
|
format MS COFF
|
|
|
|
public EXPORTS
|
|
|
|
section '.flat' code readable align 16
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;Get info about
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
include '../../../../macros.inc'
|
|
align 4
|
|
initialization_font:
|
|
; esp+0 = dd back
|
|
; çàïîëíÿåì ìàññèâ - ñòðóêòó äëÿ ïîëó÷åíèÿ êîë-âà ôàéëîâ
|
|
|
|
pushad
|
|
xor eax,eax
|
|
inc eax
|
|
mov [number_function],eax
|
|
;structure is completed
|
|
mov eax,70
|
|
mov ebx,dword struct_f_info
|
|
mcall
|
|
;IF ERROR FT then exit
|
|
test eax,eax
|
|
jnz .exit
|
|
;IF ERROR folder is not found then exit
|
|
test ebx,ebx
|
|
mov eax,ebx
|
|
jnz .exit
|
|
|
|
;Get quantity files
|
|
mov eax,[buffer_32.quantity_files]
|
|
imul eax,304
|
|
add eax,32 ; ??
|
|
push eax ;save eax â eax ðàçìåð íóæíîé íàì ïàìÿòè â áàéòàõ
|
|
;init memory
|
|
mov eax,68
|
|
mov ebx,11
|
|
mcall
|
|
test eax,eax
|
|
jz .exit
|
|
inc ebx ;âûäåëèòü áëîê â ecx áàéò
|
|
|
|
pop ecx
|
|
mov eax,68
|
|
mcall
|
|
mov dword [fulder_array_point],eax ;save point for memory's fulder
|
|
;â eax óêàçàòåëü íà áëîê
|
|
mov [buffer_read_d],eax ;point to new array
|
|
mov eax,[buffer_32.quantity_files]
|
|
mov [read_block],eax
|
|
;get in buffer info of files and sub dir current dir
|
|
mov eax,70
|
|
mov ebx,dword struct_f_info
|
|
mcall
|
|
;ïîëó÷èëè èíôîðìàöèþ î ôàéëàõ.
|
|
mov ebp, dword [buffer_read_d] ;point to structure
|
|
mov ecx, dword [ebp+4] ;êîë-âî áëîêîâ ÁÄÂÊ
|
|
mov dword [save_ecx],ecx
|
|
add ebp, 32 ;ñìåùàåìñÿ äî ÁÄÂÊ
|
|
mov dword [save_ebp],ebp
|
|
cld ;óñòàíîâêà ôëàãà íàïðàâëåíèÿ
|
|
align 4
|
|
.start_loop:
|
|
push ecx
|
|
lea edi,[ebp+0x28] ;â edi óêàçàòåëü íà íà÷àëî èìåíè.
|
|
xor eax,eax
|
|
mov ecx,263
|
|
repne scasb ;íàéäåì êîíåö ñòðîêè
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
sub edi,5 ;.ksf,0
|
|
lea esi,[name_font]
|
|
mov eax,dword[edi]
|
|
or eax,0x20202000 ; ñäåëàåì ðàñøèðåíèå ñòðî÷íûìè áóêâàìè.
|
|
cmp eax,dword[esi]
|
|
jnz @f
|
|
|
|
;;;;;;;; óðà ýòî íàø ôàéë ò.å. íàø øðèôò ìû íàøëè íóæíûé ôàéëèê ))
|
|
;òåïåðü íóæíî òî÷íî óáåäèòüñÿ ÷òî ýòî íàø è òîëüêî íàø ôàéëèê
|
|
;çàãðóçèì çàãîëîâîê ôàéëà è óçíàåì åãî ðàçìåð ãëèôà.
|
|
|
|
call alloc_mem ; âûäåëèì îçó ñâîèõ ïåðåìåííûõ
|
|
; ñåé÷àñ íàì íóæíî ñôîðìèðîâàòü èìÿ ôàéëà ñ ïîëíûì ïóòåì
|
|
mov eax,dword [alloc_memory_point]
|
|
lea edi,dword [eax+4]
|
|
lea esi,[name_fulder]
|
|
mov ecx,name_fuld_end
|
|
rep movsb ;ïåðåíîñèì ïóòü
|
|
mov al,'/'
|
|
stosb
|
|
lea esi,[ebp+0x28] ;â esi óêàçàòåëü íà íà÷àëî èìåíè.
|
|
align 4
|
|
.loop_b:
|
|
lodsb
|
|
stosb
|
|
test al,al
|
|
jnz .loop_b
|
|
|
|
; mov edi,name_of_file ; [ebp+0x28] ;â edi óêàçàòåëü íà íà÷àëî èìåíè.
|
|
;get in buffer info above own file
|
|
xor eax,eax
|
|
mov dword [number_function],eax
|
|
mov dword [index_start_block],eax ;ïîçèöèÿ â ôàéëå äëÿ ÷òåíèÿ äàííûõ
|
|
mov dword [flags_],eax ;ñòàðøàÿ ïîçèöèÿ äëÿ ÷òåíèÿ äàííûõ
|
|
mov dword [read_block],8 ;ñêîëüêî áàéò ÷èòàòü íàì íóæíî 8 áàéò
|
|
mov dword [buffer_read_d],file_buffer ; óêàçàòåëü íà áóôåð êóäà áóäóò çàïèñàíû äàííûå
|
|
|
|
mov eax,dword [alloc_memory_point]
|
|
lea edi,dword [eax+4]
|
|
mov dword [offset_to_string],edi
|
|
|
|
mov eax,70
|
|
mov ebx,dword struct_f_info
|
|
mcall
|
|
;;;;;;;;;;;;;;;; ïðîâåðèì ôîðìàò çàãîëîâêà
|
|
mov eax,ebx
|
|
mov eax,dword [file_buffer]
|
|
mov ebx,dword [type_fnt]
|
|
cmp eax,ebx
|
|
jnz @f
|
|
|
|
;;;;;;; îòëè÷íî ñåé÷àñ ïðîâåðèëè ÷òî çàãîëîâîê èìåííî òîò êîòîðûé íàì íóæåí
|
|
; ñåé÷àñ íóæíî ïåðåðàñïðåäåëèòü áëîêè ò.å. ïî ìåðå íàõîæäåíèÿ áóäåì ïåðåíîñèòü áëîêè
|
|
; â íà÷àëî áóôåðà
|
|
|
|
mov dword [save_point_nt],ebp
|
|
pop ecx
|
|
xor eax,eax
|
|
jmp .exit
|
|
|
|
align 4
|
|
@@: pop ecx
|
|
add ebp,304
|
|
dec ecx
|
|
jnz .start_loop
|
|
; loop .start_loop
|
|
or eax,-1
|
|
;;;;;;;; ïðîøëèñü - âñå èíòåðåñóùþùèå øðèôòû ïåðåìåñòèëè â íà÷àëî áëîêà.
|
|
|
|
align 4
|
|
.exit: mov dword [esp+28],eax
|
|
popad
|
|
ret
|
|
|
|
|
|
align 4
|
|
get_font:
|
|
; ïîèñê â ìàññèâå øðèôòà ïðè ñîâïàäåíèè ócëîâèé çàãðóçêà øðèôòà
|
|
; esp+4 = dd width font shl 16 +hight font
|
|
; esp+0 = dd back
|
|
;pop eax
|
|
; pop dword [font_x_y]
|
|
;push eax
|
|
pushad
|
|
mov eax,dword [esp+32+4]
|
|
mov dword [font_x_y],eax
|
|
xor eax,eax
|
|
mov dword [number_function],eax
|
|
mov dword [index_start_block],eax ;ïîçèöèÿ â ôàéëå äëÿ ÷òåíèÿ äàííûõ
|
|
mov dword [flags_],eax ;ñòàðøàÿ ïîçèöèÿ äëÿ ÷òåíèÿ äàííûõ
|
|
mov dword [read_block],8 ;ñêîëüêî áàéò ÷èòàòü íàì íóæíî 8 áàéò
|
|
mov dword [buffer_read_d],file_buffer ; óêàçàòåëü íà áóôåð êóäà áóäóò çàïèñàíû äàííûå
|
|
|
|
mov eax,dword [alloc_memory_point]
|
|
lea edi,dword [eax+4]
|
|
mov dword [offset_to_string],edi
|
|
|
|
|
|
mov eax,70
|
|
mov ebx,dword struct_f_info
|
|
mcall
|
|
;;;;;;;;;;;;;;;; ïðîâåðèì ôîðìàò çàãîëîâêà
|
|
mov eax,ebx
|
|
mov eax,dword [file_buffer]
|
|
mov ebx,dword [type_fnt]
|
|
cmp eax,ebx
|
|
|
|
mov ecx,dword [file_buffer.font_size]
|
|
mov edx,dword [font_x_y]
|
|
cmp ecx,edx
|
|
|
|
mov ecx, 4096;dword [ebp+32] ;ðàçìåð ôàéëà äî 4294967296 áàéò ò.å. 4 Ãá
|
|
|
|
mov dword [read_block],ecx
|
|
mov eax,68
|
|
mov ebx,12
|
|
mcall
|
|
|
|
mov dword [font_array_point],eax ;save point to array
|
|
mov dword [buffer_read_d],eax
|
|
|
|
;load font
|
|
mov ebx,dword struct_f_info
|
|
mov eax,70
|
|
mcall
|
|
test eax,eax
|
|
jnz .exit
|
|
|
|
lea eax,[buffer_read_d]
|
|
mov eax,dword [eax]
|
|
mov ebx,dword [eax+8]
|
|
add eax,ebx
|
|
; add eax,dword [eax+8]
|
|
; add eax,dword [buffer_read_d]
|
|
mov dword [font_array_data],eax
|
|
xor eax,eax
|
|
jmp .ok
|
|
|
|
;here error file system
|
|
align 4
|
|
.exit:
|
|
or eax,-1
|
|
align 4
|
|
.ok: mov dword [esp+28],eax ;âåðíåì îøèáêó
|
|
popad
|
|
ret 4
|
|
|
|
|
|
; ïîèñê âûâîä ñòîðî÷êè ïî ñèìâîëüíî ñôîðèðîâàííîãî øðèôòîì òåêñòà
|
|
; esp+12= dd x shl 16 + y x- êîîðäèíàòà ïî Õ, y - êîîðäèíàòà ïî Y
|
|
; esp+8 = dd point to color of background and font
|
|
; esp+4 = dd point to ASCIIZ
|
|
; esp+0 = dd back
|
|
align 4
|
|
font_draw_on_string:
|
|
pushad
|
|
|
|
mov esi,dword [esp+4+32] ;ASCIIZ
|
|
mov edx,dword [esp+12+32] ; x shl 16 +y
|
|
mov ecx,dword [font_x_y] ;ðàçìåð ãëèôà x shl 16 +y
|
|
mov edi,dword [esp+8+32] ;óêàçàòåëü íà ïàëèòðó èç öâåòà è ôîíà
|
|
xor ebp,ebp ;ñì 65 ôóíêöèþ ))
|
|
cld
|
|
align 4
|
|
@@: ;pushad
|
|
xor eax,eax
|
|
lodsb
|
|
test al,al
|
|
jz .return
|
|
shl eax,4 ;óìíîæàåì íà 16 ò.ê. ýòî âûñîòà ãëèôà
|
|
|
|
mov ebx,dword [font_array_data] ; òóò ðàñïîëîãàþòñÿ ãëèôû ñèìâîëîâ
|
|
add ebx,eax
|
|
push esi
|
|
mov esi,1
|
|
mov eax,65
|
|
mcall
|
|
pop esi
|
|
add edx,8 shl 16 ;ñëåäóþùèé ñèìâîë øèðèíà ñèìâîëà = 8 òî÷êàì
|
|
jmp @b
|
|
|
|
align 4
|
|
.return:
|
|
popad
|
|
ret 12
|
|
|
|
|
|
align 4
|
|
; esp+4 = dd point to color of background and font
|
|
show_all_glif:
|
|
pushad
|
|
|
|
mov edx,10 shl 16+20 ;dword [esp+12+32] ; x shl 16 +y
|
|
mov ecx,128 shl 16 +256;dword [font_x_y] ;ðàçìåð ãëèôà x shl 16 +y
|
|
mov edi,dword [esp+4+32] ;óêàçàòåëü íà ïàëèòðó èç öâåòà è ôîíà
|
|
xor ebp,ebp ;ñì 65 ôóíêöèþ ))
|
|
|
|
align 4
|
|
@@:
|
|
mov ebx,dword [font_array_data] ; òóò ðàñïîëîãàþòñÿ ãëèôû ñèìâîëîâ
|
|
mov esi,1
|
|
mov eax,65
|
|
mcall
|
|
popad
|
|
ret 4
|
|
|
|
|
|
|
|
|
|
|
|
|
|
align 4
|
|
free_fulder_info:
|
|
;îñâîáîäèòü ïàìÿòü âûäåëåíóþ äëÿ ïîëó÷åíèÿ áëîêîâ ÁÄÂÊ
|
|
pushad
|
|
mov ecx, dword [fulder_array_point]
|
|
mov eax,68
|
|
mov ebx,13
|
|
mcall
|
|
test eax,eax
|
|
; jnz @f
|
|
mov dword [esp+28],eax ;âåðíåì îøèáêó
|
|
;align 4
|
|
;@@:
|
|
popad
|
|
ret
|
|
align 4
|
|
free_font:
|
|
;îñâîáîäèòü ïàìÿòü âûäåëåíóþ äëÿ ïîëó÷åíèÿ áëîêîâ ÁÄÂÊ
|
|
pushad
|
|
mov ecx, dword [font_array_point]
|
|
mov eax,68
|
|
mov ebx,13
|
|
mcall
|
|
test eax,eax
|
|
; jnz @f
|
|
mov dword [esp+28],eax ;âåðíåì îøèáêó
|
|
;align 4
|
|
;@@:
|
|
popad
|
|
ret
|
|
|
|
align 4
|
|
; alloc mem get 4 Kb for own data
|
|
alloc_mem:
|
|
pushad
|
|
mov eax, dword [alloc_memory_point]
|
|
test eax,eax
|
|
jnz .mem_allocating
|
|
mov eax,68
|
|
mov ebx,12
|
|
mov ecx,4096
|
|
mcall
|
|
mov dword [alloc_memory_point],eax ; ïðè ïåðâîì âõîæäåíèè âûäåëÿåì 4 êá ÎÇÓ è ñîõðàíÿåì óêàçàòåëü
|
|
mov dword [eax],-1
|
|
popad
|
|
ret
|
|
align 4
|
|
.mem_allocating:
|
|
mov ebp, dword [eax]
|
|
mov eax,ebp
|
|
cmp eax, -1
|
|
jnz .mem_allocating
|
|
|
|
mov eax,68
|
|
mov ebx,12
|
|
mov ecx,4096
|
|
mcall
|
|
mov dword [ebp],eax ; ïðè ïåðâîì âõîæäåíèè âûäåëÿåì 4 êá ÎÇÓ è ñîõðàíÿåì óêàçàòåëü
|
|
mov dword [ebp],-1
|
|
popad
|
|
ret
|
|
|
|
align 16
|
|
EXPORTS:
|
|
|
|
dd sz_initialization_font, initialization_font
|
|
dd sz_get_font, get_font
|
|
dd sz_free_fulder_info, free_fulder_info
|
|
dd sz_free_font, free_font
|
|
dd sz_font_draw_on_string, font_draw_on_string
|
|
dd sz_show_all_glif, show_all_glif
|
|
; dd szVersion_ch, 0x00000001
|
|
; dd sz_option_box_draw, option_box_draw
|
|
; dd sz_option_box_mouse, option_box_mouse
|
|
dd szVersion_fn, 0x00000001
|
|
dd 0,0
|
|
|
|
sz_initialization_font db 'initialization_font',0
|
|
sz_get_font db 'get_font',0
|
|
sz_free_fulder_info db 'free_fulder_info',0
|
|
sz_free_font db 'free_font',0
|
|
sz_font_draw_on_string db 'font_draw_on_string',0
|
|
sz_show_all_glif db 'show_all_glif',0
|
|
;sz_check_box_mouse db 'check_box_mouse',0
|
|
;szVersion_ch db 'version_ch',0
|
|
;sz_option_box_draw db 'option_box_draw',0
|
|
;sz_option_box_mouse db 'option_box_mouse',0
|
|
szVersion_fn db 'version_fn',0
|
|
|
|
;;;;;;;;;;;
|
|
;;Data
|
|
;;;;;;;;;;;
|
|
align 4
|
|
;buffer_font file 'font_8x16.fon' ;øðèôò êîòîðûì áóäåì âûâîäèòü raw ôîðìàò 1bpp
|
|
save_ecx dd 0x0
|
|
;buffer_font file 'font01.ksf' ;øðèôò êîòîðûì áóäåì âûâîäèòü raw ôîðìàò 1bpp
|
|
alloc_memory_point dd 0x0 ; point to mem block in RAM 4096-4
|
|
;ñòðóêòóðà òàêàÿ â íà÷àëå âûäåëåíîãî áëîêà ðàçìåùàåòñÿ óêàçàòåëü íà äðóãîé âûäåëëíûé áëîê â 4096-4, åñëè ýòî áëîê ïîñëåäíèé, òî dd -1
|
|
font_x_y dd 0x0
|
|
fulder_array_point dd 0x0
|
|
font_array_point dd 0x0
|
|
font_array_data dd 0x0 ; ðåàëüíûå äàííûå ò.å. ìàòðèöà øðèôòà
|
|
save_ebp dd 0x0
|
|
save_point_nt dd 0x0
|
|
name_fulder db '/sys/FONTS',0
|
|
name_fuld_end= ($-name_fulder) -1
|
|
name_font db '.ksf',0
|
|
type_fnt db 'kf01'
|
|
|
|
|
|
|
|
align 16
|
|
struct_f_info:
|
|
number_function dd 0x0
|
|
index_start_block dd 0x0
|
|
flags_ dd 0x0
|
|
read_block dd 0x0
|
|
buffer_read_d dd buffer_32
|
|
free_byte db 0x0
|
|
offset_to_string dd name_fulder
|
|
|
|
align 16
|
|
file_buffer:
|
|
.type_fnt dd 0x0
|
|
.font_size dd 0x0
|
|
|
|
align 16
|
|
buffer_32:
|
|
.head dd ?
|
|
.quantity_block dd ?
|
|
.quantity_files dd ?
|
|
rb 20
|