; PICBASIC PRO(TM) Compiler 3.0.1.1, (c) 1998, 2011 microEngineering Labs, Inc. All Rights Reserved. MPASMWIN_USED EQU 1 #define PBP_PATH C:\PBP3\ NOLIST ifdef PM_USED LIST include 'M12F675.INC' ; PM header XALL NOLIST else LIST LIST p = 12F675, r = dec, w = -302 INCLUDE "P12F675.INC" ; MPASM Header NOLIST endif LIST PBP_HARDWAREDEF macro endm __config _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_OFF & _MCLRE_OFF & _BODEN_OFF & _CP_OFF 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:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00020 A00038 A var word' переменная счета _A EQU RAM_START + 018h ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00021 A0003A e var word' _e EQU RAM_START + 01Ah ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00124 PORTL VAR GPIO _PORTL EQU GPIO ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00125 PORTH VAR GPIO _PORTH EQU GPIO ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00126 TRISL VAR TRISIO _TRISL EQU TRISIO ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00127 TRISH VAR TRISIO _TRISH EQU TRISIO #define _GPIO??5 GPIO, 005h INCLUDE "UNTITLED.MAC" INCLUDE "C:\PBP3\PBPPIC14.LIB" ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00036 Z00002 #HEADER Z00002 ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00061 Z00003 #CONFIG Z00003 ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00117 Z00004 BANK0 $0020, $005F Z00004 ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00119 Z00005 EEPROM $2100, $217F Z00005 ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00121 Z00006 #ERROR "-n option (PBPL) is not supported for this device." Z00006 ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00122 Z00007 #ENDIF Z00007 ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00123 Z00008 LIBRARY "PBPPIC14" Z00008 ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00128 Z00009 include "PBPPIC14.RAM" Z00009 ; C:\PBP3\DEVICES\PIC12F675.PBPINC 00132 Z0000A #HEADER Z0000A ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00011 Z0000B #CONFIG Z0000B ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00015 Z0000C ADCON0=%00000000'выключить АЦП Z0000C MOVE?CB 000h, ADCON0 ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00016 Z0000D ANSEL=%00000000 ' выводы цифровые Z0000D MOVE?CB 000h, ANSEL ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00017 Z0000E TRISIO=%00100000' установить все выводы порта на выход Z0000E MOVE?CB 020h, TRISIO ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00018 Z0000F GPIO=%00000000' Z0000F MOVE?CB 000h, GPIO ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00023 Z00010 begin: Z00010 LABEL?L _begin ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00024 Z00011 GPIO=%00010000 Z00011 MOVE?CB 010h, GPIO ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00025 Z00012 pause 200 Z00012 PAUSE?C 0C8h ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00026 Z00013 GPIO=%00000100 Z00013 MOVE?CB 004h, GPIO ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00027 Z00014 pause 200 Z00014 PAUSE?C 0C8h ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00028 Z00015 GPIO=%00010100 Z00015 MOVE?CB 014h, GPIO ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00029 Z00016 pause 200 Z00016 PAUSE?C 0C8h ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00030 Z00017 GPIO=%00000101 Z00017 MOVE?CB 005h, GPIO ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00031 Z00018 pause 200 Z00018 PAUSE?C 0C8h ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00032 Z00019 GPIO=%00010101 Z00019 MOVE?CB 015h, GPIO ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00033 Z0001A pause 200 Z0001A PAUSE?C 0C8h ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00034 Z0001B GPIO=%00000111 Z0001B MOVE?CB 007h, GPIO ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00035 Z0001C pause 200 Z0001C PAUSE?C 0C8h ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00036 Z0001D GPIO=%00000000 Z0001D MOVE?CB 000h, GPIO ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00037 Z0001E pause 500 Z0001E PAUSE?C 001F4h ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00039 Z0001F www: Z0001F LABEL?L _www ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00040 Z00020 GPIO=%00000000 Z00020 MOVE?CB 000h, GPIO ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00041 Z00021 random A Z00021 RANDOM?W _A ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00042 Z00022 if GPIO.5=0 then goto qqq Z00022 CMPNE?TCL _GPIO??5, 000h, L00001 GOTO?L _qqq LABEL?L L00001 ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00043 Z00023 goto www Z00023 GOTO?L _www ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00045 Z00024 qqq: Z00024 LABEL?L _qqq ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00047 Z00025 e=A dig 4 Z00025 DIG?WCW _A, 004h, _e ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00049 Z00026 if e=6 then GPIO=%00000111' шесть Z00026 CMPNE?WCL _e, 006h, L00003 MOVE?CB 007h, GPIO LABEL?L L00003 ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00050 Z00027 if e=5 then GPIO=%00010101' пять Z00027 CMPNE?WCL _e, 005h, L00005 MOVE?CB 015h, GPIO LABEL?L L00005 ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00051 Z00028 if e=4 then GPIO=%00000101' четыре Z00028 CMPNE?WCL _e, 004h, L00007 MOVE?CB 005h, GPIO LABEL?L L00007 ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00052 Z00029 if e=3 then GPIO=%00010100' три Z00029 CMPNE?WCL _e, 003h, L00009 MOVE?CB 014h, GPIO LABEL?L L00009 ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00053 Z0002A if e=2 then GPIO=%00000100' два Z0002A CMPNE?WCL _e, 002h, L00011 MOVE?CB 004h, GPIO LABEL?L L00011 ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00054 Z0002B if e<=1 then GPIO=%00010000' один Z0002B CMPGT?WCL _e, 001h, L00013 MOVE?CB 010h, GPIO LABEL?L L00013 ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00055 Z0002C eee: Z0002C LABEL?L _eee ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00056 Z0002D if GPIO.5=1 then goto www Z0002D CMPNE?TCL _GPIO??5, 001h, L00015 GOTO?L _www LABEL?L L00015 ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00057 Z0002E goto eee Z0002E GOTO?L _eee ; C:\DOCUMENTS AND SETTINGS\доцент\Рабочий стол\Новая папка (2)\UNTITLED.PBP 00058 Z0002F end Z0002F END? END