;串列傳輸練習;  傳送端

buffer  equ     30h
;--------------------------------------
        mov     scon,#01000000b    ;設定串列傳輸工作於模式1, 不可接收資料
        mov     tmod,#00100000b    ;設定TIMER1工作於模式2(自動載入模式)
        mov     th1,#253           ;設定自動載入值為253(在石英震盪器為11.059MHz時, 鮑率為9600bps)
        setb	tr1                ;啟動TIMER1
        mov     buffer,#0
count:  mov     a,buffer
        mov     sbuf,a             ;將資料送到SBUF傳送出去
        jnb     ti,$               ;判斷是否傳送完畢(TI=1), 否則停在此行
        clr     ti                 ;清除傳送完畢旗號
        mov     r5,#50
        call	delay
        inc     buffer
        jmp     count

;--------------------------------------
delay:  mov     r6,#200
del1:   mov     r7,#200
del:    djnz    r7,del
        djnz    r6,del1
        djnz    r5,delay
        ret
;--------------------------------------
        end