*
* Abschalten des 68020/030-Cache-Speichers
* für Daten und Instruktionen ...
*
* created on 14/11/89  16:16:13  by Holger Gzella
*
* Dieses Programm kann nicht mit DevPac assembliert
* werden (zumindest nicht bis Version 2.12D einschließ-
* lich) - es muß ein 680x0-Assembler benutzt werden,
* z.B. der von Lattice-C 5.0 oder von Aztec 3.6
*

                include "asm:exec/exec_lib.i"

                section "code",code             * nur für Lattice ...

                move.l  #2650704,d0             * Wert für das Abschalten des
                                                * Cache-Speichers sowie Akti-
                                                * vierung des Word-Alignments

                lea     SuperVisorCode,a5       * Adresse des Codes, der im
                                                * Supervisor-Mode des Pro-
                                                * zessors ausgeführt werden
                                                * soll, holen
                CALLEXEC Supervisor             * und ausführen ...

                moveq   #0,d0                   * alles klar!
                rts

*
* Dieser Code wird im Supervisor-Mode ausgeführt ...
* er schreibt den Wert von D0 ins Cache-Kontrollregister
* (CACR) und ist ab 68020 lauffähig.
*
* Falls Sie diese Routine mit einem Assembler, der nicht
* über die 68020-Opcodes verfügt, bearbeiten wollen,
* können Sie den MOVEC D0,CACR-Befehl mit den darunter
* befindlichen DC.Ws angeben.
*

SuperVisorCode: movec   d0,CACR                 * d0 nach CACR

*               dc.w    $4e7b
*               dc.w    $0002

                rte                             * zurück, Baby!

                END