added program for view list working drivers

git-svn-id: svn://kolibrios.org@9746 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/other/drv_view/SERVICES.ASM

@@ -0,0 +1,191 @@
+  use32
+  org    0
+
+  db     'MENUET01'
+  dd     1
+  dd     START
+  dd     I_END
+  dd     MEM
+  dd     STACKTOP
+  dd     PARAM
+  dd     0
+
+include '..\..\macros.inc'
+START:
+       mcall 40, 0x05
+       mov  eax, [PARAM]
+       test eax, eax
+       jnz  save_data
+still:
+       call draw
+       mcall 23, 200   ;2 seconds
+
+       cmp  eax,1
+       je   still
+       cmp  eax,3
+       jnz   still
+
+       mcall 17
+       cmp eax,1
+       jz  still
+       dec ah
+       jz  exit
+       dec ah
+       jnz still
+       ;2 - button save in file
+exit:
+       mcall -1
+draw:
+       mcall 68, 31, 1
+       mov [final_pointer], ecx
+       mov [start_pointer], ebx
+       mcall 48,3,sc,sc,sizeof.system_colors  ;get system colors
+       xor eax,eax
+       mov ebx, 0x00ff017f
+       mov ecx, 0x001501cc
+       mov edx, 0x14000000
+       add edx, [sc.work]
+       mov edi,title
+       mcall
+
+       ;mov eax, 13
+       ;mov ebx, 0x00080170
+       ;mov ecx, 0x0037018c
+       ;mov edx, [sc.work_text]
+       ;mcall
+        mcall 13, 0x00080170, 0x00370003, [sc.work_text]
+        mcall , , 0x01c00003, ;[sc.work_text]
+        mcall , 0x00080003, 0x0037018c, ;[sc.work_text]
+        mcall , 0x01780003, , ;[sc.work_text]
+
+       ;mov eax, 13
+       ;mov ebx, 0x000c016a
+       ;mov ecx, 0x003a0185
+       ;mov edx, [sc.work]
+       ;mcall
+
+       mov eax, 4
+       mov ebx, 0x000f001f
+       mov ecx, 0x90000000
+       add ecx, [sc.work_text]
+       mov edx, table_title
+       mcall
+
+       push dword[start_pointer]
+@@:
+       ;call get_next_service
+       mov eax, 68
+       mov ebx, 31
+       mov ecx, 2
+       mov edx, [esp]
+       mov edi, data_list
+       mcall
+
+       mov eax, 4
+       mov ebx, print_1
+       add ebx, [index_service]
+       mov ecx, 0xd0000000  ;draw bkgr
+       add ecx, [sc.work_text]
+       mov edx, data_list
+       mov edi, [sc.work]
+       mcall
+
+       mov eax, 47
+       mov ebx, default_settings_47
+       mov ecx, [esp]
+       mov edx, print_2
+       add edx, [index_service]
+       mov esi, 0x50000000
+       add esi, [sc.work_text]
+       mov edi, [sc.work]
+       mcall
+
+       mov eax, 47
+       mov ebx, default_settings_47
+       mov ecx, [data_list.srv_proc]
+       mov edx, print_3
+       add edx, [index_service]
+       mov esi, 0x50000000
+       add esi, [sc.work_text]
+       mov edi, [sc.work]
+       mcall
+
+       add dword[index_service],15
+       pop eax
+       cmp eax,[final_pointer]  ;eax - this_pointer
+       push dword[data_list.fd]
+       jnz @b
+       pop eax
+       and dword[index_service], 0 ; clear
+       ret
+;-------------------------------------------------------------------------------
+;This function get 'this_pointer' in stack, stack don`t used
+;get_next_service
+;        mov eax, 68
+;        mov ebx, 31
+;        mov ecx, 2
+;        mov edx, [esp+4]
+;        mov edi, data_list
+;        mcall
+;        ret
+;-------------------------------------------------------------------------------
+save_data:
+        mcall 70,file_str
+        mov  dword[file_str], 3
+        mov  dword[file_str.size], 36 ;40
+        mov  dword[file_str.addr], data_list
+        mcall 68, 31, 1
+        mov [final_pointer], ecx
+        mov [start_pointer], ebx
+        push dword[start_pointer]
+@@:
+        mov  eax, 68
+        mov  ebx, 31
+        mov  ecx, 2
+        mov  edx, [esp]
+        mov  edi, data_list
+        mcall
+        mcall 70, file_str
+        add  dword[file_str.pos], 36 ;40
+        pop  eax
+        cmp  eax,[final_pointer]  ;eax - this_pointer
+        push dword[data_list.fd]
+        jnz  @b
+        pop  eax
+        jmp  still
+        ret
+title:  db 'list_services',0
+table_title: db '  Service_name   |  Handler  |  Service_proc',0
+index_service:  dd 0
+start_pointer:  dd 0
+final_pointer:  dd 0
+
+data_list:
+.name:         rb 16
+.fd:           rd 1
+.bk:           rd 1
+.base:         rd 1
+.entry:        rd 1
+.srv_proc:     rd 1
+
+file_str:
+        dd      2 ;rewrite this value = 3
+.pos:   dd      0
+        dd      0
+.size:  dd      0
+.addr:  dd      0
+        ;db      '/tmp0/1/log_services.log',0
+        db      0
+        dd      PARAM
+sc system_colors
+
+default_settings_47 = 0x00080100
+print_1 = 0x0015003f
+print_2 = 0x00ac003f
+print_3 = 0x0113003f
+PARAM:  rb 256
+I_END:
+        rb 256
+align 16
+STACKTOP:
+MEM:

programs/other/drv_view/Tupfile.lua

@@ -0,0 +1,2 @@
+if tup.getconfig("NO_FASM") ~= "" then return end
+tup.rule("SERVICES.ASM", "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "drv_view")