391
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
Содержание 8921A
Страница 14: ...14 ...
Страница 17: ...Contents 17 3 HP IB Command Guidelines Sequential and Overlapped Commands 72 Guidelines for Operation 73 ...
Страница 24: ...Contents 24 9 Error Messages ...
Страница 25: ...Contents 25 Index 593 ...
Страница 26: ...Contents 26 ...
Страница 27: ...27 1 Using HP IB ...
Страница 58: ...58 Chapter 1 Using HP IB Remote Local Modes ...
Страница 59: ...59 2 Methods For Reading Measurement Results ...
Страница 71: ...71 3 HP IB Command Guidelines ...
Страница 94: ...94 Chapter 3 HP IB Command Guidelines Guidelines for Operation ...
Страница 95: ...95 4 HP IB Commands ...
Страница 100: ...100 Adjacent Channel Power ACP ...
Страница 150: ...150 Display DISPlay space TDMA test TESTs TFReq THLP TIBasic TMAKe TPARm TPRint TSEQn TSPec Returns current screen TX ...
Страница 173: ...173 System System SYSTem ERRor Returns integer value quoted string ...
Страница 236: ...236 Triggering Measurements ...
Страница 237: ...237 5 Advanced Operations ...
Страница 350: ...350 Chapter 6 Memory Cards Mass Storage Using Memory Cards Figure 20 Inserting a Memory Card ...
Страница 360: ...360 Chapter 6 Memory Cards Mass Storage Using External Disk Drives ...
Страница 361: ...361 7 IBASIC Controller ...
Страница 442: ...442 Chapter 7 IBASIC Controller The TESTS Subsystem ...
Страница 559: ...559 Chapter 8 Programming The Call Processing Subsystem Example Programs 11280 SUBEND 11290 ...
Страница 562: ...562 Chapter 8 Programming The Call Processing Subsystem Example Programs ...
Страница 563: ...563 9 Error Messages ...
Страница 592: ...592 ...