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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
| ASSUME CS: CODE_SEG, DS: DATA_SEG
STUDENT STRUC
NUMBER DB 3,?,2 DUP(' ')
FIO DB 19,?,18 DUP(' ')
SPEC DB 6,?,5 DUP(' ')
AGE DB 6,?,5 DUP(' ')
CR_LF DB 0DH,0AH
STUDENT ENDS
DATA_SEG SEGMENT
STUDENTS STUDENT 30 DUP(<>)
ENDSTR DB '$'
ENTER_NUM DB 'ENTER YOUR POS: $'
ENTER_SPEC DB 'ENTER YOUR GROUP: $'
ENTER_FIO DB 'ENTER YOUR FIO: $'
ENTER_AGE DB 'ENTER YOUR AGE: $'
NEWL DB 0DH,0AH,'$'
HEADER DB '# NAME SPEC AGE ',0DH,0AH
LINE DB '-|-----------------|----|------',0DH,0AH,'$'
SPACE DB ' $'
CHOOSE DB 'PRESS `n` TO PRINT STRUC AND EXIT, OR TO CONTINUE PRESS ENTER',0DH,0AH,'$'
DATA_SEG ENDS
CODE_SEG SEGMENT
START:
;DEFINE DATA SEGMENT---------------------
MOV AX,DATA_SEG
MOV DS,AX
XOR AX,AX
;TYPE Y/N TO CONTINUE--------------------
MOV SI,0
ENTERING_DATA:
MOV AH,09H
LEA DX,CHOOSE
INT 21H
MOV AH,01H
INT 21H
CMP AL,'n'
JE PRINT_SHORT
;ENTERING DATA-----------------------------------------
MOV AH,09H
LEA DX,ENTER_NUM
INT 21H
MOV AH,0AH
LEA DX,STUDENTS[SI].NUMBER
INT 21H
CALL NEW_LINE
MOV AH,09H
LEA DX,ENTER_FIO
INT 21H
MOV AH,0AH
LEA DX,STUDENTS[SI].FIO
INT 21H
CALL NEW_LINE
MOV AH,09H
LEA DX,ENTER_SPEC
INT 21H
MOV AH,0AH
LEA DX,STUDENTS[SI].SPEC
INT 21H
CALL NEW_LINE
MOV AH,09H
LEA DX,ENTER_AGE
INT 21H
MOV AH,0AH
LEA DX,STUDENTS[SI].AGE
INT 21H
CALL NEW_LINE
INC SI
JMP ENTERING_DATA
;END OF ENTERING DATA--------------------------------------
;PRINT SHORT
PRINT_SHORT:
CALL PRINT_HEADER
JMP PRINT
;PRINT STRUCTURE-------------------------------------------
PRINT:
DEC SI
MOV AH,40H
MOV CL,[STUDENTS[SI].NUMBER+1]
LEA DX,STUDENTS[SI].NUMBER+2
INT 21H
;PRINT SPACES-----------
MOV CL,2
SUB CL,[STUDENTS[SI].NUMBER+1]
@LOOP1:
MOV AH,09H
LEA DX,SPACE
INT 21H
LOOP @LOOP1
MOV AH,40H
MOV CL,[STUDENTS[SI].FIO+1]
LEA DX,STUDENTS[SI].FIO+2
INT 21H
;PRINT SPACES-----------
MOV CL,18
SUB CL,STUDENTS[SI].FIO+1
@LOOP2:
MOV AH,09H
LEA DX,SPACE
INT 21H
LOOP @LOOP2
MOV AH,40H
MOV CL,[STUDENTS[SI].SPEC+1]
LEA DX,STUDENTS[SI].SPEC+2
INT 21H
;PRINT SPACES-----------
MOV CL,5
SUB CL,[STUDENTS[SI].SPEC+1]
@LOOP3:
MOV AH,09H
LEA DX,SPACE
INT 21H
LOOP @LOOP3
MOV AH,40H
MOV CL,[STUDENTS[SI].AGE+1]
LEA DX,STUDENTS[SI].AGE+2
INT 21H
;PRINT SPACES-----------
MOV CL,5
SUB CL,[STUDENTS[SI].AGE+1]
@LOOP4:
MOV AH,09H
LEA DX,SPACE
INT 21H
LOOP @LOOP4
MOV AX,0
CMP AX,SI
JLE PRINT
;END OF PRINTING STRUCTURE----------------------------------------
;EXIT OF PROGRAM--------------------------------------------------
MOV AH,4CH
INT 21H
;PROCEDURES-------------------------------------------------------
NEW_LINE:
MOV AH,09H
LEA DX,NEWL
INT 21H
RET
PRINT_NUM:
MOV AH,09H
LEA DX,ENTER_NUM
INT 21H
RET
PRINT_SPEC:
MOV AH,09H
LEA DX,ENTER_SPEC
INT 21H
RET
PRINT_FIO:
MOV AH,09H
LEA DX,ENTER_FIO
INT 21H
RET
PRINT_AGE:
MOV AH,09H
LEA DX,ENTER_AGE
INT 21H
RET
PRINT_HEADER:
MOV AH,09H
LEA DX,HEADER
INT 21H
RET
;END OF PROCEDURES-------------------------------------------------------
CODE_SEG ENDS
END START |
(
Сообщение от bankbb
