DOC《TITLE＂大功率电磁炉程序源文件5”》

TITLE 大功率电磁炉程序源文件5 list p=16f73,r=dec,r=hex ;

list directive to define processor #include ;

processor specific variable definitions STATUS EQU 0x03 FSR EQU 0x04 PORTB EQU 0x06 PCLATH EQU 0x0a INTCON EQU 0x0b BZW_STK EQU 0x21 TMPREG_22 EQU 0x22 DISPLAY_STK1 EQU 0x2d DWH_STK EQU 0x24 ADRES_STK EQU 0x31 TMPREG_33 EQU 0x33 TMPREG_34 EQU 0x34 TMPREG_35 EQU 0x35 TMPREG_36 EQU 0x36 TMPREG_37 EQU 0x37 STATUS_STK_38 EQU 0x38 FSR_STK_39 EQU 0x39 PCLATH_STK EQU 0x3a TMPREG_3b EQU 0x3b TMPREG_3c EQU 0x3c TMPREG_3d EQU 0x3d TMPREG_3e EQU 0x3e TMPREG_3f EQU 0x3f TMPREG_39 EQU 0x39 W_STK_7f EQU 0x7f ORG 0x000 CLRF STATUS MOVLW 0x00 MOVWF PCLATH GOTO START MOVWF W_STK_7f MOVF STATUS, W CLRF STATUS MOVWF STATUS_STK_38 MOVF FSR, W MOVWF FSR_STK_39 MOVF PCLATH, W MOVWF PCLATH_STK CLRF PCLATH MOVF TMPREG_33, W MOVWF TMPREG_3f MOVF TMPREG_34, W MOVWF TMPREG_3e MOVF TMPREG_35, W MOVWF TMPREG_3c MOVF TMPREG_36, W MOVWF TMPREG_3d MOVF TMPREG_37, W MOVWF TMPREG_3b BTFSS INTCON, 0x01 GOTO LOOP_22 BCF STATUS, RP0 BCF STATUS, RP1 BCF PORTB, 0x3 MOVLW 0x1 MOVWF TMPREG_22 BCF INTCON, INTF BCF PCLATH, 0x3 CALL LOOP_449 BCF PCLATH, 0x3 LOOP_22 BCF STATUS, RP1 BCF STATUS, RP0 MOVF TMPREG_3f, W MOVWF TMPREG_33 MOVF TMPREG_3e, W MOVWF TMPREG_34 MOVF TMPREG_3c, W MOVWF TMPREG_35 MOVF TMPREG_3d, W MOVWF TMPREG_36 MOVF TMPREG_3b, W MOVWF TMPREG_37 MOVF TMPREG_39, W MOVWF FSR MOVF PCLATH_STK, W MOVWF PCLATH MOVF STATUS_STK_38, W MOVWF STATUS SWAPF W_STK_7f, F SWAPF W_STK_7f, W RETFIE ORG 0x0037 START MOVLW 0x20 MOVWF FSR MOVLW 0x33 CALL LOOP_41 CLRF STATUS BCF PCLATH, 0x3 GOTO LOOP_798 LOOP_3e XORWF FSR, W CLRF

0 INCF FSR, F LOOP_41 XORWF FSR, W BTFSS STATUS, Z GOTO LOOP_3e RETLW

0 LOOP_45 ADDWF 0x2, F RETLW

0 RETLW 0x42 RETLW 0xd9 RETLW 0xcb RETLW 0x6a RETLW 0xab RETLW 0xbb RETLW 0xc2 RETLW 0xfb RETLW 0xeb RETLW 0xf3 LOOP_51 ADDWF 0x2, F RETLW

0 RETLW 0x18 RETLW 0x67 ORG 0x020b LOOP_20b BCF 0x3, 0x5 BCF 0x3, 0x6 MOVWF 0x37 INCF 0x37, F LOOP_20f DECF 0x37, F BTFSC 0x3, 0x2 RETLW

0 BCF 0x3,

0 RRF 0x36, F RRF 0x35, F RRF 0x34, F RRF 0x33, F GOTO LOOP_20f BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0x3 BTFSS 0x6, 0x3 RETURN BTFSS 0x5, 0x2 GOTO LOOP_226 MOVLW 0x7f SUBWF 0x15, W BTFSC 0x3,

0 RETURN INCF 0x15, F BCF 0xa, 0x3 GOTO LOOP_449 LOOP_226 MOVLW 0x41 SUBWF 0x15, W BTFSS 0x3,

0 RETURN LOOP_22A DECF 0x15, F BCF 0xa, 0x3 GOTO LOOP_449 LOOP_22d CLRF 0x3 CLRF 0x2a BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0x3 DECFSZ 0x22, W GOTO LOOP_276 BCF 0x6, 0x3 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x15 MOVWF 0x24 BCF 0xa, 0x3 CALL LOOP_6b1 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0x3 BCF 0x6, 0x4 BCF 0x6, 0x5 BCF 0x6, 0x6 BCF 0x6, 0x7 LOOP_25e MOVLW 0x32 SUBWF 0x2a, W BTFSC 0x3,

0 GOTO LOOP_270 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0x3 CALL LOOP_6b1 BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0x3 INCF 0x2a, F GOTO LOOP_25e LOOP_270 CLRF 0x2a BSF 0xb, 0x4 CLRF 0x22 CLRF 0x25 BCF 0xa, 0x3 CALL LOOP_449 LOOP_276 BCF 0xa, 0x3 CALL LOOP_461 BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0x3 BTFSS 0x7, 0x4 RETURN MOVLW 0x2 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0x3 BTFSS 0x7, 0x4 GOTO LOOP_2c7 MOVLW 0x16 MOVWF 0x24 BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0x3 CALL LOOP_6b1 BCF 0x6, 0x3 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 BSF 0x6, 0x7 BCF 0x6, 0x4 BCF 0x6, 0x5 BCF 0x6, 0x6 BCF 0xa, 0x3 CALL LOOP_6b1 BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0x3 LOOP_2b3 MOVLW 0xd8 SUBWF 0x2a, W BTFSC 0x3,

0 GOTO LOOP_2c3 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0x3 CALL LOOP_6b1 BCF 0xa, 0x3 INCF 0x2a, F GOTO LOOP_2b3 LOOP_2c3 CLRF 0x2a BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0x3 LOOP_2c7 CLRF 0x25 BCF 0xa, 0x3 GOTO LOOP_449 LOOP_2ca BCF PCLATH, 0x3 CALL LOOP_449 BCF PCLATH, 0x3 BTFSS 0x6, 0x3 RETURN BTFSC 0x5, 0x2 RETURN DECF CCPR1L, F DECF CCPR1L, F DECF CCPR1L, F RETURN LOOP_2d5 BCF PCLATH, 0x3 CALL LOOP_449 BCF PCLATH, 0x3 MOVF 0x25, W XORWF 0x24, W BTFSC 0x3, 0x2 RETURN BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0x3 MOVF 0x24, W BTFSS 0x3, 0x2 GOTO LOOP_302 BCF 0x6, 0x3 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x4b MOVWF 0x15 BCF 0xa, 0x3 CALL LOOP_6b1 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 MOVLW 0x3 BCF 0xa, 0x3 CALL LOOP_414 BCF 0xa, 0x3 CALL LOOP_449 BCF 0xa, 0.

.......