Это - достаточно беспорядочный архив сообщений конференций сети fidonet, которые на момент их прочтения мной
показались полезными или интересными. Многие устарели, многие узкоспецифичны и малоинтересны, но может оказаться и что-то новое...
- __techs (2:5015/42) ----------------------------------------------- __techs - Msg : 728 of 1000 From : Dmitry Romanov 2:5090/11.16 05 Jul 98 11:24:20 To : All 05 Jul 98 19:20:18 Subj : pадиоудлиннитель из PANAS 7980/9080 ------------------------------------------------------------------------------- @AREA:SU.HARDW.SCHEMES 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)
