v4.0/src/MAPPER/RMDIR.ASM

   1 page 80,132
   2
   3 title CP/DOS DosRmDir mapper
   4
   5 dosxxx  segment byte public 'dos'
   6         assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
   7
   8 ;**********************************************************************
   9 ;*
  10 ;*   MODULE:   dosrmdir
  11 ;*
  12 ;*   FUNCTION:  remove directory
  13 ;*
  14 ;*   CALLING SEQUENCE:
  15 ;*
  16 ;*       push@     asciiz  directory name
  17 ;*       push      dword   reserved (must be zero)
  18 ;*       call      dosrmdir
  19 ;*
  20 ;*   MODULES CALLED:  PC-DOS Int 21h, ah=3ah, remove subdirectory
  21 ;*
  22 ;*********************************************************************
  23
  24             public   dosrmdir
  25             .sall
  26             include  macros.inc
  27
  28 str         struc
  29 old_bp      dw       ?
  30 return      dd       ?
  31 rsrvd       dd       ?       ; reserved
  32 asciiz      dd       ?       ; directory name pointer
  33 str         ends
  34
  35 dosrmdir    proc     far
  36
  37             Enter    dosrmdir            ; push registers
  38
  39             lds      dx,[bp].asciiz      ; set pointer to directory name
  40
  41             mov      ah,3ah              ; load opcode
  42             int      21h                 ; remove directory
  43             jc       exit                ; check for error
  44
  45             sub      ax,ax               ; set good return code
  46 exit:       Mexit                        ; pop registers
  47             ret      size str - 6        ; return
  48
  49 dosrmdir    endp
  50
  51 dosxxx      ends
  52
  53             end