?? wks.asm
字號:
mov Temp_CC,a
clr Num_B
mov a,All_Temp_H
sbc a,Num_B
snz c
jmp Calcu_Over
mov All_Temp_H,a
mov a,Temp_CC
mov All_Temp_L,a
inc Zero_L
jmp Cal_0
Calcu_Over:
clr No_Zero_Flag
clr c
rlc Zero_L
dec Zero_L
dec Zero_L
dec Zero_L
dec Zero_L
dec Zero_L
dec Zero_L
ret
Zero_Error:
set No_Zero_Flag
ret
;〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
Buz_Sub:
inc Buz_Ram
snz Buz_Ram.2
jmp Buz_Over
clr Buz_Ram
sz Buz_Measure
jmp set_buz
clr Buz
clr Buz_Flag
sz Buz_Num
jmp dec_buz_num
clr Buz
clr Have_key
jmp buz_over
To_opc:
mov a,250 ;停時間
jmp Buz_com
dec_buz_num:
dec Buz_Num
sz Buz_Num.0
jmp To_opc
mov a,100 ;響時間
Buz_com:
mov Buz_Measure,a
set_buz:
dec Buz_Measure
snz Buz_Num.0 ;偶數不叫 奇數叫
set Buz_Flag ;脈沖標志
buz_over:
RET
;〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
Zero_Sub:
;開機檢測 逐漸加熱
;〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
jmp Zero_Over
mov a,1
addm a,Minute_L
clr acc
adcm a,Minute_H
mov a,Minute_L
sub a,10h
mov a,27h
mov All_Temp_L,a
mov a,Minute_H
sbc a,All_Temp_L
snz c
jmp Zero_90
clr Minute_L
clr Minute_H ;關閉輸出
;dec Zero_L
set Drive
mov a,Zero_L
sub a,12
sz c
jmp Zero_90
set Drive
set Star_Over
jmp Zero_Over
Zero_90:
sz Zero ;過零檢測 由高到低觸發
jmp Zero_Clr_0 ;
snz Zero_Flag ;過零標志
jmp Zero_Juge
clr Zero_Flag
set Drive ;關掉驅動
;過零到
mov a,Zero_L ;只觸發1~2ms
mov Zero_Delay,a
jmp Zero_Over
Zero_Clr_0:
set Zero_Flag
jmp Com_Z
Zero_Juge:
clr Zero_Flag
Com_Z:
sz Zero_Delay
jmp BBP
;延時結束
sz Ms_2
jmp BBH
set Drive ;觸發結束 關閉輸出
jmp Zero_Over
BBH:
sdz Ms_2
jmp Zero_Over
set Drive
jmp Zero_Over
BBP:
sdz Zero_Delay
jmp Zero_Over
clr Drive
mov a,1
mov Ms_2,a ;觸發1ms
jmp Zero_Over
Zero_Over:
;鍵盤檢測
sz Key_S2
jmp Key_Set
sz Key_Flag
jmp Key_Ovef
clr Key_Num_L
clr Key_Num_H
set Have_key
set Key_Flag
mov a,40
mov Buz_Measure,a
clr Buz_Num
jmp Key_Over
Key_Set:
mov a,1
addm a,Key_Num_L
clr acc
adcm a,Key_Num_H
mov a,Key_Num_L
SUB a,120
mov a,0
mov All_Temp_L,a
mov a,Key_Num_H
sbc a,All_Temp_L
snz c
jmp Key_Over
clr Key_Flag
Key_Ovef:
clr Key_Num_L
clr Key_Num_H
key_Over:
snz Ts_Drive ;監測PIC驅動可控硅是否超過2ms 超過剪掉剩余
jmp Clr_Drive_Flag
inc Drive_Count
mov a,Drive_Count
sub a,3
snz c
jmp Drive_Over
clr Drive_Count
clr TR_Off ;超過2秒 關斷輸出
jmp Drive_Over
Clr_Drive_Flag:
clr Drive_Count
set TR_Off
Drive_Over:
ret
;〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
;5.268
Ad_Sub:
mov a,00011000b ;外部中斷，定時器中斷
orm a,intc
clr adcr.7
nop
nop
nop
nop
mov a,11001000b ;電流值
mov adcr,a
nop
nop
clr acsr
nop
nop
wait_Current:
clr adcr.7
sz adcr.6
jmp wait_Current
inc Current_Count
mov a,adrh
addm a,Current_L
clr acc
adcm a,Current_H
sz Current_Count
jmp To_Room_Test
;電流值設置
mov a,Current_H
sub a,250
sz c
jmp To_Error_Current
jmp To_Current_Com
To_Error_Current:
;〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
;電流出錯處理
;mov a,100
;mov Buz_Measure,a
;mov a,100
;mov Buz_Num,a
;〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
To_Current_Com:
clr Current_H
clr Current_L
;///////////////////////////
To_Room_Test:
mov a,11011001b ;室溫
mov adcr,a
nop
nop
clr acsr
nop
nop
wait_Room:
clr adcr.7
sz adcr.6
jmp wait_Room
inc Room_Count
mov a,adrh
addm a,Room_L
clr acc
adcm a,Room_H
sz Room_Count
jmp To_J_K
clr Temp_Sign
mov a,Room_H
sub a,5 ;<-20度
snz c
jmp To_000
mov a,Room_H
sub a,15
snz c
jmp Negative_PP
mov a,Room_H
sub a,187
snz c
jmp LLLP
mov a,Room_H
sub a,237 ;>158度
sz c
jmp To_000
mov a,187
mov Room_H,a
LLLP:
clr Error_s
clr Error_Flag
call Table_Temp
jmp To_J_K
Negative_PP:
set Temp_Sign ;溫度為負值
jmp LLLP
To_000:
clr Room_H
clr Room_L
set Error_Flag
jmp Ad_Over
To_J_K:
mov a,11011010b ;傳感器
mov adcr,a
nop
nop
clr acsr
nop
nop
wait_J_K:
clr adcr.7
sz adcr.6
jmp wait_J_K
mov a,adrl
mov J_Temp_L,a
mov a,adrh
mov J_Temp_H,a
clr c ;0000 0000 0000 xxxx
rrc J_Temp_H
rrc J_Temp_L
clr c
rrc J_Temp_H
rrc J_Temp_L
clr c
rrc J_Temp_H
rrc J_Temp_L
clr c
rrc J_Temp_H
rrc J_Temp_L
mov a,J_Temp_L
addm a,JK_Temp_L
mov a,J_Temp_H
adcm a,JK_Temp_H
;=========================================
clr acc
adcm a,JK_Temp_P
clr acc
adcm a,JK_Temp_K
inc J_K_Count
sz J_K_Count
jmp Ad_Over
clr c
rrc JK_Temp_K
rrc JK_Temp_P
rrc JK_Temp_H
rrc JK_Temp_L
clr c
rrc JK_Temp_K
rrc JK_Temp_P
rrc JK_Temp_H
rrc JK_Temp_L
clr c
rrc JK_Temp_K
rrc JK_Temp_P
rrc JK_Temp_H
rrc JK_Temp_L
clr c
rrc JK_Temp_K
rrc JK_Temp_P
rrc JK_Temp_H
rrc JK_Temp_L
mov a,0f0h
andm a,JK_Temp_L
;=========================================
mov a,JK_Temp_H
mov JK_Value_H,a
mov a,JK_Temp_L
mov JK_Value_L,a
clr JK_Temp_H
clr JK_Temp_L
clr JK_Temp_P
clr JK_Temp_K
Ad_Over:
mov a,11110111b ;外部中斷，定時器中斷
andm a,intc
ret
;〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
EXT_INT:
mov Copy_a,a
mov a,Status
mov Copy_S,a
mov a,Send_Save_L
mov Send_L,a
mov a,Send_Save_H
mov Send_H,a
set Ext_Flag
clr Flag_0
clr Num_Pul
DDM:
snz Clk_P ;_|
jmp Clr_F
sz Flag_0
jmp Set_F
set Flag_0
inc Num_Pul
mov a,Num_Pul
sub a,4
snz c
jmp DDM
jmp Send_Data
;〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
Clr_F:
clr Num_H
clr Flag_0
jmp DDm
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -