实验五、串行接口实验代码

CODE SEGMENT
ASSUME CS:CODE
START:
MAIN PROC
;配置8255
MOV AL,90H
OUT 1BH,AL
;配置8251
MOV AL,4EH		;0100 1110		异步工作方式，8位长度字符，不进行奇偶校验，一位停止位
OUT 39H,AL
MOV AL,35H		;0011 0101		允许发送、接收，错误标识复位，发送请求有效
OUT 39H,AL
PROCESS:
IN AL,18H
TEST AL,0FFH					;K0-K7全为0结束程序
JZ EXIT
MOV AH,AL						;发送接收数据均保存在AH中
CALL SEND						;调用发送数据子程序,发送AH中的数据
MOV AH,0H
CALL RECIEVE					;调用接收数据子程序,接收数据存放在AH中
MOV AL,AH						;输出AH中的数据
OUT 19H,AL
JMP PROCESS
EXIT:
MOV AL,00H
OUT 19H,AL
HLT
MAIN ENDP

SEND PROC
WAITS:
IN AL,39H						;取状态字
TEST AL,01H						;是否准备好发送
JZ WAITS						;木有，等一下
MOV AL,AH						;从AH中取得要发送的数据
OUT 38H,AL						;好鸟，发送数据
RET
SEND ENDP

RECIEVE PROC
WAITR:
IN AL,39H						;取状态字
TEST AL,02H						;是否准备好接收
JZ WAITR						;木有，等一下
IN AL,38h						;好鸟，接收数据
MOV AH,AL						;把接收到的数据存到AH中
RET
RECIEVE ENDP

CODE  ENDS
END START