SRS Labs SR530 Stereo Amplifier User Manual


 
52
390
400 PRINT “CH1 = ;V1; CH2 =;V2
410
420 X = X + .0025 INCREMENT X6 OUTPUT BY 2.5 MV
430 IF X>10 THEN X 0 RESET RAMP
440 X$ = X6$ + STR$(X) + ″′ 13″′MAKE X6 COMMAND STRING
450 CALL TRANSMIT (X$,STATUS%) SET NEW X6 VOLTAGE
460 GOSUB 600
470
480 GOTO 300 LOOP FOREVER
490
500 GET AN ANSWER STRING FROM THE SR530
510 CALL TRANSMIT(LISN$,STATUS%) MAKE SR530 A TALKER
520 GOSUB 600
530 ANS$=SPACE$(10) INIT ANSWER STRING
540 CALL RECV(ANS$,LENGTH%STATUS%) READ RESULT INTO ANS$
550 GOSUB 600
560 RETURN
570
580
590 CHECK STATUS OF LAST TRANSMISSION FOR ERRORS
600 IF STATUS%=0 THEN RETURN STATUS OKAY
610 PRINT STATUS CODE = ;STATUS%; ON GPIB: ERROR
620 STOP