Lập nhóm PIC16F877A

[nhockhochoai]

Em đang mô phổng lịch âm dương với PIC6f877a va DS12c887 nhưng không hiểu sao LCD không thể hiển thị.chỉ sáng xanh mà thôi.các bác giúp em phát hiên lỗi với.thank nhiều nhiều...mới học về PIC nên em không hiểu chắc lắm.mong mọi ngưới giúp đỡ
protues_hex:http://www.mediafire.com/?ixdwoylnyya
title "DONG HO SO"
;processor P16f877a
;#include <P16F77a.inc>
LIST P=16F877A
#INCLUDE P16F877A.INC

__CONFIG _CP_OFF&_PWRTE_ON&_WDT_OFF&_HS_OSC&_LVP_OFF
;+++++++++++++++++++++++++++++++++++++++++++++++++ +++++++
; CAC BIEN
CBLOCK 020H
COUNT1
COUNT2
COUNT3
CHUC_P
DV_P
CHUC_G
DV_G
C_P
DVP
C_G
G
MAPHIM
MAQUET
R4
R7
R6
BIENTAM
ENDC
;----------------------------------------------------------------------------------------
CT ORG 0x000
CLRF STATUS
MOVLW 00H
MOVWF PCLATH
GOTO START
;-----------------------------------------------------------------------------------------
; KHAI BAO PORT
START
ORG 0x005
BCF STATUS,RP1
BSF STATUS,RP0
errorlevel -302
CLRF TRISB
errorlevel -302
CLRF TRISC
errorlevel -302
CLRF TRISD
errorlevel -302
BCF STATUS,RP0

; CHUONG TRINH CHINH
MOVLW 0X05
MOVWF C_P
MOVLW 0X07
MOVWF DVP
MOVLW 0X06
MOVWF C_G
MOVLW 0X07
MOVWF G
MOVLW 0XFE
MOVWF MAQUET

LB CALL BCD_7DOAN
CALL DELAYHIENTHI

;GIAM DVI GIAY
DECF G,1
MOVF G,0
XORLW 0XFF
BTFSS STATUS,2
GOTO LB
DECF C_G,1
MOVLW D'9'
MOVWF G

;GIAM CHUC GIAY
MOVF C_G,0
XORLW 0XFF
BTFSS STATUS,Z
GOTO LB
DECF DVP,1
MOVLW 05H
MOVWF C_G

; GIAM DVI PHUT
MOVF DVP,0
XORLW 0FFH
BTFSS STATUS,Z
GOTO LB
DECF C_P,1
MOVLW 09H
MOVWF DVP

;GIAM CHUC PHUT
MOVF C_P,0
XORLW 0FFH
BTFSS STATUS,Z
GOTO LB
BCF PORTC,4
GOTO CT

BCD_7DOAN
MOVF G,0
CALL TABLE
MOVWF DV_G

MOVF C_G,0
CALL TABLE
MOVWF CHUC_G

MOVF DVP,0
CALL TABLE
MOVWF DV_P

MOVF C_P,0
CALL TABLE
MOVWF CHUC_P

RETURN
DELAYHIENTHI
MOVLW 0x004
MOVWF COUNT1
DEL1
MOVWF 0x100
MOVWF COUNT2
DEL2
CALL HIENTHI
DECFSZ COUNT2,1
GOTO DEL2
DECFSZ COUNT1,1
GOTO DEL1
RETURN
;quetphim
KEYPRES
MOVLW D'10'
MOVWF R4
KEYPRES1
CALL KEY
BTFSS STATUS,0
GOTO PN1
RETURN
PN1
DECFSZ R4,1
GOTO KEYPRES1
MOVWF BIENTAM
KEYPRES2
MOVLW D'10'
MOVWF R4
KEYPRES3
CALL KEY
BTFSS STATUS,0
GOTO KEYPRES2
DECFSZ R4,0
GOTO KEYPRES3
MOVF BIENTAM,0
RETURN
KEY MOVF MAQUET,0
MOVWF R7
MOVLW D'4'
MOVWF R6
MOVLW 0X00
MOVWF MAPHIM
KEY1
MOVF R7,1
MOVWF PORTD
MOVF PORTD,0
ANDLW 0XF0
XORLW 0XF0
BTFSS STATUS,Z
GOTO KEY2

RLF R7,1
MOVF MAPHIM,0
ADDLW 4
MOVWF MAPHIM
DECFSZ R6,1
GOTO KEY1
CLRF STATUS
MOVLW 0XFF
RETURN
KEY2
MOVWF BIENTAM
SWAPF BIENTAM,1
KEY4
RRF BIENTAM,0
BTFSS STATUS,0 ;THIEU BIT KIEM TRA CHO LA BIT THU 0
GOTO KEY3
INCF MAPHIM,1
GOTO KEY4

KEY3
MOVF MAPHIM,0
BSF STATUS,0 ;THIEU BIT KIEM TRA CHO LA BIT THU 0
RETURN
;+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++
HIENTHI
MOVF DV_G,0
MOVWF PORTB
MOVLW 0xFE
MOVWF PORTC

CALL DELAY

MOVF CHUC_G,0
MOVWF PORTB
MOVLW 0xFD
MOVWF PORTC

CALL DELAY

MOVF DV_P,0
MOVWF PORTB
MOVLW 0xFB
MOVWF PORTC

CALL DELAY

MOVF CHUC_P,0
MOVWF PORTB
MOVLW 0xF7
MOVWF PORTC
CALL DELAY

RETURN
;+++++++++++++++++++++++++++++
DELAY
MOVLW 0xFF
MOVWF COUNT3
DELA1
DECFSZ COUNT3,1
GOTO DELA1
RETURN

TABLE
ADDWF PCL,1
DT 0XC0,0XF9,0XA4,0XB0,0X99,0X92,0X82,0XF8,0X80,0X90
END