两台 PC 机之间的串口通信

两台 PC 通过串口进行数据传输,早有这方面的例程。
但是接收键盘操作,到对方的屏幕上进行显示,却不常见。
当然,现在的 QQ 聊天,已经司空见惯,但是当年,使用串口聊天,则是微机原理初学者的一个大难题。
做而论道多年前就编写出了这种程序,并且自己焊接了串口通信电缆,实验大获成功。
网上有个问题:http://zhidao.baidu.com/question/250153413.html
问到了这方面的问题,于是做而论道就把以前编写的程序,翻腾了出来,但愿对网友有所启示。
下面就是“收”、“发”两个程序。
;============================================================
; 程序名:
; 说明: 232接口通信(发送部分)
; 利用 PC 机串行口进行通信
; 本程序使用串行口2,需要外接 RS-232 电缆
;**************************************************;2K 堆栈区
STACK   SEGMENT PARA STACK 'STACK'
        DB  256  DUP('STACK   ')
STACK   ENDS
;**************************************************;数据区
DATA    SEGMENT PARA PUBLIC 'DATA'
MSG     DB 0DH,0AH,0DH,0AH,0DH,0AH
DB '        +----------------+               +----------------+',0DH,0AH
DB '        | How do         |               | How do         |',0DH,0AH
DB '        |     you do ?   |               |     you do ?   |',0DH,0AH
DB '        |                |               |                |',0DH,0AH
DB '        |        bye !   |               |        bye !   |',0DH,0AH
DB '        +----------------+               +----------------+',0DH,0AH
DB '          |            |                   |            |  ',0DH,0AH
DB '      +--------------------+           +--------------------+',0DH,0AH
DB '      |                    | -->->->-> |                    |',0DH,0AH
DB '      +--------------------+           +--------------------+',0DH,0AH
DB 0DH,0AH
DB '     This program let you TRANSMIT character to other computer.',0DH,0AH
DB 0DH,0AH,0DH,0AH
DB '  Copyright  2000-2003  by     All Rights Reserved',0DH,0AH
DB 0DH,0AH
DB '              Press ESC to finish this program.',0DH,0AH
DB 0DH,0AH
DB 'Please input :  $'
DATA    ENDS
;**************************************************;代码区
CODE    SEGMENT PARA PUBLIC 'CODE'
;_________________________________________________________
                                                 ;主程序区
MAIN    PROC  FAR         ;主过程
        ASSUME  CS:CODE,  DS:DATA,  SS:STACK,  ES:DATA
START:  PUSH  DS
        MOV   AX,  00H
        PUSH  AX
        MOV   AX,  DATA
        MOV   DS,  AX
        MOV   ES,  AX

        MOV   DX,  OFFSET  MSG  ;显示提示信息
        MOV   AH,  9
        INT   21H
        CALL  INITOUT     ;初始化串行口
K_IN:
        MOV   AH,  7
        INT   21H         ;接受键盘输入,不显示
        CMP   AL, 1BH
        JZ    EXIT_SEN    ;ESC退出
        MOV   BL,  AL
        MOV   DL,  AL
        MOV   AH,  2
        INT   21H         ;显示刚输入的字符

        CMP   BL,  0DH
        JNZ   FASONG      ;如果不是'回车符',转发送

        MOV   DL,  0DH    ;如是则回车换行
        MOV   AH,  2
        INT   21H         ;显示回车符
        MOV   DL,  0AH
        MOV   AH,  2
        INT   21H         ;显示换行符
FASONG:
        MOV   AL,  BL
        MOV   DX,  2F8H
        OUT   DX,  AL     ;发送数据
_WAIT1:
        MOV   DX,  2FDH   ;取线路状态寄存器
        IN    AL,  DX
        TEST  AL,  20H    ;测试 D5,为 1 则发送完毕
        JZ    _WAIT1
        JMP   K_IN
EXIT_SEN:
        MOV   DX,  2F8H
        MOV   AL,  03H
        OUT   DX,  AL     ;发送本文结束符

        MOV   AX,  4C00H  ;程序结束
        INT   21H
MAIN    ENDP
;_________________________________________________________
                                                 ;子程序区
INITOUT PROC  NEAR
        MOV   DX, 2FBH
        MOV   AL, 80H     ;设置写波特率除数锁存器
        OUT   DX, AL

        MOV   DX, 2F8H
        MOV   AL, 80H
        OUT   DX, AL

        MOV   DX, 2F9H
        MOV   AL, 01H     ;除数 = 0180H, 波特率 = 600
        OUT   DX, AL

        MOV   DX, 2FBH    ;设定数据格式
        MOV   AL, 0AH     ;奇校验、1位停止位、7位数据位
        OUT   DX, AL

        MOV   DX, 2FCH    ;设置 MODEN控制寄存器
;        MOV   AL, 1FH    ;1FH令8250进行回送, 调试用
        MOV   AL, 0FH     ;0FH令8250进行不回送, 通信用
        OUT   DX, AL

        MOV   DX, 2F9H    ;设置中断允许寄存器
        MOV   AL, 00H     ;禁止所有中断
        OUT   DX, AL

        RET
INITOUT ENDP
;_________________________________________________________
CODE    ENDS
        END   START
;============================================================
; 程序名:
; 说明: 232接口通信(接收部分)
; 利用 PC 机串行口进行通信
; 本程序使用串行口2,需要外接 RS-232 电缆
;**************************************************;2K 堆栈区
STACK   SEGMENT PARA STACK 'STACK'
        DB  256  DUP('STACK   ')
STACK   ENDS
;**************************************************;数据区
DATA    SEGMENT PARA PUBLIC 'DATA'
MSG     DB 0DH,0AH,0DH,0AH,0DH,0AH
DB '        +----------------+               +----------------+',0DH,0AH
DB '        | How do         |               | How do         |',0DH,0AH
DB '        |     you do ?   |               |     you do ?   |',0DH,0AH
DB '        |                |               |                |',0DH,0AH
DB '        |        bye !   |               |        bye !   |',0DH,0AH
DB '        +----------------+               +----------------+',0DH,0AH
DB '          |            |                   |            |  ',0DH,0AH
DB '      +--------------------+           +--------------------+',0DH,0AH
DB '      |                    | -->->->-> |                    |',0DH,0AH
DB '      +--------------------+           +--------------------+',0DH,0AH
DB 0DH,0AH
DB '     This program let you RECEIVE character to other computer.',0DH,0AH
DB 0DH,0AH,0DH,0AH
DB '  Copyright  2000-2003  by     All Rights Reserved',0DH,0AH
DB 0DH,0AH
DB '              Press ESC to finish this program.',0DH,0AH
DB 0DH,0AH
DB 'Please input :  $'
DATA    ENDS
;**************************************************;代码区
CODE    SEGMENT PARA PUBLIC 'CODE'
;_________________________________________________________
                                                 ;主程序区
MAIN    PROC  FAR         ;主过程
        ASSUME  CS:CODE,  DS:DATA,  SS:STACK,  ES:DATA
START:  PUSH  DS
        MOV   AX,  00H
        PUSH  AX
        MOV   AX,  DATA
        MOV   DS,  AX
        MOV   ES,  AX

        MOV   DX,  OFFSET  MSG  ;显示提示信息
        MOV   AH,  9
        INT   21H
        CALL  INITOUT      ;初始化串行口
_WAIT2:
        MOV   AH,  6       ;检查键盘输入(不等待)
        MOV   DL,  0FFH
        INT   21H
        CMP   AL,  1BH     ;是否 ESC
        JZ    EXIT_S       ;是则转到结束

        MOV   DX,  2FDH    ;取线路状态寄存器
        IN    AL,  DX
        TEST  AL,  01H     ;测试 D1, 为 1 则接收完毕
        JZ    _WAIT2

        MOV   DX,  2F8H
        IN    AL,  DX      ;取来数据
        MOV   BL,  AL      ;暂时存放

        CMP   BL,  03H     ;检查是否结束符
        JZ    EXIT_S       ;是则转到结束

        MOV   DL,  AL      ;显示数据
        MOV   AH,  2
        INT   21H

        CMP   BL,  0DH
        JNZ   _WAIT2       ;如果不是'回车符', 转继续

        MOV   DL,  0DH     ;如是则回车换行
        MOV   AH,  2
        INT   21H          ;显示回车符
        MOV   DL,  0AH
        MOV   AH,  2
        INT   21H          ;显示换行符

        JMP   _WAIT2       ;转继续等待

EXIT_S:
        MOV   AX,  4C00H   ;程序结束
        INT   21H
        RET
MAIN    ENDP
;_________________________________________________________
                                                 ;子程序区
INITOUT PROC  NEAR
        MOV   DX, 2FBH
        MOV   AL, 80H     ;设置写波特率除数锁存器
        OUT   DX, AL

        MOV   DX, 2F8H
        MOV   AL, 80H
        OUT   DX, AL

        MOV   DX, 2F9H
        MOV   AL, 01H     ;除数 = 0180H, 波特率 = 600
        OUT   DX, AL

        MOV   DX, 2FBH    ;设定数据格式
        MOV   AL, 0AH     ;奇校验、1位停止位、7位数据位
        OUT   DX, AL

        MOV   DX, 2FCH    ;设置 MODEN控制寄存器
;        MOV   AL, 1FH    ;1FH令8250进行回送, 调试用
        MOV   AL, 0FH     ;0FH令8250进行不回送, 通信用
        OUT   DX, AL

        MOV   DX, 2F9H    ;设置中断允许寄存器
        MOV   AL, 00H     ;禁止所有中断
        OUT   DX, AL

        RET
INITOUT ENDP
;_________________________________________________________
CODE    ENDS
        END   START
;============================================================
百度空间的字体、排版真不敢恭维,格式全乱了。
复制出去,到记事本中查看,格式就整齐了。

你可能感兴趣的:(80x86汇编语言)