; PICBASIC PRO(TM) Compiler 3.0.5.1, (c) 1998, 2012 microEngineering Labs, Inc. All Rights Reserved. MPASMWIN_USED EQU 1 #define PBP_PATH C:\PBP3\ NOLIST ifdef PM_USED LIST include 'M12F629.INC' ; PM header XALL NOLIST else LIST LIST p = 12F629, r = dec, w = -302 INCLUDE "P12F629.INC" ; MPASM Header NOLIST endif LIST PBP_HARDWAREDEF macro endm ifdef PM_USED device pic12F629, intrc_osc_noclkout, wdt_on, mclr_on, protect_off else __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_ON & _CP_OFF endif RAM_START EQU 00020h RAM_END EQU 0005Fh RAM_BANKS EQU 00001h BANK0_START EQU 00020h BANK0_END EQU 0005Fh EEPROM_START EQU 02100h EEPROM_END EQU 0217Fh ; C:\PBP3\PBPPIC14.RAM 00012 A00020 R0 VAR WORD BANK0 SYSTEM ' System Register R0 EQU RAM_START + 000h ; C:\PBP3\PBPPIC14.RAM 00013 A00022 R1 VAR WORD BANK0 SYSTEM ' System Register R1 EQU RAM_START + 002h ; C:\PBP3\PBPPIC14.RAM 00014 A00024 R2 VAR WORD BANK0 SYSTEM ' System Register R2 EQU RAM_START + 004h ; C:\PBP3\PBPPIC14.RAM 00015 A00026 R3 VAR WORD BANK0 SYSTEM ' System Register R3 EQU RAM_START + 006h ; C:\PBP3\PBPPIC14.RAM 00016 A00028 R4 VAR WORD BANK0 SYSTEM ' System Register R4 EQU RAM_START + 008h ; C:\PBP3\PBPPIC14.RAM 00017 A0002A R5 VAR WORD BANK0 SYSTEM ' System Register R5 EQU RAM_START + 00Ah ; C:\PBP3\PBPPIC14.RAM 00018 A0002C R6 VAR WORD BANK0 SYSTEM ' System Register R6 EQU RAM_START + 00Ch ; C:\PBP3\PBPPIC14.RAM 00019 A0002E R7 VAR WORD BANK0 SYSTEM ' System Register R7 EQU RAM_START + 00Eh ; C:\PBP3\PBPPIC14.RAM 00020 A00030 R8 VAR WORD BANK0 SYSTEM ' System Register R8 EQU RAM_START + 010h ; C:\PBP3\PBPPIC14.RAM 00026 A00032 FLAGS VAR BYTE BANK0 SYSTEM ' Static flags FLAGS EQU RAM_START + 012h ; C:\PBP3\PBPPIC14.RAM 00025 A00033 GOP VAR BYTE BANK0 SYSTEM ' Gen Op Parameter GOP EQU RAM_START + 013h ; C:\PBP3\PBPPIC14.RAM 00022 A00034 RM1 VAR BYTE BANK0 SYSTEM ' Pin 1 Mask RM1 EQU RAM_START + 014h ; C:\PBP3\PBPPIC14.RAM 00024 A00035 RM2 VAR BYTE BANK0 SYSTEM ' Pin 2 Mask RM2 EQU RAM_START + 015h ; C:\PBP3\PBPPIC14.RAM 00021 A00036 RR1 VAR BYTE BANK0 SYSTEM ' Pin 1 Register RR1 EQU RAM_START + 016h ; C:\PBP3\PBPPIC14.RAM 00023 A00037 RR2 VAR BYTE BANK0 SYSTEM ' Pin 2 Register RR2 EQU RAM_START + 017h ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00030 A00038 t var Word _t EQU RAM_START + 018h ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00042 A0003A timer var Word _timer EQU RAM_START + 01Ah ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00122 PORTL VAR GPIO _PORTL EQU GPIO ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00123 PORTH VAR GPIO _PORTH EQU GPIO ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00124 TRISL VAR TRISIO _TRISL EQU TRISIO ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00125 TRISH VAR TRISIO _TRISH EQU TRISIO #define _anod _GPIO??5 #define _power _GPIO??2 #define _key _GPIO??4 #define _bip _GPIO??0 #define _TRISIO??4 TRISIO, 004h #define _GPIO??5 GPIO, 005h #define _GPIO??2 GPIO, 002h #define _GPIO??4 GPIO, 004h #define _GPIO??0 GPIO, 000h INCLUDE "FIN.MAC" INCLUDE "C:\PBP3\PBPPIC14.LIB" ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00036 #HEADER ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00061 #CONFIG ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00115 BANK0 $0020, $005F ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00117 EEPROM $2100, $217F ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00119 #ERROR "-n option (PBPL) is not supported for this device." ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00120 #ENDIF ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00121 LIBRARY "PBPPIC14" ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00126 include "PBPPIC14.RAM" ; C:\PBP3\DEVICES\PIC12F629.PBPINC 00130 #HEADER ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00011 CMCON = 7 MOVE?CB 007h, CMCON ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00012 GPIO = %000000 MOVE?CB 000h, GPIO ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00013 TRISIO.4 = 1 MOVE?CT 001h, _TRISIO??4 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00014 Symbol anod = GPIO.5 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00015 Symbol power = GPIO.2 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00016 Symbol key = GPIO.4 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00017 Symbol bip = GPIO.0 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00019 delay: LABEL?L _delay ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00020 Clear CLEAR? ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00021 pause 3000 PAUSE?C 00BB8h ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00023 cikl: LABEL?L _cikl ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00024 Low anod LOW?T _anod ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00025 Low power LOW?T _power ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00026 If key = 0 Then GoTo time CMPNE?TCL _key, 000h, L00001 GOTO?L _time LABEL?L L00001 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00027 If key = 1 Then GoTo cikl CMPNE?TCL _key, 001h, L00003 GOTO?L _cikl LABEL?L L00003 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00029 time: LABEL?L _time ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00031 High power HIGH?T _power ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00032 If key = 0 Then CMPNE?TCL _key, 000h, L00005 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00033 t=t+1 ADD?WCW _t, 001h, _t ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00034 pause 1000 PAUSE?C 003E8h ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00035 If t > 5 Then PulsOut bip,40000'проба CMPLE?WCL _t, 005h, L00007 PULSOUT?TC _bip, 09C40h LABEL?L L00007 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00036 GoTo time GOTO?L _time ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00037 If key = 1 Then GoTo a CMPNE?TCL _key, 001h, L00009 GOTO?L _a LABEL?L L00009 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00038 EndIf LABEL?L L00005 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00040 a: LABEL?L _a ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00041 If t < 5 Then CMPGE?WCL _t, 005h, L00011 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00043 For timer = 1 To 1800'60'1800 MOVE?CW 001h, _timer LABEL?L L00013 CMPGT?WCL _timer, 00708h, L00014 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00044 timer = timer+1 ADD?WCW _timer, 001h, _timer ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00045 If timer = 30 Then High anod CMPNE?WCL _timer, 01Eh, L00015 HIGH?T _anod LABEL?L L00015 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00046 If key = 0 Then GoTo delay CMPNE?TCL _key, 000h, L00017 GOTO?L _delay LABEL?L L00017 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00047 pause 1000 PAUSE?C 003E8h ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00048 Next NEXT?WCL _timer, 001h, L00013 LABEL?L L00014 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00049 Clear CLEAR? ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00050 GoTo cikl GOTO?L _cikl ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00051 Else GOTO?L L00012 LABEL?L L00011 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00053 High power HIGH?T _power ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00054 EndIf LABEL?L L00012 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00055 pause 30000 PAUSE?C 07530h ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00056 High anod HIGH?T _anod ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00057 GoTo fin GOTO?L _fin ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00059 fin: LABEL?L _fin ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00060 If key = 0 Then GoTo delay CMPNE?TCL _key, 000h, L00019 GOTO?L _delay LABEL?L L00019 ; C:\USERS\USER\DESKTOP\тушилка зажигалка\FIN.PBP 00061 If key = 1 Then GoTo fin CMPNE?TCL _key, 001h, L00021 GOTO?L _fin LABEL?L L00021 END