;:::::::::::::::::::::::::::::::::::::::::
;:      Sito:  www.byteman.it  OpenWeb  ::
;:  Raccolta:  Particelle PAS+ASM       ::
;:    Autore:  Salvo Rosta aka byteman  ::
;:    Titolo:  XVERIFY.ASM              ::
;: Revisione:  30-09-1992               ::
;:::::::::::::::::::::::::::::::::::::::::

;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;:        XOPEN.ASM  -  Versione: 30-8-1992, a cura di Salvo Rosta.         ::
;:                                                                          ::
;: Procedure XSetVerify(B: Boolean) ;                                       ::
;: Function  XGetVerify: Boolean    ;                                       ::
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
CODE      SEGMENT BYTE PUBLIC
          ASSUME  CS:CODE
          PUBLIC  XSetVerify, XGetVerify

Setting   EQU     BYTE  PTR [BP+6]

ProcUno   PROC    FAR

XGetVerify:
          MOV     AH,54H              ;Dos Func To Get Verify
          INT     21H                 ;Get Status
          RET

XSetVerify:
          PUSH    BP
          MOV     BP,SP
          XOR     DL,DL               ;DL Must be 0 for DOS version <= 2.0
          MOV     AL,Setting          ;1 = On, 0 = Off
          MOV     AH,2Eh              ;Dos Func To Set Verify
          INT     21H                 ;Set Verification
          POP     BP
          RET     2

ProcUno   ENDP


CODE      ENDS
          END