Benchmark for 3852A Data Transfers: GPIO

This program illustrates using the 44702A GPIO interface to transfer data between a 3852A and a series 300 controller or a Basic Language Processor.Programming Environment:HP Basic on Viper card or HP Basic/WS on a Series 300 controller Program10 ! RE-STORE "GPIO_BM"20 !30 ! GPIO benchmark showing 44702A/B transfer speed.40 ! BLPII: RAM speed: 96 kHz NOTE: Depends on file size50 ! C drive speed: 13 kHz (not fast access drive)55 ! 9133 speed: 6 kHz60 ! Series 200/300: as specified in 3852A Data Book65 !70 ASSIGN @Hp52 TO 70980 OPTION BASE 190 INTEGER A(25000) BUFFER100 MASS STORAGE IS ":DOS,C" ! ":1402,0" for series 300110 ! CREATE BDAT "DATA_FILE," 500120 Gpio=12130 ASSIGN @Path_1 TO "DATA_FILE"140 ASSIGN @Buffer_1 TO 12;WORD150 ASSIGN @Buffer_2 TO BUFFER A(*);WORD160 OUTPUT @Hp52;"USE 600;SCANMODE ON;SCTRIG HOLD"170 OUTPUT @Hp52;"FUNC DCV;ASCAN ON;TERM RIBBON"180 OUTPUT @Hp52;"RDGS GPIO;NRDGS 1;PRESCAN 12500;POSTSCAN 12500"190 OUTPUT @Hp52;"CLWRITE SENSE 500;AZERO ONCE"200 OUTPUT @Hp52;"REAL T1,T2,T3"210 OUTPUT @Hp52;"SUB A"220 OUTPUT @Hp52;" TIME INTO T1; TIME INTO T2"230 OUTPUT @Hp52;" SCTRIG SGL"240 OUTPUT @Hp52;" TIME INTO T3"250 OUTPUT @Hp52;"SUBEND"260 OUTPUT @Hp52;"CALL A"270 Tb=TIMEDATE280 CONTROL Gpio,2;5290 OUTPUT 13 USING "#,W";4300 CONTROL Gpio,2;4310 TRANSFER @Buffer_1 TO @Buffer_2;WAIT320 TRANSFER @Buffer_2 TO @Path_1;WAIT330 ASSIGN @Path_1 TO *340 Tc=TIMEDATE350 ASSIGN @Path_2 TO "DATA_FILE:,1401,0"360 TRANSFER @Path_2 TO @Buffer_2370 ASSIGN @Path_2 TO *380 FOR J=24950 TO 25000390 Good_flag=BIT(A(J),15)400 Sign=BIT(A(J),12)410 Range=BINAND(A(J),24576) DIV 8192420 Value=BINAND(A(J),4095)430 IF Good_flag THEN Volts=Value/102400.0440 SELECT Range450 CASE 0460 Volts=Volts470 CASE 1480 Volts=8*Volts490 CASE 2500 Volts=64*Volts510 CASE 3520 Volts=256*Volts530 END SELECT540 PRINT Volts,J550 NEXT J560 OUTPUT @Hp52;"VREAD (T3-T2-(T2-T1))"570 ENTER @Hp52;Ta580 PRINT "THE TIME TO AQUIRE 25000 READINGS IS," Ta,"THE TIME TO XFER," Tc-T b,"THE READING RATE IS," 1/((Tc-Tb)/25000)590 END