/* -*- mode: asm -*-
**
** head.S -- This file contains the initial boot code for the
** Linux/68k kernel.
**
** Copyright 1993 by Hamish Macdonald
**
** 68040 fixes by Michael Rausch
** 68060 fixes by Roman Hodek
**
** Atari support by Andreas Schwab, using ideas of Robert de Vries
** and Bjoern Brauel
**
** 94/11/14 Andreas Schwab: put kernel at PAGESIZE
** 94/11/18 Andreas Schwab: remove identity mapping of STRAM for Atari
** ++ Bjoern & Roman: ATARI-68040 support for the Medusa
** 96/04/26 G|nther Kelleter: fixed identity mapping for Falcon with
** Magnum- and FX-alternate ram
**
** This file is subject to the terms and conditions of the GNU General Public
** License. See the file README.legal in the main directory of this archive
** for more details.
**
*/
/*
* Linux startup code.
*
* At this point, the boot loader has:
* Disabled interrupts
* Disabled caches
* Put us in supervisor state.
*
* The kernel setup code takes the following steps:
* Raise interrupt level
* Set up initial kernel memory mapping.
* This sets up a mapping of the 4M of memory the kernel
* is located in. It also does a mapping of any initial
* machine specific areas.
* Note that the kernel is located at virtual address 0x1000 == _start
* Enable cache memories
* Jump to kernel startup
*
* Register d6 contains the CPU flags and d4 the machine type
* from the boot_info information for most of this file.
* The upper word of d6 contains a bit for '040 or '060, since these two
* are quite similar for initial mm setup. Another bit in d6 allows
* distinction of the '060. The lower word of d6 contains the cache mode
* that should be applied to pages containing descriptors. This mode is
* non-cached/non-serialized for the '040 and cacheable/write-through for
* the '060.
*
* General register usage:
* a6 - start of unused memory
* new pages can be allocated from here
* a5 - mmu root table
* a4 - mmu pointer table
* a3 - mmu page tables
* a2 - points to the page table entry for a6
* cache status can be changed (used for '0[46]0)
* you must increase a2 if alloc a new page
* d7 - used for debug output and some macros
* d6 - cpu type and cache mode
* d5 - physical start address of kernel
* d4 - machine type
*/
#include <linux/autoconf.h>
#include <linux/linkage.h>
#include <asm/bootinfo.h>
#include <asm/pgtable.h>
.globl SYMBOL_NAME(kernel_pg_dir), SYMBOL_NAME(kpt)
.globl SYMBOL_NAME(availmem), SYMBOL_NAME(is_medusa)
.globl SYMBOL_NAME(m68k_pgtable_cachemode)
.globl SYMBOL_NAME(kernel_pmd_table), SYMBOL_NAME(swapper_pg_dir)
D6B_0460 = 16 /* indicates 680[46]0 in d6 */
D6B_060 = 17 /* indicates 68060 in d6 */
D6F_040 = 1<<D6B_0460
D6F_060 = (1<<D6B_0460)+(1<<D6B_060)
/* Translation control register */
TC_ENABLE = 0x8000
TC_PAGE8K = 0x4000
TC_PAGE4K = 0x0000
/* Transparent translation registers */
TTR_ENABLE = 0x8000 /* enable transparent translation */
TTR_ANYMODE = 0x4000 /* user and kernel mode access */
TTR_KERNELMODE = 0x2000 /* only kernel mode access */
TTR_USERMODE = 0x0000 /* only user mode access */
TTR_CI = 0x0400 /* inhibit cache */
TTR_RW = 0x0200 /* read/write mode */
TTR_RWM = 0x0100 /* read/write mask */
TTR_FCB2 = 0x0040 /* function code base bit 2 */
TTR_FCB1 = 0x0020 /* function code base bit 1 */
TTR_FCB0 = 0x0010 /* function code base bit 0 */
TTR_FCM2 = 0x0004 /* function code mask bit 2 */
TTR_FCM1 = 0x0002 /* function code mask bit 1 */
TTR_FCM0 = 0x0001 /* function code mask bit 0 */
/* Cache Control registers */
CC6_ENABLE_D = 0x80000000 /* enable data cache (680[46]0) */
CC6_FREEZE_D = 0x40000000 /* freeze data cache (68060) */
CC6_ENABLE_SB = 0x20000000 /* enable store buffer (68060) */
CC6_PUSH_DPI = 0x10000000 /* disable CPUSH invalidation (68060) */
CC6_HALF_D = 0x08000000 /* half-cache mode for data cache (68060) */
CC6_ENABLE_B = 0x00800000 /* enable branch cache (68060) */
CC6_CLRA_B = 0x00400000 /* clear all entries in branch cache (68060) */
CC6_CLRU_B = 0x00200000 /* clear user entries in branch cache (68060) */
CC6_ENABLE_I = 0x00008000 /* enable instruction cache (680[46]0) */
CC6_FREEZE_I = 0x00004000 /* freeze instruction cache (68060) */
CC6_HALF_I = 0x00002000 /* half-cache mode for instruction cache (68060) */
CC3_ALLOC_WRITE = 0x00002000 /* write allocate mode(68030) */
CC3_ENABLE_DB = 0x00001000 /* enable data burst (68030) */
CC3_CLR_D = 0x00000800 /* clear data cache (68030) */
CC3_CLRE_D = 0x00000400 /* clear entry in data cache (68030) */
CC3_FREEZE_D = 0x00000200 /* freeze data cache (68030) */
CC3_ENABLE_D = 0x00000100 /* enable data cache (68030) */
CC3_ENABLE_IB = 0x00000010 /* enable instruction burst (68030) */
CC3_CLR_I = 0x00000008 /* clear instruction cache (68030) */
CC3_CLRE_I = 0x00000004 /* clear entry in instruction cache (68030) */
CC3_FREEZE_I = 0x00000002 /* freeze instruction cache (68030) */
CC3_ENABLE_I = 0x00000001 /* enable instruction cache (68030) */
/* Miscellaneous definitions */
PAGESIZE = 4096
ROOT_TABLE_SIZE = 128
PTR_TABLE_SIZE = 128
PAGE_TABLE_SIZE = 64
ROOT_INDEX_SHIFT = 25
PTR_INDEX_SHIFT = 18
PAGE_INDEX_SHIFT = 12
TABLENR_4MB = 16 /* # of page tables needed to page 4 MB */
TABLENR_16MB = 64 /* same for 16 MB */
#define putc(ch) moveq &ch,%d7; jbsr Lserial_putc
#define putr() putc(13); putc(10)
#define putn(nr) movel nr,%d7; jbsr Lserial_putnum
#define is_not_amiga(lab) moveq &MACH_AMIGA,%d7; cmpl %d4,%d7; jne lab
#define is_not_atari(lab) moveq &MACH_ATARI,%d7; cmpl %d4,%d7; jne lab
#define is_040_or_060(lab) btst &D6B_0460,%d6; jne lab
#define is_not_040_or_060(lab) btst &D6B_0460,%d6; jeq lab
#define is_060(lab) btst &D6B_060,%d6; jne lab
#define is_not_060(lab) btst &D6B_060,%d6; jeq lab
.text
ENTRY(_stext)
/*
* Version numbers of the bootinfo interface
* The area from _stext to _start will later be used as kernel pointer table
*/
bras 1f /* Jump over bootinfo version numbers */
.long BOOTINFOV_MAGIC
.long MACH_AMIGA, AMIGA_BOOTI_VERSION
.long MACH_ATARI, ATARI_BOOTI_VERSION
.long 0
1: jra SYMBOL_NAME(_start)
.equ SYMBOL_NAME(kernel_pmd_table),SYMBOL_NAME(_stext)
.equ SYMBOL_NAME(kernel_pg_dir),SYMBOL_NAME(kernel_pmd_table)
.equ SYMBOL_NAME(swapper_pg_dir),SYMBOL_NAME(kernel_pg_dir)+(ROOT_TABLE_SIZE<<2)
.equ Lavail_pmd_table,SYMBOL_NAME(swapper_pg_dir)+(ROOT_TABLE_SIZE<<2)
.equ .,SYMBOL_NAME(_stext)+PAGESIZE
ENTRY(_start)
/*
* Setup initial stack pointer
*/
lea %pc@(SYMBOL_NAME(_stext):w),%sp
/*
* Copy bootinfo from position after BSS to final resting place
*/
lea %pc@(SYMBOL_NAME(_end)),%a0
lea %pc@(SYMBOL_NAME(boot_info)),%a1
movel %pc@(SYMBOL_NAME(bisize)),%d0
subql #1,%d0
1: moveb %a0@+,%a1@+
dbra %d0,1b
/*
* Record the CPU and machine type.
*/
lea %pc@(SYMBOL_NAME(boot_info)),%a0
movel %a0@(BI_machtype),%d4
movel %a0@(BI_cputype),%d0
btst #CPUB_68060,%d0
jeq 1f
/* '060: d6 := BIT0460|BIT060, cache mode 0x60 (no-cache/non-ser) */
movel #D6F_060+_PAGE_NOCACHE,%d6
jra 2f
1: btst #CPUB_68040,%d0
jeq 1f
/* '040: d6 := BIT0460, cache mode 0x00 (write-through) */
movel #D6F_040+_PAGE_CACHE040W,%d6
jra 2f
1: /* '020 or '030: d6 := no CPU bit, cache mode unused */
moveq #0,%d6
2: lea %pc@(SYMBOL_NAME(m68k_pgtable_cachemode)),%a0
moveq #0,%d0
movew %d6,%d0
movel %d0,%a0@ /* save cache mode for page tables */
/*
* raise interrupt level with MASTER bit set, copy isp to msp (if not 68060)
*/
#ifdef FROM_PL9
movew #0x3700,%sr
is_060(1f)
movec %isp,%d0
movel %d0,%sp
1:
#else
movew #0x2700,%sr
#endif
/*
* Initialize serial port
*/
jbsr Lserial_init
putr()
putc('A')
/*
* Get address at end of kernel code/data/bss and
* mask off at a page boundary.
*/
lea %pc@(SYMBOL_NAME(_end)),%a0
addw #PAGESIZE-1,%a0
movel %a0,%d0
andl #-PAGESIZE,%d0
movel %d0,%a6
putc('B')
/*
* Save physical start address of kernel
*/
lea %pc@(SYMBOL_NAME(_stext)-PAGESIZE:w),%a0
movel %a0,%d5
#ifdef HACKER_KERNEL
lea %pc@(Lkernel_start),%a0
movel %d5,%a0@
#endif
/*
* initialize the kernel root table.
*/
lea %pc@(SYMBOL_NAME(kernel_pg_dir):w),%a5
movel %a5,%a0
moveq #ROOT_TABLE_SIZE-1,%d1
1: clrl %a0@+
dbra %d1,1b
/*
* Initialize root table descriptor pointing to the kernel pointer
* table.
*/
lea %pc@(Lavail_pmd_table:w),%a4
moveq #_PAGE_TABLE,%d0
addl %a4,%d0
movel %d0,%a5@
putc('C')
/*
* Initialize the pointer tables referred to above. They either point
* to page tables in the case of the 680[46]0 or contain early
* termination page descriptors in the case of the 68851 or 68030.
*
* Each pointer table entry points to a 64 entry page table. 16 of these
* page tables are grouped to form a single 1024 entry page table which
* fits in a single 4096 byte page.
*
* Some register usages:
* a0 -> pointer table descriptor address
* a1 -> pointer table descriptor
* d1 -> counter
* d2 -> pointer table descriptor increment (varies according to CPU)
*/
/* clear the kernel pointer table */
movel %a4,%a0
moveq #PTR_TABLE_SIZE-1,%d1
1: clrl %a0@+
dbra %d1,1b
movel %a4,%a0
moveq #15,%d1
/*
* base value of pointer table descriptor is either
* the address of the first page table (680[46]0)
* or the base address of physical memory (68030).
*/
is_040_or_060(1f)
/* 680[23]0 */
movel %d5,%a1 /* base address */
addql #_PAGE_PRESENT,%a1 /* descriptor type */
movel #PAGE_TABLE_SIZE*PAGESIZE,%d2 /* increment */
jra 2f
1: /* 680[46]0 */
movel %a6,%a3 /* base address */
addw #PAGESIZE,%a6 /* allocate page for 16 page tables */
lea %pc@(SYMBOL_NAME(kpt)),%a1
movel %a3,%a1@ /* save address of page table */
movel %a3,%a1
addql #_PAGE_TABLE,%a1 /* descriptor type */
movel #PAGE_TABLE_SIZE<<2,%d2 /* increment */
2: movel %a1,%a0@+
addl %d2,%a1
dbra %d1,2b
putc('D')
/*
* If we are running on a 680[46]0, we have a kernel page table and
* must initialize it. Make the entries point to the first
* 4M of physical memory (the memory we are residing in).
* Set the cache mode bits to Cacheable, Copyback. Set the Global bits
* in the descriptors also.
*/
is_not_040_or_060(Lnot040)
putc('F')
movel %a3,%a0
movel %d5,%a1
addw #_PAGE_GLOBAL040+_PAGE_CACHE040+_PAGE_PRESENT,%a1
movew #(PAGE_TABLE_SIZE*TABLENR_4MB)-1,%d1
movel #PAGESIZE,%d2
1: movel %a1,%a0@+
addl %d2,%a1
dbra %d1,1b
/*
* on the 68040, pages used to hold mmu tables should
* be initialized as noncachable; the '060 allows write-through.
* Do this for the root table page (which also contains
* all pointer tables utilized thus far) and the
* kernel page table.
*/
movel %a5,%d0
subl %d5,%d0
moveq #PAGE_INDEX_SHIFT,%d2
lsrl %d2,%d0
lea %a3@(%d0:l:4),%a2
movel %a2@,%d1
andw #_CACHEMASK040,%d1
orw %d6,%d1
movel %d1,%a2@
movel %a3,%d0
subl %d5,%d0
lsrl %d2,%d0
lea %a3@(%d0:l:4),%a2
movel %a2@,%d1
andw #_CACHEMASK040,%d1
orw %d6,%d1
movel %d1,%a2@+
/*
* %a2 points now to the page table entry for available pages at %a6,
* hence caching modes for new pages can easily set unless increasing
* of %a2 are forgotten.
*/
Lnot040:
/*
* Do any machine specific page table initializations.
*/
#ifdef CONFIG_AMIGA
is_not_amiga(Lnotami)
/*
* Setup a mapping of the first 16M of physical address space at virtual
* address 0x80000000, using early termination page descriptors for the
* 68030, and proper page tables for the 680[46]0. Set this area as
* non-cacheable.
*/
putc('H')
is_040_or_060(Lspami68040)
/*
* for the 68030, just setup a translation to map in the first
* 32M of physical address space at virtual address 0x80000000
* using an early termination page descriptor.
*/
putc('I')
moveq #_PAGE_NOCACHE030+_PAGE_PRESENT,%d0
movel %d0,%a5@(0x40<<2)
jra Lmapphys
Lspami68040:
/*
* for the 680[46]0, use another pointer table, and allocate 4 more
* page tables. Initialize the pointer table to point to the
* page tables. Then initialize the page tables to point to
* the first 16M of memory, with no caching (noncachable/serialized).
*/
/* clear the amiga pointer table */
lea %a4@(PTR_TABLE_SIZE<<2),%a4
moveq #PTR_TABLE_SIZE-1,%d1
1: clrl %a0@+
dbra %d1,1b
/* allocate 4 pages for 64 page tables */
movel %a6,%a3
addw #4*PAGESIZE,%a6
/* initialize the pointer table */
movel %a4,%a0
movel %a3,%a1
addql #_PAGE_TABLE,%a1 /* base descriptor */
movel #PAGE_TABLE_SIZE<<2,%d2 /* increment */
moveq #TABLENR_16MB-1,%d1
1: movel %a1,%a0@+
addl %d2,%a1
dbra %d1,1b
/* ensure that the root table points to the pointer table */
movel %a4,%a0
addql #_PAGE_TABLE,%a0
movel %a0,%a5@(0x40<<2)
/*
* initialize the page tables
* descriptor bits include noncachable/serialized and global bits.
*/
movel %a3,%a0
movew #_PAGE_GLOBAL040+_PAGE_NOCACHE_S+_PAGE_PRESENT,%a1
movel #PAGESIZE,%d2
movew #(PAGE_TABLE_SIZE*TABLENR_16MB)-1,%d1
1: movel %a1,%a0@+
addl %d2,%a1
dbra %d1,1b
/*
* Finally, since we just allocated 4 page tables, make sure that
* the virtual mapping of the 4 page tables indicates
* noncachable/serialized.
*/
moveq #3,%d0
1: movel %a2@,%d1 /* a2 already points to root table offset */
andw #_CACHEMASK040,%d1
orw %d6,%d1
movel %d1,%a2@+
dbra %d0,1b
jra Lmapphys
Lnotami:
#endif
#ifdef CONFIG_ATARI
is_not_atari(Lnotatari)
move.w #PAGESIZE,%sp
/* On the Atari, we map the I/O region (phys. 0x00ffxxxx) by mapping
the last 16 MB of virtual address space to the first 16 MB (i.e.
0xffxxxxxx -> 0x00xxxxxx). For this, an additional pointer table is
needed. I/O ranges are marked non-cachable.
For the Medusa it is better to map the I/O region transparently
(i.e. 0xffxxxxxx -> 0xffxxxxxx), because some I/O registers are
accessible only in the high area. The test whether it is a Medusa
is done by writing to the byte at phys. 0x0. This should result
in a bus error on all other machines.
...should, but doesn't. The Afterburner040 for the Falcon has the
same behaviour (0x0..0x7 are no ROM shadow). So we have to do
another test to distinguish Medusa and AB040. This is a
read attempt for 0x00ff82fe phys. that should bus error on a Falcon
(+AB040), but is in the range where the Medusa always asserts DTACK.
*/
moveq #0,%d3 /* base addr for others: 0x00000000 */
movec %d3,%vbr
lea %pc@(Ltest_berr),%a0
movel %a0,0x8
movel %sp,%a0
moveb 0x0,%d1
clrb 0x0
nop
moveb %d1,0x0
nop
tstb 0x00ff82fe
nop
movel #0xff000000,%d3 /* Medusa base addr: 0xff000000 */
Ltest_berr:
movel %a0,%sp
lea %pc@(SYMBOL_NAME(is_medusa)),%a0
movel %d3,%a0@
/* Let the root table point to the new pointer table */
lea %a4@(PTR_TABLE_SIZE<<2),%a4
movel %a4,%a0
addl #_PAGE_TABLE,%a0
movel %a0,%a5@(0x7f<<2) /* 0xFE000000 - 0xFFFFFFFF */
/* clear lower half of the pointer table (0xfexxxxxx) */
movel %a4,%a0
movel #(PTR_TABLE_SIZE/2)-1,%d2
1: clrl %a0@+
dbra %d2,1b
is_040_or_060(Lspata68040)
/* Mapping of the last 16M of virtual address space to the first 16M
for efficient addressing of hardware registers */
movel #PAGE_TABLE_SIZE*PAGESIZE,%d1
movel #(PTR_TABLE_SIZE/2)-1,%d2
movel %d3,%d0
addl #_PAGE_PRESENT,%d0
1: movel %d0,%a0@+
addl %d1,%d0
dbra %d2,1b
moveq #_PAGE_NOCACHE030,%d0 /* make non-cachable */
addl %d0,%a4@(0x7f<<2) /* 0xFFFC0000-0xFFFFFFFF (I/O space) */
/* GK: 0xFFF00000-0xFFF3FFFF (IDE-bus) has to be non-cachable too */
addl %d0,%a4@(0x7c<<2)
jra Lmapphys
Lspata68040:
/* allocate 4 page tables */
movel %a6,%a3
addw #4*PAGESIZE,%a6
/* Initialize the upper half of the pointer table (a0 is still valid) */
movel %a3,%a1
addql #_PAGE_TABLE,%a1
movel #PAGE_TABLE_SIZE<<2,%d2
moveq #TABLENR_16MB-1,%d1
1: movel %a1,%a0@+
addl %d2,%a1
dbra %d1,1b
/* Initialize the page tables as noncacheable/serialized! */
movel %a3,%a0
movel %d3,%a1
addw #_PAGE_GLOBAL040+_PAGE_NOCACHE_S+_PAGE_PRESENT,%a1
movel #PAGESIZE,%d2
movew #(PAGE_TABLE_SIZE*TABLENR_16MB)-1,%d1
1: movel %a1,%a0@+
addl %d2,%a1
dbra %d1,1b
/*
* Finally, since we just allocated 4 page tables, make sure that
* the virtual mapping of the 4 page tables indicates
* noncachable or write-through.
*/
moveq #3,%d0
1: movel %a2@,%d1 /* a2 already points to root table offset */
andw #_CACHEMASK040,%d1
orw %d6,%d1
movel %d1,%a2@+
dbra %d0,1b
Lnotatari:
#endif
/*
* Setup a transparent mapping of the physical memory we are executing in.
*
* Only do this if the physical memory is not in the first 16M Meg, or not on
* an Amiga since the first 16M is already identity mapped on the Amiga.
*/
Lmapphys:
putc('J')
#ifdef CONFIG_AMIGA
is_not_amiga(Lmapphysnotamiga)
/*
* The virtual address of the start of the kernel is 0x1000. We transparently
* translate the memory where we running in and can enable then the MMU. Hence
* we have now two locations of the kernel in memory and can jump to the final
* place. Except if the physical location is in the first 16MB, translation
* will overlap later virtual location, but as we already mapped the first
* 16MB to 0x80000000, we can jump there after translation and MMU is enabled
* and then we can switch off translation and go to the final place.
* When MMU is enabled, stack pointer and Lcustom will become again valid and
* points to the unused first page.
*/
/*
* Setup Supervisor Root Pointer register to point to page directory,
* setup translation register contents and enable translation.
*/
putc('K')
movew #PAGESIZE,%sp
/* fixup the Amiga custom register location before printing */
lea %pc@(Lcustom),%a0
movel #0x80000000,%a0@
is_040_or_060(Lamimmu68040)
lea 2f:w,%a0
movel %d5,%d0
andl #0xff000000,%d0
jne 1f
lea %pc@(2f+0x80000000),%a0
1: orw #TTR_ENABLE+TTR_CI+TTR_RWM+TTR_FCB2+TTR_FCM1+TTR_FCM0,%d0
lea %pc@(Lmmu),%a3
movel %d0,%a3@
.long 0xf0130800 /* pmove %a3@,%tt0 */
/* no limit, 4byte descriptors */
movel #0x80000002,%a3@
movel %a5,%a3@(4)
.long 0xf0134800 /* pmove %a3@,%srp */
.long 0xf0134c00 /* pmove %a3@,%crp */
.long 0xf0002400 /* pflusha */
/*
* enable,super root enable,4096 byte pages,7 bit root index,
* 7 bit pointer index, 6 bit page table index.
*/
movel #0x82c07760,%a3@
.long 0xf0134000 /* pmove %a3@,%tc (enable the MMU) */
jmp %a0@
2: clrl %a3@
.long 0xf0130800 /* pmove %a3@,%tt0 */
jmp LdoneMMUenable:w
Lamimmu68040:
lea 2f:w,%a0
movel %d5,%d0
andl #0xff000000,%d0
jne 1f
lea %pc@(2f+0x80000000),%a0
1: orw #TTR_ENABLE+TTR_KERNELMODE+_PAGE_NOCACHE_S,%d0
.long 0x4e7b0004 /* movec %d0,%itt0 */
.long 0x4e7bd806 /* movec %a5,%urp */
.long 0x4e7bd807 /* movec %a5,%srp */
.word 0xf518 /* pflusha */
movel #TC_ENABLE+TC_PAGE4K,%d0
/*
* this value is also ok for the 68060, we don`t use the cache
* mode/protection defaults
*/
.long 0x4e7b0003 /* movec %d0,%tc (enable the MMU) */
jmp %a0@
2: moveq #0,%d0
.long 0x4e7b0004 /* movec %d0,%itt0 */
jmp LdoneMMUenable:w
Lmapphysnotamiga:
#endif
#ifdef CONFIG_ATARI
is_not_atari(Lmapphysnotatari)
/*
* If the kernel physical address is different from its virtual address, we
* will temporarily set up an identity mapping of the 16MB chunk with
* transparent translation where the kernel is executing.
*/
putc('L')
/* fixup the Atari iobase register location before printing */
lea %pc@(Liobase),%a0
movel #0xff000000,%a0@
is_040_or_060(Latarimmu68040)
lea %pc@(Lmmu),%a3
movel %d5,%d0
jne 1f
lea LdoneMMUenable:w,%a0
jra 3f
1: lea 4f:w,%a0
andl #0xff000000,%d0 /* logical address base */
jeq 2f
orw #TTR_ENABLE+TTR_CI+TTR_RWM+TTR_FCB2+TTR_FCM1+TTR_FCM0,%d0
movel %d0,%a3@
.long 0xf0130800 /* pmove %a3@,%tt0 */
jra 3f
/* tt0 doesn't work if physical and virtual address of kernel is in
* the same 16M area (Falcon with Magnum/FX, kernel in alternate ram)
* Transparent translation through kernel pointer table
* Requires that this code until after MMU enabling lies in
* the 256K page around %d5
*/
2: movel %a4@,%d1
andw #0xfff0,%d1
movel %d1,%a1
movel %d5,%d1
moveq #PTR_INDEX_SHIFT,%d0
lsrl %d0,%d1
lea %a1@(%d1:l:4),%a1
movel %d5,%d1
addql #_PAGE_PRESENT,%d1
movel %a1@,%d2
movel %d1,%a1@
lea 5f:w,%a0
/* no limit, 4byte descriptors */
3: movel #0x80000002,%a3@
movel %a5,%a3@(4)
.long 0xf0134800 /* pmove %a3@,%srp */
.long 0xf0134c00 /* pmove %a3@,%crp */
.long 0xf0002400 /* pflusha */
/*
* enable,super root enable,4096 byte pages,7 bit root index,
* 7 bit pointer index, 6 bit page table index.
*/
movel #0x82c07760,%a3@
.long 0xf0134000 /* pmove %a3@,%tc (enable the MMU) */
jmp %a0@
4: clrl %a3@
.long 0xf0130800 /* pmove %a3@,%tt0 */
jra LdoneMMUenable
5: movel %d2,%a1@
jra LdoneMMUenable
Latarimmu68040:
movel %d5,%d0
jne 1f
lea LdoneMMUenable:w,%a0
jra 2f
1: lea 3f:w,%a0
andl #0xff000000,%d0 /* logical address base */
orw #TTR_ENABLE+TTR_KERNELMODE+_PAGE_NOCACHE_S,%d0
.long 0x4e7b0004 /* movec %d0,%itt0 */
2: .word 0xf518 /* pflusha */
.long 0x4e7bd807 /* movec %a5,%srp */
.long 0x4e7bd806 /* movec %a5,%urp */
movel #TC_ENABLE+TC_PAGE4K,%d0
/*
* this value is also ok for the 68060, we don`t use the cache
* mode/protection defaults
*/
.long 0x4e7b0003 /* movec %d0,%tc (enable the MMU) */
jmp %a0@
3: moveq #0,%d0
.long 0x4e7b0004 /* movec %d0,%itt0 */
tstl %a1
jra LdoneMMUenable
Lmapphysnotatari:
#endif
LdoneMMUenable:
/*
* Fixup the addresses for the kernel pointer table and availmem.
* Convert them from physical addresses to virtual addresses.
*/
putc('M')
/*
* d5 contains physaddr of kernel start
*/
subl %d5,SYMBOL_NAME(kpt)
/*
* do the same conversion on the first available memory
* address (in a6).
*/
subl %d5,%a6
movel %a6,SYMBOL_NAME(availmem) /* first available memory address */
putc('N')
#if 0
putr()
lea SYMBOL_NAME(kernel_pmd_table),%a0
moveq #63,%d0
1: moveq #7,%d1
putn(%a0)
putc(':')
putc(' ')
2: putn(%a0@+)
dbra %d1,2b
putr()
dbra %d0,1b
putr()
movel SYMBOL_NAME(kpt),%a0
moveq #639,%d0
1: moveq #7,%d1
putn(%a0)
putc(':')
putc(' ')
2: putn(%a0@+)
dbra %d1,2b
putr()
dbra %d0,1b
#endif
/*
* Enable caches
*/
is_040_or_060(Lcache680460)
movel #CC3_ENABLE_DB+CC3_CLR_D+CC3_ENABLE_D+CC3_ENABLE_IB+CC3_CLR_I+CC3_ENABLE_I,%d0
movec %d0,%cacr
jra 1f
Lcache680460:
.word 0xf4f8 /* cpusha %bc */
is_060(Lcache68060)
movel #CC6_ENABLE_D+CC6_ENABLE_I,%d0
/* MMU stuff works in copyback mode now, so enable the cache */
movec %d0,%cacr
jra 1f
Lcache68060:
movel #CC6_ENABLE_D+CC6_ENABLE_I+CC6_ENABLE_SB+CC6_PUSH_DPI+CC6_ENABLE_B+CC6_CLRA_B,%d0
/* MMU stuff works in copyback mode now, so enable the cache */
movec %d0,%cacr
/* enable superscalar dispatch in PCR */
moveq #1,%d0
.long 0x4e7b0808 /* movec d0,pcr */
1:
/*
* Setup initial stack pointer
*/
lea SYMBOL_NAME(init_user_stack)+PAGESIZE,%sp
/* jump to the kernel start */
putr()
jbsr SYMBOL_NAME(start_kernel)
/*
* switch off mmu and exit
*/
#ifdef HACKER_KERNEL
ENTRY(kernel_exit)
lea 2f:w,%a0
movel %pc@(Lkernel_start),%a0
lea %a0@(2f:w),%a1
movel %a1,%d0
andl #0xff000000,%d0
jne 1f
jmp %a0@(1f+0x80000000)
1: orw #TTR_ENABLE+TTR_KERNELMODE+_PAGE_NOCACHE_S,%d0
.long 0x4e7b0004 /* movec %d0,%itt0 */
jmp %a1@
2: moveq #0,%d0
.long 0x4e7b0003 /* movec %d0,%tc (disable the MMU) */
.word 0xf518 /* pflusha */
.long 0x4e7b0004 /* movec %d0,%itt0 */
movec %d0,%cacr
.word 0xf4f8 /* cpusha %bc */
lea %pc@(SYMBOL_NAME(boot_info)),%a0
jmp %a0@(BI_amiga_exit_func:w)@(0:w)
#endif
/*
* Serial port output support.
*/
LSERPER = 0xdff032
LSERDAT = 0xdff030
LSERDATR = 0xdff018
LNTSC_PERIOD = 371
LPAL_PERIOD = 368
LNTSC_ECLOCK = 7159090
LSERIAL_CNTRL = 0xbfd000
LSERIAL_DTR = 7
/*
* Debug output support
* Atarians have a choice between the parallel port, the serial port
* from the MFP or a serial port of the SCC
*/
#ifdef CONFIG_ATARI
/* #define USE_PRINTER */
/* #define USE_SCC */
#define USE_MFP
#ifdef USE_PRINTER
LPSG_SELECT = 0xff8800
LPSG_READ = 0xff8800
LPSG_WRITE = 0xff8802
LPSG_IO_A = 14
LPSG_IO_B = 15
LPSG_CONTROL = 7
LSTMFP_GPIP = 0xfffa01
LSTMFP_DDR = 0xfffa05
LSTMFP_IERB = 0xfffa09
#elif defined(USE_SCC)
LSCC_CTRL_B = 0xff8c85
LSCC_DATA_B = 0xff8c87
/* Initialisation table for SCC */
scc_initable:
.byte 9,12 /* Reset */
.byte 4,0x44 /* x16, 1 stopbit, no parity */
.byte 3,0xc0 /* receiver: 8 bpc */
.byte 5,0xe2 /* transmitter: 8 bpc, assert dtr/rts */
.byte 9,0 /* no interrupts */
.byte 10,0 /* NRZ */
.byte 11,0x50 /* use baud rate generator */
.byte 12,24,13,0 /* 9600 baud */
.byte 14,2,14,3 /* use master clock for BRG, enable */
.byte 3,0xc1 /* enable receiver */
.byte 5,0xea /* enable transmitter */
.byte -1
.even
#elif defined(USE_MFP)
LMFP_UCR = 0xfffa29
LMFP_TDCDR = 0xfffa1d
LMFP_TDDR = 0xfffa25
LMFP_TSR = 0xfffa2d
LMFP_UDR = 0xfffa2f
#endif
#endif
/*
* Initialize serial port hardware for 9600/8/1
* a0 thrashed
* Atari d0 trashed (a1 in case of SCC)
*/
.even
Lserial_init:
#ifdef CONFIG_AMIGA
cmpil #MACH_AMIGA,%d4
jne 1f
lea %pc@(SYMBOL_NAME(boot_info)),%a0
bclr #LSERIAL_DTR,LSERIAL_CNTRL
movew #LNTSC_PERIOD,LSERPER
cmpl #LNTSC_ECLOCK,%a0@(BI_amiga_eclock)
jeq 9f
movew #LPAL_PERIOD,LSERPER
jra 9f
1:
#endif
#ifdef CONFIG_ATARI
cmpil #MACH_ATARI,%d4
jne 4f
#ifdef USE_PRINTER
bclr #0,LSTMFP_IERB
bclr #0,LSTMFP_DDR
moveb #LPSG_CONTROL,LPSG_SELECT
moveb #0xff,LPSG_WRITE
moveb #LPSG_IO_B,LPSG_SELECT
clrb LPSG_WRITE
moveb #LPSG_IO_A,LPSG_SELECT
moveb LPSG_READ,%d0
bset #5,%d0
moveb %d0,LPSG_WRITE
#elif defined(USE_SCC)
lea LSCC_CTRL_B,%a0
lea %pc@(scc_initable:w),%a1
2: moveb %a1@+,%d0
jmi 3f
moveb %d0,%a0@
moveb %a1@+,%a0@
jra 2b
3: clrb %a0@
#elif defined(USE_MFP)
bclr #1,LMFP_TSR
moveb #0x88,LMFP_UCR
andb #0x70,LMFP_TDCDR
moveb #2,LMFP_TDDR
orb #1,LMFP_TDCDR
bset #1,LMFP_TSR
#endif
4:
#endif
9:
rts
/*
* Output character in d7 on serial port.
* d7 thrashed.
*/
Lserial_putc:
moveml %a0/%a1,%sp@-
#ifdef CONFIG_AMIGA
cmpil #MACH_AMIGA,%d4
jne 2f
andw #0x00ff,%d7
oriw #0x0100,%d7
movel %pc@(Lcustom),%a1
movew %d7,%a1@(LSERDAT)
1: movew %a1@(LSERDATR),%d7
andw #0x2000,%d7
jeq 1b
jra 9f
2:
#endif
#ifdef CONFIG_ATARI
cmpil #MACH_ATARI,%d4
jne 4f
movel %pc@(Liobase),%a1
#ifdef USE_PRINTER
3: btst #0,%a1@(LSTMFP_GPIP)
jne 3b
moveb #LPSG_IO_B,%a1@(LPSG_SELECT)
moveb %d7,%a1@(LPSG_WRITE)
moveb #LPSG_IO_A,%a1@(LPSG_SELECT)
moveb %a1@(LPSG_READ),%d7
bclr #5,%d7
moveb %d7,%a1@(LPSG_WRITE)
nop
nop
bset #5,%d7
moveb %d7,%a1@(LPSG_WRITE)
#elif defined(USE_SCC)
3: btst #2,%a1@(LSCC_CTRL_B)
jeq 3b
moveb %d7,%a1@(LSCC_DATA_B)
#elif defined(USE_MFP)
3: btst #7,%a1@(LMFP_TSR)
jeq 3b
moveb %d7,%a1@(LMFP_UDR)
#endif
4:
#endif
9:
moveml %sp@+,%a0/%a1
rts
/*
* Output string pointed to by a0 to serial port.
* a0 trashed.
*/
Lserial_puts:
movel %d7,%sp@-
1: moveb %a0@+,%d7
jeq 2f
jbsr Lserial_putc
jra 1b
2: movel %sp@+,%d7
rts
/*
* Output number in d7 in hex notation on serial port.
* d0-d2 trashed.
* d7 trashed.
*/
Lserial_putnum:
moveml %d0-%d2/%d7,%sp@-
movel %d7,%d1
moveq #4,%d0
moveq #7,%d2
L1: roll %d0,%d1
moveb %d1,%d7
andb #0x0f,%d7
cmpb #0x0a,%d7
jcc 1f
addb #'0',%d7
jra 2f
1: addb #'A'-10,%d7
2: jbsr Lserial_putc
dbra %d2,L1
moveq #32,%d7
jbsr Lserial_putc
moveml %sp@+,%d0-%d2/%d7
rts
Lshowtest:
moveml %a0/%d7,%sp@-
putc('A')
putc('=')
putn(%a1)
ptestr #5,%a1@,#7,%a0
putc('D')
putc('A')
putc('=')
putn(%a0)
putc('D')
putc('=')
putn(%a0@)
putc('S')
putc('=')
lea %pc@(Lmmu),%a0
pmove %psr,%a0@
clrl %d7
movew %a0@,%d7
jbsr Lserial_putnum
putr()
moveml %sp@+,%a0/%d7
rts
.data
.even
#ifdef HACKER_KERNEL
Lkernel_start:
.long 0
#endif
Lcustom:
Liobase:
.long 0
Lmmu: .quad 0
SYMBOL_NAME_LABEL(kpt)
.long 0
SYMBOL_NAME_LABEL(availmem)
.long 0
SYMBOL_NAME_LABEL(is_medusa)
.long 0
SYMBOL_NAME_LABEL(m68k_pgtable_cachemode)
.long 0
