广告灯.asm

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

;===  广告灯  ===

      ORG 0000H 
START:MOV DPTR,#TABLE  ;取表的有效地址 
 LOOP:CLR A  ;A清零
      MOVC A,@A+DPTR  ;查表 
      CJNE A,#01H,LOOP1  ;查表是否结束？否的话，跳转至LOOP1
      JMP START  ;是的话，跳转至START

LOOP1:MOV P1,A  ;送A端口
      MOV R3,#20  ;
      LCALL DELAY  ;调用延时子程序
      INC DPTR  ;地址加1
      JMP LOOP

;===  延时子程序  ===
DELAY:MOV R4,#20 
   D1:MOV R5,#248 
      DJNZ R5,$ 
      DJNZ R4,D1 
      DJNZ R3,DELAY 
   RET

;左移2次，右移2次，闪烁2次的码值 
TABLE:DB 0FEH,0FDH,0FBH,0F7H  ;左移2次
      DB 0EFH,0DFH,0BFH,07FH
      DB 0FEH,0FDH,0FBH,0F7H 
      DB 0EFH,0DFH,0BFH,07FH

      DB 07FH,0BFH,0DFH,0EFH  ;右移2次
      DB 0F7H,0FBH,0FDH,0FEH 
      DB 07FH,0BFH,0DFH,0EFH 
      DB 0F7H,0FBH,0FDH,0FEH

      DB 00H,0FFH,00H,0FFH  ;闪烁2次
      DB 01H 
 END