clk EQU p0.0
data EQU p0.1


DATAORG 8h
..............
..............
ORG 0000h
jmp main
............
...........
ORG 0030h
main:
;dealy till kbd intialization

;use get C when required

;**************************************************
getc:
mov r2,#8h
clr c
clr a
setb clk
setb data ;lines are idle and ready for io
wait_start:
jb data,wait_start ;wait for zero data bit
call r_edge
get_scan:
call f_edge
mov c,data
rlc a
call r_edge
djnz r2,get_scan
call f_edge
mov c,data
jb p,odd
cpl c
odd:
clr clk ;inhibit kbd
ret ;if cy flag set ther is an error
;****************************************************
r_edge:
jnb clk,r_edge
ret
;****************************************************
f_edge:
jb clk,f_edge
ret




this is the code i wrote after reading the links. any comments or bugs, or its fully garbage?.


abhishek