
Programming
2714 & 2715 Programmer Manual
6–65
PRINT "ENTER NAME OF DISK FILE for STORing"
INPUT FILENAME$
FILE2714 or 2715$ = UCASE$(FILE2714 or 2715$)
WRT$="HDR ON;FILE? "+CHR$(34)+FILE2714 or 2715$+CHR$(34)
CALL IBWRT(BD%, WRT$)
'
' request file transfer
GOSUB GPIB.ERR
CALL IBRDF(bd%, FILENAME$) 'read and store
GOSUB GPIB.ERR
'2714 or 2715 file to disk
RETURN
'as FILENAME$
' subroutine restores 2714 or 2715 file from disk to the 2714 or
2715
RES.FILE:
CLS : PRINT
PRINT "ENTER DISK FILE TO RESTORE TO 2714 or 2715"
INPUT FILENAME$
'note: the file named
CALL IBWRTF(bd%, FILENAME$) 'FILENAME$
GOSUB GPIB.ERR
'contains the name of
RETURN
'the 2714 or 2715 file to be
restored
'
' subroutine to fetch curve data in packed binary
' form and convert it to 2Ćbyte integer format
INT.CUR:
PRINT "GET CURVE FROM WHICH REGISTER?"
INPUT "
(ENTER A, B, C, OR D)
"; REG$
' ensure response header is on
CALL IBWRT(BD%, "HDR ON")
GOSUB GPIB.ERR
' tell 2714 or 2715 which register and encoding to use
WRT$ = "WFMPRE WFID:" + REG$ + ",ENCDG:BINBLK"
CALL IBWRT(BD%, WRT$)
GOSUB GPIB.ERR
CALL IBWRT(BD%, "CUR?")
CALL IBRDI(BD%, CUR%(), 9) 'fetch curve
GOSUB GPIB.ERR
'data in packed binary;
CALL IBrdi(Bd%, Cur%(), 512)
' write over header characters (1st 9) with data
CALL DEBLK(CUR%(), CUR%(), 512, 8, NUMBYT%)
PRINT "# OF BYTES CONVERTED = "; NUMBYT%
RETURN
' DEBLK unpacks binary data and restores as 2Ćbyte integers in
' same array. NUMBYT$ always equals 512 subroutine to find and
Содержание 2714
Страница 4: ......
Страница 11: ...Introduction ...
Страница 12: ......
Страница 38: ...Introduction to Programming 1 26 2714 2715 Programmer Manual ...
Страница 39: ...Message Structure ...
Страница 40: ......
Страница 54: ...Instrument Specific Message Structure 2 14 2714 2715 Programmer Manual ...
Страница 55: ...Functional Groups ...
Страница 56: ......
Страница 85: ...Command Query ...
Страница 86: ......
Страница 179: ...Status Reporting ...
Страница 180: ......
Страница 197: ...Programming ...
Страница 198: ......
Страница 266: ...Programming 6 68 2714 2715 Programmer Manual ...
Страница 267: ...Appendices ...
Страница 268: ......
Страница 276: ...Appendix A RS 232 Concepts A 8 2714 2715 Programmer Manual ...
Страница 296: ...Appendix B GPIB System Concepts B 20 2714 2715 Programmer Manual ...
Страница 297: ...Index ...
Страница 298: ......
Страница 307: ......
Страница 308: ......