Pileus Git - ~andy/linux/blob - arch/s390/kernel/head.S

   1 /*
   2  * Copyright IBM Corp. 1999, 2010
   3  *
   4  *    Author(s): Hartmut Penner <hp@de.ibm.com>
   5  *               Martin Schwidefsky <schwidefsky@de.ibm.com>
   6  *               Rob van der Heij <rvdhei@iae.nl>
   7  *               Heiko Carstens <heiko.carstens@de.ibm.com>
   8  *
   9  * There are 5 different IPL methods
  10  *  1) load the image directly into ram at address 0 and do an PSW restart
  11  *  2) linload will load the image from address 0x10000 to memory 0x10000
  12  *     and start the code thru LPSW 0x0008000080010000 (VM only, deprecated)
  13  *  3) generate the tape ipl header, store the generated image on a tape
  14  *     and ipl from it
  15  *     In case of SL tape you need to IPL 5 times to get past VOL1 etc
  16  *  4) generate the vm reader ipl header, move the generated image to the
  17  *     VM reader (use option NOH!) and do a ipl from reader (VM only)
  18  *  5) direct call of start by the SALIPL loader
  19  *  We use the cpuid to distinguish between VM and native ipl
  20  *  params for kernel are pushed to 0x10400 (see setup.h)
  21  *
  22  */
  23
  24 #include <linux/init.h>
  25 #include <linux/linkage.h>
  26 #include <asm/asm-offsets.h>
  27 #include <asm/thread_info.h>
  28 #include <asm/page.h>
  29
  30 #ifdef CONFIG_64BIT
  31 #define ARCH_OFFSET     4
  32 #else
  33 #define ARCH_OFFSET     0
  34 #endif
  35
  36 __HEAD
  37
  38 #define IPL_BS  0x730
  39         .org    0
  40         .long   0x00080000,0x80000000+iplstart  # The first 24 bytes are loaded
  41         .long   0x02000018,0x60000050           # by ipl to addresses 0-23.
  42         .long   0x02000068,0x60000050           # (a PSW and two CCWs).
  43         .fill   80-24,1,0x40                    # bytes 24-79 are discarded !!
  44         .long   0x020000f0,0x60000050           # The next 160 byte are loaded
  45         .long   0x02000140,0x60000050           # to addresses 0x18-0xb7
  46         .long   0x02000190,0x60000050           # They form the continuation
  47         .long   0x020001e0,0x60000050           # of the CCW program started
  48         .long   0x02000230,0x60000050           # by ipl and load the range
  49         .long   0x02000280,0x60000050           # 0x0f0-0x730 from the image
  50         .long   0x020002d0,0x60000050           # to the range 0x0f0-0x730
  51         .long   0x02000320,0x60000050           # in memory. At the end of
  52         .long   0x02000370,0x60000050           # the channel program the PSW
  53         .long   0x020003c0,0x60000050           # at location 0 is loaded.
  54         .long   0x02000410,0x60000050           # Initial processing starts
  55         .long   0x02000460,0x60000050           # at 0xf0 = iplstart.
  56         .long   0x020004b0,0x60000050
  57         .long   0x02000500,0x60000050
  58         .long   0x02000550,0x60000050
  59         .long   0x020005a0,0x60000050
  60         .long   0x020005f0,0x60000050
  61         .long   0x02000640,0x60000050
  62         .long   0x02000690,0x60000050
  63         .long   0x020006e0,0x20000050
  64
  65         .org    0xf0
  66 #
  67 # subroutine for loading cards from the reader
  68 #
  69 .Lloader:
  70         la      %r3,.Lorb               # r2 = address of orb into r2
  71         la      %r5,.Lirb               # r4 = address of irb
  72         la      %r6,.Lccws
  73         la      %r7,20
  74 .Linit:
  75         st      %r2,4(%r6)              # initialize CCW data addresses
  76         la      %r2,0x50(%r2)
  77         la      %r6,8(%r6)
  78         bct     7,.Linit
  79
  80         lctl    %c6,%c6,.Lcr6           # set IO subclass mask
  81         slr     %r2,%r2
  82 .Lldlp:
  83         ssch    0(%r3)                  # load chunk of 1600 bytes
  84         bnz     .Llderr
  85 .Lwait4irq:
  86         mvc     0x78(8),.Lnewpsw        # set up IO interrupt psw
  87         lpsw    .Lwaitpsw
  88 .Lioint:
  89         c       %r1,0xb8                # compare subchannel number
  90         bne     .Lwait4irq
  91         tsch    0(%r5)
  92
  93         slr     %r0,%r0
  94         ic      %r0,8(%r5)              # get device status
  95         chi     %r0,8                   # channel end ?
  96         be      .Lcont
  97         chi     %r0,12                  # channel end + device end ?
  98         be      .Lcont
  99
 100         l       %r0,4(%r5)
 101         s       %r0,8(%r3)              # r0/8 = number of ccws executed
 102         mhi     %r0,10                  # *10 = number of bytes in ccws
 103         lh      %r3,10(%r5)             # get residual count
 104         sr      %r0,%r3                 # #ccws*80-residual=#bytes read
 105         ar      %r2,%r0
 106
 107         br      %r14                    # r2 contains the total size
 108
 109 .Lcont:
 110         ahi     %r2,0x640               # add 0x640 to total size
 111         la      %r6,.Lccws
 112         la      %r7,20
 113 .Lincr:
 114         l       %r0,4(%r6)              # update CCW data addresses
 115         ahi     %r0,0x640
 116         st      %r0,4(%r6)
 117         ahi     %r6,8
 118         bct     7,.Lincr
 119
 120         b       .Lldlp
 121 .Llderr:
 122         lpsw    .Lcrash
 123
 124         .align  8
 125 .Lorb:  .long   0x00000000,0x0080ff00,.Lccws
 126 .Lirb:  .long   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 127 .Lcr6:  .long   0xff000000
 128 .Lloadp:.long   0,0
 129         .align  8
 130 .Lcrash:.long   0x000a0000,0x00000000
 131 .Lnewpsw:
 132         .long   0x00080000,0x80000000+.Lioint
 133 .Lwaitpsw:
 134         .long   0x020a0000,0x80000000+.Lioint
 135
 136         .align  8
 137 .Lccws: .rept   19
 138         .long   0x02600050,0x00000000
 139         .endr
 140         .long   0x02200050,0x00000000
 141
 142 iplstart:
 143         lh      %r1,0xb8                # test if subchannel number
 144         bct     %r1,.Lnoload            #  is valid
 145         l       %r1,0xb8                # load ipl subchannel number
 146         la      %r2,IPL_BS              # load start address
 147         bas     %r14,.Lloader           # load rest of ipl image
 148         l       %r12,.Lparm             # pointer to parameter area
 149         st      %r1,IPL_DEVICE+ARCH_OFFSET-PARMAREA(%r12) # save ipl device number
 150
 151 #
 152 # load parameter file from ipl device
 153 #
 154 .Lagain1:
 155         l       %r2,.Linitrd            # ramdisk loc. is temp
 156         bas     %r14,.Lloader           # load parameter file
 157         ltr     %r2,%r2                 # got anything ?
 158         bz      .Lnopf
 159         chi     %r2,895
 160         bnh     .Lnotrunc
 161         la      %r2,895
 162 .Lnotrunc:
 163         l       %r4,.Linitrd
 164         clc     0(3,%r4),.L_hdr         # if it is HDRx
 165         bz      .Lagain1                # skip dataset header
 166         clc     0(3,%r4),.L_eof         # if it is EOFx
 167         bz      .Lagain1                # skip dateset trailer
 168         la      %r5,0(%r4,%r2)
 169         lr      %r3,%r2
 170         la      %r3,COMMAND_LINE-PARMAREA(%r12) # load adr. of command line
 171         mvc     0(256,%r3),0(%r4)
 172         mvc     256(256,%r3),256(%r4)
 173         mvc     512(256,%r3),512(%r4)
 174         mvc     768(122,%r3),768(%r4)
 175         slr     %r0,%r0
 176         b       .Lcntlp
 177 .Ldelspc:
 178         ic      %r0,0(%r2,%r3)
 179         chi     %r0,0x20                # is it a space ?
 180         be      .Lcntlp
 181         ahi     %r2,1
 182         b       .Leolp
 183 .Lcntlp:
 184         brct    %r2,.Ldelspc
 185 .Leolp:
 186         slr     %r0,%r0
 187         stc     %r0,0(%r2,%r3)          # terminate buffer
 188 .Lnopf:
 189
 190 #
 191 # load ramdisk from ipl device
 192 #
 193 .Lagain2:
 194         l       %r2,.Linitrd            # addr of ramdisk
 195         st      %r2,INITRD_START+ARCH_OFFSET-PARMAREA(%r12)
 196         bas     %r14,.Lloader           # load ramdisk
 197         st      %r2,INITRD_SIZE+ARCH_OFFSET-PARMAREA(%r12) # store size of rd
 198         ltr     %r2,%r2
 199         bnz     .Lrdcont
 200         st      %r2,INITRD_START+ARCH_OFFSET-PARMAREA(%r12) # no ramdisk found
 201 .Lrdcont:
 202         l       %r2,.Linitrd
 203
 204         clc     0(3,%r2),.L_hdr         # skip HDRx and EOFx
 205         bz      .Lagain2
 206         clc     0(3,%r2),.L_eof
 207         bz      .Lagain2
 208
 209 #
 210 # reset files in VM reader
 211 #
 212         stidp   __LC_SAVE_AREA_SYNC     # store cpuid
 213         tm      __LC_SAVE_AREA_SYNC,0xff# running VM ?
 214         bno     .Lnoreset
 215         la      %r2,.Lreset
 216         lhi     %r3,26
 217         diag    %r2,%r3,8
 218         la      %r5,.Lirb
 219         stsch   0(%r5)                  # check if irq is pending
 220         tm      30(%r5),0x0f            # by verifying if any of the
 221         bnz     .Lwaitforirq            # activity or status control
 222         tm      31(%r5),0xff            # bits is set in the schib
 223         bz      .Lnoreset
 224 .Lwaitforirq:
 225         mvc     0x78(8),.Lrdrnewpsw     # set up IO interrupt psw
 226 .Lwaitrdrirq:
 227         lpsw    .Lrdrwaitpsw
 228 .Lrdrint:
 229         c       %r1,0xb8                # compare subchannel number
 230         bne     .Lwaitrdrirq
 231         la      %r5,.Lirb
 232         tsch    0(%r5)
 233 .Lnoreset:
 234         b       .Lnoload
 235
 236         .align  8
 237 .Lrdrnewpsw:
 238         .long   0x00080000,0x80000000+.Lrdrint
 239 .Lrdrwaitpsw:
 240         .long   0x020a0000,0x80000000+.Lrdrint
 241
 242 #
 243 # everything loaded, go for it
 244 #
 245 .Lnoload:
 246         l       %r1,.Lstartup
 247         br      %r1
 248
 249 .Linitrd:.long _end                     # default address of initrd
 250 .Lparm: .long  PARMAREA
 251 .Lstartup: .long startup
 252 .Lreset:.byte   0xc3,0xc8,0xc1,0xd5,0xc7,0xc5,0x40,0xd9,0xc4,0xd9,0x40
 253         .byte   0xc1,0xd3,0xd3,0x40,0xd2,0xc5,0xc5,0xd7,0x40,0xd5,0xd6
 254         .byte   0xc8,0xd6,0xd3,0xc4     # "change rdr all keep nohold"
 255 .L_eof: .long   0xc5d6c600       /* C'EOF' */
 256 .L_hdr: .long   0xc8c4d900       /* C'HDR' */
 257
 258 #
 259 # SALIPL loader support. Based on a patch by Rob van der Heij.
 260 # This entry point is called directly from the SALIPL loader and
 261 # doesn't need a builtin ipl record.
 262 #
 263         .org    0x800
 264 ENTRY(start)
 265         stm     %r0,%r15,0x07b0         # store registers
 266         basr    %r12,%r0
 267 .base:
 268         l       %r11,.parm
 269         l       %r8,.cmd                # pointer to command buffer
 270
 271         ltr     %r9,%r9                 # do we have SALIPL parameters?
 272         bp      .sk8x8
 273
 274         mvc     0(64,%r8),0x00b0        # copy saved registers
 275         xc      64(240-64,%r8),0(%r8)   # remainder of buffer
 276         tr      0(64,%r8),.lowcase
 277         b       .gotr
 278 .sk8x8:
 279         mvc     0(240,%r8),0(%r9)       # copy iplparms into buffer
 280 .gotr:
 281         slr     %r0,%r0
 282         st      %r0,INITRD_SIZE+ARCH_OFFSET-PARMAREA(%r11)
 283         st      %r0,INITRD_START+ARCH_OFFSET-PARMAREA(%r11)
 284         j       startup                 # continue with startup
 285 .cmd:   .long   COMMAND_LINE            # address of command line buffer
 286 .parm:  .long   PARMAREA
 287 .lowcase:
 288         .byte 0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07
 289         .byte 0x08,0x09,0x0a,0x0b,0x0c,0x0d,0x0e,0x0f
 290         .byte 0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17
 291         .byte 0x18,0x19,0x1a,0x1b,0x1c,0x1d,0x1e,0x1f
 292         .byte 0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27
 293         .byte 0x28,0x29,0x2a,0x2b,0x2c,0x2d,0x2e,0x2f
 294         .byte 0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37
 295         .byte 0x38,0x39,0x3a,0x3b,0x3c,0x3d,0x3e,0x3f
 296         .byte 0x40,0x41,0x42,0x43,0x44,0x45,0x46,0x47
 297         .byte 0x48,0x49,0x4a,0x4b,0x4c,0x4d,0x4e,0x4f
 298         .byte 0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57
 299         .byte 0x58,0x59,0x5a,0x5b,0x5c,0x5d,0x5e,0x5f
 300         .byte 0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67
 301         .byte 0x68,0x69,0x6a,0x6b,0x6c,0x6d,0x6e,0x6f
 302         .byte 0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77
 303         .byte 0x78,0x79,0x7a,0x7b,0x7c,0x7d,0x7e,0x7f
 304
 305         .byte 0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87
 306         .byte 0x88,0x89,0x8a,0x8b,0x8c,0x8d,0x8e,0x8f
 307         .byte 0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97
 308         .byte 0x98,0x99,0x9a,0x9b,0x9c,0x9d,0x9e,0x9f
 309         .byte 0xa0,0xa1,0xa2,0xa3,0xa4,0xa5,0xa6,0xa7
 310         .byte 0xa8,0xa9,0xaa,0xab,0xac,0xad,0xae,0xaf
 311         .byte 0xb0,0xb1,0xb2,0xb3,0xb4,0xb5,0xb6,0xb7
 312         .byte 0xb8,0xb9,0xba,0xbb,0xbc,0xbd,0xbe,0xbf
 313         .byte 0xc0,0x81,0x82,0x83,0x84,0x85,0x86,0x87   # .abcdefg
 314         .byte 0x88,0x89,0xca,0xcb,0xcc,0xcd,0xce,0xcf   # hi
 315         .byte 0xd0,0x91,0x92,0x93,0x94,0x95,0x96,0x97   # .jklmnop
 316         .byte 0x98,0x99,0xda,0xdb,0xdc,0xdd,0xde,0xdf   # qr
 317         .byte 0xe0,0xe1,0xa2,0xa3,0xa4,0xa5,0xa6,0xa7   # ..stuvwx
 318         .byte 0xa8,0xa9,0xea,0xeb,0xec,0xed,0xee,0xef   # yz
 319         .byte 0xf0,0xf1,0xf2,0xf3,0xf4,0xf5,0xf6,0xf7
 320         .byte 0xf8,0xf9,0xfa,0xfb,0xfc,0xfd,0xfe,0xff
 321
 322 #
 323 # startup-code at 0x10000, running in absolute addressing mode
 324 # this is called either by the ipl loader or directly by PSW restart
 325 # or linload or SALIPL
 326 #
 327         .org    0x10000
 328 ENTRY(startup)
 329         j       .Lep_startup_normal
 330         .org    0x10008
 331 #
 332 # This is a list of s390 kernel entry points. At address 0x1000f the number of
 333 # valid entry points is stored.
 334 #
 335 # IMPORTANT: Do not change this table, it is s390 kernel ABI!
 336 #
 337         .ascii  "S390EP"
 338         .byte   0x00,0x01
 339 #
 340 # kdump startup-code at 0x10010, running in 64 bit absolute addressing mode
 341 #
 342         .org    0x10010
 343 ENTRY(startup_kdump)
 344         j       .Lep_startup_kdump
 345 .Lep_startup_normal:
 346         basr    %r13,0                  # get base
 347 .LPG0:
 348         xc      0x200(256),0x200        # partially clear lowcore
 349         xc      0x300(256),0x300
 350         xc      0xe00(256),0xe00
 351         stck    __LC_LAST_UPDATE_CLOCK
 352         spt     5f-.LPG0(%r13)
 353         mvc     __LC_LAST_UPDATE_TIMER(8),5f-.LPG0(%r13)
 354         xc      __LC_STFL_FAC_LIST(8),__LC_STFL_FAC_LIST
 355 #ifndef CONFIG_MARCH_G5
 356         # check capabilities against MARCH_{G5,Z900,Z990,Z9_109,Z10}
 357         .insn   s,0xb2b10000,__LC_STFL_FAC_LIST # store facility list
 358         tm      __LC_STFL_FAC_LIST,0x01 # stfle available ?
 359         jz      0f
 360         la      %r0,0
 361         .insn   s,0xb2b00000,__LC_STFL_FAC_LIST # store facility list extended
 362 0:      l       %r0,__LC_STFL_FAC_LIST
 363         n       %r0,2f+8-.LPG0(%r13)
 364         cl      %r0,2f+8-.LPG0(%r13)
 365         jne     1f
 366         l       %r0,__LC_STFL_FAC_LIST+4
 367         n       %r0,2f+12-.LPG0(%r13)
 368         cl      %r0,2f+12-.LPG0(%r13)
 369         je      3f
 370 1:      l       %r15,.Lstack-.LPG0(%r13)
 371         ahi     %r15,-96
 372         la      %r2,.Lals_string-.LPG0(%r13)
 373         l       %r3,.Lsclp_print-.LPG0(%r13)
 374         basr    %r14,%r3
 375         lpsw    2f-.LPG0(%r13)          # machine type not good enough, crash
 376 .Lals_string:
 377         .asciz  "The Linux kernel requires more recent processor hardware"
 378 .Lsclp_print:
 379         .long   _sclp_print_early
 380 .Lstack:
 381         .long   0x8000 + (1<<(PAGE_SHIFT+THREAD_ORDER))
 382         .align 16
 383 2:      .long   0x000a0000,0x8badcccc
 384 #if defined(CONFIG_64BIT)
 385 #if defined(CONFIG_MARCH_Z196)
 386         .long 0xc100efe3, 0xf46c0000
 387 #elif defined(CONFIG_MARCH_Z10)
 388         .long 0xc100efe3, 0xf0680000
 389 #elif defined(CONFIG_MARCH_Z9_109)
 390         .long 0xc100efc3, 0x00000000
 391 #elif defined(CONFIG_MARCH_Z990)
 392         .long 0xc0002000, 0x00000000
 393 #elif defined(CONFIG_MARCH_Z900)
 394         .long 0xc0000000, 0x00000000
 395 #endif
 396 #else
 397 #if defined(CONFIG_MARCH_Z196)
 398         .long 0x8100c880, 0x00000000
 399 #elif defined(CONFIG_MARCH_Z10)
 400         .long 0x8100c880, 0x00000000
 401 #elif defined(CONFIG_MARCH_Z9_109)
 402         .long 0x8100c880, 0x00000000
 403 #elif defined(CONFIG_MARCH_Z990)
 404         .long 0x80002000, 0x00000000
 405 #elif defined(CONFIG_MARCH_Z900)
 406         .long 0x80000000, 0x00000000
 407 #endif
 408 #endif
 409 3:
 410 #endif
 411
 412 #ifdef CONFIG_64BIT
 413         mvi     __LC_AR_MODE_ID,1       # set esame flag
 414         slr     %r0,%r0                 # set cpuid to zero
 415         lhi     %r1,2                   # mode 2 = esame (dump)
 416         sigp    %r1,%r0,0x12            # switch to esame mode
 417         sam64                           # switch to 64 bit mode
 418         larl    %r13,4f
 419         lmh     %r0,%r15,0(%r13)        # clear high-order half
 420         jg      startup_continue
 421 4:      .fill   16,4,0x0
 422 #else
 423         mvi     __LC_AR_MODE_ID,0       # set ESA flag (mode 0)
 424         l       %r13,4f-.LPG0(%r13)
 425         b       0(%r13)
 426         .align  8
 427 4:      .long   startup_continue
 428 #endif
 429         .align  8
 430 5:      .long   0x7fffffff,0xffffffff
 431
 432 #include "head_kdump.S"
 433
 434 #
 435 # params at 10400 (setup.h)
 436 #
 437         .org    PARMAREA
 438         .long   0,0                     # IPL_DEVICE
 439         .long   0,0                     # INITRD_START
 440         .long   0,0                     # INITRD_SIZE
 441         .long   0,0                     # OLDMEM_BASE
 442         .long   0,0                     # OLDMEM_SIZE
 443
 444         .org    COMMAND_LINE
 445         .byte   "root=/dev/ram0 ro"
 446         .byte   0
 447
 448         .org    0x11000