| 0,0 → 1,81 |
|---|
| 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: |