2.3 Suchen eines Treibers

Das Suchen nach einem Treiber sollte ebenfalls im Supervisormode erfolgen. Da das Betriebssystem die Variable $41C beim Warmstart nicht auf 0 setzt, muß zu jedem gefunden Vektor MAGIC überprüft werden.

Es folgt eine Beispielsroutine in GFA-Basic Notation, die die gefundenen und gültigen Vektoren in ein Integerarray schreibt:

DIM vektor%(31)                   ! Dahin kommen die Adressen der Treiber
index%=0                          ! Zähler auf 0 initialisieren
adr%=LPEEK($41C)                  ! Adresse des ersten Treibers
WHILE adr%<>0 AND LPEEK(adr%+4)=$47445053
                                  ! Test: Adresse gültig und Magic OK?
   vektor%(index%)=adr%           ! wenn ja Adresse merken
   inc index%                     ! Zähler um eins erhöhen
WEND
PRINT index%;" Treiber gefunden!"

English version not yet available.