HP E1340A User Manual page 283

Comments
Appendix C
810 CALL Read_status(Pass_fail,Ready,Done,Qryrdy)
820 UNTIL Ready
830 SUBEND
840 !
850 SUB Queryrdy
860 REPEAT
870 CALL Read_status(Pass_fail,Ready,Done,Qryrdy)
880 UNTIL Qryrdy
890 SUBEND
900 !
910 SUB Read_status(Pass_fail,Ready,Done,Qryrdy)
920 Read_status: !Subprogram which reads the arb's Status Register
930 COM Base_addr
940 Status=READIO(-9826,Base_addr+4)
950 Ready=BIT(Status,0)
960 Pass_fail=BIT(Status,2)
970 Done=BIT(Status,7) AND Ready
980 Qryrdy=BIT(Status,1) AND Done
990 SUBEND
1. The parameters shown in the program listing query the function (60),
the attenuation (58,59), and the frequency in Frequency Register 1
(48,49,50,51). Other parameters can be queried by sending other
opcodes to the subprograms. To query only one or two parameters,
comment out (!) lines 50 through 70 as appropriate.
2. Query responses (bytes) are returned to the Query Response Register
(base + 08 ). Each time command opcode 13 and a query opcode are
16
sent, one byte is returned. Thus, for multiple byte parameters,
command opcode 13 must be sent for each byte queried.
HP E1340A Register-Based Programming 283