forked from KolibriOS/kolibrios
b5b499b8c8
Move to folder with tcc. Part 1 git-svn-id: svn://kolibrios.org@8793 a494cfbc-eb01-0410-851d-a64ba20cac60
82 lines
1.8 KiB
NASM
82 lines
1.8 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 '../../../../../debug-fdo.inc'
|
|
|
|
;__DEBUG__ = 1
|
|
;__DEBUG_LEVEL__ = 2
|
|
|
|
START:
|
|
stdcall dll.Load, @IMPORT
|
|
test eax, eax
|
|
jnz exit
|
|
|
|
cinvoke libc_strlen, test_str1
|
|
;DEBUGF 2, "%d", eax
|
|
mcall SF_SYS_MISC, SSF_MEM_ALLOC, eax
|
|
mov [test_str2], eax
|
|
|
|
cinvoke libc_sprintf, [test_str2], format_str, str_var, [dec_var], dword [float_var], dword[float_var+4], [hex_var]
|
|
cinvoke libc_puts, test_str1
|
|
cinvoke libc_puts, [test_str2]
|
|
|
|
cinvoke libc_strcmp, test_str1, [test_str2]
|
|
|
|
test eax, eax
|
|
jz print_succ
|
|
jmp print_fail
|
|
|
|
print_succ:
|
|
cinvoke libc_puts, success_msg
|
|
jmp exit
|
|
|
|
print_fail:
|
|
cinvoke libc_puts, failed_msg
|
|
|
|
exit:
|
|
mcall SF_SYS_MISC, SSF_MEM_FREE, [test_str2]
|
|
mcall SF_TERMINATE_PROCESS
|
|
|
|
; data
|
|
|
|
format_str db "%s %d %f 0x%x", 0
|
|
test_str1 db "Test 463 -26.432100 0x9d81", 0
|
|
test_str2 dd 0
|
|
|
|
str_var db "Test",0
|
|
dec_var dd 463
|
|
float_var dq -26.4321
|
|
hex_var dd 40321
|
|
|
|
success_msg db "Test successful!", 0
|
|
failed_msg db "Test failed!", 0
|
|
|
|
align 4
|
|
|
|
@IMPORT:
|
|
library libc, 'libc.obj'
|
|
import libc, \
|
|
libc_sprintf, 'sprintf', \
|
|
libc_strcmp, 'strcmp', \
|
|
libc_strlen, 'strlen', \
|
|
libc_puts, 'puts'
|
|
|
|
IM_END:
|
|
align 4
|
|
rb 1024 ; stack
|
|
MEM:
|