Что именно нужно упростить?

Если можно, написать более простой код

Могу предложить свой вариант... Хотите?

Да, пожалуйста, Игорь Витальевич!И комментарии тоже. Огромная благодарность за комментарии к прошлому вопросу...

Если можно, написать более простой код

Куда ещё проще, из кода убрано всё лишнее.

Программа логически делится на три участка(выделено пустыми строчками).
1)анализ командной строки, получение имени файла и его открытие;
2)цикл задания, т.е. поиск и подсчет запятых в файле;
3)закрытие файла, и вывод результата.

Отдельно по каждому пункту:
1)Системный загрузчик в запущеную программу передает аргументы командной строки и записывает их в префиксе программы по адресу DS:080h. Первый байт содержит длину переданных аргументов. Если длина больше нуля, то второй байт будет пробелом, после этого сам параметр(ы) и все это заканчивается кодом 0Dh. Если параметров нет, то там будет ноль, а следующий байт будет содержать код 0Dh. Строки lodsb | or al,al | jz noCommandLine занимаются именно этой проверкой. Если есть параметр в командной строке, он копируется в буфер программы dbFileName label byte | dbBlock db szBlock dup(?) вместе с замыкающим кодом 0Dh. В случае, когда параметров нет - будет переход на метку noCommandLine и программа попросит пользователя ввести имя файла(с помощью функций 09h и 0Аh - прерывания ДОС 21h), Введеная строка будет размещена в буфере программы. Тем или иным способом программа получает имя проверяемого файла, но пока ещё не готова открывать его, т.к. для функции 3Dh прерывания ДОС 21h, необходимо, что бы строка заканчивалась кодом 0, а у нас там пока 0Dh. Исправлением этого занимается цикл setMarker: inc di | cmp byte ptr[di],0Dh | jnz setMarker, следующие строчки xor ax,ax | stosb записывают вместо найденого кода 0. Только после этого открывается сам файл. Если ошибки нет то переходим к следующему этапу, иначе выводится сообщение об ошибке и останов.

2)С помощью фунции 3Fh прерывания ДОС 21h из файла считывается блок данных размером szBlock (у нас это 256 байт). Если не было ошибки, то начинается цикл проверки, иначе файл закрывается, выводится сообщение об ошибке и останов. Цикл проверки:

Для проверки используется строковая команда lodsb - содержимое памяти DS:SI помещается в аккумулятор, в данном случае это AL и значение SI увеличивается на размер операнда, сравнивается с искомым cmp al,',' и при совпадениии увеличивается счетчик. Так будет продолжатся пока не будет проверены все прочитанные данные. Следующие строчки проверяют файл на окончание:

После выполнения фунции чтения с диска в регистре АХ находится реально считаное количество байт, и если оно не совпадает со значением в регистре СХ, значит файл прочитан полностью и в нем больше нет информации для проверки.

3)Файл проверен полностью, его закрывают с помощью функции 3Еh прерывания ДОС 21h. Выводится результаты работы с помощью функции 09h прерывания ДОС 21h(выводится строка) и прерывания 29h само числовое значение.
Вывод числа делится на два этапа деление выводимого числа на десять и помещение остатка от деления в стек, после этого вывод полученых остатков от деления на экран в нужном порядке.


Код с добавлеными комментариями:
[code h=200]model tiny;модель памяти
.code;сегмент код-данных-стека
org 100h;стандартное смеение под заголовок
szBlock equ 256;размер выделеного блока
begin: xor ax,ax;содержимое Ах=0
mov dwCount,ax;сбрасываем счетчик
mov si,80h;DS:SI адрес командной строки переданного в программу системным загрузчиком
lea di,dbFileName;адрес имени файла
lodsb ;длина ком.строки
or al,al;равно нулю вводим имя
jz noCommandLine
;копируем командную строку
xor ch,ch;сбрасываем старший байт счетчика
mov cl,al;запоминаем длину счетчика
lodsb ;пропускаем пробел
push di;запоминаем индексный регистр
rep movsb;копируем вместе с 0Dh
pop di;востанавливаем индексный регистр
jmp setMarker
;в командной строке нет имени файла вводим его
noCommandLine: mov ah,09;сообщение "введите имя"
lea dx,dbEnter;адрес выводимого сообщения
int 21h
mov ax,0FFh;длина 256 символов
mov dwHndl,ax;запоминаем максимальную дляину строки
lea dx,dwHndl;вводим имя файла
mov ah,0ah;функция ДОС ввод строки
int 21h
;ком.строка и ввод строки всегда заканчивается 0Dh
setMarker: inc di;следющий символ
cmp byte ptr[di],0Dh;проверяем
jnz setMarker;не равен переходим
;нам нужно для открытия файла заменить его на 0
xor ax,ax; АХ=0
stosb ;записываем его в конец строки
mov ah,3Dh;функция открываем файл
lea dx,dbFileName;адрес с именем открываемого файла
int 21h
jnc isOpen;открыли без ошибки переходим
lea dx,dbErrorOpen;адрес сообщения об ошибке
jmp MSG01
isOpen: mov dwHndl,ax;запоминаем дискриптор
;
;
;читаем блок данных
LoadFile: mov ah,3Fh;функция чтения файла
mov bx,dwHndl;дискриптор открытого файла
mov cx,szBlock;размер читаемого блока
lea dx,dbBlock;адрес куда читаем
int 21h
jnc isLoad;прооверяем ошибку чтения
mov ah,3eh;функция закрыть файл
mov bx,dwHndl;дискриптор открытого файла
int 21h
lea dx,dbErrorLoad;сообщение об ошибке
MSG01: lea bx,AnyKey;адрес п/программы ожидание любой клавиши
push bx;запоминаем адрес в стеке
jmp MSG
;в счетчик количество прочитанных символов
isLoad: mov cx,ax
push ax;запоминаем их
lea si,dbBlock;настраиваемся на блок памяти
isLoop: lodsb ;считаем символ
cmp al,',';запятая
jnz ignore;нет переходим
inc word ptr dwCount;да увеличиваем счетчик
ignore: loop isLoop;пока СХ больше нуля
pop ax;востанавливаем кол-во символов
cmp ax,szBlock;проверяем кол-во символов
jz LoadFile;совпало повторяем
;
;
;не совпало конец файла, закрываем его
mov ah,3Eh;фукнкция закрыть файл
mov bx,dwHndl;дискриптор открытого файла
int 21h
;выводим сообщение "результат"
lea dx,dbResult;сообщение о результате
call MSG;подпрограмма вывода сообщения
;загружаем счетчик
mov ax,dwCount
xor cx,cx;счетчик цифр в стеке
mov bx,10;система счисления
;в цикле остаток от деления на 10 записываем в стек
isDiv: xor dx,dx
div bx;делим на 10-ть
push dx;остаток запоминаем в стеке
inc cx;увеличиваем счетчик
or ax,ax;пока не ноль повторяем деление
jnz isDiv
;в цикле из стека извлекаем цифры в нужной последовательности
isOut: pop ax;извлекаем из стека цифру
or al,'0';преобразовываем в символ
int 29h;выводим на экран
loop isOut;пока есть в стеке цифры
;ожидаем любую клавишу и выходим
AnyKey: xor ax,ax;функция ожидание клавиши без эхо
int 16h
ret
;выводим сообщение адрес DX
MSG: mov ah,9;функция вывода сообщения
int 21h
ret
dbEnter db 10,13,'Enter file name:$'
dbResult db 10,13,'Result:$'
dbErrorOpen db 10,13,'Error open file$'
dbErrorLoad db 10,13,'Error load data$'
dwCount dw ?
dwHndl dw ?
dbFileName label byte
dbBlock db szBlock dup(?)
end begin[/code]

А почему не в ответ?