MAIN: CLR EA
MOV SP, #60H
MOV PSW,#00H
clr WR_CLK ;
clr FQ_UD ;初始管脚
CLR Reset
;由并口转换串口,产生时钟
SETB WR_CLK
CLR WR_CLK
SETB FQ_UD
CLR FQ_UD
;硬件复位
SETB Reset
CLR Reset
;送数据
MOV R7, #05H
MOV DPTR, #F_10KHZ
LOOP: CLR A
MOVC A, @A+DPTR
INC DPTR
LCALL SHIFT
DJNZ R7, LOOP
SETB FQ_UD
CLR FQ_UD
LOOP1: NOP
JMP LOOP1
;数据移位子程序
SHIFT: MOV R6, #08H
clr WR_CLK
AGAIN: RRC A
MOV D_IN, C
SETB WR_CLK
NOP
NOP
CLR WR_CLK
DJNZ R6, AGAIN
RET
F_10KHZ: DB 72H,1BH,0DH,00H,00H ;产生10KHZ频率的
数据
END