[huytrung2009]

$MOD51
SDATA BIT P2.0
CK BIT P2.1
CLEAR BIT P2.2
ORG 00H
MAIN:
MOV DPTR,#DATALED1
LCALL HIENTHI
LJMP MAIN
HIENTHI:
MOV R7,#1
TT:
LCALL SCANMATRIX
CJNE A,#99H,TIEPTUC2
RET
TIEPTUC2:
DJNZ R7,TT
INC DPTR
INC DPTR
MOV A,DPL
CJNE A,#LOW(DATALED1+255),HIENTHI
MOV A,DPH
CJNE A,#HIGH(DATALED1+255),HIENTHI
RET
SCANMATRIX:
PUSH 00H
PUSH 01H
PUSH 02H
PUSH 03H
MOV R3,#0H
MOV R2,#64
CLR CK
CLR CLEAR
NOP
NOP
SETB CLEAR
NOP
SETB SDATA
SETB CK
NOP
CLR CK
CLR SDATA
SETB CK
NOP
CLR CK
SCAN:
MOV A,R3
MOVC A,@A+DPTR
CJNE A,#99H,TIEPTUC1
LJMP EXIT1
TIEPTUC1:
MOV P0,A
INC R3
MOV A,R3
MOVC A,@A+DPTR
MOV P1,A
LCALL DELAYLED
MOV P0,#0FFH;CHONG NHIEU
MOV P1,#0FFH;CHONG NHIEU
SETB CK
NOP
CLR CK
INC R3
DJNZ R2,SCAN
EXIT1:
POP 03H
POP 02H
POP 01H
POP 00H
RET
DELAYLED:
PUSH 00H
PUSH 01H
MOV R0,#2
LDELAY:
MOV R1,#250
DJNZ R1,$
DJNZ R0,LDELAY
POP 01H
POP 00H
RET
DATALED1:
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH












DB 7FH,0C0H,7FH,0DBH,7FH,0DBH,7FH,0DFH,0FFH,0E0H,0FFH ,0FFH
DB 0FFH,0C1H,0FFH,0FAH,7FH,7BH,0FFH,0FAH,0FFH,0C1H,0F FH,0FFH
DB 7FH,0DFH,7FH,0DFH,7FH,0C0H,7FH,0DFH,7FH,0DFH,0FFH, 0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 7FH,0C0H,0FFH,0FBH,0FFH,0FBH,0FFH,0FBH,7FH,0C0H,0F FH,0FFH
DB 0FFH,0E0H,7FH,0DFH,7FH,5FH,7FH,0DFH,0FFH,0E0H,0FFH ,0FFH
DB 0FFH,0E0H,7FH,0DFH,7FH,0DFH,7FH,0DFH,0FFH,0EEH,0FF H,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0E0H,7FH,0DFH,7FH,0DFH,7FH,0DFH,0FFH,0EEH,0FF H,0FFH
DB 0DFH,0E0H,6FH,0DFH,77H,0DFH,6FH,0DFH,0DFH,0E0H,0FF H,0FFH
DB 7FH,0C0H,0FFH,0FEH,0FFH,0FDH,0FFH,0FBH,7FH,0C0H,0F FH,0FFH
DB 0FFH,0E0H,7FH,0DFH,7FH,0DBH,7FH,0DBH,0FFH,0E2H,0FF H,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 7FH,0C0H,0FFH,0FEH,0FFH,0FDH,0FFH,0FBH,7FH,0C0H,0F FH,0FFH
DB 0FFH,0E0H,7FH,0DFH,7FH,0DBH,7FH,0DBH,0FFH,0E2H,0FF H,0FFH
DB 7FH,0C0H,0FFH,0FBH,0FFH,0FBH,0FFH,0FBH,7FH,0C0H,0F FH,0FFH
DB 7FH,0DFH,7FH,0DFH,7FH,0C0H,7FH,0DFH,7FH,0DFH,0FFH, 0FFH
DB 5FH,0C0H,6FH,0DBH,77H,5BH,6FH,0DBH,5FH,0DFH,0FFH,0 FFH
DB 7FH,0C0H,7FH,0FBH,7FH,0FBH,7FH,0FBH,0FFH,0FCH,0FFH ,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 7FH,0FFH,7FH,0FFH,7FH,0C0H,7FH,0FFH,7FH,0FFH,0FFH, 0FFH
DB 7FH,0C0H,7FH,0FBH,7FH,0FBH,7FH,0FBH,0FFH,0FCH,0FFH ,0FFH
DB 0FFH,0DFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 7FH,0C0H,0FFH,0FBH,0FFH,0FBH,0FFH,0FBH,7FH,0C0H,0F FH,0FFH
DB 0FFH,0E0H,7FH,0DFH,7FH,0DFH,7FH,0DFH,0FFH,0EEH,0FF H,0FFH
DB 7FH,0C0H,0FFH,0FEH,0FFH,0FDH,0FFH,0FEH,7FH,0C0H,0F FH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FBH,0FFH,0FBH,0FFH,0FBH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 7FH,0C0H,0FFH,0FBH,0FFH,0F5H,0FFH,0EEH,7FH,0DFH,0F FH,0FFH
DB 7FH,0C0H,0FFH,0FBH,0FFH,0FDH,0FFH,0FDH,0FFH,0C3H,0 FFH,0FFH
DB 0FFH,0E3H,0FFH,0DDH,0FFH,0DDH,0FFH,0DDH,0FFH,0E3H, 0FFH,0FFH
DB 0FFH,0E3H,0FFH,0DDH,0FFH,0DDH,0FFH,0EDH,0FFH,0C1H, 0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 7FH,0C0H,7FH,0DBH,7FH,0DBH,7FH,0DFH,0FFH,0E0H,0FFH ,0FFH
DB 7FH,0E1H,0FFH,0DFH,0FFH,0DFH,0FFH,0EFH,0FFH,0FFH
DB 7FH,0E3H,0BFH,0D5H,0DFH,55H,0BFH,0D5H,7FH,0DBH,0FF H,0FFH
DB 0FFH,0C1H,0FFH,0FBH,0FFH,0FDH,0FFH,0FDH,0FFH,0C3H, 0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FDH,7FH,0E0H,0FFH,0DDH,0FFH,0DDH,0FFH,0EFH,0 FFH,0FFH
DB 0EFH,0E1H,0F7H,0DFH,0D7H,0DFH,0EFH,0EFH,0BFH,0C0H, 7FH,0FFH
;so byte du lieu la 436





















DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 99H,99H,99H
END