HP (Hewlett-Packard) 16501A Sander User Manual


 
Checking for Intermodule Measurement Completion
This program can be appended to or inserted into another program when you
need to know when an intermodule measurement is complete. If it is at the
end of a program it will tell you when measurement is complete. If you insert
it into a program, it will halt the program until the current measurement is
complete.
420 ! ****************** CHECK FOR MEASUREMENT COMPLETE **********************
430 ! Enable the MESR register and query the register for a measurement
440 ! complete condition.
450 !
460 OUTPUT 707;":SYSTEM:HEADER OFF"
470 OUTPUT 707;":SYSTEM:LONGFORM OFF"
480 !
490 Status=0
500 OUTPUT 707;":MESE0 1"
510 OUTPUT 707;":MESR0?"
520 ENTER 707;Status
530 !
533 ! Start a measurement
536 OUTPUT 707;":START"
540 ! Print the MESR register status.
550 !
560 CLEAR SCREEN
570 PRINT "Measurement complete status is ";Status
580 PRINT "0 = not complete, 1 = complete"
590 ! Repeat the MESR query until measurement is complete.
600 WAIT 1
610 IF Status=1 THEN GOTO 630
620 GOTO 510
630 PRINT TABXY(30,15);"Measurement is complete"
640 !
650 END
Programming Examples
Checking for Intermodule Measurement Completion
15–6