Advertisement
460
'Measurement start
470
'
480
FOR I=1 TO 100
490
CALL TRIGGER%tADDR%)
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
5 0
PCL-848AB
User's Manual
' Trigger the DVM.
Advertisement
