1 files changed, 76 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/QHANDTYP.ASM b/v4.0/src/MAPPER/QHANDTYP.ASM
new file mode 100644
index 0000000..e9fcaaf
--- /dev/null
+++ b/v4.0/src/MAPPER/QHANDTYP.ASM
@@ -0,0 +1,76 @@
+;
+page 60,132
+;
+title CP/DOS  DOSQhandtype  mapper
+;
+dosxxx  segment byte public 'dos'
+        assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
+;
+; ************************************************************************* *
+; *
+; *      MODULE: DosQhandtype
+; *
+; *      FILE NAME: DosQhandtype
+; *
+; *      FUNCTION: Determine whether a handle is file or device
+; *
+; *      CALLING SEQUENCE:
+; *
+; *             push    handle          ; file handle
+; *             push@   handtype        ; handle type
+; *             push@   flagword        ; device descriptor word
+; *             call    dosqhandtype
+; *
+; *      RETURN SEQUENCE:
+; *
+; *             handle type:   0  - if a file
+; *                            1  - if a device
+; *      MODULES CALLED:
+; *
+; *
+; *************************************************************************
+
+        public  dosqhandtype
+        .sall
+        .xlist
+        include macros.inc
+        .list
+
+
+str     struc
+old_bp          dw    ?
+return          dd    ?
+AttributePtr    dd    ?      ; Device descriptor word returned if device
+HandleTypePtr   dd    ?      ; handle type; 0 = file handle, 1 = device handle
+Handle          dw    ?      ; file handle
+str     ends
+
+
+dosqhandtype proc   far
+
+        Enter   dosqhandtype            ; push registers
+
+        mov     bx,[bp].Handle          ; get file handle
+        mov     ax,4400h
+        int     21h                     ; get handle type
+
+        lds     si,[bp].AttributePtr    ; setup area for attribute return
+        mov     ds:[si],dx
+
+        lds     si,[bp].HandleTypePtr
+        mov     ds:word ptr [si],0      ; assume it is a file
+
+        test    dx,00080h               ; test for file
+        jz      ItIsAFile               ; jump if true
+
+        mov     ds:word ptr [si],1      ; else, it is a device, set flag
+
+ItIsAFile:
+        Mexit                           ; pop registers
+        ret     size str - 6            ; return
+
+dosqhandtype  endp
+
+dosxxx  ends
+
+        end