BẬT TẮT LED 1s
Code:
;========================================
;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