Предача прараметров

SendByte    Proc    NEAR    ; (D:Word);
    Public  SendByte

    PUSH    EBP
    MOV EBP,ESP
    Push    EBX

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    Mov AH,0        ; Получить
    Int 1AH     ; значение текущего времени в тиках
    And DX,3
    Mov T1,DX
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
M0: Mov  DX,RLPT_SI   ; Регистр состояния порта
    In   AL,DX        ; Проверить готовность контроллера
    Test AL,01000000b ;  к приему очередного байта
    JNE   M0S

    Mov AH,0        ; Получить
    Int 1AH     ; значение текущего времени в тиках
    And DX,7
    Sub DX,T1
    Cmp DX,2
    JNE M0
    Mov EAX,-1
    Jmp ErrB


M0S:    Mov EBX,[EBP+8]
    MOV AX,[EBX]

    Mov DX,RLPT_D    ; Регистр данных порта
    Out DX,AL        ; Послать байт в порт
    Mov DX,RLPT_SO   ; Регистр управления
    Mov AL,00000001b ; Выдать сигнал

    Cmp Osc,0           ; Подавать тактовую частоту?
    JNE M11
    Or  AL,00000100b    ; Выключить подачу тактовой частоты

M11:    Out  DX,AL      ;  установленных данных

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    Mov AH,0        ; Получить
    Int 1AH     ; значение текущего времени в тиках
    And DX,3
    Mov T1,DX
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
M2: Mov  DX,RLPT_SI     ; Регистр состояния порта
    In  AL,DX       ; Подождать пока
    Test    AL,01000000b    ;  контроллер
    JE  M2S     ;  прочитает данные

    Mov AH,0        ; Получить
    Int 1AH     ; значение текущего времени в тиках
    And DX,7
    Sub DX,T1
    Cmp DX,2
    JNE M2
    Mov EAX,-2
    Jmp ErrB

M2S:    Mov  DX,RLPT_SO   ; Регистр управления
    Mov  AL,00000000b ; Снять сигнал

    Cmp Osc,0           ; Подавать тактовую частоту?
    JNE M3
    Or  AL,00000100b    ; Выключить подачу тактовой частоты
M3: Out DX,AL       ;  выставленных данных
    Mov EAX,0

ErrB:   Pop EBX
    Pop EBP
    Ret

SendByte    EndP;

function Foo(X, Y: Integer): Longint;  
asm
  MOV EAX, X
  ...
end;