Area : ‘奬ë Date : Sun Jul 05, 12:24 From : Dmitry Romanov 2:5090/11.16 To : All Subj : p ¤¨®ã¤«¨­­¨â¥«ì ¨§ PANAS 7980/9080 ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Hello All! ‚®â ¯p¨¬¥p ¯p®£p ¬¬¨p®¢ ­¨ï (­  32 ª ­ «) RF-¡«®çª®¢ ¨§ Panasonic 7980: === Cut === { Û L=80mm P=30mW Û L=88mm P=30mW ³ Ftx=904-905MHz ³ Ftx=814-815MHz ÚÄÄÄÄÂÄÁÄÄÂÄÄÄ¿ ÚÄÄÄÄÂÄÁÄÄÂÄÄÄ¿ 2þÄÄÄ5´ST ³7980³MICÃ2ÄÄ< 0.25Vpp 5þÄÄÄ5´ST ³7980³MICÃ2ÄÄ< 0.25Vpp 3þÄÄÄ6´DATA³BASE³TELÃ6ÄÄ> 1.0Vpp 6þÄÄÄ6´DATA³ HS ³TELÃ6ÄÄ> 1.0Vpp 4þÄÄ11´CLC ³ RF ÃÄÄÄ´ (ᬥé.2.5V) 7þÄÄ11´CLC ³ RF ÃÄÄÄ´ (ᬥé. 2.5V) ÃÄÄÄÄ´unit³UrxÃ1ÄÄÂÄÄ+5V ÃÄÄÄÄ´unit³UrxÃ1ÄÄÂÄÄ+5V ³ ³ ³UtxÃ4ÄÄ´ ³ ³ ³UtxÃ4ÄÄ´ 18þÄÂÄ3´GND ³ ³UtxÃ7ÄÄÙ ÚÄ3´GND ³ ³UtxÃ7ÄÄÙ ÄÁÄ ÀÄÄÄÄÁÄÄÄÄÁÄÄÄÙ ÄÁÄ ÀÄÄÄÄÁÄÄÄÄÁÄÄÄÙ þ - ª®­â ªâ LPT } uses Crt; const a: array[1..67] of byte = (255, 1,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0, 255, 1,0,1,0,0,1,1,1,1,0,1,1,1,1,1,0,1,1,1,0,1, 255, 0,0,0,1,1,0,0,0,1,1,0,1,0,1,0,1,0,1,1,0,1, 255); b: array[1..67] of byte = (255, 1,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0, 255, 1,0,1,0,1,0,0,1,0,0,0,0,1,0,1,0,1,1,1,0,1, 255, 0,0,0,1,0,1,1,1,1,1,1,1,0,1,0,0,0,1,1,0,1, 255); var i: word; procedure P(b: byte); begin Port[$378]:=b; Delay(1); end; begin for i:=1 to 67 do if a[i]=255 then P(255) else begin P(a[i]*2+b[i]*16+36); P(a[i]*2+b[i]*16); end; end. === Cut === Œ®¦¥â ªâ® ¯p¨ªpãâ¨â ª ­¨¬ PIC'窨 ¨ ¤¨ä.á¨á⥬㠤«ï ¯®¤ª«î祭¨ï ¬®¤¥¬®¢ ¨ ­ ¬ë«¨â ¬­¥ p¥§ã«ìâ âë? PS: 7980 á® èâ â­ë¬¨  ­â¥­­ ¬¨ _­ ÿ¯pאַ©ÿ¢¨¤¨¬®áâ¨_ ¡¥§ è㬮¢ ¢ï¦¥âáï ­  2km! /Dmitry/ --- _ÿ_ÿ_ÿ_ÿ_ÿ_ÿ_ÿ_ * Origin: #ÿ„¨ £­®á⨪ ÿ¨ÿ६®­âÿí«¥ªâà®­¨ª¨ÿ ¢â®¬®¡¨«¥©ÿ# (2:5090/11.16)