User`s manual

138 Agilent E1330B Digital I/O Module Register Information
Appendix B
540 SUBEND
550 !
560 SUB Cnt_flg_io
!Demonstrates driving CONTROL0 then
receiving Flag 0.
570 COM @Sys,@Dvm,@Dig
!Connect CONTROL 0 to FLAG 0.
580 PRINT “”
590 PRINT “SUBPROGRAM Cnt_flg_io”
600 OUTPUT @Dig;"*RST"
!RESET to power on state.
610 OUTPUT @Dig;"SOUR:DIG:CONT0:VAL 0"
!Drive CONTROL 0 to 0.
620 OUTPUT @Dig;"MEAS:DIG:FLAG0?"
!Read FLAG 0.
630 ENTER @Dig;A
640 PRINT “CONTROL0 DRIVEN TO 0 AND FLAG0 RECEIVED AS ”;A
650 OUTPUT @Dig;"SOUR:DIG:CONT0:VAL 1"
!Drive CONTROL 0 to 1.
660 OUTPUT @Dig;"MEAS:DIG:FLAG0?"
!Read FLAG 0.
670 ENTER @Dig;A
680 PRINT “CONTROL0 DRIVEN TO A 1 AND FLAG0 RECEIVED AS A ” ;A
690 PRINT “ ”
700 SUBEND
710 SUB Res_sts_io
!Demonstrates driving RES0 then
receiving STS0.
720 !Connect RES0 to STS0.
730 !Use register programming to use RES0 & STS0.
740 COM @Sys,@Dvm,@Dig
750 PRINT “”
760 PRINT “SUBPROGRAM Res_sts_io”
770 OUTPUT @Dig;"*RST"
!RESET to power on state.
780 Ladd=80
790 !Base=Start of A16+Offset to VXI Reg+Offset to card Reg.
800 Base=2031616+49152+(Ladd*64)
810 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("10",16))) &",8,64 "
!Drive RES0 to 0.
820 OUTPUT @Sys;"DIAG:PEEK? "&VAL$(Base+(DVAL("10",16))) &",8"
!Read REG B+10H
830 ENTER @Sys;A
840 Bit0=BIT(A,0)
850 PRINT “RES0 DRIVEN TO 0, STS0 RECEIVED AS ";Bit0
860 OUTPUT @Sys;"DIAG:POKE "&VAL$(Base+(DVAL("10",16))) &",8,96"
!Drive RES0 to 1.
870 OUTPUT @Sys;"DIAG;PEEK? "&VAL$(Base+(DVAL("10",16))) &",8"
!Read REG B+10H.
880 ENTER @Sys;A
890 Bit0=BIT(A,0)
900 PRINT “RES0 DRIVEN TO 1, STS0 RECEIVED AS ”;Bit0
910 SUBEND
920 SUB Res_pir_io !Demonstrates driving RES0 then
receiving PIR0.
930 !Connect RES0 to PIR0.
940 !Use register programming to use RES0 & PIR0.
950 COM @Sys,@Dvm,@Dig
960 PRINT “”
970 PRINT “SUBPROGRAM Res_pir_io”
980 OUTPUT @Dig;"*RST"
!RESET to power on state.
990 Ladd=80
1000 !Base=Start of A16+Offset to VXI Reg+Offset to card Reg.
1010 Base=2031616+49152+(Ladd*64)