Table of Contents
Advertisement
10
! PROGRAM TO UPLOAD IBASIC CODE FROM TEST SET TO BASIC CONTROLLER THROUGH GPIB.
20
!######################################################################
30
!
40
! The file for uploaded code will be "C:\htb386\code".
50
! If you want to use a different file or directory, modify the two lines
60
! with the labels "File_name_1" and "File_name_2".
70
!
80
!####################################################################
90
Addr=714
100
ALLOCATE Line$[200]
110
PRINTER IS 1
120
CLEAR SCREEN
130
DISP
"It may be several minutes before code begins transferring if the program is long"
140
OUTPUT Addr;"*RST"
150
OUTPUT Addr;"DISP TIB"
160
OUTPUT Addr;"PROG:EXEC 'CLS'"
170
OUTPUT 714;"PROG:DEF?"
180
ENTER Addr USING "X,D,#";Count_len
190
ENTER Addr USING VAL$(Count_len)&"D,#";Char_count !Number of characters
200
!
210 File_name_1:
CREATE ASCII "C:\htb386\code",(1.05*Char_count/256)+5
220
! Number of records reserved for upload.
230 File_name_2:
ASSIGN @File TO "C:\htb386\code"
240
!
250
DISP "Transferring code from Test Set"
260
LOOP
!Program transfer loop.
270
ENTER Addr;Line$
280
PRINT Line$
290
OUTPUT @File;Line$
300
Char_count=Char_count-LEN(Line$)-2
310
320
EXIT IF Char_count<=0
330
END LOOP
340
!
350
ASSIGN @File TO *
360
ENTER Addr;Line$
370
CLEAR SCREEN
380
DISP "Transfer complete."
390
LOCAL Addr
400
END
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
Method #1. Program Development on an External BASIC Language Computer
Chapter 6, IBASIC Controller
!Test Set GPIB address
!Reset the Test Set
!Displays the IBASIC screen
!Clears the Test Set display
!Initiates the upload of whole program
!Number of lines in program
!CR/LF terminates each line.
!Displays new lines on Test Set display.
!Transfer new line to file.
!Reduces Char_count by the number of
! characters in current line.
!Cleans out file buffer.
!Close off reading
295
Advertisement
Table of Contents
