assume cs:code
code segment
    extrn TipMesaj:far
    Fct proc far
      public Fct
      push bp
      mov bp,sp
      x  equ  word ptr [bp+10]
      a  equ  word ptr [bp+8]
      b  equ  word ptr [bp+6]
      mov ax,x
      cmp ax,a
      jl et
      cmp ax,b
      jg et
      mov ax,b
      sub ax,x
      mov bx,1
      jmp sf
    et:
      mov ax,-1
      mov bx,0
    sf:
      push ax
      push bx
      call TipMesaj
      pop ax
      mov sp,bp
      pop bp
      ret 6
    Fct endp
code ends
end