HP 8112A, Operating, Programming And Servicing Manual

Page: 105 / 406

290
300
SUB Service_srq
3 1 0 PRINT " ------------------- - - - - - ---------------------- "
320 PRINT 11SRQ from HP81 12A - -> Main Program interrupted . "
330 PRINT
340 Print _ spoll
!
read the Status Byte and print the results
350 PRINT
360 PRINT "End of the interrupt rout ine . "
370 PRINT " ----------- - - -- -,---- - - -- - - - - - ----------------- "
380 ENABLE
!
Enable interrupts again .
390
SUBEND
400
410 SUB Print_spoll
420 The subrout ine Print _ spoll conducts a SPOLL to read the Status Byte .
430
Errors as indicated by the set bits are print ed .
440 A=SPOLL (7 12)
450 PRINT "Value of the Status Byte (read with SPOLL ) : " ; A
460
PRINT
470
PRINT " Service requested because of : "
480 IF BIT (A , 5) THEN PRINT 11 - Input Error"
490
IF BIT ( A , 4) THEN PRINT 11 - Duty Cycle Error"
500 IF BIT (A , 3) THEN PRINT 11 - Slope Error "
5 1 0
I F BIT (A , 2) THEN PRINT 11 - Syntax Error"
520 IF BIT (A , 1 ) THEN PRINT 11 - Timing Error"
530 IF BIT ( A , O) THEN PRINT 11 - L imit Error"
540 SUBEND
ERROR_DEMO
Purpose
This program demonstrates how to determine which error bit
(
s
)
are
set in the HP81 12 Status Byte. Also it is shown how to get a more
detailed description of an error with the interrogate error command
IERR. Both functions are performed by the subroutine PrinLerrors.
Important program lines
and their function
Comments
Note
750
760
OUTPUT 7 1 2 ; 11 IERR11
ENTER 7 12 ; A$
Interrogate error
Read the response and store it
After an interrogate error command IERR the HP81 12A returns a
more detailed description of errors. The different error descriptions
are separated by commas. If no error is active then the string "NO
ERROR" is returned.
The WAIT 2 statements in the program are only used to emphasize
the functions of the program.
Programming Examples
7-13