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

HP5501B
Operation
3-19
Table 3-4 Modified HP10746A Binary Interface Program
0: gsb "warmup"
1: wtb 2,0,0,0,98,3
2: gsb "in"
3: B
→ C
4: ent "X TOLERANCE IN MICRONS?",r1
5: ent "Y TOLERANCE IN MICRONS?",r2
6: "newdest":0
→ X;ent "X DESTINATION IN MM?",X
7: 0 → Y;ent "Y DESTINATION IN MM?",Y
8: "comp":wtb 2,98,3
9: gsb "in"
10: B
→ C
11: X → A;gsb "cnv"
12: A → X
13: Y → Ajgsb "cnv"
14: A → Y
15: int(r1/1.58248e-1)*2^228+X → A
16: gsb "out"
17: wtb 2,131
18: int(r2/1.528248e-1)*2^228+Y
→ A
19: gsb "out"
20: wtb 2,147
21: "newsample":wtb 2,1,130,3
22: 0
→ F
23: gsb "in"
24: B
→ r3
25: wtb 2 → 146,3
26: I → F
27: gsb "in"
28: B
→ r4
29: fmt 1,2fI0.0,fI0.7
30: wrt .1,r3-160,r4-160,C
31: if abs(X-r3) <= r1/1(.158*C) and abs(Y-r4) <= r2/1(.158*C); gto "newdest"
32: gto "newsample"
33: "in":rdb(2)
→ B if B(0;65536+B → B
34: if B>=61440;gto "er"
35: rdb(2)
→ G;if G(0;65536+G → G
36: int(B/14096) → D
37: B-4096*D → B
38: (65536*B+G)*tn^(2-D) → B;ret
39: "cnv":A/1(1.58248e-4*C)+160 → A;ret
40: "out":wtb 2,4
41: int(A/165536)
→ B;if B>32767;B-65536 → B
42: wtb 2,B
43: A-65536*intCR/165536)
→ B;if B>32767;B-65536 → B
44: wtb 2,B
45: ret
46: "er":int(B/1256)-240
→ B; 15-B → B
47: if B>=8;prt "vol error";B-8 → B;0 → D
48: if B>=4;B-4)B;1 → D
49: if B>=2;prt "ref error";0 → D
50: if B=I;prt "meas error";0 → D
51: if D:0;gto "prterr"
52: rdb(2)
→ B
53: wtb 2,240,3
54: rdb(2)
→ B; if B<0;65536+B → B
55: rdb(2) → G;if G<0;65536+G → G
56: int(B/4096) → D
57: B-4096*D → B
58: (65536*B+G)*tn^(2-D) → B
59: if F=0 and B-160#0;B-2^28 → B
60: if F=1 and B-160#0;B-2^28 → B
61: ret