Hiển thị ma trận LED

[DCP]

có bác nào viết ams không ,xem giúp em cái ct này chút.
không biết sao mà nó chả chịu chạy gì cả.
;chuong trinh dieu khien 4led8x8
;voi cac hang duoc noi vao nhau va du lieu duoc
;gui vao cac cot thong qua cac ic 74595.
LIST P=16F84A
INCLUDE P16F84A.INC
CBLOCK 0X0C
DELAY1,DELAY2,DEMBIT,DEMTB,DEMLAP,DL1,DL2,DL3,DL4, DL5,DL6,DL7,DL8
DL9,DL10,DL11,DL12,DL13,DL14,DL15,DL16,DL17,DL18,D L19,DL20,DL21,DL22
DL23,DL24,DL25,DL26,DL27,DL28,DL29,DL30,DL31,DL32, RAM
ENDC
#DEFINE DATA PORTA,0
#DEFINE CLOCK PORTA,1
#DEFINE CHOTB PORTA,2
#DEFINE CLEAR PORTA,3
ORG 0X00
MAIN BSF STATUS,5
MOVLW B'10000'
MOVWF TRISA
CLRW
MOVWF TRISB
BCF STATUS,5
CLRW
MOVWF PORTA
MOVWF PORTB
MOVWF DEMBIT
MOVWF DEMTB
MOVWF DEMLAP
START
MOVLW 0XFF
MOVWF DL1
MOVWF DL2
MOVWF DL3
MOVWF DL4
MOVWF DL5
MOVWF DL6
MOVWF DL7
MOVWF DL8
MOVWF DL9
MOVWF DL10
MOVWF DL11
MOVWF DL12
MOVWF DL13
MOVWF DL14
MOVWF DL15
MOVWF DL16
MOVWF DL17
MOVWF DL18
MOVWF DL19
MOVWF DL20
MOVWF DL21
MOVWF DL22
MOVWF DL23
MOVWF DL24
MOVWF DL25
MOVWF DL26
MOVWF DL27
MOVWF DL28
MOVWF DL29
MOVWF DL30
MOVWF DL31
MOVWF DL32
START1 MOVLW D'100'
MOVWF DEMLAP
CALL HIEU_UNG
INCF DEMTB
MOVF DEMTB,W
CALL TABLE
MOVWF DL32
XORLW D'10'
BTFSC STATUS,Z
GOTO START
START2 DECFSZ DEMLAP
GOTO START3
GOTO START1
START3 CALL QUET_DL
GOTO START2
QUET_DL CALL XOA
MOVF DL32,W
CALL SUAT_BIT
MOVF DL31,W
CALL SUAT_BIT
MOVF DL30,W
CALL SUAT_BIT
MOVF DL29,W
CALL SUAT_BIT
CALL CHOT
CALL QUET_HANG1
CALL DELAY
CALL XOA
MOVF DL28,W
CALL SUAT_BIT
MOVF DL27,W
CALL SUAT_BIT
MOVF DL26,W
CALL SUAT_BIT
MOVF DL25
CALL SUAT_BIT
CALL CHOT
CALL QUET_HANG2
CALL DELAY
CALL XOA
MOVF DL24,W
CALL SUAT_BIT
MOVF DL23,W
CALL SUAT_BIT
MOVF DL22,W
CALL SUAT_BIT
MOVF DL21,W
CALL SUAT_BIT
CALL CHOT
CALL QUET_HANG3
CALL DELAY
CALL XOA
MOVF DL20,W
CALL SUAT_BIT
MOVF DL19,W
CALL SUAT_BIT
MOVF DL18,W
CALL SUAT_BIT
MOVF DL17,W
CALL SUAT_BIT
CALL CHOT
CALL QUET_HANG4
CALL DELAY
CALL XOA
MOVF DL16,W
CALL SUAT_BIT
MOVF DL15,W
CALL SUAT_BIT
MOVF DL14,W
CALL SUAT_BIT
MOVF DL13,W
CALL SUAT_BIT
CALL CHOT
CALL QUET_HANG5
CALL DELAY
CALL XOA
MOVF DL12,W
CALL SUAT_BIT
MOVF DL11,W
CALL SUAT_BIT
MOVF DL10,W
CALL SUAT_BIT
MOVF DL9,W
CALL SUAT_BIT
CALL CHOT
CALL QUET_HANG6
CALL DELAY
CALL XOA
MOVF DL8,W
CALL SUAT_BIT
MOVF DL7,W
CALL SUAT_BIT
MOVF DL6,W
CALL SUAT_BIT
MOVF DL5,W
CALL SUAT_BIT
CALL CHOT
CALL QUET_HANG7
CALL DELAY
CALL XOA
MOVF DL4,W
CALL SUAT_BIT
MOVF DL3,W
CALL SUAT_BIT
MOVF DL2,W
CALL SUAT_BIT
MOVF DL1,W
CALL SUAT_BIT
CALL CHOT
CALL QUET_HANG8
CALL DELAY
RETURN
QUET_HANG1
MOVLW B'00000001'
MOVWF PORTB
RETURN
QUET_HANG2 MOVLW B'00000010'
MOVWF PORTB
RETURN
QUET_HANG3 MOVLW B'00000100'
MOVWF PORTB
RETURN
QUET_HANG4 MOVLW B'00001000'
MOVWF PORTB
RETURN
QUET_HANG5 MOVLW B'00010000'
MOVWF PORTB
RETURN
QUET_HANG6 MOVLW B'00100000'
MOVWF PORTB
RETURN
QUET_HANG7 MOVLW B'01000000'
MOVWF PORTB
RETURN
QUET_HANG8 MOVLW B'10000000'
MOVWF PORTB
RETURN
SUAT_BIT
MOVWF RAM
MOVLW D'8'
MOVWF DEMBIT
LOOP BCF DATA
BTFSC RAM,7
BSF DATA
BSF CLOCK
NOP
BCF CLOCK
RLF RAM,1
DECFSZ DEMBIT
GOTO LOOP
RETURN
XOA BCF CLEAR
NOP
BSF CLEAR
RETURN
CHOT BSF CHOTB
NOP
BCF CHOTB
RETURN
HIEU_UNG MOVF DL2,W
MOVWF DL1
MOVF DL3,W
MOVWF DL2
MOVF DL4,W
MOVWF DL3
MOVF DL5,W
MOVWF DL4
MOVF DL6,W
MOVWF DL5
MOVF DL7,W
MOVWF DL6
MOVF DL8,W
MOVWF DL7
MOVF DL9,W
MOVWF DL8
MOVF DL10,W
MOVWF DL9
MOVF DL11,W
MOVWF DL10
MOVF DL12,W
MOVWF DL11
MOVF DL13,W
MOVWF DL12
MOVF DL14,W
MOVWF DL13
MOVF DL15,W
MOVWF DL14
MOVF DL16,W
MOVWF DL15
MOVF DL17,W
MOVWF DL16
MOVF DL18,W
MOVWF DL17
MOVF DL19,W
MOVWF DL18
MOVF DL20,W
MOVWF DL19
MOVF DL21,W
MOVWF DL20
MOVF DL22,W
MOVWF DL21
MOVF DL23,W
MOVWF DL22
MOVF DL24,W
MOVWF DL23
MOVF DL25,W
MOVWF DL24
MOVF DL26,W
MOVWF DL25
MOVF DL27,W
MOVWF DL26
MOVF DL28,W
MOVWF DL27
MOVF DL29,W
MOVWF DL28
MOVF DL30,W
MOVWF DL29
MOVF DL31,W
MOVWF DL30
MOVF DL32,W
MOVWF DL31
RETURN
DELAY
CLRF DELAY1
MOVLW D'1'
MOVWF DELAY2
LOOP1 DECFSZ DELAY1
GOTO LOOP1
DECFSZ DELAY2
GOTO LOOP1
RETURN
TABLE ADDWF PCL
RETLW 0X00
RETLW B'10000001'
RETLW B'01111110'
RETLW B'01111110'
RETLW B'10111101'
RETLW B'11111111'
RETLW B'11111111'
RETLW B'10000000'
RETLW B'01111111'
RETLW B'01111111'
RETLW B'10000000'
RETLW B'11111111'
RETLW B'11111111'
RETLW B'00000000'
RETLW B'11111011'
RETLW B'11101111'
RETLW B'00000000'
RETLW B'11111111'
RETLW B'11111111'
RETLW B'10000001'
RETLW B'01111110'
RETLW B'01011110'
RETLW B'00011101'
RETLW B'11111111'
RETLW B'11111111'
RETLW B'11111111'
RETLW D'10'
END