v4.0/src/MAPPER/MKDIR.ASM

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