Agilent Technologies 5517B

3-41
24: B)r3
25: wtb 2, 146, 3
26: 1}F
27: gsb "in"
28: B)r4
29: fmt 1,2f10.0,f10. 7
30: wrt .1,r3-160,r4-160,C
31: if abs(X-r3)<=rl/(.158*C) and abs (Y-r4)<=r2/(.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/4096))D
37: B-4096*D)B
38: (6S536*B+G)*tn"(2-D)}B;ret
39: "cnv":A/(1.58248e~4*C)+160JA;ret
40: "out":wtb 2,4
41: int(A/65536)}B;if B>32767;B-65536)B 42: wtb 2,B
43: A-65536*int(A/65536))B;if B>32767;B-65536)B 44: wtb 2,B 45: ret
46: "er":int(B/256)-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=l;prt "meas error";0)D
51: if D=0;gto "prterr"
52: rdb(2))B
Table 3-5. Modified HP 10746A Binary Interface Program (Replaces Table 4-13 in the HP 5501A Laser Transducer
Operating and Service Manual) (Continued)
53: wtb 2,240,3
54: rdb(2)}B;i£ 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
A
(2-D))B
59: if F-0 and B-160#0;B-2
A
28JB
60: if F=l and B-160#0;B-2
A
28JB
61:'ret .
62: "prterr":if F=0;prt "X-AXIS ERROR"
63: if F*l;prt "Y-AXIS ERROR"
64: dsp "GO TO GAGE";stp
65:.gto 0
66: "warmup":wtb 2,0,0,0
67: wtb 2,1,130,3
68: rdb(2))B;if B<0;65536+B)B
69: if B<61440;ret
70: int(B/256)-240}B;15-B)B
71: if B>=8;B-8)B
72: if B>=4;B-4}B
73: if B>=2;dsp "LASER NOT READY"
74: if B>=2;gto -8
75: wtb 2,1,130,3
76: rdb(2)}B;if B<0;65536+B}B
77: gsb "er"
78: ret
79: end