Подсчет количства слов в текстовом файле

.286 
.model tiny
.code
org 100h
start:  
    mov ax,3D00h;
    mov dx,offset string;
    int 21h;

;.386
 
.MODEL tiny
 
.stack 256
 
org 100h
 
 DATASEG
 
FileName DB 'C:/asm/data.dat',0h
 
buffer label byte
 
;buffer db 1
 
String db   5 dup (?),'$' ; Резервируем 5 байт для строки
 
StringEnd   =   $-1 ; Указывает на символ '$'
 
 CODESEG
 
Start:
 
;открываю файл
 
mov dx, OFFSET FileName
 
mov ah,3dh
 
mov al,2 ;доступ
 
int 21h
 
mov bx,1; становить счётчик = 1
 
mov cx,1 ;читать байт
 
mov dx,offset buffer
 
read_next:
 
mov ah,3fh
 
int 21h
 
dec ax
 
js end_prog ;
 
cmp byte ptr buffer,32h ; если не считан пробел,
 
jne read_next ; считать следующий байт,
 
inc bx ; иначе - увеличить счётчик
 
jmp read_next ; считать следующий байт
 
end_prog:
 
; вывести содержимое счётчика
 
std ; Устанавливаем ОБРАТНЫЙ порядок записи
 
lea di,StringEnd-1 ; ES:DI = последний символ строки String
 
mov ax, bx ; Заносим в AX число для перевода
 
 ; Начинаем перевод числа AX в строку
 
mov cx,10 ; Задаемся делителем CX = 10
 
re:
 
xor dx,dx ; Обнуляем DX (для деления)
 
div cx ; Делим DX:AX на CX (10),
 
; Получаем в AX частное, в DX остаток
 
xchg    ax,dx ; Меняем их местами (нас интересует остаток)
 
add al,'0' ; Получаем в AL символ десятичной цифры
 
stosb ; И записываем ее в строку
 
xchg    ax,dx ; Восстанавливаем AX (частное)
 
or  ax,ax ; Сравниваем AX с 0
 
jne re ; Если не ноль, то повторяем
 
; Теперь осталось вывести строку на экран
 
mov ah,9
 
lea dx,[di+1] ; Заносим в DX адрес начала строки
 
int 21h ; Выводим ее на экран
 
int 20h ; Выходим из программы
 
End Start

MODEL SMALL
 
STACK 256
 
DATASEG
 
;FileName DB 'data.dat',0h,'$'
 
FileName DB 'wnp.txt',0h,'$'
 
buffer DB 1024 dup (?) ; 1kB
 
count DW 0h ; количество слов
 
String db 5 dup (?),'$' ; Резервируем 5 байт для строки
 
StringEnd = $-1 ; Указывает на символ '$'
 
CODESEG
 
Start:
 
mov ax,@data ; установка в ds адреса
 
mov ds,ax ; сегмента данных
 
mov es,ax
 
;открываю файл
 
mov dx,offset FileName
 
mov ah,3dh
 
mov al,0 ; доступ
 
int 21h
 
mov bx,ax ; дескриптор файла в ВХ
 
mov cx,1024 ; читать по 1kB
 
mov dx,offset buffer
 
xor di, di ; флаг что предидущий символ не буква
 
 
 
read_next:
 
mov ah,3fh ; читаем
 
int 21h
 
cmp ax,0
 
je end_prog ; если 0 файл закончился
 
xor si, si
 
 
 
L: ; перебираем буфер
 
cmp byte ptr buffer[si], 'a'
 
jb AZ ; если <a проверяемы на большие
 
cmp byte ptr buffer[si], 'z'
 
ja is_not_char ; если >z переходим к следующему символу
 
jmp is_char ; буква
 
AZ:
 
cmp byte ptr buffer[si], 'A'
 
jb is_not_char
 
cmp byte ptr buffer[si],'Z'
 
ja is_not_char ; если не буква переходим к следующему
 
 
 
is_char:
 
cmp di, 0h
 
jne check_buff ; если пред идущий символ был буквой продолжаме
 
inc di  ; иначе запоминаем
 
inc count ; и увеличиваем количество слов
 
jmp check_buff
 
 
 
is_not_char:
 
xor di, di
 
 
 
 
 
check_buff:
 
inc si
 
cmp ax,si
 
je read_next ; считать следующий буфер
 
jmp L
 
end_prog:
 
mov ah,3eh ; закрыть файл
 
int 21h
 
std ; Устанавливаем ОБРАТНЫЙ порядок записи
 
lea di,StringEnd-1 ; ES:DI = последний символ строки String
 
;pop ax
 
mov ax,count
 
; Начинаем перевод числа AX в строку
 
mov cx,10 ; Задаемся делителем CX = 10
 
Repeat:
 
xor dx,dx ; Обнуляем DX (для деления)
 
div cx ; Делим DX:AX на CX (10),
 
; Получаем в AX частное, в DX остаток
 
xchg ax,dx ; Меняем их местами (нас интересует остаток)
 
add al,'0' ; Получаем в AL символ десятичной цифры
 
stosb ; И записываем ее в строку
 
xchg ax,dx ; Восстанавливаем AX (частное)
 
or ax,ax ; Сравниваем AX с 0
 
jne Repeat ; Если не ноль, то повторяем
 
; вывести строку на экран
 
mov ah,09h
 
lea dx,[di+1] ; Заносим в DX адрес начала строки
 
int 21h ; Выводим ее на экран
 
; выходим
 
mov ah,04Ch
 
mov al,0h
 
int 21h
 
End Start