User`s manual

50 PCL-848AB User's Manual
460 'Measurement start
470 '
480 FOR I=1 TO 100
490 CALL TRIGGER%tADDR%) ‘ Trigger the DVM.
500 ANS$=SPACE$(40)
450 '
510 CALL ENTER%(ADDR%,ANS$) ‘ Enter DVM reading
520 PRINT I,ANS$
530 NEXT I
540
550 END
560
570 '
580 'Error check routine
600 IF ERR<128 THEN PRINT “BASIC Error”;ERR ELSE ER%=ERR-128
610 IF ER%<>0 TuEN PRINT “Error” ; ER%
620 IF ER%=1 THEN PRINT “Device timeoutl”
630 IF ER%=2 TuEN PRINT “Interface Errorl
640 IF ER%=3 TBEN PRINT “Abort by Non-system Controllerl”
650 IF ER%=4 THEN PRINT “Invalid parameterel”
660 STOP
670 RETURN
680
690
700 'Timeout service routine
710 '
720 PRINT “Interface Timeoutl”
730
740 RETURN
750 '
760 '
770 SRQ service routine
780 '
790 PRINT “Interface SRQI”
800 RES’=0 : CALL SPOLL’(ADDR%,RES%) .
810 PRINT “BP3478A STATUS BYTES IS”;RES%
820 A=INP(IOPORT%+2) c
830 FOR CC=0 TO 500 : NEXT CC
840 RETURN
850 '
860 'End of this program