forked from KolibriOS/kolibrios
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:
|