WSTA EQU 20H
STA BIT WSTA.0 ;亮滅標誌位
ORG 0000H
LJMP MAIN
ORG 000BH
LJMP B_T0 ;定時器中斷0入口
ORG 0030H
MAIN: MOV R0,#20H ;20H-7FH清零
MOV R7,#60H
CLR A
M01: MOV @R0,A
INC R0
DJNZ R7,M01
MOV TMOD,#01H ;方式1定時
MOV TH0,#9EH ;定時50ms
MOV TL0,#58H
MOV R7,#14 ;0.7s計數
SETB EA ;打開定時器總中斷
SETB ET0 ;打開定時器0中斷
SETB TR0 ;打開定時器0
CLR STA ;使標誌位初始為0
CLR P1.0 ;剛開始為低電平
SJMP $ ;等待中斷
B_T0: MOV TH0,#9EH ;定時50ms重設
MOV TL0,#58H
JB STA,B01
DJNZ R7,B02
MOV R7,#6 ;0.3s計數
SETB STA
SETB P1.0 ;燈滅
SJMP B02
B01: DJNZ R7,B02
MOV R7,#14 ;0.7s計數
CLR STA
CLR P1.0 ;燈亮
B02: RETI