
Programming
Examples
1121
!
1123
Disc:
!
1125
LINPUT
"Internal
or
External
Disc?
(I
or
E).",Input$
1127
IF
UPC$(Input$)="E"
THEN
1129
D=1
1131
OUTPUT
@Rec;"STOIEXT;"!
Use
External
Disc
******
1133
LINPUT
"Insert
Disc
in
External
Drive,
then
Return",Input$
1135
ELSE
1137
D=0
1139
OUTPUT
@Rec;"STOIINT;"!
Use
Internal
Disc
******
1141
LINPUT
"Insert
Disc
in
Internal
Drive,
then
Return",Input$
1143
END
IF
1145
!
1147
Initdisc:
!
1149
LINPUT
"Initialize
Disc?
(ENTER
Y
or
N)",Input$
1151
IF
UPC$(Input$)="Y"
THEN
OUTPUT
@Rec;"INID;"
1153
!
1155
Storedisc:
!
1157
OUTPUT
@Rec;"STOR;
INSS1;
DISF
""IFILE1"";"
1159
OUTPUT
@Rec;"CHAN1;
STOR;
DATAFORM;
DISF
""DFILE1"";"
1161
OUTPUT
@Rec;"CHAN2;
STOR;
DATARAW;
DISF
""DFILE2"";"
1163
OUTPUT
@Rec;"STOR;
MEMO1;
DISF
""MFILE1"";"
1165
OUTPUT
@Rec;"STOR;
CALK1;
DISF
""KFILE1"";"
1167
OUTPUT
@Rec;"DIRE;"
1169
"Files
Stored
To
Disc,
Directory
Displayed"
1171
!
1173
LINPUT
"Press
Return
to
Load
Data",Input$
1175
!
1177
Loaddisc:
!
1179
"Load
Data"
1181
OUTPUT
@Rec;"LOAD;
INSS1;
DISF
""IFILE1"";"
1183
IF
D=1
THEN
OUTPUT
@Rec;"STOIEXT;"
!
If
INSS1
STOIINT;
1185
OUTPUT
@Rec;"HOLD;"
1187
"HOLD
Avoids
Overwritting
Data
Just
Loaded."
1189
OUTPUT
@Rec;"CHAN1;
LOAD;
DATAFORM;
DISF
""DFILE1"";"
1191
OUTPUT
@Rec;"CHAN2;
LOAD;
DATARAW;
DISF
""DFILE2"";"
1193
OUTPUT
@Rec;"CHAN2;
DISPDATA;
CHAN1;
DISPDATA;"
1195
"Must
Turn
Both
Channel's
Memories
Off
Before
Loading
any
Memory."
1197
OUTPUT
@Rec;"LOAD;
MEMO1;
DISF
""MFILE1"";"
1199
OUTPUT
@Rec;"CHAN1;
PARA1;
DISPDATM;
CONT;"
1201
!
1203
LINPUT
"Repeat
This
Sequence?
(ENTER
Y
or
N)",Input$
1205
IF
UPC$(Input$)="Y"
THEN
GOTO
Example10
1207
!
1209
OUTPUT
@Rec;"DIRE;"
1211
LINPUT
Contents
of
a
CITIfile?
(ENTER
Y
or
N)
External
Drive
Required
on
Controller
Bus",Input$
1213
IF
UPC$(Input$)="N"
THEN
RETURN
1215
LINPUT
"Output
to
Printer
or
Controller
CRT?
(ENTER
P
or
C)",Input$
1217
IF
Input$="P"
THEN
1219
LINPUT
"Is
Printer
on
8530
System
Bus?
(ENTER
Y
or
N)",Input$
1221
IF
UPC$(Input$)="Y"
THEN
1223
PRINTER
IS
717
1225
OUTPUT
@Rec;"ADDRPASS
01;"
1227
ELSE
1229
PRINTER
IS
701
!
Connected
to
Controller
HP-IB
1231
END
IF
1233
ELSE
1235
PRINTER
IS
1
!
to
Controller
CRT
1237
END
IF
1239
!
1241
LINPUT
"INSTALL
DISC
IN
CONTROLLER
DRIVE
0,
THEN
RETURN.",Input$
1243
Citiread:
!
1245
LINPUT
"NAME
OF
CITIfile
to
Read?",File_name$
HP-IB
Programming
18-45
Содержание 8530A
Страница 9: ......
Страница 31: ......
Страница 34: ...General Information Figure 1 2 Antenna Measurement Setup Using an HP 85310A GeneralInformation 1 3 ...
Страница 51: ......
Страница 65: ......
Страница 81: ......
Страница 83: ......
Страница 84: ...5 Menus Block Chapter Contents Calibration Domain Display Markers MenusBlock 5 1 ...
Страница 85: ...5 2 Menus Block ...
Страница 90: ...Calibration Requirements Figure 5 1 Cal and Cal Type Menus MenusBlock 5 7 ...
Страница 93: ...Antenna Calibration 5 10 MenusBlock ...
Страница 167: ......
Страница 195: ......
Страница 201: ......
Страница 209: ......
Страница 249: ......
Страница 281: ......
Страница 411: ......
Страница 419: ...Glossary Glossary 8 ...
Страница 439: ......