; 产品名称:频闪灯
; CUP:EMC78P153S
; 作者:Huang Zhi Qi
; P5.2 放电1
; P5.3 放电2
; P6.2 控制振荡
; P5.1 高压检测
; P6.6 ;模式开关
R1 == 0X01
R2 == 0X02
R3 == 0X03
PORT5 == 0X05
PORT6 == 0X06
IOCB == 0X0B
IOCC == 0X0C
IOCD == 0X0D
IOCE == 0X0E
IOCF == 0X0F
C ==0
Z ==2
T1 EQU 20H
T2 EQU 21H
T3 EQU 22H
T4 EQU 23H
COUT EQU 24H
COUT1 EQU 25H
T_CNT EQU 26H
T_MS EQU 27H
TT_CNT EQU 28H
ORG 00H
JMP INIT
ORG 10H
;;;;;;;程序初始化;;;;;;;;
INIT:
MOV A,@0X02
IOW PORT5
MOV A,@0X40
IOW PORT6
MOV A,@0
IOW IOCC
IOW IOCF
MOV A,@0X80
IOW IOCE
MOV A,@0XFF
IOW IOCB
MOV A,@0XBF
IOW IOCD
MOV A,@0
MOV PORT5,A
MOV A,@0X40
MOV PORT6,A
MOV A,@0X08
CONTW
MOV A,@0
MOV T1,A
MOV T2,A
MOV T3,A
MOV T4,A
MOV COUT,A
MOV T_MS,A
MOV T_CNT,A
MOV A,@1
MOV T_MS,A
;*********************
MAIN:
MOV A,T_MS
ADD R2,A
JMP $+1
JMP MS1 ;两路同时闪一下
JMP MS2 ;两路分别闪一下
JMP MS3 ;两路分别闪两下
JMP MS4 ;两路同时闪两下
;********************************
MS1:
CALL KEY_MAN
CALL V_MAN
CALL KEY_MAN
CALL MS1_MAN
CALL KEY_MAN
JMP MAIN
;******************************
MS2:
CALL KEY_MAN
CALL V_MAN
CALL KEY_MAN
CALL MS2_1_MAN
CALL KEY_MAN
CALL V_MAN
CALL KEY_MAN
CALL MS2_2_MAN
CALL KEY_MAN
JMP MAIN
;*******************
;******************************
MS3:
MOV A,@2
MOV COUT,A
M3:
CALL KEY_MAN
CALL V_MAN
CALL KEY_MAN
CALL MS2_1_MAN
CALL KEY_MAN
DJZ COUT
JMP M3
MOV A,@2
MOV COUT,A
M33:
CALL KEY_MAN
CALL V_MAN
CALL KEY_MAN
CALL MS2_2_MAN
CALL KEY_MAN
DJZ COUT
JMP M33
JMP MAIN
;*******************
MS4:
MOV A,@2
MOV COUT,A
MOV A,@5
MOV COUT1,A
M4:
CALL KEY_MAN
CALL V_MAN
CALL KEY_MAN
CALL MS4_MAN
CALL KEY_MAN
DJZ COUT
JMP M4
M44:
CALL KEY_MAN
CALL DELAY10MS
CALL KEY_MAN
DJZ COUT1
JMP M44
JMP MAIN
;********升压********
V_MAN:
MOV A,@3
MOV TT_CNT,A
GGG:
MOV A,@200
MOV T_CNT,A
GG:
BC PORT6,2
CALL KEY_MAN
CALL DELAY94US
CALL KEY_MAN
BS PORT6,2
CALL KEY_MAN
CALL DELAY16US
CALL KEY_MAN
DJZ T_CNT
JMP GG
DJZ TT_CNT
JMP GGG
RET
NOP
NOP
JMP MAIN
;****************************
MS1_MAN:
;JBS PORT5,1
; RET
BS PORT6,2
BS PORT5,3
BS PORT5,2
CALL DELAY94US
BC PORT5,3
BC PORT5,2
RET
NOP
NOP
JMP MAIN
;******************************
;*********************************
;*****************************
MS2_1_MAN:
;JBS PORT5,1
; RET
BS PORT6,2
BS PORT5,3
CALL DELAY94US
BC PORT5,3
RET
NOP
NOP
JMP MAIN
;*****************************
MS2_2_MAN:
;JBS PORT5,1
;RET
BS PORT6,2
BS PORT5,2
CALL DELAY94US
BC PORT5,2
RET
NOP
NOP
JMP MAIN
;************************
;***************************
MS4_MAN:
;JBS PORT5,1
; RET
BS PORT6,2
BS PORT5,3
BS PORT5,2
CALL DELAY94US
BC PORT5,3
BC PORT5,2
RET
NOP
NOP
JMP MAIN
;******************************
;;;;;;;延时10MS;;;;;;;
DELAY94US:
MOV A,@15
MOV T1,A
;D1:
;MOV A,@50
;MOV T2,A
D1:
WDTC
;DJZ T2
;JMP D2
DJZ T1
JMP D1
RET
NOP
NOP
JMP MAIN
;***************************
DELAY16US:
MOV A,@2
MOV T4,A
D4:
WDTC
DJZ T4
JMP D4
RET
;*****************************
;***************************
DELAY10MS:
MOV A,@50
MOV T3,A
D5:
MOV A,@250
MOV T4,A
D6:
WDTC
DJZ T4
JMP D6
DJZ T3
JMP D5
RET
NOP
NOP
JMP MAIN
;*****************************
;*****************************
KEY_MAN:
JBC PORT6,6
RET
BS PORT6,2
CALL DELAY10MS
KK:
JBS PORT6,6
RET
CALL DELAY10MS
KKK:
JBS PORT6,6
RET
INC T_MS
MOV A,T_MS
SUB A,@5
JBS R3,2
RET
MOV A,@1
MOV T_MS,A
RET
;****************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;***************************
;***************************
NOP
NOP
NOP
JMP INIT
;****