红心J 

 参考
SEND:      SETB P2.6
           MOV R0,#78H          ;指向首个显缓单元，78H~7FH为显缓区
           MOV R2,#8            ;8个显示单元
SEND_LOOP2:MOV R1,#8            ;每个单元8个位
           MOV A,@R0          
SEND_LOOP1:RLC A
           MOV P2.7,C           ;DATA
           ACALL SHORT_DELAY
           CLR P2.6             ;CLOCK
           ACALL SHORT_DELAY
           SETB P2.6
           DJNZ R1,SEND_LOOP1
           INC R0               ;指向下一显缓单元
           DJNZ R2,SEND_LOOP2
           RET
           
SHORT_DELAY:RET

发表时间:2003年3月3日9:49:00