基于SN8P1706芯片的电磁炉(源程序).docVIP

基于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 Enable //}}SONIX_CODE_OPTION ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\ InitPort macro mov a, ;p4.7,p4.3 as A/D input b0mov P4M,a mov a, b0mov P5M,a mov a,#0xff b0mov P2M,a mov a, 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 b0bset FTC1ENB mov a, ;1:16 16uS b0mov TC0M,a mov a,#0xff b0mov TC0R,a mov a, ;1:2 1uS b0mov T0M,a mov a, b0mov INTEN,a clr INTRQ endm ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ;***************************** ;clear ram (00h--7fh) ;***************************** ClearRam macro clr Y b0mov Z,#0x7f Clear_Ram01: clr @YZ decms Z jmp Clear_Ram01 endm ;\\\\\\\\\\\\\\\\\\\\\\ BuzzerActive macro b0bts1 BuzzerEnable jmp BuzzerStop b0mov a,BuzNumber b0bts0 FZ jmp BuzzerStop b0bts1 BuzzerShort jmp BuzNormal01 mov a,#50 jmp BuzNormal02 BuzNormal01: mov a,#100 BuzNormal02: sub a,TimerBuz b0bts0 FC jmp BuzzerRet ;else buzzer time over BuzzerTimeOver: clr TimerBuz b0bts1 BuzzerIsOn jmp BuzzerTimeOver01 b0bclr BuzzerIsOn ;buzzer on b0bset BUZZER jmp BuzzerTimeOver02 BuzzerTimeOver01: b0bclr BUZZER ;buzzer off b0bset BuzzerIsOn BuzzerTimeOver02: b0bts0 BuzzerIsOn jmp BuzzerRet decms BuzNumber jmp BuzzerRet BuzzerStop: b0bclr BuzzerEnable b0bclr BuzzerIsOn BuzzerRet: endm ;***************************** include define.asm .CODE org 0x00 jmp Reset org 0