}.
' }. |
' | ^
' /\ / \
' \\\\\\ / \ / .[ \
' (-O-O-) / - \ / .; \
' \(-)/ / \ /=----- "\
'*---------00o0--W----0o00-------* / ] \ ^ | / \ |
'@ project name: servo-eepronm @ / . |__ \ / \ | | | |
'@ programed by : HATEM @ / __ ' \ / \ _| | | |_
'@ DATE : @ /J^..| | 4_|_||\ |= | <<==-=-=-=-===>>
'@ COUNTRY LEBANON @ / . [ ,. \ |[ ]| \___ ___ _/ help??
'@ langueg name: pbasic @ /::::::::::::::::: \_;__|__ | | p
'@ EMAIL: STAMPIC@YAHOO.COM @ ({{{{{{{{{{ }}}}}}}}})=-=-=-> | # [] | /|\
'@ VOLTS = 5 DC @ | ] ^ [ | .|/ | | /\
'@ you may use this pro only for @ | / \ l | | |[*] | |
'@study perposes and hoby you may@ | ' / \ _ | ; | | ; |
'@copy it but as it with no @ | , / \ _ |. | | __ |
'@change to its contents @ | __ / \ _| []| | - |
'@copy right @ | ;( ) | | | |- |
'@ @ |00000|~~~~~~~|00000| - | | _ |
'@ @ | -- | | | |---|;\ | __ |
'@ @ | | {|} |. | -__ \ | ' |
'@ @ | . | | |. | _-_ -- -\ | __ |
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@---|_____|___|___|_____|____--- ___/ .... \____
'------------------------------------------------------------------------------------------------
'SERVO EEPROM CONTROLED
'I WILL TRY TO READ RETIME RISISTENS THEN DISPLAY THE SAME MOVEMENT TO
'SERVO NO NEED TO 0831 WELL I DID IT JUST DELET ' & YOU ARE
READY
'A PRO TO READ 0831 THEN WRITE THE DATa TO EEPROM THEN WHEN REALISING PIN5
'DIRS =%1111111110101101'THE DATA ARE SENDED TO SERVO
SERVOTIME VAR WORD
LOCAT var
WORD 'ADRES LOCATION
cs con
0
ADdaT con
1
clk con
2
servo VAR WORD
CHECK: IF IN6= 1 THEN DATA_LOG
GET_MEMORY:
FOR
LOCAT = 0 TO 200
READ
LOCAT,SERVO
GOSUB PULS_SERVO
DEBUG ? SERVO
' PAUSE 5
NEXT
PAUSE 6000
GOTO
CHECK
DATA_LOG: 'IN CASE YOU WANDER IT
NEEDED 1.5 SECOND TO LOG 200
LOCAT =
0 'STEEP BUT WITH OUT USING THE DEBUG IT SLOW PROSES
SERVO = 0
FOR
LOCAT = 0 TO 200
'PAUSE 5
OUTd =
255 'JUST a LIGHT TO
SIGNEL START LOGING DATA
GOSUB
MEASURE 'fram EEPROM to SERVO
WRITE LOCAT,SERVO
DEBUG ? SERVO
' PAUSE 5
OUTH =
2
NEXT
PAUSE 6000
GOTO CHECK
MEASURE:
'HATEM
' high 4 'FOR
RECTIME
' pause 1'FOR
RECTIME
' rctime 4,1,SERVO'10K +2.2 K IN SERIES+ 56NK CAPACITER'FOR
RECTIME
' debug ? SERVO
''pause
50
SERVO = 0 'FOR SHIFTIN
Low cs 'FOR SHIFTIN
shiftin ADdat,clk,msbpost,[SERVO\9] 'FOR SHIFTIN
high cs 'FOR SHIFTIN
' Pause 100
DEBUG ? SERVO
RETURN
PULS_SERVO:'SERVOTIME = SERVO *4 'FOR RECTIME
servotime = SERVO * 5 'FOR SHIFTIN
freqout 5,150,200' pulsout 5,servotime
' PAUSE 5
RETURN