gooda

ORG 0
JMP START
START: MOV DPTR,#TABLE
LOOP: CLR A
MOVC A,@A+DPTR
CJNE A,#00000000B,WORK
JMP START
WORK: MOV P0,A
INC DPTR
CALL DELAY
JMP LOOP
DELAY: MOV R7,#200
D1: MOV R6,#200
D2: DJNZ R6,D2
DJNZ R7,D1
RET
TABLE: DB 11000000B
DB 11111001B
DB 10100100B
DB 10110000B
DB 10011001B
DB 10010010B
DB 10000010B
DB 11111000B
DB 10000000B
DB 10010000B
DB 00000000B
END