
Programming Examples
88
Agilent
8169A
Polarization Controller, Second Edition
330
340
350
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
570
580
590
600
610
620
630
640
650
660
670
680
690
700
710
720
730
740
750
760
770
780
790
800
810
820
830
PRINZT TABXY (4, 9) ; “ +--------------------------------------+
PRINZT TABXY (4, 10) ; “ ^ ^ ^ ^ ^ ^ ^ ^ “
PRINZT TABXY (4, 11) ; “ +
---
+
---
+
---
+
---
+
---
+
---
+
---
+
---
+ “
PRINZT TABXY (4, 12) ; “
:
: : : : : : : :"
“
PRINZT TABXY (4, 13) ; “ +
---
+
---
+
---
+
---
+
---
+
---
+
---
+
---
+ “
PRINZT TABXY (4, 14) ; “ PON URQ CME EXE DDE QYE RQC POPC “
PRINZT TABXY (4, 15) ; “ Standard Event Status Register “
PRINZT TABXY (4, 16) ; “ Last Command “
PRINZT TABXY (4, 17) ; “ Last Error “
PRINZT TABXY (4, 18) ; “ Output Queue “
!
! Start the program loop and enable the interrupt for the errors
!
Ende=0
GOSUB Pmm_srq
ENABLE INTR 7;2
!
! The Central Loop
!
REPEAT
INPUT “Command ? “,Inp$
GISUB Pmm_spq
OUTPUT Pol ; Inp$
PRINT TABXY (21,16) ;”
PRINT TABXY (21,16) ; Inp$
WAIT 1.0
UNTIL Ende=1
GOTO 1380
!
!-------------------------------------------------------------------------------------------
Pmm_srq: ! Interrupt Handling Subroutine to display the status, and the error
! and output queues
!-------------------------------------------------------------------------------------------
!
! Get the value for the Status Byte
!
Value=SPOLL (Pol)
!
! Initialize and start the display of the registers
!
PRINT TABXY (21,17) ;“
PRINT TABXY (21,18) ;”
Ypos=3
FOR Z=0 TO 1
Bit=128
Xpos=7
!
! Do it for each bit
!
REPEAT
Quot=Value DIV Bit
Содержание 8169A
Страница 36: ...Scanning the Poincare Sphere Analyzing the Results 38 Agilent 8169A Polarization Controller Second Edition ...
Страница 46: ...Programming the Polarization Controller GPIB Interface 48 Agilent 8169A Polarization Controller Second Edition ...
Страница 82: ...Remote Commands SYSTem Commands 84 Agilent 8169A Polarization Controller Second Edition ...
Страница 106: ...Installation 108 Agilent 8169A Polarization Controller Second Edition ...
Страница 114: ...Specifications 116 Agilent 8169A Polarization Controller Second Edition Declaration of Conformity ...
Страница 158: ...Cleaning Information Other Cleaning Hints 160 Agilent 8169A Polarization Controller Second Edition ...
Страница 166: ...Error Messages 168 Agilent 8169A Polarization Controller Second Edition ...
Страница 167: ......