Subversion Repositories svnkaklik

CCS PCM C Compiler, Version 3.221, 27853               18-VI-05 19:21

               Filename: D:\KAKLIK\programy\PIC_C\mereni\gmetr\gmetr.LST

               ROM used: 497 words (12%)
                         Largest free fragment is 2048
               RAM used: 12 (6%) at main() level
                         28 (15%) worst case
               Stack:    5 locations

*
0000:  MOVLW  00
0001:  MOVWF  0A
0002:  GOTO   134
0003:  NOP
....................  #include "D:\KAKLIK\programy\PIC_C\mereni\gmetr\gmetr.h" 
....................  #include <16F873.h> 
....................  //////// Standard Header file for the PIC16F873 device ////////////////  
.................... #device PIC16F873  
.................... #list  
....................  
.................... #device adc=10  
.................... #fuses NOWDT,XT, NOPUT, NOPROTECT, NOBROWNOUT, NOLVP, NOCPD, NOWRT, NODEBUG  
.................... #use delay(clock=4000000)  
*
000C:  MOVLW  33
000D:  MOVWF  04
000E:  MOVF   00,W
000F:  BTFSC  03.2
0010:  GOTO   020
0011:  MOVLW  01
0012:  MOVWF  21
0013:  CLRF   20
0014:  DECFSZ 20,F
0015:  GOTO   014
0016:  DECFSZ 21,F
0017:  GOTO   013
0018:  MOVLW  4A
0019:  MOVWF  20
001A:  DECFSZ 20,F
001B:  GOTO   01A
001C:  NOP
001D:  NOP
001E:  DECFSZ 00,F
001F:  GOTO   011
0020:  RETLW  00
....................   
....................  
....................   
.................... #define LCD_RS          PIN_B1      // rizeni registru LCD displeje  
.................... #define LCD_E           PIN_B0      // enable LCD displeje  
.................... #define LCD_DATA_LSB    PIN_C4      // pripojeni LSB bitu datoveho portu LCD displeje (celkem 4 bity vzestupne za sebou)  
....................   
.................... #include "C:\library\CCS\lcd.c" 
....................  // LCD modul pro ovladani dvouradkoveho LCD modulu se standardnim Hitachi radicem  
.................... // (c)miho 2002,2005  
.................... //  
.................... // Historie:  
.................... //  
.................... // 0.00  Uvodni verze se snadnou definici portu LCD displeje  
.................... // 0.01  Oprava portu (zapomenute stare identifikatory)  
.................... // 0.02  Doplnena moznost pripojeni datoveho portu LCD na libovolne porty  
.................... // 0.03  Doplnena procedura lcd_clr pro smazani displeje  
.................... //  
.................... //  
.................... // Funkce:  
.................... //  
.................... //   lcd_init()            inicializuje LCD displej a porty, nutno volat jako prvni  
.................... //  
.................... //   lcd_putc(c)           zapis snaku do lcd displeje, zpracovava nasledujici ridici znaky  
.................... //                         \f = \x0C   - nova stranka - smazani displeje  
.................... //                         \n = \x0A   - odradkovani (prechod na druhou radku)  
.................... //                         \b = \x08   - backspace - posunuti kurzoru o 1 pozici zpet  
.................... //                         \r = \x0D   - goto home to position 1,1  
.................... //                         \0  .. \7   - definovatelne znaky v pozicich 0 az 7 v CGRAM  
.................... //                         \20 .. \27  - alternativne zapsane znaky (oktalove) v pozicich 0 az 7 CGRAM  
.................... //                         Pozor na to, ze funkce printf konci tisk pokud narazi na \0 (konec retezce)  
.................... //  
.................... //   lcd_gotoxy(x,y)       presune kurzor na uvedenou adresu  
.................... //                         nekontroluje parametry  
.................... //  
.................... //   lcd_cursor_on         zapne kurzor  
.................... //   lcd_cursor_off        vypne kurzor  
.................... //  
.................... //   lcd_clr               smaze displej  
.................... //  
.................... //   lcd_define_char(Index, Def)       Makro, ktere definuje znaky od pozice Index obsahem definicniho  
.................... //                                     retezce Def. Kazdych 8 znaku retezce Def definuje dalsi znak v CGRAM.  
.................... //                                     Kapacita CGRAM je celkem 8 znaku s indexem 0 az 7.  
.................... //                                     Na konci se provede lcd_gotoxy(1,1).  
.................... //                                     Na konci teto knihovny je priklad pouziti definovanych znaku  
.................... //  
.................... //  
.................... // Definice portu:                     // Datovy port displeje pripojeny na 4 bity za sebou na jeden port  
.................... //  
.................... // #define LCD_RS          PIN_B2      // rizeni registru LCD displeje  
.................... // #define LCD_E           PIN_B1      // enable LCD displeje  
.................... // #define LCD_DATA_LSB    PIN_C2      // pripojeni LSB bitu datoveho portu LCD displeje (celkem 4 bity vzestupne za sebou)  
.................... //  
.................... //  
.................... // Alternativni definice:              // Datovy port displeje pripojeny na libovolne 4 bitove porty (vede na kod delsi asi o 25 slov)  
.................... //  
.................... // #define LCD_RS          PIN_B2      // rizeni registru LCD displeje  
.................... // #define LCD_E           PIN_B1      // enable LCD displeje  
.................... // #define LCD_D0          PIN_C2      // D0 - datove bity pripojene na libovolne porty  
.................... // #define LCD_D1          PIN_C3      // D1  
.................... // #define LCD_D2          PIN_C4      // D2  
.................... // #define LCD_D3          PIN_C5      // D3  
....................   
....................   
....................   
....................   
.................... // Privatni sekce, cist jen v pripade, ze neco nefunguje  
....................   
....................   
....................   
....................   
.................... #ifdef LCD_DATA_LSB  
.................... // Generovane defince portu pro ucely teto knihovny aby kod generoval spravne IO operace a soucasne  
.................... // bylo mozne jednoduse deklarovat pripojene piny LCD displeje pri pouziti teto knihovny. Problem spociva  
.................... // v tom, ze se musi spravne ridit smery portu a soucasne datovy port zabira jen 4 bity ze zadaneho portu  
.................... //  
.................... #define LCD_SHIFT (LCD_DATA_LSB&7)                 // pocet bitu posuvu datoveho kanalu v datovem portu  
.................... #define LCD_PORT  (LCD_DATA_LSB>>3)                // adresa LCD datoveho portu  
.................... #define LCD_TRIS  (LCD_PORT+0x80)                  // adresa prislusneho TRIS registru  
.................... #define LCD_MASK  (0xF<<LCD_SHIFT)                 // maska platnych bitu  
.................... //  
.................... #if LCD_SHIFT>4                                    // kontrola mezi  
.................... #error LCD data port LSB bit not in range 0..4  
.................... #endif  
.................... #endif  
....................   
....................   
.................... // Definice konstant pro LCD display  
.................... //  
.................... #define LCD_CURSOR_ON_  0x0E     // kurzor jako blikajici radka pod znakem  
.................... #define LCD_CURSOR_OFF_ 0x0C     // zadny kurzor  
.................... #define LCD_LINE_2      0x40     // adresa 1. znaku 2. radky  
....................   
....................   
.................... // Definice rezimu LCD displeje  
.................... //  
.................... BYTE const LCD_INIT_STRING[4] =  
.................... {  
....................    0x28,                         // intrfejs 4 bity, 2 radky, font 5x7  
....................    LCD_CURSOR_OFF_,              // display on, kurzor off,  
....................    0x01,                         // clear displeje  
....................    0x06                          // inkrement pozice kurzoru (posun kurzoru doprava)  
.................... };  
....................   
....................   
.................... // Odesle nibble do displeje (posle data a klikne signalem e)  
.................... //  
.................... void lcd_send_nibble( BYTE n )  
.................... {  
....................    #ifdef LCD_DATA_LSB  
....................       // data jsou za sebou na 4 bitech jednoho portu  
....................       *LCD_PORT = (*LCD_PORT & ~LCD_MASK) | ((n << LCD_SHIFT) & LCD_MASK);      // nastav datove bity portu a ostatni zachovej  
0021:  MOVF   07,W
0022:  ANDLW  0F
0023:  MOVWF  3A
0024:  SWAPF  39,W
0025:  MOVWF  20
0026:  MOVLW  F0
0027:  ANDWF  20,F
0028:  MOVF   20,W
0029:  ANDLW  F0
002A:  IORWF  3A,W
002B:  MOVWF  07
....................    #else  
....................       // data jsou na libovolnych 4 bitech libovolnych portu  
....................       output_bit(LCD_D0,bit_test(n,0));  
....................       output_bit(LCD_D1,bit_test(n,1));  
....................       output_bit(LCD_D2,bit_test(n,2));  
....................       output_bit(LCD_D3,bit_test(n,3));  
....................    #endif  
....................    output_bit(LCD_E,1);       // vzestupna hrana  
002C:  BSF    06.0
002D:  BSF    03.5
002E:  BCF    06.0
....................    delay_us(1);               // pockej alespon 450ns od e nebo alespon 195ns od dat  
002F:  NOP
....................    output_bit(LCD_E,0);       // sestupna hrana (minimalni perioda e je 1us)  
0030:  BCF    03.5
0031:  BCF    06.0
0032:  BSF    03.5
0033:  BCF    06.0
.................... }  
0034:  BCF    03.5
0035:  RETLW  00
....................   
....................   
.................... // Odesle bajt do registru LCD  
.................... //  
.................... // Pokud je Adr=0 .. instrukcni registr  
.................... // Pokud je Adr=1 .. datovy registr  
.................... //  
.................... void lcd_send_byte( BOOLEAN Adr, BYTE n )  
.................... {  
....................    output_bit(LCD_RS,Adr);    // vyber registr  
0036:  MOVF   37,F
0037:  BTFSS  03.2
0038:  GOTO   03B
0039:  BCF    06.1
003A:  GOTO   03C
003B:  BSF    06.1
003C:  BSF    03.5
003D:  BCF    06.1
....................    swap(n);  
003E:  BCF    03.5
003F:  SWAPF  38,F
....................    lcd_send_nibble(n);        // posli horni pulku bajtu  
0040:  MOVF   38,W
0041:  MOVWF  39
0042:  CALL   021
....................    swap(n);  
0043:  SWAPF  38,F
....................    lcd_send_nibble(n);        // posli spodni pulku bajtu  
0044:  MOVF   38,W
0045:  MOVWF  39
0046:  CALL   021
....................    delay_us(40);              // minimalni doba na provedeni prikazu  
0047:  MOVLW  0D
0048:  MOVWF  20
0049:  DECFSZ 20,F
004A:  GOTO   049
.................... }  
004B:  RETLW  00
....................   
....................   
.................... // Provede inicializaci LCD displeje, smaze obsah a nastavi mod displeje  
.................... //  
.................... // Tato procedura se musi volat pred pouzitim ostatnich lcd_ procedur  
.................... //  
.................... void lcd_init()  
.................... {  
....................   
....................    int i;                              // pocitadlo cyklu  
....................   
....................    delay_ms(20);                       // spozdeni pro provedeni startu displeje po zapnuti napajeni  
004C:  MOVLW  14
004D:  MOVWF  33
004E:  CALL   00C
....................   
.................... #ifdef LCD_DATA_LSB  
....................    // data jsou na 4 bitech za sebou, nastav smer pro vsechny dalsi prenosy  
....................    *LCD_TRIS = *LCD_TRIS & ~LCD_MASK;  // nuluj odpovidajici bity tris registru datoveho portu LCD  
004F:  MOVLW  0F
0050:  BSF    03.5
0051:  ANDWF  07,F
.................... #endif  
....................   
....................    output_bit(LCD_RS,0);               // nastav jako vystup a nastav klidovy stav  
0052:  BCF    03.5
0053:  BCF    06.1
0054:  BSF    03.5
0055:  BCF    06.1
....................    output_bit(LCD_E, 0);               // nastav jako vystup a nastav klidovy stav  
0056:  BCF    03.5
0057:  BCF    06.0
0058:  BSF    03.5
0059:  BCF    06.0
....................   
....................    for (i=0; i<3; i++)                 // nastav lcd do rezimu 8 bitu sbernice  
005A:  BCF    03.5
005B:  CLRF   2A
005C:  MOVF   2A,W
005D:  SUBLW  02
005E:  BTFSS  03.0
005F:  GOTO   068
....................    {  
....................       delay_ms(2);                     // muze byt rozdelany prenos dat (2x 4 bity) nebo pomaly povel  
0060:  MOVLW  02
0061:  MOVWF  33
0062:  CALL   00C
....................       lcd_send_nibble(3);              // rezim 8 bitu  
0063:  MOVLW  03
0064:  MOVWF  39
0065:  CALL   021
....................    }  
0066:  INCF   2A,F
0067:  GOTO   05C
....................   
....................    delay_us(40);                       // cas na zpracovani  
0068:  MOVLW  0D
0069:  MOVWF  20
006A:  DECFSZ 20,F
006B:  GOTO   06A
....................    lcd_send_nibble(2);                 // nastav rezim 4 bitu (plati od nasledujiciho prenosu)  
006C:  MOVLW  02
006D:  MOVWF  39
006E:  CALL   021
....................    delay_us(40);                       // cas na zpracovani  
006F:  MOVLW  0D
0070:  MOVWF  20
0071:  DECFSZ 20,F
0072:  GOTO   071
....................   
....................    for (i=0;i<3;i++)                   // proved inicializaci (nastaveni modu, smazani apod)  
0073:  CLRF   2A
0074:  MOVF   2A,W
0075:  SUBLW  02
0076:  BTFSS  03.0
0077:  GOTO   084
....................    {  
....................       lcd_send_byte(0,LCD_INIT_STRING[i]);  
0078:  MOVF   2A,W
0079:  CALL   004
007A:  MOVWF  2B
007B:  CLRF   37
007C:  MOVF   2B,W
007D:  MOVWF  38
007E:  CALL   036
....................       delay_ms(2);  
007F:  MOVLW  02
0080:  MOVWF  33
0081:  CALL   00C
....................    }  
0082:  INCF   2A,F
0083:  GOTO   074
.................... }  
0084:  BCF    0A.3
0085:  GOTO   16D (RETURN)
....................   
....................   
.................... // Proved presun kurzoru  
.................... //  
.................... // Pozice 1.1 je domu  
.................... //  
.................... void lcd_gotoxy( BYTE x, BYTE y)  
.................... {  
....................   
....................    BYTE Adr;  
....................   
....................    Adr=x-1;  
0086:  MOVLW  01
0087:  SUBWF  33,W
0088:  MOVWF  35
....................    if(y==2)  
0089:  MOVF   34,W
008A:  SUBLW  02
008B:  BTFSS  03.2
008C:  GOTO   08F
....................      Adr+=LCD_LINE_2;  
008D:  MOVLW  40
008E:  ADDWF  35,F
....................   
....................    lcd_send_byte(0,0x80|Adr);  
008F:  MOVF   35,W
0090:  IORLW  80
0091:  MOVWF  36
0092:  CLRF   37
0093:  MOVF   36,W
0094:  MOVWF  38
0095:  CALL   036
.................... }  
0096:  RETLW  00
....................   
....................   
.................... // Zapis znaku na displej, zpracovani ridicich znaku  
.................... //  
.................... void lcd_putc( char c)  
.................... {  
....................   
....................    switch (c)  
....................    {  
0097:  MOVF   32,W
0098:  XORLW  0C
0099:  BTFSC  03.2
009A:  GOTO   0A5
009B:  XORLW  06
009C:  BTFSC  03.2
009D:  GOTO   0AD
009E:  XORLW  07
009F:  BTFSC  03.2
00A0:  GOTO   0B3
00A1:  XORLW  05
00A2:  BTFSC  03.2
00A3:  GOTO   0B8
00A4:  GOTO   0BD
....................       case '\f'   : lcd_send_byte(0,1);            // smaz displej  
00A5:  CLRF   37
00A6:  MOVLW  01
00A7:  MOVWF  38
00A8:  CALL   036
....................                     delay_ms(2);  
00A9:  MOVLW  02
00AA:  MOVWF  33
00AB:  CALL   00C
....................                                             break;  
00AC:  GOTO   0C9
....................       case '\n'   : lcd_gotoxy(1,2);        break; // presun se na 1. znak 2. radky  
00AD:  MOVLW  01
00AE:  MOVWF  33
00AF:  MOVLW  02
00B0:  MOVWF  34
00B1:  CALL   086
00B2:  GOTO   0C9
....................       case '\r'   : lcd_gotoxy(1,1);        break; // presun home  
00B3:  MOVLW  01
00B4:  MOVWF  33
00B5:  MOVWF  34
00B6:  CALL   086
00B7:  GOTO   0C9
....................       case '\b'   : lcd_send_byte(0,0x10);  break; // posun kurzor o 1 zpet  
00B8:  CLRF   37
00B9:  MOVLW  10
00BA:  MOVWF  38
00BB:  CALL   036
00BC:  GOTO   0C9
....................       default     : if (c<0x20) c&=0x7;            // preklopeni definovatelnych znaku na rozsah 0 az 0x1F  
00BD:  MOVF   32,W
00BE:  SUBLW  1F
00BF:  BTFSS  03.0
00C0:  GOTO   0C3
00C1:  MOVLW  07
00C2:  ANDWF  32,F
....................                     lcd_send_byte(1,c);     break; // zapis znak  
00C3:  MOVLW  01
00C4:  MOVWF  37
00C5:  MOVF   32,W
00C6:  MOVWF  38
00C7:  CALL   036
00C8:  GOTO   0C9
....................    }  
.................... }  
00C9:  RETLW  00
....................   
....................   
.................... // Zapni kurzor  
.................... //  
.................... void lcd_cursor_on()  
.................... {  
....................    lcd_send_byte(0,LCD_CURSOR_ON_);  
.................... }  
....................   
....................   
.................... // Vypni kurzor  
.................... //  
.................... void lcd_cursor_off()  
.................... {  
....................    lcd_send_byte(0,LCD_CURSOR_OFF_);  
.................... }  
....................   
....................   
.................... // Smaz displej  
.................... //  
.................... void lcd_clr()  
.................... {  
....................    lcd_putc('\f');  
.................... }  
....................   
....................   
.................... // Definice vlastnich fontu  
.................... //  
.................... // Vlastnich definic muze byt jen 8 do pozic 0 az 7 pameti CGRAM radice lcd displeje  
.................... // Pro snadne definovani jsou pripraveny nasledujici definice a na konci souboru je uveden  
.................... // priklad pouziti definovanych znaku.  
....................   
....................   
.................... // Pomocna procedura pro posilani ridicich dat do radice displeje  
.................... //  
.................... void lcd_putc2(int Data)  
.................... {  
....................    lcd_send_byte(1,Data);  
.................... }  
....................   
....................   
.................... // Pomocne definice pro programovani obsahu CGRAM  
.................... //  
.................... #define lcd_define_start(Code)      lcd_send_byte(0,0x40+(Code<<3)); delay_ms(2)  
.................... #define lcd_define_def(String)      printf(lcd_putc2,String);  
.................... #define lcd_define_end()            lcd_send_byte(0,3); delay_ms(2)  
....................   
....................   
.................... // Vlastni vykonne makro pro definovani fontu do pozice Index CGRAM s definicnim retezcem Def  
.................... //  
.................... #define lcd_define_char(Index, Def) lcd_define_start(Index); lcd_define_def(Def); lcd_define_end();  
....................   
....................   
.................... // Pripravene definice fontu vybranych znaku  
.................... // V tabulce nesmi byt 00 (konec retezce v printf()), misto toho davame 80  
.................... //  
.................... #define LCD_CHAR_BAT100 "\x0E\x1F\x1F\x1F\x1F\x1F\x1F\x1F"      /* symbol plne baterie       */  
.................... #define LCD_CHAR_BAT50  "\x0E\x1F\x11\x11\x13\x17\x1F\x1F"      /* symbol polovicni baterie  */  
.................... #define LCD_CHAR_BAT0   "\x0E\x1F\x11\x11\x11\x11\x11\x1F"      /* symbol vybite baterie     */  
.................... #define LCD_CHAR_UP     "\x80\x04\x0E\x15\x04\x04\x04\x80"      /* symbol sipka nahoru       */  
.................... #define LCD_CHAR_DOWN   "\x80\x04\x04\x04\x15\x0E\x04\x80"      /* symbol Sipka dolu         */  
.................... #define LCD_CHAR_LUA    "\x04\x0E\x11\x11\x1F\x11\x11\x80"      /* A s carkou                */  
.................... #define LCD_CHAR_LLA    "\x01\x02\x0E\x01\x1F\x11\x0F\x80"      /* a s carkou                */  
.................... #define LCD_CHAR_HUC    "\x0A\x0E\x11\x10\x10\x11\x0E\x80"      /* C s hackem                */  
.................... #define LCD_CHAR_HLC    "\x0A\x04\x0E\x10\x10\x11\x0E\x80"      /* c s hackem                */  
.................... #define LCD_CHAR_HUD    "\x0A\x1C\x12\x11\x11\x12\x1C\x80"      /* D s hackem                */  
.................... #define LCD_CHAR_HLD    "\x05\x03\x0D\x13\x11\x11\x0F\x80"      /* d s hackem                */  
.................... #define LCD_CHAR_LUE    "\x04\x1F\x10\x10\x1E\x10\x1F\x80"      /* E s carkou                */  
.................... #define LCD_CHAR_LLE    "\x01\x02\x0E\x11\x1F\x10\x0E\x80"      /* e s carkou                */  
.................... #define LCD_CHAR_HUE    "\x0A\x1F\x10\x1E\x10\x10\x1F\x80"      /* E s hackem                */  
.................... #define LCD_CHAR_HLE    "\x0A\x04\x0E\x11\x1F\x10\x0E\x80"      /* e s hackem                */  
.................... #define LCD_CHAR_LUI    "\x04\x0E\x04\x04\x04\x04\x0E\x80"      /* I s carkou                */  
.................... #define LCD_CHAR_LLI    "\x02\x04\x80\x0C\x04\x04\x0E\x80"      /* i s carkou                */  
.................... #define LCD_CHAR_HUN    "\x0A\x15\x11\x19\x15\x13\x11\x80"      /* N s hackem                */  
.................... #define LCD_CHAR_HLN    "\x0A\x04\x16\x19\x11\x11\x11\x80"      /* n s hackem                */  
.................... #define LCD_CHAR_LUO    "\x04\x0E\x11\x11\x11\x11\x0E\x80"      /* O s carkou                */  
.................... #define LCD_CHAR_LLO    "\x02\x04\x0E\x11\x11\x11\x0E\x80"      /* o s carkou                */  
.................... #define LCD_CHAR_HUR    "\x0A\x1E\x11\x1E\x14\x12\x11\x80"      /* R s hackem                */  
.................... #define LCD_CHAR_HLR    "\x0A\x04\x16\x19\x10\x10\x10\x80"      /* r s hackem                */  
.................... #define LCD_CHAR_HUS    "\x0A\x0F\x10\x0E\x01\x01\x1E\x80"      /* S s hackem                */  
.................... #define LCD_CHAR_HLS    "\x0A\x04\x0E\x10\x0E\x01\x1E\x80"      /* s s hackem                */  
.................... #define LCD_CHAR_HUT    "\x0A\x1F\x04\x04\x04\x04\x04\x80"      /* T s hackem                */  
.................... #define LCD_CHAR_HLT    "\x0A\x0C\x1C\x08\x08\x09\x06\x80"      /* t s hackem                */  
.................... #define LCD_CHAR_LUU    "\x02\x15\x11\x11\x11\x11\x0E\x80"      /* U s carkou                */  
.................... #define LCD_CHAR_LLU    "\x02\x04\x11\x11\x11\x13\x0D\x80"      /* u s carkou                */  
.................... #define LCD_CHAR_CUU    "\x06\x17\x11\x11\x11\x11\x0E\x80"      /* U s krouzkem              */  
.................... #define LCD_CHAR_CLU    "\x06\x06\x11\x11\x11\x11\x0E\x80"      /* u s krouzkem              */  
.................... #define LCD_CHAR_LUY    "\x02\x15\x11\x0A\x04\x04\x04\x80"      /* Y s carkou                */  
.................... #define LCD_CHAR_LLY    "\x02\x04\x11\x11\x0F\x01\x0E\x80"      /* y s carkou                */  
.................... #define LCD_CHAR_HUZ    "\x0A\x1F\x01\x02\x04\x08\x1F\x80"      /* Z s hackem                */  
.................... #define LCD_CHAR_HLZ    "\x0A\x04\x1F\x02\x04\x08\x1F\x80"      /* z s hackem                */  
....................   
....................   
.................... // Priklad pouziti definovanych znaku  
.................... //  
.................... //  
.................... //void lcd_sample()  
.................... //{  
.................... //   lcd_define_char(0,LCD_CHAR_BAT50);                 // Priklad definice znaku baterie do pozice 0  
.................... //   lcd_define_char(2,LCD_CHAR_HLE LCD_CHAR_LUI);      // Priklad definice znaku e s hackem a I s carkou od pozice 2  
.................... //                                                      // vsimnete si, ze neni carka mezi retezci s definici (oba retezce definuji  
.................... //                                                      // jediny definicni retezec)  
.................... //   printf(lcd_putc,"\fZnaky:\20\22\23");              // priklad vypisu znaku z pozice 0, 2 a 3  
.................... //   delay_ms(1000);  
.................... //   lcd_define_char(0,LCD_CHAR_BAT0);                  // Predefinovani tvaru znaku v pozici 0  
.................... //   delay_ms(1000);  
.................... //}  
....................  
....................   
....................   
.................... void main()  
.................... {  
*
0134:  CLRF   04
0135:  MOVLW  1F
0136:  ANDWF  03,F
0137:  BSF    03.5
0138:  BSF    1F.0
0139:  BSF    1F.1
013A:  BSF    1F.2
013B:  BCF    1F.3
....................    signed int16 stred;  
....................    signed int16 hodnota;  
....................      
....................    setup_adc_ports(ALL_ANALOG);  
*
013F:  BSF    03.5
0140:  BCF    1F.0
0141:  BCF    1F.1
0142:  BCF    1F.2
0143:  BCF    1F.3
....................    setup_adc(ADC_CLOCK_DIV_2);  
0144:  BCF    03.5
0145:  BCF    1F.6
0146:  BCF    1F.7
0147:  BSF    03.5
0148:  BSF    1F.7
0149:  BCF    03.5
014A:  BSF    1F.0
....................    setup_spi(FALSE);  
*
013C:  MOVLW  FF
013D:  BCF    03.5
013E:  MOVWF  25
*
014B:  BCF    14.5
014C:  BCF    25.5
014D:  MOVF   25,W
014E:  BSF    03.5
014F:  MOVWF  07
0150:  BCF    03.5
0151:  BSF    25.4
0152:  MOVF   25,W
0153:  BSF    03.5
0154:  MOVWF  07
0155:  BCF    03.5
0156:  BCF    25.3
0157:  MOVF   25,W
0158:  BSF    03.5
0159:  MOVWF  07
015A:  MOVLW  00
015B:  BCF    03.5
015C:  MOVWF  14
015D:  BSF    03.5
015E:  MOVWF  14
....................    setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);  
015F:  MOVF   01,W
0160:  ANDLW  C7
0161:  IORLW  08
0162:  MOVWF  01
....................    setup_timer_1(T1_DISABLED);  
0163:  BCF    03.5
0164:  CLRF   10
....................    setup_timer_2(T2_DISABLED,0,1);  
0165:  MOVLW  00
0166:  MOVWF  21
0167:  MOVWF  12
0168:  MOVLW  00
0169:  BSF    03.5
016A:  MOVWF  12
....................   
....................    lcd_init();  
016B:  BCF    03.5
016C:  GOTO   04C
....................    Delay_ms(100);  
016D:  MOVLW  64
016E:  MOVWF  33
016F:  CALL   00C
....................    set_adc_channel(1);  
0170:  MOVLW  08
0171:  MOVWF  21
0172:  MOVF   1F,W
0173:  ANDLW  C7
0174:  IORWF  21,W
0175:  MOVWF  1F
....................    Delay_ms(500);  
0176:  MOVLW  02
0177:  MOVWF  2A
0178:  MOVLW  FA
0179:  MOVWF  33
017A:  CALL   00C
017B:  DECFSZ 2A,F
017C:  GOTO   178
....................    stred = read_adc();  
017D:  BSF    1F.2
017E:  BTFSC  1F.2
017F:  GOTO   17E
0180:  BSF    03.5
0181:  MOVF   1E,W
0182:  BCF    03.5
0183:  MOVWF  26
0184:  MOVF   1E,W
0185:  MOVWF  27
....................      
....................    while(true)  
....................    {  
....................       hodnota = stred - read_adc();  
0186:  BSF    1F.2
0187:  BTFSC  1F.2
0188:  GOTO   187
0189:  BSF    03.5
018A:  MOVF   1E,W
018B:  BCF    03.5
018C:  SUBWF  26,W
018D:  MOVWF  28
018E:  MOVF   27,W
018F:  MOVWF  29
0190:  MOVF   1E,W
0191:  BTFSS  03.0
0192:  INCFSZ 1E,W
0193:  SUBWF  29,F
....................       Delay_ms(100);  
0194:  MOVLW  64
0195:  MOVWF  33
0196:  CALL   00C
....................       LCD_gotoxy(1,1);  
0197:  MOVLW  01
0198:  MOVWF  33
0199:  MOVWF  34
019A:  CALL   086
....................       printf(lcd_putc,"                ");  
019B:  MOVLW  10
019C:  MOVWF  2A
019D:  MOVLW  20
019E:  MOVWF  32
019F:  CALL   097
01A0:  DECFSZ 2A,F
01A1:  GOTO   19D
....................       if (hodnota<0)  
01A2:  BTFSS  29.7
01A3:  GOTO   1CA
....................       {  
....................          LCD_gotoxy(5,2);  
01A4:  MOVLW  05
01A5:  MOVWF  33
01A6:  MOVLW  02
01A7:  MOVWF  34
01A8:  CALL   086
....................          printf(lcd_putc," %03ld  ",hodnota);  
01A9:  MOVLW  20
01AA:  MOVWF  32
01AB:  CALL   097
01AC:  MOVLW  0A
01AD:  MOVWF  04
01AE:  MOVF   29,W
01AF:  MOVWF  2B
01B0:  MOVF   28,W
01B1:  MOVWF  2A
01B2:  CALL   0CA
01B3:  MOVLW  20
01B4:  MOVWF  32
01B5:  CALL   097
01B6:  MOVLW  20
01B7:  MOVWF  32
01B8:  CALL   097
....................          LCD_gotoxy(8-hodnota,1);  
01B9:  MOVF   28,W
01BA:  SUBLW  08
01BB:  MOVWF  2A
01BC:  CLRF   2B
01BD:  MOVF   29,W
01BE:  BTFSS  03.0
01BF:  INCFSZ 29,W
01C0:  SUBWF  2B,F
01C1:  MOVF   2A,W
01C2:  MOVWF  33
01C3:  MOVLW  01
01C4:  MOVWF  34
01C5:  CALL   086
....................          printf(lcd_putc,"*",hodnota);  
01C6:  MOVLW  2A
01C7:  MOVWF  32
01C8:  CALL   097
....................       }  
....................       else  
01C9:  GOTO   1EF
....................       {  
....................          LCD_gotoxy(6,2);  
01CA:  MOVLW  06
01CB:  MOVWF  33
01CC:  MOVLW  02
01CD:  MOVWF  34
01CE:  CALL   086
....................          printf(lcd_putc," %03ld  ",hodnota);  
01CF:  MOVLW  20
01D0:  MOVWF  32
01D1:  CALL   097
01D2:  MOVLW  0A
01D3:  MOVWF  04
01D4:  MOVF   29,W
01D5:  MOVWF  2B
01D6:  MOVF   28,W
01D7:  MOVWF  2A
01D8:  CALL   0CA
01D9:  MOVLW  20
01DA:  MOVWF  32
01DB:  CALL   097
01DC:  MOVLW  20
01DD:  MOVWF  32
01DE:  CALL   097
....................          LCD_gotoxy(8-hodnota,1);  
01DF:  MOVF   28,W
01E0:  SUBLW  08
01E1:  MOVWF  2A
01E2:  CLRF   2B
01E3:  MOVF   29,W
01E4:  BTFSS  03.0
01E5:  INCFSZ 29,W
01E6:  SUBWF  2B,F
01E7:  MOVF   2A,W
01E8:  MOVWF  33
01E9:  MOVLW  01
01EA:  MOVWF  34
01EB:  CALL   086
....................          printf(lcd_putc,"*",hodnota);  
01EC:  MOVLW  2A
01ED:  MOVWF  32
01EE:  CALL   097
....................       }  
....................    }  
01EF:  GOTO   186
.................... }  
....................  
01F0:  SLEEP

Configuration Fuses:
   Word  1: 3F39   XT NOWDT NOPUT NOPROTECT NOBROWNOUT NOLVP NOCPD NOWRT NODEBUG