; 6LED程序
         
         DBUF  EQU  30H
         TEMP  EQU  40H
       ORG 0000H
       LJMP START
       ORG  0030
START:
         MOV 35H,#1
         MOV 34H,#6
         MOV 33H,#8
         MOV 32H,#1
         MOV 31H,#6
         MOV 30H,#8

       MOV R0,#DBUF
       MOV R1,#TEMP
       MOV R2,#6
       MOV DPTR,#SEGTAB
DP00:  MOV A,@R0
       MOVC A,@A+DPTR
       MOV @R1,A
       INC R1
       INC R0
       DJNZ R2,DP00
DISP0: MOV R0,#TEMP
       MOV R1,#6
       MOV R2,#1
 DP01: MOV A,@R0
       MOV P0,A
       MOV A,R2
       MOV P1,A
       ACALL DELAY
       MOV A,R2
       RL A
       MOV R2,A
       INC R0
       DJNZ R1,DP01
       SJMP DISP0
SEGTAB:DB 3FH,06H,5BH,4FH,66H,6DH      ;0,1,2,3,4,5
       DB 7DH,07H,7FH,6FH,77H,7CH      ;6,7,8,9,A,B
       DB 58H,5EH,7BH,71H,00H,40H      ;C,D,E,F, ,-

DELAY: MOV   R4,#03H
AA1:   MOV   R5,#0FFH
AA:    NOP
       NOP
       DJNZ  R5,AA
       DJNZ  R4,AA1
       RET
       END