信息检索程序设计.txt

一个简单的信息检索系统

DATAS SEGMENT
	n0 db 'computer '
	n1 db 'network  '
	n2 db 'database '
	n3 db 'Chinese  '
	n4 db 'Math     '
	n5 db 'English  '
	n6 db 'ptotoshop'
	n7 db 'Java     '
	n8 db 'C++      '
	Errmsg  DB 'Please input 0-8! E for Exit $'
DATAS ENDS
CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS
START:
     MOV  AX,DATAS
     MOV  DS,AX
LOP: MOV  AH,01H       ;输入一个数字
     INT  21H
     CMP  AL,'E'
     JZ   exit
     CMP  AL,'0'
     JB   ERR
     CMP  AL,'8'
     JA   ERR 
     SUB  AL,30H       ;计算字符串的地址
     MOV  DH,9 
     MUL  DH
     MOV  BX,AX
     CALL DISP
     JMP  LOP
ERR: MOV  DL,0DH
     MOV  AH,02
     INT  21H
     MOV  DL,0AH
     MOV  AH,02
     INT  21H
     MOV  DX,OFFSET Errmsg
     MOV  AH,9
     INT  21H
     MOV  DL,0DH   ;回车和换行
     MOV  AH,02
     INT  21H
     MOV  DL,0AH
     MOV  AH,02
     INT  21H
     JMP  LOP
exit:MOV  AH,4CH
     INT  21
DISP PROC NEAR
     MOV  DL,0DH
     MOV  AH,02
     INT  21H
     MOV  DL,0AH
     MOV  AH,02
     INT  21H
     MOV  CX,09H
LOP1:MOV  DL,[BX]       ;循环输出字符串
     MOV  AH,02H
     INT  21H
     INC  BX
     LOOP LOP1
     MOV  DL,0DH
     MOV  AH,02
     INT  21H
     MOV  DL,0AH
     MOV  AH,02
     INT  21H
     RET
     DISP ENDP 
    CODES ENDS
END START