Reading the disk with the CATalog? ALL query
The following example program reads the catalog of the currently selected
disk drive. The
CATALOG? ALL
query returns the entire 70-character field.
Because DOS directory entries are 70 characters long, you should use the
CATALOG? ALL
query with DOS disks.
10 ! ****** DISK CATALOG ******
20 ! using the CATALOG? ALL query
30 !
40 DIM File$[100]
50 DIM Specifier$[2]
60 OUTPUT 707;":EOI ON"
70 OUTPUT 707;":SYSTEM:HEADER OFF"
80 OUTPUT 707;":MMEMORY:MSI INTERNAL0" ! select the hard drive
90 OUTPUT 707;":MMEMORY:CATALOG? ALL" ! send CATALOG? ALL query
100 !
110 ENTER 707 USING "#,2A";Specifier$ ! read in #8
120 ENTER 707 USING "#,8D";Length ! read in block length
130 !
140 ! Read and print each file in the directory
150 !
160 FOR I=1 TO Length STEP 70
170 ENTER 707 USING "#,70A";File$
180 PRINT File$
190 NEXT I
200 ENTER 707 USING "A";Specifier$ ! read in final line feed
210 END
Programming Examples
Reading the disk with the CATalog? ALL query
13–10
Artisan Scientific - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisan-scientific.com
Содержание HP 16500B
Страница 13: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com ...
Страница 37: ...1 24 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com ...
Страница 97: ...7 6 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com ...
Страница 99: ...Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com ...
Страница 100: ...8 Common Commands 8 1 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com ...
Страница 119: ...8 20 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com ...
Страница 120: ...9 Mainframe Commands 9 1 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com ...
Страница 146: ...10 SYSTem Subsystem 10 1 Artisan Scientific Quality Instrumentation Guaranteed 888 88 SOURCE www artisan scientific com ...