Agilent Technologies 5517B

3-40
Table 3-4. Modified HP 10745A HP-IB Interface Program (Replaces Table 4-12 in the HP 5501A Laser Transducer
Operating and Service Manual)
0: gsb "warmup" 1: wrt 709,"006X" 2:
wrt 709, "2V30" 3: red 709,C 4: 0>E
5: "loop":E+l)e; if E=10;gto -3
6: wrt 709,"102X30"
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 l,fl2.6
12: dsp X
13: gto "loop"
14: "status":rds(709)}B
15: if B>=64;gsb "check"
16: wrt 709,"OP"
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=l;prt "REF ERROR";0}D 23: if
D=l;ret
24: if A=0;prt "X-AXIS ERROR" 25: if A=l;prt "Y-AXIS
ERROR" 26: dsp "GO TO GAGE";stp 27: gto 0
28: "ovf":B-8)B;l)D 29: if A=0;X-2
A
28/10)X 30:
if A=1;Y-2~28}Y 31: ret
32: "warmup":clr 7;rem 7
33: wrt 709, "000X"
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=l;dsp "LASER NOT READY" 43: if B=l;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
SO: end
Table 3-5. Modified HP 10746A Binary Interface Program (Replaces Table 4-13 in the HP 5501A Laser Transducer
Ooeratins. and Service Manual) (Continued)
0: gsb "warmup" 1: wtb 2,0,0,0, 98, 3 2:
gsb "in" 3: B)C
4: end "X TOLERANCE IN MICRONS?",rl
5: ent "Y TOLERANCE IN MICRONS?, r2
6: "newdest":01X;ent "X DESTINATION IN MM?",Y
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}A;gsb "cnv" 14: A)Y
15: int(rl/1.58248e-l)*2
A
28+X)A 16: gsb "out" 17: wtb
2,131
18: int(r2/1.58248e-l)*2*28+Y)A 19: gsb "out" 20: wtb
2,147
21: "newsample": wtb 2,1,130,3
22: 0}F
23: gsb "in"