单片机电感电容表程序单片机电感电容表程序;Stazeno z www.HW.cz ;Autorem tohoto SW je Jiri Recek - j_recekdel.cz;uprava proti nedokonalemu nulovani s indikaci OK2TEJ; Program pro LC meterkurzofequ0Ch; Prikaz pro displejCALbitP1.4CX bitP1.3OSCOUTbitP3.5LCD_E bitP3.4LCD_RSbitP1.2D4_R1 bitP3.3D5_R2 bitP3.2D6_R3 bitP3.1D7_R4 bitP3.0citca data14 ; d 靗 en?kmito 鑤 u pro 鑑 sova 鑕citc1sdata15 ; deleni pro 1HzMeziVysledek1data18 ; 6 byt?; 19.23MeziVysledek2data24 ; 6 byt?; 25.29; Bitov?oblastSignbit3; Znam 韓 konulovano bit4; priznak OK nulovanizmerenobit6; frekvence p 鴈鑤 enazkalibrovanobit7RozCasdata39 ; roz?眸?n?鑑 sova 鑕frekvbdata40 ; 3byty zm 禅 en?frekvenceM1realdata44 ; meziv 齭 ledek pro v 齪 o 鑤 yM2realdata48 ; meziv 齭 ledek pro v 齪 o 鑤 yM3realdata52 ; meziv 齭 ledek pro v 齪 o 鑤 yF2realdata56 ; frekvence po zm 禅 en?; Kalibra 鑞?konstanty:F1realdata60 ; frekvence napr 醶 dnoC2realdata64 ; kapacita kalibra 鑞韍 o kondenz 醫 oruC1realdata72 ; kapacita kondenz 醫 oru C1L1realdata76 ; Induk 鑞 ost c 韛 ky L1kalnumdata80 ; pocet pruchodu pri kalibraci (1. neni pouzitelny); * za 栳 tek programu; Resetorg0hAJMPstart; P 鴈 ru?en?od 鑑 sova 鑕 0org0Bhajmpintt0; P 鴈 ru?en?od 鑑 sova 鑕 1org1BhincRozCasretiorg30hstart:CLREAMOVSP,#88acall init; inicializace po zapnut?; * Za 栳 tek cyklu; program b?st 醠 e dokola.cykl:; zapamatovat frekvenci kalibra 鑞?; pokud je stisknuto tla 桧 tko S2movc,CAL; tla 桧 tko S2cplcanlc,/zkalibrovano; Pouze jednou v okam?iku sepnut?jnccykl03clrnulovanomovkalnum,#0movr0,#F2real; Zkop 韗 ovat hodnotumovr1,#F1realacall movrealcykl03:movc,CALcplcorlc,zkalibrovanomovzkalibrovano,c ; zapamatovat stav tla 桧 tka; Bit 韐 je nahozen v programu p 鴈 ru?en?; po zm 禅 en?frekvence.jnbzmereno,cykl01acall frekvence; p 鴈 vod frekvence do F2realjb CAL,cykl02acall kalibrace; V 齪 o 鑕 t kalibra 鑞韈 h hodnotmova,kalnumjz cykl04setbnulovanocykl04:inckalnum; zrus priznak spatne kalibrace pri 2. pruchoducykl02:; p 鴌 zma 鑛 nut 閙 tla 桧 tku S2movc,CALcplcmovzkalibrovano,cacall mereni; V 齪 o 鑕 t zm 禅 en?hodnotyclrzmereno; pznak vynulovat.cykl01:acall Zobraz; Zobrazov 醤?na displejiAJMPcykl; * Konec cyklu; * kalibrace:; V 齪 o 鑕 t kapacity kondenz 醫 oru C1; a induk 鑞 osti L1; L1=1movL1real,#0movL1real+1,#0movL1real+2,#80hmovL1real+3,#3Fh; M2=1movM2real,#0movM2real+1,#0movM2real+2,#80hmovM2real+3,#3Fh; L1=L1/F1movr0,#L1realmovr1,#F1realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#L1real; v 齭 ledek ulo?it do L1acall movreal; M1=F1/L1movr0,#F1realmovr1,#L1realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#M1realacall movreal; M2=M2/F2movr0,#M2realmovr1,#F2realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#M2realacall movreal; M2=F2/M2movr0,#F2realmovr1,#M2realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#M2realacall movreal; C1=M2movr0,#M2realmovr1,#C1realacall movreal; M2=-M2xrlM2real+3,#80h; M1=M1+M2movr0,#M1realmovr1,#M2realacall addrealmovr0,#4; adresa v 齭 ledkumovr1,#M1realacall movreal; C1=C1/M1movr0,#C1realmovr1,#M1realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#C1realacall movreal; M1=1movM1real,#0movM1real+1,#0movM1real+2,#80hmovM1real+3,#3Fh; M1=M1/C2movr0,#M1realmovr1,#C2realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#M1realacall movreal; C1=C1/M1movr0,#C1realmovr1,#M1realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#C1realacall movreal; L1=L1/F1movr0,#L1realmovr1,#F1realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#L1realacall movreal; M1=4PI2movM1real,#0E6hmovM1real+1,#0E9hmovM1real+2,#1DhmovM1real+3,#42h; L1=L1/M1movr0,#L1realmovr1,#M1realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#L1realacall movreal; L1=L1/C1movr0,#L1realmovr1,#C1realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#L1realacall movrealret; * mereni:; V 齪 o 鑕 t zm 禅 en?hodnoty; M1real=1movM1real,#0movM1real+1,#0movM1real+2,#80hmovM1real+3,#3Fh; M2real=1movM2real,#0movM2real+1,#0movM2real+2,#80hmovM2real+3,#3Fh; M1real=1/F1movr0,#M1realmovr1,#F1realacall divrealmovr0,#4; v 齭 ledekmovr1,#M1real; do M1realacall movreal; M1real=F1real/M1realmovr0,#F1realmovr1,#M1realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#M1realacall movreal; M1real=M1real/F2realmovr0,#M1realmovr1,#F2realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#M1realacall movreal; M1real=M1real/F2realmovr0,#M1realmovr1,#F2realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#M1realacall movreal; M2real=M2real/C1realmovr0,#M2realmovr1,#C1real; Pokud je m 禅 en?kapacityjnbCX,mereni01movr1,#L1real; Pokud je m 禅 en?induk 鑞 ostimereni01:acall divrealmovr0,#4; adresa v 齭 ledkumovr1,#M2realacall movreal; M1real=M1real/M2realmovr0,#M1realmovr1,#M2realacall divrealmovr0,#4; adresa v 齭 ledkumovr1,#M1realacall movreal; M1real=M1real-C1realxrlC1real+3,#80h; znam 閚 ko minusxrlL1real+3,#80h; znam 閚 ko minusmovr0,#M1realmovr1,#C1real; Pokud je m 禅 en?kapacityjnbCX,mereni02movr1,#L1real; Pokud je m 禅 en?induk 鑞 ostimereni02:acall addrealxrlC1real+3,#80hxrlL1real+3,#80hmovr0,#4; adresa v 齭 ledkumovr1,#M1realacall movrealret; *