1 files changed, 93 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/IOCTL.ASM b/v4.0/src/MAPPER/IOCTL.ASM
new file mode 100644
index 0000000..03302db
--- /dev/null
+++ b/v4.0/src/MAPPER/IOCTL.ASM
@@ -0,0 +1,93 @@
+page 80,132
+
+title CP/DOS DosDevIOCTl   mapper
+
+dosxxx  segment byte public 'dos'
+        assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
+;
+;**********************************************************************
+;*
+;*   MODULE:   dosdevioctl
+;*
+;*   FILE NAME: dos007.asm
+;*
+;*   CALLING SEQUENCE:
+;*
+;*       push@     dword   Data
+;*       push@     dword   Paramlist
+;*       push      word    Function
+;*       push      word    Category
+;*       push@     word    Devicehandle
+;*
+;*       call      doschgfileptr
+;*
+;*   MODULES CALLED:  PC-DOS Int 21h, ah=42h, move file pointer
+;*
+;*********************************************************************
+
+            public   dosdevioctl
+            .sall
+            .xlist
+            include  macros.inc
+            .list
+
+str         struc
+Old_bp      dw       ?
+Return      dd       ?
+Handle      dw       ?       ; handle
+Category    dw       ?       ; device category
+Function    dw       ?       ; device function
+Parmlist    dd       ?       ; command arguments
+Data        dd       ?       ; data area
+str         ends
+
+dosdevioctl     proc  far
+        Enter   dosdevioctl           ; push registers
+
+        mov     bx,[bp].handle        ; get handle
+
+        cmp     bx,0ffe5h             ; is it a device handle ??
+        jl      filehandle            ; branch if not
+
+; Convert DASD device handle to drive number as follows:
+;  Drive        Open    IOCTL
+;  Letter       Handle  DASD #
+; -----------------------------
+;    A           -2      1
+;    B           -3      2
+;    C           -4      3
+;    D           -5      4
+;    E           -6      5
+        neg     bx                    ; convert dev handle to
+        dec     bx                    ; drive number
+
+filehandle:
+        mov     ax,[bp].function      ; get function code
+        cmp     ax,020H               ; check for right function
+        je      continue1             ; continue if right function code
+        mov     ax,01H                ; else, load error code
+        jmp     exit                  ; return
+
+continue1:                            ; only category 8 is supported
+        mov     ax,[bp].category      ; set category
+
+        mov     ah,44h
+        int     21h                   ; do ioctl
+        jnc     continue              ; check for error
+
+        cmp     ax,1                  ; if error and return code = 1
+        jne     exit                  ; then it is network drive
+                                      ; therefore continue
+continue:
+        lds     si,[bp].data          ; media changable
+        mov     byte ptr [si],al      ; save in data area
+        xor     ax,ax                 ; set no error coe
+
+exit:   mexit                         ; pop registers
+        ret     size str - 6          ; return
+
+dosdevioctl  endp
+
+dosxxx      ends
+
+            end