.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