Crear y escribir un Archivo en ASM

; Crear un archivo en ASM	

	.model small
	.stack 100h
	.data

nombre	db	"c:\tasm\bin\bogota.txt",00h	;especificar directorio del archivo
maneja	dw	?
	.code
algo	proc	near
	mov	ax,@data
	mov	ds,ax
	mov	ah,3ch
	mov	cx,00
	lea	dx,nombre
	int	21h
	jc	salir
	mov	maneja,ax
salir:	mov	ax,4c00h
	int 	21h
	endp
	end	algo

; Escribir un archivo en ASM

	 .model	small
	 .stack	100h
	 .data
nombre	 db	"c:\tasm\bin\bogota.txt",00h
texto	 db	"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
maneja	 dw	?
	 .code
algo	 proc 	near
	 mov	ax,@data
	 mov	ds,ax
	 mov	ah,3ch
	 mov	cx,00
	 lea	dx,nombre
	 int	21h
	 jc	salir
	 mov	maneja,ax
	 mov	cx,500
nuevo:	 push	cx
	 mov	ah,40h
	 mov	bx,maneja
	 mov	cx,25
	 lea	dx,texto
	 int	21h
	 pop	cx
	 loop	nuevo
	 mov	ah,3eh
	 mov	bx,maneja
	 int	21h
salir:	 mov	ax,4c00h
	 int	21h
	 endp	
	 end	algo