MOV DIO,C
MOV R7,#30H
DJNZ R7,$
SETB DIO
NOP
NAP
NOP DJNZ R6,WRB1
RET
RDBYTE:MOV R6,#8 ;读1字节子程序
RDB1:CLR DUO
MOV R7,#3