Below is a program that can be found on the accompanying disk that downloads an S-
Record file onto the 7064. A n example o f a S-Record is also included in file VTI_HEX.
COMMON SHARED INISTATBLKI IBSTAT7c, IBERR%, IBCNT(7e
DECLARE SUB IBRD (BD%, RD$)
DECLARE SUB IBWRT (BD%, WRT$)
DECLARE SUB IBFIND (BDNAMES, BD(7()
CLS
PRINT "Sample program to download an S record file into the VT1."
PRINT "Copyright 1990 by VXI Technology, Inc. A l l Rights Reserved."
CALL IBFIND("VXITECH", BD%)
IF BD% < 0 THEN
PRINT "Device 'VXITECH' not found,"
STOP
END I F
INPUT "What file would you like downloaded (include extension)";ES
OPEN F$ FOR INPUT AS #1
INPUT "What function name would you like assigned to i t " ; AFN$
WRT$ = "download " + A F N $ + " O ; "
CALL IBWRT(BD%, WRT$)
BLIP = 0
DO UNTIL EOF( I )
INPUT #1, WRTS
CALL IBWRT(BD(7e. WRT$)
BLIP = BLIP +1
IF BLIP > = 50 THEN
BLIP = 0
PRINT " * " :
ENDIF
LOOP
CLOSE #1
END
4-16
Summary of Contents for 7064
Page 2: ...Racal Instruments...
Page 6: ...I 1 1 1 1 1...
Page 21: ...I 1 I I I I I I I I I 1 1 I I I I I I...
Page 29: ...I I I I I I I I I I I I I I I I I I I...
Page 57: ...1 I I I I I I I I I I I I I I I I I I...
Page 77: ...1...
Page 111: ...0 00 0 00 tI I 4 0 0 I7 r i 6 4 7 4 7 0 T 6 0 0 7 28...
Page 112: ......
Page 113: ...7 30 I I I 1 I I I I I I I I I I I I I I I...
Page 115: ...7 32...
Page 148: ......
Page 164: ...I I I I I I I I I I 1 I I I I I I I I...
Page 176: ...extern char error_msg_lookup unsigned errdes endif ERROR_INCLUDE C 8...