《基于SN8P1706芯片的电磁炉(源程序).doc》由会员分享，可在线阅读，更多相关《基于SN8P1706芯片的电磁炉(源程序).doc（36页珍藏版）》请在金锄头文库上搜索。
1、基于SN8P1706芯片的电磁炉(源程序)基于SN8P1706芯片的电磁炉(源程序) 时间: 2008-4-9 Title induction cooker controller;OSC:16.000MHz chip SN8P1706/SONIX_CODE_OPTION .Code_Option OSG Enable .Code_Option High_Clk 12M_Xtal .Code_Option High_Clk/2 Disable .Code_Option Security Enable .Code_Option LVD Enable .Code_Option Watch_Dog E
2、nable/SONIX_CODE_OPTION; InitPort macro mov a,#01110000b ;p4.7,p4.3 as A/D input b0mov P4M,a mov a,#00111111b b0mov P5M,a mov a,#0xff b0mov P2M,a mov a,#11000000b b0mov P1M,a set_pur 0x23 clr P1 clr P2 clr P4 clr P5 mov a,#0x44 b0mov TC1M,a mov a,#225 ;225 b0mov TC1R,a b0bset FTC1OUT ;buzzer on b0bs
3、et FTC1ENB mov a,#11110101b ;1:16 16uS b0mov TC0M,a mov a,#0xff b0mov TC0R,a mov a,#11110000b ;1:2 1uS b0mov T0M,a mov a,#00010000b b0mov INTEN,a clr INTRQ endm;*;clear ram (00h-7fh);* ClearRam macro clr Y b0mov Z,#0x7fClear_Ram01: clr YZ decms Z jmp Clear_Ram01 endm; BuzzerActive macro b0bts1 Buzze
4、rEnable jmp BuzzerStop b0mov a,BuzNumber b0bts0 FZ jmp BuzzerStop b0bts1 BuzzerShort jmp BuzNormal01 mov a,#50 jmp BuzNormal02BuzNormal01: mov a,#100BuzNormal02: sub a,TimerBuz b0bts0 FC jmp BuzzerRet ;else buzzer time overBuzzerTimeOver: clr TimerBuz b0bts1 BuzzerIsOn jmp BuzzerTimeOver01 b0bclr Bu
5、zzerIsOn ;buzzer on b0bset BUZZER jmp BuzzerTimeOver02BuzzerTimeOver01: b0bclr BUZZER ;buzzer off b0bset BuzzerIsOn BuzzerTimeOver02: b0bts0 BuzzerIsOn jmp BuzzerRet decms BuzNumber jmp BuzzerRet BuzzerStop: b0bclr BuzzerEnable b0bclr BuzzerIsOnBuzzerRet: endm;* include define.asm.CODE org 0x00 jmp
6、Reset org 0x08 jmp Interrupt org 0x10;*Multiplication:; b0mov a,CurrentL b0mov a,VoltageL mul a,VoltageL b0mov ELO,a b0mov a,R b0mov ALO,a; b0mov a,CurrentH b0mov a,VoltageH mul a,VoltageL add a,ALO b0mov EHI,a b0mov a,R b0mov DLO,a b0bts0 FC incms DLO nop clr DHI; b0mov a,CurrentL b0mov a,VoltageL
7、mul a,VoltageH b0mov CLO,a b0mov a,R b0mov ALO,a; b0mov a,CurrentH b0mov a,VoltageH mul a,VoltageH add a,ALO b0mov CHI,a b0mov a,R b0mov BLO,a b0bts0 FC incms BLO nop b0bclr FC b0mov a,CLO adc EHI,a b0mov a,CHI adc DLO,a b0mov a,BLO adc DHI,a b0mov a,ELO mul a,CurrentH b0mov CLO,a b0mov a,R b0mov AL
8、O,a b0mov a,EHI mul a,CurrentH add a,ALO b0mov CHI,a b0mov a,R b0mov ALO,a b0mov a,DLO mul a,CurrentH add a,ALO b0mov BLO,a b0mov a,R b0mov BHI,a b0mov a,ELO mul a,CurrentL b0mov ELO,a b0mov a,R b0mov ALO,a b0mov a,EHI mul a,CurrentL add a,ALO b0mov EHI,a b0mov a,R b0mov ALO,a b0mov a,DLO mul a,Curr
9、entL add a,ALO b0mov DLO,a b0mov a,R b0mov DHI,a b0bclr FC b0mov a,CLO adc EHI,a b0mov a,CHI adc DLO,a b0mov a,BLO adc DHI,a b0bts0 FC incms BHI nop ret ;=Mpy16: ;INPUT (BY MULTIPLIER)AHI,ALO;(MULTIPLIER)BHI,BLO ;OUT DHI,DLO,EHI,ELO ;= mov a,#10h b0mov counter,a clr DHI clr DLO b0bclr FC ;Mpyloop: r
10、rcm BHI rrcm BLO b0bts1 FC jmp Notadd ; mov a,ALO add DLO,a b0bts0 FC incms DHI nop mov a,AHI add DHI,a ;Notadd: rrcm DHI rrcm DLO rrcm EHI rrcm ELO decms counter jmp Mpyloop ret ;=Div32: ;INPUT :(DIVID)AHI,ALO;(BY DIVID)DHI,DLO,EHI,ELO ;OUTPUT :(RESULT)BHI,BLO;(REST)CHI,CLO ;= mov a,#20h b0mov coun
11、ter,a clr BHI clr BLO clr CHI clr CLO ;Divloop: b0bclr FC rlcm ELO rlcm EHI rlcm DLO rlcm DHI rlcm CLO rlcm CHI b0mov a,CHI sub a,AHI b0bts1 FZ jmp Nochk b0mov a,CLO sub a,ALO b0bts1 FC jmp Nogo jmp Nochk01 Nochk: b0bts1 FC jmp Nogo b0mov a,CLO sub a,ALO b0bts1 FC decms CHI nopNochk01: b0mov a,CLO sub a,ALO b0mov CLO,a b0mov a,CHI sub a,AHI b0mov CHI,a b0bset FCNogo: rlcm BLO rlcm BHI decms counter jmp Divloop ret;*;*CalculatePower:; CLR AHI; mov a,#0xdc; b0mov ALO,a ;220V; b0mov a,CurrentL; b0mov BLO,a; b0mov a,CurrentH; b0mov BHI,a; call Mpy16 b0m
