STC公司的單片機主要是基于8051內核，是新一代增強型單片機，指令代碼完全兼容傳統8051，速度快8~12倍，帶ADC,4路PWM，雙串口，有全球唯一ID號，加密性好，抗干擾強.控制靈活！且價格便宜！也就幾塊錢吧！但你讓她發揮出了性能，就不止幾塊錢了哦！單片機叫什么？o(∩_∩)o...微型計算機···
                                                                                       ORG  000H   ;起始地址
                                                                             START:         ;開始
                                                                                          MOV R2,#10;設置循環次數
                                                                                    D0:
                                                                                         MOV  R0,#8  ;設置左移次數
                                                                                          MOV  A,#07FH;向A寄存器輸入初始值
                   
                                                                                           D2: RL  A;將A中數據向左移一位
                                                                                                    CALL DL;調入延時
                                                                                                MOV P1,A;輸出到P1口
                                                                                               DJNZ  R0,D2;檢測是否左移八次，否則繼續執行左移命令
                                                                                                   MOV  R1,#7;設置右移次數
                                                                                         D3: RR   A;將A中數據向右移一位
                                                                                                CALL DL;調入延時
                                                                                                MOV P1,A;將A中數據輸出到P1口
                                                                                                MOV P0,A;并聯輸出至P0口
                                                                                                DJNZ R1,D3;檢測是否右移了七次，否則繼續執行右移命令
                                                                                                 DJNZ R2,D0;檢測是否循環了十次，否則繼續循環
                                                                                                  MOV A,#0FFH;向A中載入新數據
                                                                                              D4:SUBB A,#01;執行減法運算
                                                                                                     CALL  DL1;調入延時程序1
                                                                                                      MOV R3,A;將A中數據傳送給R3
                                                                                                     MOV  P1,R3;將R3（寄存器）中數據輸出至P1口
                                                                                                    DJNZ R3,D4;檢測R3是否為零，否則繼續執行減法運算
                                                                                                     JMP  START;跳到開始執行
                                                                                            DL1:    MOV  R7,#90;延時程序1
                                                                                                 L4:  MOV  R6,#20
                                                                                                 L3:  MOV R5,#50
                                                                                                         DJNZ  R5,$
                                                                                                          DJNZ  R6,L3
                                                                                                          DJNZ  R7,L4
                                                                                                           RET   ;子程序返回
                         
                                                                                                            DL:             ;延時程序
                                                                                                                   MOV   R3,#20
                                                                                                                   L1:MOV  R4,#15
                                                                                                                    L2:MOV  R5,#50
                                                                                                                          DJNZ  R5,$
                                                                                                                          DJNZ  R4,L2
                                                                                                                          DJNZ  R3,L1
                                                                                                                           RET  ;子程序返回
                                                                                                                            END  ;結束
                                                                                            
                                                                                                                         編程：藍色夢幻
                                                                                                                          2013年6月9日

相關文章