
; *******************************************************
; *                                                     *
; *     Turbo Pascal Runtime Library Version 5.5        *
; *     Ctrl-Break Flag Handling                        *
; *                                                     *
; *     Copyright (C) 1988,89 Borland International     *
; *                                                     *
; *******************************************************

        TITLE   CBRK

CODE    SEGMENT BYTE PUBLIC

        ASSUME  CS:CODE

        PUBLIC  GetCBreak

GetCBreak       PROC    FAR

BreakP          EQU     (DWORD PTR [BP+6])

        PUSH    BP
        MOV     BP,SP
        MOV     AX,3300H
        INT     21H
        LES     DI,BreakP
        MOV     ES:[DI],DL
        POP     BP
        RET     4

GetCBreak       ENDP

        PUBLIC  SetCBreak

SetCBreak       PROC    FAR

Break           EQU     (BYTE PTR [BP+6])

        PUSH    BP
        MOV     BP,SP
        MOV     DL,Break
        MOV     AX,3301H
        INT     21H
        POP     BP
        RET     2

SetCBreak       ENDP

CODE    ENDS

        END
