pro-Gramas tu biblioteca de programacion

.model tiny
.stack
.data
	cad db 'Estas en $'
	unidad db 'ABCDEFGH'
	ruta db 30 dup(' '),'$'
 
.code
.startup
	mov ah,19h ;Me fijo en que Unidad estas
	int 21h
	push ax
	mov ah,09h
	lea dx,cad	;Posiciono la direccion de la cadena
	int 21h
	pop ax
	mov bl,al
	mov dl,unidad[BX] ;posiciono la direccion en la cadena,
					  ;en la letra donde estoy
	mov ah,02h
	int 21h
 
	mov ah,47h	;Optener la carpta en que estoy
	mov dl,03h	;Unidad donde quiero conocer el directorio
	lea si,ruta	;En ruta guarde el nombre de directorio en el
				;que estoy
	int 21h
 
	mov ah,09h
	LEA DX, ruta
	int 21h
 
.exit
end