查找电话号码

;查找电话号码
;建立一个可存放50项的电话号码表，每项包括人名（20个字符）及电话号码（8个字符）两部分
;程序可接收输入人名及相应的电话号码，并把它们加入电话号码表中
;凡有新的输入后，程序应按人名对电话号码表重新排序
;程序可接收需要查找电话号码的人名，并从电话号码表中查出其电话号码，再在屏幕上以如下格式显示出来。
;name        tel.
;XXXX        XXXXX
;编写程序如下
D_SEG   SEGMENT
        tel_tab      DB 50 DUP (20 DUP(?),8 DUP(?)) ;电话号码,人名记录
        tel_tabtemp  DB 50 DUP (20 DUP(?),8 DUP(?)) ;转移实现电话号码,人名记录排序
 STRINTRU     DB 'Welcome to use!'
              db 'you can continue to input your tel. NO. by input character I.',0dh,0ah
              DB 'IF you want to find a NO. you can input character Y to do.',0dh,0ah
       DB 'IF you want to exit ,please input character N.','$'
        STRINPUT     DB 0dh,0ah,'Input name:',0dh,0ah,'$'  
        STRINPHONE   DB 'Input a telephone number:',0dh,0ah,'$'
        STRYN        DB 'Do you want a telephone number?(Y/N/I)','$'
        STRNAME      DB 0dh,0ah,'name?',0dh,0ah,'$'
        STRPRINT     DB 'name                tel.',0dh,0ah,'$'
        ACPNAME      DB 21,?,21 DUP(?) ;接收人名
 nth1          db 3 dup(?)
        ACPTEL       DB 9,?,9 DUP(?)    ;接收电话号码
 nth2          db 3 dup(?)
        TEMP_TEL     DB 0               ;临时存储TEL_TAB当前的偏移地址
        TEMP_TELTEMP DB 0               ;临时存储TEL_TABTEMP当前的偏移地址
 FINDNAME     DB 20 DUP(?)       ;要查找的人名
        FINDTEL      DB 8 DUP(?) ,0dh,0ah,'$'       ;查找到的电话号码
D_SEG   ENDS
;
PROG    SEGMENT
      ASSUME  CS:PROG ,DS:D_SEG,ES:D_SEG
     START:
        MAIN  PROC  FAR
          ;
          PUSH      DS
          XOR      AX,AX
          PUSH      AX
          ;
          MOV       AX,D_SEG
          MOV       DS,AX
   mov       es,ax
          ;
          ;显示初始信息
          LEA     DX,STRINTRU
          MOV       Ah,09H
          INT       21H
          CALL      input_name  ;调用子程序INPUT_NAME接收人名
          RET
       MAIN ENDP
       ;***********************************
       ;接收人名子程序
       input_name  PROC  NEAR
     AGAIN:
          ;显示输入人名的提示信息
          LEA     DX,STRINPUT
          MOV       Ah,09H
          INT       21H
          ;
          ;接收人名
          LEA       DX,ACPNAME
          MOV       Ah,0AH
          INT       21H
          ;
          SUB       CH,CH       ;清零
          MOV       CL,ACPNAME+1 ;实际字符数
   LEA       SI,ACPNAME+2 ;赋给人名字符首地址
          ;
          SUB       BH,BH
          MOV       Bx,OFFSET TEL_TAB
          ADD       Bx,word ptr TEMP_TEL
          ;
          MOV       DI,BX        ;当前TEL_TAB中的人名首地址
          REP       MOVSB
          ;每输入一个名字，偏移地址往后移20
          MOV       AX,WORD PTR TEMP_TEL
          ADD       AX,20
          MOV       WORD PTR TEMP_TEL, AX
          ;显示输入电话号码的提示信息
          LEA       DX,STRINPHONE
          MOV       AH,09H
          INT       21H
          ;接收电话号码
          LEA       DX,ACPTEL
          MOV       AH,0AH
          INT       21H
          ;
          SUB       CH,CH
          MOV       CL,ACPTEL+1  ;实际字符数
          lea       SI,ACPTEL+2  ;接收的电话号码的首地址
          ;
          SUB       BH,BH
          MOV       BX,OFFSET TEL_TAB  ;TEL_TAB的首地质
          ADD       BX,WORD PTR TEMP_TEL        ;当前的偏移地址
          ;
          MOV       DI,BX              ;目标串的首地址
          REP       MOVSB
          ;每输入一个电话号码，偏移地址往后移8
          MOV       AX,WORD PTR TEMP_TEL
          ADD       AX,8
          MOV       WORD PTR TEMP_TEL, AX
          ;
          ;调用NAME_SORT子程序对电话号码表按人名排序
          ;CALL      STOR_NAME
  FIND_AGAIN:       
          ;显示提示是否查找信息
          LEA       DX,STRYN
          MOV       AH,09H
          INT       21H
          ;
  GET_KEY:
          MOV       AH,01H
          INT       21H
          CMP       AL,'Y'
          JE        YES      ;如果输入的是'Y',就跳转到YES
          CMP       AL,'N'
          JE        NO       ;如果输入的是'N',就跳转到NO
   CMP       AL,'I'   ;如果输入的是'I',就继续输入电话号码
   JE        AGAIN
          JNE       GET_KEY  ;如果输入的都不是，等到输入了Y或者N为止
      YES:
          ;调用查找程序
          CALL      NAME_SEARCH
          JMP       FIND_AGAIN  ;继续查找下一个号码
          ;输出输入NAME信息
          ;LEA       DX,STRNAME 
          ;MOV       AH,09H
          ;INT       21H
          ;调用INPUT_NAME子程序接收人名
          ;JMP      AGAIN    ;继续输入
      NO:
          RET
       input_name  ENDP
       ;************************************
       ;保存人名子程序
       stor_name   PROC  NEAR
         
       STOR_NAME   ENDP
       ;************************************
       ;接收电话号码并保存电话号码子程序
       INPHONE     PROC  NEAR
       INPHONE     ENDP
       ;***********************************
       ;电话号码表按人名排序子程序
       NAME_SORT   PROC  NEAR
       NAME_SORT   ENDP
       ;***********************************
       ;电话号码查找子程序
       NAME_SEARCH PROC  NEAR
          ;输出输入NAME信息
          MOV       BX,0
          LEA       DX,STRNAME 
          MOV       AH,09H
          INT       21H
          ;接收人名
          LEA       DX,ACPNAME
          MOV       AH,0AH
          INT       21H
          ;
          SUB       CH,CH       ;清零
          MOV       CL,ACPNAME+1 ;实际字符数
   LEA       SI,ACPNAME+2 ;赋给人名字符首地址
          ;
          LEA       DI,FINDNAME       
          REP       MOVSB
     NEXT: 
          MOV       CX,19
          ;---------------------------------
          SUB       AH,AH
          MOV       AX,OFFSET TEL_TAB
          ADD       AX,BX
          ;---------------------------------
          LEA       SI,FINDNAME
          MOV       dI,AX
   CLD
          REPZ      CMPSB
   JE        a10
          ADD       BX,28
          CMP       BX,1400
          JGE       EXIT
          JMP       NEXT
       a10:
          MOV       CX,8
          ADD       BX,20                 ;当前找到人的电话号码的首地址
          ;--------------------------------
          SUB       AH,AH
          MOV       AX,OFFSET TEL_TAB
          ADD       AX,BX
          ;--------------------------------
          LEA       DI,FINDTEL
          MOV       SI,AX
          REP       MOVSB
          ;调用格式打印查找到的
          CALL      PRINTLINE
     EXIT:
          RET      
       NAME_SEARCH ENDP
       ;******************************
       ;显示人名及电话号码子程序
       PRINTLINE   PROC  NEAR
          ;显示打印格式
          LEA       DX,STRPRINT
          MOV       AH,09H
          INT       21H
          ;输出人名, 输出电话号码
          LEA       DX,FINDNAME
          MOV       AH,09H
          INT       21H
          ret
       PRINTLINE   ENDP
       ;******************************
         PROG ENDS
                END START