DISKDUMP |
Sortir le disque |
|---|---|
| TRSDOS | |
Syntaxe
|
BASIC RUN "DISKDUMP/BAS" |
Description
Cette commande, écrit en BASIC, permet d'examiner les fichiers de disque.
Entrée de ligne de commande
C'est un programme BASIC. Pour l'exécuter, vous devez d'abord charger DISK BASIC, puis charger DISKDUMP/BAS :
|
BASICENTER HOW MANY FILES?ENTER MEMORY SIZE?ENTER RADIO SHACK DISK BASIC VERSION 1.1 READY RUN"DISKDUMP/BAS"ENTER |
DISKDUMP vous permet de consulter le contenu de n'importe lequel de vos fichiers de disque. Il vous aidera à expérimenter diverses instructions de sortie de disque aléatoires et séquentielles, et vous aidera également à déboguer les routines d'entrée/sortie de disque.
Le programme est écrit pour être vidé vers l'imprimante de ligne. Si vous n'en avez pas connecté, changez tous les LPRINT en PRINT (lignes 170, 240, 250) et changez la ligne 160 en :
160 GET1,SN
Ce programme vous invite à saisir le nom du fichier, puis à saisir le secteur que vous souhaitez examiner. Vous pouvez simplement appuyer sur ENTER sans numéro et l'examen secteur par secteur sera séquentiel, en commençant par le secteur 1, le premier enregistrement physique du fichier.
Si vous spécifiez un numéro de secteur supérieur au numéro EOF (fin de fichier), aucun message d'erreur ne sera donné et le "secteur" apparaîtra sous forme d'octets de valeur zéro.
Les secteurs sont affichés 16 octets à la fois. Ces 16 octets sont affichés d'abord en code hexadécimal, puis avec le code ASCII correspondant. La représentation ASCII est entourée de symboles «!» . Les points remplacent les octets n'ayant pas de représentation alphanumérique.
Vous trouverez ci-dessous une session DISKDUMP typique :
|
SECTOR DUMP UTILITY 1.1 FILESPEC: SEQCHECK/TXT SECTOR NUMBER (OR 'ENTER' FOR NEXT SECTOR):ENTER FILESPEC: SEQCHECK/TXT SECTOR: 1 0 35 20 43 4C 53 3A 20 43 4C 45 41 52 20 31 30 30 !5 CLS: CLEAR 100! 16 30 0D 31 30 20 41 24 3D 49 4E 4B 45 59 24 3A 49 !0.10 A$=INKEY$:I! 32 46 41 24 3D 22 22 54 48 45 4E 31 30 0D 31 35 20 !FA$=""THEN10.15 ! 48 49 46 20 41 24 3D 22 40 22 54 48 45 4E 20 32 35 !IF A$="@"THEN 25! 64 0D 32 30 20 50 52 49 4E 54 41 24 3B 3A 42 24 3D !.20 PRINTA$;:B$=! 80 42 24 2B 41 24 3A 50 52 49 4F 31 30 0D 32 45 20 !B$+A$:GOTO10.25 ! 96 50 52 49 4E 54 3A 50 52 49 4E 54 22 44 41 54 41 !PRINT:PRINT"DATA! 112 20 49 4D 41 47 45 20 57 49 4C 4C 20 41 53 20 4F ! IMAGE WILL AS O! 128 4E 20 4E 45 58 54 20 4C 49 4E 45 2E 20 28 22 43 !N NEXT LINE. ("C! 144 48 52 24 28 39 31 29 22 3D 42 59 54 45 20 44 45 !HR$(91)="BYTE DE! 160 4C 49 4D 49 54 45 52 29 22 0D 33 30 20 46 4F 52 !LIMITER)".30 FOR! 176 49 25 3D 31 20 54 4F 20 4C 45 4E 28 42 24 29 3A !I%=1 TO LEN(B$):! 192 20 50 52 49 4E 54 20 41 53 43 28 4D 49 44 24 28 ! PRINT ASC(MID$(! 208 42 24 2C 49 25 29 29 43 48 52 24 28 39 31 29 3B !B$,I%))CHR$(91);! 224 3A 4E 45 58 54 0D 33 35 20 50 52 49 4E 54 0D 35 !:NEXT.35 PRINT.5! 240 30 20 4F 50 45 4E 22 4F 22 2C 31 2C 22 54 45 53 !0 OPEN"0",1,"TES! |