HP 8153A - Page 198

Example 5
Function
This program lets you output commands to the instrument. The response for
the command, and the current contents of the Status Byte and Standard Event
Status registers are displayed.
Listing
10 INTEGER Value,B,Quot,Xpos,Ypos
20 DIM Inp$[i00]
30 DIM A$[300]
40 ASSIGN SPmsi TO 722
50 ON INTR 7 GQSUB Pmm.srq
55 !
60 OUTPUT SPinia;"*sre 48;#ese 255"
65 !
70 CLEAR SCREEN
80 PRINT TABXY(40,3);"Status Byte"
90 PRINT TABXY(4,1)SRQ ESB HAV"
100 PRINT TABXY(4,2) +-—+-+-—+—+
no PRINT TABXY(4.3)1 I I j I I I i i"
120 PRINT TABXY(4,4);" +-+-+-+-+-+-+-
130 PRINT TABXY(4,B);"
140 PRINT TABXY(4,6)I"
150 PRINT TABXY(4,7);" +-+"
160 PRINT TABXY(4,8);" 1 OR I"
170 PRINT TABXY(4,9);" -f-+"
180 PRINT TABXY(4,10);" .."
190 PRINT TABXY(4,11);" +—+—+—+ +—+-^-+ +
200 PRINT TABXY(4,12);" t ! t ! I I I I I"
210 PRINT TABXY(4,13);" +—+—+—+--+-
220 PRINT TABXY(4,14);" PON URQ CME EXE DDE QYE RQC OPC"
230 PRINT TABXY(40,12);"Standard Event Status Register"
240 PRINT TABXY(4,17);"Last Error
250 PRINT TABXY(4,18);''0utput Queue
265 }
260 Ende»0
270 ENABLE INTR 7;2
275 !
280 REPEAT
290 INPUT "Command ? ",Inp$
300 OUTPUT ®Pmm;Inp$
310 WAIT 1.0
320 UNTIL Ende“l
10-10 Remote Operation • Programming Examples