1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
| .8086
.MODEL SMALL
.STACK 100h
.DATA
Count EQU 5
Buffer DB 80, ?, 80 DUP (' ')
Handle DW ?
PathName DB 'test.txt',0
message1 DB 'Input data->',0dh,0ah,'$'
message2 DB 'Error!!',0dh,0ah,'$'
message3 DB 'Output data->',0dh,0ah,'$'
CRLF DB 0dh,0ah,'$'
.CODE
.STARTUP
LOCALS
call CreateFile
call WriteFile
call CloseFile
.EXIT 0
;----------------------------------------------------------------------------------------
CreateFile Proc Near
mov ah,3ch
mov cx,0 ; атрибут=0 (звичайний файл)
lea dx,pathname
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,pathname
int 21h
jc @@1
mov handle,ax
ret
@@1: call Error
ret
OpenFile endp
;----------------------------------------------------------------------------------------
Error Proc Near
mov ah,9h
lea dx,message2
int 21h
Error endp
;----------------------------------------------------------------------------------------
END |
(
