forked from KolibriOS/kolibrios
71 lines
2.0 KiB
NASM
71 lines
2.0 KiB
NASM
|
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:
|