10 FOR X=&1000 TO &1012:READ A:POKE X,A:NEXT       
20 CALL &1000                                       
21 A=TIME                                           
22 SAVE"test",b,&C000,&4000
30 LOAD"test",&C000                                 
31 B=TIME                                           
32 PRINT B-A                                       
40 END                                             
50 DATA 33,10,16,223,7,16,201,13,198,7             
60 'DATA 35,0,200,0,1,1,10,0,3                     
61  DATA 01,0,001,0,1,1,08,0,1                     

;;http://cpcrulez.fr/codingBOOK_clefs2_07-logiciel_interne_vect_disque.htm
run #1000
org #1000

   ld hl,l100a
   rst #18
   dw l1007
   ret

l1007: dw #c60d   ;Specifie les caracteristiques du lecteur (routine 2).
       db #07
l100a:  dw #01  ;temps d'acces apres le demarrage du moteur exprime en cinquantiemes de seconde (valeur par defaut 50).
        dw #00  ;temps d'arret du moteur apres le dernier acces exprime en cinquantiemes de seconde (valeur par defaut 250).
        db #01  ;temps de retombee du courant d'ecriture exprime en dizaines de microsecondes (valeur par defaut 175).
   db #01  ;temps de positionnement de la tete exprime en millisecondes (valeur par defaut 15).
   db #08  ;temps de deplacement d'une piste a l'autre exprime en millisecondes (valeur par defaut 12).
        db #00  ;temps de retrait de la tete (facteur utilise par le FDC 765).
   db #01  ;temps de chargement de la tete et indicateur de DMA (bit 0).