Giga-tronics 58542 - Page 229

Program Examples
Publication 21555, Rev. E, September 2002 A-47
630 IF BIT(State,5) THEN ! ESR bit
640 OUTPUT @Pwr_mtr;*ESR? ! Reset event status register
650 END IF
660 !
670 Srq_flag = 1 ! Set task done flag
680 ENABLE INTR 7;2
690 RETURN
860 END