.8086
.MODEL SMALL
.STACK 100h

.DATA
Count EQU 1

Buffer DB 80, ?, 80 DUP (' ')
Number DB 80, ?, 80 DUP (' ')

mas dw a0,a1,a2,a3
a0 db 'zero', 0
a1 db 'one', 0
a2 db 'two',0
a3 db 'three',0

ms dw ?

Handle DW ?

InputFile DB 'input.txt', 0
OutputFile DB 'words.txt', 0
message1 DB 'Data input->', 0dh, 0ah, '$'
message2 DB 'Error!!', 0dh, 0ah, '$'
message3 DB 'Data output->', 0dh, 0ah, '$'
CRLF DB 0dh, 0ah, '$'

.CODE
.STARTUP
LOCALS
call CreateFile
call WriteFile
call CloseFile

call OpenFile
call ReadFile
call CloseFile

;вывод на экран
mov ah, 9h
lea dx, Number
int 21h

;создания выходного файла
mov ah, 3ch
mov cx, 0
lea dx, OutputFile
int 21h
mov Handle, ax ; дескриптор файла



__________________________________________________
;запись в файл

mov ah, 40h
mov bx, Handle
mov cx, 7
lea dx, ms
int 21h


call CloseFile


;ReadOnly for InputFile
mov ax, 4301h
mov dx, offset InputFile
mov cx, 1 ;1 - ReadOnly, 2 - Hidden
int 21h

;ReadOnly for OutputFile
mov ax, 4301h
mov dx, offset OutputFile
mov cx, 1 ;1 - ReadOnly, 2 - Hidden
int 21h

.EXIT 0
;----------------------------------------------------------------------------------------
CreateFile Proc Near
mov ah, 3ch
mov cx, 0 ; атрибут=0
lea dx, InputFile
int 21h
jc @@1
mov Handle, ax ; дескриптор файла
ret
@@1: call Error
ret
CreateFile endp
;----------------------------------------------------------------------------------------
WriteFile Proc Near

lea dx, message1
mov ah, 9h
int 21h

mov cx, Count
@@1:
push cx

; очистка буфера
mov al,' '
push ds
pop es
mov di, offset buffer+2
mov cx, 80
cld
rep stosb

; чтение строки с клавиатуры
mov ah, 0ah
lea dx, Buffer
int 21h

; переход на новую строку
mov ah, 9h
lea dx, CRLF
int 21h

; конец строки в буфере-символ CR с кодом 0dh
; символ LF (0ah) после символа 0dh (переход на новую строку)
mov al, 0ah
push ds
pop es
mov di, offset Buffer+2
xor bx, bx
mov bl, Byte Ptr [Buffer+1] ; количество символов
add di, bx
inc di
stosb

; si – к-во символов + 2 (0dh,0ah)
mov si, bx
add si, 2

; запись строки в файл
mov ah, 40h
mov bx, Handle
mov cx, si
lea dx, Buffer+2
int 21h

jnc @@2
call Error
@@2:
pop cx
loop @@1
ret
WriteFile endp
;----------------------------------------------------------------------------------------
CloseFile Proc Near
mov ah, 3eh
mov bx, Handle
int 21h
ret
CloseFile endp
;----------------------------------------------------------------------------------------
OpenFile Proc Near
mov ah, 3dh
mov al, 0; режим: 0- read, 1- write, 2-read/write
mov cx, 0; атрибут файла
lea dx, InputFile
int 21h
jc @@1
mov Handle, ax
ret
@@1: call Error
ret
OpenFile endp
;----------------------------------------------------------------------------------------





ReadFile Proc Near

lea dx, message3
mov ah, 9h
int 21h

xor di, di
@@1: xor si, si

@@2:
; чтение с файла
lea dx, Buffer+2
add dx, si
mov ah, 3fh
mov bx, Handle
mov cx, 1 ; к-во символов для чтения
int 21h

jc @@3
cmp ax, 0 ;EOF?
je @@4
inc si
_______________________________________________________
cmp Byte Ptr Buffer[si+2-1], 30h ;0
je @@5

;cmp Byte Ptr Buffer[si+2-1], 31h ;1
;je @@6

;cmp Byte Ptr Buffer[si+2-1], 32h
;je @@7

;cmp Byte Ptr Buffer[si+2-1], 33h
;je @@8

;cmp Byte Ptr Buffer[si+2-1], 34h
;je @@9

;cmp Byte Ptr Buffer[si+2-1], 35h
;je @@10

;cmp Byte Ptr Buffer[si+2-1], 36h
;je @@11

;cmp Byte Ptr Buffer[si+2-1], 37h
;je @@12

;cmp Byte Ptr Buffer[si+2-1], 38h ;8
;je @@13

;cmp Byte Ptr Buffer[si+2-1], 39h ;9
;je @@14

jmp @@1

___________________________________________________
; если ноль
@@5:
mov dx,mas[0]
mov ms[di],dx




jmp @@1

@@3: call Error
@@4: ret
ReadFile endp

;----------------------------------------------------------------------------------------
Error Proc Near
mov ah, 9h
lea dx, message2
int 21h
ret
Error endp
;----------------------------------------------------------------------------------------
END

.model tiny
.code
.386
ORG 100h

START:
mov ah,0 ;ввод символа
int 16h

cmp al,1Bh ;Esc
jz short Esc

cmp al,0Dh ;Enter
jz short vivod

cmp al,'0' ; если введен неверный символ <0
jl short er
cmp al,'9' ; если введен неверный символ >9
ja short er


mov [Sumbol],al ;сохронить символ для его вывода

;Преобразовать числа
mov cl,al
xor ah,ah
mov al,[AL_]
mov bx,10
sub cl,'0'
mul bx
add ax,cx
cmp ax,100
jg short er

mov [AL_],al

mov dl,[Sumbol] ;вывести символ
mov ah,2
int 21h
jmp short START

er: ;не выводить символ
mov dl,7 ;сигнал динамика
mov ah,2
int 21h
jmp short START

vivod:
;перевод строки
mov ah,9
lea dx,perevod
int 21h

;получить номер строки
xor bx,bx
mov bl,[AL_]
test bl,bl ;если 0
jz short er

;получить адрес строки
dec bl
shl bl,1
mov dx,mes[bx]
mov ah,9
int 21h ;вывожу строку

mov [AL_],0 ;удалить старый номер строки

;перевод строки
mov ah,9
lea dx,perevod
int 21h
jmp short START

exit:
xor ax,ax
int 16h ;жду нажатия на клавиатуру

Esc:
ret ;завершить программу
;*******************
perevod db 13,10,'$'
AL_ db 0
Sumbol db ?

mes dw a1,a2,a3,a4,a5;адреса названий
a1 db 'Один Ћ¤Ё*$'
a2 db 'Два „ў*$'
a3 db 'Три ’аЁ$'
a4 db 'Четыре —ҐвлаҐ$'
a5 db 'Пять Џпвм$'
;******************

end start