PIC單片機閃爍程序

org   000hGOTO  a1org   1ch;************************************************;    主程序;************************************************  a1   BSF STATUS,RP0 ;選擇體1BCF STATUS,RP1  MOVLW 00H ;設置RD口為輸出口MOVWF TRISD        BCF  STATUS,RP0 ;選擇體0MOVLW 00H ;MOVWF PORTD ;RD口輸出低電平CALL M001 ;延時MOVLW 0FFH ;MOVWF PORTD ;RD口輸出高電平CALL M001 ;延時goto a1 ;反復執行;****************************************************;    延時子程序;****************************************************M001MOVLW  4MOVWF  30HM002  MOVLW  250MOVWF  31HM003  MOVLW  248MOVWF  32HDECFSZ  32H,1  GOTO  $-1DECFSZ  31H,1  GOTO  M003DECFSZ  30H,1  GOTO  M002RETURN;*******************************************************;   程序結束;*******************************************************   end