360
!
Dimension a computer variable to store the measurements.
370
!
(size = number of bursts * number of readings per burst.)
380
REAL Readings(1:25)
390
!
Trigger the multimeter one time for each burst specified by the
400
!
Trigger Count parameter. A wait period equal to the number of readings
410
!
in the burst times the aperture time is inserted to allow the measurement
420
!
computation(s) to complete. All bursts occur before the readings are read
430
!
from the buffer.
440
FOR I=1 TO 5
450
CALL Peek_meas(13)
460
WAIT 5*.0167
470
NEXT I
480
!
Retrieve the measurement(s) and convert the measured signal to volts,
490
!
ohms, etc.
500
CALL Read_data(Readings(*))
510
END
520
!
The timing of events within a register-based program is controlled by
530
!
monitoring the Status register for conditions which indicate when an
540
!
event is in progress or has finished. The following subprogram reads
550
!
the Status register and is called by other subprograms to determine when
560
!
an action can be performed.
570
SUB Read_status(Status,Rdy,Done,Indardy,Qryrdy,Noerr,Pass_fail)
580
Read_status: !
590 COM
Base_addr,Aper,Func,Rng
600 Status=READIO(-16,Ba4)
610
Rdy=BIT(Status,0)
620
Done=BIT(Status,7) AND Rdy
630
Indardy=BIT(Status,4) AND Done
640
Qryrdy=BIT(Status,1) AND Done
650
Noerr=NOT (NOT (BIT(Status,6)) AND Done)
660
Pass_fail=BIT(Status,2)
670
SUBEND
680
!
This subprogram calls the Read_status subprogram to check status bit 0
690
!
(Cmd/Parm Rdy) to determine when a command or parameter can be sent.
700
SUB Wait_not_bsy
710
Wait_not_bsy: !
720
COM Base_addr,Aper,Func,Rng
730
REPEAT
740 CALL
Read_status(Status,Rdy,Done,Indardy,Qryrdy,Noerr,Pass_fail)
750
UNTIL Rdy
760
SUBEND
Continued on Next Page
Appendix C
HP E1326B/E1411B Multimeter Register-Based Programming 235
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com