WebSVN – svnkaklik – Blame – /schemata/prenos/letadlo/SW/vysilac/posledni_funkcni_verze/main.LST

Rev	Author	Line No.	Line
6	kaklik	1	`CCS PCW C Compiler, Version 3.110, 15448`
		2
		3	`Filename: d:\@kaklik\programy\pic_c\prenos\letadlo\vysilac\main.LST`
		4
		5	`ROM used: 1542 (38%)`
		6	`Largest free fragment is 2048`
		7	`RAM used: 22 (11%) at main() level`
		8	`40 (21%) worst case`
		9	`Stack: 5 locations`
		10
		11	`*`
		12	`0000: MOVLW 00`
		13	`0001: MOVWF 0A`
		14	`0002: GOTO 5C1`
		15	`0003: NOP`
		16	`.................... // Vysilac`
		17	`....................`
		18	`.................... #include "main.h"`
		19	`.................... #include <16F873.h>`
		20	`.................... //////// Standard Header file for the PIC16F873 device ////////////////`
		21	`.................... #device PIC16F873`
		22	`.................... #list`
		23	`....................`
		24	`.................... #use delay(clock=4000000)`
		25	`*`
		26	`0077: MOVLW 3F`
		27	`0078: MOVWF 04`
		28	`0079: MOVF 00,W`
		29	`007A: BTFSC 03.2`
		30	`007B: GOTO 08B`
		31	`007C: MOVLW 01`
		32	`007D: MOVWF 21`
		33	`007E: CLRF 20`
		34	`007F: DECFSZ 20,F`
		35	`0080: GOTO 07F`
		36	`0081: DECFSZ 21,F`
		37	`0082: GOTO 07E`
		38	`0083: MOVLW 4A`
		39	`0084: MOVWF 20`
		40	`0085: DECFSZ 20,F`
		41	`0086: GOTO 085`
		42	`0087: NOP`
		43	`0088: NOP`
		44	`0089: DECFSZ 00,F`
		45	`008A: GOTO 07C`
		46	`008B: RETLW 00`
		47	`*`
		48	`0321: MOVLW 3A`
		49	`0322: MOVWF 04`
		50	`0323: MOVLW FC`
		51	`0324: ANDWF 00,F`
		52	`0325: RRF 00,F`
		53	`0326: RRF 00,F`
		54	`0327: MOVF 00,W`
		55	`0328: BTFSC 03.2`
		56	`0329: GOTO 32E`
		57	`032A: GOTO 32C`
		58	`032B: NOP`
		59	`032C: DECFSZ 00,F`
		60	`032D: GOTO 32B`
		61	`032E: BCF 0A.3`
		62	`032F: GOTO 545 (RETURN)`
		63	`.................... #fuses XT,PUT,NOWDT`
		64	`....................`
		65	`....................`
		66	`.................... #include "..\common.h"`
		67	`.................... #DEFINE OSA_X 1 // adresy os`
		68	`.................... #DEFINE OSA_Y 2`
		69	`.................... #DEFINE OSA_Z 3`
		70	`.................... #DEFINE OSA_W 4`
		71	`.................... #DEFINE TLs 5`
		72	`.................... #DEFINE Trim 6 // ovladani prijimace`
		73	`....................`
		74	`.................... #DEFINE IMPULS 250 // sirka impulsu`
		75	`.................... #DEFINE SYNC 15 // delka uvodniho ticha v IMPULS/4`
		76	`....................`
		77	`.................... //Displej`
		78	`.................... #DEFINE LCD_RS PIN_B1 // rizeni registru LCD displeje`
		79	`.................... #DEFINE LCD_E PIN_B2 // enable LCD displeje`
		80	`.................... #DEFINE LCD_DATA_LSB PIN_B4 // pripojeni LSB bitu datoveho portu LCD displeje (celkem 4 bity vzestupne za sebou)`
		81	`.................... #INCLUDE "MYLCD.C"`
		82	`.................... // LCD modul pro ovladani dvouradkoveho LCD modulu se standardnim Hitachi radicem`
		83	`.................... // (c)miho 2002`
		84	`.................... //`
		85	`.................... // Historie:`
		86	`.................... //`
		87	`.................... // 0.0 Uvodni verze se snadnou definici portu LCD displeje`
		88	`.................... //`
		89	`.................... //`
		90	`.................... // Funkce:`
		91	`.................... //`
		92	`.................... // lcd_init() inicializuje LCD displej a porty, nutno volat jako prvni`
		93	`.................... //`
		94	`.................... // lcd_putc(c) zapis snaku do lcd displeje, zpracovava nasledujici ridici znaky`
		95	`.................... // \f = \x0C - nova stranka - smazani displeje`
		96	`.................... // \n = \x0A - odradkovani (prechod na druhou radku)`
		97	`.................... // \b = \x08 - backspace - posunuti kurzoru o 1 pozici zpet`
		98	`.................... // \r = \x0D - goto home to position 1,1`
		99	`.................... // \0 .. \7 - definovatelne znaky v pozicich 0 az 7 v CGRAM`
		100	`.................... // \20 .. \27 - alternativne zapsane znaky (oktalove) v pozicich 0 az 7 CGRAM`
		101	`.................... // Pozor na to, ze funkce printf konci tisk pokud narazi na \0 (konec retezce)`
		102	`.................... //`
		103	`.................... // lcd_gotoxy(x,y) presune kurzor na uvedenou adresu`
		104	`.................... // nekontroluje parametry`
		105	`.................... //`
		106	`.................... // lcd_cursor_on zapne kurzor`
		107	`.................... // lcd_cursor_off vypne kurzor`
		108	`.................... //`
		109	`.................... // lcd_define_char(Index, Def) Makro, ktere definuje znaky od pozice Index obsahem definicniho`
		110	`.................... // retezce Def. Kazdych 8 znaku retezce Def definuje dalsi znak v CGRAM.`
		111	`.................... // Kapacita CGRAM je celkem 8 znaku s indexem 0 az 7.`
		112	`.................... // Na konci se provede lcd_gotoxy(1,1).`
		113	`.................... // Na konci teto knihovny je priklad pouziti definovanych znaku`
		114	`.................... //`
		115	`.................... // Definice portu:`
		116	`.................... //`
		117	`.................... // #DEFINE LCD_RS PIN_B2 // rizeni registru LCD displeje`
		118	`.................... // #DEFINE LCD_E PIN_B1 // enable LCD displeje`
		119	`.................... // #DEFINE LCD_DATA_LSB PIN_C2 // pripojeni LSB bitu datoveho portu LCD displeje (celkem 4 bity vzestupne za sebou)`
		120	`....................`
		121	`....................`
		122	`....................`
		123	`....................`
		124	`.................... // Privatni sekce, cist jen v pripade, ze neco nefunguje`
		125	`....................`
		126	`....................`
		127	`....................`
		128	`....................`
		129	`.................... // Generovane defince portu pro ucely teto knihovny aby kod generoval spravne IO operace a soucasne`
		130	`.................... // bylo mozne jednoduse deklarovat pripojene piny LCD displeje pri pouziti teto knihovny. Problem spociva`
		131	`.................... // v tom, ze se musi spravne ridit smery portu a soucasne datovy port zabira jen 4 bity ze zadaneho portu`
		132	`.................... //`
		133	`.................... #DEFINE LCD_SHIFT (LCD_DATA_LSB&7) // pocet bitu posuvu dataoveho kanalu v datovem portu`
		134	`.................... #DEFINE LCD_PORT (LCD_DATA_LSB>>3) // adresa LCD datoveho portu`
		135	`.................... #DEFINE LCD_TRIS (LCD_PORT+0x80) // adresa prislusneho TRIS registru`
		136	`.................... #DEFINE LCD_MASK (0xF<<LCD_SHIFT) // maska platnych bitu`
		137	`.................... //`
		138	`.................... #IF LCD_SHIFT>4 // kontrola mezi`
		139	`.................... #ERROR LCD data port LSB bit not in range 0..4`
		140	`.................... #ENDIF`
		141	`....................`
		142	`....................`
		143	`.................... // Definice konstant pro LCD display`
		144	`.................... //`
		145	`.................... #define LCD_CURSOR_ON_ 0x0E // kurzor jako blikajici radka pod znakem`
		146	`.................... #define LCD_CURSOR_OFF_ 0x0C // zadny kurzor`
		147	`.................... #define LCD_LINE_2 0x40 // adresa 1. znaku 2. radky`
		148	`....................`
		149	`....................`
		150	`.................... // Definice rezimu LCD displeje`
		151	`.................... //`
		152	`.................... BYTE const LCD_INIT_STRING[4] =`
		153	`.................... {`
		154	`.................... 0x28, // intrfejs 4 bity, 2 radky, font 5x7`
		155	`.................... LCD_CURSOR_OFF_, // display on, kurzor off,`
		156	`.................... 0x01, // clear displeje`
		157	`.................... 0x06 // inkrement pozice kurzoru (posun kurzoru doprava)`
		158	`.................... };`
		159	`*`
		160	`0004: BCF 0A.0`
		161	`0005: BCF 0A.1`
		162	`0006: BCF 0A.2`
		163	`0007: ADDWF 02,F`
		164	`0008: RETLW 28`
		165	`0009: RETLW 0C`
		166	`000A: RETLW 01`
		167	`000B: RETLW 06`
		168	`....................`
		169	`....................`
		170	`.................... // Odesle nibble do displeje (posle data a klikne signalem e)`
		171	`.................... //`
		172	`.................... void lcd_send_nibble( BYTE n )`
		173	`.................... {`
		174	`.................... LCD_PORT = (LCD_PORT & ~LCD_MASK) \| ((n << LCD_SHIFT) & LCD_MASK); // nastav datove bity portu a ostatni zachovej`
		175	`*`
		176	`008C: MOVF 06,W`
		177	`008D: ANDLW 0F`
		178	`008E: MOVWF 46`
		179	`008F: SWAPF 45,W`
		180	`0090: MOVWF 20`
		181	`0091: MOVLW F0`
		182	`0092: ANDWF 20,F`
		183	`0093: MOVF 20,W`
		184	`0094: ANDLW F0`
		185	`0095: IORWF 46,W`
		186	`0096: MOVWF 06`
		187	`.................... output_bit(LCD_E,1); // vzestupna hrana`
		188	`0097: BSF 06.2`
		189	`0098: BSF 03.5`
		190	`0099: BCF 06.2`
		191	`.................... delay_us(1); // pockej alespon 450ns od e nebo alespon 195ns od dat`
		192	`009A: NOP`
		193	`.................... output_bit(LCD_E,0); // sestupna hrana (minimalni perioda e je 1us)`
		194	`009B: BCF 03.5`
		195	`009C: BCF 06.2`
		196	`009D: BSF 03.5`
		197	`009E: BCF 06.2`
		198	`009F: BCF 03.5`
		199	`00A0: RETLW 00`
		200	`.................... }`
		201	`....................`
		202	`....................`
		203	`.................... // Odesle bajt do registru LCD`
		204	`.................... //`
		205	`.................... // Pokud je Adr=0 .. instrukcni registr`
		206	`.................... // Pokud je Adr=1 .. datovy registr`
		207	`.................... //`
		208	`.................... void lcd_send_byte( BOOLEAN Adr, BYTE n )`
		209	`.................... {`
		210	`.................... output_bit(LCD_RS,Adr); // vyber registr`
		211	`00A1: MOVF 43,F`
		212	`00A2: BTFSS 03.2`
		213	`00A3: GOTO 0A6`
		214	`00A4: BCF 06.1`
		215	`00A5: GOTO 0A7`
		216	`00A6: BSF 06.1`
		217	`00A7: BSF 03.5`
		218	`00A8: BCF 06.1`
		219	`.................... swap(n);`
		220	`00A9: BCF 03.5`
		221	`00AA: SWAPF 44,F`
		222	`.................... lcd_send_nibble(n); // posli horni pulku bajtu`
		223	`00AB: MOVF 44,W`
		224	`00AC: MOVWF 45`
		225	`00AD: CALL 08C`
		226	`.................... swap(n);`
		227	`00AE: SWAPF 44,F`
		228	`.................... lcd_send_nibble(n); // posli spodni pulku bajtu`
		229	`00AF: MOVF 44,W`
		230	`00B0: MOVWF 45`
		231	`00B1: CALL 08C`
		232	`.................... delay_us(40); // minimalni doba na provedeni prikazu`
		233	`00B2: MOVLW 0D`
		234	`00B3: MOVWF 20`
		235	`00B4: DECFSZ 20,F`
		236	`00B5: GOTO 0B4`
		237	`00B6: RETLW 00`
		238	`.................... }`
		239	`....................`
		240	`....................`
		241	`.................... // Provede inicializaci LCD displeje, smaze obsah a nastavi mod displeje`
		242	`.................... //`
		243	`.................... // Tato procedura se musi volat pred pouzitim ostatnich lcd_ procedur`
		244	`.................... //`
		245	`.................... void lcd_init()`
		246	`.................... {`
		247	`....................`
		248	`.................... int i; // pocitadlo cyklu`
		249	`....................`
		250	`.................... delay_ms(20); // spozdeni pro provedeni startu displeje po zapnuti napajeni`
		251	`00B7: MOVLW 14`
		252	`00B8: MOVWF 3F`
		253	`00B9: CALL 077`
		254	`....................`
		255	`.................... LCD_TRIS = LCD_TRIS & ~LCD_MASK; // nuluj odpovidajici bity tris registru datoveho portu LCD`
		256	`00BA: MOVLW 0F`
		257	`00BB: BSF 03.5`
		258	`00BC: ANDWF 06,F`
		259	`....................`
		260	`.................... output_bit(LCD_RS,0); // nastav jako vystup a nastav klidovy stav`
		261	`00BD: BCF 03.5`
		262	`00BE: BCF 06.1`
		263	`00BF: BSF 03.5`
		264	`00C0: BCF 06.1`
		265	`.................... output_bit(LCD_E,0); // nastav jako vystup a nastav klidovy stav`
		266	`00C1: BCF 03.5`
		267	`00C2: BCF 06.2`
		268	`00C3: BSF 03.5`
		269	`00C4: BCF 06.2`
		270	`....................`
		271	`.................... for (i=0; i<3; i++) // nastav lcd do rezimu 8 bitu sbernice`
		272	`00C5: BCF 03.5`
		273	`00C6: CLRF 36`
		274	`00C7: MOVF 36,W`
		275	`00C8: SUBLW 02`
		276	`00C9: BTFSS 03.0`
		277	`00CA: GOTO 0D3`
		278	`.................... {`
		279	`.................... delay_ms(2); // muze byt rozdelany prenos dat (2x 4 bity) nebo pomaly povel`
		280	`00CB: MOVLW 02`
		281	`00CC: MOVWF 3F`
		282	`00CD: CALL 077`
		283	`.................... lcd_send_nibble(3); // rezim 8 bitu`
		284	`00CE: MOVLW 03`
		285	`00CF: MOVWF 45`
		286	`00D0: CALL 08C`
		287	`.................... }`
		288	`00D1: INCF 36,F`
		289	`00D2: GOTO 0C7`
		290	`....................`
		291	`.................... delay_us(40); // cas na zpracovani`
		292	`00D3: MOVLW 0D`
		293	`00D4: MOVWF 20`
		294	`00D5: DECFSZ 20,F`
		295	`00D6: GOTO 0D5`
		296	`.................... lcd_send_nibble(2); // nastav rezim 4 bitu (plati od nasledujiciho prenosu)`
		297	`00D7: MOVLW 02`
		298	`00D8: MOVWF 45`
		299	`00D9: CALL 08C`
		300	`.................... delay_us(40); // cas na zpracovani`
		301	`00DA: MOVLW 0D`
		302	`00DB: MOVWF 20`
		303	`00DC: DECFSZ 20,F`
		304	`00DD: GOTO 0DC`
		305	`....................`
		306	`.................... for (i=0;i<3;i++) // proved inicializaci (nastaveni modu, smazani apod)`
		307	`00DE: CLRF 36`
		308	`00DF: MOVF 36,W`
		309	`00E0: SUBLW 02`
		310	`00E1: BTFSS 03.0`
		311	`00E2: GOTO 0EF`
		312	`.................... {`
		313	`.................... lcd_send_byte(0,LCD_INIT_STRING[i]);`
		314	`00E3: MOVF 36,W`
		315	`00E4: CALL 004`
		316	`00E5: MOVWF 37`
		317	`00E6: CLRF 43`
		318	`00E7: MOVF 37,W`
		319	`00E8: MOVWF 44`
		320	`00E9: CALL 0A1`
		321	`.................... delay_ms(2);`
		322	`00EA: MOVLW 02`
		323	`00EB: MOVWF 3F`
		324	`00EC: CALL 077`
		325	`.................... }`
		326	`00ED: INCF 36,F`
		327	`00EE: GOTO 0DF`
		328	`00EF: BCF 0A.3`
		329	`00F0: GOTO 602 (RETURN)`
		330	`.................... }`
		331	`....................`
		332	`....................`
		333	`.................... // Proved presun kurzoru`
		334	`.................... //`
		335	`.................... // Pozice 1.1 je domu`
		336	`.................... //`
		337	`.................... void lcd_gotoxy( BYTE x, BYTE y)`
		338	`.................... {`
		339	`....................`
		340	`.................... BYTE Adr;`
		341	`....................`
		342	`.................... Adr=x-1;`
		343	`*`
		344	`0227: MOVLW 01`
		345	`0228: SUBWF 3F,W`
		346	`0229: MOVWF 41`
		347	`.................... if(y==2)`
		348	`022A: MOVF 40,W`
		349	`022B: SUBLW 02`
		350	`022C: BTFSS 03.2`
		351	`022D: GOTO 230`
		352	`.................... Adr+=LCD_LINE_2;`
		353	`022E: MOVLW 40`
		354	`022F: ADDWF 41,F`
		355	`....................`
		356	`.................... lcd_send_byte(0,0x80\|Adr);`
		357	`0230: MOVF 41,W`
		358	`0231: IORLW 80`
		359	`0232: MOVWF 42`
		360	`0233: CLRF 43`
		361	`0234: MOVF 42,W`
		362	`0235: MOVWF 44`
		363	`0236: CALL 0A1`
		364	`0237: RETLW 00`
		365	`.................... }`
		366	`....................`
		367	`....................`
		368	`.................... // Zapis znaku na displej, zpracovani ridicich znaku`
		369	`.................... //`
		370	`.................... void lcd_putc( char c)`
		371	`.................... {`
		372	`....................`
		373	`.................... switch (c)`
		374	`0238: MOVF 3E,W`
		375	`0239: MOVWF 20`
		376	`023A: MOVLW 0C`
		377	`023B: SUBWF 20,W`
		378	`023C: BTFSC 03.2`
		379	`023D: GOTO 24B`
		380	`023E: MOVLW 0A`
		381	`023F: SUBWF 20,W`
		382	`0240: BTFSC 03.2`
		383	`0241: GOTO 253`
		384	`0242: MOVLW 0D`
		385	`0243: SUBWF 20,W`
		386	`0244: BTFSC 03.2`
		387	`0245: GOTO 259`
		388	`0246: MOVLW 08`
		389	`0247: SUBWF 20,W`
		390	`0248: BTFSC 03.2`
		391	`0249: GOTO 25E`
		392	`024A: GOTO 263`
		393	`.................... {`
		394	`.................... case '\f' : lcd_send_byte(0,1); // smaz displej`
		395	`024B: CLRF 43`
		396	`024C: MOVLW 01`
		397	`024D: MOVWF 44`
		398	`024E: CALL 0A1`
		399	`.................... delay_ms(2);`
		400	`024F: MOVLW 02`
		401	`0250: MOVWF 3F`
		402	`0251: CALL 077`
		403	`.................... break;`
		404	`0252: GOTO 26F`
		405	`.................... case '\n' : lcd_gotoxy(1,2); break; // presun se na 1. znak 2. radky`
		406	`0253: MOVLW 01`
		407	`0254: MOVWF 3F`
		408	`0255: MOVLW 02`
		409	`0256: MOVWF 40`
		410	`0257: CALL 227`
		411	`0258: GOTO 26F`
		412	`.................... case '\r' : lcd_gotoxy(1,1); break; // presun home`
		413	`0259: MOVLW 01`
		414	`025A: MOVWF 3F`
		415	`025B: MOVWF 40`
		416	`025C: CALL 227`
		417	`025D: GOTO 26F`
		418	`.................... case '\b' : lcd_send_byte(0,0x10); break; // posun kurzor o 1 zpet`
		419	`025E: CLRF 43`
		420	`025F: MOVLW 10`
		421	`0260: MOVWF 44`
		422	`0261: CALL 0A1`
		423	`0262: GOTO 26F`
		424	`.................... default : if (c<0x20) c&=0x7; // preklopeni definovatelnych znaku na rozsah 0 az 0x1F`
		425	`0263: MOVF 3E,W`
		426	`0264: SUBLW 1F`
		427	`0265: BTFSS 03.0`
		428	`0266: GOTO 269`
		429	`0267: MOVLW 07`
		430	`0268: ANDWF 3E,F`
		431	`.................... lcd_send_byte(1,c); break; // zapis znak`
		432	`0269: MOVLW 01`
		433	`026A: MOVWF 43`
		434	`026B: MOVF 3E,W`
		435	`026C: MOVWF 44`
		436	`026D: CALL 0A1`
		437	`026E: GOTO 26F`
		438	`.................... }`
		439	`026F: RETLW 00`
		440	`.................... }`
		441	`....................`
		442	`....................`
		443	`.................... // Zapni kurzor`
		444	`.................... //`
		445	`.................... void lcd_cursor_on()`
		446	`.................... {`
		447	`.................... lcd_send_byte(0,LCD_CURSOR_ON_);`
		448	`.................... }`
		449	`....................`
		450	`....................`
		451	`.................... // Vypni kurzor`
		452	`.................... //`
		453	`.................... void lcd_cursor_off()`
		454	`.................... {`
		455	`.................... lcd_send_byte(0,LCD_CURSOR_OFF_);`
		456	`.................... }`
		457	`....................`
		458	`....................`
		459	`.................... // Definice vlastnich fontu`
		460	`.................... //`
		461	`.................... // Vlastnich definic muze byt jen 8 do pozic 0 az 7 pameti CGRAM radice lcd displeje`
		462	`.................... // Pro snadne definovani jsou pripraveny nasledujici definice a na konci souboru je uveden`
		463	`.................... // priklad pouziti definovanych znaku.`
		464	`....................`
		465	`....................`
		466	`.................... // Pomocna procedura pro posilani ridicich dat do radice displeje`
		467	`.................... //`
		468	`.................... void lcd_putc2(int Data)`
		469	`.................... {`
		470	`.................... lcd_send_byte(1,Data);`
		471	`.................... }`
		472	`....................`
		473	`....................`
		474	`.................... // Pomocne definice pro programovani obsahu CGRAM`
		475	`.................... //`
		476	`.................... #DEFINE lcd_define_start(Code) lcd_send_byte(0,0x40+(Code<<3)); delay_ms(2)`
		477	`.................... #DEFINE lcd_define_def(String) printf(lcd_putc2,String);`
		478	`.................... #DEFINE lcd_define_end() lcd_send_byte(0,3); delay_ms(2)`
		479	`....................`
		480	`....................`
		481	`.................... // Vlastni vykonne makro pro definovani fontu do pozice Index CGRAM s definicnim retezcem Def`
		482	`.................... //`
		483	`.................... #DEFINE lcd_define_char(Index, Def) lcd_define_start(Index); lcd_define_def(Def); lcd_define_end();`
		484	`....................`
		485	`....................`
		486	`.................... // Pripravene definice fontu vybranych znaku`
		487	`.................... // V tabulce nesmi byt 00 (konec retezce v printf()), misto toho davame 80`
		488	`.................... //`
		489	`.................... #DEFINE LCD_CHAR_BAT100 "\x0E\x1F\x1F\x1F\x1F\x1F\x1F\x1F" /* symbol plne baterie */`
		490	`.................... #DEFINE LCD_CHAR_BAT50 "\x0E\x1F\x11\x11\x13\x17\x1F\x1F" /* symbol polovicni baterie */`
		491	`.................... #DEFINE LCD_CHAR_BAT0 "\x0E\x1F\x11\x11\x11\x11\x11\x1F" /* symbol vybite baterie */`
		492	`.................... #DEFINE LCD_CHAR_LUA "\x04\x0E\x11\x11\x1F\x11\x11\x80" /* A s carkou */`
		493	`.................... #DEFINE LCD_CHAR_LLA "\x01\x02\x0E\x01\x1F\x11\x0F\x80" /* a s carkou */`
		494	`.................... #DEFINE LCD_CHAR_HUC "\x0A\x0E\x11\x10\x10\x11\x0E\x80" /* C s hackem */`
		495	`.................... #DEFINE LCD_CHAR_HLC "\x0A\x04\x0E\x10\x10\x11\x0E\x80" /* c s hackem */`
		496	`.................... #DEFINE LCD_CHAR_HUD "\x0A\x1C\x12\x11\x11\x12\x1C\x80" /* D s hackem */`
		497	`.................... #DEFINE LCD_CHAR_HLD "\x05\x03\x0D\x13\x11\x11\x0F\x80" /* d s hackem */`
		498	`.................... #DEFINE LCD_CHAR_LUE "\x04\x1F\x10\x10\x1E\x10\x1F\x80" /* E s carkou */`
		499	`.................... #DEFINE LCD_CHAR_LLE "\x01\x02\x0E\x11\x1F\x10\x0E\x80" /* e s carkou */`
		500	`.................... #DEFINE LCD_CHAR_HUE "\x0A\x1F\x10\x1E\x10\x10\x1F\x80" /* E s hackem */`
		501	`.................... #DEFINE LCD_CHAR_HLE "\x0A\x04\x0E\x11\x1F\x10\x0E\x80" /* e s hackem */`
		502	`.................... #DEFINE LCD_CHAR_LUI "\x04\x0E\x04\x04\x04\x04\x0E\x80" /* I s carkou */`
		503	`.................... #DEFINE LCD_CHAR_LLI "\x02\x04\x80\x0C\x04\x04\x0E\x80" /* i s carkou */`
		504	`.................... #DEFINE LCD_CHAR_HUN "\x0A\x15\x11\x19\x15\x13\x11\x80" /* N s hackem */`
		505	`.................... #DEFINE LCD_CHAR_HLN "\x0A\x04\x16\x19\x11\x11\x11\x80" /* n s hackem */`
		506	`.................... #DEFINE LCD_CHAR_LUO "\x04\x0E\x11\x11\x11\x11\x0E\x80" /* O s carkou */`
		507	`.................... #DEFINE LCD_CHAR_LLO "\x02\x04\x0E\x11\x11\x11\x0E\x80" /* o s carkou */`
		508	`.................... #DEFINE LCD_CHAR_HUR "\x0A\x1E\x11\x1E\x14\x12\x11\x80" /* R s hackem */`
		509	`.................... #DEFINE LCD_CHAR_HLR "\x0A\x04\x16\x19\x10\x10\x10\x80" /* r s hackem */`
		510	`.................... #DEFINE LCD_CHAR_HUS "\x0A\x0F\x10\x0E\x01\x01\x1E\x80" /* S s hackem */`
		511	`.................... #DEFINE LCD_CHAR_HLS "\x0A\x04\x0E\x10\x0E\x01\x1E\x80" /* s s hackem */`
		512	`.................... #DEFINE LCD_CHAR_HUT "\x0A\x1F\x04\x04\x04\x04\x04\x80" /* T s hackem */`
		513	`.................... #DEFINE LCD_CHAR_HLT "\x0A\x0C\x1C\x08\x08\x09\x06\x80" /* t s hackem */`
		514	`.................... #DEFINE LCD_CHAR_LUU "\x02\x15\x11\x11\x11\x11\x0E\x80" /* U s carkou */`
		515	`.................... #DEFINE LCD_CHAR_LLU "\x02\x04\x11\x11\x11\x13\x0D\x80" /* u s carkou */`
		516	`.................... #DEFINE LCD_CHAR_CUU "\x06\x17\x11\x11\x11\x11\x0E\x80" /* U s krouzkem */`
		517	`.................... #DEFINE LCD_CHAR_CLU "\x06\x06\x11\x11\x11\x11\x0E\x80" /* u s krouzkem */`
		518	`.................... #DEFINE LCD_CHAR_LUY "\x02\x15\x11\x0A\x04\x04\x04\x80" /* Y s carkou */`
		519	`.................... #DEFINE LCD_CHAR_LLY "\x02\x04\x11\x11\x0F\x01\x0E\x80" /* y s carkou */`
		520	`.................... #DEFINE LCD_CHAR_HUZ "\x0A\x1F\x01\x02\x04\x08\x1F\x80" /* Z s hackem */`
		521	`.................... #DEFINE LCD_CHAR_HLZ "\x0A\x04\x1F\x02\x04\x08\x1F\x80" /* z s hackem */`
		522	`....................`
		523	`....................`
		524	`.................... // Priklad pouziti definovanych znaku`
		525	`.................... //`
		526	`.................... //`
		527	`.................... //void lcd_sample()`
		528	`.................... //{`
		529	`.................... // lcd_define_char(0,LCD_CHAR_BAT50); // Priklad definice znaku baterie do pozice 0`
		530	`.................... // lcd_define_char(2,LCD_CHAR_HLE LCD_CHAR_LUI); // Priklad definice znaku e s hackem a I s carkou od pozice 2`
		531	`.................... // // vsimnete si, ze neni carka mezi retezci s definici (oba retezce definuji`
		532	`.................... // // jediny definicni retezec)`
		533	`.................... // printf(lcd_putc,"\fZnaky:\20\22\23"); // priklad vypisu znaku z pozice 0, 2 a 3`
		534	`.................... // delay_ms(1000);`
		535	`.................... // lcd_define_char(0,LCD_CHAR_BAT0); // Predefinovani tvaru znaku v pozici 0`
		536	`.................... // delay_ms(1000);`
		537	`.................... //}`
		538	`....................`
		539	`.................... #INCLUDE "lcd2.c"`
		540	`.................... #define LCD_SC 0b0000011000 // posun displeje doleva`
		541	`.................... #define RIGHT 1`
		542	`.................... #define LEFT 0`
		543	`....................`
		544	`.................... void lcd_sh(int1 lr)`
		545	`.................... {`
		546	`.................... if (lr) lcd_send_byte(0,LCD_SC \| 0x100); else lcd_send_byte(0,LCD_SC);`
		547	`.................... }`
		548	`....................`
		549	`.................... //Klavesnice`
		550	`.................... #DEFINE PL PIN_B3 // ovladani klavesnice`
		551	`.................... #DEFINE STROBE_LED PIN_C0`
		552	`.................... #DEFINE STROBE_KL PIN_C1`
		553	`.................... #DEFINE DATA_OUT PIN_C2`
		554	`.................... #DEFINE CP PIN_C3`
		555	`.................... #DEFINE DATA_IN PIN_C4`
		556	`.................... #INCLUDE "keybord.c"`
		557	`.................... //#DEFINE PL PIN_B3 // ovladani klavesnice`
		558	`.................... //#DEFINE STROBE_LED PIN_C0`
		559	`.................... //#DEFINE STROBE_KL PIN_C1`
		560	`.................... //#DEFINE DATA_OUT PIN_C2`
		561	`.................... //#DEFINE CP PIN_C3`
		562	`.................... //#DEFINE DATA_IN PIN_C4`
		563	`....................`
		564	`.................... #DEFINE znak_0 14`
		565	`.................... #DEFINE znak_1 10`
		566	`.................... #DEFINE znak_2 11`
		567	`.................... #DEFINE znak_3 12`
		568	`.................... #DEFINE znak_4 20`
		569	`.................... #DEFINE znak_5 21`
		570	`.................... #DEFINE znak_6 22`
		571	`.................... #DEFINE znak_7 04`
		572	`.................... #DEFINE znak_8 05`
		573	`.................... #DEFINE znak_9 06`
		574	`.................... #DEFINE znak_R 15`
		575	`.................... #DEFINE znak_F 16`
		576	`.................... #DEFINE znak_C 27`
		577	`.................... #DEFINE nic 80`
		578	`....................`
		579	`....................`
		580	`.................... void KL_init()`
		581	`.................... {`
		582	`.................... int8 i;`
		583	`.................... output_high(STROBE_KL);`
		584	`*`
		585	`00F1: BCF 25.1`
		586	`00F2: MOVF 25,W`
		587	`00F3: BSF 03.5`
		588	`00F4: MOVWF 07`
		589	`00F5: BCF 03.5`
		590	`00F6: BSF 07.1`
		591	`.................... output_high(STROBE_LED);`
		592	`00F7: BCF 25.0`
		593	`00F8: MOVF 25,W`
		594	`00F9: BSF 03.5`
		595	`00FA: MOVWF 07`
		596	`00FB: BCF 03.5`
		597	`00FC: BSF 07.0`
		598	`....................`
		599	`.................... for (i=0;i<=7;i++)`
		600	`00FD: CLRF 36`
		601	`00FE: MOVF 36,W`
		602	`00FF: SUBLW 07`
		603	`0100: BTFSS 03.0`
		604	`0101: GOTO 116`
		605	`.................... {`
		606	`.................... output_low(DATA_IN);`
		607	`0102: BCF 25.4`
		608	`0103: MOVF 25,W`
		609	`0104: BSF 03.5`
		610	`0105: MOVWF 07`
		611	`0106: BCF 03.5`
		612	`0107: BCF 07.4`
		613	`.................... output_high(CP);`
		614	`0108: BCF 25.3`
		615	`0109: MOVF 25,W`
		616	`010A: BSF 03.5`
		617	`010B: MOVWF 07`
		618	`010C: BCF 03.5`
		619	`010D: BSF 07.3`
		620	`.................... output_low(CP);`
		621	`010E: BCF 25.3`
		622	`010F: MOVF 25,W`
		623	`0110: BSF 03.5`
		624	`0111: MOVWF 07`
		625	`0112: BCF 03.5`
		626	`0113: BCF 07.3`
		627	`.................... }`
		628	`0114: INCF 36,F`
		629	`0115: GOTO 0FE`
		630	`.................... output_low(STROBE_KL);`
		631	`0116: BCF 25.1`
		632	`0117: MOVF 25,W`
		633	`0118: BSF 03.5`
		634	`0119: MOVWF 07`
		635	`011A: BCF 03.5`
		636	`011B: BCF 07.1`
		637	`.................... output_low(STROBE_LED);`
		638	`011C: BCF 25.0`
		639	`011D: MOVF 25,W`
		640	`011E: BSF 03.5`
		641	`011F: MOVWF 07`
		642	`0120: BCF 03.5`
		643	`0121: BCF 07.0`
		644	`.................... output_high(CP);`
		645	`0122: BCF 25.3`
		646	`0123: MOVF 25,W`
		647	`0124: BSF 03.5`
		648	`0125: MOVWF 07`
		649	`0126: BCF 03.5`
		650	`0127: BSF 07.3`
		651	`.................... output_high(PL);`
		652	`0128: BSF 03.5`
		653	`0129: BCF 06.3`
		654	`012A: BCF 03.5`
		655	`012B: BSF 06.3`
		656	`012C: BCF 0A.3`
		657	`012D: GOTO 603 (RETURN)`
		658	`.................... }`
		659	`....................`
		660	`.................... void KL_CP(j)`
		661	`.................... {`
		662	`.................... int8 i;`
		663	`.................... for (i=0;i<=j;i++)`
		664	`.................... {`
		665	`.................... output_high(CP);`
		666	`.................... output_low(CP);`
		667	`.................... }`
		668	`.................... }`
		669	`....................`
		670	`.................... void LED(int8 LED) //rosviti LED 1-7`
		671	`.................... {`
		672	`.................... int i;`
		673	`.................... output_low(CP);`
		674	`*`
		675	`01E7: BCF 25.3`
		676	`01E8: MOVF 25,W`
		677	`01E9: BSF 03.5`
		678	`01EA: MOVWF 07`
		679	`01EB: BCF 03.5`
		680	`01EC: BCF 07.3`
		681	`.................... output_low(STROBE_LED);`
		682	`01ED: BCF 25.0`
		683	`01EE: MOVF 25,W`
		684	`01EF: BSF 03.5`
		685	`01F0: MOVWF 07`
		686	`01F1: BCF 03.5`
		687	`01F2: BCF 07.0`
		688	`.................... for (i=0;i<=7;i++)`
		689	`01F3: CLRF 3C`
		690	`01F4: MOVF 3C,W`
		691	`01F5: SUBLW 07`
		692	`01F6: BTFSS 03.0`
		693	`01F7: GOTO 21A`
		694	`.................... {`
		695	`.................... output_bit(DATA_IN,bit_test(LED,i));`
		696	`01F8: MOVF 3B,W`
		697	`01F9: MOVWF 20`
		698	`01FA: MOVF 3C,W`
		699	`01FB: MOVWF 21`
		700	`01FC: BTFSC 03.2`
		701	`01FD: GOTO 202`
		702	`01FE: BCF 03.0`
		703	`01FF: RRF 20,F`
		704	`0200: DECFSZ 21,F`
		705	`0201: GOTO 1FE`
		706	`0202: BTFSC 20.0`
		707	`0203: GOTO 206`
		708	`0204: BCF 07.4`
		709	`0205: GOTO 207`
		710	`0206: BSF 07.4`
		711	`0207: BCF 25.4`
		712	`0208: MOVF 25,W`
		713	`0209: BSF 03.5`
		714	`020A: MOVWF 07`
		715	`.................... output_high(CP);`
		716	`020B: BCF 03.5`
		717	`020C: BCF 25.3`
		718	`020D: MOVF 25,W`
		719	`020E: BSF 03.5`
		720	`020F: MOVWF 07`
		721	`0210: BCF 03.5`
		722	`0211: BSF 07.3`
		723	`.................... output_low(CP);`
		724	`0212: BCF 25.3`
		725	`0213: MOVF 25,W`
		726	`0214: BSF 03.5`
		727	`0215: MOVWF 07`
		728	`0216: BCF 03.5`
		729	`0217: BCF 07.3`
		730	`.................... };`
		731	`0218: INCF 3C,F`
		732	`0219: GOTO 1F4`
		733	`.................... output_high(STROBE_LED);`
		734	`021A: BCF 25.0`
		735	`021B: MOVF 25,W`
		736	`021C: BSF 03.5`
		737	`021D: MOVWF 07`
		738	`021E: BCF 03.5`
		739	`021F: BSF 07.0`
		740	`.................... output_low(STROBE_LED);`
		741	`0220: BCF 25.0`
		742	`0221: MOVF 25,W`
		743	`0222: BSF 03.5`
		744	`0223: MOVWF 07`
		745	`0224: BCF 03.5`
		746	`0225: BCF 07.0`
		747	`0226: RETLW 00`
		748	`.................... }`
		749	`....................`
		750	`.................... int8 klavesa() //vrati cislo klavesy`
		751	`.................... {`
		752	`.................... int8 i;`
		753	`.................... int8 sloupec;`
		754	`....................`
		755	`.................... for(sloupec=0; sloupec<=7; sloupec++)`
		756	`*`
		757	`012E: CLRF 3E`
		758	`012F: MOVF 3E,W`
		759	`0130: SUBLW 07`
		760	`0131: BTFSS 03.0`
		761	`0132: GOTO 1E4`
		762	`.................... {`
		763	`.................... output_low(STROBE_KL);`
		764	`0133: BCF 25.1`
		765	`0134: MOVF 25,W`
		766	`0135: BSF 03.5`
		767	`0136: MOVWF 07`
		768	`0137: BCF 03.5`
		769	`0138: BCF 07.1`
		770	`.................... output_low(DATA_IN);`
		771	`0139: BCF 25.4`
		772	`013A: MOVF 25,W`
		773	`013B: BSF 03.5`
		774	`013C: MOVWF 07`
		775	`013D: BCF 03.5`
		776	`013E: BCF 07.4`
		777	`.................... for (i=0;i<=7;i++)`
		778	`013F: CLRF 3D`
		779	`0140: MOVF 3D,W`
		780	`0141: SUBLW 07`
		781	`0142: BTFSS 03.0`
		782	`0143: GOTO 152`
		783	`.................... { //nulovani sloupcu`
		784	`.................... output_high(CP);`
		785	`0144: BCF 25.3`
		786	`0145: MOVF 25,W`
		787	`0146: BSF 03.5`
		788	`0147: MOVWF 07`
		789	`0148: BCF 03.5`
		790	`0149: BSF 07.3`
		791	`.................... output_low(CP);`
		792	`014A: BCF 25.3`
		793	`014B: MOVF 25,W`
		794	`014C: BSF 03.5`
		795	`014D: MOVWF 07`
		796	`014E: BCF 03.5`
		797	`014F: BCF 07.3`
		798	`.................... }`
		799	`0150: INCF 3D,F`
		800	`0151: GOTO 140`
		801	`....................`
		802	`.................... output_high(DATA_IN);`
		803	`0152: BCF 25.4`
		804	`0153: MOVF 25,W`
		805	`0154: BSF 03.5`
		806	`0155: MOVWF 07`
		807	`0156: BCF 03.5`
		808	`0157: BSF 07.4`
		809	`.................... output_high(CP); //zavedeni 1 do registru sloupcu`
		810	`0158: BCF 25.3`
		811	`0159: MOVF 25,W`
		812	`015A: BSF 03.5`
		813	`015B: MOVWF 07`
		814	`015C: BCF 03.5`
		815	`015D: BSF 07.3`
		816	`.................... output_low(CP);`
		817	`015E: BCF 25.3`
		818	`015F: MOVF 25,W`
		819	`0160: BSF 03.5`
		820	`0161: MOVWF 07`
		821	`0162: BCF 03.5`
		822	`0163: BCF 07.3`
		823	`....................`
		824	`.................... output_low(DATA_IN);`
		825	`0164: BCF 25.4`
		826	`0165: MOVF 25,W`
		827	`0166: BSF 03.5`
		828	`0167: MOVWF 07`
		829	`0168: BCF 03.5`
		830	`0169: BCF 07.4`
		831	`.................... for (i=0;i<sloupec;i++) //nastaveni sloupce`
		832	`016A: CLRF 3D`
		833	`016B: MOVF 3E,W`
		834	`016C: SUBWF 3D,W`
		835	`016D: BTFSC 03.0`
		836	`016E: GOTO 17D`
		837	`.................... {`
		838	`.................... output_high(CP);`
		839	`016F: BCF 25.3`
		840	`0170: MOVF 25,W`
		841	`0171: BSF 03.5`
		842	`0172: MOVWF 07`
		843	`0173: BCF 03.5`
		844	`0174: BSF 07.3`
		845	`.................... output_low(CP);`
		846	`0175: BCF 25.3`
		847	`0176: MOVF 25,W`
		848	`0177: BSF 03.5`
		849	`0178: MOVWF 07`
		850	`0179: BCF 03.5`
		851	`017A: BCF 07.3`
		852	`.................... }`
		853	`017B: INCF 3D,F`
		854	`017C: GOTO 16B`
		855	`....................`
		856	`.................... output_high(STROBE_KL);`
		857	`017D: BCF 25.1`
		858	`017E: MOVF 25,W`
		859	`017F: BSF 03.5`
		860	`0180: MOVWF 07`
		861	`0181: BCF 03.5`
		862	`0182: BSF 07.1`
		863	`.................... output_low(PL);`
		864	`0183: BSF 03.5`
		865	`0184: BCF 06.3`
		866	`0185: BCF 03.5`
		867	`0186: BCF 06.3`
		868	`.................... output_high(PL);`
		869	`0187: BSF 03.5`
		870	`0188: BCF 06.3`
		871	`0189: BCF 03.5`
		872	`018A: BSF 06.3`
		873	`....................`
		874	`.................... for (i=0;i<5;i++) //posunuti cteciho registru`
		875	`018B: CLRF 3D`
		876	`018C: MOVF 3D,W`
		877	`018D: SUBLW 04`
		878	`018E: BTFSS 03.0`
		879	`018F: GOTO 19E`
		880	`.................... {`
		881	`.................... output_high(CP);`
		882	`0190: BCF 25.3`
		883	`0191: MOVF 25,W`
		884	`0192: BSF 03.5`
		885	`0193: MOVWF 07`
		886	`0194: BCF 03.5`
		887	`0195: BSF 07.3`
		888	`.................... output_low(CP);`
		889	`0196: BCF 25.3`
		890	`0197: MOVF 25,W`
		891	`0198: BSF 03.5`
		892	`0199: MOVWF 07`
		893	`019A: BCF 03.5`
		894	`019B: BCF 07.3`
		895	`.................... }`
		896	`019C: INCF 3D,F`
		897	`019D: GOTO 18C`
		898	`....................`
		899	`.................... /* if (1==input(DATA_OUT)) return(sloupec); // pokud je 4. radek`
		900	`.................... output_high(CP);`
		901	`.................... output_low(CP);`
		902	`.................... if (1==input(DATA_OUT)) return(sloupec); // pokud je 3. radek`
		903	`.................... output_high(CP);`
		904	`.................... output_low(CP);*/`
		905	`.................... if (1==input(DATA_OUT)) return(sloupec); // pokud je 0. radek`
		906	`019E: BSF 25.2`
		907	`019F: MOVF 25,W`
		908	`01A0: BSF 03.5`
		909	`01A1: MOVWF 07`
		910	`01A2: MOVLW 00`
		911	`01A3: BCF 03.5`
		912	`01A4: BTFSC 07.2`
		913	`01A5: MOVLW 01`
		914	`01A6: SUBLW 01`
		915	`01A7: BTFSS 03.2`
		916	`01A8: GOTO 1AC`
		917	`01A9: MOVF 3E,W`
		918	`01AA: MOVWF 21`
		919	`01AB: GOTO 1E6`
		920	`.................... output_high(CP);`
		921	`01AC: BCF 25.3`
		922	`01AD: MOVF 25,W`
		923	`01AE: BSF 03.5`
		924	`01AF: MOVWF 07`
		925	`01B0: BCF 03.5`
		926	`01B1: BSF 07.3`
		927	`.................... output_low(CP);`
		928	`01B2: BCF 25.3`
		929	`01B3: MOVF 25,W`
		930	`01B4: BSF 03.5`
		931	`01B5: MOVWF 07`
		932	`01B6: BCF 03.5`
		933	`01B7: BCF 07.3`
		934	`.................... if (1==input(DATA_OUT)) return(0b1000 \| sloupec); // pokud je 1. radek`
		935	`01B8: BSF 25.2`
		936	`01B9: MOVF 25,W`
		937	`01BA: BSF 03.5`
		938	`01BB: MOVWF 07`
		939	`01BC: MOVLW 00`
		940	`01BD: BCF 03.5`
		941	`01BE: BTFSC 07.2`
		942	`01BF: MOVLW 01`
		943	`01C0: SUBLW 01`
		944	`01C1: BTFSS 03.2`
		945	`01C2: GOTO 1C7`
		946	`01C3: MOVF 3E,W`
		947	`01C4: IORLW 08`
		948	`01C5: MOVWF 21`
		949	`01C6: GOTO 1E6`
		950	`.................... output_high(CP);`
		951	`01C7: BCF 25.3`
		952	`01C8: MOVF 25,W`
		953	`01C9: BSF 03.5`
		954	`01CA: MOVWF 07`
		955	`01CB: BCF 03.5`
		956	`01CC: BSF 07.3`
		957	`.................... output_low(CP);`
		958	`01CD: BCF 25.3`
		959	`01CE: MOVF 25,W`
		960	`01CF: BSF 03.5`
		961	`01D0: MOVWF 07`
		962	`01D1: BCF 03.5`
		963	`01D2: BCF 07.3`
		964	`.................... if (1==input(DATA_OUT)) return(0b10000 \| sloupec); // pokud je 2. radek`
		965	`01D3: BSF 25.2`
		966	`01D4: MOVF 25,W`
		967	`01D5: BSF 03.5`
		968	`01D6: MOVWF 07`
		969	`01D7: MOVLW 00`
		970	`01D8: BCF 03.5`
		971	`01D9: BTFSC 07.2`
		972	`01DA: MOVLW 01`
		973	`01DB: SUBLW 01`
		974	`01DC: BTFSS 03.2`
		975	`01DD: GOTO 1E2`
		976	`01DE: MOVF 3E,W`
		977	`01DF: IORLW 10`
		978	`01E0: MOVWF 21`
		979	`01E1: GOTO 1E6`
		980	`....................`
		981	`....................`
		982	`.................... }`
		983	`01E2: INCF 3E,F`
		984	`01E3: GOTO 12F`
		985	`.................... return(0x80); // nastavy nejvissi bit, ze neni nic zmacknuto`
		986	`01E4: MOVLW 80`
		987	`01E5: MOVWF 21`
		988	`01E6: RETLW 00`
		989	`.................... }`
		990	`....................`
		991	`.................... boolean read_KL(char *klv)`
		992	`.................... {`
		993	`.................... const char prev_tabulka[24]={'i','z','m','u','7','8','9','.','1','2','3','b','0','r','f','k','4','5','6','s',' ',' ','t','c'};`
		994	`....................`
		995	`.................... *klv = klavesa();`
		996	`.................... if (0x80==*klv) return(false);`
		997	`.................... else`
		998	`.................... {`
		999	`.................... klv = prev_tabulka[klv];`
		1000	`.................... return(true);`
		1001	`.................... }`
		1002	`.................... }`
		1003	`....................`
		1004	`....................`
		1005	`.................... //Vysilac`
		1006	`.................... #DEFINE VYSILAC PIN_C5`
		1007	`.................... #INCLUDE "vysilac.c"`
		1008	`.................... // Odesle nulu nebo jednicku podle nejnizsiho bitu predanych dat`
		1009	`.................... // Nula je posloupnost LH a jednicka je HL`
		1010	`.................... void odeslat_bit(int bit)`
		1011	`.................... {`
		1012	`.................... output_bit(VYSILAC,bit);`
		1013	`*`
		1014	`02C9: MOVF 3E,F`
		1015	`02CA: BTFSS 03.2`
		1016	`02CB: GOTO 2CE`
		1017	`02CC: BCF 07.5`
		1018	`02CD: GOTO 2CF`
		1019	`02CE: BSF 07.5`
		1020	`02CF: BCF 25.5`
		1021	`02D0: MOVF 25,W`
		1022	`02D1: BSF 03.5`
		1023	`02D2: MOVWF 07`
		1024	`.................... delay_us(IMPULS);`
		1025	`02D3: MOVLW 53`
		1026	`02D4: BCF 03.5`
		1027	`02D5: MOVWF 20`
		1028	`02D6: DECFSZ 20,F`
		1029	`02D7: GOTO 2D6`
		1030	`.................... output_bit(VYSILAC,!bit);`
		1031	`02D8: MOVF 3E,F`
		1032	`02D9: BTFSC 03.2`
		1033	`02DA: GOTO 2DD`
		1034	`02DB: BCF 07.5`
		1035	`02DC: GOTO 2DE`
		1036	`02DD: BSF 07.5`
		1037	`02DE: BCF 25.5`
		1038	`02DF: MOVF 25,W`
		1039	`02E0: BSF 03.5`
		1040	`02E1: MOVWF 07`
		1041	`.................... delay_us(IMPULS);`
		1042	`02E2: MOVLW 53`
		1043	`02E3: BCF 03.5`
		1044	`02E4: MOVWF 20`
		1045	`02E5: DECFSZ 20,F`
		1046	`02E6: GOTO 2E5`
		1047	`02E7: RETLW 00`
		1048	`.................... }`
		1049	`....................`
		1050	`.................... // odesle datovy ramec`
		1051	`.................... void odeslat_paket(int8 kanal,int8 data)`
		1052	`.................... {`
		1053	`.................... int i;`
		1054	`.................... int8 suma;`
		1055	`....................`
		1056	`....................`
		1057	`.................... data &= 0x1F; // pro jistotu orizneme data, kdyby nekdo chtel prenaset vic poloh`
		1058	`02E8: MOVLW 1F`
		1059	`02E9: ANDWF 3A,F`
		1060	`.................... data \|= kanal << 5; // slozi osu a hodnotu do packetu`
		1061	`02EA: SWAPF 39,W`
		1062	`02EB: MOVWF 20`
		1063	`02EC: RLF 20,F`
		1064	`02ED: MOVLW E0`
		1065	`02EE: ANDWF 20,F`
		1066	`02EF: MOVF 20,W`
		1067	`02F0: IORWF 3A,F`
		1068	`....................`
		1069	`.................... swap(data); // vypocet kontrolniho souctu`
		1070	`02F1: SWAPF 3A,F`
		1071	`.................... suma = data & 0xF;`
		1072	`02F2: MOVF 3A,W`
		1073	`02F3: ANDLW 0F`
		1074	`02F4: MOVWF 3C`
		1075	`.................... swap(data);`
		1076	`02F5: SWAPF 3A,F`
		1077	`.................... suma += data & 0xF;`
		1078	`02F6: MOVF 3A,W`
		1079	`02F7: ANDLW 0F`
		1080	`02F8: ADDWF 3C,F`
		1081	`.................... suma++;`
		1082	`02F9: INCF 3C,F`
		1083	`....................`
		1084	`.................... odeslat_bit(0); // start bit`
		1085	`02FA: CLRF 3E`
		1086	`02FB: CALL 2C9`
		1087	`....................`
		1088	`.................... for (i=8; i>0; i--) // data`
		1089	`02FC: MOVLW 08`
		1090	`02FD: MOVWF 3B`
		1091	`02FE: MOVF 3B,F`
		1092	`02FF: BTFSC 03.2`
		1093	`0300: GOTO 30B`
		1094	`.................... {`
		1095	`.................... odeslat_bit(bit_test(data,7));`
		1096	`0301: MOVLW 00`
		1097	`0302: BTFSC 3A.7`
		1098	`0303: MOVLW 01`
		1099	`0304: MOVWF 3D`
		1100	`0305: MOVWF 3E`
		1101	`0306: CALL 2C9`
		1102	`.................... data <<= 1;`
		1103	`0307: BCF 03.0`
		1104	`0308: RLF 3A,F`
		1105	`.................... }`
		1106	`0309: DECF 3B,F`
		1107	`030A: GOTO 2FE`
		1108	`....................`
		1109	`.................... for (i=4; i>0; i--) // checksum`
		1110	`030B: MOVLW 04`
		1111	`030C: MOVWF 3B`
		1112	`030D: MOVF 3B,F`
		1113	`030E: BTFSC 03.2`
		1114	`030F: GOTO 31A`
		1115	`.................... {`
		1116	`.................... odeslat_bit(bit_test(suma,3));`
		1117	`0310: MOVLW 00`
		1118	`0311: BTFSC 3C.3`
		1119	`0312: MOVLW 01`
		1120	`0313: MOVWF 3D`
		1121	`0314: MOVWF 3E`
		1122	`0315: CALL 2C9`
		1123	`.................... suma <<= 1;`
		1124	`0316: BCF 03.0`
		1125	`0317: RLF 3C,F`
		1126	`.................... }`
		1127	`0318: DECF 3B,F`
		1128	`0319: GOTO 30D`
		1129	`.................... output_high(VYSILAC);`
		1130	`031A: BCF 25.5`
		1131	`031B: MOVF 25,W`
		1132	`031C: BSF 03.5`
		1133	`031D: MOVWF 07`
		1134	`031E: BCF 03.5`
		1135	`031F: BSF 07.5`
		1136	`0320: RETLW 00`
		1137	`....................`
		1138	`.................... }`
		1139	`....................`
		1140	`....................`
		1141	`.................... //Joistick`
		1142	`.................... #DEFINE EEleve_x 0`
		1143	`.................... #DEFINE EEprave_x 1 //adresovani EEPROM`
		1144	`.................... #DEFINE EEhorni_y 2`
		1145	`.................... #DEFINE EEdolni_y 3`
		1146	`....................`
		1147	`.................... #DEFINE EEmin_x 4`
		1148	`.................... #DEFINE EEmax_x 5`
		1149	`.................... #DEFINE EEmin_y 6`
		1150	`.................... #DEFINE EEmax_y 7`
		1151	`.................... #DEFINE EEstred_x 8`
		1152	`.................... #DEFINE EEstred_y 9`
		1153	`....................`
		1154	`.................... #DEFINE AD_OSA_X 1 // adresa A/D prevodniku pro osu X`
		1155	`.................... #DEFINE AD_OSA_Y 0 // adresa A/D prevodniku pro osu Y`
		1156	`.................... #DEFINE TL1 PIN_C6`
		1157	`.................... #DEFINE TL2 PIN_C7`
		1158	`.................... #INCLUDE "Joystick.c"`
		1159	`.................... //#DEFINE AD_OSA_X 0 // adresa A/D prevodniku pro osu X`
		1160	`.................... //#DEFINE AD_OSA_Y 1 // adresa A/D prevodniku pro osu Y`
		1161	`.................... //#DEFINE TL1 PIN_A2 // tlacitka`
		1162	`.................... //#DEFINE TL2 PIN_A4`
		1163	`....................`
		1164	`.................... //#DEFINE EEleve_x 0`
		1165	`.................... //#DEFINE EEprave_x 1 //adresovani EEPROM`
		1166	`.................... //#DEFINE EEhorni_y 2`
		1167	`.................... //#DEFINE EEdolni_y 3`
		1168	`....................`
		1169	`.................... //#DEFINE EEmin_x 4 // ulozeni hodnot (adresy)`
		1170	`.................... //#DEFINE EEmax_x 5`
		1171	`.................... //#DEFINE EEmin_y 6`
		1172	`.................... //#DEFINE EEmax_y 7`
		1173	`.................... //#DEFINE EEstred_x 8`
		1174	`.................... //#DEFINE EEstred_y 9`
		1175	`....................`
		1176	`....................`
		1177	`.................... unsigned int min_x;`
		1178	`.................... unsigned int max_x;`
		1179	`.................... unsigned int min_y;`
		1180	`.................... unsigned int max_y;`
		1181	`.................... unsigned int stred_x;`
		1182	`.................... unsigned int stred_y;`
		1183	`.................... unsigned int leve_x;`
		1184	`.................... unsigned int prave_x;`
		1185	`.................... unsigned int horni_y;`
		1186	`.................... unsigned int dolni_y;`
		1187	`....................`
		1188	`....................`
		1189	`.................... /*#DEFINE TEXT0 "Joy set to cent"`
		1190	`.................... #DEFINE TEXT1 "er and press OK"`
		1191	`.................... #DEFINE TEXT2 "Joy move in some "`
		1192	`.................... #DEFINE TEXT3 "full circle"`
		1193	`.................... #DEFINE TEXT4 "Calib. complete"*/`
		1194	`....................`
		1195	`.................... #DEFINE TEXT0 " Dejte paku do "`
		1196	`.................... #DEFINE TEXT1 "prostred"`
		1197	`.................... #DEFINE TEXT2 "Udelajte par"`
		1198	`.................... #DEFINE TEXT3 "kruhu"`
		1199	`.................... #DEFINE TEXT4 "hotovo"`
		1200	`....................`
		1201	`....................`
		1202	`.................... void Joystick (int ted_x, int ted_y, int8 ted_tl1, int8 ted_tl2)`
		1203	`.................... {`
		1204	`.................... set_adc_channel(AD_OSA_X);`
		1205	`*`
		1206	`0270: MOVLW 08`
		1207	`0271: MOVWF 21`
		1208	`0272: MOVF 1F,W`
		1209	`0273: ANDLW C7`
		1210	`0274: IORWF 21,W`
		1211	`0275: MOVWF 1F`
		1212	`.................... delay_us(10);`
		1213	`0276: MOVLW 03`
		1214	`0277: MOVWF 20`
		1215	`0278: DECFSZ 20,F`
		1216	`0279: GOTO 278`
		1217	`.................... *ted_x=read_adc();`
		1218	`027A: MOVF 3D,W`
		1219	`027B: MOVWF 04`
		1220	`027C: BSF 1F.2`
		1221	`027D: BTFSC 1F.2`
		1222	`027E: GOTO 27D`
		1223	`027F: MOVF 1E,W`
		1224	`0280: MOVWF 00`
		1225	`.................... set_adc_channel(AD_OSA_Y);`
		1226	`0281: MOVLW 00`
		1227	`0282: MOVWF 21`
		1228	`0283: MOVF 1F,W`
		1229	`0284: ANDLW C7`
		1230	`0285: IORWF 21,W`
		1231	`0286: MOVWF 1F`
		1232	`.................... delay_us(10);`
		1233	`0287: MOVLW 03`
		1234	`0288: MOVWF 20`
		1235	`0289: DECFSZ 20,F`
		1236	`028A: GOTO 289`
		1237	`.................... *ted_y=read_adc();`
		1238	`028B: MOVF 3E,W`
		1239	`028C: MOVWF 04`
		1240	`028D: BSF 1F.2`
		1241	`028E: BTFSC 1F.2`
		1242	`028F: GOTO 28E`
		1243	`0290: MOVF 1E,W`
		1244	`0291: MOVWF 00`
		1245	`....................`
		1246	`....................`
		1247	`.................... if (!input(TL1))`
		1248	`0292: BSF 25.6`
		1249	`0293: MOVF 25,W`
		1250	`0294: BSF 03.5`
		1251	`0295: MOVWF 07`
		1252	`0296: BCF 03.5`
		1253	`0297: BTFSC 07.6`
		1254	`0298: GOTO 2AA`
		1255	`.................... {`
		1256	`.................... delay_us(500);`
		1257	`0299: MOVLW A6`
		1258	`029A: MOVWF 20`
		1259	`029B: DECFSZ 20,F`
		1260	`029C: GOTO 29B`
		1261	`029D: NOP`
		1262	`.................... if (!input(TL1)) *ted_tl1=True;`
		1263	`029E: BSF 25.6`
		1264	`029F: MOVF 25,W`
		1265	`02A0: BSF 03.5`
		1266	`02A1: MOVWF 07`
		1267	`02A2: BCF 03.5`
		1268	`02A3: BTFSC 07.6`
		1269	`02A4: GOTO 2A9`
		1270	`02A5: MOVF 3F,W`
		1271	`02A6: MOVWF 04`
		1272	`02A7: MOVLW 01`
		1273	`02A8: MOVWF 00`
		1274	`.................... }`
		1275	`.................... else *ted_TL1=False;`
		1276	`02A9: GOTO 2AD`
		1277	`02AA: MOVF 3F,W`
		1278	`02AB: MOVWF 04`
		1279	`02AC: CLRF 00`
		1280	`....................`
		1281	`.................... if (!input(TL2))`
		1282	`02AD: BSF 25.7`
		1283	`02AE: MOVF 25,W`
		1284	`02AF: BSF 03.5`
		1285	`02B0: MOVWF 07`
		1286	`02B1: BCF 03.5`
		1287	`02B2: BTFSC 07.7`
		1288	`02B3: GOTO 2C5`
		1289	`.................... {`
		1290	`.................... delay_us(500);`
		1291	`02B4: MOVLW A6`
		1292	`02B5: MOVWF 20`
		1293	`02B6: DECFSZ 20,F`
		1294	`02B7: GOTO 2B6`
		1295	`02B8: NOP`
		1296	`.................... if (!input(TL2)) *ted_tl2=True;`
		1297	`02B9: BSF 25.7`
		1298	`02BA: MOVF 25,W`
		1299	`02BB: BSF 03.5`
		1300	`02BC: MOVWF 07`
		1301	`02BD: BCF 03.5`
		1302	`02BE: BTFSC 07.7`
		1303	`02BF: GOTO 2C4`
		1304	`02C0: MOVF 40,W`
		1305	`02C1: MOVWF 04`
		1306	`02C2: MOVLW 01`
		1307	`02C3: MOVWF 00`
		1308	`.................... }`
		1309	`.................... else *ted_tl2=False;`
		1310	`02C4: GOTO 2C8`
		1311	`02C5: MOVF 40,W`
		1312	`02C6: MOVWF 04`
		1313	`02C7: CLRF 00`
		1314	`02C8: RETLW 00`
		1315	`.................... }`
		1316	`....................`
		1317	`....................`
		1318	`....................`
		1319	`.................... void kalibrace()`
		1320	`.................... {`
		1321	`....................`
		1322	`.................... int x,y;`
		1323	`.................... int8 tlac1,tlac2;`
		1324	`....................`
		1325	`.................... min_x = max_x = min_y = max_y = stred_x = stred_y = 128;`
		1326	`*`
		1327	`0367: MOVLW 80`
		1328	`0368: MOVWF 2B`
		1329	`0369: MOVWF 2A`
		1330	`036A: MOVWF 29`
		1331	`036B: MOVWF 28`
		1332	`036C: MOVWF 27`
		1333	`036D: MOVWF 26`
		1334	`....................`
		1335	`.................... // ROZSACH JOYSTIKU`
		1336	`.................... printf(lcd_putc,"\f");`
		1337	`036E: MOVLW 0C`
		1338	`036F: MOVWF 3E`
		1339	`0370: CALL 238`
		1340	`.................... printf(lcd_putc,TEXT2);`
		1341	`*`
		1342	`000C: BCF 0A.0`
		1343	`000D: BCF 0A.1`
		1344	`000E: BCF 0A.2`
		1345	`000F: ADDWF 02,F`
		1346	`0010: RETLW 55`
		1347	`0011: RETLW 64`
		1348	`0012: RETLW 65`
		1349	`0013: RETLW 6C`
		1350	`0014: RETLW 61`
		1351	`0015: RETLW 6A`
		1352	`0016: RETLW 74`
		1353	`0017: RETLW 65`
		1354	`0018: RETLW 20`
		1355	`0019: RETLW 70`
		1356	`001A: RETLW 61`
		1357	`001B: RETLW 72`
		1358	`001C: RETLW 00`
		1359	`*`
		1360	`0371: CLRF 3D`
		1361	`0372: MOVF 3D,W`
		1362	`0373: CALL 00C`
		1363	`0374: INCF 3D,F`
		1364	`0375: MOVWF 3E`
		1365	`0376: CALL 238`
		1366	`0377: MOVLW 0C`
		1367	`0378: SUBWF 3D,W`
		1368	`0379: BTFSS 03.2`
		1369	`037A: GOTO 372`
		1370	`.................... lcd_gotoxy(1,2);`
		1371	`037B: MOVLW 01`
		1372	`037C: MOVWF 3F`
		1373	`037D: MOVLW 02`
		1374	`037E: MOVWF 40`
		1375	`037F: CALL 227`
		1376	`.................... printf(lcd_putc,TEXT3);`
		1377	`*`
		1378	`001D: BCF 0A.0`
		1379	`001E: BCF 0A.1`
		1380	`001F: BCF 0A.2`
		1381	`0020: ADDWF 02,F`
		1382	`0021: RETLW 6B`
		1383	`0022: RETLW 72`
		1384	`0023: RETLW 75`
		1385	`0024: RETLW 68`
		1386	`0025: RETLW 75`
		1387	`0026: RETLW 00`
		1388	`*`
		1389	`0380: CLRF 3D`
		1390	`0381: MOVF 3D,W`
		1391	`0382: CALL 01D`
		1392	`0383: INCF 3D,F`
		1393	`0384: MOVWF 3E`
		1394	`0385: CALL 238`
		1395	`0386: MOVLW 05`
		1396	`0387: SUBWF 3D,W`
		1397	`0388: BTFSS 03.2`
		1398	`0389: GOTO 381`
		1399	`....................`
		1400	`.................... while(input(TL1))`
		1401	`038A: BSF 25.6`
		1402	`038B: MOVF 25,W`
		1403	`038C: BSF 03.5`
		1404	`038D: MOVWF 07`
		1405	`038E: BCF 03.5`
		1406	`038F: BTFSS 07.6`
		1407	`0390: GOTO 3B9`
		1408	`.................... {`
		1409	`.................... if (0x17 == klavesa()) return; // escape`
		1410	`0391: CALL 12E`
		1411	`0392: MOVF 21,W`
		1412	`0393: SUBLW 17`
		1413	`0394: BTFSS 03.2`
		1414	`0395: GOTO 397`
		1415	`0396: GOTO 4BD`
		1416	`....................`
		1417	`.................... Joystick(&x,&y,&tlac1,&tlac2);`
		1418	`0397: MOVLW 39`
		1419	`0398: MOVWF 3D`
		1420	`0399: MOVLW 3A`
		1421	`039A: MOVWF 3E`
		1422	`039B: MOVLW 3B`
		1423	`039C: MOVWF 3F`
		1424	`039D: MOVLW 3C`
		1425	`039E: MOVWF 40`
		1426	`039F: CALL 270`
		1427	`....................`
		1428	`.................... if (max_x < x )max_x=x;`
		1429	`03A0: MOVF 39,W`
		1430	`03A1: SUBWF 27,W`
		1431	`03A2: BTFSC 03.0`
		1432	`03A3: GOTO 3A6`
		1433	`03A4: MOVF 39,W`
		1434	`03A5: MOVWF 27`
		1435	`.................... if (min_x > x )min_x=x;`
		1436	`03A6: MOVF 26,W`
		1437	`03A7: SUBWF 39,W`
		1438	`03A8: BTFSC 03.0`
		1439	`03A9: GOTO 3AC`
		1440	`03AA: MOVF 39,W`
		1441	`03AB: MOVWF 26`
		1442	`.................... if (max_y < y )max_y=y; //zjisteni meznich hodnot`
		1443	`03AC: MOVF 3A,W`
		1444	`03AD: SUBWF 29,W`
		1445	`03AE: BTFSC 03.0`
		1446	`03AF: GOTO 3B2`
		1447	`03B0: MOVF 3A,W`
		1448	`03B1: MOVWF 29`
		1449	`.................... if (min_y > y )min_y=y;`
		1450	`03B2: MOVF 28,W`
		1451	`03B3: SUBWF 3A,W`
		1452	`03B4: BTFSC 03.0`
		1453	`03B5: GOTO 3B8`
		1454	`03B6: MOVF 3A,W`
		1455	`03B7: MOVWF 28`
		1456	`.................... };`
		1457	`03B8: GOTO 38A`
		1458	`....................`
		1459	`.................... Delay_ms(500);`
		1460	`03B9: MOVLW 02`
		1461	`03BA: MOVWF 3D`
		1462	`03BB: MOVLW FA`
		1463	`03BC: MOVWF 3F`
		1464	`03BD: CALL 077`
		1465	`03BE: DECFSZ 3D,F`
		1466	`03BF: GOTO 3BB`
		1467	`.................... printf(lcd_putc,"\f");`
		1468	`03C0: MOVLW 0C`
		1469	`03C1: MOVWF 3E`
		1470	`03C2: CALL 238`
		1471	`.................... printf(lcd_putc,TEXT0);`
		1472	`*`
		1473	`0027: BCF 0A.0`
		1474	`0028: BCF 0A.1`
		1475	`0029: BCF 0A.2`
		1476	`002A: ADDWF 02,F`
		1477	`002B: RETLW 20`
		1478	`002C: RETLW 44`
		1479	`002D: RETLW 65`
		1480	`002E: RETLW 6A`
		1481	`002F: RETLW 74`
		1482	`0030: RETLW 65`
		1483	`0031: RETLW 20`
		1484	`0032: RETLW 70`
		1485	`0033: RETLW 61`
		1486	`0034: RETLW 6B`
		1487	`0035: RETLW 75`
		1488	`0036: RETLW 20`
		1489	`0037: RETLW 64`
		1490	`0038: RETLW 6F`
		1491	`0039: RETLW 20`
		1492	`003A: RETLW 00`
		1493	`*`
		1494	`03C3: CLRF 3D`
		1495	`03C4: MOVF 3D,W`
		1496	`03C5: CALL 027`
		1497	`03C6: INCF 3D,F`
		1498	`03C7: MOVWF 3E`
		1499	`03C8: CALL 238`
		1500	`03C9: MOVLW 0F`
		1501	`03CA: SUBWF 3D,W`
		1502	`03CB: BTFSS 03.2`
		1503	`03CC: GOTO 3C4`
		1504	`.................... lcd_gotoxy(1,2);`
		1505	`03CD: MOVLW 01`
		1506	`03CE: MOVWF 3F`
		1507	`03CF: MOVLW 02`
		1508	`03D0: MOVWF 40`
		1509	`03D1: CALL 227`
		1510	`.................... printf(lcd_putc,TEXT1);`
		1511	`*`
		1512	`003B: BCF 0A.0`
		1513	`003C: BCF 0A.1`
		1514	`003D: BCF 0A.2`
		1515	`003E: ADDWF 02,F`
		1516	`003F: RETLW 70`
		1517	`0040: RETLW 72`
		1518	`0041: RETLW 6F`
		1519	`0042: RETLW 73`
		1520	`0043: RETLW 74`
		1521	`0044: RETLW 72`
		1522	`0045: RETLW 65`
		1523	`0046: RETLW 64`
		1524	`0047: RETLW 00`
		1525	`*`
		1526	`03D2: CLRF 3D`
		1527	`03D3: MOVF 3D,W`
		1528	`03D4: CALL 03B`
		1529	`03D5: INCF 3D,F`
		1530	`03D6: MOVWF 3E`
		1531	`03D7: CALL 238`
		1532	`03D8: MOVLW 08`
		1533	`03D9: SUBWF 3D,W`
		1534	`03DA: BTFSS 03.2`
		1535	`03DB: GOTO 3D3`
		1536	`....................`
		1537	`.................... while(input(TL1))`
		1538	`03DC: BSF 25.6`
		1539	`03DD: MOVF 25,W`
		1540	`03DE: BSF 03.5`
		1541	`03DF: MOVWF 07`
		1542	`03E0: BCF 03.5`
		1543	`03E1: BTFSS 07.6`
		1544	`03E2: GOTO 3ED`
		1545	`.................... joystick(&stred_x,&stred_y,&tlac1,&tlac2); //nastaveni stredu`
		1546	`03E3: MOVLW 2A`
		1547	`03E4: MOVWF 3D`
		1548	`03E5: MOVLW 2B`
		1549	`03E6: MOVWF 3E`
		1550	`03E7: MOVLW 3B`
		1551	`03E8: MOVWF 3F`
		1552	`03E9: MOVLW 3C`
		1553	`03EA: MOVWF 40`
		1554	`03EB: CALL 270`
		1555	`03EC: GOTO 3DC`
		1556	`....................`
		1557	`....................`
		1558	`....................`
		1559	`.................... leve_x=max_x - stred_x;`
		1560	`03ED: MOVF 2A,W`
		1561	`03EE: SUBWF 27,W`
		1562	`03EF: MOVWF 2C`
		1563	`.................... prave_x=stred_x - min_x;`
		1564	`03F0: MOVF 26,W`
		1565	`03F1: SUBWF 2A,W`
		1566	`03F2: MOVWF 2D`
		1567	`.................... horni_y=max_y - stred_y;`
		1568	`03F3: MOVF 2B,W`
		1569	`03F4: SUBWF 29,W`
		1570	`03F5: MOVWF 2E`
		1571	`.................... dolni_y=stred_x - min_x;`
		1572	`03F6: MOVF 26,W`
		1573	`03F7: SUBWF 2A,W`
		1574	`03F8: MOVWF 2F`
		1575	`....................`
		1576	`.................... leve_x = leve_x / 8; //vypocet parametru`
		1577	`03F9: RRF 2C,F`
		1578	`03FA: RRF 2C,F`
		1579	`03FB: RRF 2C,F`
		1580	`03FC: MOVLW 1F`
		1581	`03FD: ANDWF 2C,F`
		1582	`.................... prave_x = prave_x / 8;`
		1583	`03FE: RRF 2D,F`
		1584	`03FF: RRF 2D,F`
		1585	`0400: RRF 2D,F`
		1586	`0401: ANDWF 2D,F`
		1587	`.................... horni_y = horni_y / 8;`
		1588	`0402: RRF 2E,F`
		1589	`0403: RRF 2E,F`
		1590	`0404: RRF 2E,F`
		1591	`0405: ANDWF 2E,F`
		1592	`.................... dolni_y = dolni_y / 8;`
		1593	`0406: RRF 2F,F`
		1594	`0407: RRF 2F,F`
		1595	`0408: RRF 2F,F`
		1596	`0409: ANDWF 2F,F`
		1597	`....................`
		1598	`.................... write_eeprom(EEleve_x,leve_x);`
		1599	`040A: BSF 03.6`
		1600	`040B: CLRF 0D`
		1601	`040C: CLRF 0F`
		1602	`040D: BCF 03.6`
		1603	`040E: MOVF 2C,W`
		1604	`040F: BSF 03.6`
		1605	`0410: MOVWF 0C`
		1606	`0411: BSF 03.5`
		1607	`0412: BCF 0C.7`
		1608	`0413: BSF 0C.2`
		1609	`0414: BCF 03.5`
		1610	`0415: BCF 03.6`
		1611	`0416: MOVF 0B,W`
		1612	`0417: MOVWF 20`
		1613	`0418: BCF 0B.7`
		1614	`0419: BSF 03.5`
		1615	`041A: BSF 03.6`
		1616	`041B: MOVLW 55`
		1617	`041C: MOVWF 0D`
		1618	`041D: MOVLW AA`
		1619	`041E: MOVWF 0D`
		1620	`041F: BSF 0C.1`
		1621	`0420: BTFSC 0C.1`
		1622	`0421: GOTO 420`
		1623	`0422: BCF 0C.2`
		1624	`0423: BCF 03.5`
		1625	`0424: BCF 03.6`
		1626	`0425: MOVF 20,W`
		1627	`0426: IORWF 0B,F`
		1628	`.................... write_eeprom(EEprave_x,prave_x);`
		1629	`0427: MOVLW 01`
		1630	`0428: BSF 03.6`
		1631	`0429: MOVWF 0D`
		1632	`042A: CLRF 0F`
		1633	`042B: BCF 03.6`
		1634	`042C: MOVF 2D,W`
		1635	`042D: BSF 03.6`
		1636	`042E: MOVWF 0C`
		1637	`042F: BSF 03.5`
		1638	`0430: BCF 0C.7`
		1639	`0431: BSF 0C.2`
		1640	`0432: BCF 03.5`
		1641	`0433: BCF 03.6`
		1642	`0434: MOVF 0B,W`
		1643	`0435: MOVWF 20`
		1644	`0436: BCF 0B.7`
		1645	`0437: BSF 03.5`
		1646	`0438: BSF 03.6`
		1647	`0439: MOVLW 55`
		1648	`043A: MOVWF 0D`
		1649	`043B: MOVLW AA`
		1650	`043C: MOVWF 0D`
		1651	`043D: BSF 0C.1`
		1652	`043E: BTFSC 0C.1`
		1653	`043F: GOTO 43E`
		1654	`0440: BCF 0C.2`
		1655	`0441: BCF 03.5`
		1656	`0442: BCF 03.6`
		1657	`0443: MOVF 20,W`
		1658	`0444: IORWF 0B,F`
		1659	`.................... write_eeprom(EEstred_x,stred_x);`
		1660	`0445: MOVLW 08`
		1661	`0446: BSF 03.6`
		1662	`0447: MOVWF 0D`
		1663	`0448: CLRF 0F`
		1664	`0449: BCF 03.6`
		1665	`044A: MOVF 2A,W`
		1666	`044B: BSF 03.6`
		1667	`044C: MOVWF 0C`
		1668	`044D: BSF 03.5`
		1669	`044E: BCF 0C.7`
		1670	`044F: BSF 0C.2`
		1671	`0450: BCF 03.5`
		1672	`0451: BCF 03.6`
		1673	`0452: MOVF 0B,W`
		1674	`0453: MOVWF 20`
		1675	`0454: BCF 0B.7`
		1676	`0455: BSF 03.5`
		1677	`0456: BSF 03.6`
		1678	`0457: MOVLW 55`
		1679	`0458: MOVWF 0D`
		1680	`0459: MOVLW AA`
		1681	`045A: MOVWF 0D`
		1682	`045B: BSF 0C.1`
		1683	`045C: BTFSC 0C.1`
		1684	`045D: GOTO 45C`
		1685	`045E: BCF 0C.2`
		1686	`045F: BCF 03.5`
		1687	`0460: BCF 03.6`
		1688	`0461: MOVF 20,W`
		1689	`0462: IORWF 0B,F`
		1690	`.................... write_eeprom(EEstred_y,stred_y);`
		1691	`0463: MOVLW 09`
		1692	`0464: BSF 03.6`
		1693	`0465: MOVWF 0D`
		1694	`0466: CLRF 0F`
		1695	`0467: BCF 03.6`
		1696	`0468: MOVF 2B,W`
		1697	`0469: BSF 03.6`
		1698	`046A: MOVWF 0C`
		1699	`046B: BSF 03.5`
		1700	`046C: BCF 0C.7`
		1701	`046D: BSF 0C.2`
		1702	`046E: BCF 03.5`
		1703	`046F: BCF 03.6`
		1704	`0470: MOVF 0B,W`
		1705	`0471: MOVWF 20`
		1706	`0472: BCF 0B.7`
		1707	`0473: BSF 03.5`
		1708	`0474: BSF 03.6`
		1709	`0475: MOVLW 55`
		1710	`0476: MOVWF 0D`
		1711	`0477: MOVLW AA`
		1712	`0478: MOVWF 0D`
		1713	`0479: BSF 0C.1`
		1714	`047A: BTFSC 0C.1`
		1715	`047B: GOTO 47A`
		1716	`047C: BCF 0C.2`
		1717	`047D: BCF 03.5`
		1718	`047E: BCF 03.6`
		1719	`047F: MOVF 20,W`
		1720	`0480: IORWF 0B,F`
		1721	`.................... write_eeprom(EEhorni_y,horni_y);`
		1722	`0481: MOVLW 02`
		1723	`0482: BSF 03.6`
		1724	`0483: MOVWF 0D`
		1725	`0484: CLRF 0F`
		1726	`0485: BCF 03.6`
		1727	`0486: MOVF 2E,W`
		1728	`0487: BSF 03.6`
		1729	`0488: MOVWF 0C`
		1730	`0489: BSF 03.5`
		1731	`048A: BCF 0C.7`
		1732	`048B: BSF 0C.2`
		1733	`048C: BCF 03.5`
		1734	`048D: BCF 03.6`
		1735	`048E: MOVF 0B,W`
		1736	`048F: MOVWF 20`
		1737	`0490: BCF 0B.7`
		1738	`0491: BSF 03.5`
		1739	`0492: BSF 03.6`
		1740	`0493: MOVLW 55`
		1741	`0494: MOVWF 0D`
		1742	`0495: MOVLW AA`
		1743	`0496: MOVWF 0D`
		1744	`0497: BSF 0C.1`
		1745	`0498: BTFSC 0C.1`
		1746	`0499: GOTO 498`
		1747	`049A: BCF 0C.2`
		1748	`049B: BCF 03.5`
		1749	`049C: BCF 03.6`
		1750	`049D: MOVF 20,W`
		1751	`049E: IORWF 0B,F`
		1752	`.................... write_eeprom(EEdolni_y,dolni_y);`
		1753	`049F: MOVLW 03`
		1754	`04A0: BSF 03.6`
		1755	`04A1: MOVWF 0D`
		1756	`04A2: CLRF 0F`
		1757	`04A3: BCF 03.6`
		1758	`04A4: MOVF 2F,W`
		1759	`04A5: BSF 03.6`
		1760	`04A6: MOVWF 0C`
		1761	`04A7: BSF 03.5`
		1762	`04A8: BCF 0C.7`
		1763	`04A9: BSF 0C.2`
		1764	`04AA: BCF 03.5`
		1765	`04AB: BCF 03.6`
		1766	`04AC: MOVF 0B,W`
		1767	`04AD: MOVWF 20`
		1768	`04AE: BCF 0B.7`
		1769	`04AF: BSF 03.5`
		1770	`04B0: BSF 03.6`
		1771	`04B1: MOVLW 55`
		1772	`04B2: MOVWF 0D`
		1773	`04B3: MOVLW AA`
		1774	`04B4: MOVWF 0D`
		1775	`04B5: BSF 0C.1`
		1776	`04B6: BTFSC 0C.1`
		1777	`04B7: GOTO 4B6`
		1778	`04B8: BCF 0C.2`
		1779	`04B9: BCF 03.5`
		1780	`04BA: BCF 03.6`
		1781	`04BB: MOVF 20,W`
		1782	`04BC: IORWF 0B,F`
		1783	`....................`
		1784	`.................... //write_eeprom(EEmin_x,min_x); //zapis`
		1785	`.................... //write_eeprom(EEmax_x,max_x);`
		1786	`.................... //write_eeprom(EEmin_y,min_y);`
		1787	`.................... //write_eeprom(EEmax_y,max_y);`
		1788	`.................... }`
		1789	`....................`
		1790	`....................`
		1791	`....................`
		1792	`....................`
		1793	`....................`
		1794	`.................... int x,y,tlac1,tlac2;`
		1795	`....................`
		1796	`.................... void trimovat()`
		1797	`.................... {`
		1798	`.................... odeslat_paket(Trim,0b0001);`
		1799	`*`
		1800	`04BE: MOVLW 06`
		1801	`04BF: MOVWF 39`
		1802	`04C0: MOVLW 01`
		1803	`04C1: MOVWF 3A`
		1804	`04C2: CALL 2E8`
		1805	`.................... odeslat_paket(OSA_X,x);`
		1806	`04C3: MOVLW 01`
		1807	`04C4: MOVWF 39`
		1808	`04C5: MOVF 30,W`
		1809	`04C6: MOVWF 3A`
		1810	`04C7: CALL 2E8`
		1811	`.................... odeslat_paket(OSA_Y,y);`
		1812	`04C8: MOVLW 02`
		1813	`04C9: MOVWF 39`
		1814	`04CA: MOVF 31,W`
		1815	`04CB: MOVWF 3A`
		1816	`04CC: CALL 2E8`
		1817	`.................... }`
		1818	`....................`
		1819	`.................... void vysilat()`
		1820	`.................... {`
		1821	`....................`
		1822	`.................... leve_x = read_eeprom(EEleve_x);`
		1823	`*`
		1824	`04CE: BSF 03.6`
		1825	`04CF: CLRF 0D`
		1826	`04D0: CLRF 0F`
		1827	`04D1: BSF 03.5`
		1828	`04D2: BCF 0C.7`
		1829	`04D3: BSF 0C.0`
		1830	`04D4: BCF 03.5`
		1831	`04D5: MOVF 0C,W`
		1832	`04D6: BCF 03.6`
		1833	`04D7: MOVWF 2C`
		1834	`.................... prave_x = read_eeprom(EEprave_x);`
		1835	`04D8: MOVLW 01`
		1836	`04D9: BSF 03.6`
		1837	`04DA: MOVWF 0D`
		1838	`04DB: CLRF 0F`
		1839	`04DC: BSF 03.5`
		1840	`04DD: BCF 0C.7`
		1841	`04DE: BSF 0C.0`
		1842	`04DF: BCF 03.5`
		1843	`04E0: MOVF 0C,W`
		1844	`04E1: BCF 03.6`
		1845	`04E2: MOVWF 2D`
		1846	`.................... stred_x = read_eeprom(EEstred_x);`
		1847	`04E3: MOVLW 08`
		1848	`04E4: BSF 03.6`
		1849	`04E5: MOVWF 0D`
		1850	`04E6: CLRF 0F`
		1851	`04E7: BSF 03.5`
		1852	`04E8: BCF 0C.7`
		1853	`04E9: BSF 0C.0`
		1854	`04EA: BCF 03.5`
		1855	`04EB: MOVF 0C,W`
		1856	`04EC: BCF 03.6`
		1857	`04ED: MOVWF 2A`
		1858	`.................... stred_y = read_eeprom(EEstred_y);`
		1859	`04EE: MOVLW 09`
		1860	`04EF: BSF 03.6`
		1861	`04F0: MOVWF 0D`
		1862	`04F1: CLRF 0F`
		1863	`04F2: BSF 03.5`
		1864	`04F3: BCF 0C.7`
		1865	`04F4: BSF 0C.0`
		1866	`04F5: BCF 03.5`
		1867	`04F6: MOVF 0C,W`
		1868	`04F7: BCF 03.6`
		1869	`04F8: MOVWF 2B`
		1870	`.................... horni_y = read_eeprom(EEhorni_y);`
		1871	`04F9: MOVLW 02`
		1872	`04FA: BSF 03.6`
		1873	`04FB: MOVWF 0D`
		1874	`04FC: CLRF 0F`
		1875	`04FD: BSF 03.5`
		1876	`04FE: BCF 0C.7`
		1877	`04FF: BSF 0C.0`
		1878	`0500: BCF 03.5`
		1879	`0501: MOVF 0C,W`
		1880	`0502: BCF 03.6`
		1881	`0503: MOVWF 2E`
		1882	`.................... dolni_y = read_eeprom(EEdolni_y);`
		1883	`0504: MOVLW 03`
		1884	`0505: BSF 03.6`
		1885	`0506: MOVWF 0D`
		1886	`0507: CLRF 0F`
		1887	`0508: BSF 03.5`
		1888	`0509: BCF 0C.7`
		1889	`050A: BSF 0C.0`
		1890	`050B: BCF 03.5`
		1891	`050C: MOVF 0C,W`
		1892	`050D: BCF 03.6`
		1893	`050E: MOVWF 2F`
		1894	`....................`
		1895	`.................... Delay_ms(200);`
		1896	`050F: MOVLW C8`
		1897	`0510: MOVWF 3F`
		1898	`0511: CALL 077`
		1899	`.................... lcd_gotoxy(6,2);`
		1900	`0512: MOVLW 06`
		1901	`0513: MOVWF 3F`
		1902	`0514: MOVLW 02`
		1903	`0515: MOVWF 40`
		1904	`0516: CALL 227`
		1905	`.................... printf(lcd_putc,"Vysilam");`
		1906	`*`
		1907	`0048: BCF 0A.0`
		1908	`0049: BCF 0A.1`
		1909	`004A: BCF 0A.2`
		1910	`004B: ADDWF 02,F`
		1911	`004C: RETLW 56`
		1912	`004D: RETLW 79`
		1913	`004E: RETLW 73`
		1914	`004F: RETLW 69`
		1915	`0050: RETLW 6C`
		1916	`0051: RETLW 61`
		1917	`0052: RETLW 6D`
		1918	`0053: RETLW 00`
		1919	`*`
		1920	`0517: CLRF 39`
		1921	`0518: MOVF 39,W`
		1922	`0519: CALL 048`
		1923	`051A: INCF 39,F`
		1924	`051B: MOVWF 3E`
		1925	`051C: CALL 238`
		1926	`051D: MOVLW 07`
		1927	`051E: SUBWF 39,W`
		1928	`051F: BTFSS 03.2`
		1929	`0520: GOTO 518`
		1930	`....................`
		1931	`.................... while(0x80 == klavesa())`
		1932	`0521: CALL 12E`
		1933	`0522: MOVF 21,W`
		1934	`0523: SUBLW 80`
		1935	`0524: BTFSS 03.2`
		1936	`0525: GOTO 54D`
		1937	`.................... {`
		1938	`.................... Joystick(&x,&y,&tlac1,&tlac2);`
		1939	`0526: MOVLW 30`
		1940	`0527: MOVWF 3D`
		1941	`0528: MOVLW 31`
		1942	`0529: MOVWF 3E`
		1943	`052A: MOVLW 32`
		1944	`052B: MOVWF 3F`
		1945	`052C: MOVLW 33`
		1946	`052D: MOVWF 40`
		1947	`052E: CALL 270`
		1948	`.................... /*if (stred_x >= x)`
		1949	`.................... {`
		1950	`.................... x = stred_x - x;`
		1951	`.................... x = x/leve_x;`
		1952	`.................... }`
		1953	`.................... else`
		1954	`.................... {`
		1955	`.................... x = x - stred_x;`
		1956	`.................... x = x/prave_x;`
		1957	`.................... }`
		1958	`....................`
		1959	`.................... if (stred_y >= y)`
		1960	`.................... {`
		1961	`.................... y = stred_y - y;`
		1962	`.................... y = y/dolni_y;`
		1963	`.................... }`
		1964	`.................... else`
		1965	`.................... {`
		1966	`.................... y = y - stred_y;`
		1967	`.................... y = y/horni_y;`
		1968	`.................... }*/`
		1969	`....................`
		1970	`.................... x=x/8;`
		1971	`052F: RRF 30,F`
		1972	`0530: RRF 30,F`
		1973	`0531: RRF 30,F`
		1974	`0532: MOVLW 1F`
		1975	`0533: ANDWF 30,F`
		1976	`.................... y=y/8;`
		1977	`0534: RRF 31,F`
		1978	`0535: RRF 31,F`
		1979	`0536: RRF 31,F`
		1980	`0537: ANDWF 31,F`
		1981	`....................`
		1982	`.................... odeslat_paket(OSA_X,x);`
		1983	`0538: MOVLW 01`
		1984	`0539: MOVWF 39`
		1985	`053A: MOVF 30,W`
		1986	`053B: MOVWF 3A`
		1987	`053C: CALL 2E8`
		1988	`.................... Delay_us(1600);`
		1989	`053D: MOVLW 01`
		1990	`053E: MOVWF 3F`
		1991	`053F: CALL 077`
		1992	`0540: MOVLW 03`
		1993	`0541: MOVWF 39`
		1994	`0542: MOVLW BA`
		1995	`0543: MOVWF 3A`
		1996	`0544: GOTO 321`
		1997	`0545: DECFSZ 39,F`
		1998	`0546: GOTO 542`
		1999	`.................... odeslat_paket(OSA_Y,y);`
		2000	`0547: MOVLW 02`
		2001	`0548: MOVWF 39`
		2002	`0549: MOVF 31,W`
		2003	`054A: MOVWF 3A`
		2004	`054B: CALL 2E8`
		2005	`.................... }`
		2006	`054C: GOTO 521`
		2007	`.................... }`
		2008	`....................`
		2009	`.................... void menu()`
		2010	`.................... {`
		2011	`.................... int8 polozka = 3;`
		2012	`.................... int8 old_polozka = 0;`
		2013	`*`
		2014	`0330: MOVLW 03`
		2015	`0331: MOVWF 36`
		2016	`0332: CLRF 37`
		2017	`.................... int pom;`
		2018	`....................`
		2019	`.................... while(true)`
		2020	`.................... {`
		2021	`.................... pom = klavesa();`
		2022	`0333: CALL 12E`
		2023	`0334: MOVF 21,W`
		2024	`0335: MOVWF 38`
		2025	`.................... if (0x07 == pom) polozka++;`
		2026	`0336: MOVF 38,W`
		2027	`0337: SUBLW 07`
		2028	`0338: BTFSS 03.2`
		2029	`0339: GOTO 33B`
		2030	`033A: INCF 36,F`
		2031	`.................... if (0x0f == pom) polozka--;`
		2032	`033B: MOVF 38,W`
		2033	`033C: SUBLW 0F`
		2034	`033D: BTFSS 03.2`
		2035	`033E: GOTO 340`
		2036	`033F: DECF 36,F`
		2037	`.................... if (0x04 <= polozka) polozka = 1;`
		2038	`0340: MOVF 36,W`
		2039	`0341: SUBLW 03`
		2040	`0342: BTFSC 03.0`
		2041	`0343: GOTO 346`
		2042	`0344: MOVLW 01`
		2043	`0345: MOVWF 36`
		2044	`.................... if (0x00 == polozka) polozka = 3;`
		2045	`0346: MOVF 36,F`
		2046	`0347: BTFSS 03.2`
		2047	`0348: GOTO 34B`
		2048	`0349: MOVLW 03`
		2049	`034A: MOVWF 36`
		2050	`.................... if (0x16 == pom) // enter`
		2051	`034B: MOVF 38,W`
		2052	`034C: SUBLW 16`
		2053	`034D: BTFSS 03.2`
		2054	`034E: GOTO 55E`
		2055	`.................... {`
		2056	`.................... LED((1 << (polozka + 1)) \| 1);`
		2057	`034F: MOVLW 01`
		2058	`0350: ADDWF 36,W`
		2059	`0351: MOVWF 21`
		2060	`0352: MOVLW 01`
		2061	`0353: MOVWF 20`
		2062	`0354: MOVF 21,F`
		2063	`0355: BTFSC 03.2`
		2064	`0356: GOTO 35B`
		2065	`0357: BCF 03.0`
		2066	`0358: RLF 20,F`
		2067	`0359: DECFSZ 21,F`
		2068	`035A: GOTO 357`
		2069	`035B: MOVF 20,W`
		2070	`035C: IORLW 01`
		2071	`035D: MOVWF 3A`
		2072	`035E: MOVWF 3B`
		2073	`035F: CALL 1E7`
		2074	`.................... switch(polozka)`
		2075	`0360: MOVLW 01`
		2076	`0361: SUBWF 36,W`
		2077	`0362: ADDLW FD`
		2078	`0363: BTFSC 03.0`
		2079	`0364: GOTO 54E`
		2080	`0365: ADDLW 03`
		2081	`0366: GOTO 5B3`
		2082	`.................... {`
		2083	`.................... case 1:`
		2084	`.................... kalibrace();`
		2085	`.................... break;`
		2086	`*`
		2087	`04BD: GOTO 54E`
		2088	`....................`
		2089	`.................... case 2:`
		2090	`.................... trimovat();`
		2091	`.................... break;`
		2092	`*`
		2093	`04CD: GOTO 54E`
		2094	`....................`
		2095	`.................... case 3:`
		2096	`.................... vysilat();`
		2097	`.................... break;`
		2098	`*`
		2099	`054D: GOTO 54E`
		2100	`.................... };`
		2101	`*`
		2102	`05B3: BSF 0A.0`
		2103	`05B4: BCF 0A.1`
		2104	`05B5: BSF 0A.2`
		2105	`05B6: ADDWF 02,F`
		2106	`05B7: GOTO 367`
		2107	`05B8: GOTO 4BE`
		2108	`05B9: GOTO 4CE`
		2109	`.................... LED(1 << (polozka + 1));`
		2110	`*`
		2111	`054E: MOVLW 01`
		2112	`054F: ADDWF 36,W`
		2113	`0550: MOVWF 21`
		2114	`0551: MOVLW 01`
		2115	`0552: MOVWF 39`
		2116	`0553: MOVF 21,F`
		2117	`0554: BTFSC 03.2`
		2118	`0555: GOTO 55A`
		2119	`0556: BCF 03.0`
		2120	`0557: RLF 39,F`
		2121	`0558: DECFSZ 21,F`
		2122	`0559: GOTO 556`
		2123	`055A: MOVF 39,W`
		2124	`055B: MOVWF 3B`
		2125	`055C: CALL 1E7`
		2126	`.................... old_polozka=0;`
		2127	`055D: CLRF 37`
		2128	`.................... };`
		2129	`....................`
		2130	`.................... if (polozka != old_polozka)`
		2131	`055E: MOVF 37,W`
		2132	`055F: SUBWF 36,W`
		2133	`0560: BTFSC 03.2`
		2134	`0561: GOTO 5B0`
		2135	`.................... {`
		2136	`.................... old_polozka=polozka;`
		2137	`0562: MOVF 36,W`
		2138	`0563: MOVWF 37`
		2139	`.................... printf(lcd_putc,"\f");`
		2140	`0564: MOVLW 0C`
		2141	`0565: MOVWF 3E`
		2142	`0566: CALL 238`
		2143	`.................... switch(polozka)`
		2144	`0567: MOVLW 01`
		2145	`0568: SUBWF 36,W`
		2146	`0569: ADDLW FD`
		2147	`056A: BTFSC 03.0`
		2148	`056B: GOTO 59E`
		2149	`056C: ADDLW 03`
		2150	`056D: GOTO 5BA`
		2151	`.................... {`
		2152	`.................... case 1:`
		2153	`.................... lcd_gotoxy(5,2);`
		2154	`056E: MOVLW 05`
		2155	`056F: MOVWF 3F`
		2156	`0570: MOVLW 02`
		2157	`0571: MOVWF 40`
		2158	`0572: CALL 227`
		2159	`.................... printf(lcd_putc,"Kalibrace");`
		2160	`*`
		2161	`0054: BCF 0A.0`
		2162	`0055: BCF 0A.1`
		2163	`0056: BCF 0A.2`
		2164	`0057: ADDWF 02,F`
		2165	`0058: RETLW 4B`
		2166	`0059: RETLW 61`
		2167	`005A: RETLW 6C`
		2168	`005B: RETLW 69`
		2169	`005C: RETLW 62`
		2170	`005D: RETLW 72`
		2171	`005E: RETLW 61`
		2172	`005F: RETLW 63`
		2173	`0060: RETLW 65`
		2174	`0061: RETLW 00`
		2175	`*`
		2176	`0573: CLRF 39`
		2177	`0574: MOVF 39,W`
		2178	`0575: CALL 054`
		2179	`0576: INCF 39,F`
		2180	`0577: MOVWF 3E`
		2181	`0578: CALL 238`
		2182	`0579: MOVLW 09`
		2183	`057A: SUBWF 39,W`
		2184	`057B: BTFSS 03.2`
		2185	`057C: GOTO 574`
		2186	`.................... break;`
		2187	`057D: GOTO 59E`
		2188	`....................`
		2189	`.................... case 2:`
		2190	`.................... lcd_gotoxy(7,2);`
		2191	`057E: MOVLW 07`
		2192	`057F: MOVWF 3F`
		2193	`0580: MOVLW 02`
		2194	`0581: MOVWF 40`
		2195	`0582: CALL 227`
		2196	`.................... printf(lcd_putc,"Trim");`
		2197	`*`
		2198	`0062: BCF 0A.0`
		2199	`0063: BCF 0A.1`
		2200	`0064: BCF 0A.2`
		2201	`0065: ADDWF 02,F`
		2202	`0066: RETLW 54`
		2203	`0067: RETLW 72`
		2204	`0068: RETLW 69`
		2205	`0069: RETLW 6D`
		2206	`006A: RETLW 00`
		2207	`*`
		2208	`0583: CLRF 39`
		2209	`0584: MOVF 39,W`
		2210	`0585: CALL 062`
		2211	`0586: INCF 39,F`
		2212	`0587: MOVWF 3E`
		2213	`0588: CALL 238`
		2214	`0589: MOVLW 04`
		2215	`058A: SUBWF 39,W`
		2216	`058B: BTFSS 03.2`
		2217	`058C: GOTO 584`
		2218	`.................... break;`
		2219	`058D: GOTO 59E`
		2220	`....................`
		2221	`.................... case 3:`
		2222	`.................... lcd_gotoxy(6,2);`
		2223	`058E: MOVLW 06`
		2224	`058F: MOVWF 3F`
		2225	`0590: MOVLW 02`
		2226	`0591: MOVWF 40`
		2227	`0592: CALL 227`
		2228	`.................... printf(lcd_putc,"Vysilat");`
		2229	`*`
		2230	`006B: BCF 0A.0`
		2231	`006C: BCF 0A.1`
		2232	`006D: BCF 0A.2`
		2233	`006E: ADDWF 02,F`
		2234	`006F: RETLW 56`
		2235	`0070: RETLW 79`
		2236	`0071: RETLW 73`
		2237	`0072: RETLW 69`
		2238	`0073: RETLW 6C`
		2239	`0074: RETLW 61`
		2240	`0075: RETLW 74`
		2241	`0076: RETLW 00`
		2242	`*`
		2243	`0593: CLRF 39`
		2244	`0594: MOVF 39,W`
		2245	`0595: CALL 06B`
		2246	`0596: INCF 39,F`
		2247	`0597: MOVWF 3E`
		2248	`0598: CALL 238`
		2249	`0599: MOVLW 07`
		2250	`059A: SUBWF 39,W`
		2251	`059B: BTFSS 03.2`
		2252	`059C: GOTO 594`
		2253	`.................... break;`
		2254	`059D: GOTO 59E`
		2255	`.................... };`
		2256	`*`
		2257	`05BA: BSF 0A.0`
		2258	`05BB: BCF 0A.1`
		2259	`05BC: BSF 0A.2`
		2260	`05BD: ADDWF 02,F`
		2261	`05BE: GOTO 56E`
		2262	`05BF: GOTO 57E`
		2263	`05C0: GOTO 58E`
		2264	`.................... LED(1 << (polozka + 1));`
		2265	`*`
		2266	`059E: MOVLW 01`
		2267	`059F: ADDWF 36,W`
		2268	`05A0: MOVWF 21`
		2269	`05A1: MOVLW 01`
		2270	`05A2: MOVWF 39`
		2271	`05A3: MOVF 21,F`
		2272	`05A4: BTFSC 03.2`
		2273	`05A5: GOTO 5AA`
		2274	`05A6: BCF 03.0`
		2275	`05A7: RLF 39,F`
		2276	`05A8: DECFSZ 21,F`
		2277	`05A9: GOTO 5A6`
		2278	`05AA: MOVF 39,W`
		2279	`05AB: MOVWF 3B`
		2280	`05AC: CALL 1E7`
		2281	`.................... Delay_ms(250);`
		2282	`05AD: MOVLW FA`
		2283	`05AE: MOVWF 3F`
		2284	`05AF: CALL 077`
		2285	`.................... }`
		2286	`.................... }`
		2287	`05B0: GOTO 333`
		2288	`05B1: BCF 0A.3`
		2289	`05B2: GOTO 604 (RETURN)`
		2290	`.................... }`
		2291	`....................`
		2292	`.................... void main()`
		2293	`.................... {`
		2294	`.................... int8 tlacitka,tlacitka_old;`
		2295	`*`
		2296	`05C1: CLRF 04`
		2297	`05C2: MOVLW 1F`
		2298	`05C3: ANDWF 03,F`
		2299	`05C4: MOVLW 07`
		2300	`05C5: BSF 03.5`
		2301	`05C6: MOVWF 1F`
		2302	`05C7: MOVLW FF`
		2303	`05C8: BCF 03.5`
		2304	`05C9: MOVWF 25`
		2305	`.................... setup_adc_ports(RA0_RA1_RA3_ANALOG);`
		2306	`05CA: MOVLW 04`
		2307	`05CB: BSF 03.5`
		2308	`05CC: MOVWF 1F`
		2309	`.................... setup_adc(ADC_CLOCK_DIV_2);`
		2310	`05CD: BCF 03.5`
		2311	`05CE: MOVF 1F,W`
		2312	`05CF: ANDLW 38`
		2313	`05D0: IORLW 01`
		2314	`05D1: MOVWF 1F`
		2315	`.................... setup_spi(FALSE);`
		2316	`05D2: BCF 14.5`
		2317	`05D3: BCF 25.5`
		2318	`05D4: MOVF 25,W`
		2319	`05D5: BSF 03.5`
		2320	`05D6: MOVWF 07`
		2321	`05D7: BCF 03.5`
		2322	`05D8: BSF 25.4`
		2323	`05D9: MOVF 25,W`
		2324	`05DA: BSF 03.5`
		2325	`05DB: MOVWF 07`
		2326	`05DC: BCF 03.5`
		2327	`05DD: BCF 25.3`
		2328	`05DE: MOVF 25,W`
		2329	`05DF: BSF 03.5`
		2330	`05E0: MOVWF 07`
		2331	`05E1: MOVLW 00`
		2332	`05E2: BCF 03.5`
		2333	`05E3: MOVWF 14`
		2334	`05E4: BSF 03.5`
		2335	`05E5: MOVWF 14`
		2336	`.................... setup_counters(RTCC_INTERNAL,RTCC_DIV_2);`
		2337	`05E6: BCF 03.5`
		2338	`05E7: CLRF 20`
		2339	`05E8: BTFSS 20.3`
		2340	`05E9: GOTO 5F2`
		2341	`05EA: MOVLW 07`
		2342	`05EB: CLRF 01`
		2343	`05EC: MOVLW 81`
		2344	`05ED: MOVWF 04`
		2345	`05EE: MOVF 00,W`
		2346	`05EF: ANDLW C0`
		2347	`05F0: IORLW 0F`
		2348	`05F1: MOVWF 00`
		2349	`05F2: CLRWDT`
		2350	`05F3: MOVLW 81`
		2351	`05F4: MOVWF 04`
		2352	`05F5: MOVF 00,W`
		2353	`05F6: ANDLW C0`
		2354	`05F7: IORWF 20,W`
		2355	`05F8: MOVWF 00`
		2356	`.................... setup_timer_1(T1_DISABLED);`
		2357	`05F9: CLRF 10`
		2358	`.................... setup_timer_2(T2_DISABLED,0,1);`
		2359	`05FA: MOVLW 00`
		2360	`05FB: MOVWF 21`
		2361	`05FC: MOVWF 12`
		2362	`05FD: MOVLW 00`
		2363	`05FE: BSF 03.5`
		2364	`05FF: MOVWF 12`
		2365	`....................`
		2366	`.................... lcd_init();`
		2367	`0600: BCF 03.5`
		2368	`0601: GOTO 0B7`
		2369	`.................... KL_init();`
		2370	`0602: GOTO 0F1`
		2371	`....................`
		2372	`.................... menu();`
		2373	`0603: GOTO 330`
		2374	`....................`
		2375	`.................... while(true)`
		2376	`.................... {`
		2377	`.................... //char xx;`
		2378	`.................... // if (true == read_kl(&xx))`
		2379	`.................... // {`
		2380	`.................... // printf(lcd_putc,"%C",xx );`
		2381	`.................... // }`
		2382	`.................... }`
		2383	`0604: GOTO 604`
		2384	`.................... }`
		2385	`....................`
		2386	`0605: SLEEP`

Subversion Repositories svnkaklik

(root)/schemata/prenos/letadlo/SW/vysilac/posledni_funkcni_verze/main.LST – Rev 6