HP 5501A Operating And Service Manual page 253

Table A-I. Counter-Based System Using HP 9830A (BASIC Language) (cont'd)
470 CMD "?U"
480 FORMAT 3B
490 OUTPUT (13,480)256,
25, 512;
500 C M D "?U)", "0P"
510 RETURN
600 B=B-112
I
650 IF B<8 THEN 700
670 GOSU B 900
I
680 B=B-8
690 D=l
700 I F B<4 THEN 740
710 PRlNT "VOL-OUT
1
OF RANGE"
720 B=B-4
730 D=O
740 I F B<2 THEN 780
750 PRlNT "MEAS ERROR"
1
760 B=B-2
770 D=0
780 IF B#l THEN 800
1
790 PRINT "REF ERROR"
795 D=0
800 IF D=l THEN 848
802 I F A#0 THEN 806
804 PRINT "X-AXIS ERRORJ'
806 I F A # l THEN 810
808 PRlNT "Y-AXIS ERROR"
828 DlSP "GO TO GAGE";
820 STOP
830 G O T 0 10
840 RETURN
900 IF A#0 THEN 920
910 X=X-(2t28/10)*6.23023Ea*~
928 I F A # l THEN 940
930 Y=Y-2t28*6.23023E-06*C
940 RETURN
950 END
End serial poll
Overflow only; clear error on HP-IB as overflow can clear
itself.
STATUS BYTE
Vol
Over Over Meas Ref
SRQ I 1 Flow Range Error Error
6 5 4 3 2 1 BIT
Strip off Bits 5 , 6, and 7
Handle Overflow
Overflow Strip off Bit 4 (Subroutine 900)
D = l
Strip off Bit 3
Vol Error
D
=
0 Irrecoverable error
Strip off Bit 2
Meas Error
D
=
0 Irrecoverable error
Strip off Bit 1
Ref Error
D
=
0 Irrecoverable error
D
=
1 overflow only; a recoverable error. Return
D = 0 Irrecoverable Error
Print which Axis
Display
"GO TO GAGEJ' and then stop
If X , make X negative. If counter goes negative.
If Y , make Y negative. If counter goes negative.