led matrix

[SADIN]

Can you find errors in my program?

I use 8051 for display “A” – led matrix 8×8

Control row: port 2

Control colum: port 1

 

ORG 0

LOOP:   MOV R1,#8

                                MOV A,#00000001B

                                MOV DPTR,#CHARA

LAP:       ACALL HT_COT

                                PUSH ACC

                                CLR A

                                MOVC A,@A+DPTR

                                ACALL HT_HANG

                                INC DPTR

                                POP ACC

                                RL A

                                DJNZ R1, LAP

                                SJMP LOOP

CHARA: DB          0FFH,3H,0EDH,0EEH,0EDH,3H,0FFH,0FFH 

 

HT_COT:              MOV P1,A

                                RET

 

HT_HANG:MOV P2,A

                                RET

 

DELAY_1ms:      

MOV R7,#5

DL:          MOV R6,#100

                DJNZ R6,$

                DJNZ R7,DL

                RET

                END

[Author]

Posts