From Asm to Pascal

[cpri]

I've got some asm code wich reacts in a very basic way to the SPI protocol.
This cod is written in asm. I want to convert this code to Pascal
Now I do understand the way the program works. But I don't know the functions I have to use in Pascal I hope someone can help me with this
To keep it simple I want to do it bit by bit

Code: Select all

Check4Data
		movlw 	SSPSTAT			; test op data
		movwf 	FSR
		btfss	INDF,BF
		goto 	Check4Data

ReadData	; Check data indien bit 0 = 1 Led aan
		movf	SSPBUF,W		; lees rx buffer
		movwf	TmpRx			; zet in Tmp


		sublw	0x0				; Test of data == 0  en doe niets
		btfsc	STATUS,C		; skip if C = 0		Status  C = 1 als data = 0    
		goto	Check4Data

[zristic]

This assembly is not for dsPIC.

[cpri]

Sorry it should be posted in general Pascal for pics (without the ds)
Is there somebody you can put this post in the right forum (MikroPascal General) or should I repost it in there ??

[JARETAMAR]

The following is the equvalent pascal code:

Code: Select all

Var
  TmpRX : Byte;
begin
// Check4Data
  repeat
    repeat
      FSR := SSPSTAT;  // test op data
    until INDF.BF = 1;
    // ReadData   ; Check data indien bit 0 = 1 Led aan
    TmpRX:= SSPBUF; // lees rx buffer and zet in Tmp
  until TmpRx <> 0; //  Test of data <> 0
end.