;AT90S8515的PA口LED廣告燈演示程序
.include"8515def.inc"		;器件配置文件
.org   $0000            	;設置起始地址
.equ   leddata=0x0250
  rjmp   reset
.cseg
.org   $0010
RESET:ldi  r16,$5f             ;設置堆棧
      out  spl,r16
      ldi  r16,$02
      out  sph,r16
      ldi  r16,$90
      mov  r15,r16
      ser  r16                 ;設置A口為輸出口
      out  ddra,r16            ;設置A口方向寄存器 
   L0:ldi  zl,low(leddata*2)
      ldi  zh,high(leddata*2)
   L1:lpm
      mov   r16,r0
      cpi   r16,$0a
      breq  L0
      out   porta,r16
      rcall delay               ;調用延時子程序
      ld    r0,z+
      rjmp  L1  
DELAY:push  r15                 ;延時子程序
   L2:push  r15
   L3:push  r15
   L4:dec   r15
      brne  l4
      pop   r15
      dec   r15
      brne  l3
      pop   r15
      dec   r15  
      brne  l2
      pop   r15
      ret 
.cseg                           ;設置LED廣告燈數據表
.org  leddata
.db 0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f,0xbf,0xdf,0xef,0xf7,0xfb,0xfd
.db 0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f,0xbf,0xdf,0xef,0xf7,0xfb,0xfd
.db 0x00,0x18,0x3c,0x7e,0xff,0x7e,0x3c,0x18
.db 0x00,0x18,0x3c,0x7e,0xff,0x7e,0x3c,0x18
.db 0xf8,0xf1,0xe3,0xc7,0x8f,0x1f,0x8f,0xc7,0xe3,0xf1
.db 0xf8,0xf1,0xe3,0xc7,0x8f,0x1f,0x8f,0xc7,0xe3,0xf1
.db 0xfe,0xfc,0xf8,0xf0,0xe0,0xc0,0x80,0x00,0x80,0xc0,0xe0,0xf0,0xf8,0xfc
.db 0xfe,0xfc,0xf8,0xf0,0xe0,0xc0,0x80,0x00,0x80,0xc0,0xe0,0xf0,0xf8,0xfc
.db 0xff,0xe7,0xdb,0xbd,0x7e,0xbd,0xdb,0xe7
.db 0xff,0xe7,0xdb,0xbd,0x7e,0xbd,0xdb,0xe7 
.db 0xff,0x00
.db 0xff,0x00
.db 0xff,0x00
.db 0xff,0x00
.db 0x0a,0x0a