📄 daa.asm
字号:
NOP
;-----special function init------------------------
;include AD,TIMER,UART,
;-------AD initial---------------
nop
;-------SCI INTI-----------------
NOP
;------timer init-----------------------
NOP
;--------------start watch dog-----------------
NOP
;-----------hot reset cmp----------------
LDA NEW0
CMP #$55
BNE RAM_CLR0
LDA NEW1
CMP #$CC
BNE RAM_CLR0
LDA NEW2
CMP #$AA
BNE RAM_CLR0
JMP RAM_SET
;-----------ram area clear---------------
RAM_CLR0: JSR CLRRAM
RAM_SET: LDA #$55
STA NEW0
LDA #$CC
STA NEW1
LDA #$AA
STA NEW2
LDA #!30
STA ERR_TIME
MOV #250T,T_AD1S
LDA #!4
STA T_1MS
BCLR 2,FLAGG
MOV #!0,GZDY
BCLR 2,FLAG
MOV #!0,TIMES_PH
MOV #!0,TIMES_PL
MOV #!0,TIMES_PQ
LDA #!22
STA SP01
LDA #!39
STA SP02
LDA #!24
STA SP03
LDA #!1
STA SP04
LDA #!30
STA SP05
LDA #!30
STA SP06
LDA #!2
STA SP07
LDA #!5
STA SP08
LDA #!22
STA EP01
LDA #!99
STA EP02
LDA #!99
STA EP03
LDA #!39
STA EP04
LDA #!22
STA EP05
LDA #!44
STA EP06
LDA #!30
STA EP07
LDA #!10
STA EP08
LDA #!29
STA HF01
LDA #!29
STA HF02
LDA #!9
STA HF03
LDA #!39
STA HF04
LDA #!15
STA HF05
LDA #!2
STA HF06
LDA #!1
STA HF07
LDA #!2
STA HF08
LDA #!0
STA GYJ_ys1
STA GYJ_ys2
lda #!5
sta t_44m
MOV #!0,FDAN0
LDA #!0
STA FDAN2
MOV #!0,FDAN3
;MOV #!0,FDAN4
MOV #!0,FDAN
BCLR 6,FLAGG
LDA #!0
STA FLAG_CS
LDA #!30
STA COMP_TIME
BCLR 5,FLAGG
lda #!60
sta err_com
LDA #!0
STA YAJI_YX
MOV #60T,T_1M
LDA #!255
STA DY_10S
;----------initialize flag--------------------
flag_set:
NOP
BCLR F_TXRX,FLAG2
;----------interface chip initialize---------------
HotRst:
NOP
Jsr Init_SCI ; Initialize peripherals
Jsr Init_AtoD
Jsr Init_Timer
MOV #$0,RX_COM
CLI ;GLOBLLY ENABLE INTERRUPT
clr flag2
;*****************main program******************************
Main_Loop:
sta copctl ; clear watchdog counter (disabled)
MOV #%11011111,DDRA
MOV #%00000111,DDRB
MOV #%00111111,DDRC
MOV #%11110111,DDRD
; LDA #!5
; STA SP05
; lda #!25
;;sta temp_wh
;lda #!55
;sta temp_zh
; lda #!55
; sta temp_ts
; lda #!25
;sta temp_wp1
; lda #!35
;sta temp_wp1C
; lda #!15
;sta temp_wp2
; ; LDA #$10
; STA MODE
;AND #%00011111
;CMP #$10
;BEQ HEAT_P
; CMP #$02
; BEQ COOL_P
; BCLR POWER_M,FLAGG
;; BSET POWER_M,FLAGG
;; BSET POWER,FLAG
NOP
JSR T1S_PRO
NOP
NOP
JSR SHIFT_165
NOP
NOP
JSR INFO
NOP
NOP
JSR FD_BH
NOP
NOP
JSR T1S_PRO
NOP
NOP
JSR AD_CONV
NOP
NOP
JSR CONTROL
NOP
NOP
JSR BAOHU
NOP
NOP
JSR KEY
NOP
NOP
JSR judge_165
NOP
NOP
JSR ERROR
NOP
NOP
JMP main_loop
;*****************************************
;防冻保护
;*****************************************
FD_BH: BRSET POWER,FLAG,gj_BU_J0
BRSET 7,K2_165,FD_BU_J0 ;;水流开关
LDA ADDR
CMP #!0
BNE FD_BU_J0
LDA EP05
ADD #!6
CMP TEMP_ZH ;
BLS FD_BU_J0
LDA TEMP_ZH
SUB #!3
CMP EP05 ;3
BHI FD_BU_J0
bset 1,jflag
LDA GZDY
CMP #!0
BNE ZFFDD
LDA GZDY
ORA #$1A
STA GZDY
ZFFDD: BSET FD_RUN,FLAG
BCLR 6,FGZDY
LDA TEMP_ZH
CMP EP05
BHI FD_HH+
LDA TEMP_te
CMP #!24
BHI FD_HH+
JSR SR_FS
JSR LR_SB
BSET 6,PTA
BSET 6,OUT1
BSET 0,PTA
BSET 3,OUT1
LDA #!0
STA GYJ_YS1
LDA #!0
STA GYJ_YS2
BRSET COM_WORKING,FDAN,js_fd
BRSET COM_WORKING1,FDAN,YJSX_fd
BRSET COM_WORKING2,FDAN,fd_XKYJ2
LDHX T_COM1
CPHX T_COM2
BHI fd_XKYJ2
YJSX_fd: JSR KWFJ
JSR LR_SYS_FST
rts
fd_XKYJ2: JSR KWFJ
JSR LR_SYS_SEC
rts
js_fd: BSET 1,PTA ;dian re
BSET 7,OUT1
FD_YJYS_9:RTS
gj_BU_J0: jmp fd_js
FD_BU_J0: JMP FD_TUI
FD_HH+: jsr gsr_fs
LDA #!0
sta KYJ_YS2
LDA #!0
sta KYJ_YS1
JSR G_SEC_YJ2
jsr g_wfj
jsr g_stf
BRSET 0,FDAN,FD_HH
BSET 0,FDAN
LDA #!5 ;35
STA FD_YX
FD_HH: LDA FD_YX
CMP #!3 ; 3;0
BHS FD_HH_0
JSR GLR_SB
LDA FD_YX
CMP #!0
BNE FD_HH_2
LDA #!5 ;35
STA FD_YX
JMP FD_HH_2
FD_HH_0: JSR LR_SB
FD_HH_2: RTS
FD_TUI: brclr 1,jflag,gzdy_1
Bclr 0,FDAN
BCLR 7,FGZDY
BCLR 1,PTA
BCLR 7,OUT1
LDA #!0
sta KYJ_YS2
LDA #!0
sta KYJ_YS1
JSR GSR_FS
BRCLR COM_WORKING,FDAN,BBBfd
BRCLR COM_WORKING1,FDAN,GJ_fd
BRCLR COM_WORKING2,FDAN,YJSXfd
LDHX T_COM1
CPHX T_COM2
BHI GJ_fd
YJSXfd: JSR G_SEC_YJ2
JMP GJ_fd2
GJ_fd: JSR G_FST_YJ1
JMP GJ_fd2
BBBfd: BRSET 6,FGZDY,gj_fd1
BSET 6,FGZDY
LDA #!0
STA SWFJYS
GJ_fd1: LDA SWFJYS
CMP SP08
BLO GJ_fd2
JSR G_WFJ
JSR G_STF
JSR GLR_SB
fd_js: bclr 1,jflag
Bclr 0,FDAN
lda #$e5
BNE GJ_FD2
LDA GZDY
AND #$E5
STA GZDY
GZDY_1: BCLR FD_RUN,FLAG
GJ_fd2: RTS
;****************************************
;---------------------------------------
KEY: BRSET POWER_M,FLAGG,SYS_ON
JMP SYS_OFF
SYS_ON: BRSET POWER,FLAG,SYS_ON1
BCLR 1,FDAN0
BSET POWER,FLAG
BCLR 5,PTC
SYS_ON1:RTS
SYS_OFF:BCLR POWER,FLAG
MOV #!0,TIMES_PH
MOV #!0,TIMES_PL
MOV #!0,TIMES_PQ
;;; BCLR 6,FDAN2 ;PPP
BCLR 2,FDAN0 ;PPPP
BCLR 7,FDAN0 ;PPPP
BCLR 6,FDAN0
BCLR 0,FDAN0
;;;; BCLR 2,K_QQ ;PPP
;;BCLR 0,FDAN2
LDA #!0
sta KYJ_YS2
LDA #!0
sta KYJ_YS1
LDA #!0
STA CS_COM1
LDA #!0
STA CS_COM2
LDA #!0
STA TCS_8
;LDA #!0
;STA COM_CON
LDA FLAG_CS
AND #%00100000
STA FLAG_CS
BCLR 2,FLAGG
BCLR 7,FLAGG
BCLR 4,FLAGG
BCLR 5,FLAGG
BCLR 6,FLAGG
LDA #!0
STA YAJI_YX
BCLR 2,FLAG
BCLR 7,PTD ;电加热
BSET 5,PTC
BRSET FD_RUN,FLAG,SYS_ON1
MOV #!0,FLAG
MOV #!0,FLAG1
LDA #!0
STA TIMES_PQ
JSR GSR_FS
GJ_LC: BRCLR COM_WORKING,FDAN,BBB
BRCLR COM_WORKING1,FDAN,GJ_LC_0
BRCLR COM_WORKING2,FDAN,YJSX
LDHX T_COM1
CPHX T_COM2
BHI GJ_LC_0
YJSX: JSR G_SEC_YJ2
JMP AAA
GJ_LC_0: JSR G_FST_YJ1
JMP AAA
BBB: BRSET 1,FDAN0,GJ_LC_1
BSET 1,FDAN0
LDA #!0
STA SWFJYS
GJ_LC_1: LDA SWFJYS
CMP SP08
BLO GJ_LC_2
JSR G_WFJ
JSR G_STF
JSR GLR_SB
GJ_LC_2: ;;JMP OFF
AAA: RTS
;********************************
;********************************
;制冷 制热 模式
;********************************
;********************************
CONTROL: sta copctl
BRSET POWER,FLAG,MODE_PRO
RTS
CON1: BCLR 4,PTC
BRSET 1,FGZDY,MODE_PR1
BRSET 2,FGZDY,MODE_PR1
BRSET 3,FGZDY,MODE_PR1
BRSET 4,FGZDY,MODE_PR1
RTS
MODE_PRO: LDA GZDY
CMP #0
BNE CON1
BSET 4,PTC
MODE_PR1: LDA MODE
AND #%00011111
CMP #$10
BEQ HEAT_P
CMP #$02
BEQ COOL_P
RTS
COOL_P: JSR G_STF
BCLR 6,FDAN3
BCLR 6,PTA
BCLR 6,OUT1
BCLR 0,PTA
BCLR 3,OUT1
BCLR 1,PTA ;电加热
BCLR 7,OUT1
JSR SR_FS
JSR LR_SB
BRSET 0,FDAN0,YS_SB
BSET 0,FDAN0
LDA #!20
STA SB_20S ;????????
YS_SB: LDA SB_20S
CMP #!0
BNE COOL_EX
LDA TEMP_Ts ; 制冷模式
ADD SP01
CMP TEMP_zh
BHI GYJ_M
BRSET COM_WORKING,FDAN,COOL_EX
BRSET COM_WORKING1,FDAN,YJSX_K
BRSET COM_WORKING2,FDAN,XK_YJ2
LDHX T_COM1
CPHX T_COM2
BHI XK_YJ2
YJSX_K: JSR KWFJ
JSR LR_SYS_FST
RTS
XK_YJ2: JSR KWFJ
JSR LR_SYS_SEC
COOL_EX: RTS
GYJ_M: LDA TEMP_ZH
ADD #!1
CMP TEMP_Ts
BHI LENG_TUI
BRCLR COM_WORKING,FDAN,LENG_TUI
BRCLR COM_WORKING1,FDAN,XG_YJ1
BRCLR COM_WORKING2,FDAN,YJSX_1
LDHX T_COM1
CPHX T_COM2
BHI XG_YJ1
YJSX_1: JSR G_SEC_YJ2
RTS
XG_YJ1: JSR G_FST_YJ1
LENG_TUI: RTS
;------------------------------------
;----------制热处理程序---------------------------
HEAT_P: ;;BSET 6,FDAN3
BRSET 6,FDAN3,CS_WEN
BSET 6,FDAN3
LDA #!181
STA RE_3M
CS_WEN:
JSR SR_FS
JSR LR_SB
BRSET 0,FDAN0,HYS_SB
BSET 0,FDAN0
LDA #!20
STA SB_20S ;????????
HYS_SB: LDA SB_20S
CMP #!0
BNE HEAT_JS
BRSET 0,FLAG_CS,TIAO_0
BSET 6,PTA
BSET 6,OUT1
BSET 0,PTA
BSET 3,OUT1
TIAO_0:
LDA TEMP_ZH
ADD SP01 ; ;TS-TO>4
CMP TEMP_TS ;
BHI COMP_C
BRCLR 0,FLAG_CS,KAIJI ; ; ；判断有无除霜
JMP CS_GC
KAIJI: BRSET COM_WORKING,FDAN,PAN_CS
BRSET COM_WORKING1,FDAN,YJSX_K1
BRSET COM_WORKING2,FDAN,H_XKYJ2
LDHX T_COM1
CPHX T_COM2
BHI H_XKYJ2
YJSX_K1: JSR KWFJ
JSR LR_SYS_FST
JMP PAN_CS
H_XKYJ2: JSR KWFJ
JSR LR_SYS_SEC
PAN_CS: BRCLR COM_WORKING,FDAN,HHH_1
JSR PAN_JR
HHH_1: LDA SA04
BNE HEAT_JS
LDA TEMP_ZH
ADD SP03
CMP TEMP_TS
BHS HEAT_C ;;;;;;;;;;
LDA TEMP_TE
CMP SP02
BHS HEAT_C
BRCLR 4,PTA,HEAT_JS ;COMP1
BRCLR 3,PTA,HEAT_JS ;COMP2
BRSET 1,PTA,HEAT_JS
BSET 1,PTA ;电加热
BSET 7,OUT1
HEAT_JS: RTS
HEAT_C: ;;;出水温度故障 超高温度保护故障
LDA TEMP_ZH
ADD #!2
CMP TEMP_TS
BHS G_DIANR
RTS
G_DIANR: BCLR 1,PTA
BCLR 7,OUT1
RTS
COMP_C: LDA TEMP_ZH
SUB #!1
CMP TEMP_TS
BHI COMP_OFF
RTS
COMP_OFF: ;BCLR 1,PTA ;关电加热
;BCLR 7,OUT1
BRCLR COM_WORKING,FDAN,COMP_OFF2
BRCLR COM_WORKING1,FDAN,COMP_OFF1
BRCLR COM_WORKING2,FDAN,YJSX_2
LDHX T_COM1
CPHX T_COM2
BHI COMP_OFF1
YJSX_2: JSR G_SEC_YJ2
JMP COMP_OFF2
COMP_OFF1:JSR G_FST_YJ1
COMP_OFF2: RTS
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -