;Copyright 2000 - Mark McDonald All rights reserved
; DECLARE: FUNCTION ISCTRLBREAK() AS INTEGER
; DESC:    Return the status of Ctrl-Break checking by DOS.
; EXAMP:   Status = ISCTRLBREAK

MCODE   Segment Byte
        Assume  CS: MCODE

        Public  SETBREAK

SETBREAK Proc Far
ARG     Digit:  WORD = Retbytes
        push    BP
        push    DS                      ;

        mov     AX, 3301h               ; get Ctrl-Break checking status
        mov     DX,digit                ; clear AX
        int     21h                     ; call DOS
;       neg     AX                      ; make it negative
        mov     AX, 3301h               ; get Ctrl-Break checking status
        xor     AX,AX                   ; clear AX
        int     21h                     ; call DOS

        pop     DS                      ;
        pop     BP                      ;
        retf                            ;
SETBREAK EndP
MCODE   EndS
        End