;T16550-1.asm
;16550串行通訊基礎實驗

;****************根據查看端口資源修改下列符號值*******************
IOY0         EQU   9C00H          ;片選IOY0對應的端口始地址
;*****************************************************************
MY16550_0    EQU   IOY0+00H*4     ;16550數據緩沖寄存器端口地址
MY16550_1    EQU   IOY0+01H*4     ;16550中斷允許寄存器端口地址
MY16550_3    EQU   IOY0+03H*4     ;16550線路控制寄存器端口地址

STACK1 SEGMENT STACK
        DW 256 DUP(?)
STACK1 ENDS

CODE SEGMENT
        ASSUME CS:CODE

START: MOV DX,MY16550_3           ;設置16550線路控制寄存器
       MOV AL,80H                 ;準備設置波特率除數寄存器
       OUT DX,AL

       MOV DX,MY16550_0           ;設置除數寄存器低字節0CH  
       MOV AL,0CH                 ;000C對應9600 bit/s
       OUT DX,AL            
                            
       MOV DX,MY16550_1           ;設置除數寄存器高字節00H
       MOV AL,00H
       OUT DX,AL
       
       MOV DX,MY16550_3           ;設置線路控制寄存器，初始化數據格式
       MOV AL,1BH                 ;偶校驗，1位停止位，字符寬度為8
       OUT DX,AL
             
       MOV DX,MY16550_1           ;設置中斷允許寄存器
       MOV AL,00H                 ;中斷不打開
       OUT DX,AL

SEND:  MOV DX,MY16550_0           ;向發送緩沖寄存器寫數
       MOV AL,55H
       OUT DX,AL         
       CALL DALLY

       MOV AH,1                   ;判斷是否有按鍵按下
       INT 16H
       JZ  SEND                   ;無按鍵則跳回繼續等待，有則退出

QUIT:  MOV AX,4C00H               ;結束程序退出
       INT 21H

DALLY PROC NEAR                   ;軟件延時子程序
       PUSH CX
       PUSH AX
       MOV CX,0100H
D1:    MOV AX,1000H
D2:    DEC AX
       JNZ D2
       LOOP D1
       POP AX
       POP CX
       RET
DALLY ENDP

CODE ENDS
     END START