16f877 and ps/2 keyboard error???

[boraciner]

Hi! I have been trying to make an interface between 16f877 and ps/2 keyboard but although I have connected the data and clk pins to PB.7 and PB.6 , I cannot see anything on my glcd.
Should I connect these pins with any pullup resistors from 5V or what shoud I do ??
I'm writing my codes below.. Pls help me!
Thans A Lot....




Include "PROTON18_452.BAS"
Device 16F877
WARNINGS = OFF


TRISB=%0110000
Symbol Giris PORTB.6
Symbol Clk PORTB.5
Dim dur As Bit
Dim ComingData As Byte
Dim B0 As Byte
Dim xpos As Byte
Dim ypos As Byte
Dim OKU As Byte
Dim ADRS As Word
Dim TEKRAR As Word
Dim ARRAY1[9] As Byte
Cls
BEGIN:
Dim i As Word
For i = 0 To 10 Step 1 '11 bitlik veri gelecek

While Clk =1 ' Ilk önce Clock=1 olmali
Wend

If i<9 & i>0 Then
ARRAY1[i]=ComingData
EndIf


While Clk = 0
Wend

While Clk = 0
Wend

Next

Cls
Print At 2,2, Str ARRAY1
DelayMS 500

GoTo BEGIN





End
Include "FONT.INC"

second part of the code for initalize GLCD ... There isn't any error..



' PROTON board for 16 series device
' Operating on 4MHz.
' Using a GRAPHIC LCD with an internal FONT

Device 16F877
XTAL 4
TRISB=%11010000
TRISA=%00000110
PORTB=0
LCD_DTPORT = PORTD
LCD_RSPIN = PORTC.1
LCD_ENPIN = PORTE.0
LCD_RWPIN = PORTC.0
LCD_CS1PIN = PORTE.1
LCD_CS2PIN = PORTE.2
LCD_TYPE = GRAPHIC
INTERNAL_FONT = On
FONT_ADDR = 0

SDA_PIN = PORTC.4
SCL_PIN = PORTC.3

SERIAL_BAUD = 2400
RSOUT_PIN = PORTC.6
RSOUT_MODE = TRUE
RSOUT_PACE = 1
RSIN_PIN = PORTC.7
RSIN_MODE = TRUE

HSERIAL_BAUD = 2400 ' Set baud rate to 2400
HSERIAL_RCSTA = %10010000 ' Enable serial port and continuous receive
HSERIAL_TXSTA = %00100100 ' Enable transmit and asynchronous mode
HSERIAL_CLEAR = On ' Enable Error clearing on received characters

'KEYPAD_PORT = PORTB
CCP1_PIN = PORTC.2
CCP2_PIN = PORTC.1

Symbol T300 = 3313 NO_LIST
Symbol N300 = 3313 + $4000 NO_LIST
Symbol T600 = 1646 NO_LIST
Symbol N600 = 1646 + $4000 NO_LIST
Symbol T1200 = 813 NO_LIST
Symbol N1200 = 813 + $4000 NO_LIST
Symbol T2400 = 396 NO_LIST
Symbol N2400 = 396 + $4000 NO_LIST
Symbol T4800 = 188 NO_LIST
Symbol N4800 = 188 + $4000 NO_LIST
Symbol T9600 = 84 NO_LIST
Symbol N9600 = 84 + $4000 NO_LIST

Symbol OT2400 = 396 + $8000 NO_LIST ' Open True
Symbol OT1200 = 813 + $8000 NO_LIST ' Open True
Symbol OT9600 = 84 + $8000 NO_LIST ' Open True
Symbol OT300 = 3313 + $8000 NO_LIST ' Open True

Symbol ON2400 = 396 + $4000 + $8000 NO_LIST ' Open Inverted
Symbol ON1200 = 813 + $4000 + $8000 NO_LIST ' Open Inverted
Symbol ON9600 = 84 + $4000 + $8000 NO_LIST ' Open Inverted
Symbol ON300 = 3313 + $4000 + $8000 NO_LIST ' Open Inverted

' Rsout / Serial Constants
Symbol HOME = 1 NO_LIST
Symbol BELL = 7 NO_LIST
Symbol BKSP = 8 NO_LIST
Symbol TAB = 9 NO_LIST
Symbol CR = 13 NO_LIST

ALL_DIGITAL = True ' Set PORTA and PORTE to all digital

[Archangel]

Hi boraciner, The project looks interesting, but this forum uses M E Labs PBasic not Proton, here is the link to the Proton Forum. I would be interested in following your project there, if you would do us the favor of posting a link in this thread to the new one you post there it would be appreciated. http://www.picbasic.org/forum/

[boraciner]

I have already opened a topic in that website, but no one answered..
If you're interested in, we can share our knowledge; I have a few robotics projects in my website : www.dreamrobotics.com
Secondly, My msn : [email protected] If you add me your contacts, we can communicate each other ...

Thanks a lot..