Table 3-4 Modified Hp10746A Binary Interface Program - HP 5501B Operating And Service Manual

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