PIC單片機閃爍程序

   #INCLUDE "P16F877.inc" ;芯片型號
 
   org   000h
   GOTO  a1
   org   1ch
 
;************************************************
;    主程序
;************************************************  
a1   
   BSF STATUS,RP0 ;選擇體1
   BCF STATUS,RP1  
   MOVLW 00H ;設(shè)置RD口為輸出口
   MOVWF TRISD        
   BCF  STATUS,RP0 ;選擇體0
   MOVLW 00H ;
   MOVWF PORTD ;RD口輸出低電平
   CALL M001 ;延時
   MOVLW 0FFH ;
   MOVWF PORTD ;RD口輸出高電平
   CALL M001 ;延時
   goto a1 ;反復(fù)執(zhí)行
;****************************************************
;    延時子程序
;****************************************************
M001
   MOVLW  4
   MOVWF  30H
M002  MOVLW  250
   MOVWF  31H
M003  MOVLW  248
   MOVWF  32H
   DECFSZ  32H,1  
   GOTO  $-1
   DECFSZ  31H,1  
   GOTO  M003
   DECFSZ  30H,1  
   GOTO  M002
   RETURN
;*******************************************************
;   程序結(jié)束
;*******************************************************   
   end