Table of Contents
Advertisement
10
! PROGRAM TO UPLOAD IBASIC CODE FROM TEST SET TO BASIC CONTROLLER THROUGH HP-IB.
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
Method #1. Program Development on an External BASIC Language Computer
!Test Set HP-IB 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
Chapter 7, IBASIC Controller
407
Hide quick links:
Advertisement
Table of Contents
