
;No Fast: Verschwendet den gesamten Fast-Memory!
;Dieses Programm ist recht hilfreich, wenn Sie einen Amiga mit mehr als
;512 kByte haben und ein Programm älteren Datums, welches nur auf 512k-
;Amigas läuft. Starten Sie NoFast, bevor Sie das alte Programm starten.

;WICHTIG: ACHTEN SIE DARAUF, DAS CODE-, DATA- UND BSS-SEGMENT IN CHIP-
; MEMORY KOMMEN; KLICKEN SIE IM ASSEMBLIEREN-FORMULAR DIE ENTSPRECHENDEN
; GADGETS AN!

 ILABEL ":Includes/Amiga.L"

_LVOAllocMem = -$c6
_LVOAvailMem = -$d8

MEMF_LARGEST = 1<<17
MEMF_FAST    = 1<<2

 INIT_AMIGA

LOOP:

;Noch FAST-Memory da?

 MOVE.L #MEMF_FAST | MEMF_LARGEST,D1
 CALLSYS AvailMem
 TST.L D0
 BEQ.S ENDE            ;Anscheinend nicht!

;Falls ja, dann den Speicher beschaffen und den Zeiger darauf vergessen:

 MOVE.L #MEMF_FAST | MEMF_LARGEST,D1
 CALLSYS AllocMem
 TST.L D0
 BNE.S LOOP            ;Kein Fehler

ENDE:
 EXIT_AMIGA

 END
 