home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 13.ddi / RTLDOS.ZIP / CBRK.ASM next >
Encoding:
Assembly Source File  |  1992-10-28  |  743 b   |  53 lines
  1.  
  2. ; *******************************************************
  3. ; *                            *
  4. ; *    Turbo Pascal Runtime Library Version 5.5    *
  5. ; *    Ctrl-Break Flag Handling            *
  6. ; *                            *
  7. ; *    Copyright (C) 1988,89 Borland International    *
  8. ; *                            *
  9. ; *******************************************************
  10.  
  11.     TITLE    CBRK
  12.  
  13. CODE    SEGMENT    BYTE PUBLIC
  14.  
  15.     ASSUME    CS:CODE
  16.  
  17.     PUBLIC    GetCBreak
  18.  
  19. GetCBreak    PROC    FAR
  20.  
  21. BreakP        EQU    (DWORD PTR [BP+6])
  22.  
  23.     PUSH    BP
  24.     MOV    BP,SP
  25.     MOV    AX,3300H
  26.     INT    21H
  27.     LES    DI,BreakP
  28.     MOV    ES:[DI],DL
  29.     POP    BP
  30.     RET    4
  31.  
  32. GetCBreak    ENDP
  33.  
  34.     PUBLIC    SetCBreak
  35.  
  36. SetCBreak    PROC    FAR
  37.  
  38. Break        EQU    (BYTE PTR [BP+6])
  39.  
  40.     PUSH    BP
  41.     MOV    BP,SP
  42.     MOV    DL,Break
  43.     MOV    AX,3301H
  44.     INT    21H
  45.     POP    BP
  46.     RET    2
  47.  
  48. SetCBreak    ENDP
  49.  
  50. CODE    ENDS
  51.  
  52.     END
  53.