1 files changed, 105 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/SETFSINF.ASM b/v4.0/src/MAPPER/SETFSINF.ASM
new file mode 100644
index 0000000..fb45a26
--- /dev/null
+++ b/v4.0/src/MAPPER/SETFSINF.ASM
@@ -0,0 +1,105 @@
+
+page 80,132
+;0
+title CP/DOS  DosSetFsInfo      mapper
+
+
+dosxxx  segment byte public 'dos'
+        assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
+;
+; ************************************************************************* *
+; *
+; *      MODULE: DosSetFsInfo
+; *
+; *      FUNCTION: This module will delete the volume label on a specified
+; *                drive.
+; *
+; *      CALLING SEQUENCE:
+; *
+; *                PUSH  WORD   DriveNumber       ; Drive Number
+; *                PUSH  OTHER  FSInfoLevel       ; File system info required
+; *                PUSH@ OTHER  FSInfoBuf         ; File system info buffer
+; *                PUSH  WORD   FSInfoBufSize     ; file system info buffer size
+; *                Call  DosSetFsInfo
+; *
+; *
+; *      MODULES CALLED:  DOS int 21H function 13H
+; *
+; *************************************************************************
+
+        public  DosSetFsInfo
+        .sall
+        .xlist
+        include macros.inc
+        include error.inc
+        .list
+
+str     struc
+old_bp  dw      ?
+return  dd      ?
+sbufsize dw     ?       ; info buffer size
+sbuffoff dw     ?       ; info buffer offset
+sbuffseg dw     ?       ; info buffer segment
+slevel  dw      ?       ; info level
+sdrive  dw      ?       ; drive number
+str     ends
+
+
+;-----------------------------------------------
+;---    Extended FCB, used to delete Volume Labels.
+;-----------------------------------------------
+Ext_FCB         db      0FFh                    ;Indicates extended FCB
+                db      0,0,0,0,0               ;Reserved
+FCB_Attr        db      08                      ;Attribute for vol label
+FCBDrive        db      0                       ;Drive number
+VLabel          db      "???????????"           ;Match any vol name found
+                db      25 dup (0)              ;Rest of the opened FCB
+
+
+
+
+
+
+
+
+DosSetFsInfo proc   far
+        Enter   DosSetfsinfo    ; push registers
+        mov     ax,[bp].sdrive  ; Get drive number
+        mov     FCBDrive,al     ; Place it in the extended FCB
+;--------------------------
+;-- FCB Delete old volume label
+;--------------------------
+        mov     ah,013h         ; FCB Delete
+        push    cs
+        pop     ds
+        mov     dx,offset Ext_FCB
+        int     021h            ; Call DOS to delete volume label
+;---------------------------------
+;-- Handle_Create new Volume label
+;---------------------------------
+        mov     cx,08h          ; Volume label attribute
+        mov     ah,03ch         ; Handle create new volume label
+        mov     dx,[bp].sbuffoff
+        push    [bp].sbuffseg
+        pop     ds
+        int     021h            ; Do it
+        jc      retrn           ; Oops, there was an error. Not surprised...
+;--------------------------
+;-- Close the Volume Label
+;--------------------------
+        mov     bx,ax           ; Place handle in BX
+        mov     ah,03eh         ; Close the volume label
+        int     021h            ; Do IT!
+
+
+deleted:
+        sub     ax,ax              ; set good return code
+retrn:
+        mexit                      ; pop registers
+        ret     size str - 6       ; return
+
+DosSetFsInfo  endp
+
+dosxxx  ends
+
+        end