home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / asm / PJ96.ZIP / ALIB.ZIP / GETVECTO.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-06-25  |  316 b   |  29 lines
  1.     include    asm.inc
  2.  
  3.     public    get_vector
  4.  
  5.     .code
  6.  
  7. ;;    get vector
  8. ;
  9. ;    entry    AL    vector #
  10. ;    exit    DS:SI    selected vector
  11. ;        Zf    if null vector
  12. ;    uses    AX
  13. ;
  14. get_vector proc
  15.     mov    ah,0
  16.     add    ax,ax
  17.     add    ax,ax
  18.     xchg    ax,si
  19.     xor    ax,ax
  20.     mov    ds,ax
  21.     lds    si,[si]
  22.     mov    ax,ds
  23.     or    ax,si
  24.     ret
  25. get_vector endp
  26.  
  27.  
  28.     end
  29.