User`s manual

770 !This subprogram calls Read_status to check the validity of status bit 7
780 !(DONE). This ensures the validity of status bits 6,5,4, and 1.
790 SUB Wait_done
800 Wait_done: !
810 COM Base_addr,Aper,Func,Rng
820 REPEAT
830 CALL Read_status(Status,Rdy,Done,Indardy,Qryrdy,Noerr,Pass_fail)
840 UNTIL Done
850 SUBEND
860 !
This subprogram calls Read_status to determine if an error has occurred
870 !(status bit 6). If an error has occurred, the error code is displayed.
880 SUB Err_chk(Noerr)
890 Err_chk: !
900 COM Base_addr,Aper,Func,Rng
910 CALL Read_status(Status,Rdy,Done,Indardy,Qryrdy,Noerr,Pass_fail)
920 IF Noerr THEN Ok
930 WRITEIO -16,Base_addr+8;15
940 CALL Qry_ready
950 Errcode=READIO(-16,Base_addr+8)
960 Errcode=BINAND(Errcode,255)
970 PRINT “Error Code:”;Errcode
980 STOP
990 Ok:SUBEND
1000 !
This subprogram calls Read_status to determine when an error code or
1010 !a response to an instrument query is in the Query Response register
1020 !(status bit 1).
1030 SUB Qry_ready
1040 Qry_ready: !
1050 COM Base_addr,Aper,Func,Rng
1060 REPEAT
1070 CALL Read_status(Status,Rdy,Done,Indardy,Qryrdy,Noerr,Pass_fail)
1080 UNTIL Qryrdy
1090 SUBEND
1100 !
This subprogram calls Read_status to determine when measurement data
1110 !is available in the multimeter data buffer (status bit 4).
1120 SUB Data_ready
1130 Data_ready: !
1140 COM Base_addr,Aper,Func,Rng
1150 REPEAT
1160 CALL Read_status(Status,Rdy,Done,Indardy,Qryrdy,Noerr,Pass_fail)
1170 UNTIL Indardy
1180 SUBEND
Continued on Next Page
236 HP E1326B/E1411B Multimeter Register-Based Programming Appendix C