Programmation
-
PS
50
1
0
REM Programme en langage evolue de modification de tolerance
ONSRQTHEN450
DELETE FS,C,D,F,P,S,T
REM Adresse par defaut du PS 5010
P=22
PRlNT
@
P:"USER ON"
PAGE
PRINT
PRlNT
"
Ce programme permet de regler manuellernent le PS 5010 et de"
PRlNT
"
modifier les tensions des Alimentations Flottantes d'un
%
+
ou
-"
PRlNT
"
en utilisant le bouton INST ID pour generer une interruption."
PRINT
"
PRINT
"
Entrer le pourcentage de modification (tolerance), puis RETURN."
INPUT T
PRlNT
PRlNT "Restaurer les reglages initiaux en face avant, puis appuyer"
PRINT "sur le bouton INST ID."
WIT
PRlNT
@
P:"VNEG?;VPOS?"
INPUT
@
P:A,B
LET F=l +TI100
PRlNT
PRINT
"
Plus ";Ti" tolerance en pourcentage positif."
PRlNT
@J
P:"VNEG ";A8F;";VPOS ";B8F
WIT
LET F= 1 -TI1 00
PRINT
PRlNT
"
Moins ";Ti" tolerance en pourcentage negatif.
PRlNT
@
P:"VNEG ";A8F;";VPOS ";B8F
WIT
PRlNT
PRlNT
"
Retour aux reglages initiaux."
PRlNT
@
P:"VNEG ";A;";VPOS
":B
GO TO 220
REM
Sous-progralnlne de del~~al~de
du
service
(SRO)
POLL D,S;P
IF S=67 OR S=83 THEN 540
PRlNT
PRlNT
"
adresse
dont est issue la demande de service
iSR9)
";P
PRlNT "Renvoi de I'etat POLL: ";S
PRlNT
@
P:"ERR?;"
INPUT
@
P:FS
PRlNT "F(eponse
a
I'interrogation ERR?:
";F$
RETURN
French
3-24
ADD
NOV
1985