Table 3-2. Program Modifications For Table 4-13 In The Hp5501A System Manual - HP 5501B Operating And Service Manual

Table 3-2. Program Modifications for Table 4-13 in the HP5501A System Manual

0: gsb "warmup"
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;B8→B
72: if B>=4;B4→B
73: if B>=2;dsp "LASER NOT READY"
74: if B>=2;sto -8
75: wtb 2,1,130, 3
76: rdb(2) →B;if B<0;65536+B→B
77: gsb "er"
78: ret
79: end
Branch to warmup subroutine monitor laser status
System reset 10746A in 16 bit mode
1 = simultaneous sample
130 = transfer X Comparator Counter contents to
10746A
3 = prepare for output to host computer
Read first word
If 4 MSB's are clear, 5517A is READY
Otherwise isolate ~REFERENCE ERROR BIT
If ~REFERENCE ERROR BIT true, try again
Abort transfer and setup new transfer in order to
read first word again.
Use subroutine "er" to identify remaining error
Return to program step 1 only if ~OVL ERROR BIT is
true
HP5501B
Operation
3-17