1 files changed, 70 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/DELETE.ASM b/v4.0/src/MAPPER/DELETE.ASM
new file mode 100644
index 0000000..c9dae66
--- /dev/null
+++ b/v4.0/src/MAPPER/DELETE.ASM
@@ -0,0 +1,70 @@
+;
+page 80,132
+;
+title CP/DOS  DosDelete  mapper
+;
+dosxxx  segment byte public 'dos'
+        assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
+;
+; ************************************************************************* *
+; *
+; *      MODULE: DosDelete
+; *
+; *      FILE NAME: DOS012.ASM
+; *
+; *      FUNCTION: This module removes a directory entry associated with a
+; *                filename.
+; *
+; *
+; *      CALLING SEQUENCE:
+; *
+; *                PUSH@ ASCIIZ FileName  ;  FileName path
+; *                PUSH@ DWORD 0          ;  Reserved (must be zero)
+; *                CALL  DosDelete
+; *
+; *      RETURN SEQUENCE:
+; *
+; *                IF ERROR (AX not = 0)
+; *
+; *                   AX = Error Code:
+; *                   o   Invalid file path name
+; *
+; *      MODULES CALLED:  DOS int 21H  function 41H
+; *
+; *
+; *
+; *************************************************************************
+
+        public  DosDelete
+        .sall
+        .xlist
+        include macros.inc
+        .list
+
+str     struc
+old_bp  dw      ?
+return  dd      ?
+dtrm12  dd      ?       ; reserved, always 0
+asc012  dd      ?       ; file name path pointer
+str     ends
+
+DosDelete  proc   far
+        Enter   DosDelete                   ; push registers
+
+        lds     dx,dword ptr [bp].asc012    ; file path name
+
+        mov     ah,041h
+        int     21h                         ; delete the file
+        jc      err012                      ; jump if no error
+
+        sub     ax,ax                       ; set good return code
+
+err012:
+        mexit                               ; pop registers
+        ret     size str - 6                ; return
+
+DosDelete  endp
+
+dosxxx  ends
+
+        end