[Admiral]

pogo, задачу нужно решить именно под DOS (для иллюстрации процесса с академической точки зрения, судя по коду это TASM)? Или же нужна именно такая программа, и для ОС отличной от DOS?

Если на второе да, и ОС для которой нужно решение - MS Windows, то для решения можно воспользоваться функциями CreateFile\WriteFile\CloseHandle.
Если нужен именно под DOS, то задача сведётся к поиску нужных прерываний по работе с файлами.

[pogo]

да использую tasm и tlink
Надо именно под DOS
да и прерывания в инете найти не проблема введя в любом поисковике ассемблер работа с файлами он всё выдаст...
у меня проблема именно с реализацией этих прерываний в коде программы...
помогите пожалуйста дописать прогу

[pogo]

Что на таком большом форуме никто ассемблера не знает?((

[ganselo]

Что на таком большом форуме никто ассемблера не знает?(( »

тебе на wasm.ru

[Admiral]

pogo, вот пример http://subscribe.ru/archive/comp.pro.../26170402.html
Исключительно по теме:

Код:

TITLE Write 2 File Example

;Запись в файл

DOSSEG
.MODEL TINY
.STACK 100h
.DATA
	szFileName DB 'My file.txt', '0'
	msgSize = $-szFileName
.CODE
.386
ENTRY PROC NEAR
	mov ax, @data
	mov ds, ax

;создаём файл
	mov ah, 3Ch	;Запись в файл или устройство
	lea dx, szFileName ; эквивалентно -> mov dx, offset szFileName
	xor cx, cx
	int 21h
;считаем что проблем с созданием не возникло (а так нужна проверка)
	mov bx, ax	; сохраняем описатель (handle) файла в bx
;пишем в файл
	mov ah, 40h
	lea dx, szFileName
	mov cx, msgSize
	int 21h
;закрываем файл
	mov ah, 3Eh
	int 21h

	mov ax, 4c00h
	int 21h
ENTRY ENDP
END

Создаётся файл с именем My file.txt с таким же содержанием + символ окончания строки.

[pogo]

Дошёл до того, что сделал 1 часть с пробелами:

Код:

	.MODEL small			;отводим под стек и под данные по 64Кб
	.STACK 100h				;отмечаем начало сегмента стека
	.386
	.DATA					;отмечаем начало сегмента данных
	NL		db		0Ah, 0Dh, '$'
    Buf		DB		255, 0, 256 DUP (0)     ;
	hFile	dw		?
	Filename	db		'file.txt',0
	.CODE				;отмечаем начало сегмента кодов
	main PROC
		mov		ax,@data		;копируем адрес
		mov		ds,ax		;сегмента данных
	
		mov dx, offset Buf
		mov ah, 0Ah
		int 21h				;запрашиваем строку
 
		mov dx, offset NL
		mov ah, 9h
		int 21h				;переводим строку на экране, выводя CRLF
 
		xor cx, cx 
		mov cl, [Buf+1]
		test cl, cl
		jz Exit				;проверяем длину строки - если пустая, то выходим
	
;		mov si, offset Buf+2		;если не пустая - то будем искать пробелы
;		add Buf+2,cl
		add bx, offset Buf+1
		add bl, cl
		mov	si, bx
last:
		mov		dl,[si]
		cmp		dl,' '
		jne		tmp
		dec		si
		dec		cx
		jmp		last
		
		
tmp:	mov si, offset Buf+2

first:	mov		dl,[si]
		cmp		dl,' '
		jne		Cycle
		inc		si
		dec		cx
		jmp		first
		
Cycle:
		mov dl, [si]			;берём очередной байт
		cmp dl, ' '			;сравниваем с пробелом
		jne	Print
		cmp 	dx,'  '			;а если пробел - то предыдущий был пробел или нет?
        je    NextChar		;если два пробела подряд - не печатаем
		
Print:
		mov     ah,02h		;выбор функции 2
		int     21h			;вызов DOS
		
NextChar:
		mov 	dh,dl		;сохранить текущий символ для теста на следующем витке
        inc 	si			;перейти к следующему символу
		
		loop	Cycle 
 
 
Exit:
		mov ax, 4c00h
		int 21h				;выходим из программы

    main    ENDP
    END main

как с файлом сделать теоретически я представляю,
взять полученную строку и посимвольно записать её в файл...
или записать всё в переменную, что бы в ней получилась обработанная строка...
Но я вообще не поднимаю как это в Ассемблере реализовать ((
я не понимаю как вообще в файл запись происходит...

[pogo]

Вот готовый рабочий код программы:
Программа просит ввести строку. Строка - слова разделённые 1 или несколькими пробелами, удалить лишние пробелы (вначале строки, в конце строки, 1 пробел между словами)
Результат вывести на экран и записать в файл (файл создаётся в процессе). Запись в файл организовать в процедуре.

Код:

	.MODEL small			;отводим под стек и под данные по 64Кб
	.STACK 100h				;отмечаем начало сегмента стека
	.386
	.DATA					;отмечаем начало сегмента данных
	NL		db		0Ah, 0Dh, '$'
        Buf		DB		255, 0, 256 DUP (0)     ;
	hFile	db	300	        dup(?)
	Filename	db		'file.txt',0
	.CODE				;отмечаем начало сегмента кодов
	main PROC
		mov		ax,@data		;копируем адрес
		mov		ds,ax		;сегмента данных
	
		mov dx, offset Buf
		mov ah, 0Ah
		int 21h				;запрашиваем строку
 
		mov dx, offset NL
		mov ah, 9h
		int 21h				;переводим строку на экране, выводя CRLF
 
		xor cx, cx 
		mov cl, [Buf+1]
		test cl, cl
		jz Exit				;проверяем длину строки - если пустая, то выходим
	
		add bx, offset Buf+1
		add bl, cl
		mov	si, bx
last:
		mov		dl,[si]
		cmp		dl,' '
		jne		tmp
		dec		si
		dec		cx
		jmp		last
		
		
tmp:	mov si, offset Buf+2
 
first:	mov		dl,[si]
		cmp		dl,' '
		jne		Cycle
		inc		si
		dec		cx
		jmp		first
 
		
Cycle:		lea di, hFile
		mov bx,0
 
Cycle1:		mov dl, [si]			;берём очередной байт
		cmp dl, ' '			;сравниваем с пробелом
		jne	Print
		cmp 	dx,'  '			;а если пробел - то предыдущий был пробел или нет?
       		je    NextChar		;если два пробела подряд - не печатаем
		
Print:
		mov	[di], dl
		inc	di
		mov     ah,02h		;выбор функции 2
		int     21h			;вызов DOS
		inc 	bx
				
NextChar:
		mov 	dh,dl		;сохранить текущий символ для теста на следующем витке
        	inc 	si			;перейти к следующему символу
		
		loop	Cycle1 
 		
		push 	bx
 
		mov ah, 3Ch			;если же добрались до конца - будем сохранять.
		mov dx, offset Filename
		xor cx, cx
		int 21h				;создаём файл
 
		pop	si		
 
		push	offset	hFile
		call	vivod
 
		mov ah, 3eh
		int 21h				;закрываем файл
 
Exit:
		mov ax, 4c00h
		int 21h				;выходим из программы
 
    main    ENDP
 
    vivod	proc
    mov bx, ax
    mov ah, 40h
    mov cx, si
    mov bp, sp
    add bp, 2
    mov dx, [bp]
    int 21h
    ret
    vivod	endp
    END main

Может кому пригодится ))