Added microtar library(mtar.obj)

(Library for working with tar archives)

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

programs/develop/libraries/microtar/example/write.asm

@@ -0,0 +1,70 @@
+format binary as "kex"
+
+use32
+        org     0x0
+        db      'MENUET01'      
+        dd      0x01            
+        dd      START           
+        dd      IM_END          
+        dd      MEM  
+        dd      MEM
+        dd      0
+        dd      0
+
+include '../../../../macros.inc'
+include '../../../../proc32.inc'
+include '../../../../KOSfuncs.inc'
+include '../../../../dll.inc'
+include '../mtar.inc'
+;include '../../../../debug-fdo.inc'
+
+;__DEBUG__               = 1
+;__DEBUG_LEVEL__         = 2  
+
+START:
+        stdcall dll.Load, @IMPORT ; Имортироуем функции из mtar.obj
+        test    eax, eax
+        jnz     exit
+      
+        ccall [mtar_init] ; Инициализируем библиотеку (на самом деле подгружается libc.obj
+        ccall [mtar_open], tar, tar_fname, tar_fmode ; Создаём новый файл 'test.tar'
+        ccall [mtar_write_file_header], tar, test1_txt , str1_len ; Создаём внутри 'test.tar' пустрой файл 'test1.txt'
+        
+        ccall [mtar_write_data], tar, str1,  str1_len ; Записываем данныев в этот файл
+        
+        ccall [mtar_finalize], tar  ; Указываем что больше с tar работать не будем
+        ccall [mtar_close], tar ; Закрываем 'test.tar'
+        
+exit:
+        mcall   SF_TERMINATE_PROCESS ; Выходим из программы
+        
+; data
+
+str1 db 'Hello world!', 0
+str1_len = $ - str1
+
+str2 db 'Goodbye world!', 0
+       
+tar_fname db 'test.tar', 0
+tar_fmode db 'w', 0
+
+test1_txt db 'test1.txt', 0
+
+tar rb 32 
+
+align 4
+
+@IMPORT:
+library mtar,   'mtar.obj'
+import  mtar,   \
+        mtar_init, 'mtar_init', \
+        mtar_open, 'mtar_open', \
+        mtar_write_file_header, 'mtar_write_file_header', \
+        mtar_write_data, 'mtar_write_data', \
+        mtar_finalize, 'mtar_finalize', \
+        mtar_close, 'mtar_finalize'
+
+IM_END:
+align   4
+rb      4096    ; stack
+MEM: