-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path建立并查找电话号码表.asm
231 lines (231 loc) · 5.71 KB
/
建立并查找电话号码表.asm
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
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
DATA SEGMENT
NAMEMESSAGE DB 'Please input name: ','$'
PHONEMESSAGE DB 'Please input telephone number: ','$'
SEARCHMESSAGE DB 'Do you want to search a telephone number?(y/n)','$'
NMESSAGE DB 0DH,0AH,'Please input name: ','$'
FAILMESSAGE DB 'Not found.',0DH,0AH,'$'
NUMBERMESSAGE DB 'Please input the amount you want to store:','$'
CRLF DB 0DH,0AH,'$'
STOKIN1 LABEL BYTE
MAX1 DB 21
ACT1 DB ?
STOKN1 DB 21 DUP(?)
STOKIN2 LABEL WORD
MAX2 DB 10
ACT2 DB ?
STOKN2 DB 10 DUP(?)
NUMBERTABLE DB 50 DUP(28 DUP(?))
NAMECOUNT DW 0
ENDADDR DW ?
ISSWAPPED DW ?
TOTALNUMBER DW ?
SAVENP DB 28 DUP(?),0DH,0AH,'$'
SEARCHADDR DW ?
FLAG DB ?
FLAGR DB ?
SHOWTITLE DB 'Name Phone',0DH,0AH,'$'
DATA ENDS
CODE SEGMENT
ASSUME DS:DATA,CS:CODE,ES:DATA
MAIN PROC FAR
MOV AX,DATA
MOV DS,AX
MOV ES,AX
LEA DI,NUMBERTABLE
LEA DX,NUMBERMESSAGE
MOV AH,09
INT 21H
MOV BX,0
INPUTCHAR:
MOV AH,1
INT 21H
SUB AL,30h
JL NOINPUT
CMP AL,9
JG NOINPUT
CBW
XCHG AX,BX
MOV CX,10
MUL CX
XCHG AX,BX
ADD BX,AX
JMP INPUTCHAR
NOINPUT:
MOV TOTALNUMBER,BX
LEA DX,CRLF
MOV AH,09
INT 21H
A10:
LEA DX,NAMEMESSAGE
MOV AH,09
INT 21H
CALL INPUTNAME
INC NAMECOUNT
CALL INNAME
LEA DX,PHONEMESSAGE
MOV AH,09
INT 21H
CALL INPUTPHONE
CALL INPHONE
CMP NAMECOUNT,0
JE EXIT
MOV BX,TOTALNUMBER
CMP NAMECOUNT,BX
JNZ A10
CALL NAMESORT
A20:
LEA DX,SEARCHMESSAGE
MOV AH,09
INT 21H
MOV AH,08
INT 21H
CMP AL,'y'
JZ A30
CMP AL,'n'
JZ EXIT
JMP A20
A30:
MOV AH,09
LEA DX,NMESSAGE
INT 21H
CALL INPUTNAME
A40:
CALL NAMESEARCH
JMP A20
EXIT:
MOV AX,4C00H
INT 21H
MAIN ENDP
INPUTNAME PROC NEAR
MOV AH,0AH
LEA DX,STOKIN1
INT 21H
MOV AH,09
LEA DX,CRLF
INT 21H
SUB BH,BH
MOV BL,ACT1
MOV CX,21
SUB CX,BX
B10:
MOV STOKN1[BX],' '
INC BX
LOOP B10
RET
INPUTNAME ENDP
INNAME PROC NEAR
LEA SI,STOKN1
MOV CX,20
REP MOVSB
RET
INNAME ENDP
INPUTPHONE PROC NEAR
MOV AH,0AH
LEA DX,STOKIN2
INT 21H
MOV AH,09
LEA DX,CRLF
INT 21H
SUB BH,BH
MOV BL,ACT2
MOV CX,9
SUB CX,BX
C10:
MOV STOKN2[BX],' '
INC BX
LOOP C10
RET
INPUTPHONE ENDP
INPHONE PROC NEAR
LEA SI,STOKN2
MOV CX,8
REP MOVSB
RET
INPHONE ENDP
NAMESORT PROC NEAR
SUB DI,28
MOV ENDADDR,DI
C1:
MOV ISSWAPPED,0
LEA SI,NUMBERTABLE
C2:
MOV CX,20
MOV DI,SI
ADD DI,28
MOV AX,DI
MOV BX,SI
REPZ CMPSB
JBE C3
MOV SI,BX
LEA DI,SAVENP
MOV CX,28
REP MOVSB
MOV CX,28
MOV DI,BX
REP MOVSB
MOV CX,28
LEA SI,SAVENP
REP MOVSB
MOV ISSWAPPED,1
C3:
MOV SI,AX
CMP SI,ENDADDR
JB C2
CMP ISSWAPPED,0
JNZ C1
RET
NAMESORT ENDP
NAMESEARCH PROC NEAR
LEA BX,NUMBERTABLE
MOV FLAG,0
D:
MOV CX,20
LEA SI,STOKN1
MOV DI,BX
REPZ CMPSB
JZ D2
ADD BX,28
CMP BX,ENDADDR
JBE D
SUB FLAG,0
JZ NOTFOUND
JMP DEXIT
NOTFOUND:
LEA DX,FAILMESSAGE
MOV AH,09
INT 21H
D2:
MOV SEARCHADDR,BX
INC FLAG
CALL PRINT
ADD BX,28
CMP BX,ENDADDR
JBE D
JMP DEXIT
JNZ D
DEXIT: RET
NAMESEARCH ENDP
PRINT PROC NEAR
SUB FLAG,0
JZ NO
P10:
MOV AH,09
LEA DX,SHOWTITLE
INT 21H
MOV CX,28
MOV SI,SEARCHADDR
LEA DI,SAVENP
REP MOVSB
LEA DX,SAVENP
MOV AH,09
INT 21H
JMP FEXIT
NO:
LEA DX,FAILMESSAGE
MOV AH,09
INT 21H
FEXIT:
RET
PRINT ENDP
CODE ENDS
END MAIN