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