Programmierung
-
PS
5010
100
REM
High
level learn
and
tolerance change ProgPam
110 ON
SRQ
THEN
430
120
DELETE FIICTD~FIPISTT
130
REM
Default
address
for
the PSSOiO
140 P=22
150
PRINT
@P:'USER
ON'
160 PAGE
170
PRINT
180
PRINT
rn
This
rro#ram
8110~~ uou
to
manu.11~
sat
UP
tkw
P85010
'
190 PRINT
'
front panel and then change the
floating
surrlu voltaaes'
200
PRINT
@
bu
plus
and
minus
o
selectable
~ercentadev
bu
using
the'
210
PRINT
'
INST
ID button
es
a
user
interru~t.'
220
PRINT
230
PRINT
'
Enter percent tolerance chande~ then RETURN*
'i
240
INPUT
T
250
PRINT
260
PRINT'
Set
UP
front
panel
for initial settinsfsr then
press
'
270
PRINT
'
PS5010 INST
ID
button.'
280
WAIT
290
PRINT QPt8VNEG?iVPOS'?"
300
INPUT @P:AIE
310
LET F=l+T/100
320 PRINT
330 PRINT
'
Plus
'
;Ti
'
percent tolerance.
'
340 F'RINT @P:'VNEG 'iA*Fi8iVPOS 'iBtF
350 WAIT
360 LET F=l-T/100
370
PRINT
380
PRINT
'
M~~IJS
';Ti8 percent tolerance.'
390 PRINT @F:'VNEG 'iA*Fi8iVPOS 'iE*F
400 WAIT
410
F'RINT
420 PRINT
'
Returned to initial settinds."
430 PRINT @Pt8VNEG 'iAi'iVPQS 'iE
440
GO
TO
22Q
450
REM
SRR Service routine
460 POLL DpSiP
470
IF
S=67
OK
S=83
THEN
540
480 F'RINT
490 PRINT 'SRQ serviced
@
address 'iP
500 PRINT
'
POLL status returned:
'
is
510 PRINT @Pt'ERR?i8
520 INPUT
@F:F$
530 PRINT
'
Error Querr response:
'
iF$
540 RETURN
ADD
NOV
1985