Tektronix PS 5010

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