很有用的，大家都来吧;有编辑功能：Backspace键用于删除字符；上下左右键可以任意角度方向的移动
;光标;Esc键用于退出本软件，同时提示是否保存，若输入Y,则软件将自动把已发送
;的字符保存在指定文件夹中，初始值指定为'c:\masm\L.txt'中；
;聊天功能：发送字符串后，发送端自动换行；接收端有‘Rec:’字样提示收到了
;字符；接收字符串基于中断
;;作者：xuehui869^_^电子邮箱：xuehui869@163.com^_^时间 ：2008年3月27日23:35:11
DATA SEGMENT
MEMORYBUFFER DB 1000 DUP(?)
FILE DB 'c:\masm\L.txt' , 0 ;创建文件的文件名
ERROR_MESSAGE DB 0AH , 'error !' , '$' ;出错时的提示
MESSAGE DB 0AH , 'ok !$' ;操作成功后的提示
HANDLE DW ? ;保存文件号
SENDBUFFER DB 1000 DUP(?)
DATA ENDS
CODE SEGMENT
ASSUME CS: CODE , DS:DATA
START: ;主程序部分
MOV AX , DATA
MOV DS , AX
MOV SI,OFFSET SENDBUFFER
MOV DI,OFFSET MEMORYBUFFER ;用于存储接收和已发送的数据
MOV BP,OFFSET SENDBUFFER ;用于判断发送区是否为空，以利于判断DEL键是否进行删除
;MOV AH,0 ;这些背景色必须加在声明语句中，在主循环中不行
;MOV AL,11000011B
;MOV AL,42H
;INT 10H
MOV AH,0BH ;加边框
MOV BH,0
MOV BL ,200
INT 10H
MOV AH , 35H ;
MOV AL , 0CH ;
INT 21H ;读取原0CH号中断服务程序的地址
PUSH BX
PUSH ES ;以上地址入栈保存（以便在程序退出时再恢复中断矢量表中的内容）
MOV AX , CS ;
MOV DS , AX ;
MOV DX , OFFSET RECINTERRUPT ;
MOV AH , 25H ;
MOV AL , 0CH ;
INT 21H ;修改中断矢量表，将NET_INT位置登记为0CH号中断服务程序的地址
;以下初始化8250
MOV DX , 3FBH ;指向线路控制寄存器
MOV AL , 80H ;位7置1
OUT DX , AL ;发送此字节
MOV DX , 3F9H ;指向波特率除数的高字节
MOV AL , 0 ; 1200 BPS对应的高字节
OUT DX , AL ;发送此字节
DEC DX ;指向波特率除数的低字节
MOV AL , 60H ; 1200 BPS对应的低字节
OUT DX , AL ;发送此字节
;MOV AL , 1BH ;数据长度为8位 , 1个奇偶校验位 , 偶校验 , 1个停止位
MOV AL , 13H ;数据长度为8位 , 无奇偶校验位 , 1个停止位
MOV DX , 3FBH ;指向线路控制寄存器
OUT DX , AL ;发送此字节
MOV DX , 3FCH ;设置MODEM控制寄存器
MOV AL , 0BH ;允许8250发中断
OUT DX , AL
MOV DX , 3F9H ;指向中断允许寄存器
MOV AL , 1 ;允许数据接收准备好中断
OUT DX , AL ;发送此字节
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;这一段很关键，但往往被遗忘
CLI ;关中断，以便对中断控制器8259A进行操作
IN AL , 21H ;读取中断屏蔽寄存器的内容
AND AL , 0EFH ;将COM1中断（即IRQ4引脚）的对应位置0，允许中断。
OUT 21H , AL ;写入中断控制器8259A中
STI ;开中断
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;超级死循环 ,主要是发送程序部分 ，主程序循环，等待收到字符的中断发生。;
MOV AX , DATA
MOV DS , AX
WAITSENDSTRING:
MOV AH,1 ; 键盘缓冲区是否有字符？
INT 16H ;
JZ WAITSENDSTRING ; 无，继续查询
MOV AH,0 ;从键盘缓冲区取字符到AL ,当读了之后，缓冲区清空;不然，键盘缓冲去一直有数据
INT 16H ;
CMP AL,00011011B ;是否为退出键Esc
JNZ A ;不是，转A继续判断
JMP EXIT ;是，转EXIT,进行程序退出处理
A: CMP AH,48H ;是否为“上”键
JZ KEY_UP ;是，转上处理程序
CMP AH,50H ;下
JZ KEY_DOWN
CMP AH,4BH ;左
JZ KEY_LEFT
CMP AH,4DH ;右
JZ KEY_RIGHT
CMP AL,08H ; 接收到的数据是Del键吗
JNZ OK ; 不是，则转OK
CMP BP,SI ;现在没有字符吗 ;本步的功能在于容错处理
JZ OK ; 是,则转OK,不进行删除
MOV AH,02H ;;不是，执行删除字符程序
MOV DL,08H ; DL ='Del'的ASCII码
INT 21H ;
MOV DL,00H ; DL ='NULL'的ASCII码
INT 21H ;
MOV DL,08H ; DL ='Del'的ASCII码
INT 21H ;
DEC SI ;删除存储区内的一个字符
JMP WAITSENDSTRING
KEY_UP: MOV AH,03H ;使光标上移
MOV BH ,00H
INT 10H
DEC DH
MOV AH,02H
INT 10H
JMP WAITSENDSTRING
KEY_DOWN: MOV AH,03H ;使光标下移
MOV BH ,00H
INT 10H
INC DH
MOV AH,02H
INT 10H
JMP WAITSENDSTRING
KEY_LEFT: MOV AH,03H ;使光标左移
MOV BH ,00H
INT 10H
DEC DL
MOV AH,02H
INT 10H
JMP WAITSENDSTRING
KEY_RIGHT: MOV AH,03H ;使光标右移
MOV BH ,00H
INT 10H
INC DL
MOV AH,02H
INT 10H
B: JMP WAITSENDSTRING
;;;;;;;;;;;;;;;;;;;;;;;;;;;;向标准输出外设（如显示器）输出单个字符
OK: MOV AH,02H ;
MOV DL,AL ; DL =输出字符的ASCII码
INT 21H ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;将从键盘缓冲区接收到字符串保存到Receivebuffer
;;;;;;;;;;;;;;;;;;数组中，当遇到回车键时将该数组中的字符串通过串口发送出去
MOV BYTE PTR[DI],AL ;将接收到的字符保存到存储区
INC DI
MOV BYTE PTR[SI],AL ;将接收到的字符保存到发送缓冲区
INC SI
CMP AL,0DH ; 接收到的数据是回车键吗？
JNZ B ; 不是，则转WAITSENDSTRING;但是只有JMP指令才能实现far_label跳转，所以
;采用此迂回办法
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;BIOS中断此处还不能用，莫名其妙的出错
;MOV AH,01H
;MOV AL,'A'
;MOV DX,0
;INT 14H
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 是，开始发送
;由于在sendbuffer帧头加Receive字样，发送会出错，也只能采取这种迂回的办法了
MOV AL,00001010B ;;要使接收端换行使用回车键不行，使用LF换行
MOV DX,3F8H ; 串口发送数据端口地址
OUT DX,AL ; 把该字符发送到输出数据缓冲器
MOV AL,01010010B ;;R键
MOV DX,3F8H ; 串口发送数据端口地址
OUT DX,AL ; 把该字符发送到输出数据缓冲器
MOV AL,01100101B ;;e键
MOV DX,3F8H ; 串口发送数据端口地址
OUT DX,AL ; 把该字符发送到输出数据缓冲器
MOV AL,01100011B ;;c键
MOV DX,3F8H ; 串口发送数据端口地址
OUT DX,AL ; 把该字符发送到输出数据缓冲器
MOV AL,00111010B ;;回车键
MOV DX,3F8H ; 串口发送数据端口地址
OUT DX,AL ; 把该字符发送到输出数据缓冲器
MOV AL,00001010B ;;
MOV DX,3F8H ; 串口发送数据端口地址
OUT DX,AL ; 把该字符发送到输出数据缓冲器
MOV SI,OFFSET SENDBUFFER ;恢复 SI初始值
SEND: MOV AL,BYTE PTR[SI]
INC SI
MOV DX,3F8H ; 串口发送数据端口地址
OUT DX,AL ; 把该字符发送到输出数据缓冲器
CMP AL,0DH ; 接收到的数据是回车键吗？
JNZ SEND ; 不是，则转SEND,继续发送
MOV SI,OFFSET SENDBUFFER ;一次发送结束后，重新置位si
MOV DL,0AH ; 换行
MOV AH,02H
INT 21H
JMP WAITSENDSTRING ;发送完,重新开始接收
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;接收中断处理程序
RECINTERRUPT: CLI
MOV AX , CS ;
MOV DS , AX ;
PUSH BX
PUSH AX ; 暂存数据
PUSH DX
MOV AH,41 ;
MOV DL,AL ; DL =输出字符的ASCII码
INT 21H ;
MOV DX,3F8H ; 端口接收数据端口地址
IN AL,DX ; 读取数据
AND AL,7FH ; 有效数据位为7位
MOV AH,02H ; 向标准输出外设（如显示器）输出单个字符
MOV DL,AL ; DL =输出字符的ASCII码
INT 21H ;
CMP AL,0AH ; 接收到的数据是回车键吗？
JNZ L2 ; 不是，则转L2
MOV DL,0AH ; 是，输出换行符换行
MOV AH,02H
INT 21H
L2:
MOV AL , 20H ;发中断结束命令（EOI）
OUT 20H , AL ;
POP DX ;
POP AX
POP BX
STI ;CPU开中断
IRET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;退出程序
EXIT: ;保存处理
MOV AH,02H ;
MOV DL,01010011B ; DL =输出字符的ASCII S
INT 21H ;
MOV AH,02H ;
MOV DL,01100001B ; DL =输出字符的ASCII a
INT 21H ;
MOV AH,02H ;
MOV DL,01110110B ; DL =输出字符的ASCII码 v
INT 21H ;
MOV AH,02H ;
MOV DL,01100101B ; DL =输出字符的ASCII码 e
INT 21H ;
MOV AH,02H ;
MOV DL,00111111B ; DL =输出字符的ASCII码 ?
INT 21H ;
MOV AH,02H ;
MOV DL,01011001B ; DL =输出字符的ASCII码 Y
INT 21H ;
MOV AH,02H ;
MOV DL,00H ; DL =输出字符的ASCII码
INT 21H ;
MOV AH,02H ;
MOV DL,01001111B ; DL =输出字符的ASCII码 o
INT 21H ;
MOV AH,02H ;
MOV DL,01010010B ; DL =输出字符的ASCII码 r
INT 21H ;
MOV AH,02H ;
MOV DL,00H ; DL =输出字符的ASCII码
INT 21H ;
MOV AH,02H ;
MOV DL,01001110B ; DL =输出字符的ASCII码 n
INT 21H ;
WAITSAVE:
MOV AH,1 ; 键盘缓冲区是否有字符？
INT 16H ;
JZ WAITSAVE ; 无，继续查询
MOV AH,0 ;从键盘缓冲区取字符到AL ,当读了之后，缓冲区清空;不然，键盘缓冲去一直有数据
INT 16H ;
CMP AL,01011001B ; 接收到的数据是Y键吗？
JNZ EXITNOW ; 不是，则转OK
JMP SAVE
;退出处理
EXITNOW: MOV AH , 25H ;
MOV AL , 0CH ;
POP ES ;
POP BX ;
INT 21H ;恢复中断矢量表中0CH号中断服务程序的原地址。
MOV AH , 4CH ;
INT 21H ;返回DOS
SAVE:
;MOV AX , DATA
;MOV DS , AX
MOV DX , OFFSET FILE
MOV CX , 0
MOV AH , 3CH
INT 21H ;创建文件，若磁盘上原有此文件，则覆盖
JC ERROR ;创建出错，转error处
MOV HANDLE , AX ;保存文件号
MOV BX , AX
MOV BP , OFFSET MEMORYBUFFER
SUB DI,BP
MOV CX ,DI
MOV DX , OFFSET MEMORYBUFFER ;用于计算发送的数目 ,同时是存储的原址
MOV AH , 40H
INT 21H ;向文件中写入16个字节内容
JC ERROR ;写出错，转error处
MOV DL,AH
MOV AH,02H
INT 21H
MOV DL,AL
MOV AH,02H
INT 21H
MOV BX , HANDLE
MOV AH , 3EH
INT 21H ;关闭文件
JC ERROR ;关闭文件出错，转error处
MOV DX , OFFSET MESSAGE
MOV AH , 9
INT 21H ;操作成功后显示提示
JMP END1
ERROR:
MOV DX , OFFSET ERROR_MESSAGE
MOV AH , 9
INT 21H ;显示错误提示`
END1:
MOV AH , 4CH
INT 21H
JMP EXITNOW
CODE ENDS ;
END START
第一组-双机并口通信.rar （7个子文件） 
双机并口半双工通信任务书.doc 32KB
