home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 13.ddi / RTLDOS.ZIP / VECT.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-10-28  |  899 b   |  64 lines
  1.  
  2. ; *******************************************************
  3. ; *                            *
  4. ; *    Turbo Pascal Runtime Library Version 5.5    *
  5. ; *    Interrupt Vector Handling            *
  6. ; *                            *
  7. ; *    Copyright (C) 1988,89 Borland International    *
  8. ; *                            *
  9. ; *******************************************************
  10.  
  11.     TITLE    VECT
  12.  
  13. CODE    SEGMENT    BYTE PUBLIC
  14.  
  15.     ASSUME    CS:CODE
  16.  
  17.     PUBLIC    GetIntVec
  18.  
  19. GetIntVec    PROC    FAR
  20.  
  21. IntNo        EQU    (BYTE PTR [BP+10])
  22. VectorP        EQU    (DWORD PTR [BP+6])
  23.  
  24.     PUSH    BP
  25.     MOV    BP,SP
  26.     MOV    AL,IntNo
  27.     MOV    AH,35H
  28.     INT    21H
  29.     MOV    AX,ES
  30.     LES    DI,VectorP
  31.     CLD
  32.     XCHG    AX,BX
  33.     STOSW
  34.     XCHG    AX,BX
  35.     STOSW
  36.     POP    BP
  37.     RET    6
  38.  
  39. GetIntVec    ENDP
  40.  
  41.     PUBLIC    SetIntVec
  42.  
  43. SetIntVec    PROC    FAR
  44.  
  45. IntNo        EQU    (BYTE PTR [BP+10])
  46. Vector        EQU    (DWORD PTR [BP+6])
  47.  
  48.     PUSH    BP
  49.     MOV    BP,SP
  50.     PUSH    DS
  51.     LDS    DX,Vector
  52.     MOV    AL,IntNo
  53.     MOV    AH,25H
  54.     INT    21H
  55.     POP    DS
  56.     POP    BP
  57.     RET    6
  58.  
  59. SetIntVec    ENDP
  60.  
  61. CODE    ENDS
  62.  
  63.     END
  64.