Application Programs 77
10 ! APPLICATION #2: SEQUENCING MULTIPLE MODULES TO POWER DOWN ON EVENT
20 ! PROGRAM: APP_2
30 !
40 ASSIGN @Slot0 TO 70500 ! SELECT CODE 7, MAINFRAME ADDRESS 05, SLOT 00
50 ASSIGN @Slot1 To 70501 ! SELECT CODE 7, MAINFRAME ADDRESS 05, SLOT 01
60 ASSIGN @Slot2 TO 70502 ! SELECT CODE 7, MAINFRAME ADDRESS 05, SLOT 02
70 !
80 ! SET UP MODULE IN SLOT 0 AS +15 V BIAS SUPPLY ---------------------
90 !
100 OUTPUT @Slot0;"*RST;*CLS;STATUS:PRESET" ! RESET AND CLEAR MODULE
110 OUTPUT @Slot0;”CURR .5”
120 OUTPUT @Slot0;”VOLT 15” ! START AT 15 V
130 OUTPUT @Slot0;”VOLT:TRIGGERED 0” ! GO TO 0 V ON TRIGGER
140 OUTPUT @Slot0;”TRIGGER:SOURCE TTLTRG" ! TRIGGER SOURCE IS TTL TRIGGER
150 OUTPUT @Slot0;”TRIGGER:DELAY .015” ! 15 ms TRIGGER DELAY
160 OUTPUT @Slot0;”INITIATE" ! ENABLE RESPONSE TO TRIGGER
170 OUTPUT @Slot0;"OUTPUT:TTLTRG:SOURCE LINK" ! GENERATE A BACKPLANE TTL TRIGGER
180 OUTPUT @Slot0;”OUTPUT:TTLTRG:LINK 'CC’ “ ! WHEN A CV-TO-CC TRANSITION OCCURS
190 OUTPUT @Slot0;”OUTPUT:TTLTRG:STATE ON" ! ENABLE TTL TRIGGER DRIVE
200 OUTPUT @Slot0;"OUTPUT ON" ! ENABLE OUTPUT
210 !
220 ! SET UP MODULE IN SLOT 1 AS -15 V BIAS SUPPLY ---------------------
230 !
240 OUTPUT @Slot1;"*RST;*CLS;STATUS:PRESET" ! RESET AND CLEAR MODULE
250 OUTPUT @Slot1;"CURR .5”
260 OUTPUT @Slot1;"VOLT 15” ! START AT 15 V
270 OUTPUT @Slot1;"VOLT:TRIGGERED 0” ! GO TO 0 V ON TRIGGER
280 OUTPUT @Slot1;"TRIGGER:SOURCE TTLTRG" ! TRIGGER SOURCE IS BACKPLANE TTL TRIGGER
290 OUTPUT @Slot1;"TRIGGER:DELAY .015” ! 15 ms TRIGGER DELAY
300 OUTPUT @Slot1;"INITIATE" ! ENABLE RESPONSE TO TRIGGER
310 OUTPUT @Slot1;"OUTPUT:TTLTRG:SOURCE LINK" ! GENERATE A BACKPLANE TTL TRIGGER
320 OUTPUT @Slot1;"OUTPUT:TTLTRG:LINK 'CC’ “ ! WHEN A CV-TO-CC TRANSITION OCCURS
330 OUTPUT @Slot1;"OUTPUT:TTLTRG:STATE ON" ! ENABLE TTL TRIGGER DRIVE
340 OUTPUT @Slot1;"OUTPUT ON" ! ENABLE OUTPUT
350 !
360 ! SET UP MODULE IN SLOT 2 AS +5 V BIAS SUPPLY ----------------------
370 !
380 OUTPUT @Slot2;"*RST;*CLS;STATUS:PRESET" ! RESET AND CLEAR MODULE
390 OUTPUT @Slot2;"CURR .5”
400 OUTPUT @Slot2;"VOLT 5” ! START AT 5 V
410 OUTPUT @Slot2;"VOLT:TRIGGERED 0” ! GO TO 0 V ON TRIGGER
420 OUTPUT @Slot2;"TRIGGER:SOURCE TTLTRG" ! TRIGGER SOURCE IS BACKPLANE TTL TRIGGER
430 OUTPUT @Slot2;"INITIATE" ! ENABLE RESPONSE TO TTL TRIGGER
440 OUTPUT @Slot2;"OUTPUT:TTLTRG:SOURCE LINK" ! GENERATE A BACKPLANE TTL TRIGGER
450 OUTPUT @Slot2;"OUTPUT:TTLTRG:LINK 'CC’ “ ! WHEN A CV-TO-CC TRANSITION OCCURS
460 OUTPUT @Slot2;"OUTPUT:TTLTRG:STATE ON" ! ENABLE TTL TRIGGER DRIVE
470 OUTPUT @Slot2;"OUTPUT ON" ! ENABLE OUTPUT
480 !
490 ! THE POWER MODULES ARE NOW SET UP TO IMPLEMENT THE POWER DOWN ON EVENT.
500 ! ANY TIME ANY MODULE GOES INTO CC, THE SEQUENCE WILL OCCUR.
510 !
520 END
Figure B2-3. Agilent BASIC Program Listing for Application #2