407
Chapter 7, IBASIC Controller
Method #1. Program Development on an External BASIC Language Computer
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
!Test Set HP-IB address
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"
!Reset the Test Set
150 OUTPUT Addr;"DISP TIB"
!Displays the IBASIC screen
160 OUTPUT Addr;"PROG:EXEC ’CLS’"
!Clears the Test Set display
170 OUTPUT 714;"PROG:DEF?"
!Initiates the upload of whole program
180 ENTER Addr USING "X,D,#";Count_len
!Number of lines in program
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$
!CR/LF terminates each line.
280 PRINT Line$
!Displays new lines on Test Set display.
290 OUTPUT @File;Line$
!Transfer new line to file.
300 Char_count=Char_count-LEN(Line$)-2
!Reduces Char_count by the number of
310
! characters in current line.
320 EXIT IF Char_count<=0
330 END LOOP
340 !
350 ASSIGN @File TO *
!Cleans out file buffer.
360 ENTER Addr;Line$
!Close off reading
370 CLEAR SCREEN
380 DISP "Transfer complete."
390 LOCAL Addr
400 END
Содержание 8920B
Страница 10: ...10 ...
Страница 16: ...Contents 16 9 Error Messages Index 673 ...
Страница 17: ...17 1 Using HP IB ...
Страница 48: ...48 Chapter 1 Using HP IB Remote Local Modes ...
Страница 49: ...49 2 Methods For Reading Measurement Results ...
Страница 61: ...61 3 HP IB Command Guidelines ...
Страница 84: ...84 Chapter 3 HP IB Command Guidelines Guidelines for Operation ...
Страница 85: ...85 4 HP IB Commands ...
Страница 90: ...90 Adjacent Channel Power ACP ...
Страница 116: ...116 Configure I O Configure ...
Страница 156: ...156 Call Processing ...
Страница 162: ...162 Display DISPlay space TDMA test TESTs TFReq THLP TIBasic TMAKe TPARm TPRint TSEQn TSPec Returns current screen TX ...
Страница 185: ...185 System System SYSTem ERRor Returns integer value quoted string ...
Страница 242: ...242 Common Command Descriptions ...
Страница 251: ...251 5 Advanced Operations ...
Страница 377: ...377 7 IBASIC Controller ...
Страница 458: ...458 Chapter 7 IBASIC Controller The TESTS Subsystem ...
Страница 640: ...640 Chapter 8 Programming The Call Processing Subsystem Example Programs 11280 SUBEND 11290 ...
Страница 643: ...643 9 Error Messages ...
Страница 672: ...672 ...
Страница 682: ...Index 682 ...