home *** CD-ROM | disk | FTP | other *** search
/ STraTOS 1997 April & May / STraTOS 1 - 1997 April & May.iso / CD01 / UTILS / @FALCON / DESKAPPL / INFCACHE / INFCACHE.GFA (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1996-12-21  |  1.5 KB  |  41 lines
  1. '
  2. ' InfCache ╜ '96 by Duschnouk
  3. ' Ce programme a pour but d'analyser le Newdesk.inf pour le forcer à installer
  4. ' le cache si celui-ci a été omis...
  5. ' => Est nécessité par un bug de Stoop qui parfois l'enlève...
  6. ' Il faut le placer juste après le programme de boot, et le cacher de celui-ci.
  7. '
  8. ' L'endroit à modifier est le 4ème nombre de la ligne #E ; une fois converti,
  9. ' c'est le bit 1 qu'il faut mettre sur 1 pour activer le cache.
  10. '
  11. ' ╢ noter que d'après les tests que j'ai fait, c'est le seul paramètre
  12. ' "physique" du F030 qui est contenu dans le Newdesk.inf : il ne contient pas
  13. ' l'état du blitter (qui de toute façon est toujours branché) ni ne permet de
  14. ' passer en 8 ou 16Mhz...
  15. '
  16. IF EXIST("C:\NEWDESK.INF")
  17.   DIM lignes$(1000) ! Ça devrait suffire, non &-)
  18.   '  On charge le Newdesk.inf
  19.   OPEN "I",#1,"C:\NEWDESK.INF"
  20.   RECALL #1,lignes$(),-1,nblignes#
  21.   CLOSE #1
  22.   '
  23.   FOR i&=0 TO nblignes#-1
  24.     EXIT IF LEFT$(lignes$(i&),2)="#E"
  25.   NEXT i&
  26.   '
  27.   IF LEFT$(lignes$(i&),2)="#E"
  28.     '  On répare en une ligne de code :-)
  29.     lignes$(i&)=LEFT$(lignes$(i&),12)+HEX$(BSET(VAL("$"+MID$(lignes$(i&),13,2)),1),2)+RIGHT$(lignes$(i&),LEN(lignes$(i&))-14)
  30.   ENDIF
  31.   '
  32.   ' On sauvegarde
  33.   '
  34.   OPEN "O",#1,"C:\NEWDESK.INF"
  35.   STORE #1,lignes$(),nblignes#
  36.   CLOSE #1
  37.   '
  38.   PRINT "InfCache ╜ '96 by DuschnouK"
  39.   PRINT "Et hop, le Newdesk est maintenant avec Cache :-)"
  40. ENDIF
  41.