8003 Precision Scalar Analyzer
3-46 Manual 20791, Rev. C, June 2001
1940 ! NOW READ BUFFER FROM ANALYZER
1950 ENTER 704;Buffer a(*)
1960 !
1970 ! Print buffer
1980 FOR I=1 TO 100
1990 PRINT I; Chan A = ;Buffer a(I)
2000 NEXT I
2010 !
2020 OUTPUT 704;PWR 1;T0! Good housekeeping to return analyzer to
2030 ! standard cw mode to update display
2040 STOP
2050 !
2060 ! INTERRUPT SERVICE ROUTINE FOR READING SRQ
2070 Reading srq:!
2080 Srq flag=1! Set SRQ flag
2090 Status=SPOLL(704)! Serial poll clears srq
2100 ENABLE INTR 7;2! Re-enable interrupts
2110 RETURN
2120 END