0C03 7A55 MOV R2,#55H
0C05 120213 LCALL DELY;延时
0C08 7F05 MOV R7,#05H ;闪烁次数
0C0A 90FFD8 JOD2: MOV DPTR,#0FFD8H
0C0D 749E MOV A,#9EH
0C0F F0 MOVX @DPTR,A
0C10 A3 INC DPTR
0C11 7407 MOV A,#07H
0C13 F0 MOVX @DPTR,A ;东西红灯亮,南北黄灯亮
0C14 7A20 MOV R2,#20H
0C16 120213 LCALL DELY;延时
0C19 90FFD8 MOV DPTR,#0FFD8H
0C1C 74BE MOV A,#0BEH
0C1E F0 MOVX @DPTR,A
0C1F A3 INC DPTR
0C20 740F MOV A,#0FH
0C22 F0 MOVX @DPTR,A ;东西红灯亮
0C23 7A20 MOV R2,#20H
0C25 120213 LACLL DELY ;延时
0C28 DFE0 DJN R7,JOD2 ;闪烁次数未到继续
0C2A 020BC8 LJMP JOD3 ;循环
ORG 0213H
0213 C002 DELY: PUSH 02H
0215 C002 DEL2: PUSH 02H
0217 C002 DEL3: PUSH 02H ;延时
0219 DAFE DEL4: DJNZ R2,DEL4
021B D002 POP 02H
021D DAF8 DJNZ R2,DEL3
021F D002 POP 02H
0221 DAF2 DJNZ R2,DEL2
0223 D002 POP 02H
0225 DAEC DJNZ R2,DELY
0227 22 RET
END
上一篇:ADC0809转换程序