我写的基于VB的单片机串口上位机通讯程序

				/以中断方式执行串口数据的收发工作
				PUSH PSW     ;程序状态字压入堆栈
				PUSH ACC     ;累加器压入堆栈
				CLR EA       ;关系统中断
				CLR RI       ;清接收中断标志位
				MOV A,SBUF   ;从接收缓冲器中读取数据
				MOV 70H,A      ;以下程序一除法方式分解接收的数据,例如接收到的数据为244,则分解成百位2,十位4,个位                4,按位送数码管显示
				MOV B,#100
				DIV AB
				MOV 52H,A      ;分解得百位,送入存储器52H
				MOV A,B
				MOV B,#10
				DIV AB
				MOV 51H,A      ;分解得十位,送入存储器51H
				MOV 50H,B      ;分解得个位,送入存储器50H
				MOV A,70H
				MOV B,#2
				DIV AB         ;接收到的数据完成除2操作
				MOV SBUF,A     ;结果送发送缓冲器,开始发送
				ACALL DL1        ;延时1ms程序,保证数据完全发送
				ACALL DL1
				CLR TI         ;清发送中断标志位
				SETB EA     ;系统开中断
				POP ACC       ;累加器出栈,恢复现场
				POP PSW      ;程序状态字出栈
				RETI         ;中断返回程序