例8.13

例8.13 编写一个创建子目录的程序，具体要求如下：
1)、用键盘输入一个目录路径名，若输入的字符串为空，则程序运行结束；
2)、若目录创建成功，显示成功信息，否则，显示创建失败信息。

解：
	.MODEL　SMALL .DATA 　 DName　DB　30, ?, 30 DUP(?), 0 　 SMsg　 DB　"Ok", 10, 13, "$" 　 FMsg　 DB　"Failure", 10, 13, "$" .CODE
		.STARTUP
	again:
		MOV	AH, 0AH
		LEA	DX, DName
		INT	21H	;输入目录名
		MOV	BL, DName+1
		CMP	BL, 0
		JZ	over	;检查输入的字符串是否为空
		XOR	BH, BH
		MOV	DName[BX+2], 0	;确保字符串以0为结束标志
		MOV	DX, Offset DName+2
		MOV	AH, 39H
		INT	21H	;以当前输入的字符串来创建目录
		.IF CARRY? 　　LEA　DX, FMsg .ELSE 　　LEA　DX, SMsg .ENDIF
		MOV	AH, 9H
		INT	21H
		JMP	again
	over:
		.EXIT	0
		END