crear carpeta
se crea una carpeta
;Autor ing. Osvaldo Robles Piña
;URL
include macros.m
dosseg
.model small
.stack 100h
.data
m1 db'Ingresa nombre de tu carpeta: ',0
carpeta db'000000000000',0
m2 db'Desea crea otra carpeta 1=SI 0=NO: ',0
resp db'00',0
extrn esccad:proc
extrn lee:proc
extrn cadbin:proc
.code
mov dx,@data
mov ds,dx
inicio:
cursorrc 3,3
mov si,offset m1
mov ch,07
call esccad
mov si,offset carpeta
mov cl,10
mov ch,0
call lee
mov ah,39h
mov dx,offset carpeta
int 21h
cursorrc 4,3
mov si,offset m2
mov ch,07
call esccad
mov si,offset resp
mov cl,2
mov ch,1
call lee
mov si,offset resp
call cadbin
cmp cx,1
jz inicio
cmp cx,1
jnz fin
fin:
mov ah,4ch
int 21h
end
