1 files changed, 64 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/QFILEMOD.ASM b/v4.0/src/MAPPER/QFILEMOD.ASM
new file mode 100644
index 0000000..59fc70c
--- /dev/null
+++ b/v4.0/src/MAPPER/QFILEMOD.ASM
@@ -0,0 +1,64 @@
+page 80,132
+
+title CP/DOS DosQFileMode mapper
+
+dosxxx  segment byte public 'dos'
+        assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
+;
+;**********************************************************************
+;*
+;*   MODULE:   dosqfilemode     Read file attribute
+;*
+;*   FUNCTION:  Query file mode
+;*
+;*   CALLING SEQUENCE:
+;*
+;*       push@     asciiz   file path name
+;*       push@     word     attribute return area
+;*       push      dword    reserved
+;*       call      dosqfilemode
+;*
+;*   MODULES CALLED:  PC-DOS Int 21h, ah=43h, change file mode
+;*
+;*********************************************************************
+
+            public   dosqfilemode
+            .sall
+            .xlist
+            include  macros.inc
+            .list
+
+error_code  equ      0002h
+
+str         struc
+old_bp      dw       ?
+return      dd       ?
+rsrvd       dd       ?
+Attrib      dd       ?       ; current attribute pointer
+Path        dd       ?       ; file path name pointer
+str         ends
+
+dosqfilemode proc    far
+            Enter    dosqfilemode        ; push registers
+
+            lds      dx,[bp].path        ; set path name
+
+            mov      ax,4300h            ; set op code
+            int      21h                 ; get file mode
+            jc       error               ; jump if error
+
+            lds      si,[bp].attrib      ; setup return data area
+            mov      word ptr [si],cx    ; save attribute there
+            sub      ax,ax               ; set good return code
+            jmp      short exit          ; return
+
+error:      mov      ax,error_code       ; set error code
+
+exit:       mexit                        ; pop registers
+            ret      size str - 6        ; return
+
+dosqfilemode endp
+
+dosxxx      ends
+
+            end