Table 3-3. Modified Hp10745A Hp-Ib Interface Program - HP 5501B Operating And Service Manual

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
3-18
HP5501B
Operation