HP 5501B, Руководство по эксплуатации и обслуживанию, Страница: 36 / 120

HP5501B
Operation
3-18
Table 3-3. Modified HP10745A HP-IB Interface Program
0: gsb "warmup"
1: wrt 709,"0O6X"
2: wrt 709,"2V3O"
3: red 709,C
4: 0
→ E
5: "loop": E+1 → E; if E=10;gto -3
6: wrt709,"1O2X3O"
7: red 709,X
8: if rds(7)<128;gto +2
9: 0
→ A; gsb "status"
10: (X-16)*6.23023e-6*C → X
11: fmt 1,f12.6
12: dsp X
13: gto "loop"
14: "status":rds(709)
→ B
15: if B>=64;gsb "check"
16: wrt 709,"0P"
17: ret
18: "check": B-112
→ B
19: if B>=8;gsb "ovf"
20: if B>=4; prt "VOL OUT OF RANGE";B-4
→ B;0 → D
21: if B>=2; prt "MEAS ERROR";B-2 → B;0 → D
22: if B=1; prt "REF ERROR";0 → D
23: if D=2; ret
24: if A=0; prt "X-AXIS ERROR"
25: if A=1; prt "Y-AXIS ERROR"
26: dsp "GO TO GAGE"; stp
27: gto 0
28: "ovf":B-8
→ B; 1 → D
29: if A=0;X-2^28/10 → X
30: if A=1;Y-2^28 → Y
31: ret
32: "warmup": clr 7; rem 7
33: wrt 709,"0O0X"
34: wrt 709,"1X2X30"
35: if rds(7)<128;ret
36: rds(709)
→ B
37: if B<64;gto "bus error"
38: B-112
→ B
39: if B>=8;B-8 → B
40: if B>=4;B-4 → B
41: if B>=2;B-2 → B
42: if B=1;dsp "LASER NOT READY"
43: if B=1;gto -11
44: gsb "check"
45: ret
46: "bus error":
47: prt "SRQ ASSERTED BUT 10745A STATUS BYTE, BIT6 CLEAR"
48: stp
49: gto 0
50: end