32-bit Quadrature Counter With Serial Interface

[precision]

Can enybody convert this code into picbasic using SHIFTIN ? I dont know ASM
LS7366R is a 32-bit CMOS counter, with direct interface for quadrature clocks from incremental encoders.For communications with microprocessors or microcontrollers, it provides a 4-wire SPI/MICROWIRE bus.The four standard bus I/Os are SS/, SCK, MISO and MOSI.



;Sample routines for PIC18CXXX interface
/************************************************** **********************************/
;Initialize PIC18Cxxx portc in LS7366 compatible SPI
;Setup: master mode, SCK idle low, SDI/SDO datashift on high to low transition of SCK
;SS/ assertion/deassertion made with direct manipulation of RA5
;Initialize portc
CLRF PORTC ;Clear portc
CLRF LATC ;Clear data latches
MOVLW 0x10 ;RC4 is input, RC3 & RC5 are outputs
MOVWF TRISC ;RC3=CLK, RC4=SDI, RC5=SDO
BCF TRISA, 5 ;RA5=output
BSF PORTA, 5 ;RA5=SS/=high
CLRF SSPSTAT ;SMP=0 => SDI data sampled at mid-data
BSF SSPSTAT, CKE ;CKE=1 => data shifts on active to idle SCK transitions
MOVLW 0x21 ;SPI mode initialization data
MOVWF SSPCON ;Master mode, CLK/16, CKP=0 => CLK idles low
;data shifted on active to idle CLK edge
/************************************************** ******************/
; WR_MDR0
BSF PORTA, 5 ;SS/=high
BCF PORTA, 5 ;SS/=low
MOVLW 0x88 ;LS7366 WR_MDR0 command
MOVWF SSPBUF ;Transmit command byte
LOOP1 BTFSS SSPSTAT, BF ;Transmission complete with BF flag set?
BRA LOOP1 ;No, check again
MOVF SSPBUF, W ;Dummy read to clear BF flag.
MOVLW 0xA3 ;MDR0 data:fck/2, synchronous index. index=rcntr, x4
MOVWF SSPBUF ;Transmit data
LOOP2 BTFSS SSPSTAT, BF ;BF set?
BRA LOOP2 ;No, check again
BSF PORTA, 5 ;SS/=high
/************************************************** ******************/
;RD_MDR0
BSF PORTA, 5 ;SS/=high
BCF PORTA, 5 ;SS/=low
MOVLW 0x48 ;LS7366 RD_MDR0 command
MOVWF SSPBUF ;Transmit command byte
LOOP1 BTFSS SSPSTAT, BF ;BF flag set?
BRA LOOP1 ;No, check again
MOVWF SSPBUF ;Send dummy byte to generate clock & receive data
LOOP2 BTFSS SSPSTAT, BF ;BF flag set?
BRA LOOP2 ;No, check again
MOVF SSPBUF, W ;Recieved data in WREG.
MOVWF RXDATA ;Save received data in RAM
BSF PORTA, 5 ;SS/=high



Datasheet: http://www.lsicsi.com/pdfs/Data_Sheets/LS7366R.pdf

.

[precision]

I wrote this code but not working




DEFINE OSC 20
INCLUDE "MODEDEFS.BAS"
INCLUDE "MY_LCD.bas
CMCON = 7
ADCON1 = 15
CVRCON = %00000000 'CVref turned off

OUTPUT PORTA.5
OUTPUT PORTC.3
OUTPUT PORTC.5
INPUT PORTC.4

Symbol HC_latch = PORTA.5
symbol HC_SDI = PORTC.4 ;RC4=SDI
symbol HC_SDO = PORTC.5 ;RC5=SDO
SYMBOL HC_Clk = PORTC.3 ;RC3=CLK

RD_MDR0 var word
WR_MDR0 var word

pause 1000

start:
HC_Latch = 0
shiftin HC_SDI, HC_Clk, MSBFIRST,[RD_MDR0]
pauseus 1
HC_Latch = 1

Lcdout $FE,1
lcdout "Count =", DEC5 RD_MDR0

pause 200
goto start



.

[skimask]

I wrote this code but not working.

And this is for which PIC?

[precision]

for PIC 18F4550

.

[RodSTAR]

I don't ASM. BTW, A good choice you may consider is to get a cheap and powerfull PIC18Fxx31: 2331 2431 4331 or 4431, wich provide a powerfull hardware Quadrature Encoder Interface (QEI) onchip module, with a confortable wide set of interrupts focused on presition and fast rotary decoding. Hope this pics help you.