chương trình đọc adc dùng pic 16f877a lm35

[takata]

đây là đoạn lệnh của mình. k biết sai gì mà báo đến 59 lỗi hiz
Mong các sư huynh giúp đỡ gấp.Vì mai là nộp bài rồi
Chân thành cảm ơn


PROCESSOR 16F877A
#INCLUDE <P16F877A.INC>
ORG 0000H
BSF STATUS,5
BCF STATUS,6
BSF TRISA,0
BSF TRISA,3
CLRF TRISB
BCF STATUS,5
CLRF PORTA
CLRF PORTB
MAIN
CALL ADC
CALL XULYMACH
GOTO MAIN
XULYMACH
MOVLW D'10'
SUBWF ADRESL,0
BTFSS STATUS,0
GOTO XULY
MOVLW D'20'
SUBWF ADRESL,0
BTFSS STATUS,0
GOTO XULY1
MOVLW D'30'
SUBWF ADRESL,0
BTFSS STATUS,0
GOTO XULY2
MOVLW D'40'
SUBWF ADRESL,0
BTFSS STATUS,0
GOTO XULY3
MOVLW D'50'
SUBWF ADRESL,0
BTFSS STATUS,0
GOTO XULY4
MOVLW D'60'
SUBWF ADRESL,0
BTFSS STATUS,0
GOTO XULY5
MOVLW D'70'
SUBWF ADRESL,0
BTFSS STATUS,0
GOTO XULY6
MOVLW D'80'
SUBWF ADRESL,0
BTFSS STATUS,0
GOTO XULY7
MOVLW D'90'
SUBWF ADRESL,0
BTFSS STATUS,0
GOTO XULY8
XULY
BCF STATUS,5
MOVLW D'6'
ADDWF ADRESL,0
GOTO XUAT
XULY1
MOVLW D'12'
ADDWF ADRESL,0
GOTO XUAT
XULY2
MOVLW D'18'
ADDWF Z ADRESL,0
GOTO XUAT
XULY3
MOVLW D'24'
ADDWF ADRESL,0
GOTO XUAT
XULY4
MOVLW D'30'
ADDWF ADRESL,0
GOTO XUAT
XULY5
MOVLW D'36'
ADDWF ADRESL,0
GOTO XUAT
XULY6
MOVLW D'42'
ADDWF ADRESL,0
GOTO XUAT
XULY7
MOVLW D'48'
ADDWF ADRESL,0
GOTO XUAT
XULY8
MOVLW D'54'
ADDWF ADRESL,0
GOTO XUAT
XUAT
BSF STATUS,5
MOVWF PORTB
GOTO MAIN
ADC
BSF STATUS,5
BCF STATUS,6
BCF ADCON1,3
BSF ADCON1,2
BCF ADCON1,1
BSF ADCON1,0
BCF STATUS,5
BCF ADCON0,5
BCF ADCON0,4
BCF ADCON0,3
BCF ADCON0,7
BCF ADCON0,6
BSF STATUS,5
BSF ADCON1,6
BCF ADCON1,7
BCF STATUS,5
BSF ADCON0,0
BSF ADCON0,2
LOOP
BCF STATUS,5
BTFSC ADCON0,2
GOTO LOOP
RETURN
END