20: DLY1: MOV R6, #100
21: DLY2: MOV R7, #100
22: DJNZ R7, $
23: DJNZ R6, DLY2
24: DJNZ R5, DLY1
25: RET ；子程序返回
26: END ；程序结束 7.功能说明
单片机端口接八只LED，编程时利用取表的方法，使端口P1做单一灯的变化：先向左移2次，然后向右移2次，再闪烁4次,不断循环。 程序:
01: START: MOV DPTR, #TABLE ；存表
02: LOOP: CLR A ；A清零
03: MOVC A, @A+DPTR ；取表代码
04: CJNE A, #01H, LOOP1；不是01H，循环
05: JMP START ；重新设定
06: LOOP1: MOV P1, A ；送P1输出
07: ACALL DELAY ；调延时程序
08: INC DPTR ；数据指针加1
09: JMP LOOP ；转移到LOOP处
10: DELAY: MOV R5,#25 ；延时0.5秒
11: DLY1: MOV R6,#100 ；
12: DLY2: MOV R7,#100 ；
13: DJNZ R7,$ ；
14: DJNZ R6,DLY2 ；
15: DJNZ R5,DLY1 ；
16: RET ；
17: TABLE: DB 0FEH,0FDH,0FBH,0F7H ；
18: DB 0EFH,0DFH,0BFH,7FH ； 左移
19: DB 0FEH,0FDH,0FBH,0F7H ；
20: DB 0EFH,0DFH,0BFH,7FH ； 左移
21: DB 7FH,0BFH,0DFH,0EFH ；
22: DB 0F7H,0FBH,0FDH,0FEH ； 右移
23: DB 7FH,0BFH,0DFH,0EFH ；
24: DB 0F7H,0FBH,0FDH,0FEH ； 右移
25: DB 00H,0FFH,00H,0FFH ；
26: DB 00H,0FFH,00H,0FFH ； 闪烁
27: DB 01H ；
28: END
结束码 ；
