HP 5501B Operating And Service Manual page 38

HP5501B
Operation
62: "prterr": if F=0;prt "X-AXIS ERROR"
63: if F=1;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+E→B
69: if B<61440;ret
70: int(B/256)-240→B;15-B→B
71: if B>=S;B-S→B
72: if B>=4;B-4→B
73: if B>=2;dsp "LASER NOT READY"
74: if B>=2;gto -S
75: wtb 2,1,130,3
76: rdb(2)→B; if B<0;65536+B→B
77: gsb "er"
78: ret
79: end
3-20