kolibrios/programs/develop/cObj/trunk/cObj.asm
Nasarus 7ef2a89c79 cObj program added (author: Albom)
git-svn-id: svn://kolibrios.org@1655 a494cfbc-eb01-0410-851d-a64ba20cac60
2010-10-11 19:36:46 +00:00

148 lines
2.1 KiB
NASM

use32
org 0
db 'MENUET01'
dd 1
dd _start
dd _end
dd _memory
dd _stack
dd _param
dd 0
;=========================================
_start:
mov ah, byte [_param]
test ah, ah
jz _exit
call console_lib_init
push cobj_caption
push -1
push -1
push -1
push -1
call [con_init]
mov eax, 68
mov ebx, 19
mov ecx, _param
int 0x40
test eax, eax
jz _exit_and_close_console
mov edx, eax
_main_loop:
cmp dword [edx], 0
je _exit_and_close_console
push dword [edx]
push specification
call [con_printf]
add esp, 8
add edx, 8
jmp _main_loop
_exit_and_close_console:
push 0
call [con_exit]
_exit:
mov eax, -1
int 0x40
;=========================================
console_lib_init:
; load DLL
mov eax, 68
mov ebx, 19
mov ecx, console_lib_name
int 0x40
test eax, eax
jz _exit
; initialize import
mov edx, eax
mov esi, console_lib_import
import_loop:
lodsd
test eax, eax
jz import_done
push edx
import_find:
mov ebx, [edx]
test ebx, ebx
jz _exit;import_not_found
push eax
@@:
mov cl, [eax]
cmp cl, [ebx]
jnz import_find_next
test cl, cl
jz import_found
inc eax
inc ebx
jmp @b
import_find_next:
pop eax
add edx, 8
jmp import_find
import_found:
pop eax
mov eax, [edx+4]
mov [esi-4], eax
pop edx
jmp import_loop
import_done:
ret
;=========================================
console_lib_name db '/sys/lib/console.obj',0
align 4
console_lib_import:
dll_start dd aStart
con_init dd aConInit
con_exit dd aConExit
con_printf dd aCon_printf
dd 0
aStart db 'START',0
aConInit db 'con_init',0
aConExit db 'con_exit',0
aCon_printf db 'con_printf',0
;=========================================
cobj_caption db 'cObj v0.2 by Albom',0
specification db '%s',13,10,0
;=========================================
_param:
db 0
rb 256
_end:
align 32
rb 2048
_stack:
_memory:
;=========================================