Pic16f877a TỪ DỄ TỚi KhÓ

[nhh]

BẬT TẮT LED 1s

;========================================
;Auhor:		NHH
;Date:		10/02/06
;Hardware:	PIC16F877A 
		;XTAL 10MHz, PORTB noi voi 8 LED qua 8 dien tro 220Ohm 
;========================================
	TITLE 		"ON-OFF LED 1 SECOND"
	PROCESSOR	PIC16f877A 
	INCLUDE<P16f877A.inc> 
	__CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _HS_OSC & _WRT_OFF & _CPD_OFF &_LVP_OFF
;=============================================================================	
	COUNT1 EQU 0x20
	COUNT2 EQU 0x21
	COUNT3 EQU 0x22
;=========================CHUONG TRINH CHINH=========================
	ORG 0x000
	GOTO 	MAIN

MAIN
	BCF STATUS,RP1
	BSF STATUS,RP0 		; select BANK 1
	CLRF TRISB 		; PORTB output
	BCF STATUS,RP0 		;  select BANK 0

	MOVLW	d'255'
	MOVWF	COUNT1		;<-COUNT1=255	
	MOVWF	COUNT2		;<-COUNT2=255
NEXT	
	MOVLW	d'14'
	MOVWF	COUNT3		;<-COUNT3=13
	MOVLW	b'11111111'	;LED ON
	MOVWF	PORTB
	CALL	LOOP

	MOVLW	d'14'
	MOVWF	COUNT3		;<-COUNT3=13
	MOVLW	b'00000000'	;LED OFF
	MOVWF	PORTB	
	CALL	LOOP
	
	GOTO	NEXT		
;========================CHUONG TRINH CON====================
LOOP
	DECFSZ	COUNT1,1
	GOTO	LOOP
	DECFSZ	COUNT2,1
	GOTO	LOOP
	DECFSZ	COUNT3,1
	GOTO	LOOP		
	RETURN
		
	END