液晶點陣顯示

　　$include（t89c51cc01.inc）

　　org 0000h

　　ljmp init

　　init： mov sp， #70h

　　MOV R1， #00H

　　MOV R4， #08H

　　LJMP main

　　main：

　　MOV R2， #08H

　　MOV R3， #06H

　　CLR C

　　DJNZ R4， AROW

　　LJMP init

　　AROW：

　　MOV A， R1

　　MOV DPTR， #DATA2

　　MOVC A， @A+DPTR

　　ROLL：

　　RRC A

　　MOV P4.1， C

　　CLR P4.0

　　SETB P4.0

　　DJNZ R2， ROLL

　　INC R1

　　MOV R2， #08H

　　DJNZ R3， AROW

　　CLR P3.2

　　SETB P3.2

　　CLR P3.2

　　LJMP main

　　DATA1：

　　DB 11111111B，11111111B，11111111B，11111111B，11111111B，11111101B

　　DB 11111101B，11000111B，10001011B，11101111B，10011110B，11111011B

　　DB 00111111B，11110111B，01101101B，11101111B，10101110B，11110111B

　　DB 11011101B，11100110B，10001111B，11101111B，10011110B，11101111B

　　DB 00111101B，11010111B，11101111B，11100111B，10101111B，11011111B

　　DB 11111101B，11100111B，11101111B，11101011B，10011110B，10111111B

　　DB 11111111B，11111111B，11111111B，11111111B，11111111B，01111111B

　　DB 00000000B，00000000B，00000000B，00000000B，00000000B，11111101B

　　DB 00000000B，11111111B，00000000B，00000000B，00000000B，11111011B

　　DB 00001111B，11000011B，11111000B，00000000B，00000000B，11110111B

　　DB 11111100B，00000000B，00011111B，11000000B，00000001B，11101111B

　　DB 00000000B，00000000B，00000000B，11111110B，00111111B，11011111B

　　DB 00000000B，00000000B，00000000B，00000111B，11110000B，10111111B

　　DB 00000000B，00000000B，00000000B，00000000B，00000000B，00000000B

　　DATA2：

　　DB 00001111B，00000000B，00000000B，00000000B，00000000B，11111101B

　　DB 00001111B，11100000B，00000011B，00000000B，00000000B，11111011B

　　DB 11111100B，01111110B，00111111B，00000000B，00000000B，11110111B

　　DB 10000000B，00000011B，11111000B，00000011B，00000000B，11101111B

　　DB 00000000B，00000000B，00000000B，11110111B，00000011B，11011111B

　　DB 00000000B，00000000B，00000000B，00111110B，11111111B，10111111B

　　DB 00000000B，00000000B，00000000B，00000000B，11110000B，01111111B

　　end