From 2d04cacc5322951f187bb17e017c12920ac8ebe2 Mon Sep 17 00:00:00 2001
From: Mark Zbikowski
Date: Thu, 25 Apr 2024 21:24:10 +0100
Subject: MZ is back!

---
 v4.0/src/MAPPER/QFILEMOD.ASM | 64 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 v4.0/src/MAPPER/QFILEMOD.ASM

(limited to 'v4.0/src/MAPPER/QFILEMOD.ASM')

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
-- 
cgit v1.2.3