pls help me convert C to PICBASIC

[marcasjr]

please help me convert this C code to PICBASIC, it is using SPI protocol..

#define MaxSayisi 2

void max6952_putchar(char reg,char data)
{
unsigned char dongu=1;
   PORTC.F0 = 0;
   for(dongu=1;dongu<=MaxSayisi;dongu++){
   SPI_WRITE(reg);
   SPI_WRITE(data);
}
   PORTC.F0 = 1;
   PORTC.F0 = 0;

}

void MAX_6952_init(){

   max6952_putchar(0x04,0x01);  //Configuration

   max6952_putchar(0x01,0x0FF);

   max6952_putchar(0x02,0x0FF);

   max6952_putchar(0x03,0x01);

}

void main(){

   unsigned char dongu=1;
   char a[ ]="   ali raza  ";
   int i;
   TRISC=0B00011000;
   Spi_Init();
   MAX_6952_init();
   while(1)
   {

   for(i=0;i<=10;i++){
   max6952_putchar(0x20,a[i]);
   max6952_putchar(0x21,a[i+1]);
   max6952_putchar(0x22,a[i+2]);
   max6952_putchar(0x23,a[i+3]);
   delay_ms(500);
}

}

 }

this i've done so far...

Device 16F877A
XTAL = 20     
ALL_DIGITAL = TRUE 
Symbol CS = PORTC.4				' SPI eeprom CS line
Symbol SCK = PORTC.3			' Clock pin
Symbol SI = PORTC.5				' Data in pin
Symbol SO = PORTC.5		
Dim reg as BYTE
Dim datas[10] as BYTE
Dim dongu as BYTE

MAX6952_Init:
    PORTC.0=0
	FOR dongu = 1 to 2
	Shout SI, SCK, MSBFIRST, [0x04]
	Shout SI, SCK, MSBFIRST, [0x01] 
	NEXT
	PORTC.0=1
	PORTC.0=0	
	
	PORTC.0=0
	FOR dongu = 1 to 2
	Shout SI, SCK, MSBFIRST, [0x01]
	Shout SI, SCK, MSBFIRST, [0xFF] 
	NEXT
	PORTC.0=1
	PORTC.0=0	
	
	PORTC.0=0
	FOR dongu = 1 to 2
	Shout SI, SCK, MSBFIRST, [0x02]
	Shout SI, SCK, MSBFIRST, [0xFF] 
	NEXT
	PORTC.0=1
	PORTC.0=0	
	
	PORTC.0=0
	FOR dongu = 1 to 2
	Shout SI, SCK, MSBFIRST, [0x03]
	Shout SI, SCK, MSBFIRST, [0x01] 
	NEXT
	PORTC.0=1
	PORTC.0=0	

	Return
max6952_putchar:
    PORTC.0=0
	FOR dongu = 1 to 2
	Shout SI, SCK, MSBFIRST, [reg]
	Shout SI, SCK, MSBFIRST, [datas[0]] 
	NEXT

	PORTC.0=1
	PORTC.0=0			
    
    Return

Main:
	TRISC=%010001100
	Goto MAX6952_Init
	reg=0x20
	datas[0]="A"
	Goto max6952_putchar
     Delayms 500
Goto main

I notice that PORTC.0 is not having output in Proteus when i use my PICBASIC code...

is PORTC.F0 is PORTC.0 in PICBASIC?

excuse me for my wrong grammar...
thanks...

[Archangel]

PBP <>Proteus
PBP != Proteus
Which is to say, PBP code is pretty much useless in Proteus and vice versa. This forum is for M E Labs Pic Basic, I am sure there is a Proteus forum if you check Google. If you get the correct compiler to use , I am sure you can get some help here.
Best Regards,
JS
BTW, your grammar needs no excuse, it is quite acceptable.

[marcasjr]

I use Proton+ PICbasic from Crownhill, I use Proteus ISIS Professional as Simulator...

[Archangel]

I use Proton+ PICbasic from Crownhill, I use Proteus ISIS Professional as Simulator...

Proton <> PBP _ Crownhill sponsors their forum too, and also sells that compiler.
Your Code as posted with my comments in red:

Device 16F877A
XTAL = 20   <font color=red> DEFINE OSC 20</font color>  
ALL_DIGITAL = TRUE  <font color=red> Not in PBP 

The following will work but there are better ways.</font color>
Symbol CS = PORTC.4		       ' SPI eeprom CS line
Symbol SCK = PORTC.3		      ' Clock pin
Symbol SI = PORTC.5			' Data in pin
Symbol SO = PORTC.5		
<font color=red> Like . . . 
CS VAR PortC.4
No Dims in PBP </font color>
Dim reg as BYTE
Dim datas[10] as BYTE
Dim dongu as BYTE
<font color=red> do it this way
Dongu VAR BYTE
Datas VAR BYTE[10]</font color>
MAX6952_Init:
    PORTC.0=0
	FOR dongu = 1 to 2
	Shout SI, SCK, MSBFIRST, [0x04]
	Shout SI, SCK, MSBFIRST, [0x01] 
	NEXT
	PORTC.0=1
	PORTC.0=0	
	
	PORTC.0=0
	FOR dongu = 1 to 2
	Shout SI, SCK, MSBFIRST, [0x01]
	Shout SI, SCK, MSBFIRST, [0xFF] 
	NEXT
	PORTC.0=1
	PORTC.0=0	
	
	PORTC.0=0
	FOR dongu = 1 to 2
	Shout SI, SCK, MSBFIRST, [0x02]
	Shout SI, SCK, MSBFIRST, [0xFF] 
	NEXT
	PORTC.0=1
	PORTC.0=0	
	
	PORTC.0=0
	FOR dongu = 1 to 2
	Shout SI, SCK, MSBFIRST, [0x03]
	Shout SI, SCK, MSBFIRST, [0x01] 
	NEXT
	PORTC.0=1
	PORTC.0=0	

	Return
max6952_putchar:
    PORTC.0=0
	FOR dongu = 1 to 2
	Shout SI, SCK, MSBFIRST, [reg]
	Shout SI, SCK, MSBFIRST, [datas[0]] 
	NEXT

	PORTC.0=1
	PORTC.0=0			
    
    Return

Main:
	TRISC=%010001100
	Goto MAX6952_Init
	reg=0x20
	datas[0]="A"
	Goto max6952_putchar
     Delayms 500<font color=red> Nope! Pause 500</font color>
Goto main

That should give you something to chew on a while.

[Acetronics2]

Hi, Marcasjr

You should switch to the other Crownhill forum, if you want to go on with PROTON ...

Alain

[Archangel]

It took me a minute to find it:
http://www.picbasic.org/forum/