home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 13.ddi / RTLDOS.ZIP / KEEP.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-10-28  |  675 b   |  46 lines
  1.  
  2. ; *******************************************************
  3. ; *                            *
  4. ; *    Turbo Pascal Runtime Library Version 5.5    *
  5. ; *    TSR Support Routine                *
  6. ; *                            *
  7. ; *    Copyright (C) 1988,89 Borland International    *
  8. ; *                            *
  9. ; *******************************************************
  10.  
  11.     TITLE    KEEP
  12.  
  13. DATA    SEGMENT    WORD PUBLIC
  14.  
  15.     EXTRN    PrefixSeg:WORD
  16.  
  17. DATA    ENDS
  18.  
  19. CODE    SEGMENT    BYTE PUBLIC
  20.  
  21.     ASSUME    CS:CODE,DS:DATA
  22.  
  23.     PUBLIC    Keep
  24.  
  25. Keep        PROC    FAR
  26.  
  27. ExitCode    EQU    (BYTE PTR [BP+6])
  28.  
  29.     PUSH    BP
  30.     MOV    BP,SP
  31.     MOV    AX,PrefixSeg
  32.     MOV    ES,AX
  33.     MOV    DX,WORD PTR ES:2
  34.     SUB    DX,AX
  35.     MOV    AL,ExitCode
  36.     MOV    AH,31H
  37.     INT    21H
  38.     POP    BP
  39.     RET    2
  40.  
  41. Keep        ENDP
  42.  
  43. CODE    ENDS
  44.  
  45.     END
  46.