TASM. Внешняя подпрограмма

[alex4321]

В учебных целях понадобилось сделать на ассемблере вызываемую из Turbox Pascal (некрофильство, а что делать :-) ) функцию, преобразующую число типа longint в строку с его двоичным представлением, т.е. вида :

function BinaryL(L:longint):string;external;

Написал такое :

code segment dword public
assume cs:code
public BinaryL

.386

BinaryL proc near
	L equ dword ptr[bp]
	Res equ dword ptr[bp+4]
	
	push bp
	push eax
	push ebx
	push cx
	
	mov bp,sp
	
	mov ebx,L
	les di,Res
	
	mov cx,32
	mov [di],32
	add di,32
	
	__loop__:
		dec ecx
		bt ebx,ecx
		inc ecx
		jc __m1__
		
		mov al,'0'
		jmp __move__
		
		__m1__:
			mov al,'1'
		
		__move__:
			stosb
			dec di
		
		loop __loop__	
	
	pop cx
	pop ebx
	pop eax
	pop bp
	
	ret 4
BinaryL endp
code ends
end

Вызываю так :

s:=BinaryL(10);

Но после mov ebx,L в bx по сведениям отладчика - совсем не ожидаемое 000A.
Хотя mov ebx,L сводится к mov ebx,[bp], адрес в bp - 3EE6, а по адресу 3EE6 - вполне 0A

Скриншот отладчика - во вложении.

Чего недостает чтобы таки поместить туда это 0A и откуда берутся 0460

[alex4321]

Дело было в неправильном методе вызова - для near-процедур нужен ключ {$F-}
Тему можно закрывать