HP 5501A Operating And Service Manual page 255

270 GOSU B 2000
280 R3=B
290 OUTPUT (2,5) 109,252;
Table A-2. Comparator-Based System Using HP 9830A
340 DlSP R3-160,R4-160,C
I
260 F=0
356 I F ABS (X-R3)<+Rl/(l.58E-B)
AND ABS (Y-R4)<=R2/(1.58E-1
THEN 60
F
=
0 for X-Axis
2060 Bl=BI-16*D
2070 B=(B1*2t 24+B2*65536+
B3*256+B4) *I01 (2-D)
2080 RETURN
2510 IF B1<8 THEN 2540
2520 BI=Bl-8
2530 PRINT "VOL ERROR"
2540 I F B1<4 THEN 2570
2550 Bl=BI-4
2560 D=l
2570 I F B1<2 THEN 2610
2580 PRINT "REF ERROR"
2 5 1 BI=Bl-2
2600 D=0
2610 IF B1=8 THEN 2640
2620 PRINT "MEAS ERROR"
2630 D=0
2640 IF D=8 THEN 5000
2650 BI=RBYTE2+RBYTE2+
RBYTE2
2660 OUTPUT (2,5)15,252;
Subroutine to input the number from the 10746A card.
Store the X-location in R3.
"109" "2Y" transfer Y to 10746A.
"252" "3P" prepare to transfer to calculator.
F = 1 for Y-Axis.
Subroutine to input the number from the 10746A Card.
Store Y-location in R4.
If X and Y are within tolerance, get another destination;
m)if not resample.
Read in bits 31-24 and complement bits; if bits 31-28 are all 1's
go to error checking routine.
Read in bits 23-16 and complement.
Read in bits 15-8 and complement.
Read in bits 7-0 and complement.
D contains bits 31-28 decimal point information.
B1 = bits 27-24
Apply proper weighting. 2-D applies decimal point.
B1
=
bits 31-24 initially. -240 clears bits 31-28 which indicated
an error.
Bits 27-24 need to be complemented by subtracting from 15.
If bit 27, VOL Error, clear bit 27.
If Bit 26, D = 1 as possible recoverable error. Clear bit 26.
If Bit 25, D
=
0 as irrecoverable error. Clear bit 25.
Print "REF ERROR".
If bit 24, irrecoverable error; so
D=0.
Print "Meas Error".
5000 if irrecoverable error.
Overflow only.
Read byte bit 23-0 to complete previous 3 P command.
15 "00" clears error bits on 10746A so 28 bits of data can be
transferred with "3P" command.