CCS PCM C Compiler, Version 4.059d, 15399               03-I-08 17:43

               Filename: C:\RS\projekty\lcdmob2\.\main.lst

               ROM used: 1040 words (51%)
                         Largest free fragment is 1008
               RAM used: 165 (45%) at main() level
                         234 (64%) worst case
               Stack:    4 locations

*
0000:  MOVLW  00
0001:  MOVWF  0A
0002:  GOTO   14E
0003:  NOP
.................... #include "main.h" 
.................... #include <16F877A.h> 
.................... //////// Standard Header file for the PIC16F877A device //////////////// 
.................... #device PIC16F877A 
.................... #list 
....................  
.................... #device adc=8 
....................  
.................... #FUSES NOWDT                       //No Watch Dog Timer 
.................... #FUSES XT                          //Crystal osc <= 4mhz 
.................... #FUSES NOPUT                       //No Power Up Timer 
.................... #FUSES NOPROTECT                   //Code not protected from reading 
.................... #FUSES NODEBUG                     //No Debug mode for ICD 
.................... #FUSES NOBROWNOUT                  //No brownout reset 
.................... #FUSES NOLVP                       //No low voltage prgming, B3(PIC16) or B5(PIC18) used for I/O 
.................... #FUSES NOCPD                       //No EE protection 
.................... #FUSES NOWRT                       //Program memory not write protected 
....................  
.................... #use delay(clock=4000000,RESTART_WDT) 
0062:  MOVLW  41
0063:  MOVWF  04
0064:  BSF    03.7
0065:  MOVF   00,W
0066:  BTFSC  03.2
0067:  GOTO   079
0068:  MOVLW  01
0069:  MOVWF  78
006A:  MOVLW  BF
006B:  MOVWF  77
006C:  CLRWDT
006D:  DECFSZ 77,F
006E:  GOTO   06C
006F:  DECFSZ 78,F
0070:  GOTO   06A
0071:  MOVLW  4A
0072:  MOVWF  77
0073:  DECFSZ 77,F
0074:  GOTO   073
0075:  NOP
0076:  CLRWDT
0077:  DECFSZ 00,F
0078:  GOTO   068
0079:  RETLW  00
.................... #use rs232(baud=19200,parity=N,xmit=PIN_C6,rcv=PIN_C7,bits=8) 
....................  
....................  
....................  
.................... #define LCD_RS          PIN_B1      // rizeni registru LCD displeje 
.................... #define LCD_E           PIN_B0      // enable LCD displeje 
.................... #define LCD_DATA_LSB    PIN_C0     // pripojeni LSB bitu datoveho portu LCD displeje (celkem 4 bity vzestupne za sebou) 
....................  
.................... #include "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 
007A:  MOVF   07,W
007B:  ANDLW  F0
007C:  BSF    03.6
007D:  MOVWF  48
007E:  MOVF   47,W
007F:  ANDLW  0F
0080:  IORWF  48,W
0081:  BCF    03.6
0082:  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 
0083:  BSF    06.0
0084:  BSF    03.5
0085:  BCF    06.0
....................    delay_us(1);               // pockej alespon 450ns od e nebo alespon 195ns od dat 
0086:  CLRWDT
....................    output_bit(LCD_E,0);       // sestupna hrana (minimalni perioda e je 1us) 
0087:  BCF    03.5
0088:  BCF    06.0
0089:  BSF    03.5
008A:  BCF    06.0
.................... } 
008B:  BCF    03.5
008C:  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 
008D:  BSF    03.6
008E:  MOVF   45,F
008F:  BTFSS  03.2
0090:  GOTO   095
0091:  BCF    03.6
0092:  BCF    06.1
0093:  GOTO   097
0094:  BSF    03.6
0095:  BCF    03.6
0096:  BSF    06.1
0097:  BSF    03.5
0098:  BCF    06.1
....................    swap(n); 
0099:  BCF    03.5
009A:  BSF    03.6
009B:  SWAPF  46,F
....................    lcd_send_nibble(n);        // posli horni pulku bajtu 
009C:  MOVF   46,W
009D:  MOVWF  47
009E:  BCF    03.6
009F:  CALL   07A
....................    swap(n); 
00A0:  BSF    03.6
00A1:  SWAPF  46,F
....................    lcd_send_nibble(n);        // posli spodni pulku bajtu 
00A2:  MOVF   46,W
00A3:  MOVWF  47
00A4:  BCF    03.6
00A5:  CALL   07A
....................    delay_us(40);              // minimalni doba na provedeni prikazu 
00A6:  CLRWDT
00A7:  MOVLW  0C
00A8:  MOVWF  77
00A9:  DECFSZ 77,F
00AA:  GOTO   0A9
00AB:  GOTO   0AC
.................... } 
00AC:  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 
00AD:  MOVLW  14
00AE:  BSF    03.6
00AF:  MOVWF  41
00B0:  BCF    03.6
00B1:  CALL   062
....................  
.................... #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 
00B2:  MOVLW  F0
00B3:  BSF    03.5
00B4:  ANDWF  07,F
.................... #endif 
....................  
....................    output_bit(LCD_RS,0);               // nastav jako vystup a nastav klidovy stav 
00B5:  BCF    03.5
00B6:  BCF    06.1
00B7:  BSF    03.5
00B8:  BCF    06.1
....................    output_bit(LCD_E, 0);               // nastav jako vystup a nastav klidovy stav 
00B9:  BCF    03.5
00BA:  BCF    06.0
00BB:  BSF    03.5
00BC:  BCF    06.0
....................  
....................    for (i=0; i<3; i++)                 // nastav lcd do rezimu 8 bitu sbernice 
00BD:  BCF    03.5
00BE:  BSF    03.6
00BF:  CLRF   3D
00C0:  MOVF   3D,W
00C1:  SUBLW  02
00C2:  BTFSS  03.0
00C3:  GOTO   0D0
....................    { 
....................       delay_ms(2);                     // muze byt rozdelany prenos dat (2x 4 bity) nebo pomaly povel 
00C4:  MOVLW  02
00C5:  MOVWF  41
00C6:  BCF    03.6
00C7:  CALL   062
....................       lcd_send_nibble(3);              // rezim 8 bitu 
00C8:  MOVLW  03
00C9:  BSF    03.6
00CA:  MOVWF  47
00CB:  BCF    03.6
00CC:  CALL   07A
....................    } 
00CD:  BSF    03.6
00CE:  INCF   3D,F
00CF:  GOTO   0C0
....................  
....................    delay_us(40);                       // cas na zpracovani 
00D0:  CLRWDT
00D1:  MOVLW  0C
00D2:  MOVWF  77
00D3:  DECFSZ 77,F
00D4:  GOTO   0D3
00D5:  GOTO   0D6
....................    lcd_send_nibble(2);                 // nastav rezim 4 bitu (plati od nasledujiciho prenosu) 
00D6:  MOVLW  02
00D7:  MOVWF  47
00D8:  BCF    03.6
00D9:  CALL   07A
....................    delay_us(40);                       // cas na zpracovani 
00DA:  CLRWDT
00DB:  MOVLW  0C
00DC:  MOVWF  77
00DD:  DECFSZ 77,F
00DE:  GOTO   0DD
00DF:  GOTO   0E0
....................  
....................    for (i=0;i<3;i++)                   // proved inicializaci (nastaveni modu, smazani apod) 
00E0:  BSF    03.6
00E1:  CLRF   3D
00E2:  MOVF   3D,W
00E3:  SUBLW  02
00E4:  BTFSS  03.0
00E5:  GOTO   0F8
....................    { 
....................       lcd_send_byte(0,LCD_INIT_STRING[i]); 
00E6:  MOVF   3D,W
00E7:  BCF    03.6
00E8:  CALL   004
00E9:  BSF    03.6
00EA:  MOVWF  3E
00EB:  CLRF   45
00EC:  MOVF   3E,W
00ED:  MOVWF  46
00EE:  BCF    03.6
00EF:  CALL   08D
....................       delay_ms(2); 
00F0:  MOVLW  02
00F1:  BSF    03.6
00F2:  MOVWF  41
00F3:  BCF    03.6
00F4:  CALL   062
....................    } 
00F5:  BSF    03.6
00F6:  INCF   3D,F
00F7:  GOTO   0E2
.................... } 
00F8:  BCF    03.6
00F9:  GOTO   190 (RETURN)
....................  
....................  
.................... // Proved presun kurzoru 
.................... // 
.................... // Pozice 1.1 je domu 
.................... // 
.................... void lcd_gotoxy( BYTE x, BYTE y) 
.................... { 
....................  
....................    BYTE Adr; 
....................  
....................    Adr=x-1; 
00FA:  MOVLW  01
00FB:  BSF    03.6
00FC:  SUBWF  41,W
00FD:  MOVWF  43
....................    if(y==2) 
00FE:  MOVF   42,W
00FF:  SUBLW  02
0100:  BTFSS  03.2
0101:  GOTO   104
....................      Adr+=LCD_LINE_2; 
0102:  MOVLW  40
0103:  ADDWF  43,F
....................  
....................    lcd_send_byte(0,0x80|Adr); 
0104:  MOVF   43,W
0105:  IORLW  80
0106:  MOVWF  44
0107:  CLRF   45
0108:  MOVF   44,W
0109:  MOVWF  46
010A:  BCF    03.6
010B:  CALL   08D
.................... } 
010C:  RETLW  00
....................  
....................  
.................... // Zapis znaku na displej, zpracovani ridicich znaku 
.................... // 
.................... void lcd_putc( char c) 
.................... { 
....................  
....................    switch (c) 
....................    { 
010D:  BSF    03.6
010E:  MOVF   40,W
010F:  XORLW  0C
0110:  BCF    03.6
0111:  BTFSC  03.2
0112:  GOTO   11D
0113:  XORLW  06
0114:  BTFSC  03.2
0115:  GOTO   129
0116:  XORLW  07
0117:  BTFSC  03.2
0118:  GOTO   131
0119:  XORLW  05
011A:  BTFSC  03.2
011B:  GOTO   138
011C:  GOTO   13F
....................       case '\f'   : lcd_send_byte(0,1);            // smaz displej 
011D:  BSF    03.6
011E:  CLRF   45
011F:  MOVLW  01
0120:  MOVWF  46
0121:  BCF    03.6
0122:  CALL   08D
....................                     delay_ms(2); 
0123:  MOVLW  02
0124:  BSF    03.6
0125:  MOVWF  41
0126:  BCF    03.6
0127:  CALL   062
....................                                             break; 
0128:  GOTO   14D
....................       case '\n'   : lcd_gotoxy(1,2);        break; // presun se na 1. znak 2. radky 
0129:  MOVLW  01
012A:  BSF    03.6
012B:  MOVWF  41
012C:  MOVLW  02
012D:  MOVWF  42
012E:  BCF    03.6
012F:  CALL   0FA
0130:  GOTO   14D
....................       case '\r'   : lcd_gotoxy(1,1);        break; // presun home 
0131:  MOVLW  01
0132:  BSF    03.6
0133:  MOVWF  41
0134:  MOVWF  42
0135:  BCF    03.6
0136:  CALL   0FA
0137:  GOTO   14D
....................       case '\b'   : lcd_send_byte(0,0x10);  break; // posun kurzor o 1 zpet 
0138:  BSF    03.6
0139:  CLRF   45
013A:  MOVLW  10
013B:  MOVWF  46
013C:  BCF    03.6
013D:  CALL   08D
013E:  GOTO   14D
....................       default     : if (c<0x20) c&=0x7;            // preklopeni definovatelnych znaku na rozsah 0 az 0x1F 
013F:  BSF    03.6
0140:  MOVF   40,W
0141:  SUBLW  1F
0142:  BTFSS  03.0
0143:  GOTO   146
0144:  MOVLW  07
0145:  ANDWF  40,F
....................                     lcd_send_byte(1,c);     break; // zapis znak 
0146:  MOVLW  01
0147:  MOVWF  45
0148:  MOVF   40,W
0149:  MOVWF  46
014A:  BCF    03.6
014B:  CALL   08D
014C:  GOTO   14D
....................    } 
.................... } 
014D:  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() 
.................... { 
014E:  CLRF   04
014F:  BCF    03.7
0150:  MOVLW  1F
0151:  ANDWF  03,F
0152:  MOVLW  0C
0153:  BSF    03.5
0154:  MOVWF  19
0155:  MOVLW  A6
0156:  MOVWF  18
0157:  MOVLW  90
0158:  BCF    03.5
0159:  MOVWF  18
015A:  BSF    03.5
015B:  BSF    1F.0
015C:  BSF    1F.1
015D:  BSF    1F.2
015E:  BCF    1F.3
015F:  MOVLW  07
0160:  MOVWF  1C
.................... char odp1[45]; 
.................... char odp2[10]; 
.................... char odp3[45]; 
.................... char odp4[10]; 
.................... char odp5[45]; 
....................  
....................  
....................  
....................    setup_adc_ports(NO_ANALOGS); 
*
0164:  BSF    03.5
0165:  BSF    1F.0
0166:  BSF    1F.1
0167:  BSF    1F.2
0168:  BCF    1F.3
....................    setup_adc(ADC_OFF); 
0169:  BCF    03.5
016A:  BCF    1F.0
....................    setup_psp(PSP_DISABLED); 
016B:  BSF    03.5
016C:  BCF    09.4
....................    setup_spi(FALSE); 
*
0161:  MOVLW  FF
0162:  BCF    03.5
0163:  MOVWF  20
*
016D:  BCF    03.5
016E:  BCF    14.5
016F:  BCF    20.5
0170:  MOVF   20,W
0171:  BSF    03.5
0172:  MOVWF  07
0173:  BCF    03.5
0174:  BSF    20.4
0175:  MOVF   20,W
0176:  BSF    03.5
0177:  MOVWF  07
0178:  BCF    03.5
0179:  BCF    20.3
017A:  MOVF   20,W
017B:  BSF    03.5
017C:  MOVWF  07
017D:  MOVLW  00
017E:  BCF    03.5
017F:  MOVWF  14
0180:  BSF    03.5
0181:  MOVWF  14
....................    setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1); 
0182:  MOVF   01,W
0183:  ANDLW  C7
0184:  IORLW  08
0185:  MOVWF  01
....................    setup_timer_1(T1_DISABLED); 
0186:  BCF    03.5
0187:  CLRF   10
....................    setup_timer_2(T2_DISABLED,0,1); 
0188:  MOVLW  00
0189:  MOVWF  78
018A:  MOVWF  12
018B:  MOVLW  00
018C:  BSF    03.5
018D:  MOVWF  12
....................  
....................    lcd_init(); 
018E:  BCF    03.5
018F:  GOTO   0AD
....................     
....................    delay_ms(2000); 
0190:  MOVLW  08
0191:  MOVWF  62
0192:  MOVLW  FA
0193:  BSF    03.6
0194:  MOVWF  41
0195:  BCF    03.6
0196:  CALL   062
0197:  DECFSZ 62,F
0198:  GOTO   192
....................     
.................... printf(lcd_putc,"\f Z"); 
0199:  MOVLW  0C
019A:  BSF    03.6
019B:  MOVWF  40
019C:  BCF    03.6
019D:  CALL   10D
019E:  MOVLW  20
019F:  BSF    03.6
01A0:  MOVWF  40
01A1:  BCF    03.6
01A2:  CALL   10D
01A3:  MOVLW  5A
01A4:  BSF    03.6
01A5:  MOVWF  40
01A6:  BCF    03.6
01A7:  CALL   10D
.................... delay_ms(100); 
01A8:  MOVLW  64
01A9:  BSF    03.6
01AA:  MOVWF  41
01AB:  BCF    03.6
01AC:  CALL   062
.................... printf(lcd_putc,"a"); 
01AD:  MOVLW  61
01AE:  BSF    03.6
01AF:  MOVWF  40
01B0:  BCF    03.6
01B1:  CALL   10D
.................... delay_ms(50); 
01B2:  MOVLW  32
01B3:  BSF    03.6
01B4:  MOVWF  41
01B5:  BCF    03.6
01B6:  CALL   062
.................... printf(lcd_putc,"v"); 
01B7:  MOVLW  76
01B8:  BSF    03.6
01B9:  MOVWF  40
01BA:  BCF    03.6
01BB:  CALL   10D
.................... delay_ms(50); 
01BC:  MOVLW  32
01BD:  BSF    03.6
01BE:  MOVWF  41
01BF:  BCF    03.6
01C0:  CALL   062
.................... printf(lcd_putc,"a"); 
01C1:  MOVLW  61
01C2:  BSF    03.6
01C3:  MOVWF  40
01C4:  BCF    03.6
01C5:  CALL   10D
.................... delay_ms(50); 
01C6:  MOVLW  32
01C7:  BSF    03.6
01C8:  MOVWF  41
01C9:  BCF    03.6
01CA:  CALL   062
.................... printf(lcd_putc,"d"); 
01CB:  MOVLW  64
01CC:  BSF    03.6
01CD:  MOVWF  40
01CE:  BCF    03.6
01CF:  CALL   10D
.................... delay_ms(50); 
01D0:  MOVLW  32
01D1:  BSF    03.6
01D2:  MOVWF  41
01D3:  BCF    03.6
01D4:  CALL   062
.................... printf(lcd_putc,"i"); 
01D5:  MOVLW  69
01D6:  BSF    03.6
01D7:  MOVWF  40
01D8:  BCF    03.6
01D9:  CALL   10D
.................... delay_ms(50); 
01DA:  MOVLW  32
01DB:  BSF    03.6
01DC:  MOVWF  41
01DD:  BCF    03.6
01DE:  CALL   062
.................... printf(lcd_putc,"m"); 
01DF:  MOVLW  6D
01E0:  BSF    03.6
01E1:  MOVWF  40
01E2:  BCF    03.6
01E3:  CALL   10D
.................... delay_ms(50); 
01E4:  MOVLW  32
01E5:  BSF    03.6
01E6:  MOVWF  41
01E7:  BCF    03.6
01E8:  CALL   062
.................... printf(lcd_putc," "); 
01E9:  MOVLW  20
01EA:  BSF    03.6
01EB:  MOVWF  40
01EC:  BCF    03.6
01ED:  CALL   10D
.................... delay_ms(50); 
01EE:  MOVLW  32
01EF:  BSF    03.6
01F0:  MOVWF  41
01F1:  BCF    03.6
01F2:  CALL   062
.................... printf(lcd_putc,"s"); 
01F3:  MOVLW  73
01F4:  BSF    03.6
01F5:  MOVWF  40
01F6:  BCF    03.6
01F7:  CALL   10D
.................... delay_ms(50); 
01F8:  MOVLW  32
01F9:  BSF    03.6
01FA:  MOVWF  41
01FB:  BCF    03.6
01FC:  CALL   062
.................... printf(lcd_putc,"y"); 
01FD:  MOVLW  79
01FE:  BSF    03.6
01FF:  MOVWF  40
0200:  BCF    03.6
0201:  CALL   10D
.................... delay_ms(50); 
0202:  MOVLW  32
0203:  BSF    03.6
0204:  MOVWF  41
0205:  BCF    03.6
0206:  CALL   062
.................... printf(lcd_putc,"s"); 
0207:  MOVLW  73
0208:  BSF    03.6
0209:  MOVWF  40
020A:  BCF    03.6
020B:  CALL   10D
.................... delay_ms(50); 
020C:  MOVLW  32
020D:  BSF    03.6
020E:  MOVWF  41
020F:  BCF    03.6
0210:  CALL   062
.................... printf(lcd_putc,"t"); 
0211:  MOVLW  74
0212:  BSF    03.6
0213:  MOVWF  40
0214:  BCF    03.6
0215:  CALL   10D
.................... delay_ms(50); 
0216:  MOVLW  32
0217:  BSF    03.6
0218:  MOVWF  41
0219:  BCF    03.6
021A:  CALL   062
.................... printf(lcd_putc,"e"); 
021B:  MOVLW  65
021C:  BSF    03.6
021D:  MOVWF  40
021E:  BCF    03.6
021F:  CALL   10D
.................... delay_ms(50); 
0220:  MOVLW  32
0221:  BSF    03.6
0222:  MOVWF  41
0223:  BCF    03.6
0224:  CALL   062
.................... printf(lcd_putc,"m\n"); 
0225:  MOVLW  6D
0226:  BSF    03.6
0227:  MOVWF  40
0228:  BCF    03.6
0229:  CALL   10D
022A:  MOVLW  0A
022B:  BSF    03.6
022C:  MOVWF  40
022D:  BCF    03.6
022E:  CALL   10D
.................... delay_ms(150); 
022F:  MOVLW  96
0230:  BSF    03.6
0231:  MOVWF  41
0232:  BCF    03.6
0233:  CALL   062
.................... printf(lcd_putc,"   ."); 
0234:  CLRF   62
0235:  MOVF   62,W
0236:  CALL   00C
0237:  INCF   62,F
0238:  MOVWF  77
0239:  BSF    03.6
023A:  MOVWF  40
023B:  BCF    03.6
023C:  CALL   10D
023D:  MOVLW  04
023E:  SUBWF  62,W
023F:  BTFSS  03.2
0240:  GOTO   235
.................... delay_ms(150); 
0241:  MOVLW  96
0242:  BSF    03.6
0243:  MOVWF  41
0244:  BCF    03.6
0245:  CALL   062
.................... printf(lcd_putc," ."); 
0246:  MOVLW  20
0247:  BSF    03.6
0248:  MOVWF  40
0249:  BCF    03.6
024A:  CALL   10D
024B:  MOVLW  2E
024C:  BSF    03.6
024D:  MOVWF  40
024E:  BCF    03.6
024F:  CALL   10D
.................... delay_ms(175); 
0250:  MOVLW  AF
0251:  BSF    03.6
0252:  MOVWF  41
0253:  BCF    03.6
0254:  CALL   062
.................... printf(lcd_putc," ."); 
0255:  MOVLW  20
0256:  BSF    03.6
0257:  MOVWF  40
0258:  BCF    03.6
0259:  CALL   10D
025A:  MOVLW  2E
025B:  BSF    03.6
025C:  MOVWF  40
025D:  BCF    03.6
025E:  CALL   10D
.................... delay_ms(300); 
025F:  MOVLW  02
0260:  MOVWF  62
0261:  MOVLW  96
0262:  BSF    03.6
0263:  MOVWF  41
0264:  BCF    03.6
0265:  CALL   062
0266:  DECFSZ 62,F
0267:  GOTO   261
.................... printf(lcd_putc," ."); 
0268:  MOVLW  20
0269:  BSF    03.6
026A:  MOVWF  40
026B:  BCF    03.6
026C:  CALL   10D
026D:  MOVLW  2E
026E:  BSF    03.6
026F:  MOVWF  40
0270:  BCF    03.6
0271:  CALL   10D
.................... delay_ms(400); 
0272:  MOVLW  02
0273:  MOVWF  62
0274:  MOVLW  C8
0275:  BSF    03.6
0276:  MOVWF  41
0277:  BCF    03.6
0278:  CALL   062
0279:  DECFSZ 62,F
027A:  GOTO   274
.................... printf(lcd_putc," ."); 
027B:  MOVLW  20
027C:  BSF    03.6
027D:  MOVWF  40
027E:  BCF    03.6
027F:  CALL   10D
0280:  MOVLW  2E
0281:  BSF    03.6
0282:  MOVWF  40
0283:  BCF    03.6
0284:  CALL   10D
.................... delay_ms(550); 
0285:  MOVLW  05
0286:  MOVWF  62
0287:  MOVLW  6E
0288:  BSF    03.6
0289:  MOVWF  41
028A:  BCF    03.6
028B:  CALL   062
028C:  DECFSZ 62,F
028D:  GOTO   287
....................  
....................   while(true) 
....................   { 
....................    output_low(PIN_A4); 
028E:  BSF    03.5
028F:  BCF    05.4
0290:  BCF    03.5
0291:  BCF    05.4
....................    delay_ms(1500); 
0292:  MOVLW  06
0293:  MOVWF  62
0294:  MOVLW  FA
0295:  BSF    03.6
0296:  MOVWF  41
0297:  BCF    03.6
0298:  CALL   062
0299:  DECFSZ 62,F
029A:  GOTO   294
....................    output_high(PIN_A4); 
029B:  BSF    03.5
029C:  BCF    05.4
029D:  BCF    03.5
029E:  BSF    05.4
....................  
....................    printf("AT+CBC\r"); 
029F:  CLRF   62
02A0:  MOVF   62,W
02A1:  CALL   015
02A2:  INCF   62,F
02A3:  MOVWF  77
02A4:  MOVF   77,W
02A5:  BTFSS  0C.4
02A6:  GOTO   2A5
02A7:  MOVWF  19
02A8:  MOVLW  07
02A9:  SUBWF  62,W
02AA:  BTFSS  03.2
02AB:  GOTO   2A0
....................     
....................  
....................    gets(odp1); 
02AC:  MOVLW  21
02AD:  MOVWF  04
02AE:  BCF    03.7
02AF:  DECF   04,F
02B0:  INCF   04,F
02B1:  BTFSS  0C.5
02B2:  GOTO   2B1
02B3:  MOVF   1A,W
02B4:  MOVWF  00
02B5:  MOVLW  0D
02B6:  SUBWF  00,W
02B7:  BTFSS  03.2
02B8:  GOTO   2B0
02B9:  CLRF   00
....................    gets(odp2); 
02BA:  MOVLW  4E
02BB:  MOVWF  04
02BC:  BCF    03.7
02BD:  DECF   04,F
02BE:  INCF   04,F
02BF:  BTFSS  0C.5
02C0:  GOTO   2BF
02C1:  MOVF   1A,W
02C2:  MOVWF  00
02C3:  MOVLW  0D
02C4:  SUBWF  00,W
02C5:  BTFSS  03.2
02C6:  GOTO   2BE
02C7:  CLRF   00
....................    gets(odp3); 
02C8:  MOVLW  A0
02C9:  MOVWF  04
02CA:  BCF    03.7
02CB:  DECF   04,F
02CC:  INCF   04,F
02CD:  BTFSS  0C.5
02CE:  GOTO   2CD
02CF:  MOVF   1A,W
02D0:  MOVWF  00
02D1:  MOVLW  0D
02D2:  SUBWF  00,W
02D3:  BTFSS  03.2
02D4:  GOTO   2CC
02D5:  CLRF   00
....................    gets(odp4); 
02D6:  MOVLW  58
02D7:  MOVWF  04
02D8:  BCF    03.7
02D9:  DECF   04,F
02DA:  INCF   04,F
02DB:  BTFSS  0C.5
02DC:  GOTO   2DB
02DD:  MOVF   1A,W
02DE:  MOVWF  00
02DF:  MOVLW  0D
02E0:  SUBWF  00,W
02E1:  BTFSS  03.2
02E2:  GOTO   2DA
02E3:  CLRF   00
....................    gets(odp5); 
02E4:  MOVLW  10
02E5:  MOVWF  04
02E6:  BSF    03.7
02E7:  DECF   04,F
02E8:  INCF   04,F
02E9:  BTFSS  0C.5
02EA:  GOTO   2E9
02EB:  MOVF   1A,W
02EC:  MOVWF  00
02ED:  MOVLW  0D
02EE:  SUBWF  00,W
02EF:  BTFSS  03.2
02F0:  GOTO   2E8
02F1:  CLRF   00
....................     
....................     
....................    printf(lcd_putc,"\fODP1:%s",odp1); 
02F2:  CLRF   62
02F3:  MOVF   62,W
02F4:  CALL   021
02F5:  INCF   62,F
02F6:  MOVWF  77
02F7:  BSF    03.6
02F8:  MOVWF  40
02F9:  BCF    03.6
02FA:  CALL   10D
02FB:  MOVLW  06
02FC:  SUBWF  62,W
02FD:  BTFSS  03.2
02FE:  GOTO   2F3
02FF:  MOVLW  21
0300:  MOVWF  04
0301:  BCF    03.7
0302:  MOVLW  00
0303:  IORWF  00,W
0304:  BTFSC  03.2
0305:  GOTO   318
0306:  CLRF   64
0307:  MOVF   04,W
0308:  MOVWF  63
0309:  BCF    64.0
030A:  BTFSC  03.7
030B:  BSF    64.0
030C:  MOVF   00,W
030D:  BSF    03.6
030E:  MOVWF  40
030F:  BCF    03.6
0310:  CALL   10D
0311:  MOVF   63,W
0312:  MOVWF  04
0313:  BCF    03.7
0314:  BTFSC  64.0
0315:  BSF    03.7
0316:  INCF   04,F
0317:  GOTO   302
....................    delay_ms(2000); 
0318:  MOVLW  08
0319:  MOVWF  62
031A:  MOVLW  FA
031B:  BSF    03.6
031C:  MOVWF  41
031D:  BCF    03.6
031E:  CALL   062
031F:  DECFSZ 62,F
0320:  GOTO   31A
....................     
....................    printf(lcd_putc,"\fODP2:%s",odp2); 
0321:  CLRF   62
0322:  MOVF   62,W
0323:  CALL   02E
0324:  INCF   62,F
0325:  MOVWF  77
0326:  BSF    03.6
0327:  MOVWF  40
0328:  BCF    03.6
0329:  CALL   10D
032A:  MOVLW  06
032B:  SUBWF  62,W
032C:  BTFSS  03.2
032D:  GOTO   322
032E:  MOVLW  4E
032F:  MOVWF  04
0330:  BCF    03.7
0331:  MOVLW  00
0332:  IORWF  00,W
0333:  BTFSC  03.2
0334:  GOTO   347
0335:  CLRF   64
0336:  MOVF   04,W
0337:  MOVWF  63
0338:  BCF    64.0
0339:  BTFSC  03.7
033A:  BSF    64.0
033B:  MOVF   00,W
033C:  BSF    03.6
033D:  MOVWF  40
033E:  BCF    03.6
033F:  CALL   10D
0340:  MOVF   63,W
0341:  MOVWF  04
0342:  BCF    03.7
0343:  BTFSC  64.0
0344:  BSF    03.7
0345:  INCF   04,F
0346:  GOTO   331
....................    delay_ms(2000); 
0347:  MOVLW  08
0348:  MOVWF  62
0349:  MOVLW  FA
034A:  BSF    03.6
034B:  MOVWF  41
034C:  BCF    03.6
034D:  CALL   062
034E:  DECFSZ 62,F
034F:  GOTO   349
....................     
....................    printf(lcd_putc,"\fODP3:%s",odp3); 
0350:  CLRF   62
0351:  MOVF   62,W
0352:  CALL   03B
0353:  INCF   62,F
0354:  MOVWF  77
0355:  BSF    03.6
0356:  MOVWF  40
0357:  BCF    03.6
0358:  CALL   10D
0359:  MOVLW  06
035A:  SUBWF  62,W
035B:  BTFSS  03.2
035C:  GOTO   351
035D:  MOVLW  A0
035E:  MOVWF  04
035F:  BCF    03.7
0360:  MOVLW  00
0361:  IORWF  00,W
0362:  BTFSC  03.2
0363:  GOTO   376
0364:  CLRF   64
0365:  MOVF   04,W
0366:  MOVWF  63
0367:  BCF    64.0
0368:  BTFSC  03.7
0369:  BSF    64.0
036A:  MOVF   00,W
036B:  BSF    03.6
036C:  MOVWF  40
036D:  BCF    03.6
036E:  CALL   10D
036F:  MOVF   63,W
0370:  MOVWF  04
0371:  BCF    03.7
0372:  BTFSC  64.0
0373:  BSF    03.7
0374:  INCF   04,F
0375:  GOTO   360
....................    delay_ms(2000); 
0376:  MOVLW  08
0377:  MOVWF  62
0378:  MOVLW  FA
0379:  BSF    03.6
037A:  MOVWF  41
037B:  BCF    03.6
037C:  CALL   062
037D:  DECFSZ 62,F
037E:  GOTO   378
....................     
....................    printf(lcd_putc,"\fODP4:%s",odp4); 
037F:  CLRF   62
0380:  MOVF   62,W
0381:  CALL   048
0382:  INCF   62,F
0383:  MOVWF  77
0384:  BSF    03.6
0385:  MOVWF  40
0386:  BCF    03.6
0387:  CALL   10D
0388:  MOVLW  06
0389:  SUBWF  62,W
038A:  BTFSS  03.2
038B:  GOTO   380
038C:  MOVLW  58
038D:  MOVWF  04
038E:  BCF    03.7
038F:  MOVLW  00
0390:  IORWF  00,W
0391:  BTFSC  03.2
0392:  GOTO   3A5
0393:  CLRF   64
0394:  MOVF   04,W
0395:  MOVWF  63
0396:  BCF    64.0
0397:  BTFSC  03.7
0398:  BSF    64.0
0399:  MOVF   00,W
039A:  BSF    03.6
039B:  MOVWF  40
039C:  BCF    03.6
039D:  CALL   10D
039E:  MOVF   63,W
039F:  MOVWF  04
03A0:  BCF    03.7
03A1:  BTFSC  64.0
03A2:  BSF    03.7
03A3:  INCF   04,F
03A4:  GOTO   38F
....................    delay_ms(2000); 
03A5:  MOVLW  08
03A6:  MOVWF  62
03A7:  MOVLW  FA
03A8:  BSF    03.6
03A9:  MOVWF  41
03AA:  BCF    03.6
03AB:  CALL   062
03AC:  DECFSZ 62,F
03AD:  GOTO   3A7
....................     
....................    printf(lcd_putc,"\fODP5:%s",odp5); 
03AE:  CLRF   62
03AF:  MOVF   62,W
03B0:  CALL   055
03B1:  INCF   62,F
03B2:  MOVWF  77
03B3:  BSF    03.6
03B4:  MOVWF  40
03B5:  BCF    03.6
03B6:  CALL   10D
03B7:  MOVLW  06
03B8:  SUBWF  62,W
03B9:  BTFSS  03.2
03BA:  GOTO   3AF
03BB:  MOVLW  10
03BC:  MOVWF  04
03BD:  BSF    03.7
03BE:  MOVLW  00
03BF:  IORWF  00,W
03C0:  BTFSC  03.2
03C1:  GOTO   3D4
03C2:  CLRF   64
03C3:  MOVF   04,W
03C4:  MOVWF  63
03C5:  BCF    64.0
03C6:  BTFSC  03.7
03C7:  BSF    64.0
03C8:  MOVF   00,W
03C9:  BSF    03.6
03CA:  MOVWF  40
03CB:  BCF    03.6
03CC:  CALL   10D
03CD:  MOVF   63,W
03CE:  MOVWF  04
03CF:  BCF    03.7
03D0:  BTFSC  64.0
03D1:  BSF    03.7
03D2:  INCF   04,F
03D3:  GOTO   3BE
....................  
....................  
....................    output_low(PIN_A4); 
03D4:  BSF    03.5
03D5:  BCF    05.4
03D6:  BCF    03.5
03D7:  BCF    05.4
....................    delay_ms(150); 
03D8:  MOVLW  96
03D9:  BSF    03.6
03DA:  MOVWF  41
03DB:  BCF    03.6
03DC:  CALL   062
....................    output_high(PIN_A4); 
03DD:  BSF    03.5
03DE:  BCF    05.4
03DF:  BCF    03.5
03E0:  BSF    05.4
....................    delay_ms(100); 
03E1:  MOVLW  64
03E2:  BSF    03.6
03E3:  MOVWF  41
03E4:  BCF    03.6
03E5:  CALL   062
....................    output_low(PIN_A4); 
03E6:  BSF    03.5
03E7:  BCF    05.4
03E8:  BCF    03.5
03E9:  BCF    05.4
....................    delay_ms(150); 
03EA:  MOVLW  96
03EB:  BSF    03.6
03EC:  MOVWF  41
03ED:  BCF    03.6
03EE:  CALL   062
....................    output_high(PIN_A4); 
03EF:  BSF    03.5
03F0:  BCF    05.4
03F1:  BCF    03.5
03F2:  BSF    05.4
....................    delay_ms(100); 
03F3:  MOVLW  64
03F4:  BSF    03.6
03F5:  MOVWF  41
03F6:  BCF    03.6
03F7:  CALL   062
....................    output_low(PIN_A4); 
03F8:  BSF    03.5
03F9:  BCF    05.4
03FA:  BCF    03.5
03FB:  BCF    05.4
....................    delay_ms(150); 
03FC:  MOVLW  96
03FD:  BSF    03.6
03FE:  MOVWF  41
03FF:  BCF    03.6
0400:  CALL   062
....................    output_high(PIN_A4); 
0401:  BSF    03.5
0402:  BCF    05.4
0403:  BCF    03.5
0404:  BSF    05.4
....................    delay_ms(1500); 
0405:  MOVLW  06
0406:  MOVWF  62
0407:  MOVLW  FA
0408:  BSF    03.6
0409:  MOVWF  41
040A:  BCF    03.6
040B:  CALL   062
040C:  DECFSZ 62,F
040D:  GOTO   407
....................   } 
040E:  GOTO   28E
.................... } 
040F:  SLEEP

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