PİC IR ALICI VERİCİ SORUN VAR ACİL YARDIMA İHTİYAÇ VAR

[platoonn]

arkadaşlar Ir alıcı verici yapmak istiyorum ancak şu 38 khz kafamı karıştırıyor.
Serin   serout komutlarıyla yapmak mümkünmü bunu yoksa bu 38 khz i kendimizmi üretmek zorundayız.
devrenin cok hassas olması gerekmiyor çalışsın yeter.

bide derleme yaparken  Error[113] C:\PBP\PBPPIC14.LIB 1630 :     symbol not previusly defined (PORTA) diyor programı kendim yazmadığım için anlamıyorum sorun nerde .Belen biri varsa bi el atsın

vericinin  nin komutu


   Include "Modedefs.Bas"
   Include "Irserout.Inc"         ' Load in the New Subroutine

' ** Set Xtal Value in mHz **

   Define   OSC      4      ' Set Xtal Frequency

' ** New Defines for IRSEROUT **

   Define   IRSEROUT_PORT   PortB      ' Set IRSEROUT Port
   Define   IRSEROUT_BIT   7      ' Set IRSEROUT Pin
   Define   IRSEROUT_BAUD   2400      ' Set IRSEROUT Baud Rate
   Define   IRSEROUT_PACING   1      ' Set the delay between bytes sent (in ms)
   Define   IRSEROUT_HEADER   0      ' Turn on/off the three byte header "#OK"

' ** Declare Variables **

   Counter      Var   Byte      ' Count from 0 to 255
   IR_ID      Con   1      ' Transmitter number

' ** Start of Program **

Start:   Pause 500            ' Wait For the Pic to Initialize

Main:   For Counter=0 to 255
   IR_BYTE="#":Gosub IRSerout      ' Send a three byte header
   IR_BYTE="O":Gosub IRSerout      ' to syncronise the receiver
   IR_BYTE="K":Gosub IRSerout      ' with the actual byte sent
   IR_BYTE=IR_ID:Gosub IRSerout      ' Send out the transmitter number      
   IR_BYTE=Counter            ' Send out the data byte
   Gosub IRserout
   Next
   Goto Main            ' Infinite Loop


bide bunun alt programı var ama programın tam olarak mantığını anlamadım iyi bilen birisi bi göz geçirse.