Disk directory reader in BASIC - Revision history

Jedimatt42 at 18:56, 26 July 2020

2020-07-26T18:56:53Z

← Older revision		Revision as of 18:56, 26 July 2020
Line 27:		Line 27:
	4= INTERNAL/VARIABLE datafile		4= INTERNAL/VARIABLE datafile
	5= Memory Image file (Program File)		5= Memory Image file (Program File)
			6= Directory (Extension for devices that support them)
	2. = Number of AUs allocated to the file		2. = Number of AUs allocated to the file
	3. = Number of bytes per record (0 for type 5 file)		3. = Number of bytes per record (0 for type 5 file)

Jedimatt42: Add concrete example of expanding BASIC catalog for devices that support directories.

2020-07-26T18:19:10Z

Add concrete example of expanding BASIC catalog for devices that support directories.

@@ Line 32: / Line 32: @@
-This TI BASIC program reads the directory of a disk and prints it on the screen. The P flag indicates protection. You can easily expand this program to consider subdirectories; just replace the number input in line 170-200 by a direct string input and open the given path name in line 210.
+This TI BASIC program reads the directory of a disk and prints it on the screen. The P flag indicates protection.
 CALL CLEAR
@@ Line 54: / Line 54: @@
 PRINT:A$;TAB(12);J;TAB(19);TYP$(ABS(A));
 IF ABS(A)=5 THEN 320
 B$=" "&STR$(K)
 PRINT SEG$(B$,LEN(B$)-2,3);

Stefan Haubenthal at 13:29, 28 May 2016

2016-05-28T13:29:38Z

← Older revision		Revision as of 13:29, 28 May 2016
Line 61:		Line 61:
	350 CLOSE #1		350 CLOSE #1

	[[Category:~~Software~~]]		[[Category:Programming]]

Stephen Shaw: Theory and explanation of disk directory reader program added

2015-04-19T17:02:56Z

Theory and explanation of disk directory reader program added

← Older revision		Revision as of 17:02, 19 April 2015
Line 1:		Line 1:
			Catalog file access from Basic - this relates to disks formatted with the original TI hardware and software:

			See also: [[TI Disk format]]

			The Catalog file can be accessed as a read-only file by the Basic user. The file has no name, and is of the INTERNAL, FIXED format type.

			The file can be opened by (for example):
			OPEN #l:"DSK.",lNPUT,INTERNAL,RELATlVE
			The record length will automatically be defaulted by Basic to the correct value, so this should not be entered. If however the user wants to specify the length, then it must be specified as 38 - all other lengths will result in an error message.

			The Catalog file acts as if it is Protected, and as mentioned above, it will only allow INPUT access.

			The file is written in the normal Basic INTERNAL format, and each record contains four items: one string and three numerics. There are 128 records in the file, and they are numbered 0 thru 127.

			Record 0:
			This record contains data about the volume for which the catalog file was created. The string gives the name of the disc (up to 10 characters) and the numerical items are as follows:
			1. Always 0 (for record 0)
			2. Total number of sectors on the disc
			3. Total number of free sectors on the disc

			Records 1 thru 127:
			These records contain information on the corresponding file in the Catalog. Non existant files will give a null string for the first item, and 0’s (zeros) for the numeric items. Files which exist will give the file name for the string, and the following numeric items:
			1. = Filetype (if number is negative, file is protected)
			1= DISPLAY/FIXED datafile
			2= DISPLAY/VARIABLE datafile
			3= INTERNAL/FIXED datafile
			4= INTERNAL/VARIABLE datafile
			5= Memory Image file (Program File)
			2. = Number of AUs allocated to the file
			3. = Number of bytes per record (0 for type 5 file)



	This TI BASIC program reads the directory of a disk and prints it on the screen. The P flag indicates protection. You can easily expand this program to consider subdirectories; just replace the number input in line 170-200 by a direct string input and open the given path name in line 210.		This TI BASIC program reads the directory of a disk and prints it on the screen. The P flag indicates protection. You can easily expand this program to consider subdirectories; just replace the number input in line 170-200 by a direct string input and open the given path name in line 210.

Stephen Shaw: add category

2014-11-05T20:39:01Z

add category

← Older revision		Revision as of 20:39, 5 November 2014
Line 27:		Line 27:
	340 NEXT LOOP		340 NEXT LOOP
	350 CLOSE #1		350 CLOSE #1

			[[Category:Software]]

Mizapf: Created page with "This TI BASIC program reads the directory of a disk and prints it on the screen. The P flag indicates protection. You can easily expand this program to consider subdirectories; j..."

2011-07-01T08:24:23Z

Created page with "This TI BASIC program reads the directory of a disk and prints it on the screen. The P flag indicates protection. You can easily expand this program to consider subdirectories; j..."

New page

This TI BASIC program reads the directory of a disk and prints it on the screen. The P flag indicates protection. You can easily expand this program to consider subdirectories; just replace the number input in line 170-200 by a direct string input and open the given path name in line 210.

100 CALL CLEAR
110 DIM TYP$(5)
120 TYP$(1)="DIS/FIX"
130 TYP$(2)="DIS/VAR"
140 TYP$(3)="INT/FIX"
150 TYP$(4)="INT/VAR"
160 TYP$(5)="PROGRAM"
170 INPUT "MASTER DISK(1-3)?":A
180 A=INT(A)
190 IF A<1 THEN 170
200 IF A>3 THEN 170
210 OPEN #1:"DSK"&STR$(A)&".",INPUT,RELATIVE,INTERNAL
220 INPUT #1:A$,J,J,K
230 PRINT "DSK";STR$(A);" -DISK NAME= ";A$:"FREE= ";K;"USED= ";J-K
240 PRINT:"FILE NAME SIZE TYPE P":"__________ ______ ________ _"
250 FOR LOOP=1 TO 127
260 INPUT #1:A$,A,J,K
270 IF LEN(A$)=0 THEN 350
280 PRINT:A$;TAB(12);J;TAB(19);TYP$(ABS(A));
290 IF ABS(A)=5 THEN 320
300 B$=" "&STR$(K)
310 PRINT SEG$(B$,LEN(B$)-2,3);
320 IF A>0 THEN 340
330 PRINT TAB(28);"P";
340 NEXT LOOP
350 CLOSE #1