DEFINE OSC 8              'Oscilator
  ' Set receive register to receiver enabled
DEFINE HSER_RCSTA 90h 

' Set transmit register to transmitter enabled
DEFINE HSER_TXSTA 20h 

' Set baud rate
DEFINE HSER_BAUD 2400 

' Set SPBRG directly (normally set by HSER_BAUD)
DEFINE HSER_SPBRG 25
 USBBufferSizeMax   con 18  ' Maksimalna velicina bafera
 USBBufferSizeTX    con 18  ' Ulaz 
 USBBufferSizeRX    con 18  ' Izlaz

 'USB baferi
 USBBuffer        Var Byte[USBBufferSizeMax] 
 USBBufferCount   Var Byte
 
        
 usbinit 'inicijalizacija USB-a
 Pocetak:
	
 ProgramStart: 
    gosub DoUSBIn
    goto ProgramStart  

 'Podprogram za citanje podataka sa PC-a
 DoUSBIn:
   USBBufferCount = USBBufferSizeRX              'Velicina RX  bafera
   USBService                                    'Odrzi konekciju
   USBIn 1, USBBuffer, USBBufferCount, DoUSBIn   'Procitaj podatke
 
   If USBBuffer[0] = 254 Then
   hserout [dec3 usbbuffer[0]]
   Gosub DoUSBOut
   Endif
   
   Return

 'Podprogram za upis podatana na PC-u
 DoUSBOut:
   USBBufferCount = USBBufferSizeTX              'Velicina TX bafera
   USBService                                    'Odrzi konekciju
   hserin [usbbuffer[0]]
   if USBBuffer[0]=254 then
   
   'Realizacija AD konverzije
   
   hserin [usbbuffer[1]]
   hserin [usbbuffer[2]]
   hserin [usbbuffer[3]]
   hserin [usbbuffer[4]]
   hserin [usbbuffer[5]]
   hserin [usbbuffer[6]]
   hserin [usbbuffer[7]]
   hserin [usbbuffer[8]]
   hserin [usbbuffer[9]]
   hserin [usbbuffer[10]]
   hserin [usbbuffer[11]]
   hserin [usbbuffer[12]]
   hserin [usbbuffer[13]]
   hserin [usbbuffer[14]]
   hserin [usbbuffer[15]]
   hserin [usbbuffer[16]] 
   
   USBOut 1, USBBuffer, USBBufferCount, DoUSBOut 'Posalji podatke PC-u
   endif
   Return