8003 Precision Scalar Analyzer
3-62 Manual 20791, Rev. C, June 2001
640 !
650 OUTPUT 704;SWP 4,A;on! Use channel 4 for open/short demo
660 WAIT 4! Wait until channel 4 trace is updated
670 !
680 BEEP
690 INPUT Connect SHORT to bridge, press RETURN ... ,Key$
700 OUTPUT 704;SWP 4;store short 3;SRQ
710 WHILE Srq flag=0! infinite loop waits for srq from analyzer
720 END WHILE
730 !
740 Srq flag=0
750 BEEP
760 INPUT Connect OPEN to bridge, press RETURN ... ,Key$
770 OUTPUT 704;store open;SRQ
780 WHILE Srq flag=0
790 END WHILE
800 !
810 STOP
820 !
830 ! SRQ interrupt service routine
840 Trace srq:!
850 Srq flag=1! Set srq flag to indicate srq received
860 Status1=SPOLL(704)! Serial poll clears srq
870 ENABLE INTR 7;2! Re-enable interrupts
880 RETURN
890 END