HP 8153 A Operating And Programming Manual page 260

All manuals and user guides at all-guides.com
Using the FETCh Command - An Example
Old Program (HP 8152A)
. . . . .
1300 SUB Single_meas(P$)
1310 CLEAR Pmm
1320 OUTPUT Pmm;"CSB"
1330 OUTPUT Pmm;"WVL 2,1301NM;M2;CH2;U1;T1;AR1" 1330 OUTPUT Pmm;"WVL 2,1301NM;M2;CH2;U1;T1;AR1"
1340 TRIGGER Pmm
1350 S=SPOLL(Pmm)
1360 IF BIT(S,2)=0 THEN GOTO 1350
1370 ENTER Pmm;P$
1380 OUTPUT Pmm;"CSB"
1390 LOCAL Pmm
1400 SUBEND
. . . . .
Note
FETCh :SCALar
New Program (HP 8153A)
. . . . .
1300 SUB Single_meas(P$)
1310 CLEAR Pmm
1320 OUTPUT Pmm;"CSB"
1340 TRIGGER Pmm
1350 S=SPOLL(Pmm)
1360 IF BIT(S,2)=0 THEN GOTO 1350
1365 OUTPUT Pmm;"FETC:POW?"
1370 ENTER Pmm;P$
1380 OUTPUT Pmm;"CSB"
1390 LOCAL Pmm
1400 SUBEND
. . . . .
:DC ?
Remote Operation H-3