📄 sanyo5.asm
字号:
CMP (IFFK),0X53 ; 50S
JR CS,IFKERR
SET (FLAG4).FKERR
JR IFKERR
;
FRBZFLZ:
JP FRBZFLW
;
FFKFLW:
CLR (IFFK)
IFKERR:
LD A,(ZZZZ)
CMP A,(FAN1)
JR CS,HGFNDEC
LD A,(ZZZZ)
CMP A,(FAN2)
JR GT,HGFNINC
JP FRBZFLW
;
HGFNDEC:
LD L,(WJTSBF)
LD H,(WJTSBF+1)
CMP HL,0X10
JR CS,FRBZFLW
LD A,(FAN1)
SUB A,(ZZZZ)
CMP A,0X6
JR CC,DCSB44
CMP A,0X3
JR CC,DCSB33
DCSB00:
SUB HL,1
NOP
CMP A,0
JR EQ,LDWJTSBF
DEC A
JR NE,DCSB00
JR LDWJTSBF
;
DCSB44:
SUB HL,0X4
JR LDWJTSBF
;
DCSB33:
SUB HL,0X3
JR LDWJTSBF
;
HGFNINC:
LD L,(WJTSBF)
LD H,(WJTSBF+1)
CMP HL,0X110
JR CC,FRBZFLW
LD A,(ZZZZ)
SUB A,(FAN2)
CMP A,5
JR CC,ICAD44
CMP A,2
JR CC,ICAD33
INC A
ICAD00:
ADD HL,1
CMP A,0
JR EQ,LDWJTSBF
DEC A
JR NE,ICAD00
JR LDWJTSBF
;
ICAD44:
ADD HL,4
JR LDWJTSBF
;
ICAD33:
ADD HL,3
LDWJTSBF:
LD (WJTSBF),L
LD (WJTSBF+1),H
FRBZFLW:
TEST (FLAG3).BUZZEN
JR T,NOBUZZ
SET (P1).3
INC (BUZZCNT)
LD A,(BUZZCNT)
CMP A,(BUZ)
JR CS,INCHI70
CLR (BUZZCNT)
CLR (FLAG3).BUZZEN
NOBUZZ:
CLR (P1).3
INCHI70:
CMP (FLSMMS),0X7D
JR CS,NSTPFL
CLR (FLSMMS)
INC (FLSCNT)
CMP (FLSCNT),0X8
JR CS,NSTPFL
CLR (FLSCNT)
NSTPFL:
CMP (MMS),0X7D ; 125 * 8MS = 1 S
JR CC,FINCSC0
RETI
;
FINCSC0:
CLR (MMS)
INC (YKTSEC)
CMP (YKTSEC),0X3C
JR CS,INTFAD
CLR (YKTSEC)
INC (YKTMIN)
INTFAD:
INC (FADSEC)
CMP (FADSEC),0X5 ; PER 5S AD ONCE
JR CS,FRFLSH1
CLR (FADSEC)
SET (FLAG1).ADON
FRFLSH1:
TEST (FLAG3).ISCOOL
JR F,IFCLWRN
TEST (FLAG4).ISCHSH
JR T,SWWCNHT
;
IFCLWRN:
CMP (RMPTMP),0X19 ; COOL MOD CMP WITH 25C
JR CS,NTHG25C
JR SWWCNTF
SWWCNHT:
TEST (FLAG2).ISHTFLG
JR T,NTHG25C
CMP (RMPTMP),0X1E ; HEAT MOD CMP WITH 30C
JR CC,NTHG25C
SWWCNTF:
TEST (FLAG3).GJFLG
JR F,NTHG25C
CMP (CMPMIN),0X5 ; IF CMP HAVE RUN 5MINS
JR CS,NTHG25C
INC (CLH25C)
CMP (CLH25C),0X3C
JR CS,IFPWRRN
CLR (CLH25C)
INC (CLH25M)
CMP (CLH25M),0X14 ; CMP WITH 20MINS
JR CS,IFPWRRN
SET (FLAG6).SWJWRN
JR IFPWRRN
;
NTHG25C:
CLR (CLH25C)
CLR (CLH25M)
IFPWRRN:
;/ TEST (FLAG2).ISHTFLG
;/ JR F,NTCLCS
;/ TEST (FLAG3).GJFLG
;/ JR F,NTCLCS
;/ LD A,(KGVAN) ; N
;/ AND A,0XF
;/ CMP A,0X5
;/ JR CC,NTCLCS
;/ INC (CLSSEC) ; IF NOT AT 6-,5-,4-
;/ CMP (CLSSEC),0X3C
;/ JR CS,FFKSECC
;/ CLR (CLSSEC)
;/ INC (CLCMIN) ; FOR THE COOL MOD RUN 1 HOUR SET 6-
;/ JR FFKSECC
;/;
;/NTCLCS:
;/ CLR (CLSSEC)
;/ CLR (CLCMIN)
;/FFKSECC:
NOP
TEST (P6).6
JR F,NTSHORT
TEST (P6).6
JR F,NTSHORT
TEST (P6).6
JR F,NTSHORT
SET (FLAG5).ISSHORT
JR IFSHRTF
;
NTSHORT:
CLR (FLAG5).ISSHORT
IFSHRTF:
TEST (FLAG3).HI52D ; AFTER GYBH 4MIN 15S CLEAR THE HI52
JR T,NO52CCC
INC (HI52C)
CMP (HI52C),0X3C
JR CS,INCFAD
CLR (HI52C)
INC (H52MIN)
CMP (H52MIN),0XF0
JR CS,INCFAD
DEC (H52MIN)
JP INCFAD
;
NO52CCC:
CLR (HI52C)
CLR (H52MIN)
INCFAD:
TEST (FLAG1).DLY3M ; FOR DELAY 3 MINUTES
JR T,FRSEC
INC (S3MCNT)
CMP (S3MCNT),0XB4 ; 180 SECOND = 3 MINUTES
JR CS,FRSEC
CLR (S3MCNT)
CLR (FLAG1).DLY3M
FRSEC:
TEST (FLAG3).VDLY
JR T,NOVDLY
INC (VDCNT)
CMP (VDCNT),0X78 ; After 2 minute close the valve
JR CS,NOVDLY
CLR (VDCNT)
CLR (FLAG3).VDLY
NOVDLY:
JR CLRSLP ; NOT NEED SLEEP
TEST (SLPFLG).3 ; TEST IF HAVE SLEEP
JR T,CLRSLP
INC (SLPSEC)
CMP (SLPSEC),0X3C ;
JR CS,IFCRN
CLR (SLPSEC)
INC (SLPMIN)
CMP (SLPMIN),0XF0 ;
JR CS,IFTJTMP
DEC (SLPMIN)
JP IFCRN
;
IFTJTMP:
CMP (SLPMIN),0X3C
JR EQ,IF2HOUR
CMP (SLPMIN),0X78
JR EQ,IF2HOUR
JP IFCRN
;
IF2HOUR:
TEST (FLAG3).ISCOOL ; AFTER 1 HOUR
JR F,FCLSLP
TEST (FLAG4).ISCHSH
JR T,SLIFHT
FCLSLP:
ADD (SETTMP),1 ; COOL SLP MAKE STTMP +1C
CMP (SETTMP),0X7A ; CMP WITH 30C
JR CS,CSPTH31
LD (SETTMP),0X7A ; IF SETTMP > 30C THEN IS 30C
CSPTH31:
JR IFCRN
;
SLIFHT:
TEST (FLAG2).ISHTFLG
JR T,CLRSLP
SUB (SETTMP),2 ; HEAT SLP MAKE STTMP -2C
CMP (SETTMP),0X6C ; IF LOW 16C
JR CC,HSPTH16
LD (SETTMP),0X6C ; IF SETTMP <16C THEN IS 16C
HSPTH16:
JR IFCRN
;
CLRSLP:
CLR (SLPSEC)
CLR (SLPMIN)
;
IFCRN:
TEST (P0).7
JR T,CMPOFF
CLR (OFFSEC)
CLR (OFFMIN)
INC (CMPSEC)
INC (CMPSEC2)
CMP (CMPSEC),0X3C
JR CS,INCSEC
CLR (CMPSEC)
INC (CMPMIN)
TEST (FLAG2).ISHTFLG
JR T,ICMNHT
INC (HTCMIN)
CMP (HTCMIN),0XF0
JR CS,INCMP11
DEC (HTCMIN)
JR INCMP11
;
ICMNHT:
CLR (HTCMIN)
INCMP11:
CMP (CMPMIN),0XFE
JR CS,INCSEC
LD (CMPMIN),0XFD
JR INCSEC
;
CMPOFF:
CLR (CMPSEC)
CLR (CMPMIN)
INC (OFFSEC)
CMP (OFFSEC),0X3C
JR CS,INCSEC
CLR (OFFSEC)
INC (OFFMIN)
CMP (OFFMIN),0XFE
JR CS,INCSEC
LD (OFFMIN),0XFD
INCSEC:
INC (FLDSEC)
INC (SECOND)
CMP (SECOND),0X3C
JR CS,TMRTI
CLR (SECOND)
INC (MINUTE)
CMP (MINUTE),0X3C ;
JR CS,TMRTI
CLR (MINUTE)
INC (HOUR)
TMRTI:
RETI
;
;********************** THE INT3 **************************
PINT3:
LD (TC1CR),0Y00000100 ; STOP AND CLEAR THE COUTER 1
CLR (P7).4
TEST (FLAG4).FANON
JR T,NOFAN1
CLR (FLAG6).CUTCF
LD (TREG1AL),(WJTSBF)
LD (TREG1AH),(WJTSBF+1)
NOP
LD (TC1CR),0Y00010100 ; Start TC1
NOFAN1:
RETI
;
;********************** THE INT1 FOR FAN KUI **************
PINT4:
ADD (ZSBUF),0X1
RETI
;
;*********************** FOR THE TEST OF SELF ****************
TESTSF:
NOP
;/ CLR (EIRL).5 ; Disable Receive INT1
CALL TWBUZZ
CLR (MMS)
CLR (SECOND)
TSTWT:
LD (WDTCR2),0X4E ; Clears the watchdog counter
CMP (SECOND),2
JR CS,TSTWT
CLR (SECOND)
;
FVAL:
TEST (FLAG2).ISDLFLG
JR T,FVAL11
LD (SECOND),0X4
JR FCMP
;
FVAL11:
LD (WDTCR2),0X4E ; Clears the watchdog counter
SET (P7).2
LD A,(SECOND)
CMP A,0X2
JR CS,FVAL
FOUTF:
LD (WDTCR2),0X4E ; Clears the watchdog counter
SET (P0).6
CMP (SECOND),0X4
JR CS,FOUTF
FCMP:
LD (WDTCR2),0X4E ; Clears the watchdog counter
SET (P0).7
CMP (SECOND),0X6
JR CS,FCMP
LGTLED:
LD (WDTCR2),0X4E ; Clears the watchdog counter
CLR (P0).3
CMP (SECOND),0X8
JR CS,LGTLED
FRMFH:
LD (WDTCR2),0X4E ; Clears the watchdog counter
SET (FLAG4).FANON
LD (FAN1),0X24 ; HIG FAN 2 SECONDS
LD (FAN2),0X24
CMP (SECOND),0XA
JR CS,FRMFH
FRMFM:
LD (WDTCR2),0X4E ; Clears the watchdog counter
LD (FAN1),0X1F ; MID FAN
LD (FAN2),0X20
CMP (SECOND),0XC
JR CS,FRMFM
FRMFL:
LD (WDTCR2),0X4E ; Clears the watchdog counter
LD (FAN1),0X1C ; LOW FAN
LD (FAN2),0X1D
CMP (SECOND),0XE
JR CS,FRMFL
SET (FLAG2).RSTSTP
TSWTSTP:
LD (WDTCR2),0X4E ; Clears the watchdog counter
TEST (FLAG2).RSTSTP
JR F,TSWTSTP
SET (FLAG3).BUZZEN
LD (BUZ),0X10
CLR (FLAG1).RCVNEW
JP MAIN
;
;************************* FOR THE BUZZER *******************
;
DLY100U:
LD (WDTCR2),0X4E ; Clears the watchdog counter
LD C,0
D1:
INC C ; 3
CMP C,0XF0 ; 0X14 2
JR NE,D1 ; 3
RET
TWBUZZ:
SET (FLAG3).BUZZEN
LD (BUZ),0XC
CALL DLY05S
SET (FLAG3).BUZZEN
LD (BUZ),0XC
RET
;
DLY05S:
LD B,0
D3:
LD C,0
D2:
INC C
CMP C,0XC0
JR CS,D2
LD (WDTCR2),0X4E ; Clears the watchdog counter
INC B
CMP B,0X7D
JR CS,D3
RET
;
UNUSED:
NOP
NOP
RETI
;
;***************** THE 3470 TABLE *************************
;*
;* B= 3470
;*
;* THE R = 4.7K
;*
;**********************************************************
ADTABL:
DB 0X2C ;-10
DB 0X2E ;-09
DB 0X2F ;-08
DB 0X31 ;-07
DB 0X33 ;-06
DB 0X35 ;-05
DB 0X37 ;-04
DB 0X39 ;-03
DB 0X3B ;-02
DB 0X3D ;-01
;
DB 0X40 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -