1 files changed, 54 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/QVERIFY.ASM b/v4.0/src/MAPPER/QVERIFY.ASM
new file mode 100644
index 0000000..4ebd154
--- /dev/null
+++ b/v4.0/src/MAPPER/QVERIFY.ASM
@@ -0,0 +1,54 @@
+;
+page 80,132
+;
+title CP/DOS DosQVerify mapper
+;
+dosxxx  segment byte public 'dos'
+        assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
+;
+;**********************************************************************
+;*
+;*   MODULE:   dosqverify       Returns the value of the verify flag
+;*
+;*   FILE NAME: dos041.asm
+;*
+;*   CALLING SEQUENCE:
+;*
+;*       push@     word     verify setting
+;*       call      dosqverify
+;*
+;*   MODULES CALLED:  PC-DOS Int 21h, ah=54h, get verify setting
+;*
+;*********************************************************************
+
+            public   dosqverify
+            .sall
+            .xlist
+            include  macros.inc
+            .list
+
+str         struc
+old_bp      dw       ?
+return      dd       ?
+verify      dd       ?     ; return data area pointer
+str         ends
+
+dosqverify  proc    far
+            Enter   dosqverify             ; save registers
+
+            mov      ah,54h
+            int      21h                   ; get verify flag setting
+
+            lds      si,[bp].verify        ; setup return data area
+            cbw                            ; fill word
+            mov      word ptr [si],ax      ; save verify flag setting
+            sub      ax,ax                 ; set good return code
+
+exit:       Mexit                          ; pop registers
+            ret      size str - 6          ; return
+
+dosqverify  endp
+
+dosxxx      ends
+
+            end