广告灯的左移右移.asm

AT89S52单片机程序50例（00-50）

;===  广告灯左移右移  ===

      ORG 0000H 
START:MOV R2,#8  ;R2为移位次数
      MOV A,#0FEH
      SETB C 
 LOOP:MOV P1,A 
      LCALL DELAY 
      RLC A 
      DJNZ R2,LOOP  ;左移8次
      MOV R2,#8 
LOOP1:RRC A
      MOV P1,A 
      LCALL DELAY  
      DJNZ R2,LOOP1  ;右移8次
      LJMP START

;===  延时子程序  ===
DELAY:MOV R5,#20
   D1:MOV R6,#20 
   D2:MOV R7,#248 
      DJNZ R7,$ 
      DJNZ R6,D2 
      DJNZ R5,D1 
   RET 
 END