Rev 410 | Blame | Compare with Previous | Last modification | View Log | Download
CCS PCM C Compiler, Version 3.221, 27853 19-XII-05 23:22Filename: D:\KAKLIK\programy\PIC_C\mereni\PS2mys\PIC16F88\mys.LSTROM used: 953 words (23%)Largest free fragment is 2048RAM used: 19 (11%) at main() level33 (19%) worst caseStack: 5 locations*0000: MOVLW 000001: MOVWF 0A0002: GOTO 2E20003: NOP.................... #include "D:\KAKLIK\programy\PIC_C\mereni\PS2mys\PIC16F88\mys.h".................... #include <16F88.h>.................... //////// Standard Header file for the PIC16F88 device ////////////////.................... #device PIC16F88.................... #list........................................ #device adc=8.................... #fuses NOWDT,INTRC_IO, NOPUT, MCLR, BROWNOUT, NOLVP, NOCPD, NOWRT, NODEBUG, NOPROTECT, FCMEN, IESO.................... #use delay(clock=4000000)*0033: MOVLW 340034: MOVWF 040035: MOVF 00,W0036: BTFSC 03.20037: GOTO 0470038: MOVLW 010039: MOVWF 78003A: CLRF 77003B: DECFSZ 77,F003C: GOTO 03B003D: DECFSZ 78,F003E: GOTO 03A003F: MOVLW 4A0040: MOVWF 770041: DECFSZ 77,F0042: GOTO 0410043: NOP0044: NOP0045: DECFSZ 00,F0046: GOTO 0380047: RETLW 00................................................................................ #define LCD_RS PIN_A0 // rizeni registru LCD displeje.................... #define LCD_E PIN_A1 // enable LCD displeje.................... #define LCD_DATA_LSB PIN_B0 // 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 zachovej0048: MOVF 06,W0049: ANDLW F0004A: MOVWF 3B004B: MOVF 3A,W004C: ANDLW 0F004D: IORWF 3B,W004E: MOVWF 06.................... #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 hrana004F: BSF 05.10050: BSF 03.50051: BCF 05.1.................... delay_us(1); // pockej alespon 450ns od e nebo alespon 195ns od dat0052: NOP.................... output_bit(LCD_E,0); // sestupna hrana (minimalni perioda e je 1us)0053: BCF 03.50054: BCF 05.10055: BSF 03.50056: BCF 05.1.................... }0057: BCF 03.50058: 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 registr0059: MOVF 38,F005A: BTFSS 03.2005B: GOTO 05E005C: BCF 05.0005D: GOTO 05F005E: BSF 05.0005F: BSF 03.50060: BCF 05.0.................... swap(n);0061: BCF 03.50062: SWAPF 39,F.................... lcd_send_nibble(n); // posli horni pulku bajtu0063: MOVF 39,W0064: MOVWF 3A0065: CALL 048.................... swap(n);0066: SWAPF 39,F.................... lcd_send_nibble(n); // posli spodni pulku bajtu0067: MOVF 39,W0068: MOVWF 3A0069: CALL 048.................... delay_us(40); // minimalni doba na provedeni prikazu006A: MOVLW 0D006B: MOVWF 77006C: DECFSZ 77,F006D: GOTO 06C.................... }006E: 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 napajeni006F: MOVLW 140070: MOVWF 340071: CALL 033........................................ #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 LCD0072: MOVLW F00073: BSF 03.50074: ANDWF 06,F.................... #endif........................................ output_bit(LCD_RS,0); // nastav jako vystup a nastav klidovy stav0075: BCF 03.50076: BCF 05.00077: BSF 03.50078: BCF 05.0.................... output_bit(LCD_E, 0); // nastav jako vystup a nastav klidovy stav0079: BCF 03.5007A: BCF 05.1007B: BSF 03.5007C: BCF 05.1........................................ for (i=0; i<3; i++) // nastav lcd do rezimu 8 bitu sbernice007D: BCF 03.5007E: CLRF 2B007F: MOVF 2B,W0080: SUBLW 020081: BTFSS 03.00082: GOTO 08B.................... {.................... delay_ms(2); // muze byt rozdelany prenos dat (2x 4 bity) nebo pomaly povel0083: MOVLW 020084: MOVWF 340085: CALL 033.................... lcd_send_nibble(3); // rezim 8 bitu0086: MOVLW 030087: MOVWF 3A0088: CALL 048.................... }0089: INCF 2B,F008A: GOTO 07F........................................ delay_us(40); // cas na zpracovani008B: MOVLW 0D008C: MOVWF 77008D: DECFSZ 77,F008E: GOTO 08D.................... lcd_send_nibble(2); // nastav rezim 4 bitu (plati od nasledujiciho prenosu)008F: MOVLW 020090: MOVWF 3A0091: CALL 048.................... delay_us(40); // cas na zpracovani0092: MOVLW 0D0093: MOVWF 770094: DECFSZ 77,F0095: GOTO 094........................................ for (i=0;i<3;i++) // proved inicializaci (nastaveni modu, smazani apod)0096: CLRF 2B0097: MOVF 2B,W0098: SUBLW 020099: BTFSS 03.0009A: GOTO 0A7.................... {.................... lcd_send_byte(0,LCD_INIT_STRING[i]);009B: MOVF 2B,W009C: CALL 004009D: MOVWF 2C009E: CLRF 38009F: MOVF 2C,W00A0: MOVWF 3900A1: CALL 059.................... delay_ms(2);00A2: MOVLW 0200A3: MOVWF 3400A4: CALL 033.................... }00A5: INCF 2B,F00A6: GOTO 097.................... }00A7: BCF 0A.300A8: GOTO 324 (RETURN)............................................................ // Proved presun kurzoru.................... //.................... // Pozice 1.1 je domu.................... //.................... void lcd_gotoxy( BYTE x, BYTE y).................... {........................................ BYTE Adr;........................................ Adr=x-1;*0108: MOVLW 010109: SUBWF 34,W010A: MOVWF 36.................... if(y==2)010B: MOVF 35,W010C: SUBLW 02010D: BTFSS 03.2010E: GOTO 111.................... Adr+=LCD_LINE_2;010F: MOVLW 400110: ADDWF 36,F........................................ lcd_send_byte(0,0x80|Adr);0111: MOVF 36,W0112: IORLW 800113: MOVWF 370114: CLRF 380115: MOVF 37,W0116: MOVWF 390117: CALL 059.................... }0118: RETLW 00............................................................ // Zapis znaku na displej, zpracovani ridicich znaku.................... //.................... void lcd_putc( char c).................... {........................................ switch (c).................... {0119: MOVF 33,W011A: XORLW 0C011B: BTFSC 03.2011C: GOTO 127011D: XORLW 06011E: BTFSC 03.2011F: GOTO 12F0120: XORLW 070121: BTFSC 03.20122: GOTO 1350123: XORLW 050124: BTFSC 03.20125: GOTO 13A0126: GOTO 13F.................... case '\f' : lcd_send_byte(0,1); // smaz displej0127: CLRF 380128: MOVLW 010129: MOVWF 39012A: CALL 059.................... delay_ms(2);012B: MOVLW 02012C: MOVWF 34012D: CALL 033.................... break;012E: GOTO 14B.................... case '\n' : lcd_gotoxy(1,2); break; // presun se na 1. znak 2. radky012F: MOVLW 010130: MOVWF 340131: MOVLW 020132: MOVWF 350133: CALL 1080134: GOTO 14B.................... case '\r' : lcd_gotoxy(1,1); break; // presun home0135: MOVLW 010136: MOVWF 340137: MOVWF 350138: CALL 1080139: GOTO 14B.................... case '\b' : lcd_send_byte(0,0x10); break; // posun kurzor o 1 zpet013A: CLRF 38013B: MOVLW 10013C: MOVWF 39013D: CALL 059013E: GOTO 14B.................... default : if (c<0x20) c&=0x7; // preklopeni definovatelnych znaku na rozsah 0 az 0x1F013F: MOVF 33,W0140: SUBLW 1F0141: BTFSS 03.00142: GOTO 1450143: MOVLW 070144: ANDWF 33,F.................... lcd_send_byte(1,c); break; // zapis znak0145: MOVLW 010146: MOVWF 380147: MOVF 33,W0148: MOVWF 390149: CALL 059014A: GOTO 14B.................... }.................... }014B: 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);.................... //}............................................................ #define TRIGGER_PIN PIN_B4........................................ #DEFINE DATA PIN_B5 // musi byt definovan kanal DATA.................... #DEFINE CLK PIN_B6 // a taky hodiny CLK.................... #include "C:\library\kaklik\CCS\ps2.c".................... ////////////////////////////////////////////////////////////////////////////////.................... // Modul pro komunikaci s PS/2 mysi.................... //.................... // #DEFINE DATA PIN_B0 // musi byt definovan kanal DATA.................... // #DEFINE CLK PIN_B1 // a taky hodiny CLK.................... //.................... ////////////////////////////////////////////////////////////////////////////////........................................ #define PRVNI 1000 // nastaveni prodlevy pred zacatkem vysilani bajtu.................... #define DRUHY 2.................... #define TRETI DRUHY........................................ // prikazy.................... #define RESET 0xFF.................... #define ENABLE_DATA_REPORTING 0xF4.................... #define READ_DATA 0xEB.................... #define STATUS_REQUEST 0xE9.................... #define SET_REMOTE_MODE 0xF0.................... #define SET_STREAM_MODE 0xEA.................... #define GET_DEVICE_ID 0xF2............................................................ void send(byte command).................... {.................... unsigned int8 n;.................... unsigned int8 parity=0;*00A9: CLRF 2D........................................ //Request-to-send.................... output_float(DATA);00AA: BSF 03.500AB: BSF 06.5.................... output_low(CLK);00AC: BCF 06.600AD: BCF 03.500AE: BCF 06.6.................... delay_us(100);00AF: MOVLW 2100B0: MOVWF 7700B1: DECFSZ 77,F00B2: GOTO 0B1.................... // start bit.................... output_low(DATA);00B3: BSF 03.500B4: BCF 06.500B5: BCF 03.500B6: BCF 06.5.................... while(input(CLK)); // ceka se na hodiny od mysi (mys zataha za hodiny)00B7: BSF 03.500B8: BSF 06.600B9: BCF 03.500BA: BTFSC 06.600BB: GOTO 0B7.................... // 8 bitu.................... for(n=0; n<8; n++)00BC: CLRF 2C00BD: MOVF 2C,W00BE: SUBLW 0700BF: BTFSS 03.000C0: GOTO 0DA.................... {.................... while(input(CLK));00C1: BSF 03.500C2: BSF 06.600C3: BCF 03.500C4: BTFSC 06.600C5: GOTO 0C1.................... output_bit(DATA, command & 1);00C6: BTFSC 2B.000C7: GOTO 0CA00C8: BCF 06.500C9: GOTO 0CB00CA: BSF 06.500CB: BSF 03.500CC: BCF 06.5.................... parity += command & 1;00CD: BCF 03.500CE: MOVF 2B,W00CF: ANDLW 0100D0: ADDWF 2D,F.................... command >>= 1;00D1: BCF 03.000D2: RRF 2B,F.................... while(!input(CLK));00D3: BSF 03.500D4: BSF 06.600D5: BCF 03.500D6: BTFSS 06.600D7: GOTO 0D3.................... };00D8: INCF 2C,F00D9: GOTO 0BD.................... // parita.................... while(input(CLK));00DA: BSF 03.500DB: BSF 06.600DC: BCF 03.500DD: BTFSC 06.600DE: GOTO 0DA.................... output_bit(DATA, ~parity & 1);00DF: MOVF 2D,W00E0: XORLW FF00E1: ANDLW 0100E2: XORLW 0000E3: BTFSS 03.200E4: GOTO 0E700E5: BCF 06.500E6: GOTO 0E800E7: BSF 06.500E8: BSF 03.500E9: BCF 06.5.................... while(!input(CLK));00EA: BSF 06.600EB: BCF 03.500EC: BTFSC 06.600ED: GOTO 0F000EE: BSF 03.500EF: GOTO 0EA........................................ // stop bit.................... output_float(DATA);00F0: BSF 03.500F1: BSF 06.5.................... while(input(DATA)); // mys musi sama jeste jednou zatahat za hodiny a data00F2: BSF 06.500F3: BCF 03.500F4: BTFSS 06.500F5: GOTO 0F800F6: BSF 03.500F7: GOTO 0F2.................... while(input(CLK));00F8: BSF 03.500F9: BSF 06.600FA: BCF 03.500FB: BTFSC 06.600FC: GOTO 0F8........................................ // ceka se az nastane klidovy stav.................... while(!input(CLK) || !input(DATA));00FD: BSF 03.500FE: BSF 06.600FF: BCF 03.50100: BTFSS 06.60101: GOTO 0FD0102: BSF 03.50103: BSF 06.50104: BCF 03.50105: BTFSS 06.50106: GOTO 0FD.................... }0107: RETLW 00............................................................ int8 read_byte() // dodelat paritu.................... {.................... unsigned int8 bajt;.................... unsigned int8 i;.................... int1 parity=0;*023A: BCF 35.0........................................ // cekani na startbit.................... while(input(CLK) || input(DATA)); // oba signaly musi byt v 0023B: BSF 03.5023C: BSF 06.6023D: BCF 03.5023E: BTFSC 06.6023F: GOTO 23B0240: BSF 03.50241: BSF 06.50242: BCF 03.50243: BTFSC 06.50244: GOTO 23B.................... while(!input(CLK)); // ceka se na nabeznou hranu hodin0245: BSF 03.50246: BSF 06.60247: BCF 03.50248: BTFSS 06.60249: GOTO 245........................................ bajt = 0;024A: CLRF 33.................... for(i=0; i<8; i++)024B: CLRF 34024C: MOVF 34,W024D: SUBLW 07024E: BTFSS 03.0024F: GOTO 27C.................... {.................... while(input(CLK)); // ceka na nulu hodin0250: BSF 03.50251: BSF 06.60252: BCF 03.50253: BTFSC 06.60254: GOTO 250........................................ bajt >>= 1;0255: BCF 03.00256: RRF 33,F.................... bajt |= input(DATA) << 7; // zapise se stav do promene0257: BSF 03.50258: BSF 06.50259: MOVLW 00025A: BCF 03.5025B: BTFSC 06.5025C: MOVLW 01025D: MOVWF 77025E: RRF 77,W025F: CLRF 770260: BTFSC 03.00261: BSF 77.70262: MOVF 77,W0263: IORWF 33,F.................... parity^=input(DATA);0264: MOVLW 000265: BTFSC 35.00266: MOVLW 010267: MOVWF 360268: BSF 03.50269: BSF 06.5026A: MOVLW 00026B: BCF 03.5026C: BTFSC 06.5026D: MOVLW 01026E: XORWF 36,W026F: MOVWF 780270: BTFSC 78.00271: GOTO 2740272: BCF 35.00273: GOTO 2750274: BSF 35.0........................................ while(!input(CLK)); // ceka na jednicku hodin0275: BSF 03.50276: BSF 06.60277: BCF 03.50278: BTFSS 06.60279: GOTO 275.................... };027A: INCF 34,F027B: GOTO 24C.................... while(input(CLK));027C: BSF 03.5027D: BSF 06.6027E: BCF 03.5027F: BTFSC 06.60280: GOTO 27C.................... parity^=input(DATA);0281: MOVLW 000282: BTFSC 35.00283: MOVLW 010284: MOVWF 360285: BSF 03.50286: BSF 06.50287: MOVLW 000288: BCF 03.50289: BTFSC 06.5028A: MOVLW 01028B: XORWF 36,W028C: MOVWF 78028D: BTFSC 78.0028E: GOTO 291028F: BCF 35.00290: GOTO 2920291: BSF 35.0.................... // if (parity).................... while(!input(CLK)); // ceka na jednicku hodin0292: BSF 03.50293: BSF 06.60294: BCF 03.50295: BTFSS 06.60296: GOTO 292.................... while(input(CLK));0297: BSF 03.50298: BSF 06.60299: BCF 03.5029A: BTFSC 06.6029B: GOTO 297.................... while(!input(CLK)); // ceka na jednicku hodin029C: BSF 03.5029D: BSF 06.6029E: BCF 03.5029F: BTFSS 06.602A0: GOTO 29C.................... return (bajt);02A1: MOVF 33,W02A2: MOVWF 78.................... }02A3: RETLW 00............................................................ void read_standard_byte(signed int8 *x,*y,unsigned int8 *tl1,*tl2,*tl3).................... {.................... unsigned int8 st,nd,rd;........................................ st = read_byte();02A4: CALL 23A02A5: MOVF 78,W02A6: MOVWF 30.................... nd = read_byte();02A7: CALL 23A02A8: MOVF 78,W02A9: MOVWF 31.................... rd = read_byte();02AA: CALL 23A02AB: MOVF 78,W02AC: MOVWF 32........................................ if ((st & 0b1000) == 0b1000) *x=-nd; else *x=nd;02AD: MOVF 30,W02AE: ANDLW 0802AF: SUBLW 0802B0: BTFSS 03.202B1: GOTO 2B802B2: MOVF 2B,W02B3: MOVWF 0402B4: MOVF 31,W02B5: SUBLW 0002B6: MOVWF 0002B7: GOTO 2BC02B8: MOVF 2B,W02B9: MOVWF 0402BA: MOVF 31,W02BB: MOVWF 00.................... if ((st & 0b10000) == 0b10000) *y=-rd; else *y=rd;02BC: MOVF 30,W02BD: ANDLW 1002BE: SUBLW 1002BF: BTFSS 03.202C0: GOTO 2C702C1: MOVF 2C,W02C2: MOVWF 0402C3: MOVF 32,W02C4: SUBLW 0002C5: MOVWF 0002C6: GOTO 2CB02C7: MOVF 2C,W02C8: MOVWF 0402C9: MOVF 32,W02CA: MOVWF 00........................................ *tl1=st & 1;02CB: MOVF 2D,W02CC: MOVWF 0402CD: MOVF 30,W02CE: ANDLW 0102CF: MOVWF 00.................... *tl2=(st >> 1) & 1;02D0: MOVF 2E,W02D1: MOVWF 0402D2: BCF 03.002D3: RRF 30,W02D4: ANDLW 0102D5: MOVWF 00.................... *tl3=(st >> 2) & 1;02D6: MOVF 2F,W02D7: MOVWF 0402D8: RRF 30,W02D9: MOVWF 7702DA: RRF 77,F02DB: MOVLW 3F02DC: ANDWF 77,F02DD: MOVF 77,W02DE: ANDLW 0102DF: MOVWF 00.................... }02E0: BCF 0A.302E1: GOTO 3A5 (RETURN).................... void ps2break().................... {.................... output_low(CLK);.................... }.................... void ps2enable().................... {.................... output_float(CLK);.................... }.................................................................................................... void trigger().................... {.................... output_high(TRIGGER_PIN);.................... delay_us(50);.................... output_low(TRIGGER_PIN);.................... }........................................ void main().................... {02E2: CLRF 0402E3: MOVLW 1F02E4: ANDWF 03,F02E5: BSF 03.502E6: BCF 1F.402E7: BCF 1F.502E8: MOVF 1B,W02E9: ANDLW 8002EA: MOVWF 1B02EB: MOVLW 0702EC: MOVWF 1C02ED: MOVF 1C,W02EE: BCF 03.502EF: BCF 0D.602F0: MOVLW 6002F1: BSF 03.502F2: MOVWF 0F.................... signed int16 x=0,y=0;02F3: BCF 03.502F4: CLRF 2102F5: CLRF 2202F6: CLRF 2302F7: CLRF 24.................... signed int8 hodnota,dx,dy;.................... unsigned int8 tl1,tl2,tl3;........................................ setup_adc_ports(NO_ANALOGS|VSS_VDD);02F8: BSF 03.502F9: BCF 1F.402FA: BCF 1F.502FB: MOVF 1B,W02FC: ANDLW 8002FD: MOVWF 1B.................... setup_adc(ADC_OFF);02FE: BCF 03.502FF: BCF 1F.0.................... setup_spi(FALSE);0300: BCF 14.50301: BSF 03.50302: BCF 06.20303: BSF 06.10304: BCF 06.40305: MOVLW 000306: BCF 03.50307: MOVWF 140308: BSF 03.50309: MOVWF 14.................... setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);030A: MOVF 01,W030B: ANDLW C7030C: IORLW 08030D: MOVWF 01.................... setup_timer_1(T1_DISABLED);030E: BCF 03.5030F: CLRF 10.................... setup_timer_2(T2_DISABLED,0,1);0310: MOVLW 000311: MOVWF 780312: MOVWF 120313: MOVLW 000314: BSF 03.50315: MOVWF 12.................... setup_comparator(NC_NC_NC_NC);0316: MOVLW 070317: MOVWF 1C0318: MOVF 05,W0319: MOVLW 03031A: MOVWF 77031B: DECFSZ 77,F031C: GOTO 31B031D: MOVF 1C,W031E: BCF 03.5031F: BCF 0D.6.................... setup_vref(FALSE);0320: BSF 03.50321: CLRF 1D........................................ lcd_init();0322: BCF 03.50323: GOTO 06F.................... Delay_ms(500);0324: MOVLW 020325: MOVWF 2B0326: MOVLW FA0327: MOVWF 340328: CALL 0330329: DECFSZ 2B,F032A: GOTO 326........................................ send(SET_REMOTE_MODE);032B: MOVLW F0032C: MOVWF 2B032D: CALL 0A9........................................ while (true).................... {.................... LCD_gotoxy(1,1);032E: MOVLW 01032F: MOVWF 340330: MOVWF 350331: CALL 108.................... printf(lcd_putc,"%X X=%ld Y=%ld TL1=%U TL2=%U TL3=%U",hodnota, x,y,tl1,tl2,tl3);0332: MOVF 25,W0333: MOVWF 2B0334: MOVLW 370335: MOVWF 2C0336: GOTO 14C0337: MOVLW 200338: MOVWF 330339: CALL 119033A: MOVLW 58033B: MOVWF 33033C: CALL 119033D: MOVLW 3D033E: MOVWF 33033F: CALL 1190340: MOVLW 100341: MOVWF 040342: MOVF 22,W0343: MOVWF 2C0344: MOVF 21,W0345: MOVWF 2B0346: CALL 16E0347: MOVLW 200348: MOVWF 330349: CALL 119034A: MOVLW 59034B: MOVWF 33034C: CALL 119034D: MOVLW 3D034E: MOVWF 33034F: CALL 1190350: MOVLW 100351: MOVWF 040352: MOVF 24,W0353: MOVWF 2C0354: MOVF 23,W0355: MOVWF 2B0356: CALL 16E0357: MOVLW 0E0358: MOVWF 2B0359: MOVF 2B,W035A: CALL 00C035B: INCF 2B,F035C: MOVWF 77035D: MOVWF 33035E: CALL 119035F: MOVLW 130360: SUBWF 2B,W0361: BTFSS 03.20362: GOTO 3590363: MOVF 28,W0364: MOVWF 2F0365: MOVLW 180366: MOVWF 300367: CALL 1ED0368: MOVLW 030369: MOVWF 2C036A: MOVLW 20036B: MOVWF 33036C: CALL 119036D: DECFSZ 2C,F036E: GOTO 36A036F: MOVLW 150370: MOVWF 2D0371: MOVF 2D,W0372: CALL 00C0373: INCF 2D,F0374: MOVWF 770375: MOVWF 330376: CALL 1190377: MOVLW 190378: SUBWF 2D,W0379: BTFSS 03.2037A: GOTO 371037B: MOVF 29,W037C: MOVWF 2F037D: MOVLW 18037E: MOVWF 30037F: CALL 1ED0380: MOVLW 1B0381: MOVWF 2E0382: MOVF 2E,W0383: CALL 00C0384: INCF 2E,F0385: MOVWF 770386: MOVWF 330387: CALL 1190388: MOVLW 200389: SUBWF 2E,W038A: BTFSS 03.2038B: GOTO 382038C: MOVF 2A,W038D: MOVWF 2F038E: MOVLW 18038F: MOVWF 300390: CALL 1ED.................... delay_ms(20);0391: MOVLW 140392: MOVWF 340393: CALL 033.................... send(READ_DATA);0394: MOVLW EB0395: MOVWF 2B0396: CALL 0A9.................... hodnota=read_byte();0397: CALL 23A0398: MOVF 78,W0399: MOVWF 25.................... read_standard_byte(&dx,&dy,&tl1,&tl2,&tl3);039A: MOVLW 26039B: MOVWF 2B039C: MOVLW 27039D: MOVWF 2C039E: MOVLW 28039F: MOVWF 2D03A0: MOVLW 2903A1: MOVWF 2E03A2: MOVLW 2A03A3: MOVWF 2F03A4: GOTO 2A4.................... x+=dx;03A5: CLRF 7A03A6: MOVF 26,W03A7: BTFSC 26.703A8: DECF 7A,F03A9: ADDWF 21,F03AA: BTFSC 03.003AB: INCF 22,F03AC: MOVF 7A,W03AD: ADDWF 22,F.................... y+=dy;03AE: CLRF 7A03AF: MOVF 27,W03B0: BTFSC 27.703B1: DECF 7A,F03B2: ADDWF 23,F03B3: BTFSC 03.003B4: INCF 24,F03B5: MOVF 7A,W03B6: ADDWF 24,F.................... }03B7: GOTO 32E.................... }....................03B8: SLEEPConfiguration Fuses:Word 1: 3F78 NOWDT NOPUT MCLR BROWNOUT NOLVP NOCPD NOWRT NODEBUG CCPB0 NOPROTECT INTRC_IOWord 2: 3FFF FCMEN IESO