HP 8924C Application Manual page 330

Chapter 10, Controlling Program Flow
Controlling Program Flow Procedure
620 ! Data/Signal Register Group Enable Register must be set HIGH.
630 !
640 OUTPUT Inst_address;"STAT:QUES:ENAB 256"
650 !
660 ! 3) Hardware Status Register #1 Group
670 ! Condition register conditions which will set the Summary Message
680 ! TRUE if they occur:
690 ! Bit 5: Measurement limits exceeded
700 ! Bit 4: Power-up Self-test failed
710 ! Bit 3: Overpower protection tripped
720 !
730 Hardware1_reg=32+16+8
740 !
750 ! Set the Transition Filters to allow only positive transitions in
760 ! the assigned condition(s) to pass to the Event Register
770 !
780 OUTPUT Inst_address;"STAT:HARD1:PTR";Hardware1_reg
790 OUTPUT Inst_address;"STAT:HARD1:NTR 0"
800 !
810 ! Set up the Hardware Status Register #1 Group Enable Register to
820 ! generate the Summary Message.
830 !
840 OUTPUT Inst_address;"STAT:HARD1:ENAB";Hardware1_reg
850 !
860 ! 4) Set the correct Summary Message bit(s) in the Service Request
870 ! Enable Register to generate a Service Request (SRQ) if the
880 ! Summary Message(s) become TRUE.
890 ! Bit 5 = Standard Event Status Register Summary Message
900 !
910 ! Bit 3 = Questionable Data/Signal Register Group Summary Message
920 !
930 ! Bit 0 = Hardware Status Register #1 Group Summary Message
940 !
950 !
960 Srq_enab_reg=32+8+1
970 OUTPUT Inst_address;"*SRE";Srq_enab_reg
980 !
990 ! 5) Set up the Active Controller to respond to an SRQ interrupt:
1000 ! Call subprogram Check_interrupt if an SRQ condition exists on select
1010 ! code 7. The interrupt priority level is set to 15 (highest level).
1020 !
1030 ON INTR 7,15 CALL Srvice_interupt
1040 !
1050 ! 6) Enable interrupts on select code 7:
1060 ! The interface mask is set to a value of 2 which enables interrupts on
1070 ! the HP-IB bus when the SRQ line is asserted.
1080 !
1090 ENABLE INTR 7;2
1100 !
1110 ! Start of the dummy loop:
1120 !
1130 LOOP
1140 DISP "I am sitting in a dummy loop."
1150 END LOOP
1160 !
1170 END
1180 !
1190 Srvice_interupt:SUB Srvice_interupt
1200 !
1210 OPTION BASE 1
1220 COM /Io_names/ INTEGER Inst_address,Std_event_reg,Calibration_reg
330
decimal value = 2^5 = 32
decimal value = 2^4 = 16
decimal value = 2^3 =
decimal value = 2^5 = 32
decimal value = 2^3 =
decimal value = 2^0 =
N:\mkt\MANUALS\HP8924C\APPMOD\BOOK\chapters\amsrq.fb
8
8
1