Запись в файл

[Akimich]

Привет всем, не получается сделать процедуру записывающую в файл сначала русский, а затем латинский алфавит. Причем каждая буква идет два раза, сначала заглавная, потом строчная (Аа Бб и т.д). Практически все что касается операций:открытие файла и закрытие файла я разобрался, проблемы возникли как раз в записи алфавита, помогите пожалуйста написать эту процедуру

[Stilet]

Хвастайся наработками )

[Akimich]

Операции открытие файла, запись в файл и закрытие файла реализованы в виде макросов, отдельно скинул в архив.

.model small
include files.inc
.stack 100h
PrintStr macro str
PUSH ax
PUSH dx
MOV ah,09h
LEA dx,str
INT 21h
POP dx
POP ax
endm
.data
file db 'test.txt',0
len db 0
file_handle dw 0
.code

start:
MOV ax,@data
MOV ds,ax
MOV len,al
fcreate file
fopen file
MOV file_handle,???
fwrite file_handle,file,len
fclose file_handle
exit:
MOV ax,4c00h
INT 21h
end start

[r9m]

какой компилятор?

и чё это?

fcreate file
fopen file

[Goodwin98]

какой компилятор?

тасм

и чё это?

fcreate file
fopen file

наверно об этом говорил

Операции открытие файла, запись в файл и закрытие файла реализованы в виде макросов, отдельно скинул в архив.

[Akimich]

Компилятор Tasm вот эти макросы:

GetStr	macro	Buf,MaxLen
	local	m,TmpBuf
	JMP	m
	TmpBuf	label	byte
	rept	MaxLen+3
	db	' '
	endm
m:
	PUSH ds
	PUSH es
	PUSH dx
	PUSH cx
	XOR	cx,cx
	MOV	cs:TmpBuf,MaxLen+1
	MOV	ah,0ah
	PUSH	ds
	POP	es
	PUSH	cs
	POP	ds
	LEA	dx,cs:TmpBuf
	INT	21h
	MOV	al,cs:TmpBuf+1

	MOV	cl,al	;длина введенной строки в al
	LEA	si,cs:TmpBuf+2	;откуда - ds:si
	LEA	di,buf	;куда - es:di
REP	MOVSB
	POP cx
	POP dx
	POP es
	POP ds
	endm

fopen macro File_name
MOV ax,3D02h
MOV dx,offset File_name
int 21h
endm
fclose macro handle
MOV ah,3eh
MOV bx,handle
INT 21h
endm
fwrite macro handle,buffer,len
MOV ah,40h
MOV bx,handle
MOV cl,len
MOV dx,offset buffer
INT 21h
endm

fcreate macro file_name
XOR ax,ax
XOR cx,cx
MOV ah,3ch
MOV dx,offset file_name
INT 21h
endm