📄 daa.asm
字号:
JSR G_FST_YJ1
JSR G_WFJ
JSR G_STF
JSR GLR_SB
RTS
BK_HF_11: CMP #$2D ;zh
BNE BK_HF_12
;BSET 0,FDAN2 ; GGGGGGGGGGG
lda #!0
sta kyj_ys1
sta kyj_ys2
JSR GSR_FS
JSR G_FST_YJ1
JSR G_WFJ
JSR G_STF
JSR GLR_SB
RTS
BK_HF_12: CMP #$2E ;wwwwwww
BNE BK_HF_13
RTS
BK_HF_13: CMP #$2F
BNE BK_HF_14
;BSET 0,FDAN2
lda #!0
sta kyj_ys1
sta kyj_ys2
JSR GSR_FS
JSR G_FST_YJ1
JSR G_WFJ
JSR G_STF
JSR GLR_SB
BK_HF_14: RTS
;-------------------- Init_AtoD--
;-------------------- Init_AtoD--------------------------------------
; Init_AtoD - Sets up the AtoD clock + turns it on *
COCO EQU 7 ;ADSCR:7
;--------------------------------------------------------------------
Init_AtoD:
mov #$30,ADCLK ; Bus Clock / 2,8位
mov #$00,ADSCR ; 查询方式，单次
MOV #$00,ADASCR;禁止自动，结果在ADRL0
rts
;-------------------------------------------
;采样程序
;-------------------------------------------
AN01: LDA AD_01
CMP AD_02
BHS AN01_1 ;ad1>=ad2?
LDX AD_02 ;ad1<=>ad2
LDA AD_01
STA AD_02
STX AD_01
AN01_1: LDA AD_02 ;ad2>=ad3?
cmp AD_03 ;ad2<=>ad3
BHS AN01_2
LDX AD_03
LDA AD_02
STA AD_03
STX AD_02
AN01_2: LDA AD_03 ;ad3>=ad4?
cmp AD_04
BHS AN01_3
LDX AD_04
LDA AD_03
STA AD_04
STX AD_03
AN01_3: LDA AD_01 ;ad1>=ad2?
cmp AD_02
BHS AN01_4 ;
LDX AD_02 ;
LDA AD_01
STA AD_02
STX AD_01
AN01_4: LDA AD_02
cmp AD_03
BHS AN01_5
LDX AD_03
LDA AD_02
STA AD_03
STX AD_02
AN01_5: LDA AD_01
cmp AD_02
BHS AN01_6
LDX AD_02
LDA AD_01
STA AD_02
STX AD_01
AN01_6: CLC
LDA AD_02
ADC AD_03
RORA
RTS
;--------------------------------------------
AD_CONV: sta copctl
;; TST T_AD1S
;;BNE AD_CONV1
;;MOV #!255,T_AD1S
BRCLR 7,FDAN3,CYANG_0
BRSET 0,FDAN1,CYANG_0
JSR AD_ROOM ;ZH
RTS
CYANG_0: BRSET 1,FDAN1,CYANG_1
JSR AD_TUR1 ;TO
RTS
CYANG_1: BRSET 2,FDAN1,CYANG_2
JSR AD_TUR2 ;TE
RTS
CYANG_2: BRSET 3,FDAN1,CYANG_3
JSR AD_TUR3 ;WP1
RTS
CYANG_3: BRSET 4,FDAN1,CYANG_4
JSR AD_TUR4 ;WP2
RTS
CYANG_4: brset 4,k1_165,CYANG_5
BRSET 5,FDAN1,CYANG_5
JSR AD_TUR5 ;PQ2
RTS
CYANG_5: BRCLR 7,FDAN3,CYANG_6
BRSET 7,FDAN1,CYANG_6
JSR AD_TUR7 ;TOZ
RTS
CYANG_6: brset 4,k1_165,CYANG_7
BRSET 6,FDAN1,CYANG_7
JSR AD_TUR6 ;PQ1
CYANG_7:
;JSR AD_TUR8
;JSR AD_TUR9
AD_CONV1: MOV #!0,FDAN1
RTS
;------------------------
;
AD_DELAY: LDA #!200
AD_DELAY1: STA COPCTL
DECA
NOP
NOP
NOP
NOP
NOP
NOP
CMP #0
BNE AD_DELAY1
RTS
;---------------------------------------------------------
AD_ROOM: LDA #CH_To
JSR AD_SAMPLING
STA AD_01
JSR AD_DELAY
LDA #CH_To
JSR AD_SAMPLING
STA AD_02
JSR AD_DELAY
LDA #CH_To
JSR AD_SAMPLING
STA AD_03
JSR AD_DELAY
LDA #CH_To
JSR AD_SAMPLING
STA AD_04
JSR AN01
;
CMP #TEMPT_MIN
BLO AD_ROOM_FAIL
CMP #TEMPT_MAX
BHS AD_ROOM_FAIL
BCLR 0,WORN
AD_ROOM_2:
JSR AD_SEARCH
;; LDA #!19 ;CCCCCCCCCCCCCCCCCCCCCCC
STA TEMP_ZH
BSET 0,FDAN1
BRCLR 7,K_YD,WEN_0
BSET 3,K_QQ
WEN_0: RTS
AD_ROOM_FAIL: BRSET 0,WORN,T1_K1
BSET 0,WORN
LDA #!5
STA T_ROOM
T1_K1: LDA T_ROOM
CMP #0
BEQ T1_K2
BSET 0,FDAN1
RTS
T1_K2:
BSET 0,FDAN1
LDA #$77
STA TEMP_ZH
LDA GZDY
CMP #0
BNE TTKK
LDA GZDY
ORA #$31
STA GZDY
; BSET 7,FGZDY
TTKK: RTS
;----------INDOOR TUR1 TEMPERATURE A/D CONV SUB-----------------------------
AD_TUR1: BCLR 5,PTD
BCLR 0,PTB
BCLR 1,PTB
NOP
NOP
LDA #CH_GG
JSR AD_SAMPLING
STA AD_01
JSR AD_DELAY
BCLR 5,PTD
BCLR 0,PTB
BCLR 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_02
JSR AD_DELAY
BCLR 5,PTD
BCLR 0,PTB
BCLR 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_03
JSR AD_DELAY
BCLR 5,PTD
BCLR 0,PTB
BCLR 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_04
JSR AN01
CMP #TEMPT_MIN
BLO AD_TUR1_FAIL
CMP #TEMPT_MAX
BHS AD_TUR1_FAIL
AD_TUR1_2:
JSR AD_SEARCH
STA TEMP_TO
BSET 1,FDAN1
BRCLR 7,K_YD,WEN_1
BSET 3,K_QQ
BCLR 1,WORN
WEN_1: RTS
AD_TUR1_FAIL: BRSET 1,WORN,T2_K1
BSET 1,WORN
LDA #5
STA T_TUR1
T2_K1: LDA T_TUR1
CMP #0
BEQ T2_K2
BSET 1,FDAN1
RTS
T2_K2: ;LDA #!0
;STA TEMP_TO
LDA GZDY
CMP #0
BNE TTT
LDA GZDY
ORA #$2C
STA GZDY
BSET 1,FDAN1
TTT: RTS
;----------INDOOR TUR2 TEMPERATURE A/D CONV SUB-----------------------------
AD_TUR2:
BCLR 5,PTD
BCLR 0,PTB
BSET 1,PTB
NOP
NOP
LDA #CH_GG
JSR AD_SAMPLING
STA AD_01
JSR AD_DELAY
BCLR 5,PTD
BCLR 0,PTB
BSET 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_02
JSR AD_DELAY
BCLR 5,PTD
BCLR 0,PTB
BSET 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_03
JSR AD_DELAY
BCLR 5,PTD
BCLR 0,PTB
BSET 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_04
JSR AN01
CMP #TEMPT_MIN
BLO AD_TUR2_FAIL
CMP #TEMPT_MAX
BHS AD_TUR2_FAIL
AD_TUR2_2:
JSR AD_SEARCH
;;lda #!20 ;;;;;;;;;ccccccccc
STA TEMP_Te
BSET 2,FDAN1
BRCLR 7,K_YD,WEN_2
BSET 3,K_QQ
BCLR 5,FGZDY
Bclr 2,WORN
WEN_2: RTS
AD_TUR2_FAIL: BRSET 2,WORN,T3_K1
BSET 2,WORN
LDA #5
STA T_TUR2
T3_K1: LDA T_TUR2
CMP #0
BEQ T3_K2
BSET 2,FDAN1
RTS
T3_K2: LDA #!0
STA TEMP_TE
LDA GZDY
CMP #0
BNE ZZZ
LDA GZDY
ORA #$19
STA GZDY
;BSET 2,FDAN1
;BSET 5,FGZDY
ZZZ RTS
;----------INDOOR TUR3 TEMPERATURE A/D CONV SUB-----------------------------
AD_TUR3:
BCLR 5,PTD
BCLR 1,PTB
BSET 0,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_01
JSR AD_DELAY
BCLR 5,PTD
BCLR 1,PTB
BSET 0,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_02
JSR AD_DELAY
BCLR 5,PTD
BCLR 1,PTB
BSET 0,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_03
JSR AD_DELAY
BCLR 5,PTD
BCLR 1,PTB
BSET 0,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_04
JSR AN01
CMP #TEMPT_MIN
BLO AD_TUR3_FAIL
CMP #TEMPT_MAX
BHS AD_TUR3_FAIL
AD_TUR3_2:
JSR AD_SEARCH
;; LDA #!5 ;;;CCCCCCCCCC
STA TEMP_WP1
LDA RE_3M
CMP #!1
BEQ AD_RE
BSET 3,FDAN1
;lda #!75 ;;CCCCCCCCCC
;STA TEMP_WP1C
BRCLR 7,K_YD,ZND
BSET 3,K_QQ
BCLR 3,WORN
BCLR 3,FGZDY
ZND: RTS
AD_RE: LDA TEMP_WP1
STA TEMP_WP1C
BSET 3,FDAN1
RTS
AD_TUR3_FAIL:BRSET 3,WORN,T4_K1
BSET 3,WORN
LDA #5
STA T_TUR3
T4_K1: LDA T_TUR3
CMP #0
BEQ T4_K2
BSET 3,FDAN1
RTS
T4_K2: LDA #!0
STA TEMP_WP1
LDA GZDY
CMP #0
BNE TK22
LDA GZDY
ORA #$11
STA GZDY
BSET 3,FGZDY
BSET 3,FDAN1
TK22: RTS
;----------INDOOR TUR4 TEMPERATURE A/D CONV SUB-------------
AD_TUR4:
BSET 5,PTD
;; BCLR 0,PTB
BSET 0,PTB
BSET 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_01
JSR AD_DELAY
BSET 5,PTD
;; BCLR 0,PTB
BSET 0,PTB
BSET 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_02
JSR AD_DELAY
BSET 5,PTD
;; BCLR 0,PTB
BSET 0,PTB
BSET 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_03
JSR AD_DELAY
BSET 5,PTD
;; BCLR 0,PTB
BSET 0,PTB
BSET 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_04
JSR AN01
CMP #TEMPT_MIN
BLO AD_TUR4_FAIL
CMP #TEMPT_MAX
BHS AD_TUR4_FAIL
JSR AD_SEARCH
STA TEMP_WP2
LDA RE_3M
CMP #!1
BEQ AD_RECS
BSET 4,FDAN1
BRCLR 7,K_YD,WEN_4
BSET 3,K_QQ
BCLR 4,WORN
BCLR 4,FGZDY
RTS
AD_RECS: BSET 4,FDAN1
LDA TEMP_WP2
STA TEMP_WP2C
WEN_4: RTS
AD_TUR4_FAIL:BRSET 4,WORN,T5_K1
BSET 4,WORN
LDA #5
STA T_ROOMDL
T5_K1: LDA T_ROOMDL
CMP #0
BEQ T5_K2
BSET 4,FDAN1
RTS
T5_K2: LDA #!0
STA TEMP_WP2
BSET 4,FDAN1
LDA GZDY
CMP #0
BNE T5KK
LDA GZDY
ORA #$12
STA GZDY
BSET 4,FGZDY
T5KK: RTS
;----------------------------------------------
AD_TUR5: BSET 5,PTD
BSET 0,PTB
BCLR 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_01
JSR AD_DELAY
BSET 5,PTD
BSET 0,PTB
BCLR 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_02
JSR AD_DELAY
BSET 5,PTD
BSET 0,PTB
BCLR 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_03
JSR AD_DELAY
BSET 5,PTD
BSET 0,PTB
BCLR 1,PTB
LDA #CH_GG
JSR AD_SAMPLING
STA AD_04
JSR AN01
CMP #TEMPT_MIN0
BLO AD_FAIL
CMP #TEMPT_MAX0
BHS AD_⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -