|
我要送data去終端機,但是終端機收不到,不知程式出了什么問題=o="
有人可以幫我修改一下嗎??謝謝!!
程式如下:
ORG 00H
ORG 0030H
SETB EA
MOV TMOD, #00100000B ;8 bits auto-reload mode
ANL PCON,#01111111B ;Close SMOD
MOV SP,#60H
LJMP MAIN
MAIN:
CALL INIT_RS232
MOV A,#'A'
MOV SBUF,A ;Send out the data
LCALL DY100ms
LCALL DY100ms
LCALL DY100ms
LJMP MAIN
INIT_RS232:
MOV SCON,#50H
MOV TMOD,#20H
MOV TH1,#0F4H
SETB TR1
SETB TI
RET
;The delay
DY100ms: MOV R1,#100
DY1ms: CALL DY500US
CALL DY500US
DJNZ R1,DY1ms
RET
DY500US: MOV R0,#498
DJNZ R0,$
NOP
RET
END
|
|