sangna.asm

用HOLTEK单片机做的一个实际项目

#pragma debug scope 1 1
#line 139 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
__DispTbl .SECTION INPAGE'CODE'
l__DispTbl:
MOV [06h],A
__DispTbl:
RET A,192
RET A,249
RET A,164
RET A,176
RET A,153
RET A,146
RET A,130
RET A,248
RET A,128
RET A,144
RET A,136
RET A,131
RET A,198
RET A,161
RET A,134
RET A,142
#line 144 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
__TempTbl .SECTION INPAGE'CODE'
l__TempTbl:
MOV [06h],A
__TempTbl:
RET A,06bh
RET A,040h
RET A,02fh
RET A,03dh
RET A,021h
RET A,03ah
RET A,040h
RET A,037h
RET A,087h
RET A,034h
RET A,0f5h
RET A,031h
RET A,087h
RET A,02fh
RET A,03bh
RET A,02dh
RET A,0fh
RET A,02bh
RET A,01h
RET A,029h
RET A,0fh
RET A,027h
RET A,038h
RET A,025h
RET A,079h
RET A,023h
RET A,0d3h
RET A,021h
RET A,043h
RET A,020h
RET A,0c7h
RET A,01eh
RET A,05fh
RET A,01dh
RET A,0ah
RET A,01ch
RET A,0c6h
RET A,01ah
RET A,093h
RET A,019h
RET A,06eh
RET A,018h
RET A,059h
RET A,017h
RET A,052h
RET A,016h
RET A,057h
RET A,015h
RET A,06ah
RET A,014h
RET A,088h
RET A,013h
RET A,0b1h
RET A,012h
RET A,0e4h
RET A,011h
RET A,022h
RET A,011h
RET A,068h
RET A,010h
RET A,0b8h
RET A,0fh
RET A,010h
RET A,0fh
RET A,070h
RET A,0eh
RET A,0d7h
RET A,0dh
RET A,046h
RET A,0dh
RET A,0bbh
RET A,0ch
RET A,037h
RET A,0ch
RET A,0b8h
RET A,0bh
RET A,040h
RET A,0bh
RET A,0cdh
RET A,0ah
RET A,05fh
RET A,0ah
RET A,0f7h
RET A,09h
RET A,092h
RET A,09h
RET A,033h
RET A,09h
RET A,0d8h
RET A,08h
RET A,080h
RET A,08h
RET A,02dh
RET A,08h
RET A,0ddh
RET A,07h
RET A,091h
RET A,07h
RET A,048h
RET A,07h
RET A,02h
RET A,07h
RET A,0bfh
RET A,06h
RET A,07fh
RET A,06h
RET A,042h
RET A,06h
RET A,07h
RET A,06h
RET A,0cfh
RET A,05h
RET A,099h
RET A,05h
RET A,065h
RET A,05h
RET A,033h
RET A,05h
RET A,04h
RET A,05h
RET A,0d6h
RET A,04h
RET A,0aah
RET A,04h
RET A,08ah
RET A,04h
RET A,062h
RET A,04h
RET A,031h
RET A,04h
RET A,0ch
RET A,04h
RET A,0e8h
RET A,03h
RET A,0c6h
RET A,03h
RET A,0a5h
RET A,03h
RET A,086h
RET A,03h
#line 166 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
__acsr EQU [027H]
__adcr EQU [026H]
__adrh EQU [025H]
__adrl EQU [024H]
__hdr EQU [023H]
__hsr EQU [022H]
__hcr EQU [021H]
__hadr EQU [020H]
__intc1 EQU [01eH]
__pwm EQU [01aH]
__pdc EQU [019H]
__pd EQU [018H]
__pcc EQU [017H]
__pc EQU [016H]
__pbc EQU [015H]
__pb EQU [014H]
__pac EQU [013H]
__pa EQU [012H]
__tmrc EQU [0eH]
__tmr EQU [0dH]
__intc0 EQU [0bH]
__status EQU [0aH]
__tblh EQU [08H]
__tblp EQU [07H]
__pcl EQU [06H]
__acc EQU [05H]
__mp EQU [01H]
__iar EQU [00H]
@@_Timer0ISR .SECTION AT 08H 'CODE'
JMP __Timer0ISR
@_Timer0ISR .SECTION 'CODE'
__Timer0ISR PROC
MOV VA,A
MOV A,[0AH]
MOV VS,A
MOV A,RH
MOV VT1,A
MOV A,T2
MOV VT2,A
MOV A,T3
MOV VT3,A
MOV A,T4
MOV VT4,A
MOV A,T5
MOV VT5,A
MOV A,T6
MOV VT6,A
MOV A,T7
MOV VT7,A
MOV A,T8
MOV VT8,A
#pragma debug scope 2 1 ; 171 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 171 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
DEC __SecondTimer
#line 172 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
SZ __SecondTimer
JMP L2
#pragma debug scope 3 2 ; 174 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 174 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,__SysState
XOR A,03h
SNZ [0ah].2
JMP L4
#pragma debug scope 4 3 ; 176 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 176 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,__Timer
OR A,__Timer[1]
SZ [0ah].2
JMP L6
#pragma debug scope 5 4 ; 178 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 178 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,__Timer[1]
SUB A,017h
SNZ [0ah].0
JMP L76
SNZ [0ah].2
JMP L7
MOV A,__Timer
SUB A,034h
SZ [0ah].0
JMP L7
L76:
#pragma debug scope 6 5 ; 181 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 181 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,__Timer
SUB A,03ch
MOV __Timer,A
SNZ [0AH].0
DEC __Timer[1]
#line 186 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#pragma debug scope 4 3 ; 186 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
JMP L7
L6:
#pragma debug scope 7 4 ; 189 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 189 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
SET __Flag_KeyPressed
#line 190 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
SET __InputReg
#line 191 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,0bfh
MOV __PreInputReg,A
L7:
L4:
#line 194 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#pragma debug scope 3 2 ; 194 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,__DisinfactTimer
OR A,__DisinfactTimer[1]
SZ [0ah].2
JMP L10
#pragma debug scope 8 3 ; 197 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 197 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,068h
MOV b0_1,A
MOV A,01h
MOV b0_1[1],A
MOV A,__DisinfactTimer
SUB A,b0_1
MOV __DisinfactTimer,A
MOV A,__DisinfactTimer[1]
SBC A,b0_1[1]
MOV __DisinfactTimer[1],A
L10:
#line 202 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#pragma debug scope 3 2 ; 202 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
SZ __DrainTimer
JMP L77
JMP L12
L77:
#pragma debug scope 9 3 ; 205 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 205 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,01h
SUB A,__DrainTimer
SZ [0ah].0
JMP L14
#pragma debug scope 10 9 ; 207 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 207 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,__DrainTimer
SUB A,0ah
MOV __DrainTimer,A
#line 208 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#pragma debug scope 9 3 ; 208 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
JMP L15
L14:
#pragma debug scope 11 9 ; 211 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 211 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
DEC __DrainTimer
L15:
L12:
#line 219 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#pragma debug scope 3 2 ; 219 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,0fah
MOV __SecondTimer,A
L2:
#line 221 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#pragma debug scope 2 1 ; 221 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,__SysState
XOR A,03h
SNZ [0ah].2
JMP L16
#pragma debug scope 12 2 ; 223 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 223 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,__PreSettedTemperature
SUB A,01h
MOV b0_1,A
MOV A,__PreSettedTemperature[1]
SNZ [0ah].0
DEC [05h]
SUB A,00h
MOV b0_1[1],A
MOV A,__CurrentTemperature[1]
SUB A,b0_1[1]
SNZ [0ah].0
JMP L78
SNZ [0ah].2
JMP L18
MOV A,__CurrentTemperature
SUB A,b0_1
SZ [0ah].0
JMP L18
L78:
#pragma debug scope 13 12 ; 225 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 225 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
SET [014H].4
#line 226 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#pragma debug scope 12 2 ; 226 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
JMP L17
L18:
#line 227 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,__PreSettedTemperature[1]
SUB A,__CurrentTemperature[1]
SNZ [0ah].0
JMP L79
SNZ [0ah].2
JMP L17
MOV A,__PreSettedTemperature
SUB A,__CurrentTemperature
SNZ [0ah].0
JMP L79
SNZ [0ah].2
JMP L17
L79:
#pragma debug scope 14 12 ; 229 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 229 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
CLR [014H].4
#line 231 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#pragma debug scope 2 1 ; 231 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
JMP L17
L16:
#pragma debug scope 15 2 ; 234 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 234 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
CLR [014H].4
L17:
#line 236 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#pragma debug scope 2 1 ; 236 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
SZ __ADTimer
JMP L80
JMP L22
L80:
#pragma debug scope 16 2 ; 238 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 238 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
DEC __ADTimer
L22:
#line 240 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#pragma debug scope 2 1 ; 240 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
SZ __ButtonScanTimer
JMP L81
JMP L24
L81:
#pragma debug scope 17 2 ; 242 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 242 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
DEC __ButtonScanTimer
L24:
#line 251 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#pragma debug scope 2 1 ; 251 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
SET [012H].4
#line 252 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
SET [012H].6
#line 253 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
SET [014H].6
#line 254 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
SET [014H].7
#line 256 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,__LedSequence
MOV b0_1,A
SZ b0_1
JMP L82
JMP L28
L82:
MOV A,b0_1
XOR A,01h
SZ [0ah].2
JMP L29
MOV A,b0_1
XOR A,02h
SZ [0ah].2
JMP L30
MOV A,b0_1
XOR A,03h
SZ [0ah].2
JMP L37
#line 256 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
JMP L27
L28:
#pragma debug scope 18 2 ; 258 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
#line 258 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,03bh
ADD A,__Timer
MOV b0_1,A
MOV A,00h
ADC A,__Timer[1]
MOV b0_1[1],A
MOV A,058h
MOV T2,A
MOV A,02h
MOV RH,A
MOV A,b0_1[1]
MOV T6,A
MOV A,b0_1
CALL DIVUL
MOV CR1,A
MOV A,T6
MOV CR1[1],A
#line 259 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
JMP L27
L29:
#line 260 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,03bh
ADD A,__Timer
MOV b0_1,A
MOV A,00h
ADC A,__Timer[1]
MOV b0_1[1],A
MOV A,03ch
MOV T2,A
MOV A,00h
MOV RH,A
MOV A,b0_1[1]
MOV T6,A
MOV A,b0_1
CALL DIVUL
MOV CR1,A
MOV A,T6
MOV CR1[1],A
#line 261 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,0ah
MOV T2,A
MOV A,00h
MOV RH,A
MOV A,CR1[1]
MOV T6,A
MOV A,CR1
CALL DIVUL
MOV A,T5
MOV CR1,A
MOV A,T4
MOV CR1[1],A
#line 262 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
JMP L27
L30:
#line 263 "E:\龚树强\桑拿温度控制\SRC\SANGNA.C"
MOV A,__SysState
MOV b0_1,A
MOV A,b0_1
XOR A,03h
SZ [0ah].2
JMP L33